数学建模社区-数学中国

标题: 数学建模--灰色关联分析 [打印本页]

作者: 杨利霞    时间: 2020-4-13 16:26
标题: 数学建模--灰色关联分析

- N+ H/ `6 C# }7 ~1 R数学建模--灰色关联分析写在前面:
. W, k* Q2 i6 j; ^7 y& g$ U笔记为自行整理,内容出自课程《数学建模学习交流》,主讲人:清风- A: M& t4 X% B9 i5 E; \. y
# O7 r5 C! R( l( {3 d& J% m
灰色关联分析概述" c2 e8 ^, m$ p* A, E8 o

) T. u2 E8 T6 b$ |# k" L8 o一般的抽象系统,如社会系统、经济系统、农业系统、生态系统、教育系统等都包含有许多种因素,多种因素共同作用的结果决定了该系统的发展态势。人们常希望知道在众多的因素中,哪些是主要因素,哪些是次要因素;哪些因素对系统发展影响大,哪些因素对系统发展影响小;哪些因素对系统发展起推动作用需强化发展,哪些因素对系统起阻碍作用需加以抑制;…这些都是系统分析中人们普遍关心的问题。例如,粮食生产系统,人们希望提高粮食总产量,二影响粮食总产量的因素是多方面的,有播种面积以及水利、化肥、土壤、种子、劳力、气候、耕作技术二号政策环境等。8 X8 ?* ?' R$ H) B

# N& E  ^" b8 |  v+ {, L( p为了实现少投入多产出,并取得良好的经济效益、社会效益和生态效益,就必须进行系统分析。
: }) w: c7 [$ l5 m. c) \
3 e; |! d2 ~" A; {7 b$ C1 W数理统计中的回归分析、方差分析、主成分分析等都是用来进行系统分析的方法。这些方法存在以下问题:
# ?3 F2 M+ ~) n0 Y# P# U6 x* i7 s$ t4 C7 d
要求有大量数据,在数据量少、不满足大样本要求时上诉方法均失效。
1 B% I! n3 V- }6 ?5 I" E' z要求样本服从某个典型的概率分布,要求各因素数据与系统特征数据之间呈线性关系且各因素之间彼此无关。这种要求往往难以满足。
+ _9 _2 o4 D( j9 o; Y9 Y8 H计算量大,一般要考计算机帮助。2 d# c- @+ p1 i$ U5 s7 I$ p  L) w$ l4 g
可能出现量化结果与定性分析结果不一致的现象,导致系统的关系和规律遭到歪曲和颠倒。3 e7 R" `1 J! d6 H6 k8 x. M
灰色关联分析的基本思想是根据序列曲线几何形状的相似程度来判断其联系是否紧密。曲线越接近,相应序列之间的关联度就越大,反之就越小。# b" n8 f1 B. D" F; A  l; }% y
参考:刘思峰.灰色系统理论及其应用(第五版)[M].北京:科学出版社,2010:62.) L  b3 j; `% }, Y) x
应用:进行系统分析# E: d, f" o; s2 c
8 |+ W7 p8 j. T

0 D6 S( T" A9 Y% m  p( G8 [  J6 I
①. 画统计图
. E7 q& w1 `7 c
8 P/ _1 [4 v( p, ]+ i3 K/ s* Y/ e$ ^; c, p7 l
进行简单的分析:) ^; X# n/ y/ f$ n* Q: K3 Z

( M0 W  e: p  D$ ^1 O  Q' i2 e四个变量均呈现上升的趋势。$ k$ H. J3 ^5 w0 l  E+ s" n" }
第二产业的增幅较为明显。
8 D* M, V( s7 L  x第二产业和第三产业的差距在后三年更大。
3 C3 r3 I( g4 R/ {②. 确定分析序列
# H' d5 o- A2 O- {! E$ ^# R- F2 C5 f% d
母序列(又称参考序列、母指标):能够反映系统行为特征的数据序列。
' n1 l3 Q* l2 F% r子序列(又称比较序列、子指标):影响系统行为的因素组成的数据序列。
& L& f/ x' W/ n本例中,国内生产总值就是母序列,第一、二、三产业是子序列。) n# `& d4 b4 [- |$ l
# N* [! X1 C2 C! u& y+ S5 h" u% C
③. 对变量进行预处理(消去量纲,缩小变量范围简化计算)1 H  P5 U2 w5 n8 y% q

8 y4 ~1 P# P( \  p  W5 w方法:对每个指标中的元素,用该元素除以所在指标的均值1 }3 a* K- J5 I; G2 p8 B  [% U; C$ L

1 `$ O! ]) N7 R% \$ G$ ?④. 计算子序列中各个指标与母序列的关联系数
5 o6 z5 R: a4 c$ B7 u. h1 E  ]1 Y/ T
, ~% m# q4 l0 y3 a; v% V5 l) |
x0=(x0(1),x0(2),...,x0(n))T x_0=(x_0(1),x_0(2),...,x_0(n))^Tx
  ^& _' t' I+ l' m2 G0: C, t' O9 a; K5 ?) T! f
​        + |9 h. x0 v1 y0 p
=(x
  l  F4 K1 T; U* @0# O! v% P& S% D) Z! j) `4 A, v
​        / d4 P& x: ~* d2 j
(1),x 4 o8 I! H5 f/ ?
0$ ^' t& d4 r* h6 F6 \/ V$ B; `" l, j
​       
7 M2 I$ P( ~# I8 @  o0 \3 t. C. ?4 k (2),...,x
! g9 p6 a) d- F2 M2 C01 Y, p) K" Z. J- a- @0 \
​        - m! z3 C& l1 @/ G0 b9 k: k! O
(n))
! u$ [- D/ [- P# J, O* ST0 v  n! x5 j  \, U  j2 W7 F0 K" n$ ?8 o

, V/ i6 u9 Y; _4 v6 @6 fx1=(x1(1),x1(2),...,x1(n))T x_1=(x_1(1),x_1(2),...,x_1(n))^Tx . Q9 i/ l, L& `0 j6 d) Y6 H
1
- n4 o3 t" l% x& W8 \​        " {: Q' I4 }( r1 Q) Y( `8 W
=(x
, V3 P/ h. h; P& d+ q# h$ ~1
6 f2 x4 s4 J. V1 I7 s7 m​       
- M* K# t! H) x8 c! m- }* t (1),x
" D' v- v/ x2 x, p5 ]8 n! A& U1- M( Z  B% D5 I5 D
​        ' ~+ d* }+ e  W$ {; Z4 ~1 u1 w
(2),...,x ; X, P- M7 h8 H" |( ?4 o# w
1
2 J3 N- n, V8 U( W​        $ w: I: A; |! ?
(n)) , G: L6 x! h! u: \! w: w2 Z
T
& e# l7 J; R+ J2 Z4 Q" X1 l5 l9 J+ z! H1 x; e8 V/ A
x2=(x2(1),x2(2),...,x2(n))T x_2=(x_2(1),x_2(2),...,x_2(n))^Tx
" q6 X" h/ |/ u7 O27 ]7 C0 C2 d6 j* B# A1 E
​       
: ^8 _, H& Y. |* h: t2 x =(x $ a& [) ^1 J+ t9 n
2
# o; \8 |( z1 ?  U0 G​        $ `# D' V- F* F1 a0 P
(1),x
) U. x1 O. O  F  ^0 d1 {! l2/ c4 _& s8 l! F( h" x1 c4 W
​       
8 ~+ v/ m& Q8 S (2),...,x ) ?* t6 R% U8 z' r
2
: ?4 J" ?4 w' D1 u) j​        - C# t# S* V" r- Z
(n)) + L2 ~- Z: u% V( E9 _) U$ M
T8 \( x6 {& a% s. ^

$ x6 K5 v' V7 C" o; s5 yx3=(x3(1),x3(2),...,x3(n))T x_3=(x_3(1),x_3(2),...,x_3(n))^Tx 3 F; W4 a4 w. c3 k4 D
3
3 e3 b9 m0 o" \​       
/ h& d" @" f( P3 m, { =(x
: N: l3 U+ e0 a: p9 q3
* ^1 [/ Y2 V* J1 Q0 h​        7 L5 D/ Y2 a8 [, [8 P* Z
(1),x
" z# b# x( V+ _, Y: S6 W, |+ |  s35 V' c( Y( G" ?2 s4 }
​       
+ S+ j: Y8 B7 {4 d (2),...,x 7 u9 y: h0 U/ S& d4 r2 l& x
3( u2 M' Z( O) k7 ?) A: ?
​       
/ O" p) Q* g6 g+ @+ f (n))
( i5 \' H  C: [: R4 ?T9 Y, {/ ]5 _# t( B0 G, J% n& G
* g  J3 f3 Z$ R3 @. i) ~# J, w
记a=min∣x0(k)−xi(k)∣ a=min{|x_0(k)-x_i(k)|}a=min∣x % l. A# U! K3 @6 N) M9 o6 t+ Q
0
$ m" q% M) W# _4 I# v& X7 p3 M​        # L3 L/ i# Y$ m! b9 f+ P
(k)−x & G# A/ S/ Y4 U; X, Y
i* U& ^1 ^4 i6 |/ f, j5 ^* s5 O
​        ; ]8 M1 |0 R' A9 b. _
(k)∣(每个子序列中的每个元素减去对应的母序列中的元素,找到最小的那个),b=min∣x0(k)−xi(k)∣ b=min{|x_0(k)-x_i(k)|}b=min∣x : i6 _3 i3 w) Q8 O$ V5 Y5 c
0
7 I  ]6 ]7 J1 V- f3 V6 O3 S% w/ l​        4 F4 r4 ^% a+ N0 B( Q* U, y
(k)−x . ?: T& o8 m: A8 {& j9 X/ T
i
9 ^! x! g. |) n7 n​       
# \- ]- J' x5 R$ ~' A: J (k)∣
7 D- m/ k, |7 }' o% J6 S( z! ~: L5 m# ca aa为两级最小差,b bb为两级最大差。
5 |3 u$ S* D" B5 w; j
; V) K: y- ]& O* u7 z定义:γ(x0(k),xi(k))=a+ρb∣x0(k)−xi(k)∣+ρb ρ:分辨系数(一般取0.5) \gamma\left( x_0\left( k \right) ,x_i\left( k \right) \right) =\frac{a+\rho b}{|x_0\left( k \right) -x_i\left( k \right) |+\rho b}\ \rho \text{:分辨系数(一般取0.5)}γ(x : q6 D) g2 f+ N5 S* C" f8 b
0  z6 k( G  R6 a* k3 d2 o
​        . ], x1 |6 N5 w- c3 L8 K9 p
(k),x - v% U* ^- Q6 K: X, W: D
i2 u3 d) H0 b  A* W) w' b3 ?
​        . d! @* ~. r. L* p- W  i# i% c! }
(k))= , d  |: J0 d2 A. q5 Y& P' z
∣x
( e7 Y6 m# V0 M. [0! W  |: U. o1 N& E& E7 F! b
​        2 E+ f( J8 G) i* j- @" @
(k)−x ! Q# J6 t( A( l
i0 f6 F3 h5 c0 y
​        / G% w- k- a: ~2 b; v3 z# @) |' f
(k)∣+ρb
5 _) {7 y1 A0 F4 aa+ρb
9 I7 B8 h% g5 \' U) M5 n/ ~​       
' z9 o# |+ B" G! v9 l: A/ W  ρ:分辨系数(一般取0.5)
3 j+ {, U  e. s; Q) f# @: n" u) S7 r/ Q! D

: y  P. ~; I) A8 o& y6 b) l⑤. 定义γ(x0,xi)=1n∑nk=1γ(x0(k),xi(k)) \gamma \left( x_0,x_i \right) =\frac{1}{n}\sum_{k=1}^n{\gamma \left( x_0\left( k \right) ,x_i\left( k \right) \right)}γ(x $ p2 Z+ i' R( N" t
0' z$ t6 T1 S0 x4 ?) M' }4 ~& b
​       
7 L% B  g) R) X* j* W% [ ,x # J0 U$ x: }! e7 V
i
6 C; V1 L- z& I- f, E# o7 X​       
/ M8 N5 t* f/ p, t; X )= " S8 I! N7 Q7 P+ M- ^
n) T1 d9 p" s* C& f
1
. v- }6 z  q2 u3 O1 \: B9 {6 {1 q​        " k2 y: V# j3 |

: G+ y% Y' I) M+ `1 T$ q4 `4 Q; q$ yk=1
" @6 d$ D6 B  pn
3 u9 E4 Z' D  H2 J​        ; k* a# g) x# L6 D4 h& |
γ(x
. G5 D" R8 p1 U& c! |. f* b0; r: E# [: z5 e- B# o% ]
​       
- Q: P5 D5 W! @8 }4 y0 r (k),x
/ `) S" ^9 y) n% Z3 p3 W2 di
" x; V: L/ E& K/ o7 u​          R6 }. f" W; x( }
(k)) 为x0 x_0x ! _8 @2 b* |7 h1 Z5 g
0
  G5 g9 |/ G$ h/ x, o+ Q% {​        6 l0 A0 w- l$ m* V; v$ c. _
和xi x_ix ! a: ]& \2 u# X6 Z% \' z6 l5 x
i% C  q4 f* h2 E  a/ d
​       
; d0 X# k2 Y# _! a 的灰色关联度) K- o3 ^: E1 d/ e( C- G

9 i! ~; [3 @$ S  D/ |, R# A/ `' ~7 xγ(x0,x1)=0.5084,γ(x0,x2)=0.6243,γ(x0,x3)=0.7573 \gamma(x_0,x_1)=0.5084,\gamma(x_0,x_2)=0.6243,\gamma(x_0,x_3)=0.7573γ(x . u: Z3 k7 J# b8 n0 R4 A
0
8 q: I; q$ d( c3 m% G1 ~3 J7 y8 ]​        ! d# g6 }2 ~( R) |
,x " n! k5 |( S* K5 J( j
1
+ N" B. F$ d- ^' X5 U​       
# g* P, r; `! r" f' u" [0 s )=0.5084,γ(x % N, ?6 X$ Z# x+ U% K5 X6 \
0" g$ O+ {- F) c
​       
  O$ a& R7 v4 n" j  _7 ] ,x 8 y% G- E7 E; A+ @. p
2
  v/ T! z  s" ]; y, ^- f* a​        / k6 u! t3 u! i% y  Q: C; Q2 ~
)=0.6243,γ(x
* k$ I3 C7 t8 o* l" H0" c% a: z1 [8 v9 R2 i& K
​        & s2 b6 @: Y3 W( Y# U3 J
,x 2 W: o5 [' h+ x+ b- d% m
3, a0 Y3 n+ D! C" H  o) C7 r
​       
3 j4 O0 \0 h5 D0 \" E7 J )=0.7573
- d/ T- D  \. V" {& m; v4 J8 j- ?' @5 m6 W# p. Z
⑥. 通过比较三个子序列和母序列的关联度可以得到结论:该地区在2000年至2005年间的国内生产总值收到第三产业的影响最大。* R- Q2 B5 V$ }2 ~, q" z) A1 S9 t
. k/ n9 V6 J. b$ Y' D- @5 H5 q
代码(python实现)' W1 T* R0 O: S+ b8 h; V

! e! G" W8 n: ~import numpy as np) W& ~, w9 f8 I1 y. s
x_mat = np.loadtxt('gdp.csv', encoding='utf-8-sig', delimiter=',')  #推荐使用csv格式  M& K0 F/ r+ s/ H- \
1$ w$ Q0 m* S6 u/ E$ u
21 O% k+ z$ R* {9 i. Z% U
## 定义函数求解关联度
5 V6 [1 z/ A% R+ Udef gray_analysis(x):5 e  }- x% J: K* C) [1 y& Z: @
    x_mean = x.mean(axis=0)1 w0 \. |1 v9 q) D8 c
    x = x/x_mean6 y9 h9 W4 C2 N" X( A
    Y = x[:,0]  #提取母序列. @% g/ v# x% W$ ^/ ?6 ?9 A8 [
    X = x[:,1:]  #提取所有子序列  q# e: _, i" a" F: _
    abs_x0_xi = np.abs(X-np.tile(Y.reshape(Y.shape[0],1),(1,np.shape(X)[1])))
: _2 Z  @: |) y% k    a = np.min(abs_x0_xi)
5 q6 b3 A% K  d. W7 Z4 S4 t! ]    b = np.max(abs_x0_xi)' |, [2 W' _% r$ L& I" T5 |
    rho = 0.56 @5 b  w: }. N: r2 A; m
    gamma_mat = (a+rho*b)/(abs_x0_xi+rho*b)
; ?! w0 w9 p1 O4 r9 g$ E& E    corre_degree = np.mean(gamma_mat,axis=0)1 s  M9 d& \8 t1 N! j
    print("子序列中各个指标的灰色关联度分别为:",corre_degree)
. `9 r7 S9 i" ?* C' d2 J; D————————————————+ g9 r5 D2 ]/ B+ `* O# B
版权声明:本文为CSDN博主「脑汁」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
+ T' R0 h* l, v8 ?! W1 f) Y+ u原文链接:https://blog.csdn.net/ddjhpxs/article/details/1054872615 ?3 ]. g. R" w8 V0 R! [2 P5 d
0 A3 q7 s3 q* {* A, C5 G4 V% w: m
# w; R1 B' v- [$ z; i$ G

作者: xiEnqing    时间: 2020-4-16 21:13
听说回帖加体力~
( p. R; b% G" z0 T2 Y: @" s




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