求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
3 ~+ f% F9 l( u* S/ v
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];
, Z8 L  s6 e; j; y

a=max(p'); %#ok<UDIM>
8 X# w& A+ i* ~6 C4 u% f) o/ Afor i=1:14
for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
+ f7 J6 ]& u1 }6 j. Gend

: a. W1 K: M/ x! P
$ T+ h, B' W+ b% K2 @0 ?! Wpl=ones(1,14);
; ^" T+ P7 K% k8 p- F$ E: Hp2=0.8.*ones(1,14);
! x3 e8 B: {8 c4 D/ p( e. Ep3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
' B* @" C! W/ Q3 l) bp5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


) ^$ |; F+ d: O& l4 W- X, u) V+ l* p$ Z  Nnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
0 P# @$ G1 r0 T0 y7 ~net.trainparam.epochs=100000;
4 E1 q% o8 l; U& P5 F& }- q) Unet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
1 ^4 J. O( z) ~5 Q. s
& Q+ H% b6 t# |# C+ ~
for i=1:3
a=ptes(:,i);
8 i: z1 x$ Y2 v, Z2 M9 Kscore(i)=sim(net,a); %#ok<SAGROW>
end

森之张卫东

给附上代码吧！！！