每根头发都失眠 发表于 2013-8-30 14:45

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

X0=;
function GM1_1(X0)
%format long ;
=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矩阵
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=;
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=    %预测值
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.

天空和海 发表于 2013-8-30 16:35

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

每根头发都失眠 发表于 2013-8-30 20:31

天空和海 发表于 2013-8-30 16:35 static/image/common/back.gif
你这是一个m文件里面的吗？

恩 是的  不过我也不太懂

天空和海 发表于 2013-8-30 21:26

每根头发都失眠 发表于 2013-8-30 20:31 static/image/common/back.gif
恩 是的  不过我也不太懂

不能放在一个文件里面，function函数里面不能赋值。修改代码如下：function GM1_1(X0)
%format long ;
=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矩阵
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=;
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=    %预测值
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),'%')   %后验差检验    %计算小误差概率先把这个存为m文件，然后再命令窗口输入：X0=;然后调用函数，GM1_1(X0)，就可以了

天空和海 发表于 2013-8-30 21:27

每根头发都失眠 发表于 2013-8-30 20:31 static/image/common/back.gif
恩 是的  不过我也不太懂

不能放在一个文件里面，function函数里面不能赋值。修改代码如下：function GM1_1(X0)
%format long ;
=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矩阵
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=;
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=    %预测值
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),'%')   %后验差检验    %计算小误差概率先把这个存为m文件，然后再命令窗口输入：X0=;然后调用函数，GM1_1(X0)，就可以了

每根头发都失眠 发表于 2013-8-30 21:55

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

好的  谢了啊  我试试先

每根头发都失眠 发表于 2013-8-30 22:03

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

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

天空和海 发表于 2013-8-31 07:56

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

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

天空和海 发表于 2013-8-31 08:01

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

我有时间的话帮你调下哈

Meteor胖号 发表于 2013-8-31 09:16

{:3_48:}{:3_48:}{:3_48:}{:3_48:}
页: [1] 2
查看完整版本: 灰色系统GM（1，n）模型的求解 敢问 我哪里出错了