本篇博客主要介绍模型建模过程,以及相应的代码和逻辑解释
从执行模型的角度来说,首先是初始化
HandlingCost := 0
PartsNo :=0
InitPartsTable --初始化表格
GASequence.delete --删除GA序列
for var i := 1 to Number_OF_Machine --与遗传算法有关,用于生成初始序列
GASequence[1, i] := i
next
InitPartsTable方法释义如下
var Rows, Lines: integer
var MachineName, BufName: string
var Machine, Buf: object
if Number_Of_Machine /= D_From_To_Chart.YDim --为整数代表True
switch messageBox("设施数目不对,请核查…", 50, 13) --数字50表示按钮组合是否取消,数字13表示带有感叹号的黄色三角形。
case 16 --1表示确定,2表示取消,16表示是,32表示否。
print "yes"
case 32
print "no"
else
print "Cancel"
end
EventController.stop --事件停止运行
end
PartsTable.delete --清空列表
for var i := 1 to Number_Of_Machine
for var j := 1 to Number_Of_Machine
if j < i --表格左下角部分
if D_From_To_Chart[j,i] <= 0 --如果左下角小于或者等于0
D_From_To_Chart[j,i] := D_From_To_Chart[i,j]; --右上角对称对应值填补到左下角
end
else
if j = i --