求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了

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 J: m0 ^5 V- D! p9 D1 ^9 ~7 Y
/ B, ~& k3 x1 X% f' _& M
0 j0 l# d# l; g# U* fa=max(p'); %#ok<UDIM>
2 l0 y7 j& G0 ~! h) |, J5 W6 zfor i=1:14
3 m6 k8 m, A( u  _, Ufor j=1:3
) |2 a# N# @6 k) A! f7 S" ~ptest(i,j)=P(i,j)/a(i);
end
end

' ?5 B  U) {. L" ]
pl=ones(1,14);
p2=0.8.*ones(1,14);
9 s5 [, t' ^7 h6 i- hp3=0.6.*ones(1,14);
p4=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];

6 V" l  f2 K( S- R6 c7 j; P: E' R
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
. p3 X; c5 ^& mnet.trainparam.epochs=100000;
/ u5 u4 [0 h8 }- onet.trainparam.goal=1e-10;
& U  D1 \; H; o% d* Y" N[net,tr]=train(net,ptrain',t);
0 N" o% `0 u( F- b8 Z% V. q! c

for i=1:3
6 l2 O- q) Q! [" oa=ptes(:,i);
7 B$ u6 G, O; h' B0 i4 [# G) ]score(i)=sim(net,a); %#ok<SAGROW>
end
3 Q2 k; ?6 s! K( T0 x
. Z$ H: O, p  a) n" u% p; d/ S
4 s- p: m$ V) b3 T5 X" L3 q

森之张卫东

给附上代码吧！！！