数学建模社区-数学中国

标题: sas 程序急问---订单中水果的各种组合计数 [打印本页]
作者: bunny2012    时间: 2012-9-28 12:52
标题: sas 程序急问---订单中水果的各种组合计数
各位大虾，现在要给订单中水果的各种组合计数，我要崩溃了。, n4 Q! D* d) f  v: J' m+ ]
之前有一位好心人提供帮助，可惜结果不对。 请高人帮忙吧  ！; m6 [, b" {0 z' i

9 V. F5 ]6 P+ \* C& U订单如下：大概是同一个客人在同一天可能挑几种不同的水果买。总共有很多水果，客人是随便买的，但有的水果组合出现的次数比别的组合高。将同一个客人在同一天购买的几种水果视为一个组合。( D+ m0 [' }& }5 b
要统计的结果主要想体现出水果间的相关性。最后将找出相关性最大的水果（即 出现次数最多的组合）3 M& x7 S- W1 |* w6 T, S
1、计算所有水果组合的出现总次数，找出最受欢迎的组合。
3 Y) c) N+ K, ~. m; O2、制成一个水果二维表。对角线表示组合里只有一种水果（同一个客人在同一天即只买了此种水果）。其他表示组合里同时出现这两种水果的次数。（当然有的人一天买多于2种）
/ T+ L) `$ I$ g: P+ p0 ` & i5 i' D) D: a& I2 f( @: \
表结构：6 [' |% c% v7 X. w
fruit  apple  kiwi ... grape      5 V( v; k- j* J4 I9 p
apple  组合里只有苹果              9 F+ @: o  y# P
kiwi                                  ! D9 _) D! m0 a
.                                    
" w$ G2 s+ d3 [' H* K.                                 
# a" S; |# o+ C+ Q% Mgrape  组合里同时有苹果和葡萄的次数 6 Z& V3 C/ }2 |# {/ T) s
& A) j7 |# Z1 k" I

: f" x, ^9 @8 A( I6 E( ]/ L, t9 G订单部分如下：
- w7 G1 ~# M2 O8 s3 g, s customer   fruit       qty     date        ; L  p% Q" ~, g  ^% s- B' x+ u& P2 |* u
001        apple       17     20120101     
/ J& a5 A, F+ e7 `0 V 001        kiwi        17     20120101     $ Z2 |7 O, u' N6 z" `2 k
001        grape       17     20120101     
  {, m7 i- N+ x, ~) |. l 001        pear        23     20120129     
2 k" i( j3 K- O" k  x! ^# W! ` 001        banana      10     20120211     
# H  v+ z% ?2 K6 K2 O 001        kiwi        10     20120211     ) _* {4 k5 K) W# J
001        pear        15     20120211     
8 K9 r, _7 n( Z; D# b4 T 001        pear        15     20120222     
6 b/ r' E& ^9 T2 k 001        banana      10     20120222     ' o- w3 Y( A6 |2 D( T" }; i; k0 ?
001        lemon       22     20120711     
4 r/ ?" I2 z2 w- A8 f8 [7 b; K 002        kiwi        22     20120217     
0 g' ?. ^, H/ j 002        kiwi        29     20120320     
* K, F8 k# n9 t4 i* P; a* p 002        corn        29     20120320     
* p: q* S( H" l" g$ w) g 002        peach       29     20120320     ' d/ \" ]6 G! U" q, d
002        pear        15     20120322     
% x  l: b4 x( x" |+ w0 @/ k$ m' T: { 002        banana      10     20120322     / _2 N3 c+ M9 k
002        grape       22     20120424     ! U+ \- Z9 {1 S) H! @( M# P
002        orange      29     20120424     2 u* L1 Y7 _% |3 F4 x& \7 _
002        banana      29     20120424     
' w0 h5 B0 V8 H: b 002        peach       29     20120424     " ]5 ]& ^7 m! N+ |+ Q
003        pear        15     20120122     ( h7 M* T4 f) n# [
003        banana      10     20120122     
! _5 Y& a2 C9 q8 l& x* i 003        apple       11     20120201     - U1 k$ Q) w2 V6 B3 b% p- E
003        plum        11     20120211     
1 \8 _1 ~7 L  F1 I& a2 z 003        kiwi        11     20120201     ( E" ]# E: x7 ^5 ^; p/ B5 m
003        grape       11     20120201     9 l8 A/ A; a4 T7 g
003        cherry      24     20120213     4 n) A# Z1 d1 s" J9 S4 l% r: ^
003        apple       32     20120213     
, p) J3 r# G9 ?8 G. C 003        grape       44     20120412     - o: b! J0 f) o; I9 Z# Y7 C$ o
003        pear        15     20120922     9 O* b- c! S$ }% o5 F
003        banana      10     20120922     $ y: V) _6 q8 C4 |
004        pineapple   12     20120206     & X7 n* v9 ^; f: M* M) I9 \" b
004        plum        31     20120219     1 ?; ?  k" w, M# a3 o1 ^+ ~* D  F# w5 p
004        banana      29     20120424     1 }# V6 Q9 ?( q% Q+ x9 }
004        peach       29     20120424     8 j" q: T0 J) N& s! z
004        pear        15     20120424     
0 h9 X) l4 u1 `# _3 A" p) u& P+ q 004        pear        15     20120522     % K* g; Y0 j4 J5 C6 Q& {
004        banana      10     20120522     
7 W4 P  R7 V( h/ `; ~5 G2 X  Y 004        apple       22     20120601     & E# X( D% L! W7 V$ [5 ]- e
004        kiwi        22     20120601     
" x# [( p7 P3 f& B6 _- ?' h 004        grape       22     20120601     
+ w% G/ S5 U7 s) s 005        cherry      24     20120203     ( w% T0 x5 H5 f1 k
005        apple       32     20120203     ' C  w! \5 |; \) b3 B0 x. c
005        pear        15     20120322     
' Y! e0 h* [& g; T( z 005        banana      10     20120322     , ~) H: B( Y+ f9 |% h
005        orange      20     20120411     , V; M1 h7 t6 y: ?  ^
005        cherry      30     20120421     - ]' H+ h3 J% F: w5 G% k2 }
005        apple       22     20120601     0 N$ l( o7 G- Y0 a
005        kiwi        22     20120601     - N+ ?' Z+ q& Z' R; M6 F" t
005        grape       22     20120601     5 R/ @7 l& R; l! H1 \+ j0 B1 r
005        kiwi        25     20120616     " C( R. A& @# K' }" ~
005        grape       25     201206163 A, G# s  c0 Y3 r. B, A5 u




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5