遗传算法的MATLAB程序实例.doc
《遗传算法的MATLAB程序实例.doc》由会员分享，可在线阅读，更多相关《遗传算法的MATLAB程序实例.doc（5页珍藏版）》请在冰点文库上搜索。
遗传算法的程序实例
如求下列函数的最大值
f（x）=10*sin（5x）+7*cos（4x） x∈[0,10]
一、初始化（编码）
initpop.m函数的功能是实现群体的初始化，popsize表示群体的大小，chromlength表示染色体的长度（二值数的长度），
长度大小取决于变量的二进制编码的长度（在本例中取10位）。
代码:
%Name:
initpop.m
%初始化
functionpop=initpop（popsize,chromlength）
pop=round（rand（popsize,chromlength））;
%rand随机产生每个单元为{0,1}行数为popsize，列数为chromlength的矩阵，
%roud对矩阵的每个单元进行圆整。
这样产生的初始种群。
二、计算目标函数值
1、将二进制数转化为十进制数
（1）
代码:
%Name:
decodebinary.m
%产生[2^n2^（n-1）...1]的行向量，然后求和，将二进制转化为十进制
functionpop2=decodebinary（pop）
[px,py]=size（pop）; %求pop行和例数
fori=1:
py
pop1（:
i）=2.^（py-1）.*pop（:
i）;
py=py-1;
end
pop2=sum（pop1,2）; %求pop1的每行之和
2、将二进制编码转化为十进制数
（2）
decodechrom.m函数的功能是将染色体（或二进制编码）转换为十进制，参数spoint表示待解码的二进制串的起始位置。
（对于多个变量而言，如有两个变量，采用20为表示，每个变量10为，则第一个变量从1开始，另一个变量从11开始。
本例为1），参数1ength表示所截取的长度（本例为10）。
代码:
%Name:
decodechrom.m
%将二进制编码转换成十进制
functionpop2=decodechrom（pop,spoint,length）
pop1=pop（:
spoint:
spoint+length-1）;
pop2=decodebinary（pop1）;
3、计算目标函数值
calobjvalue.m函数的功能是实现目标函数的计算，其公式采用本文示例仿真，可根据不同优化问题予以修改。
代码:
%Name:
calobjvalue.m
%实现目标函数的计算
function[objvalue]=calobjvalue（pop）
temp1=decodechrom（pop,1,10）; %将pop每行转化成十进制数
x=temp1*10/1023; %将二值域中的数转化为变量域的数
objvalue=10*sin（5*x）+7*cos（4*x）;%计算目标函数值
三、计算个体的适应值
代码:
%Name:
calfitvalue.m
%计算个体的适应值
functionfitvalue=calfitvalue（objvalue）
globalCmin;
Cmin=0;
[px,py]=size（objvalue）;
fori=1:
px
ifobjvalue（i）+Cmin>0
temp=Cmin+objvalue（i）;
else
temp=0.0;
end
fitvalue（i）=temp;
end
fitvalue=fitvalue';
四选择复制
选择或复制操作是决定哪些个体可以进入下一代。
程序中采用赌轮盘选择法选择，这种方法较易实现。
根据方程pi=fi/∑fi=fi/fsum，选择步骤：
1）在第t代，由
（1）式计算fsum和pi
2）产生{0,1}的随机数rand（.），求s=rand（.）*fsum
3）求∑fi≥s中最小的k，则第k个个体被选中
4）进行N次2）、3）操作，得到N个个体，成为第t=t+1代种群
代码:
%Name:
selection.m
%选择复制
function[newpop]=selection（pop,fitvalue）
totalfit=sum（fitvalue）;%求适应值之和
fitvalue=fitvalue/totalfit;%单个个体被选择的概率
fitvalue=cumsum（fitvalue）;%累积概率，如fitvalue=[1234]，则cumsum（fitvalue）=[13610]
[px,py]=size（pop）;
ms=sort（rand（px,1））;%从小到大排列，将"rand（px,1）"产生的一列随机数变成轮盘赌形式的表示方法，由小到大排列
fitin=1; %fivalue是一向量，fitin代表向量中元素位，即fitvalue（fitin）代表第fitin个个体的单个个体被选择的概率
newin=1; %同理
whilenewin<=px
if（ms（newin））newpop（newin,:
）=pop（fitin,:
）; %赋值,即将旧种群中的第fitin个个体保留到下一代（newpop）
newin=newin+1;
else
fitin=fitin+1;
end
end
五2.5交叉
交叉（crossover），群体中的每个个体之间都以一定的概率pc交叉，即两个个体从各自字符串的某一位置
（一般是随机确定）开始互相交换，这类似生物进化过程中的基因分裂与重组。
例如，假设2个父代个体x1，x2为：
x1=0100110
x2=1010001
从每个个体的第3位开始交叉，交又后得到2个新的子代个体y1，y2分别为：
y1＝0100001
y2＝1010110
这样2个子代个体就分别具有了2个父代个体的某些特征。
利用交又我们有可能由父代个体在子代组合成具有更高适合度的个体。
事实上交又是遗传算法区别于其它传统优化方法的主要特点之一。
代码:
%Name:
crossover.m
%交叉
function[newpop]=crossover_multiv（pop,pc）
globalNumv
[px,py]=size（pop）;
m=py/Numv;
forj=1:
Numv
pop1=ones（px,m）;
pop2=pop（:
m*（j-1）+1:
m*j）; %取出相应变量对应的二进制编码段
fori=1:
2:
px-1
if（rand cpoint=round（rand*（m-1））; %cpoint为交叉点
pop1（i,:
）=[pop2（i,1:
cpoint）pop2（i+1,cpoint+1:
m）];
pop1（i+1,:
）=[pop2（i+1,1:
cpoint）pop2（i,cpoint+1:
m）];
else
pop1（i,:
）=pop2（i,1:
m）;
pop1（i+1,:
）=pop2（i+1,1:
m）;
end
end
newpop（:
m*（j-1）+1:
m*j）=pop1; %将交叉后的一个参数的编码放入新种群中
end
六、变异
变异（mutation），基因的突变普遍存在于生物的进化过程中。
变异是指父代中的每个个体的每一位都以概率pm翻转，即由“1”变为“0”，或由“0”变为“1”。
遗传算法的变异特性可以使求解过程随机地搜索到解可能存在的整个空间，因此可以在一定程度上求得全局最优解。
代码:
%Name:
mutation.m
%变异
function[newpop]=mutation（pop,pm）
[px,py]=size（pop）;
newpop=ones（size（pop））;
fori=1:
px
if（rand mpoint=round（rand*py）;
ifmpoint<=0
mpoint=1;
end
newpop（i,:
）=pop（i,:
）;
ifany（newpop（i,mpoint））==0
newpop（i,mpoint）=1;
else
newpop（i,mpoint）=0;
end
else
newpop（i,:
）=pop（i,:
）;
end
end
七、求出群体中最大得适应值及其个体
代码:
%Name:
best.m
%求出群体中适应值最大的值
function[bestindividual,bestfit]=best（pop,fitvalue）
[px,py]=size（pop）;
bestindividual=pop（1,:
）;
bestfit=fitvalue
（1）;
fori=2:
px
iffitvalue（i）>bestfit
bestindividual=pop（i,:
）;
bestfit=fitvalue（i）;
end
end
八、主程序
代码:
%Name:
genmain05.m
clear
clf
popsize=20; %群体大小
chromlength=10; %字符串长度（个体长度）
pc=0.6; %交叉概率
pm=0.001; %变异概率
pop=initpop（popsize,chromlength）; %随机产生初始群体
fori=1:
20 %20为迭代次数
[objvalue]=calobjvalue（pop）; %计算目标函数
fitvalue=calfitvalue（objvalue）; %计算群体中每个个体的适应度
[newpop]=selection（pop,fitvalue）; %复制
[newpop]=crossover（pop,pc）; %交叉
[newpop]=mutation（pop,pc）; %变异
[bestindividual,bestfit]=best（pop,fitvalue）;%求出群体中适应值最大的个体及其适应值
y（i）=max（bestfit）;
n（i）=i;
pop5=bestindividual;
x（i）=decodechrom（pop5,1,chromlength）*10/1023;
pop=newpop;
end
fplot（'10*sin（5*x）+7*cos（4*x）',[010]）
holdon
plot（x,y,'r*'）
holdoff
升级会员 