灰预测MATLAB程序
需积分: 4 11 浏览量
2010-06-14
22:59:43
上传
评论
收藏 35KB DOC 举报
function aa
X0=[2068664 2188917 2200947 2298368 2523943 2820911 2857872 3103836
1851000 3155000];
AU=aa(X0);a=AU(1);u=AU(2);m2=length(X0);
for k=1:1:m2-1
xx1(k+1)=(X0(1)-u/a)*exp(-a*k)+u/a;
end
s=0;xx0(1)=X0(1);
for jj=2:1:m2;
xx0(jj)=xx1(jj)-xx1(jj-1);
end
disp('GM(1,1)¶ÔÊýÁнøÐÐÔ¤²â½á¹û');xx0
disp('ÊýÁÐ1Ôʼ¹Û²âÊý¾Ý');X0
disp('a');AU(1)
disp('u');AU(2)
function au=aa(X0)
m=length(X0);
s1=0;
for jj=1:1:m;X1(jj)=s1+X0(jj); s1=X1(jj); end
for ii=1:1:m-1; B(ii)=-(X1(ii)+X1(ii+1))/2; end
B=[B(:),ones(m-1,1)];
y=X0([2:m])';
au=inv((B'*B))*B'*y;
%%灰色预测
function [feval,au,ec,ex,r,C,P]=GM1_1(x,myear)
%%
%%
%%
%%
if nargin<2
myear=0;
end
[mx,nx]=size(x);
if mx==1
x=x';
end
评论0