lishaomin
2008-08-12, 16:08
您好!我是初学的学员,这是一个预测题,我不知怎样操作才能运行得出结果,请帮助!如有结果请往[email protected]回信
%——c7fun7_9
%定义样本输入数据
RNK=[112.45 113.50 276.74 278.90 279.87 280.90 281.68 282.18 282.61 283.90];
%定义样本目标数据
ZXF=[0.508 0.547 0.498 0.508 0.432 0.572 0.520 0.604 0.532 0.486];
%设计一个2层BP网络;
%隐含层传递函数'tansing',神经元个数5个
%输出层传递函数'purelin',神经元个数1个
%训练函数'trainlm'
Mynet=newff([min(RNK)max(RNK)],[5,1],{'tansing','purelin'},'trainlm');
%设置训练参数
Mynet.trainParam.goal=0.01;%误差目标小于0.001
Mynet.trainParam.epochs=5000;%最大训练步数为5000;
[mynet,tr]=train(Mynet,RNK,ZXF);%进行训练
NZXF=sim(Mynet,RNK);%网络仿真
plot(RNK,ZXF,'-',RNK,NZXF,'*');
xlabel('RNK');ylabel('ZXF');
legend('原始数据','模拟数据');
disp('2010年的ZXF');
YZXF=sim(Mynet,300) %网络预测
%——c7fun7_9
%定义样本输入数据
RNK=[112.45 113.50 276.74 278.90 279.87 280.90 281.68 282.18 282.61 283.90];
%定义样本目标数据
ZXF=[0.508 0.547 0.498 0.508 0.432 0.572 0.520 0.604 0.532 0.486];
%设计一个2层BP网络;
%隐含层传递函数'tansing',神经元个数5个
%输出层传递函数'purelin',神经元个数1个
%训练函数'trainlm'
Mynet=newff([min(RNK)max(RNK)],[5,1],{'tansing','purelin'},'trainlm');
%设置训练参数
Mynet.trainParam.goal=0.01;%误差目标小于0.001
Mynet.trainParam.epochs=5000;%最大训练步数为5000;
[mynet,tr]=train(Mynet,RNK,ZXF);%进行训练
NZXF=sim(Mynet,RNK);%网络仿真
plot(RNK,ZXF,'-',RNK,NZXF,'*');
xlabel('RNK');ylabel('ZXF');
legend('原始数据','模拟数据');
disp('2010年的ZXF');
YZXF=sim(Mynet,300) %网络预测