求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
2 K+ i  V" s: P0 a  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];

  P& _5 }, }- D
) m2 d0 b% z  [, s) k8 @8 G6 Ia=max(p'); %#ok<UDIM>
1 }& E2 @% L$ y% ^for i=1:14
& h8 q; C" f# m% T- p$ wfor j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end

! a$ w9 Q. o8 t2 P' u
pl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
; S# H2 {1 H8 L& P, I5 w7 N8 J0 lp5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
- w5 O" i' L# U$ a( f

$ z6 N" }# S& B! J- fnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
6 S! H7 K, ~; O# C( Dnet=init(net);
0 c; c0 l0 }( S& B. T5 Vnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
: Q% Q. U' E& u3 {% F[net,tr]=train(net,ptrain',t);
% `8 v1 v* P+ R. w- i8 w4 [! B7 u: v
7 q: O! k' Z6 [0 C
: ^- B" H7 Y8 q& j- @7 U/ z9 N  Afor i=1:3
! ^  t9 j$ S# W8 ~2 }5 s9 `/ m, ha=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
  K/ u6 W! c1 t% C( l3 dend
+ ^) O$ v3 v1 l3 ~4 ^
$ n; Q, Z6 d" M  {& m
- R5 t8 t: I& b$ @4 R6 Y% G! n
6 G/ O1 _+ t$ h& M

森之张卫东

给附上代码吧！！！
/ }% |8 J! F$ G& M# W# e3 ~