gusucode.com > 《MATLAB神经网络超级学习手册》随书光盘源码程序 > code/10/N10_2.m

    clear all
clc
T=[0.2 0.6;0.4 0.3;0.5 0.3;0.7 0.6];
P=[1 0];
[R,Q]=size(P);
[S,Q]=size(T);
W=zeros(S,R);
max_epoch=10;
lp.lr = 0.3;
for epoch=1:(max_epoch)
    for q=1:Q
        A=T(:,q);
        dW=learnos(W,P(:,q),[],[],A,[],[],[],[],[],lp,[]);
        W=W+dW;
    end
end
Ptest=[1];
A=purelin(W*Ptest)