elmsim.m

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

%Example91Sim
clear all;
load net91 net;
time1=0:0.05:2*pi;
t1=time1/(2*pi)-0.5;
time2=2*pi:0.05:4*pi;
t2=1.5-time2/(2*pi);
time=[time1 time2];
t=[t1 t2];
p=(1+t).*cos(20*time);
figure(2);
subplot(3,2,1);
plot(time,p);
Pseq=con2seq(p);
a=sim(net,Pseq);
y=seq2con(a);
subplot(3,2,2);
plot(time,y{1},time,t,'r--');
t=0.5*sin(time);
p=(1+t).*cos(20*time);
subplot(3,2,3);
plot(time,p);
Pseq=con2seq(p);
a=sim(net,Pseq);
y=seq2con(a);
subplot(3,2,4);
plot(time,y{1},time,t,'r--');
t=0.5*sign(sin(time));
p=(1+t).*cos(20*time);
subplot(3,2,5);
plot(time,p);
Pseq=con2seq(p);
a=sim(net,Pseq);
y=seq2con(a);
subplot(3,2,6);
plot(time,y{1},time,t,'r--');