求大神帮助，神经网络

子任

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

) ^, [8 c& A' ?; r$ _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];

$ @% p1 x/ p4 ^1 s0 s
a=max(p'); %#ok<UDIM>
/ i& l" |/ s( y  Y8 p0 H" bfor i=1:14
for j=1:3
5 \5 O/ _0 ^# f# j9 p- w  gptest(i,j)=P(i,j)/a(i);
; O" M4 c; F* w& g( R; gend
end
9 T9 O+ q$ g) m0 Z, v
& A- G8 C9 ~( p- o% Y3 c
7 ]6 E" Z( P: s+ Y, _7 [& h3 ipl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
3 ^$ j1 L: {, J& ]! `2 A6 np4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
& K% s% _, p9 jt=[100,80,60,40,20,0];

- Q, o8 S$ w* t8 t  Q
( }* K" \; I  M: Cnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
: b0 y7 |6 E9 N1 ~. fnet=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
) t& v+ C& R1 s& p$ x
* B' P+ Q- }+ @/ U' Z
for i=1:3
5 |! `, u8 Z% l) x8 u2 @a=ptes(:,i);
7 t2 N, E/ g$ `+ Y9 U- s: j$ }8 p% ~score(i)=sim(net,a); %#ok<SAGROW>
& H$ t8 e+ L4 P5 D9 ~end


% v) P6 w9 \9 ^

森之张卫东

给附上代码吧！！！