nnet.m

来自「人工神经网络的代码程序」· M 代码 · 共 37 行

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
[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