求大神帮助，神经网络

子任

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

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];


6 F/ q! T3 f2 n% C; k& l! ga=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
3 d/ q7 Z8 i/ T3 B( B8 Bptest(i,j)=P(i,j)/a(i);
end
end
! C  i. g* _5 E8 N' H

pl=ones(1,14);
+ c$ `4 T, p2 J: ^* op2=0.8.*ones(1,14);
4 |: ~- [# G% I7 Y. v: y. n9 _p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
( Y* Q+ t8 J# `# S4 J8 f' R( ap5=0.2.*ones(1,14);
  w. G) Z" T) G5 L+ `p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
5 H9 a: }* v" P9 G

( H4 d& S& {  N3 g- tnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
3 V( m; B) H* h+ L* e* X: Dnet=init(net);
* F- |) p+ m- Z8 x% Onet.trainparam.epochs=100000;
$ j9 O6 c  Y8 I- n4 lnet.trainparam.goal=1e-10;
$ Z5 ?4 t2 k2 x. x' W1 `; X[net,tr]=train(net,ptrain',t);
' {* a5 h; s& \( C

* S% m# j! M0 n' K$ ?# Mfor i=1:3
+ r6 `6 i. i% n" n$ C# [a=ptes(:,i);
! ?+ |4 Y5 k  ~score(i)=sim(net,a); %#ok<SAGROW>
end


: T: x1 O6 E) J4 V: Y
$ C; z; G5 F1 o! w# {4 y

森之张卫东

给附上代码吧！！！