求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
  p/ Q9 c1 w: O6 X: A' I0 G2 o
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];
8 W0 H9 s: M, W
: A3 y( }  n+ |  q$ L5 j+ ~
8 ^  p) @) @5 _7 L/ oa=max(p'); %#ok<UDIM>
' E7 ]0 Q; c( T  Lfor i=1:14
" c+ Y* o; ^  t1 ~for j=1:3
7 S# r/ ~3 u' g7 I+ `; e! kptest(i,j)=P(i,j)/a(i);
$ m9 O7 d2 g& B. O' d- ~end
% n1 f0 m7 E: J8 fend
2 C" W) ^# m2 d" B! b
. ^7 Q% ]; y5 A4 Q" v; ~9 _' M
pl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
+ N  J, g6 H" @8 ?5 a1 lp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
, Z) e  O4 K( C  p0 j: j# t* pp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
- ~2 @# C+ A7 J; d( zt=[100,80,60,40,20,0];

: s. t) C, j' D1 q* ^# R- F8 @5 I7 q
& w: }  A$ Q5 n( d2 f/ E& D. ^8 L7 r5 Gnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
) C1 Y1 ~0 U0 W$ `! Tnet.trainparam.epochs=100000;
  X& C% _5 H* l8 ?net.trainparam.goal=1e-10;
3 ]) {) }$ D: ^[net,tr]=train(net,ptrain',t);

* m3 {; l( x- t) n; u4 p
  N* w  I9 c# ~: rfor i=1:3
a=ptes(:,i);
( m7 ?; D! r. O6 {score(i)=sim(net,a); %#ok<SAGROW>
7 {9 v& m% q- [3 J  j  F" dend

6 e( V  B* v0 _6 g; u+ g

2 f  U5 u( u3 K: g, W! ]

森之张卫东

给附上代码吧！！！
. o: T9 i. u3 B" B0 w) }# `