- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
灰色预测模型论文
《统计决策与预测》论文
灰色预测模型
学 院:理学院
专 业:统计学
姓 名: 张 峰
学 号:0914142516
指导教师: 张 军
论文提交日期:二Ο一二年十二月
作业二 成绩:
姓名: 张峰 学号:091412516
问题描述:
设有时间序列数据,如下表所示:
时间 2002 2003 2004 2005 2006 2007 k 1 2 3 4 5 6 15 10 14 7 10 15 试预测2009年的数据。
第一步,构造累加生成列
生成列为:
第二步,构造矩阵B和数据向量
第三步,计算
即:
第四步,得出预测模型
第五步,残差检验
(1)计算
k 0 1 2 3 4 5 15.0000 24.8944 35.3965 46.5437 58.3757 70.9344 (2)累减生成序列
k 1 2 3 4 5 6 15.00000 9.8944 10.5021 11.1472 11.8319 12.5587 (3)计算绝对误差序列和相对误差序列
绝对误差序列为:
相对误差序列为:
第六步,进行关联度检验
min{}={}=0
max{}={}=
(1)计算关联系数
由于只有两个序列,故不再寻找第二级最小差及最大差:
i 1 2 3 4 5 6 1.0 0.9515 0.3721 0.3333 0.5309 0.4592
(2)计算关联度
满足时的检验准则r0.6。
第七步,后验差检验
计算原始序列的标准差
计算残差的标准差
(3)计算C
(4)计算小误差概率
所有的e都小于,故P=1,C=0.06530.35
第八步,模型应用于预测
预测公式为:
当k=7时,可预测出第8期的预测值为:
附录
randint(1,6,[6,15])
ans =
15 10 14 7 10 15
x0=[ 15,10,14,7,10,15]
n=length(x0);
x1(1)=x0(1);
for i=2:n
x1(i)=x1(i-1)+x0(i);
end
x1
B=[(-0.5*[x1(1:5)+x1(2:6)]),ones(5,1)]
Y=(x0(2:6))
C=(inv(B*B))*B*Y;
a=C(1)
b=C(2)
for k=1:n
x11(k)=[x0(1)-b/a]*exp(-a*(k-1))+b/a;
end
x11
x00(1)=x11(1);
for i=2:n
x00(i)=x11(i)-x11(i-1);
end
x00
wc=abs(x00-x0)
format long
xdwc=wc./x0
a1=min(wc)
a2=max(wc)
s=(a1+0.5*a2)./(wc+0.5*a2)
r=mean(s)
ux0=mean(x0)
s1=sqrt([power(x0(1)-ux0,2)+power(x0(2)-ux0,2)+power(x0(3)-ux0,2)+power(x0(4)-ux0,2)+power(x0(5)-ux0,2)+power(x0(6)-ux0,2)]/5)
uxdwc=mean(xdwc)
s2=sqrt([power(xdwc(1)-uxdwc,2)+power(xdwc(2)-uxdwc,2)+power(xdwc(3)-uxdwc,2)+power(xdwc(4)-uxdwc,2)+power(xdwc(5)-uxdwc,2)+power(xdwc(6)-uxdwc,2)]/5)
CC=s2/s1
s0=0.6745*s1
e=abs(xdwc-uxdwc*ones(1,6))
for k=1:n+2
x111(k)=[x0(1)-b/a]*exp(-a*(k-1))+b/a;
end
x111
x009(1)=x111(1);
for i=2:n+2
x009(i)=x111(i)-x111(i-1);
end
x009
文档评论(0)