求大神帮助，神经网络

子任

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

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];
5 A1 i6 H8 b. L# u  s! m

: S" G+ b# @) A/ Fa=max(p'); %#ok<UDIM>
for i=1:14
for j=1:3
ptest(i,j)=P(i,j)/a(i);
end
end
1 w2 A2 _4 ~' L0 x- V8 z5 u$ W
0 r* {/ e9 T9 X; }) I
/ n, V) I1 K# H* |pl=ones(1,14);
p2=0.8.*ones(1,14);
+ p+ |! C6 h. f. ~6 b  {p3=0.6.*ones(1,14);
p4=0.4.*ones(1,14);
& B, m4 F; E; R* zp5=0.2.*ones(1,14);
  p6 s/ k9 @+ y6 J8 q2 F+ N6 Zp6=0.*ones(1,14);
6 T& F! ~, e/ V8 V1 mptrain=[pl;p2;p3;p4;p5;p6];
t=[100,80,60,40,20,0];
! u, Z4 B  Z$ \
/ Q7 C+ |/ H  F! s% I* w$ j& b
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
net=init(net);
net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);


for i=1:3
7 |1 Y) u/ p/ ~: C' Wa=ptes(:,i);
  m; K# c+ p0 o' ^" B- Uscore(i)=sim(net,a); %#ok<SAGROW>
end

! s) @, r( A" ~) m. E% X0 c' ?2 B7 A( M

森之张卫东

给附上代码吧！！！
; T$ J, k3 D# P