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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
- g2 n" d0 v0 O之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
5 D- R+ O+ o& G8 p) i+ h& c5 o
  P: _- J) ?$ q  k! Y! N订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
) ?4 m: E, ], ? 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
# ?5 b, R% W7 m& i8 b. v8 f, w2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
. X0 D7 C8 L, x+ X8 Q  {9 ?2 D9 m
表结构：
fruit  apple  kiwi ... grape      
9 E1 @" K* ^3 {: b apple  组合里只有苹果              
kiwi                                 
.                                    
.                                 
grape  组合里同时有苹果和葡萄的次数

% q4 S5 S7 r2 F( B
订单部分如下：
customer   fruit       qty     date        
5 U& [& \: T7 @/ ] 001        apple       17     20120101     
001        kiwi        17     20120101     
/ U+ }8 X  B& b( I3 t# ~ 001        grape       17     20120101     
001        pear        23     20120129     
4 P  b/ B( R1 u9 h+ N 001        banana      10     20120211     
' G, v$ ]4 F$ G 001        kiwi        10     20120211     
! j" \' z- _2 \8 L( [ 001        pear        15     20120211     
; q7 l1 T: V( p/ F/ q 001        pear        15     20120222     
001        banana      10     20120222     
0 r: I: m# S3 S, L& {+ Z 001        lemon       22     20120711     
( V) y! R+ H5 W  I 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
+ }) `/ M  _9 Y4 d' A  M 002        peach       29     20120320     
* [! T/ Z" y; a 002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
0 `8 U( I8 p9 ~! q3 S% F7 H 002        orange      29     20120424     
002        banana      29     20120424     
3 o) k; n7 K& \) [1 { 002        peach       29     20120424     
0 o8 R7 r+ v1 ] 003        pear        15     20120122     
! \3 ?& M/ I4 \3 | 003        banana      10     20120122     
5 }- }; p: |6 m7 f/ n2 I; L 003        apple       11     20120201     
3 ~: U: W: t5 |! b4 o 003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
! W$ m7 o9 a$ x* N+ x 003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
$ H% d3 k) [2 X1 {# [ 003        banana      10     20120922     
004        pineapple   12     20120206     
( U% R; ]* z* p  B8 C0 Q 004        plum        31     20120219     
004        banana      29     20120424     
: P8 B+ x& c4 S; A 004        peach       29     20120424     
004        pear        15     20120424     
004        pear        15     20120522     
2 X, X! z; K# ~; \3 z1 h 004        banana      10     20120522     
004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
. b7 O' c: m7 [5 c& j6 U 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
005        banana      10     20120322     
005        orange      20     20120411     
; `6 A- E# S+ H2 d. I. n/ a. I 005        cherry      30     20120421     
( q9 {. V) f' c2 {) z 005        apple       22     20120601     
8 u, p) k7 X) z/ j; f 005        kiwi        22     20120601     
005        grape       22     20120601     
  a1 Z0 `* [7 y3 V/ s' q, M! ` 005        kiwi        25     20120616     
; N% k* b  b( v0 M 005        grape       25     20120616
4 n! b) ?+ z- P% h% \8 C, m