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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
% \. y$ x; ]5 \, Y3 M+ a
% X$ F# W# W8 Q订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
/ `  L! u: D! D" U9 I& ?
表结构：
0 b8 ~  o$ k5 O6 } fruit  apple  kiwi ... grape      
! n# D1 P  {0 N, ?; p3 K apple  组合里只有苹果              
kiwi                                 
; C, P: d( i9 X4 h.                                    
) s# c- j4 M9 U, H4 ?$ I.                                 
grape  组合里同时有苹果和葡萄的次数
$ A/ E1 G- o0 U8 m
4 m& m3 ]6 R, N- {& m
订单部分如下：
customer   fruit       qty     date        
4 g2 w' z1 F! ^5 I$ i- L 001        apple       17     20120101     
& g7 n. P" @& @ 001        kiwi        17     20120101     
$ M0 ^8 m" k" T% E$ K 001        grape       17     20120101     
+ H$ a" G4 x, E# l8 e8 w6 o+ ?, O 001        pear        23     20120129     
001        banana      10     20120211     
001        kiwi        10     20120211     
001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
2 z- L( l4 E" }  N 001        lemon       22     20120711     
) e: C" H4 X% x! d( T( Q 002        kiwi        22     20120217     
002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
002        pear        15     20120322     
002        banana      10     20120322     
& `6 ^; C* ]7 x$ z* c, o$ {3 \  e: h 002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
5 Y3 W! Q/ _* J+ ~6 _  X 003        pear        15     20120122     
' V! ~1 n$ d8 s' H# v 003        banana      10     20120122     
003        apple       11     20120201     
003        plum        11     20120211     
# ^% a% V, g" T/ I$ b- U$ d3 Q( c 003        kiwi        11     20120201     
003        grape       11     20120201     
) `( y" ]$ E4 m7 L$ q 003        cherry      24     20120213     
1 s0 Z, \; `2 d2 L! S 003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
* S0 t1 U/ }$ @* t. S: r 003        banana      10     20120922     
4 }9 E  g3 h! }: x) f% e8 r 004        pineapple   12     20120206     
$ s( Z( Y" ^4 h  b; t 004        plum        31     20120219     
004        banana      29     20120424     
3 P7 \8 m* t9 O- Q. S 004        peach       29     20120424     
4 j# q! u; N8 B  @, b 004        pear        15     20120424     
004        pear        15     20120522     
004        banana      10     20120522     
3 H; p# d: l" i# v7 Y 004        apple       22     20120601     
+ S. M# v  g& r7 N 004        kiwi        22     20120601     
004        grape       22     20120601     
005        cherry      24     20120203     
- ]% ?8 ~/ T  u5 J. p 005        apple       32     20120203     
. I- }1 Z( u- @0 Z# Y. M7 T 005        pear        15     20120322     
4 E, ~1 k* n$ q# p( A+ ^ 005        banana      10     20120322     
, {8 K- E8 q" {5 e3 L 005        orange      20     20120411     
005        cherry      30     20120421     
005        apple       22     20120601     
" T0 U/ B- B! f6 J6 g 005        kiwi        22     20120601     
005        grape       22     20120601     
005        kiwi        25     20120616     
/ h# G! x0 e6 U& c( U: D9 Z9 c 005        grape       25     20120616