求大神帮助，神经网络

子任

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

: t" v  c0 F/ F, h' Vp=[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];
, K) C3 |8 _" L2 ~

a=max(p'); %#ok<UDIM>
for i=1:14
* }% q9 V+ j4 Y, Wfor j=1:3
ptest(i,j)=P(i,j)/a(i);
# d9 z; Z2 v, [end
4 b- u' q' Y+ h* Zend


  d% F+ {( C+ @6 S& r, x# h. bpl=ones(1,14);
; J% {9 b! |  q( Y9 vp2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
5 z  G: h: Z! `' yp4=0.4.*ones(1,14);
1 ]1 p8 ~: M- H- J" p1 ~p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
3 _9 v" `$ R7 b; Pt=[100,80,60,40,20,0];


# ?$ [8 O4 U$ z6 `# v# @! L: lnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
& ]4 ?. Q0 L$ F$ e5 h& u# Jnet=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
: \+ i+ H: U0 L! Q% M% b0 U! a; C* p
3 u3 Q. p" @' E9 v
6 a* g' _. O/ G/ H7 u9 ^. N1 g" M1 Rfor i=1:3
3 J0 Y) d# N& H/ `a=ptes(:,i);
score(i)=sim(net,a); %#ok<SAGROW>
end
7 ^! \" C# E; x' k2 e4 t. p

2 c" O. J' ?; Q, h1 D& Z, }

森之张卫东

给附上代码吧！！！
- K5 N0 x8 E  ]% _" {; M2 p