基于遗传算法的数字图像处理程序

遗传算法程序loadbelmont1%调用MATLAB中的belmont1图像灰度值figure(1);image(X);colormap(map);NIND=40;%个体数目(Numberofindividuals)MAXGEN=50;%最大遗传代数(MaximumnumberofgenerationsPRECI=8;%变量的二进制位数(Precisionofvariables)GGAP=0.9;%代沟(Generationgap)FieldD=[8;-1;256;1;0;1;0];%建立区域描述器(Buildfielddescriptor)-1表示包括边界，1表示不包括边界Chrom=crtbp(NIND,PRECI);%创建初始种群gen=0;Phen=bs2rv(Chrom,FieldD);%初始种群十进制转换ObjV=target(X,Phen);%计算种群适应度值whilegenMAXGEN%代沟(Generationgap)FitnV=ranking(-ObjV);%分配适应度值(Assignfitnessvalues)SelCh=select('sus',Chrom,FitnV,GGAP);%选择SelCh=recombin('xovsp',SelCh,0.7);%重组SelCh=mut(SelCh);%变异phenSel=bs2rv(SelCh,FieldD);%子代十进制转换ObjVSel=target(X,phenSel);[ChromObjV]=reins(Chrom,SelCh,1,1,ObjV,ObjVSel);%重插入gen=gen+1;end[Y,I]=max(ObjV);M=bs2rv(Chrom(I,:),FieldD);%估计域值[m,n]=size(X);fori=1:m;forj=1:n;ifX(i,j)M;X(i,j)=256;%灰度值大于域值时是白色endendendfigure(2)%画出分割后的目标图像image(X),title('分割后图像');colormap(map);