sas 程序急问---订单中水果的各种组合计数

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
7 x# C# n1 t% Y$ Q之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
( a4 x# Y: S+ Q  ~& \  I; G
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
  D3 ]3 l. j1 h9 M 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
) Q" i, {. |3 Q# j; c2 {- d5 U2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
/ a, a: D0 m* f9 ]6 B3 v7 [
; V  v# A  E0 n表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
* X+ U4 T& m9 }3 k3 C kiwi                                 
/ J/ `( m7 I+ O.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数
! M  O3 l* I  M  W
. w$ h: r. u5 }2 J: Z, v
订单部分如下：
/ q0 ?7 c! O8 v; T5 Z! h  J customer   fruit       qty     date        
7 G; {/ M% E% m' K7 v0 s# b: t, ^ 001        apple       17     20120101     
001        kiwi        17     20120101     
001        grape       17     20120101     
1 F% y0 A% Y8 @6 O- t 001        pear        23     20120129     
( B: e5 b" b7 z/ E9 m 001        banana      10     20120211     
2 P) `( w0 m( @  e 001        kiwi        10     20120211     
001        pear        15     20120211     
2 T7 e0 l( J/ E+ X 001        pear        15     20120222     
4 K# H2 N8 e, D  m+ Q* n# a4 Q 001        banana      10     20120222     
# H1 T6 W/ a) R1 o5 V  z 001        lemon       22     20120711     
+ F/ u% R) y2 H! K: `* z/ H 002        kiwi        22     20120217     
002        kiwi        29     20120320     
! f8 W$ q# ]9 i7 Y 002        corn        29     20120320     
$ U/ ^; r: v6 K# z4 I( @6 Z2 p 002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
2 ^3 X# ~% W3 G$ [* p 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
5 n) I+ M3 _" m* _ 003        banana      10     20120122     
9 c& B8 x0 b1 w2 y! ]( \! C1 a% W 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
9 {! H4 V3 _6 x1 ` 003        apple       32     20120213     
) P2 j3 d+ t( C. N/ t 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
8 f+ k5 z9 r. f1 g) R 004        pineapple   12     20120206     
004        plum        31     20120219     
/ H% O, f8 a0 V) i; v 004        banana      29     20120424     
004        peach       29     20120424     
4 o( B, J5 A3 m 004        pear        15     20120424     
004        pear        15     20120522     
4 s$ Y/ Q0 U- G/ p4 U9 Y 004        banana      10     20120522     
! l5 T+ v" i: f" L, I8 f) K 004        apple       22     20120601     
+ ?9 A, v' l1 X# Q! a9 I+ r 004        kiwi        22     20120601     
- z2 X7 R$ B  J 004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
8 i# M% K9 K: E1 F 005        banana      10     20120322     
: A; p6 T: a" I  ^+ G8 @ 005        orange      20     20120411     
% n7 t- W* h. B; Z( X9 f 005        cherry      30     20120421     
# _  q! g6 x- m 005        apple       22     20120601     
' |0 S% o4 g# [; ]( S9 w! } 005        kiwi        22     20120601     
005        grape       22     20120601     
9 Q" H! z+ [; L, X1 C 005        kiwi        25     20120616     
5 a8 \5 B9 y' ~2 ^ 005        grape       25     20120616