求大神帮助，神经网络

子任

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

9 Y4 U" O$ b) N* zp=[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>
for i=1:14
for j=1:3
  U5 A- Q, x; c/ C( d: |ptest(i,j)=P(i,j)/a(i);
end
- ^$ q: n8 r6 J8 @, s; i1 u4 H7 Lend


- p. W" ^6 U7 A4 Vpl=ones(1,14);
p2=0.8.*ones(1,14);
p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
4 l/ P/ h* H- }6 R  zp6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];


6 f  D# M: w3 n) f. Fnet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
% \# M) |3 W9 K& U+ jnet.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);
# g- }8 e, r4 u7 k8 n2 v

for i=1:3
4 l: q+ |4 z9 H) ca=ptes(:,i);
2 S# v- A4 ~7 C/ z4 f  d: J) _score(i)=sim(net,a); %#ok<SAGROW>
end
' S5 X6 e. R$ b" \. w# @7 E

# d0 m5 M' W( d5 i4 O
6 ?8 q9 _# B1 n9 ?

森之张卫东

给附上代码吧！！！
5 @3 s7 i. c3 J