数学建模社区-数学中国
标题:
求大神帮助，神经网络
[打印本页]
作者:
子任
时间:
2015-3-19 21:56
标题:
求大神帮助，神经网络
求大神看看我这代码哪里出问题了。。。谢谢了
! G) i8 b& Q# _+ G: Z7 }" G
( ]1 y1 z! g5 o. l. ^* B
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];
. r* E7 y- \! m! j
" x" O8 j; y3 n! ~; c3 e
: G- @1 z" M' m+ m/ |
a=max(p'); %#ok<UDIM>
& a: S& _ ~3 }$ K5 w% A
for i=1:14
. z: @8 a% Y1 w
for j=1:3
' P& J! Y/ u2 J! A* ~
ptest(i,j)=P(i,j)/a(i);
! p; x' @6 r1 r) ~7 W, t
end
7 P$ @4 r [# t+ s3 w; y
end
( g# I8 v5 i1 }
$ H% W5 o# c- w' k5 y
+ @. o w9 f# S
pl=ones(1,14);
; H, F! L2 ]% ?6 D' Y
p2=0.8.*ones(1,14);
8 x B; ~+ q/ ~( T) p
p3=0.6.*ones(1,14);
- i7 e, N4 Y, [9 I' R) f8 X* ^
p4=0.4.*ones(1,14);
: f7 g' v& b1 |0 G
p5=0.2.*ones(1,14);
" w" Q, Q9 V F' v+ }
p6=0.*ones(1,14);
; i% V6 ~4 x; X
ptrain=[pl;p2;p3;p4;p5;p6];
5 g3 N% ^; t; Q1 k' m9 X% Y5 b
t=[100,80,60,40,20,0];
* J# O) m* Z n( Y# U
7 B/ z2 N. M( a* N i/ |2 u* D7 a% h
2 }5 }- f1 L: _" \5 P
net=newff(minmax(ptrain'),[59,1],{tansig','purelin'},traingd');
0 [* I g h7 Y4 U" A/ u
net=init(net);
2 a; s# h) H) o7 _* d1 n- A
net.trainparam.epochs=100000;
6 z. h) x ^$ [% B
net.trainparam.goal=1e-10;
. X2 K- D! T w' F0 q
[net,tr]=train(net,ptrain',t);
5 e# p* z. l5 q! C2 d
5 u7 K, y* K9 }. m+ ?, d
0 ^& b7 o3 l, K1 g# t
for i=1:3
) ]6 i" r* `# ]$ D
a=ptes(:,i);
" h9 K7 I& v; \$ }& H/ h
score(i)=sim(net,a); %#ok<SAGROW>
' v! G% u% h% @' A" |
end
! i' ~( l. G) y) I3 [% u+ h
- J! s, s% K) a. E! B
3 y# a- v3 L) |- h& }7 F. z
' N. ?( G. Q+ F, \5 Y
作者:
森之张卫东
时间:
2015-9-7 19:05
给附上代码吧！！！
E, M4 @; T$ a3 w% u! _8 E
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5