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');