求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
, o  a! Z3 [9 [+ T1 @$ \
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];
# `- ~  ]" `1 Y
# X! V4 a  z& U9 t- h" N
/ W8 n3 m9 N; w/ x) sa=max(p'); %#ok<UDIM>
, L" Z- V# j8 P* S; A4 b, e$ Hfor i=1:14
& O2 z0 H& T. C* rfor j=1:3
ptest(i,j)=P(i,j)/a(i);
  V" |6 S' k8 R' x1 g- vend
end

( p/ k5 b/ L. ^: {
pl=ones(1,14);
p2=0.8.*ones(1,14);
6 q1 ^# V1 Z9 |/ m* x  b4 R* }p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
( W3 x- a8 }+ S: Q- @9 @p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
: D/ w7 M& X, E7 a; }& q& wptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
; o: x+ W" G. J. g
# _; a) r5 K. G& y' u( I& m1 ?
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
8 F* E% ~) t4 N) F5 Y4 pnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
: M* ?7 v$ v( t$ q1 e
  p2 Y" f/ d7 x& H
for i=1:3
a=ptes(:,i);
8 H: y- y3 w1 T* sscore(i)=sim(net,a); %#ok<SAGROW>
end

+ K7 h" r9 |( T2 ?3 q! ]$ J" }

! d' t# }) e( p& {! L

森之张卫东

给附上代码吧！！！