基于遗传算法启发式算法退火算法的车间调度研究代码+案例+说明

进阶生产规划及排程系统　便是利用先进的信息科技及规划技术，例如基因算法﹝Genetic Algorithm﹞、限制理论﹝Theory of Constraints﹞、作业分析 ﹝Operations Research﹞、 生产仿真﹝Simulation﹞及限制条件满足技术﹝Constraint Satisfaction Technique﹞等，在考虑企业资源﹝主要为物料与产能﹞限制条件与生产现场的控制与派工法则下，规划可行的物 料需求计划与生产排程计划，以满足顾客需求及面对竞争激烈的市场。进阶生产规划及排程亦提供了what-if 的分析，可以让规划者快速结合生产信息﹝如订单、途程、存货、BOM与产能限 制等﹞，作出平衡企业利益与顾客权益的最佳规划和决策。

%模拟退火算法m源程序
function [MinDBestPath]=MainAneal（CityPositionpn） 
function [MinDBestPath]=MainAneal2（CityPositionpn）
%此题以中国31省会城市的最短旅行路径为例，给出TSP问题的模拟退火程序
%CityPosition_31=[1304 2312;3639 1315;4177 2244;3712 1399;3488 1535;3326 1556;...
%                 3238 1229;4196 1044;4312  790;4386  570;3007 1970;2562 1756;...
%                 2788 1491;2381 1676;1332  695;3715 1678;3918 2179;4061 2370;...
%                 3780 2212;3676 2578;4029 2838;4263 2931;3429 1908;3507 2376;...
%                 3394 2643;3439 3201;2935 3240;3140 3550;2545 2357;2778 2826;2370 2975];

%T0=clock
global path p2 D;
[mn]=size（CityPosition）;
%生成初始解空间，这样可以比逐步分配空间运行快一些
TracePath=zeros（1e3m）;
Distance=inf*zeros（11e3）;

D = sqrt（（CityPosition（ :  ones（1m）） - CityPosition（ :  ones（1m））‘）.^2 +...
    （CityPosition（ : 2*ones（1m）） - CityPosition（ :2*ones（1m））‘）.^2 ）;
%将城市的坐标矩阵转换为邻接矩阵（城市间距离矩阵）
for i=1:pn
    path（i:）=randperm（m）;%构造一个初始可行解
end
t=zeros（1pn）;
p2=zeros（1m）;

iter_max=100;%input（‘请输入固定温度下最大迭代次数iter_max=‘ ）;
m_max=5;%input（‘请输入固定温度下目标函数值允许的最大连续未改进次数m_nax=‘ ） ;
%如果考虑到降温初期新解被吸收概率较大，容易陷入局部最优
%而随着降温的进行新解被吸收的概率逐渐减少，又难以跳出局限
%人为的使初期 iter_maxm_max 较小，然后使之随温度降低而逐步增大可能
%会收到到比较好的效果

T=1e5;
N=1;
tau=1e-5;%input（‘请输入最低温度tau=‘ ）;
%nn=ceil（log10（tau/T）/log10（0.9））;
while  T>=tau%&m_num       iter_num=1;%某固定温度下迭代计数器
       m_num=1;%某固定温度下目标函数值连续未改进次数计算器
       %iter_max=100;
       %m_max=10;%ceil（10+0.5*nn-0.3*N）;
       while m_num        %MRRTT（Metropolis Rosenbluth Rosenbluth Teller Teller）过程:
             %用任意启发式算法在path的领域N（path）中找出新的更优解
             for i=1:pn
                 Len1（i）=sum（[D（path（i1:m-1）+m*（path（i2:m）-1）） D（path（im）+m*（path（i1）-1））]）;
%计算一次行遍所有城市的总路程 
                 [path2（i: ）]=ChangePath2（path（i: ）m）;%更新路线
                 Len2（i）=sum（[D（path2（i1:m-1）+m*（path2（i2:m）-1）） D（path2（im）+m*（path2（i1）-1））]）;
             end
             %Len1
             %Len2
             %if Len2-Len1<0|exp（（Len1-Len2）/（T））>rand
             R=rand（1pn）;
             %Len2-Len1R
             if find（（Len2-Len1R）~=0）
                 path（find（（Len2-Len1R）~=0） : ）=path2（find（（Len2-Len1R）~=0） : ）;
                 Len1（find（（Len2-Len1R）~=0））=Len2（find（（Len2-Len1R）~=0））;
                 [TempMinDTempIndex]=min（Len1）;
                 %TempMinD
                 TracePath（N: ）=path（TempIndex: ）;
                 Distance（N: ）=TempMinD;
                 N=N+1;
                 %T=T*0.9
                 m_num=0;
             else
                 m_num=m_num+1;
             end
             iter_num=iter_num+1;
         end
         T=T*0.9
%m_numiter_numN
end 
[MinDIndex]=min（Distance）;
BestPath=TracePath（Index: ）;
disp（MinD）
%T1=clock


%更新路线子程序
function [p2]=ChangePath2（p1C

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3740  2008-05-29 09:50  遗传算法退火算法\matlabTSP.m

     文件     183659  2008-05-29 10:01  遗传算法退火算法\一种基于遗传算法的车间调度算法求解.pdf

     文件     150746  2008-05-29 10:02  遗传算法退火算法\基于混合遗传算法的车间调度问题的研究.pdf

     文件     176371  2008-05-29 10:00  遗传算法退火算法\基于混合遗传算法的车间调度问题研究.pdf

     文件     137442  2008-05-29 09:56  遗传算法退火算法\基于遗传算法的车间作业调度.pdf

     文件      35560  2005-07-16 14:18  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\Data_discrete_analysis.m

     文件       2852  2005-07-18 13:52  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\main.m

     文件       3235  2005-07-18 15:09  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\main_88.asv

     文件       3320  2005-07-18 16:52  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\main_88.m

     文件        572  2005-07-10 21:21  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\Rand_Tong_yong.m

     文件         59  2005-07-13 09:52  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\wh_JC.m

     文件        269  2005-07-10 21:16  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\Wh_rand.m

     文件      35759  2005-07-16 15:18  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\wh_test.m

     文件     116538  2005-07-18 10:34  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\wh_test_44.m

     文件     233976  2005-07-16 14:21  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\wh_test_88.m

     文件         69  2005-07-13 09:55  遗传算法退火算法\模拟退火法（Sb除Sw）\模拟退火法（Sb除Sw）\wh_ZHS.m

     文件        174  2006-11-24 16:52  遗传算法退火算法\模拟退火算法\1.txt

     文件        304  2006-11-24 16:53  遗传算法退火算法\模拟退火算法\2.txt

     文件       4716  2007-12-13 20:28  遗传算法退火算法\模拟退火算法\main.cpp

     文件      31232  2008-06-01 07:22  遗传算法退火算法\模拟退火算法.doc

     文件       5882  2008-05-28 21:12  遗传算法退火算法\模拟退火算法.mht

     文件    6416546  2008-05-28 21:26  遗传算法退火算法\模拟退火算法.pdf

     文件      61667  2008-05-29 09:51  遗传算法退火算法\模拟退火算法_百度百科.mht

     文件     109332  2008-05-29 09:48  遗传算法退火算法\模拟退火算法源程序（转）_I.mht

     文件      18952  2008-05-31 12:09  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\33725376.jpg

     文件        161  2008-05-31 11:41  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\advu.gif

     文件        835  2008-05-31 11:41  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\face_byhtsai_amuro.gif

     文件        233  2008-05-31 11:41  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\flat_d.gif

     文件        441  2008-05-31 11:41  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\icon_copy.gif

     文件        452  2008-05-31 12:09  遗传算法退火算法\研学论坛 - Re【原创】车间作业调度问题遗传算法通用Matlab程序（附图）.files\icon_email.gif

............此处省略203个文件信息