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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
0 a6 J- T8 V: i" e6 t0 e, J之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
2 {0 I! `3 ?6 {* J: c2 v
订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
3 W& {1 A/ o6 N/ p; c4 @- f 1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）

, i) I, J  I% q表结构：
fruit  apple  kiwi ... grape      
2 L4 m0 V5 J' d( D apple  组合里只有苹果              
1 {$ e; `/ v1 t  W kiwi                                 
1 c2 o% j/ u; t" c+ A" [. Z.                                    
/ `  @! m/ s0 ^; \6 P0 X! ~+ x.                                 
$ D* B8 E0 j) g7 E; _grape  组合里同时有苹果和葡萄的次数
0 i7 M% K3 P- M; n

6 Y5 B( b6 V  r: b% |: L订单部分如下：
% X4 T" \0 l) _4 G  b) Y customer   fruit       qty     date        
001        apple       17     20120101     
# B& ?' R5 k( D7 z- t5 _6 H; @! K 001        kiwi        17     20120101     
001        grape       17     20120101     
' E( G! D" j8 K- \$ F: U4 c  G. | 001        pear        23     20120129     
# M3 o2 l9 d; ^ 001        banana      10     20120211     
001        kiwi        10     20120211     
, a- L9 M4 C# h  A* z4 N 001        pear        15     20120211     
001        pear        15     20120222     
, e  i+ L& s& M! @ 001        banana      10     20120222     
001        lemon       22     20120711     
6 Z1 s7 d: F. ]! w1 }: _3 f- X 002        kiwi        22     20120217     
% Y( j- }# ~4 a8 B8 ] 002        kiwi        29     20120320     
% v8 v! M7 j  G: @) T 002        corn        29     20120320     
" e. Q7 [' S8 W' F& f) e$ M 002        peach       29     20120320     
8 P( ?8 z. Z+ V3 [ 002        pear        15     20120322     
002        banana      10     20120322     
002        grape       22     20120424     
: J) c$ Y$ r9 q/ S; {: A  u 002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
- @% I6 n* e" [6 B: H  l4 I( f( o 003        banana      10     20120122     
003        apple       11     20120201     
# p+ t7 f6 N- U1 g 003        plum        11     20120211     
003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
1 i: S7 F# k9 [9 J6 K3 [, Z 003        apple       32     20120213     
; A1 m$ P1 ?* y7 ?* m! G9 J 003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
% W. t% z( M: o7 q1 h) u 004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
# Q3 l3 R  y$ k" s1 }, T 004        peach       29     20120424     
004        pear        15     20120424     
3 q1 _, ~. X4 |0 C- D5 A  ^* Q* C9 V 004        pear        15     20120522     
+ W+ [% c) W# ^, `7 b 004        banana      10     20120522     
3 j; T. _/ D% }# c' [ 004        apple       22     20120601     
004        kiwi        22     20120601     
004        grape       22     20120601     
- ~1 w' T6 V$ T- ^0 d& x8 ? 005        cherry      24     20120203     
005        apple       32     20120203     
3 }2 h% |. S, a" e+ A. H 005        pear        15     20120322     
* m- }2 l/ r7 r! y5 c 005        banana      10     20120322     
005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
- s( c5 t  ]5 _1 O* q0 \9 s8 L 005        kiwi        22     20120601     
005        grape       22     20120601     
8 J0 \- P3 x$ h# P- e* B 005        kiwi        25     20120616     
005        grape       25     20120616