求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
0 z9 Y0 F& P  Q3 N8 O# S' Z& G8 S
* O: u9 L7 W8 Ep=[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];


a=max(p'); %#ok<UDIM>
3 P1 }9 N) b- L# s4 b4 kfor i=1:14
for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end


, M7 g, ?; [" V+ }( E/ I- Vpl=ones(1,14);
# x8 v2 o" a' N) x: S5 ^p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
# p) C2 ?' B$ ]8 S8 k( \1 o: wp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
7 n4 G# Z9 _" S5 [3 O6 k3 i' j+ yp6=0.*ones(1,14);
3 U& W# \! J% U: w4 _ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
) @9 N& Y! n/ Y; c; t: L6 {

' L+ }0 L$ e& F. f/ W$ v2 Snet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
4 `% X' Q, X0 Enet=init(net);
5 c! {, B& M3 Vnet.trainparam.epochs=100000;
1 @# g9 L: o/ C2 D) n0 mnet.trainparam.goal=1e-10;
& \5 F. N9 @: b) S* C[net,tr]=train(net,ptrain',t);
: b& }( d3 s3 J( Q) E7 \1 U$ T
2 x+ S/ K& p: S# Z
for i=1:3
1 O' X& D  u, Ca=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
( O; A# S* e! O( J0 zend
8 H: K4 f* }$ h4 D4 _

$ x: ?6 [3 f2 P/ b1 Q
" l4 O( t; N( q

森之张卫东

给附上代码吧！！！
( F7 x3 K2 u# r) h- k