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

bunny2012

各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。
- g$ q% z. _3 R6 }之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！
- @  w* f( w% t( V
7 M# H8 L9 p2 i/ ^: R6 t; N订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。
1 ]. D5 s; c1 y. O4 F" ` 要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
* @. h# e6 r0 S( N
0 M( D! O7 L8 F' k9 Y5 F. R表结构：
fruit  apple  kiwi ... grape      
apple  组合里只有苹果              
! p8 s. L9 c& K, ~4 y* T kiwi                                 
0 }& `% s" W+ i: B.                                    
. v3 W7 a5 N0 p, t0 S+ g.                                 
% H; @0 l# E2 K+ I8 p% V( U1 L$ ~$ xgrape  组合里同时有苹果和葡萄的次数
8 M: Q+ p9 ^4 n. s0 b3 T* U$ L
, Q* F( z: P6 o; D
订单部分如下：
customer   fruit       qty     date        
001        apple       17     20120101     
  ]& |( W2 M. c- I5 A) A" b3 | 001        kiwi        17     20120101     
& j- @: D0 k8 Y/ d3 z 001        grape       17     20120101     
001        pear        23     20120129     
001        banana      10     20120211     
9 P* ~$ V; ~; ? 001        kiwi        10     20120211     
! @! p) T% |: [1 p, F# [' x 001        pear        15     20120211     
001        pear        15     20120222     
001        banana      10     20120222     
001        lemon       22     20120711     
002        kiwi        22     20120217     
; Z% U, M0 W: @! T" x- B 002        kiwi        29     20120320     
002        corn        29     20120320     
002        peach       29     20120320     
8 G$ I+ y5 f' X& P8 Z' b" I# L 002        pear        15     20120322     
3 `& H: @/ G: u8 ~ 002        banana      10     20120322     
002        grape       22     20120424     
002        orange      29     20120424     
002        banana      29     20120424     
002        peach       29     20120424     
003        pear        15     20120122     
0 ~. D3 Y. P4 h# c0 o8 J9 ~ 003        banana      10     20120122     
. y& p. K- ~  ~ 003        apple       11     20120201     
1 Y* Q( T% y! }4 T, | 003        plum        11     20120211     
8 N2 D2 m: H3 ~; q! J- a: t 003        kiwi        11     20120201     
003        grape       11     20120201     
003        cherry      24     20120213     
, L/ y: B0 ^  P& L" |% @# X 003        apple       32     20120213     
003        grape       44     20120412     
003        pear        15     20120922     
003        banana      10     20120922     
( F1 @) X# X1 W; C( I' W' P% r9 u+ T 004        pineapple   12     20120206     
004        plum        31     20120219     
004        banana      29     20120424     
004        peach       29     20120424     
004        pear        15     20120424     
" S& c7 c" O! d  }* G- B 004        pear        15     20120522     
- ^) s8 H( h7 U' p" g) l- ]- @ 004        banana      10     20120522     
& M' l+ J6 u+ o+ i6 N3 c* v! f 004        apple       22     20120601     
, z8 f' x( M1 `. e( i2 @" x0 r 004        kiwi        22     20120601     
1 {. _$ H8 f$ g" d1 N3 k 004        grape       22     20120601     
1 Q5 i% g! c* ?# B( c 005        cherry      24     20120203     
005        apple       32     20120203     
005        pear        15     20120322     
! F5 `1 g+ w5 S( d' l2 ?" k8 n. a 005        banana      10     20120322     
) F  E5 M* U  ^8 l% Z. q8 O 005        orange      20     20120411     
005        cherry      30     20120421     
7 e& K2 M* H  j6 e 005        apple       22     20120601     
8 C- j4 B/ z/ B- W 005        kiwi        22     20120601     
& c# u; M+ e; g/ @! j+ U9 a: k 005        grape       22     20120601     
005        kiwi        25     20120616     
005        grape       25     20120616
$ Y0 b, a; Q& F