求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了

p=[1 2 3;3 2 1;5 6 1;7 3 1;3 5 2;9 3 5;7 4 2;4 5 6;0 3 4;6 0 1;4 2 3;9 2 7;8 0 1;3 6 2];


% {) ^+ `  b! z$ q% \2 }* Fa=max(p'); %#ok<UDIM>
  ]3 N" g; x8 I6 T% u: y4 h& m) jfor i=1:14
for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end
% b& c4 A0 }  ^1 v$ Q1 b  i1 `
/ d8 b$ o; b8 m3 E: o% u7 \; Z, u
, K9 d* C6 W/ m" {' fpl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
; n% D( O) x0 i9 H' Y- E0 Mp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
. N; m/ u2 R3 n& qp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];

; U9 l: Y! Q; |, m4 u3 ^3 Z7 q+ `
! _/ K$ t# W" l3 U) @- v" }3 R4 lnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
: i0 L! B, U; c3 g" e) M. W. Knet=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
' G- k  k) V' e

' ~) U' J% k" T8 nfor i=1:3
a=ptes(:,i);
" }- `, f  i; w4 G# {0 m3 ?9 c1 pscore(i)=sim(net,a); %#ok<SAGROW>
end
& l' V6 Z8 }% b5 l+ [6 m1 D
8 v! T) w& y. t/ P) B

" J; x) F! z6 d, c

森之张卫东

给附上代码吧！！！