elmnet1.m

来自「Matlab写得神经网络的训练实例」· M 代码 · 共 24 行

function ELMnet1()
nntwarn off
Time=1:80;
X1=sin(1:20);X2=2*sin(1:20);
t1=ones(1,20);t2=2*ones(1,20);
X=[X1 X2 X1 X2];T=[t1 t2 t1 t2]
%X=con2seq(P);
%T=con2seq(t);                         %将矩阵信号转化为序列信号
%绘制输入信号及目标信号曲线
figure;plot(Time,X,'--',Time,T);xlabel('t');ylabel('X,T');
%建立网络，并得到权值和偏值
S1=10;[w1,b1,w2,b2]=initelm(X,S1,T);
%训练网络
df=10;
me=500; %训练次数
tp=[df me];
figure;
[w1,b1,w2,b2]=trainelm(w1,b1,w2,b2,X,T,tp)
%测试网络
y=simuelm(X,w1,b1,w2,b2);
%绘制输出信号及目标曲线信号
figure;plot(Time,y,'--',Time,T);xlabel('t');ylabel('y,T');