求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
$ ^9 Z/ j6 a( P) B7 r) Z8 C
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];
$ V9 P* ?: I4 ~
# X, t6 M9 g5 \) G
  F( A* `2 s: N& La=max(p'); %#ok<UDIM>
  _: K, q4 B, x9 q( ]' e5 Q4 pfor i=1:14
- z) Y. m& f9 |% _, \# Hfor j=1:3
9 o) Y$ _, [2 h$ Pptest(i,j)=P(i,j)/a(i);
% u* k9 V7 `/ h* pend
end

; i0 d2 Z7 t% {: r: K" s/ w* O
pl=ones(1,14);
p2=0.8.*ones(1,14);
5 v/ g+ B8 o, w% u1 _p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
. g. L! O3 ]3 z5 @2 B# o( a. pp5=0.2.*ones(1,14);
p6=0.*ones(1,14);
, ^7 m! N: U7 }ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
% @. o/ J5 U$ `, Snet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
$ s) W" e' h: J; J' w[net,tr]=train(net,ptrain',t);

; q5 P4 A& |5 r* |4 ^" U1 t( P2 }
for i=1:3
a=ptes(:,i);
3 D! `/ P% {" i7 S; B* ?# Sscore(i)=sim(net,a); %#ok<SAGROW>
2 Y( g8 P5 I* t  _) [7 n! Mend
. ^+ n; r. c6 Z
/ ?8 ~) X0 q: N! q6 O! y* s2 d
* R; m0 [- q5 Q( A

森之张卫东

给附上代码吧！！！
) K/ E9 A& |, R, ~$ V0 E4 A4 W