elmtr.m

elman神经网络用于峰值检测 三角波 矩形波 方波调制信号

%Example91Tr
clear all;
time1=0:0.05:1.5*pi;
t1=time1/(1.5*pi)-0.5;
time2=1.5*pi:0.05:3*pi;
t2=1.5-time2/(1.5*pi);
time=[time1 time2];
t=2*[t1 t2];
p=(1+t).*cos(20*time);
net=newelm(minmax(p),[20 1],{'tansig','purelin'},'traingdx');
Pseq=con2seq(p);
Tseq=con2seq(t);
plot(time,p,time,1+t,'r--');
pause;
net.trainParam.epochs=500;
[net,tr]=train(net,Pseq,Tseq);
save net91 net;