数学建模社区-数学中国
标题: 在MATLAB中如何将神经网络和遗传算法联系起来 [打印本页]
作者: trok_2005 时间: 2005-1-22 22:42
标题: 在MATLAB中如何将神经网络和遗传算法联系起来
我因科研需要刚开始接触MATLAB，发现确实如各位大侠所说是个好东西，目前我在处理一组实验数据，希望用神经网络对其进行训练，可以实现仿真，另外我还希望采用遗传算法寻优，如何将神经网络的输出转化成遗传算法需要适应度函数呢？请各位大侠多多指点，先这里谢过了。
作者: retin 时间: 2005-1-23 11:03
不好意思，我所知道的还没有这些！
遗传算法只是略微懂点！
作者: ilikenba 时间: 2005-1-23 12:26
希望你能将如何用神经网络做的仿真说清楚，既然已经仿真成功了，那所说的寻优又是指的对什么寻优呀？神经网络又作了怎样的仿真？问题不清楚，这个很难回答！
作者: trok_2005 时间: 2005-1-23 22:22
以下是引用ilikenba在2005-1-23 12:26:35的发言：
( U. c5 C2 b; C* h4 J% {/ B) f8 A$ L' ` A) O& T, Z
希望你能将如何用神经网络做的仿真说清楚，既然已经仿真成功了，那所说的寻优又是指的对什么寻优呀？神经网络又作了怎样的仿真？问题不清楚，这个很难回答！
: k. {, U% s' k# S- g
谢谢您的关注，是这样，比如说我利用正交设计获得18组实验数据，我用BP神经网络建立了网络模型，我还希望能利用这个模型求解最优，即寻找合适的网络输入，以使网络输出值达到最大。但由于神经网络模型的建立是通过神经元间的连接权值和阈值来实现的，很难用简单的函数形式表达，因此我希望采用遗传算法来寻找最优的实验条件。但我不知道怎样将神经网络的输出转化为遗传算法所需要的适应度函数。
0 O3 i( j* b) u, V: N* U3 V( ^
我是用NET=NEWFF(MINMAX(P),[20,1],{'TANSIG','PURELIN'},'TRAINLM');进行建立网络，用NET=TRAIN（NET，P，T）对网络进行训练，用ANEW=SIM（NET，P）对网络进行仿真。) ^% D' Z' \% J `
不知我的问题说清楚了没有，希望您或其他大侠帮忙看一下，小妹这里谢过了！
作者: ilikenba 时间: 2005-1-23 23:14
按照你的说法，你可以完全利用遗传算法寻优，并不一定要和神经网络结合的，这里只要找到一种合适的编码规则就行。对于遗传算法你完全可以随意地利用一种选择、交叉、变异规则，因为它是按照概率1收敛的，所以这些规则的选择好坏只影响收敛速度，我想你所说的适应度函数就是表示每个种群的概率密度函数吧！你完全可以按照网络输出值的数值大小计算每个种群所占的概率！
作者: trok_2005 时间: 2005-1-24 00:09
谢谢 ilikenba 的回复，我是新手，不太明白，研究了半天，编了一点东西，可运行出了问题，帮忙看看是怎么回事，如何修改，谢谢！
p=[ 40 21 2.5 6. 5 # H b$ }7 {1 A6 U
40 25 3. 6.5 10 ; v0 g4 {# x) w" A3 F
40 30 3.5 7. 20
6 E4 t/ m) ?3 h- y 45 21 2.5 6.5 10 2 I, r0 s5 M0 z5 e4 f& ?
45 25 3. 7. 20 . K) L/ z& Y) ^! A, J6 n
45 30 3.5 6. 5
! V! j: ?- m9 Z- B/ n 50 21 3. 6. 20
7 }+ X! `; r0 P) c& d6 m. }2 h6 A) S: w 50 25 3.5 6.5 5 u+ @8 S- v. P6 T; @! o
50 30 2.5 7. 10
7 d* W0 ^5 ?8 ~# d* N 40 21 3.5 7. 10 $ i! z2 D1 V3 V. p; K2 [
40 25 2.5 6. 20
' D0 O$ p: ~; Q% [7 `* Z/ R 40 30 3. 6.5 5
3 S+ E2 f& m+ r/ g2 M `' i ~ 45 21 3. 7. 5 : D2 t6 C4 A- d' Q" ^! |
45 25 3.5 6. 10
: c* S2 _9 c' f 45 30 2.5 6.5 20
$ ` Z( ]- s+ l7 R 50 21 3.5 6.5 20
$ _9 W: x0 A5 u( H7 b: T" u 50 25 2.5 7. 5
# {& N/ b2 J# Q2 d+ S( c 50 30 3. 6. 10];
t=[2.673;3.412;1.315;2.019;1.996;0.885;9.317;4.484;1.768;5.720;2.316;0.678;1.042;1.492;0.765;8.812;1.204;3.130];7 I* Y7 c* ?5 Y. e4 M$ L
T=t';
9 P, J( z$ G3 AP=p';, O) `! h) W" l$ _! C3 Z
net=newff(minmax(P),[12,1],{'tansig','purelin'},'trainlm');
% b# W+ i9 b6 X2 H( e4 }%训练网络
net.trainParam.show=10;
& o( H3 O, K! y4 u%net.trainParam.lr=0.05;
+ X; b% |( C+ Z%net.trainParam.lr_inc=1.05;5 v( _6 t8 @" L5 n+ _/ ]5 F. K
net.trainParam.epochs=10000;
5 v% H0 C% Q& W! o4 Anet.trainParam.goal=1e-5;
! B! P9 J" M! E- e% randn('seed',192736547);4 s* | Y b- z' V
% net=init(net);0 z3 e1 q( l# {
[net,tr]=train(net,P,T);
9 A$ \8 [; S. ~! P% s% Uminmax_var=minmax(P);5 I# h. i' f2 z) f1 ^
minmax_target=minmax(T);: T. O% s8 n' i9 {; E
save('result','net','minmax_var','minmax_target');
% 将网络输 转换成+ r: z; y' c( T7 H5 k2 i
$ c9 [# H1 D" w: f load('result');
# a. ? F9 s0 z) C& V5 V [Pnew,endPop,bestSols,trace]=ga(minmax(P),'fitness');( V6 k6 i7 ]4 w, @, \
: U7 k( B# f6 y3 b4 i: W %性能跟踪 l! }" t9 X/ c2 s' L# }
plot(trace(:,1),trace(:,3),'y-');1 M) t% u( m7 z) d2 p: y
hold on ! k! i; X; u* }' c* o; b
plot(trace(:,1),trace(:,2),'r-');% E' ]9 l* T: L1 X; A$ b7 L' l* j' } A
xlabel('Generation');& y, j) |0 ?# N9 D3 x
ylabel('Fitness');
& m- R; s5 V7 o. u3 K- B, N legend('change of solution','average change of population');
$ d, Z P4 A* i, j2 f# z- xTRAINLM, Epoch 0/10000, MSE 12.2801/1e-005, Gradient 1739.63/1e-010
8 h H9 C. I' YTRAINLM, Epoch 10/10000, MSE 0.694955/1e-005, Gradient 93.6508/1e-010
# s9 z# N* Q3 f. ^& w: fTRAINLM, Epoch 20/10000, MSE 0.0242391/1e-005, Gradient 2.89095/1e-010
$ D# X+ s* R/ w8 r1 xTRAINLM, Epoch 30/10000, MSE 0.0206875/1e-005, Gradient 4.2655/1e-010
) v2 I! O& B6 }! Q3 l4 f0 ]4 w' D% RTRAINLM, Epoch 40/10000, MSE 0.0185878/1e-005, Gradient 18.249/1e-010
% [) L' p3 `; A( w3 l$ ^5 r4 fTRAINLM, Epoch 50/10000, MSE 0.00947447/1e-005, Gradient 55.0854/1e-010( j- e# t o( O1 L* x* D
TRAINLM, Epoch 53/10000, MSE 1.24279e-006/1e-005, Gradient 0.504667/1e-010
) z2 A! T+ f7 i0 I! f+ gTRAINLM, Performance goal met.
??? Undefined function or variable 'minmax_target'.
Error in ==> D:\MATLAB6p5p1\work\fitness.m+ L* y6 j3 r* ?$ [# `* {! L9 j
On line 2 ==> min_target=minmax_target(1);
Error in ==> D:\MATLAB6p5p1\work\initializega.m
. `. R% J1 m7 X8 q5 O" Q! lOn line 41 ==> eval(estr);
Error in ==> D:\MATLAB6p5p1\work\ga.m$ |* y: `) v, y8 _/ U
On line 148 ==> startPop=initializega(80,bounds,evalFN,evalOps,opts(1:2));* U. }) A; w* ]: O
所使用的适应度函数是
function [sol,eval]=fitness(P,options)
/ i/ w! z% H$ k9 B2 Z0 c min_target=minmax_target(1);1 _9 F6 U0 x% z" y$ ]9 I. y; m
max_target=minmax_target(2);
3 I% d; x" D& E( c7 ]1 U; s2 v eval=sim(net,P)
1 \' |/ |2 ]: ] S6 `! ?2 ?* q if isformax
' m, f0 N4 B5 T& Q* D' g eval=eval-min_target+(max_target-min_target);! D, l6 S* z1 d. s( L# K2 O
else
3 p) R8 E3 r8 s" _ a) L' H eval=-eval+max_target+(max_target-min_target);
( a8 Q) A9 L6 i4 R0 Y end
作者: cdqxc 时间: 2008-2-26 22:37
有没有一种数据处理方法可以改进BP神经网络的预测精度的？
作者: lzh0601 时间: 2008-4-19 23:15
找本专著看吧
作者: dsh1001 时间: 2008-10-28 16:27
我也是你这种问题，就是通过实验获得数据，然后建立模型进行训练、仿真和预测，这些都可以
; Y8 [7 p6 M6 N+ H% r, x" Q* Z. N8 S; @就是最后如何实现参数的优化，就是给定了输出如何确定最优的输入: M: \- S4 n+ J4 }( d+ Y8 |0 r8 p
好像是用模拟退火算法之类的可以实现，目前还没有解决，期待你解决以后多交流
作者: chang_bo321 时间: 2009-2-22 16:25
是个比较麻烦的问题啊
作者: 王捷浩 时间: 2009-3-5 23:30
额。。。比较复杂啊~呵呵 找篇文章看看吧~
作者: daidai0124 时间: 2009-3-18 20:27
啊.... 这么巧和我的问题一样啊,有那位高手进来详细的解答解答啊
作者: raosu 时间: 2009-4-1 08:43
顶！！！！！！！！！！！！
作者: lyaya2004 时间: 2009-6-4 09:11
有人研究出来了吗？多交流。。。。
作者: jluzhking 时间: 2009-8-30 00:46
初学，路过
作者: 347196468 时间: 2010-8-14 21:19
%获得网络的输入样本P和目标样本T8 ~& w) C( K; Q/ g) e2 A' }/ z7 b B' {3 _* @( O0 O# u [6 a
P=[1 0.6 0.1 0 0 0 0 1 0.5 0 0 0 0 0;4 K3 v* b+ @: I" G2 C& ?2 S& z
: Y; \" F8 f; Z s7 W9 \) l) k1 0.6 0.1 0 0 0 0 0 0.5 1 0.4 0 0 0;9 |( R: l2 i; {7 p. o2 J% m# \7 f6 v4 _6 G1 t( L. Q* q
1 0.6 0.1 0 0 0 0 0 0 0 0.4 1 0.6 0;
) C N! K8 Q6 ^/ V) A, ^* Z% o j1 0.6 0.1 0 0 0 0 0 0 0 0 0 0 0.8;) W( b h! d6 V3 J9 O& b
2 F$ J& X) o$ U0 0.6 0.6 0 0 0 0 1 0.5 0 0 0 0 0;; G6 ?) Q# P: @. f4 i& c* Y* D. K* I+ t3 l
0 0.6 0.6 0 0 0 0 0 0.5 1 0.4 0 0 0;$ N F( j A$ |- d1 k$ G/ K+ k" Y; Q: d9 l. L+ j9 Y1 y
0 0.6 0.6 0 0 0 0 0 0 0 0.4 1 0.6 0;
% _' j5 Y1 F+ Q6 j6 Q* |! h# _4 H2 z2 U6 _0 0.6 0.6 0 0 0 0 0 0 0 0 0 0 0.8;% V, f5 |% e2 r3 ^& D
! P. h, m3 }) d0 0 0.6 1 0 0 0 1 0.5 0 0 0 0 0;
+ i" Y+ ~& m& U6 ~8 G: J+ s/ }$ }2 u' J' O& Y0 0 0.6 1 0 0 0 0 0.5 1 0.4 0 0 0;7 ?3 Y% Q9 Z) V$ M3 g
# V' y- F! J/ [, B* f0 0 0.6 1 0 0 0 0 0 0 0.4 1 0.6 0;" h( s# ?% u' g$ h* X
2 E9 ~0 O: w' a! S0 R( W0 0 0.6 1 0 0 0 0 0 0 0 0 0 0.8;# w# J; z7 ?$ Y7 O) F
- _7 x- i' b" f* G5 P- G0 0 0 0 1 0.6 0 1 0.5 0 0 0 0 0;! p$ q8 S1 V+ @9 t7 i. o+ c) J: i3 O: {$ B. i8 U
0 0 0 0 1 0.6 0 0 0.5 1 0.4 0 0 0;5 e* _9 w. i: p' ]; U. H+ K# f& `9 | g: ]: R+ r& c8 |
0 0 0 0 1 0.6 0 0 0 0 0.4 1 0.6 0; ^9 S7 i) L" N1 r+ {0 g& I
/ ]" `9 a- B d0 0 0 0 1 0.6 0 0 0 0 0 0 0 0.8]';/ Q' c' j* D1 Y9 w. a5 [$ w1 J5 \5 S4 y! ^% y% ?
T=[1 0.5 0 0 0 0 0 0;+ F, _7 y% q B" Z
4 {; A' z& Z& G, V4 T0 0 0 0.2 0.6 1 0.6 0.2;1 W% ]" X C! A7 Z) R# M: y5 Q
' M5 N0 I, R/ x! D0 |1 g0 0 0 0.2 0.6 1 0.6 0.2;2 F- g1 H, Q6 j1 { Y
( M- `: @ k6 W1 V$ P* S1 y3 J0 0 0 0.2 0.6 1 0.6 0.2;- s f$ E+ j. Q5 M+ W4 D1 S
% D6 e/ B1 ^( h6 V) |0.4 0.8 1 0.8 0.4 0.2 0 0;. G: W$ u3 J' |& p' _
h1 k7 Z/ Y! w( R I* }0 0 0 0.2 0.6 1 0.6 0.2;/ y8 U A! f( O( H( m
; _7 Z6 r7 r; Y- z, d w% y0 0 0 0 0 0.2 0.5 0.8;
; T2 D0 c, I& R- G6 D% o) a8 J+ Z, ~8 {1 q3 Y! `( g0 0 0 0.2 0.6 1 0.6 0.2;
) D5 r, J3 d4 ]2 w4 I, T' D2 P- E1 M8 K8 Y) ?/ M- m0 0 0 0.2 0.6 1 0.6 0.2;( K1 W& p9 b7 r6 a7 [; a
( ^" d; U( x( r) Z. q0 0 0 0.2 0.6 1 0.6 0.2;
' n7 a& [- M0 W' [! p( y5 |4 m6 e3 Y* J! u( n. u3 U0 0 0 0 0 0.2 0.5 0.8;
% E4 S. N1 Y% R# s9 W6 g5 k. e2 {, q! g& u! D* o) @! t( l4 Z0 0 0 0 0 0.2 0.5 0.8;5 }/ y1 N S, m# m, Z
8 P2 m& t, D, ^0 0 0 0.2 0.6 1 0.6 0.2;, Q& Q; h+ \' @+ D9 W, _6 t p" L5 p( J* x% i3 n/ P4 z
0 0 0 0.2 0.6 1 0.6 0.2;% a& I% x. Y* b! S3 Z: |1 p4 @/ ?5 c: c
0 0 0 0 0 0.2 0.5 0.8;
1 [( M u: W4 z( }7 f' }, M; M+ J5 J' ?6 ?* Z0 k: e# x0 0 0 0 0 0.2 0.5 0.8]';" l6 s% e$ @. J% T5 h" g( I2 S
( x0 l- }8 I4 t* e%根据Kolmogorov定理，输入层有14个节点，所以中间层有29个节点$ f5 v3 N( Z/ H
/ l/ ]5 j% ?: t2 c: v6 J0 ]" @1 ]%中间层神经元的传递函数为'tansig') k ^# s, ~4 B' j
4 F _$ S% C' Z& c% }) G# y/ ~%输出层有8个节点，其神经元传递函数为logsig
6 ~! C1 P; c9 m% s, \; `2 P* v% b( k0 h- u7 H6 H) `%训练函数采用traingdx
n3 S# O% ~( m6 p; k0 C& m3 c0 \* Nnet=newff(minmax(P),[29,8],{'tansig','logsig'},'traingdx');- ?/ b# _# j0 f* p8 n" w/ h" V
; M o! v" K9 t%训练步数为1000次" ?8 _& L' `% A% T; |1 ?6 e
$ ~# E {1 _. `7 c ]. w%训练目标误差为0.001
( f2 v: O9 n2 b' b" j) l. {" }& N1 U ]! [) p+ D+ cnet.trainParam.epochs=1000;* | r9 y5 [5 H2 N5 i+ Q6 @
p8 x: g- [% t/ d0 x/ Qnet.trainParam.goal=0.001;
* _ i/ D# }) M( s/ V; H% t7 b: r8 W, G9 O+ i5 {* Lnet=train(net,P,T);; \7 P2 W, `. E+ h, o/ B# I1 l) M
7 h K5 {) {1 m# v/ K. V$ \8 vY=sim(net,P);
) f. a% w9 z6 M7 [) i, j: ]' a& `$ b' K& z& a%求训练值在每一个点上的误差: \5 F' N/ k7 o
) a& B7 k6 d, Z. @) e% qfor i=1:16- U0 {7 |9 ~- |4 P+ e) v
8 B* m8 \- W: _! N/ j x(i)=norm(Y(:,i));
* w7 b; h$ t& h2 o p5 o( Z9 A; [ n* ^* P% e
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |