求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
$ {% O& Z6 Z0 Q/ I$ d- W4 X
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];
$ k3 _% q/ w' W. W! S8 q; F
% g6 T$ o- b+ r1 Z- e6 H
1 v5 Z1 [4 S' h" |2 Y: p, t% ta=max(p'); %#ok<UDIM>
for i=1:14
! X+ R1 i8 h; i9 W! f1 S2 S, ]) Wfor j=1:3
ptest(i,j)=P(i,j)/a(i);
( V3 v6 m4 U3 l8 o3 H/ O0 a3 [+ J; m1 hend
end
( j4 w6 }: g8 n; s
8 t8 k; }; ~( _7 a
pl=ones(1,14);
2 J% q3 z, P- G. xp2=0.8.*ones(1,14);
, k) q2 U+ X3 S. l; S, Lp3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
2 A, T+ u8 m& b5 o, c' wp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
; E9 h6 D; x/ n  C
# {* Y* R/ m8 ^, z. U3 Z& i: @
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);

' Z2 D9 S' |8 x9 F  y, d* c3 k
for i=1:3
& e; z/ U/ Z% D: za=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
) Y) V. @3 |7 ]2 S. }; E; w6 lend


% H  b+ i/ E* i3 H: M
9 j, H4 h$ `% E8 X

森之张卫东

给附上代码吧！！！