求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
* n$ d- j+ v1 M: f
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];
9 I; }1 a6 L1 i! _1 m2 r

1 Q; J, T& K3 |a=max(p'); %#ok<UDIM>
for i=1:14
# c! _, v. D9 g! F" g* [6 [for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end

4 N* M* h' k0 t1 ^
pl=ones(1,14);
' a: F: X* z; d+ Xp2=0.8.*ones(1,14);
/ U) j" a2 x3 z, Bp3=0.6.*ones(1,14);
6 ?) G, g8 I# W4 V9 \4 t& Vp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
, e' G. c( q$ h8 Fptrain=[pl;p2;p3;p4;p5;p6];
  \) a5 F3 N( m$ _2 x4 N+ vt=[100,80,60,40,20,0];

: P! F  @& g* `; {
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
, ]9 P! R3 `2 F  E0 c, R- P, r9 n5 N

$ S2 v" D7 F1 H& e- I' cfor i=1:3
0 Z/ Y/ z4 L* E% ~8 |a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
8 ~1 I0 j3 H) ]' r" e5 B$ j0 Zend

! _6 i# o7 M4 E( z! t( j1 M& r

9 _9 E% ~6 h8 `- Q$ D* d

森之张卫东

给附上代码吧！！！