原文转载自:https://blog.csdn.net/robert_chen1988/article/details/52431594

论文来源:

https://www.sciencedirect.com/science/article/pii/S0045782599003898

function [xm,fv]=GAEOQ1
%%初始目标函数与约束条件
%求解变量t, k, 目标函数 f,约束条件 g1
syms t k z;
f=100/t+25*(25*t+k*10*sqrt(1+1.25*t))+100*10*sqrt(1+1.25*t)*int((z-k)*normpdf(z,0,1),z,k,inf)/t;
tmin=1e-2;
tmax=4;
kmin=0;
kmax=2;
g1=1-200*sqrt(2+0.75*t)*int((z-k)*normpdf(z,0,1),z,k,inf)/(50*t);%%将约束标准化,将右端变为1
NP=50; %进化多少代

%%初始化种群,种群长度40
size=20;
E=zeros(20,5); %前两列为初始解,第三列为适应函数值,第四列记录是否为可行解,第五列记录违背约束条件的差值
E(:,1)=tmin+(tmax-tmin)*rand(size,1);
E(:,2)=kmin+(kmax-kmin)*rand(size,1);
fv=inf;%初始最优值为无穷大的值
D=zeros(NP,4);%用来记录每代的最优解,平均值,最差解,最优解是否为可行解

%%计算适应函数罚函数值,判断是否为可行解
for i=1:size
     B=zeros(1,1);
     B(1)=subs(g1,[t,k],E(i,(1:2)));
     if B(1)>=0
        E(i,4)=1;
        E(i,3)=subs(f,[t,k],E(i,(1:2)));
     else
        E(i,4)=0;
        E(i,3)=0;
     end
     if B(1)>=0
        B(1)=0;
     else
        B(1)=abs(B(1));
     end
     E(i,5)=B(1);
end
fmax=max(E(:,3));
for i=1:size
if E(i,4)<1e-6
    E(i,3)=fmax+E(i,5);
    end
end

%%遗传进化   %%到这步适应值还没出错
for g=1:NP    %%原来错误在这里,这个k跟前面的k重复了
     %%竞标赛选择  %%小生态技术
     M=zeros(size,2);%用来存储优胜者的中间矩阵
         for i=1:size
             %A=randperm(size,6);
             %dij1=sqrt(0.5*(E(A(1),1)-E(A(2),1))^2);  %%小生态技术,只有单界时小生态技术没法用
             %dij2=sqrt(0.5*(E(A(1),1)-E(A(3),1))^2);
             %dij3=sqrt(0.5*(E(A(1),1)-E(A(4),1))^2);
             %dij4=sqrt(0.5*(E(A(1),1)-E(A(5),1))^2);
             %dij5=sqrt(0.5*(E(A(1),1)-E(A(6),1))^2);
             %if dij1<0.1
                 %if E(A(1),3)<=E(A(2),3)
                     %M(i,:)=E(A(1),(1:2));
                 %else
                     %M(i,:)=E(A(2),(1:2));  
                 %end
                 %continue;
             %elseif dij2<0.1
                 %if E(A(1),3)<=E(A(3),3)
                     %M(i,:)=E(A(1),(1:2));
                 %else
                     %M(i,:)=E(A(3),(1:2));  
                 %end
                 %continue;
             %elseif dij3<0.1
                 %if E(A(1),3)<=E(A(4),3)
                     %M(i,:)=E(A(1),(1:2));
                 %else
                     %M(i,:)=E(A(4),(1:2));  
                 %end
                 %continue;
             %elseif dij4<0.1
                 %if E(A(1),3)<=E(A(5),3)
                     %M(i,:)=E(A(1),(1:2));
                 %else
                     %M(i,:)=E(A(5),(1:2));  
                 %end
                 %continue;
             %elseif dij5<0.1
                 %if E(A(1),3)<=E(A(6),3)
                     %M(i,:)=E(A(1),(1:2));
                 %else
                     %M(i,:)=E(A(6),(1:2));  
                 %end
             %else
                 %M(i,:)=E(A(1),(1:2));
             %end 
         %end
             A=randperm(size,2);
             if E(A(1),3)<=E(A(2),3)
                 M(i,:)=E(A(1),(1:2));
             else
                 M(i,:)=E(A(2),(1:2));
             end
         end

%%模拟二进制交叉生成后代
         for j=1:size/2
             if rand()>=0.5
                 A=randperm(size,2);
                 c=rand();
                 x2=max(M(A(1),1),M(A(2),1));
                 x1=min(M(A(1),1),M(A(2),1));
                 beita1_t=1+2*(x1-tmin)/(x2-x1);
                 rfa_t=2-beita1_t^(-2);
                 if c<=1/rfa_t
                     beita2_t=sqrt(rfa_t*c);
                 else
                     beita2_t=sqrt(1/(2-rfa_t*c));
                 end
                 E(2*j-1,1)=0.5*(x1+x2-beita2_t*(x2-x1));
                 E(2*j,1)=0.5*(x1+x2+beita2_t*(x2-x1));
             end
     %%只在可行解时出错是怎么回事?是不是变异的原因,已纠正
             if rand()>0.5
                 c=rand();
                 x2=max(M(A(1),2),M(A(2),2));
                 x1=min(M(A(1),2),M(A(2),2));
                 beita1_t=1+2*(x1-kmin)/(x2-x1);
                 rfa_t=2-beita1_t^(-2);
                 if c<=1/rfa_t
                     beita2_t=sqrt(rfa_t*c);
                 else
                     beita2_t=sqrt(1/(2-rfa_t*c));
                 end
                 E(2*j-1,2)=0.5*(x1+x2-beita2_t*(x2-x1));
                 E(2*j,2)=0.5*(x1+x2+beita2_t*(x2-x1));
             end
         end

%%变异,变异会不会导致可行解不可行?单下界时不用变异,设置判断条件防止过界
         for i=1:size
             nita=100+g;
             pm=1/size+g*(1-1/size)/NP;
             if rand()<pm
                 u=rand();
                 %x=E(i,1);
                 x=E(i,1);%%
                 deltamax=1;
                 if u<=0.5
                     delta_2=(2*u)^(1/(nita+1))-1;
                 else
                     delta_2=1-(2*(1-u))^(1/(nita+1));
                 end
                 if x+delta_2*deltamax>=tmin
                     E(i,1)=x+delta_2*deltamax;
                 end
             end
    
             if rand()<pm
                 u=rand();
                 x=E(i,2);
                 deltamax=1;
                 if u<=0.5
                     delta_1=(2*u)^(1/(nita+1))-1;
                 else
                     delta_1=1-(2*(1-u))^(1/(nita+1));
                 end
                 if x+delta_1*deltamax>=kmin
                     E(i,2)=x+delta_1*deltamax;
                 end
             end
         end
     %%计算子代罚函数值,判断是否满足可行解
     for i=1:size
         B(1)=subs(g1,[t,k],E(i,(1:2)));
         if B(1)>=0
             E(i,4)=1;
             E(i,3)=subs(f,[t,k],E(i,(1:2)));%%跟直接算的结果不一样,也跟EOQ得到的结果不一样 eval出错的原因
         else
             E(i,4)=0;
             E(i,3)=0;
         end
         if B(1)>=0
             B(1)=0;
         else
             B(1)=abs(B(1));
         end
         E(i,5)=B(1);
     end
     for i=1:size
         if E(i,4)<1e-6
             E(i,3)=fmax+E(i,5);
         end
     end      
     [Q,IX]=sort(E,1);
     %Q=vpa(Q,4);%%
     D(g,1)=Q(1,3);
     D(g,2)=mean(Q(:,3));
     D(g,3)=Q(size,3);
     D(g,4)=E(IX(1,3),4);
     if Q(1,3)<fv && D(g,4)==1
         fv=Q(1,3);
         xm=E(IX(1,3),(1:2));
         xm=[xm,E(IX(1,3),4)];
     end
end

%画图
k=1;
for i=1:NP
     if D(i,4)==1
         N(k,:)=D(i,:);
         k=k+1;
     end
end
        
plot(N(:,1),'r*');
hold on
plot(N(:,2),'b+');
hold on

plot(N(:,3),'ms');

legend('最优值','平均值','最差值');
hold off

end

侵删

Matlab调用遗传工具箱复现论文模型求解部分的更多相关文章

  1. matlab调用keras深度学习模型(环境搭建)

    matlab没有直接调用tensorflow模型的接口,但是有调用keras模型的接口,而keras又是tensorflow的高级封装版本,所以就研究一下这个……可以将model-based方法和le ...

  2. 相机标定简介与MatLab相机标定工具箱的使用(未涉及原理公式推导)

    相机标定 一.相机标定的目的 确定空间物体表面某点的三维几何位置与其在图像中对应点之间的相互关系,建立摄像机成像的几何模型,这些几何模型参数就是摄像机参数. 二.通用摄像机模型 世界坐标系.摄像机坐标 ...

  3. Libsvm的MATLAB调用和交叉验证

    今天听了一个师兄的讲课,才发现我一直在科研上特别差劲,主要表现在以下几个方面,(现在提出也为了督促自己在以后的学习工作道路上能够避免这些问题) 1.做事情总是有头无尾,致使知识点不能一次搞透,每次在用 ...

  4. Matlab计算机视觉/图像处理工具箱推荐

    Matlab计算机视觉/图像处理工具箱推荐 转载http://cvnote.info/matlab-cv-ip-toolbox/ 计算机视觉/图像处理研究中经常要用到Matlab,虽然其自带了图像处理 ...

  5. MATLAB调用C程序、调试和LDPC译码

    MATLAB是一个很好用的工具.利用MATLAB脚本进行科学计算也特别方便快捷.但是代码存在较多循环时,MATLAB运行速度极慢.如果不想放弃MATLAB中大量方便使用的库,又希望代码能迅速快捷的运行 ...

  6. ArcGIS API for Silverlight 调用GP服务准备---GP模型建立、发布、测试

    原文:ArcGIS API for Silverlight 调用GP服务准备---GP模型建立.发布.测试 第一篇.GP降雨量等值线建模.发布及测试 在水利.气象等行业中,要在WebGIS中实现空间分 ...

  7. matlab添加M_map工具箱(转 http://blog.sina.com.cn/s/blog_491b86bf0100srt9.html)

    之前转载过matlab画世界地图的博文.最近正好用到.首先试了matlab自带的worldmap,感觉画出来的图形不尽如人意,比较杂乱.如下图. 略查阅了些资料,请教了Liangjing,一致推荐m_ ...

  8. matlab 调用 python

    众所周知,Python凭借其众多的第三方模块,近年来被数据分析.机器学习.深度学习等爱好者所喜爱,最主要的是Python还是开源的.另一方面,MATLAB因其在仿真方面的独特优势也被众多人追捧.而在国 ...

  9. 向量和矩阵的范数及MATLAB调用函数

    范数就是长度的一种推广形式,数学语言叫一种度量.比如有一个平面向量,有两个分量来描述:横坐标和纵坐标.向量的二范数就是欧几里得意义下的这个向量的长度.还有一些诸如极大值范数,就是横坐标或者纵坐标的最大 ...

随机推荐

  1. linux文件常用命令

    文件管理不外乎文件或目录的创建.删除.查询.移动,有mkdir/rm/mv 2.1. 创建和删除 创建:mkdir 删除:rm 删除非空目录:rm -rf file目录 删除日志 rm *log (等 ...

  2. SpringMVC整合Thymeleaf3

    (1).pom添加相关依赖 <dependency> <groupId>org.thymeleaf</groupId> <artifactId>thym ...

  3. babel-polyfill的几种使用方式

    前言 preset与plugin的关系: preset中已经包含了一组用来转换ES6+的语法的插件,如果只使用少数新特性而非大多数新特性,可以不使用preset而只使用对应的转换插件 babel默认只 ...

  4. 开头不讲"Hello Word",读尽诗书也枉然 : Word 操作组件介绍 - Spire.Doc (转)

      [原文地址]http://www.cnblogs.com/liqingwen/p/5898368.html 序 本打算过几天简单介绍下组件 Spire.XLS,突然发现园友率先发布了一篇,既然 x ...

  5. 【easy】746. Min Cost Climbing Stairs 动态规划

    On a staircase, the i-th step has some non-negative cost cost[i]assigned (0 indexed). Once you pay t ...

  6. [吐槽]webpack4

    https://webpack.js.org/guides/tree-shaking/ https://www.webpackjs.com/guides/ 插件都过时被替代了,中文文档也没更新过来,坑 ...

  7. 初学python之路-day08

    #学习了编码后,还要了解三种字符串.# 一.# 普通字符串:u''以字符作为输出单位,# print(u'abc') # 用于显示abc# # 二进制字符串:b'' 二进制字符串以字节作为输出单位# ...

  8. 使用 Xtrabackup 部署 MySQL 从库

    数据库备份和恢复是数据库管理工作中非常重要的一个部分. 笔者常用的两个备份工具是mysqldump (逻辑备份)和 Xtrabackup (物理备份). 对于前者一般是用在凌晨的业务低峰期的定时任务中 ...

  9. 解决:win7右键打开方式添加应用程序无法设置和删除多余的打开方式

    win7右键打开方式添加应用程序无法设置 点击“开始”—“运行”,输入“regedit”打开注册表,在“HKEY_CLASSES_ROOT\Applications\”中找到无法添加的程序 ( 比如“ ...

  10. LoadRunner学习笔记(三)

    一.  LR如何监控Windows系统资源 一般通过LR进行压力测试,都需要实时监控服务端的系统资源,我们可以直接在远程连接服务器上面开启任务管理器 或者在控制面板中找到性能计数器来监控,但是为了在L ...