% 调用 TRAINGDM 算法训练 BP 网络
[net_1,tr]=train(net_1,P,T);
% 对 BP 网络进行仿真
A = sim(net_1,P);
% 计算仿真误差
E = T - A;
MSE=mse(E)
%--------------------------测试数据-----------------------------%
x=InputA(1501:1700); %测试数据
x=zeros(5,200);
for j=201:400
x(:,(j-200))=PP(:,j);
end
YY=sim(net_1,x) %用神经网络测试
XX=[1:length(x)];
plot(XX,YY,'-O'); %画出结果
hold on;
plot(XX,PP(4,1502:1701),'r-O'); %真实结果