% wf02.m
%
P = [ 1 1.5 1.2 -0.3 ; -1 2 3 -0.5 ;2 1 -1.6 0.9 ] ;
T = [0.5 3 -2.2 1.4 ; 1.1 -1.2 1.7 -0.4 ;3 0.2 -1.8 -0.4; -1 0.1 -1.0 0.6];
[S,Q] = size(T);
b=[];
w=[];
a=[];
for i=1:S    
  net = newlind(P,T(i,:));           % 創建一個具有一個行向量的線性網絡
  w=[w;net.iw{1,1}] ;                % 將每次產生的行向量權值合寫成一個矩陣
  b=[b; net.b{1}];                   % 將每次的行向量偏差合寫成一個矩陣
  a=[a;sim(net,P)];
end
w                                    % 輸出完整的偏差和權值
b
a                                    % 顯示網絡最終輸出