求大神帮助，神经网络

子任

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

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];
4 Y: ]/ p% k" |) R9 \/ [

a=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
6 B$ B! X% f/ l) Y' Q, ?1 Q7 sptest(i,j)=P(i,j)/a(i);
end
end

! ]' B$ d9 S: I/ F# {
pl=ones(1,14);
4 f! p, m- I" r5 ]* @# Bp2=0.8.*ones(1,14);
5 q  G  T, ?$ f  Zp3=0.6.*ones(1,14);
) z$ L# ]  E1 V6 Tp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
/ M; D; D" F. ^: O8 T4 V* mptrain=[pl;p2;p3;p4;p5;p6];
$ N( h: H2 J2 Z, \# e4 Lt=[100,80,60,40,20,0];


net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
! i' M& T5 A0 w+ j7 t" tnet=init(net);
net.trainparam.epochs=100000;
, c3 p, G/ [# K! c2 Rnet.trainparam.goal=1e-10;
& n* ~7 A* T3 C9 w4 v[net,tr]=train(net,ptrain',t);


for i=1:3
, @# X# d/ }# W' K  p3 |) pa=ptes(:,i);
/ m( T$ _4 b6 h2 l1 Escore(i)=sim(net,a); %#ok<SAGROW>
end


; C3 _& p. _! n( h" P2 f

森之张卫东

给附上代码吧！！！
8 F5 J- B. d9 S" q# p3 g3 ^