%例6.2, os1.m
%
P=[1 0];
T=[0.1826 0.6325;
    0.3651 0.3162;
    0.5477 0.3162;
    0.7303 0.6325];
[R,Q]=size(P);                   
[S,Q]=size(T);
W=zeros(S,R);                      %賦內(nèi)星網(wǎng)絡(luò)初始權(quán)值
max_epoch=10;                     %賦最大循環(huán)次數(shù)
lp.lr=0.3;                           %賦學(xué)習(xí)速率
for i=1:max_epoch
    for q=1:Q
        A=T(:,q);
        dW=learnos(W,P(:,q),[],[],A,[],[],[],[],[],lp);
                                  %權(quán)值的修正值
        W=W+dW;                 %新的權(quán)值
    end
end
W                                 %輸出最后權(quán)值
W*P                               %輸出最后輸出