求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
0 h0 @  ^( \, n. j* V/ a
9 ?$ T* B! _; Mp=[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 |6 ], x- @' ?' ^  B- z* s

5 u  ~0 F" d4 Ma=max(p'); %#ok<UDIM>
: [( i6 F1 v1 m6 H0 W; `  vfor i=1:14
$ q6 j% A+ T" b& K- rfor j=1:3
/ @' u/ i( @/ v  H4 G& ^  j/ S4 hptest(i,j)=P(i,j)/a(i);
. C- c% s- W7 Y& D6 `end
( @* e1 _* k. l, aend


; {. p3 t! R+ ^8 fpl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
! \# y% y+ R# A( Np4=0.4.*ones(1,14);
0 X; P: b4 q& |8 Tp5=0.2.*ones(1,14);
9 Z+ g2 s- w: L$ p4 K  L# J$ Jp6=0.*ones(1,14);
) G9 ]% v- H6 K9 T4 Z! m2 xptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
- D8 n6 T2 C% }' m% ^2 J, ~! }; \net.trainparam.epochs=100000;
, @$ W& C3 J, H# B7 n' tnet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
# S/ n" c5 L- p$ ?# ]: @( ^( c
/ p. w% d' ~* H5 |
  }2 i+ X' E: x# k  w# U& V' ffor i=1:3
a=ptes(:,i);
% D' p" x+ [- _8 s2 @. G7 C: Dscore(i)=sim(net,a); %#ok<SAGROW>
6 K0 e3 D& `- kend



( E0 m/ k) r' @/ M5 b' x& s0 F

森之张卫东

给附上代码吧！！！
; l5 t: S7 H( I