zyp1.asv

经典的神经网络matlab程序。

clf reset
figure(gcf)
%  setfsize(300,300);
echo on
clc
pause
clc
p=[-0.5 -0.5 +0.3 +0.0;
    -0.5 +0.5 -0.5 +1.0];
t=[1 1 0 0];
pause
clc
plotpv(p,t);
pause
clc
[w,b]=initp(p,t)
echo off
k=pickic;
if k==2
    w=[-0.8161 0.3078];
    b=[-0.1680];
end
echo on
clc
plotpv(p,t)
plotpc(w,b)
pause
clc
[w,b,epochs,errors]=trainp(w,b,p,t,-1);
pause
clc
ploterr(errors);
pause
clc
p=[-0.5;0];
a=simup(p,w,b)
echo off