2-13.m

《神经网络理论与Matlab R2007实现》（程序代码）

%函数round将随机数转换为与其最接近的整数
P = round(rand(1,20)); 
%[]中的后半部分为判断语句，返回0或1
T = [0 (P(1:end-1)+P(2:end) == 2)]; 
%函数con2seq将并发向量转换为序贯向量
Pseq = con2seq(P); 
Tseq = con2seq(T);
%网络第1层传递函数为tansig,第二层为logsig,训练函数为默认为traingdx
net = newelm([0 1],[10 1],{'tansig','logsig'}); 
%训练的最大步数为默认值100
net = train(net,Pseq,Tseq);
Y = sim(net,Pseq)