4-1.m

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

%输入的序列
p = {0 0 0 1 1 1 1 0 0 0 0 0 };
%画出序列图
stem(cell2mat(p))；
%创建一个单层的线性网络
net = netlin([-1 1],1);
%偏置值为零
net.biasConnect = 0;
%权重为2
net.IW{1,1} = 2;
%网络仿真
a = sim(net,p);
%画出序列图
stem(cell2mat(a));
%创建输入有延迟的反馈网络
net = newlin([-1 1],1,[0 1]);
%偏置值为零
net.biasConnect = 0;
%网络权重为[1 1]
net.IW{1,1} = [1 1];
%再一次用该网络仿真输入序列。
a = sim(net,p);
stem(cell2mat(a));
%创建单层，单神经元，输出延迟为一的层反馈网络
net = newnarx([-1 1],0,1,1{'purelin'});
%偏置为0，权重为0.5，1
net.biasConnect = 0;net.LW{1} = 0.5;net.IW{1} = 1;
%对输入序列仿真
a = sim(net,p);
stem(cell2mat(a))