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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
0 X" s5 O2 t! U* J  F5 R3 [
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
/ X3 m6 S! i( v* D 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
# O( s; q9 f& \( j
  a" O7 @0 z; _) q  c表结构：
0 p$ R3 M: N) W fruit  apple  kiwi ... grape      
' e4 s/ D$ E* ]' f5 v) w apple  组合里只有苹果              
kiwi                                 
' b0 K3 l7 }. P* p.                                    
.                                 
' k3 I9 E) r6 |+ M" K7 f& z) S1 rgrape  组合里同时有苹果和葡萄的次数
& c. r8 r& ~8 c8 ~

6 R! K4 M) r1 T/ Q$ Q  }8 Q5 ]订单部分如下：
1 ~) Y1 F  S2 Q4 `6 ]6 z customer   fruit       qty     date        
001        apple       17     20120101     
, u6 m; a2 t0 G8 [: m* e 001        kiwi        17     20120101     
4 V7 a/ D6 h8 z 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
: H2 H. x' ]  b) a# S* ` 001        kiwi        10     20120211     
001        pear        15     20120211     
  b5 [8 g: R) k: C/ L 001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
: ]8 s! C+ m" Q- u 002        kiwi        29     20120320     
2 G  i: l2 q. V$ f0 G& p 002        corn        29     20120320     
002        peach       29     20120320     
6 z# h) S* L0 b# | 002        pear        15     20120322     
2 j$ B6 i5 b  A, z 002        banana      10     20120322     
# \. O: n! \2 Y 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
+ Y2 P* V' R6 D; O: N4 r 002        peach       29     20120424     
003        pear        15     20120122     
003        banana      10     20120122     
; O1 \/ F8 ?" K, ?4 z 003        apple       11     20120201     
003        plum        11     20120211     
+ O4 y" |0 j- h) d$ S 003        kiwi        11     20120201     
; D9 J" X5 G4 X8 t. q( ` 003        grape       11     20120201     
; a0 {* w9 y1 t5 v' i 003        cherry      24     20120213     
003        apple       32     20120213     
  H( ^5 d+ p4 d$ A3 C) l 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
. J+ P" L7 L* l1 i. b, ? 004        banana      29     20120424     
004        peach       29     20120424     
, d0 ?, Y% a. z6 _  p* x 004        pear        15     20120424     
" g3 c5 g. o) l) G 004        pear        15     20120522     
) U# C+ `0 q; ^& O, L' j, c, f4 m3 a 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
: y# N- s8 {. A& \3 ~! L8 H0 F 005        pear        15     20120322     
# Q1 d! X! @2 e. Z. F" j 005        banana      10     20120322     
005        orange      20     20120411     
1 R7 O7 j4 t% w: l9 M. @+ h/ E. t1 c 005        cherry      30     20120421     
005        apple       22     20120601     
% U; a1 p* ]8 O- l, Z3 Z 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616