Trainbpm (3 warstwy)

clear all
clf
nntwarn off
format compact
P=-1:.1:-.5;
T=[-.9602 -.5770 -.0729 .3771 .6405 .6600];
[R,Q]=size(P);
S1=15;
S2=15;
[S3,Q]=size(T);

disp_freq = 100;
max_epoch = 20000;
err_goal = 1e-8;
lr = 0.02;

[W1,B1,W2,B2,W3,B3]=initff(P,S1,'tansig',S2,'tansig',S3,'purelin');
TP=[disp_freq,max_epoch,err_goal,lr];
[W1,B1,W2,B2,W3,B3,TE,TR]=trainbpa(W1,B1,'tansig',W2,B2,'tansig',W3,B3,'purelin',P,T,TP);