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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
4 H) d3 f0 _! ~; ^之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！

' _0 G# A- A; H  e% N订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
! v1 w$ l$ a, c1 r- u, S 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
# F' c9 U4 k9 e1 U; Q2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
' Z' I2 e+ k8 K& H* @* [
/ g/ ^# D$ q; Z8 O表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
; X% t2 m& J8 r, S3 V kiwi                                 
, g% |# t* e/ ?* x: m' v6 Y.                                    
) i; i/ x; _8 U* ^& G( o4 @! Y.                                 
/ g3 |2 U: t9 i$ H* [grape  组合里同时有苹果和葡萄的次数
) w8 |# w& J7 L- {4 |8 u1 R8 o4 O, G7 C

订单部分如下：
2 ~( x9 C0 `- O3 R" `1 B6 K, P customer   fruit       qty     date        
& F' P/ |* ?- |* m- s 001        apple       17     20120101     
9 {, k/ ^. d2 ~  `9 N 001        kiwi        17     20120101     
2 ?6 G. V' P& Q! a! V4 } 001        grape       17     20120101     
001        pear        23     20120129     
  j1 Y; @' m& L. `: x 001        banana      10     20120211     
9 p, I% b0 x. `" H3 w 001        kiwi        10     20120211     
0 Q+ [& z4 g9 J! {1 I- t 001        pear        15     20120211     
; f% [3 A. q5 E0 e7 \. c 001        pear        15     20120222     
- N# ^! }1 u  H# g1 Q 001        banana      10     20120222     
001        lemon       22     20120711     
8 y7 m  R$ z6 m6 E 002        kiwi        22     20120217     
002        kiwi        29     20120320     
- f! H5 k; Q# W4 {* p5 { 002        corn        29     20120320     
" i5 v; l4 A- q! a5 i 002        peach       29     20120320     
0 G) ]# o: l$ Y/ s. i 002        pear        15     20120322     
002        banana      10     20120322     
1 Q' K" S9 X. |0 @& ^1 G3 V 002        grape       22     20120424     
# x; F  F; F/ a% o1 ~ 002        orange      29     20120424     
0 A* J% [4 ]: L( L6 N, Y. } 002        banana      29     20120424     
( F& o* p' u7 e7 n 002        peach       29     20120424     
003        pear        15     20120122     
5 Q1 ?/ {# v* L! |' Z& i 003        banana      10     20120122     
' z) F- C: Z+ ]& Q- r) f* o6 W 003        apple       11     20120201     
003        plum        11     20120211     
003        kiwi        11     20120201     
9 x: g( ?) I' t7 ~/ R( Y( `. e! v 003        grape       11     20120201     
003        cherry      24     20120213     
003        apple       32     20120213     
003        grape       44     20120412     
! p6 z- A0 C* \/ N 003        pear        15     20120922     
003        banana      10     20120922     
0 [2 N. f3 r- Z+ i2 a 004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
3 j% q$ A  _& A& d 004        apple       22     20120601     
9 {; |) {$ d) u3 N 004        kiwi        22     20120601     
004        grape       22     20120601     
+ S. T; B5 x/ i3 ~4 C 005        cherry      24     20120203     
6 b/ _, [% B0 @0 f' C 005        apple       32     20120203     
005        pear        15     20120322     
4 H/ F: w- B" T* l8 R' | 005        banana      10     20120322     
4 N, {- F4 c( N* D 005        orange      20     20120411     
+ }7 |$ l. d7 d$ M- T' ?/ f+ B7 O! H 005        cherry      30     20120421     
005        apple       22     20120601     
. K6 Y, r- @4 k 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
2 B" w( t" D  I) t4 q$ V