灰色系统GM（1，n）模型的求解 敢问 我哪里出错了

每根头发都失眠

X0=[107.1 1.9 5286 2836.903 5345 4442.81 1.018215;103.5 2 5692 3329.651 6079 4958.67 1.157769;98.4 2.3 5820 3192.9 6501 5084.64 1.258095; 98.1 2.5 7022 3355.719 6849 5365.03 1.327742;99.7 2.8 7781 3635.66 7592 5661.16 1.465756;100.5 3.2 8370 3741.823 8251 5984.82 1.632385;99 3.6 10032 4258.894 8960 6679.68 1.777611;102.2 3.9 11189 4567.047 10251 7239.06 2.04198;104.3 4 12925 4864.035 12487 7951.31 2.481451;101.8 3.9 14707 5592.077 14659 9107.09 2.887581;101.7 3.8 16590 6113.899 16682 10304.56 3.257933;104.7 3.83 19911 6857.427 19662 11690.5 3.814583;106.7 4 24756 7561.05 22986 13441.09 4.384842;106 4 28383 8051.51 24581 14718 4.419664;106.3 3.9 32306 8560.976 28668 16263.43 5.380787;112 3.9 36166 9618.034 33969 18292.23 6.187067];
function GM1_1(X0)
%format long ;
[m,n]=size(X0);
X1=cumsum(X0);   %累加
X2=[];
for i=1:n-1
    X2(i,:)=X1(i)+X1(i+1);
end
B=-0.5.*X2 ;
t=ones(n-1,1);
B=[B,t]  ;      % 求B矩阵
YN=X0(2:end)  ;
P_t=YN./X1(1:(length(X0)-1)) %对原始数据序列X0进行准光滑性检验，
                            %序列x0的光滑比P(t)=X0(t)/X1(t-1)
A=inv(B.'*B)*B.'*YN.' ;
a=A(1)
u=A(2)
c=u/a  ;
b=X0(1)-c ;
X=[num2str(b),'exp','(',num2str(-a),'k',')',num2str(c)];
strcat('X(k+1)=',X)
%syms k;
for t=1:length(X0)
     k(1,t)=t-1;
end
k
Y_k_1=b*exp(-a*k)+c;
for j=1:length(k)-1
   Y(1,j)=Y_k_1(j+1)-Y_k_1(j);
end
XY=[Y_k_1(1),Y]    %预测值
CA=abs(XY-X0) ;    %残差数列
Theta=CA       %残差检验 绝对误差序列
XD_Theta= CA ./ X0   %残差检验 相对误差序列
AV=mean(CA);       % 残差数列平均值

R_k=(min(Theta)+0.5*max(Theta))./(Theta+0.5*max(Theta)) ;% P=0.5
R=sum(R_k)/length(R_k)  %关联度
Temp0=(CA-AV).^2 ;
Temp1=sum(Temp0)/length(CA);
S2=sqrt(Temp1) ;    %绝对误差序列的标准差
%----------
AV_0=mean(X0);     % 原始序列平均值
Temp_0=(X0-AV_0).^2 ;
Temp_1=sum(Temp_0)/length(CA);
S1=sqrt(Temp_1)   ;     %原始序列的标准差
TempC=S2/S1*100;      %方差比
C=strcat(num2str(TempC),'%')   %后验差检验  %方差比   
%----------
SS=0.675*S1 ;
Delta=abs(CA-AV) ;
TempN=find(Delta<=SS);
N1=length(TempN);
N2=length(CA);
TempP=N1/N2*100;
P=strcat(num2str(TempP),'%')   %后验差检验    %计算小误差概率
??? function GM1_1(X0)
    |
Error: Function definitions are not permitted at the prompt or in scripts.

天空和海

你这是一个m文件里面的吗？

每根头发都失眠

天空和海 发表于 2013-8-30 16:35
你这是一个m文件里面的吗？

恩 是的  不过我也不太懂

天空和海

每根头发都失眠 发表于 2013-8-30 20:31
恩 是的  不过我也不太懂

不能放在一个文件里面，function函数里面不能赋值。修改代码如下：

1. function GM1_1(X0)
   
2. %format long ;
   
3. [m,n]=size(X0);
   
4. X1=cumsum(X0);   %累加
   
5. X2=[];
   
6. for i=1:n-1
   
7.     X2(i,:)=X1(i)+X1(i+1);
   
8. end
   
9. B=-0.5.*X2 ;
   
10. t=ones(n-1,1);
    
11. B=[B,t]  ;      % 求B矩阵
    
12. YN=X0(2:end)  ;
    
13. P_t=YN./X1(1:(length(X0)-1)) %对原始数据序列X0进行准光滑性检验，
    
14.                             %序列x0的光滑比P(t)=X0(t)/X1(t-1)
    
15. A=inv(B.'*B)*B.'*YN.' ;
    
16. a=A(1)
    
17. u=A(2)
    
18. c=u/a  ;
    
19. b=X0(1)-c ;
    
20. X=[num2str(b),'exp','(',num2str(-a),'k',')',num2str(c)];
    
21. strcat('X(k+1)=',X)
    
22. %syms k;
    
23. for t=1:length(X0)
    
24.      k(1,t)=t-1;
    
25. end
    
26. k
    
27. Y_k_1=b*exp(-a*k)+c;
    
28. for j=1:length(k)-1
    
29.    Y(1,j)=Y_k_1(j+1)-Y_k_1(j);
    
30. end
    
31. XY=[Y_k_1(1),Y]    %预测值
    
32. CA=abs(XY-X0) ;    %残差数列
    
33. Theta=CA       %残差检验 绝对误差序列
    
34. XD_Theta= CA ./ X0   %残差检验 相对误差序列
    
35. AV=mean(CA);       % 残差数列平均值
    
36. 
    
37. R_k=(min(Theta)+0.5*max(Theta))./(Theta+0.5*max(Theta)) ;% P=0.5
    
38. R=sum(R_k)/length(R_k)  %关联度
    
39. Temp0=(CA-AV).^2 ;
    
40. Temp1=sum(Temp0)/length(CA);
    
41. S2=sqrt(Temp1) ;    %绝对误差序列的标准差
    
42. %----------
    
43. AV_0=mean(X0);     % 原始序列平均值
    
44. Temp_0=(X0-AV_0).^2 ;
    
45. Temp_1=sum(Temp_0)/length(CA);
    
46. S1=sqrt(Temp_1)   ;     %原始序列的标准差
    
47. TempC=S2/S1*100;      %方差比
    
48. C=strcat(num2str(TempC),'%')   %后验差检验  %方差比   
    
49. %----------
    
50. SS=0.675*S1 ;
    
51. Delta=abs(CA-AV) ;
    
52. TempN=find(Delta<=SS);
    
53. N1=length(TempN);
    
54. N2=length(CA);
    
55. TempP=N1/N2*100;
    
56. P=strcat(num2str(TempP),'%')   %后验差检验    %计算小误差概率

复制代码

先把这个存为m文件，然后再命令窗口输入：

1. X0=[107.1 1.9 5286 2836.903 5345 4442.81 1.018215;103.5 2 5692 3329.651 6079 4958.67 1.157769;98.4 2.3 5820 3192.9 6501 5084.64 1.258095; 98.1 2.5 7022 3355.719 6849 5365.03 1.327742;99.7 2.8 7781 3635.66 7592 5661.16 1.465756;100.5 3.2 8370 3741.823 8251 5984.82 1.632385;99 3.6 10032 4258.894 8960 6679.68 1.777611;102.2 3.9 11189 4567.047 10251 7239.06 2.04198;104.3 4 12925 4864.035 12487 7951.31 2.481451;101.8 3.9 14707 5592.077 14659 9107.09 2.887581;101.7 3.8 16590 6113.899 16682 10304.56 3.257933;104.7 3.83 19911 6857.427 19662 11690.5 3.814583;106.7 4 24756 7561.05 22986 13441.09 4.384842;106 4 28383 8051.51 24581 14718 4.419664;106.3 3.9 32306 8560.976 28668 16263.43 5.380787;112 3.9 36166 9618.034 33969 18292.23 6.187067];

复制代码

然后调用函数，GM1_1(X0)，就可以了

天空和海

每根头发都失眠 发表于 2013-8-30 20:31
恩 是的  不过我也不太懂

不能放在一个文件里面，function函数里面不能赋值。修改代码如下：

1. function GM1_1(X0)
   
2. %format long ;
   
3. [m,n]=size(X0);
   
4. X1=cumsum(X0);   %累加
   
5. X2=[];
   
6. for i=1:n-1
   
7.     X2(i,:)=X1(i)+X1(i+1);
   
8. end
   
9. B=-0.5.*X2 ;
   
10. t=ones(n-1,1);
    
11. B=[B,t]  ;      % 求B矩阵
    
12. YN=X0(2:end)  ;
    
13. P_t=YN./X1(1:(length(X0)-1)) %对原始数据序列X0进行准光滑性检验，
    
14.                             %序列x0的光滑比P(t)=X0(t)/X1(t-1)
    
15. A=inv(B.'*B)*B.'*YN.' ;
    
16. a=A(1)
    
17. u=A(2)
    
18. c=u/a  ;
    
19. b=X0(1)-c ;
    
20. X=[num2str(b),'exp','(',num2str(-a),'k',')',num2str(c)];
    
21. strcat('X(k+1)=',X)
    
22. %syms k;
    
23. for t=1:length(X0)
    
24.      k(1,t)=t-1;
    
25. end
    
26. k
    
27. Y_k_1=b*exp(-a*k)+c;
    
28. for j=1:length(k)-1
    
29.    Y(1,j)=Y_k_1(j+1)-Y_k_1(j);
    
30. end
    
31. XY=[Y_k_1(1),Y]    %预测值
    
32. CA=abs(XY-X0) ;    %残差数列
    
33. Theta=CA       %残差检验 绝对误差序列
    
34. XD_Theta= CA ./ X0   %残差检验 相对误差序列
    
35. AV=mean(CA);       % 残差数列平均值
    
36. 
    
37. R_k=(min(Theta)+0.5*max(Theta))./(Theta+0.5*max(Theta)) ;% P=0.5
    
38. R=sum(R_k)/length(R_k)  %关联度
    
39. Temp0=(CA-AV).^2 ;
    
40. Temp1=sum(Temp0)/length(CA);
    
41. S2=sqrt(Temp1) ;    %绝对误差序列的标准差
    
42. %----------
    
43. AV_0=mean(X0);     % 原始序列平均值
    
44. Temp_0=(X0-AV_0).^2 ;
    
45. Temp_1=sum(Temp_0)/length(CA);
    
46. S1=sqrt(Temp_1)   ;     %原始序列的标准差
    
47. TempC=S2/S1*100;      %方差比
    
48. C=strcat(num2str(TempC),'%')   %后验差检验  %方差比   
    
49. %----------
    
50. SS=0.675*S1 ;
    
51. Delta=abs(CA-AV) ;
    
52. TempN=find(Delta<=SS);
    
53. N1=length(TempN);
    
54. N2=length(CA);
    
55. TempP=N1/N2*100;
    
56. P=strcat(num2str(TempP),'%')   %后验差检验    %计算小误差概率

复制代码

先把这个存为m文件，然后再命令窗口输入：

1. X0=[107.1 1.9 5286 2836.903 5345 4442.81 1.018215;103.5 2 5692 3329.651 6079 4958.67 1.157769;98.4 2.3 5820 3192.9 6501 5084.64 1.258095; 98.1 2.5 7022 3355.719 6849 5365.03 1.327742;99.7 2.8 7781 3635.66 7592 5661.16 1.465756;100.5 3.2 8370 3741.823 8251 5984.82 1.632385;99 3.6 10032 4258.894 8960 6679.68 1.777611;102.2 3.9 11189 4567.047 10251 7239.06 2.04198;104.3 4 12925 4864.035 12487 7951.31 2.481451;101.8 3.9 14707 5592.077 14659 9107.09 2.887581;101.7 3.8 16590 6113.899 16682 10304.56 3.257933;104.7 3.83 19911 6857.427 19662 11690.5 3.814583;106.7 4 24756 7561.05 22986 13441.09 4.384842;106 4 28383 8051.51 24581 14718 4.419664;106.3 3.9 32306 8560.976 28668 16263.43 5.380787;112 3.9 36166 9618.034 33969 18292.23 6.187067];

复制代码

然后调用函数，GM1_1(X0)，就可以了

每根头发都失眠

天空和海 发表于 2013-8-30 21:27
不能放在一个文件里面，function函数里面不能赋值。修改代码如下：先把这个存为m文件，然后再命令窗口输入 ...

好的  谢了啊  我试试先

每根头发都失眠

天空和海 发表于 2013-8-30 21:27
不能放在一个文件里面，function函数里面不能赋值。修改代码如下：先把这个存为m文件，然后再命令窗口输入 ...

您有运行过没有啊  我怎么运行不出来啊  我整整弄了一天了

天空和海

每根头发都失眠 发表于 2013-8-30 22:03
您有运行过没有啊  我怎么运行不出来啊  我整整弄了一天了

你写的函数有错误，对照错误代码修改下

天空和海

每根头发都失眠 发表于 2013-8-30 22:03
您有运行过没有啊  我怎么运行不出来啊  我整整弄了一天了

我有时间的话帮你调下哈

Meteor胖号