求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
1 B" |/ @6 p) s
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];
. Z4 T$ V* n0 M" O# H1 i$ w

: L, D' C! x9 z+ ]$ U% q, Da=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end
+ O3 v* ]3 U1 b

pl=ones(1,14);
- R" B8 ~3 V0 d* T2 C1 [7 E1 qp2=0.8.*ones(1,14);
/ ~' Y4 _5 ~/ Y8 S+ O) t3 {p3=0.6.*ones(1,14);
) W& C% p; b0 o; f1 O( q7 q% wp4=0.4.*ones(1,14);
- ]! s5 ^2 \$ w/ S- Cp5=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 M! y0 x- f0 X! O/ b

- _- ~* n/ I. [8 H# H/ h) Vnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
2 \% m1 L9 l+ ?$ Rnet.trainparam.goal=1e-10;
2 I. L. T7 A/ O& q( f5 i/ b- g. K6 j[net,tr]=train(net,ptrain',t);
& G% ?5 B! r: j& p. b5 C
* Q% e( W8 _+ c1 _
$ _& w/ N6 L9 s3 S! Ufor i=1:3
a=ptes(:,i);
, d5 j, a- E' Fscore(i)=sim(net,a); %#ok<SAGROW>
& j6 w" S# O% R# L. `: Zend

! e3 c8 G8 H$ m0 W* x
" u: ?+ R( d6 O, v$ w9 \- w" M# D

森之张卫东

给附上代码吧！！！
6 i8 T+ v' x2 c% `