ex32.m

竞争网络的matlab程序

% example32.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];
[R,Q]=size(P),
[S,Q]=size(T),
[W,B]=rands(S,R),
disp_freq=400;
max_epoch=400;
err_goal=0.001;      % 期望误差
lr=0.9*maxlinlr(P,1);  % 最佳学习速率
SSE=sumsqur(T-purelin(W*P,B));
fprintf('Before training,sum squared error=%g.\n',SSE)
flops(0)

TP=[disp_freq max_epoch err_goal lr];
[W,B,epochs,error]=trainwh[W,B,P,T,TP]  % 进行线形网络权值训练
W,B
SSE=sumsqur(T-purelin(W*P,B));
ploterr(errors),
fprintf('\n After % .0f epochs,sum squared error=% g.\n\n',SSE),
fprintf('Before training,sum squared error=%g.\n',SSE0V=[-2 2 -2 2];
plotpv(P,T,V);
hold on
axis('equal')
xlabel('p1')
ylabel('p2')
plotpc(W,B)
hold off
end