数学建模方法-灰色预测法

杨利霞

数学建模方法-灰色预测法一、引言

  大家好，今天是第三天，前两篇博文用到的数学建模方法应用的数学知识还比较少，在这一篇章，需要的数学知识变多了，大致需要一些高等数学中导数部分的知识，大家如果忘了的话记得自己去补哈。好言归正传，今天要讲的到底是什么方法呢，就是那个很出名的“灰色预测模型”啦。好了开讲咯！

二、灰色预测模型2.1概念2.1.1 灰色系统、白色系统、黑色系统

  在讲灰色预测模型的概念时我想先跟大家介绍三种系统。

• 白色系统：指一个系统的内部特征的完全已知的，即系统信息是完全公开的。
• 黑色系统：与白色系统相反，指一个系统的内部信息对外界来说是一无所知的，只能通过它与外界的联系来加以观测研究。
• 灰色系统：介于白色系统和黑色系统之间，即系统内一部分信息是已知的，但另一部分信息是未知的，系统内各因素间有不确定的关系。
  # N' l# Y: _  ~4 e' p) c' T

  一般我们在生活的过程中，大多遇到的系统是灰色系统。因此，我们就需要利用灰色系统内那部分公开的信息，来建模推测出隐藏的信息。这就是灰色预测模型。

2.1.2 灰色预测法

• 灰色预测法是一种预测灰色系统的预测方法。
  3 H3 l) `! h" B0 s( ?: h) ~$ M

  目前常用的一些预测方法（如回归分析等），需要较大的样本，对于少样本的情况就会造成比较大的误差，使预测目标失效。而灰色预测模型所需的建模信息少、运算方便、建模精度高，因此在各种预测领域都有着广泛的应用，是处理小样本预测问题的有效工具。

• 灰色预测通过鉴别系统因素之间发展趋势的相异程度，即进行关联分析，并对原始数据进行灰色生成来寻找系统变动的规律，生成有较强规律性的数据序列，然后建立相应的微分方程模型，从而预测事物未来发展趋势的状况。
  3 ]. u/ B5 ?" Z* [

2.2 关联分析

  首先什么是关联分析呢，实际上，关联分析时动态过程发展态势的量化比较分析。所谓发展态势比较，也就是系统各时期有关统计数据的集合关系的比较。

举例来讲，某地区2010-2018年的总收入与养鸡和养猪收入资料如下表格。

* P0 ]* h! W+ ], t

	2010	2011	2012	2013	2014	2015	2016	2017	2018
总收入（万元）	16	21	22	21	21	20	20	19	25
养猪（万元）	12	15	14	16	14	16	13	10	15
养鸡（万元）	4	6	8	5	7	4	7	9	10

  根据上述表格，可以画出曲线图，如下：

  由上图易看出，蓝色曲线 (总收入)与橙色曲线(养猪收入)发展趋势比较接近，而与灰色曲线(养鸡收入)相差较大，因此可以判断，该地区对总收入影响较直接的是养猪业， 而不是养鸡业。

  很显然，几何形状越接近，关联程度也就越大。但是，对于一些稍微复杂的问题，如果不容易画出图，那就很难通过直观的手法来分析。这时就需要我们的灰色生成方法了。

2.3 灰色生成

  原始数据列中的数据，按某种要求作数据处理，这样的一种方法叫做生成。

  灰色系统理论认为，尽管客观表表象复制，但必定蕴含某种内在规律的，关键如何去发现这样的一个规律。灰色生成就是为了从灰色序列中去找出内在的规律，从而能判断事物的发展趋势。

  常用的灰色生成法有：累加生成、累减生成和加权累加生成。接下来我们就来以此介绍它们。

（1）累加生成（AGO）

  假定原始数列为x(0)=(x(0)(1),x(0)(2),⋅⋅⋅,x(0)(n))

，令

x(1)(k)=∑ki=1x(0)(i) , k=1,2,⋅⋅⋅,n

x(1)=(x1(1),x1(2),⋅⋅⋅,x1(n))

# h* \: K( s; y, o

  则称x(1)

为数列x(0)

的1次累加生成数列。若继续推广，有

x(r)(k)=∑ki=1x(r−1)(i) , k=1,2,⋅⋅⋅,n, r≥1

8 p$ \" X4 \; r$ l6 d  D

  x(r)(k)

称为x(0)(k)

的r次累加生成数列。

（2）累减生成（IAGO）

  假定原始数列为x(1)=(x(1)(1),x(1)(2),⋅⋅⋅,x(1)(n))

，令

x(0)(k)=x(1)(k)−x(1)(k−1) , k=2,3,⋅⋅⋅,n

  则称x(0)

为数列x(1)

的1次累减生成数列。可以看出，通过累加数列得到的新数列，可以通过累减生成还原出原始数列。

（3）加权邻值生成

  假定原始数列为x(1)=(x(1)(1),x(1)(2),⋅⋅⋅,x(1)(n))

，称任意一对相邻元素x(0)(k−1),x(0)(k)互为邻值。对于常数α∈[0,1]

, 令

z(0)(k)=αx(0)(k)+(1−α)x(0)(k−1), k=2,3,⋅⋅⋅,n

" p; O2 k9 q! L) Y) W% N

  由此得到的数列称为邻值生成数，权α

也称为生成系数。特别地，当生成系数α=0.5

，则称该数列为均值生成数，也称为等权邻值生成数。

2.4 灰色模型GM(1,1)

  灰色模型是利用离散随机数经过生成变为随机性被显著削弱而且较有规律的生成数，建立起的微分方程形式的模型，这样便于对其变化过程进行研究和描述。

  G表示grey（灰色），M表示Model（模型）；

  首先，定义x(1)

的灰导数为

d(k)=x(0)(k)=x(1)(k)−x(1)(k−1)

0 r. g1 u0 p( X$ U- h0 r  {

  令z(1)

为数列x(1)

的邻值生成数列，即

z(1)(k)=αx(1)(k)+(1−α)x(1)(k−1),

  好的。接下来我们要定义最重要的一个方程了，就是GM(1,1)的灰微分方程模型：

d(k)+az(1)(k)=b

或 x(0)(k)+az(1)(k)=b

% O( h  K0 L! \; p5 ~: \) \' ?  }

其中，x(0)(k)

称为灰倒数，a称为发展系数，z(1)(k)

称为白化背景纸，b称为灰作用量。

  将k=2,3,...,n

代入上式，有

" d% u  g, Y& X4 U' j2 z

x(0)(2)+az(1)(2)=b

, t$ P8 c7 C0 M  m

x(0)(3)+az(1)(3)=b

⋅⋅⋅
. x3 Y# l8 b3 U6 V4 v( S. Ox(0)(n)+az(1)(n)=b

引入矩阵向量记号：

u=[ab]

Y=⎡⎣⎢⎢⎢⎢x(0)(2)x(0)(3)⋅⋅⋅x(0)(2)⎤⎦⎥⎥⎥⎥ B=⎡⎣⎢⎢⎢⎢−z(1)(2)−z(1)(3)⋅⋅⋅−z(1)(n)11⋅⋅⋅1⎤⎦⎥⎥⎥⎥

  于是GM(1,1)模型可以表示为

Y=Bu

! i/ V$ d6 O% V" [- w( N

  那么现在的问题就是求a和b的值，我们可以用一元线性回归，也就是最小二乘法求它们的估计值为

u=[ab]=(BTB)−1BTY

5 S+ R- J4 K5 O0 r2.5 GM(1,1)的白化型

  前面我们定义的模型是在离散的情况下，那么针对连续时间t

，则之前的X(1)视为时间t函数，于是灰导数x(0)(k)变为连续的导数dx(1)(t)dt，白化背景值z(1)(k)对应于导数x(1)(t)

。于是GM(1,1)的灰微分方程对应的白微分方程为：

dx(1)(t)dt+ax(1)(t)=b

三、GM(1,1)灰色预测的步骤3.1 数据的检验与处理

  为了保证GM(1,1)建模方法的可行性，需要对已知数据做必要的检验处理。

  设原始数据列为x(0)=(x(0)(1),x(0)(2),⋅⋅⋅,x(0)(n))

，计算数列的级比

λ(k)=x(0)(k−1)x(0)(k), k=2,3,...,n

  如果所有的级比都落在可容覆盖区间X=(e−2n+1,e2n+1)

内，则数列x(0)

可以建立GM(1,1)模型且可以进行灰色预测。否则，对数据做适当的变换处理，如平移变换：

y(0)(k)=x(0)(k)+c, k=1,2,⋅⋅⋅,n

  取c

使得数据列的级比都落在可容覆盖内。

3.2 建立GM(1,1)模型

  当x(0)=(x(0)(1),x(0)(2),⋅⋅⋅,x(0)(n))

满足上面的条件后，我们就可以以它为数据列建立GM(1,1)模型，即根据Y=Bu求解出u=[ab]

。相应的白化模型为

dx(1)(t)dt+ax(1)(t)=b

6 i1 G0 ~& x( F& ?/ c

这是一个微分方程，可以求解得到：

x(1)(t)=(x(0)(1)−ba)e(−a(t−1))+ba

于是得到

x^(1)(k+1)=(x(0)(1)−ba)e(−ak)+ba, k=1,2,⋅⋅⋅,n−1

因此得到预测值为：

x^(0)(k)=x^(1)(k)−x^(1)(k−1) , k=2,3,⋅⋅⋅,n

3.3 检测预测值

  模型选定后，一定要经过检验才能判定其是否合理，只有通过检验的模型才能用来作预测，灰色模型的精度检验一般有三种方法：相对误差大小检验法、关联度检验法和后验差检验法。下面主要介绍相对误差大小检验法和后验差检验法

3.3.1 相对误差大小检验法

ε(k)=x(0)(k)−x^(0)(k)x(0)(k), k=1,2,⋅⋅⋅,n

7 W  F4 H% f( o

  如果对所有的|ε(k)|<0.1

，则认为到达较高的要求；若对所有的|ε(k)|<0.2

，则认为打到一般要求。

3.3.2 后验差检验法（方差C检验法）

• 原始数列：x(0)=(x(0)(1),x(0)(2),⋅⋅⋅,x(0)(n))
  

• 建模后算出的数列：x^(0)=(x^(0)(1),x^(0)(2),⋅⋅⋅,x^(0)(n))
• 残差序列为E=(e(1),e(2),⋅⋅⋅,e(n))
  

• 
  & w) }  B; `1 A. I. N8 M9 b+ \3 z

  其中，e(k)=x(0)(k)−x^(0)(k), k=1,2,⋅⋅⋅,n

  记原始序列x(0)

及残差序列E的方差分别为S21和S22

，则

S21=1n∑nk=1[x(0)(k)−xˉˉˉ]2

- q4 E: E. `' A2 o

S22=1n∑nk=1[e(k)−eˉˉˉ]2

  其中，xˉˉˉ=1n∑nk=1x(0)(k)

，eˉˉˉ=1n∑nk=1e(k)

  则后验差比为：

C=S2S1

  指标C

是后验差检验的重要指标。指标C越小越好。为什么这么说呢？这是因为，C越小就表明S1大而S2

越小。

  那S1

大表明什么，它表明原始数据方差大，这也就说明原始数据的离散程度大。

  那S2

小又表明什么呢，它表明残方差小，也就是残差的离散程度小。

  因此，C

小就表明尽管原始数据很离散，但模型所得的计算值与实际值之差并不太离散。这样得到的数据可靠性就越强。这样讲是不是就懂啦。。

  下面附一张精度检验等级参照表

模型精度等级

均方差比值C

1级（好）	C≤0.35

2级（合格）	0.35<C≤0.5

, j% {( P; n9 |0 c8 I5 h5 F: h

3级（勉强）	0.5<C≤0.65

8 Q" w3 k* p3 E6 Z

4级（不合格）	0.65<C

8 O& k, w/ N* f- N$ w6 c
& v# R% o& H; y8 ^四、GM（1,1）模型的Matlab代码

• 
  ' \9 C8 {6 U  a
  / {2 d2 f% A# X) v) ~7 Q%%构建GM模型计算出a和b
  0 r* s4 O( P  y3 @
• 
  
  " w- _" I6 S  v- W: s9 s: z( l
  1 Y8 q! f( j2 z2 m2 }4 [6 Q+ f9 ]
• 
  : K, g/ v% V! R) M' j* \- E
  %建立符号变量a(发展系数)和b(灰作用量)
  & n0 r' `0 ^9 m7 j6 `
• 
  
  1 V' q3 Q) n6 |! n8 _0 N( tsyms a b;
  
• 
  
  3 e7 R7 L: R2 B3 D: bu = [a b]';
  
• 
  6 c6 C2 }( F; h  M* R* @% `
  1 B) ?, c, M' T
  
• 
  : T. s7 T6 G& K& Y
  ' K' G0 M+ h; w/ \4 E/ A%原始数列X0
    h) @1 x0 e" s. ?  y- _0 S- w  |
• 
  
    o0 j" o: i# Z: ~) K0 D- dX0 = input('请输入数据');
  
• 
  
  " @; O1 }) X1 ]' {: M& on = length(X0);
  
• 
  
  # v- \4 F: K! [, J6 C+ g4 w
  
• 
  / E( }7 `& {' X* I
  %对原始数列X做累加得到数列X1
  8 }7 }: S. R$ s9 ^  k2 d$ ]$ [
• 
  
  2 H7 o7 @  @7 n- a1 xX1 = cumsum(X0);
  
• 
  ( a+ X# n" C& |; }4 M5 }
  5 y4 T" c. Y8 W; ^( j" F: z* _
  
• 
  , R) W. ^, M& b6 [
  %对数列X1做等权邻值生成Z1
  
• 
  , X& M4 G8 q+ y4 R& t& P
  for i = 2: n
  
• 
  , H. m; r/ S6 ^2 w8 j, ]1 `7 o
      Z1(i) = (X1(i) + X1(i - 1)) / 2;
  
• 
  ( k3 H. e7 V  n4 g! H3 h
  end
  $ H: a( t4 q  u$ y" M. ^8 k$ |0 Y7 @
• 
  
  Z1(1) = []; %去除掉第一个元素
  ( r( T- q0 L8 U/ S
• 
  
  
  : {8 e+ b# R$ _5 o8 r
• 
  0 t. A  }/ r  o( P1 N
  %构造数据矩阵
  2 x3 |1 Y! n& l4 Z5 M7 O/ o7 B
• 
  . I& \+ L. v1 ]" f
  B = [-Z1; ones(1, n - 1)]';
  
• 
  6 a4 j- C$ [5 z) E0 O6 q
  6 w: n+ W- Y8 `3 C, BY = [X0]';
  
• 
  ! q* A, T) [6 B% v" z: V5 |
  Y(1, :) = [];   %去除掉第一个元素
  8 u6 `+ Z* Y  V4 v5 c9 U7 s9 c
• 
  
    O0 e4 ]1 D9 D' E, Y0 c
  
• 
  
  %利用u = inv(B'*B)*B'*Y来求解
  - V: A* Q$ [; v* q
• 
  
  u = inv(B'*B) * B' * Y;
  
• 
  2 X3 x4 G4 B1 H, y# d
  ; c. Q! h! H* d- _a = u(1, :);
  ! z4 F: C5 L! q; l6 O9 {: c: O
• 
  
  $ }! Z1 U! |' X  a3 k: C4 {8 pb = u(2, :);
  
• 
  " Q% o( I  y, b1 ]9 p- P
  
  
• 
  4 {5 G6 [/ A0 O! H4 r# K
  $ E1 U7 b) E. w. T$ j  B' \
  
• 
  
  %%预测后续数据
  
• 
  5 `/ F: W: g! m" o# Z2 u
  
  . W: S% s' J5 d0 y. r8 S
• 
  - Q% w  \  j. q; U- U
  ' a' Z( l# i2 [: M! @( l- Y%p是预测后续的数据量，根据情况可更改
  ) j2 B  }* D- n. g$ ^* r6 \- L& p6 ?
• 
  : E! J6 r* K" g' [* ?! L
  " k; I. d1 o* M: wp = 3;
  
• 
  
  %构建预测数列F
  : u1 \/ H, {9 v+ J+ j
• 
  2 o, K: q( A) U8 ^" I. b0 k7 l
  F = []; F(1) = X0(1);
  ! f# X4 W  `  h, u4 E3 B8 G
• 
  
  for i = 2: (n + p)
  1 r: S6 M8 X2 i- E: k  ]$ i
• 
  
  　　F(i) = (X0(1) - b/a) * exp(-a*(i-1)) + b/a;
  
• 
  " H+ s/ e. f" K! Q% w
  end
  : q3 _! m& |6 y& V5 N; S0 d! B! a
• 
  
  6 e3 l! ?! L$ F& R: s0 o" {
  8 A7 i' N$ ?2 V  a2 g% m
• 
  
    e% N" ~" a% S! c' E! o4 O8 Q; d%对数列F累减还原，得到预测出的数据
  ! s$ @$ D6 d7 q3 B
• 
  
  6 ?9 J7 y; V9 vG = []; G(1) = X0(1);
  ' z3 A; K/ x5 N3 d0 L) H
• 
  
  for i = 2: (n + p)
  ! W1 h/ Q8 ?; j6 x8 O
• 
  * N3 m+ i) a8 [' D; T; r3 [
  % V5 X# e7 h0 i( h: |8 F　　G(i) = F(i) - F(i-1);
  $ H; c5 ?+ M) y& e; f% w0 o9 ]9 m
• 
  : n* P' }" M6 m3 f' a% [6 X7 i0 h
  end
  
• 
  
  # [. E+ K2 |3 a1 ]6 p6 Y
  
• 
  % k' ?2 j, e" H* q# e
  disp('预测到的数据为： ');
  
• 
  
  G
  ( c4 |* l- P9 C
• 
  
  
  
• 
  
  - C7 N- L- Y* A- q! F9 g%%模型检验
  
• 
  
  
  
• 
  3 [& o7 Z' d# f9 V; x+ v& x. ^; E9 J
  " V5 k0 t' C9 Z% T# TH = G(1: n);
  
• 
  - M5 b1 W# M" Q6 r: o, u8 U
  % P. y( O: \" c( G' L%计算残差序列
  
• 
  ( Q' y8 v, r$ M6 `" n2 _) b% K; B( m
  - O- @) o5 z9 {3 B+ s( [8 u- EE = X0 - H;
  
• 
  
  
  , a" d1 P! V/ V( _) }) D) f
• 
  
  : b/ f! B, v0 [4 N6 x) e9 R%法一：相对残差Q检验
  0 y- J5 k* ~4 M7 \7 b4 ~) m7 K
• 
  
  
  
• 
  ) |$ V! u# i* h! C9 I. j) w8 {- k
  % B6 [& A* R3 \. v4 h3 ~%计算相对误差序列
  
• 
  
  epsilon = abs(E ./ X0);
  
• 
  
  %计算相对误差Q
  , @6 G" y/ _3 @' ^* ?- R
• 
  + a! k" R% `5 T- k$ d8 Z; `% R
  disp('相对残差Q检验： ');
  1 l2 E/ Q# L& z/ R( P" O: ]9 D
• 
  
  * _5 Y$ e6 Q7 N) P6 cQ = mean(epsilon)
  * j! f# a8 v) f
• 
  0 I; y2 x6 T# G% V) T
  
  ) {+ o  w  t) l+ s6 n; f" j/ A
• 
  ( i6 s! Q: m# h2 b0 N" K" K
  0 Q% V! a* j, l* ]%法二：方差比C检验
  
• 
  $ u4 _$ z# _; Z% T( P1 Z0 g
  ' J1 A3 G6 [/ k9 a5 H/ |8 Mdisp('方差比C检验： ');
  9 l5 K: L& Y% |8 Z4 A. Z: t
• 
  
  $ i# A* J- _! i) U: M: M% N  _C = std(E, 1) / std(X0, 1)
  
• 
  
  
  ' t4 }' h; t/ B, q. i
• 
  - r0 I+ [% D3 F; V8 C9 k
  / ?+ W$ l9 t- {" T  ]- {& B# E%小误差概率P检验
  ' v6 H1 S/ |. ^3 n' V7 F  y9 Y1 L
• 
  
  ) x- F: v' u7 Y3 N) }S1 = std(X0, 1);
  9 i3 g5 N* j% W* A5 ~5 y1 X
• 
  
  + @; D$ x) S8 _8 S% utmp = find(abs(E - mean(E)) < 0.6745 * S1);
  7 Z* K" U! K  r; D7 Y
• 
  9 e' k# M( L5 j' b- V& o8 u  q8 k
  : H0 l/ S: s( n6 R+ X4 X" L% e1 zdisp('小误差概率P检验：');
  
• 
  3 a0 L% l' ?1 b+ d
  . Z  \. z1 [& H# k# pP = length(tmp) / n
  4 D& D0 T! E* Z
• 
  
  
  
• 
  
  9 D# \2 u  W- W( C+ I% f) D# t" ^%%绘制曲线图（根据不同的题目以下的代码会有所不同,故不贴出来，大家自己动手写吧）
  
  

& L3 U2 Z8 \8 }& p