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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
, y8 r  T: _1 Y) p) f$ S+ f
. @' x! ^0 n* p0 g  f, N订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

! ?1 Z/ u3 y. R0 x表结构：
fruit  apple  kiwi ... grape      
. C" \9 j! v0 g0 k apple  组合里只有苹果              
1 [+ j. \; }7 O kiwi                                 
.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数
# N: P; ~  J3 A8 o2 @" ^
& V" r+ I) d  r+ q6 _+ F
订单部分如下：
customer   fruit       qty     date        
+ [' U, v  D1 E 001        apple       17     20120101     
9 S( ]: E0 T" a) c) u5 u$ q" Q% F 001        kiwi        17     20120101     
001        grape       17     20120101     
- k3 C4 A2 D8 i2 h  X. e  m 001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
( Q+ P9 {  O: h& F7 W- m 001        pear        15     20120222     
001        banana      10     20120222     
% _2 f* g4 R  w5 s& [9 G. ~ 001        lemon       22     20120711     
9 s( b/ o5 C' F3 L 002        kiwi        22     20120217     
8 d, G" i; d) {9 }' |2 l$ G: | 002        kiwi        29     20120320     
2 J. L6 Q2 H/ v6 k! w 002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
9 s' L2 v: f$ ?! p" k 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
; }* |7 d+ h7 J 002        peach       29     20120424     
003        pear        15     20120122     
8 D/ I1 u, j  e% W2 n 003        banana      10     20120122     
003        apple       11     20120201     
003        plum        11     20120211     
) k# U7 b6 l) F9 {  q4 X1 F 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
! v2 g* m. x% O" O 003        apple       32     20120213     
) u( a% `# \$ C; U" g 003        grape       44     20120412     
( ~+ R5 i4 @0 @% o 003        pear        15     20120922     
  i; u; F6 }0 ^ 003        banana      10     20120922     
004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
! y) B9 f; u% c! A 004        peach       29     20120424     
: X' x, m& T5 {% l* r8 e7 q* H8 Z/ r 004        pear        15     20120424     
: Q2 L: @1 f3 D% n5 e6 c2 Q 004        pear        15     20120522     
* z* U. n0 ^" u: [/ x5 M 004        banana      10     20120522     
" T+ x4 Y, S" g) t, u3 ^" D 004        apple       22     20120601     
  s$ ?  J9 {& ?# ^* A/ C1 N6 B% q 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
$ B$ }. E) C5 @: l5 F- I" I 005        cherry      30     20120421     
005        apple       22     20120601     
005        kiwi        22     20120601     
8 i0 f# ]: s2 t( ? 005        grape       22     20120601     
& Q1 K2 C$ H2 }& l- _1 K/ |! z6 q( V 005        kiwi        25     20120616     
005        grape       25     20120616