求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
; Y4 B$ C% I% A+ D9 a
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];

% v& N4 N$ `' s" J4 H3 Y& V& u1 g
- r6 D0 ~1 P7 e1 Ra=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
2 _0 ~" {0 X( K# Mptest(i,j)=P(i,j)/a(i);
end
end

  s5 c, j; C. [0 }
% c! f/ z3 R- a/ w& Xpl=ones(1,14);
p2=0.8.*ones(1,14);
, L) C9 w" E4 A1 v$ b( O) y( sp3=0.6.*ones(1,14);
; S0 ^5 i& E* `/ d& _! c* Mp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];

  b1 J; F% u, d4 ?
6 K5 u/ S8 F3 j. k& R  I. H, `net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
! o. ~7 ]- b/ Y; P4 e/ onet.trainparam.epochs=100000;
  \6 o: o( [3 R; P% u+ m" Q3 W9 rnet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);

$ G. x* l+ t* f
5 T6 T4 B4 B0 \* M/ z, afor i=1:3
a=ptes(:,i);
  n& T9 U- g  B$ I8 L) C7 c2 vscore(i)=sim(net,a); %#ok<SAGROW>
end
& {. a  ]3 C3 @/ `7 A1 n6 N4 h

森之张卫东

给附上代码吧！！！