newelm.m

用MATLAB编写的一种新的神经网络训练程序

%elm net feilei shili
Time=1:80;
P1=sin(1:20);
P2=sin(1:20)*2;
t1=ones(1,20);
t2=ones(1,20)*20;
P=[P1 P2 P1 P2];
t=[t1 t2 t1 t2];
Pseq=con2seq(P);
Tseq=con2seq(t);
figure;
plot(Time,cat(2,Pseq{:}),'--',Time,cat(2,Tseq{:}));
xlabel('时间');
ylabel('输入及目标');
title('输入信号及目标信号');
R=1;
S2=1;
S1=10;
net=newelm([-2 2],[S1 S2],{'tansig','purelin'},'traingdx');
net.trainParam.epochs=500;
[net,tr]=train(net,Pseq,Tseq);
net.trainParam.epochs=800;
[net,tr]=train(net,Pseq,Tseq);
a=sim(net,Pseq);
figure;
plot(Time,cat(2,a{:}),Time,cat(2,Tseq{:}));
xlabel('');
ylabel('');
title('输出信号及目标信号');