求大神帮助，神经网络

子任

求大神看看我这代码哪里出问题了。。。谢谢了
' ~" c% L! t2 u% u& V, R7 q( x
' n* Y& W6 Z% p( `$ up=[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 Q% e" b; G& H9 |
5 R1 b" u/ F7 h: B6 d
a=max(p'); %#ok<UDIM>
for i=1:14
$ M! a6 U# \3 `for j=1:3
' |6 k3 J9 e' n  f" Z5 [6 _ptest(i,j)=P(i,j)/a(i);
end
% M8 [! [& S, {: |# ?' `/ Iend


. o/ P  @. X/ o# |# {/ ~9 P+ p8 `0 Npl=ones(1,14);
* i7 G6 T& R) ^2 Z1 y* K- op2=0.8.*ones(1,14);
: G: ^- \) _4 q& `, op3=0.6.*ones(1,14);
( Q2 {0 L, }# I$ q8 K0 Gp4=0.4.*ones(1,14);
p5=0.2.*ones(1,14);
p6=0.*ones(1,14);
ptrain=[pl;p2;p3;p4;p5;p6];
% F  c* s/ V! a( D8 z( wt=[100,80,60,40,20,0];
2 b$ `; ^, r) {3 f% X

% U3 z, X% J2 R' L6 S% Anet=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
  @! T2 ]5 s5 v$ B6 `! I* Znet=init(net);
* X; ]# K  W7 W+ X' @net.trainparam.epochs=100000;
net.trainparam.goal=1e-10;
[net,tr]=train(net,ptrain',t);

4 B) P; o2 s" J2 }- H
% F! v. Y4 ?% rfor i=1:3
a=ptes(:,i);
3 [5 x5 ]$ b& l/ m4 s: K2 U0 g4 Uscore(i)=sim(net,a); %#ok<SAGROW>
end

4 A: T) G& C( N5 S
3 Q+ Y$ _; ?" [* @" i3 V; C
$ y' d% G$ M4 R; t5 L: y

森之张卫东

给附上代码吧！！！
) z$ z) ^  p4 c1 J5 ]$ h+ u1 K