l6.3.txt

来自「Matlab_Network_and_Application是国防工业出版社董长」· 文本 代码 · 共 17 行

%随机产生8维2值向量
P=round(rand(1,8))
%连续输入为1，输出才为1
T=[0 (P(1:end-1)+P(2:end)==2)]
%Elman网络设计
net=newelm([0 1],[5 1],{'tansig','logsig'},'trainbfg');
%训练
Pseq=con2seq(P);
Tseq=con2seq(T);
net.trainParam.epochs=100;
net.trainParam.show=Inf;
net=train(net,Pseq,Tseq);
%验证，误差很小
Y=sim(net,Pseq);
z=seq2con(Y);
z{1,1};
diff1=T-z{1,1}