求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
% C3 [/ V! `* Y7 h
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];
& J- l$ t+ L+ A

a=max(p'); %#ok<UDIM>
for i=1:14
2 B) D5 g" i9 j0 Lfor j=1:3
6 |$ _% d$ X& f. y! ]! n# d  k& r) qptest(i,j)=P(i,j)/a(i);
: v  Q1 ?- O$ C4 J( L$ K% kend
2 Z0 T* Q' v/ d* [end
" s# M6 S- f* e* I
# U3 Z7 q( s" y  s/ I4 y) e
pl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
# V  u! p! M  p5 z" J9 z8 Yp4=0.4.*ones(1,14);
2 r# A! J; Q' ~0 K% Wp5=0.2.*ones(1,14);
" y) O$ M* ~) o2 zp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
; d2 c( z8 K+ ~  E* x5 Zt=[100,80,60,40,20,0];
: t$ f5 ~3 g: k; `
3 p2 |) H8 F) L: h+ J. X
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
0 d* {, B! [' H[net,tr]=train(net,ptrain',t);

" y/ ^; p3 ]5 @; L) N( S
for i=1:3
8 l1 m, y9 V9 \a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
end
3 d) M3 I5 i1 q# r# \

/ p$ ~* W. E# ]7 }  M/ C8 x# }* q3 {

森之张卫东

给附上代码吧！！！
' g! a3 R8 J/ D% i! I