gusucode.com > 《MATLAB神经网络超级学习手册》随书光盘源码程序 > code/10/N10_1.m
clear all clc P=[0.2 0.6;0.4 0.3;0.5 0.3;0.7 0.6]; T=[1 0]; [R,Q]=size(P); [S,O]=size(T); W=zeros(S,R); B=-0.95* ones(S,1); max_epoch=10; lp.lr = 0.2; for epoch=1:(max_epoch) for q=1:Q A=T(:,q); dW=learnis(W,P(:,q),[],[],A,[],[],[],[],[],lp,[]); W=W+dW; end end W