求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
+ O( E4 @; k$ Q% W1 C8 c
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];


a=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
. f% m& F$ C: K/ Fptest(i,j)=P(i,j)/a(i);
end
end

' R, i4 e6 T$ P" J5 n4 V# T& J
pl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
3 R) ~8 [4 K9 M* t: @9 w* dp6=0.*ones(1,14);
7 j/ L( ^$ r- U# m3 K  mptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
- m' u$ e+ l* \% X0 B7 d" Pnet=init(net);
8 j: ^' u) t, Z  f: tnet.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
2 Y) d( g+ l0 |2 e$ t+ |) s) \
/ w+ _% V" N4 s+ I5 O& |
! y. N, [! r2 s0 h# zfor i=1:3
- h$ z) {, T4 Q1 j, Y4 M/ ca=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
5 d7 i5 g; @  _9 q; P  yend



) v8 ^8 z' ^* B) w) v

森之张卫东

给附上代码吧！！！