马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
程序如下:
clc
clear all;
load 'C:\Documents and Settings\hmy\桌面\贺懋吟20051212\Q.txt';
%截取其中200个点进行训练逼近
t=Q(1:200);
for k=1:195;
m(k,1:6)=t([k k+1 k+2 k+3 k+4 k+5]);
end
tt=m(:,6);x=m(:,1:5);tt=tt';
p=x';
err_goal=1e-007;
sc=0.1;
net=newrb(p,tt,err_goal,sc,200,1);
%ce shi
ty=sim(net,p);
tE=tt-ty;
tSSE=sse(tE);
tMSE=mse(tE);
%预测(测试)曲线
figure(2);
plot(tt,'-+');
hold on;
plot(ty,'r:*');
legend('原始序列','预测值');
title('RBF网络模型输出预测曲线');
b(1)=t(196);b(2)=t(197);b(3)=t(198);b(4)=t(199);b(5)=t(200);
for j=1:30;
for i=1:30;
y(i,:)=[b(j) b(j+1) b(j+2) b(j+3) b(j+4)];
n(:,i)=y(i,:)';
b(j+5)=sim(net,n(:,i));
end
end
disp(b)
figure(3);
plot(t(1:240),'-+');
hold on;
plot(196:230,b,'r:*');
hold off;
训练时效果很好,延拓结果却很糟糕,请高手指点一下 |