elmannetfuzhijiance.m

来自「根据神经网络的相关原理」· M 代码 · 共 21 行

t=1:20;
p1=sin(t);
p2=2*sin(t);

t1=ones(1,20);
t2=ones(1,20)*2;
p=[p1 p2 p1 p2];
t=[t1 t2 t1 t2];
Pseq=con2seq(p);
Tseq=con2seq(t);
R=1;
S2=1;
S1=10;
net=newelm([-2 2],[S1,S2],{'tansig','purelin'});
net.trainParam.epochs=500;
net=train(net,Pseq,Tseq);
Y=sim(net,Pseq);
t5=1:80;
plot(t5,cat(2,Y{:}),'r',t5,cat(2,Tseq{:}),'b--')