编程漫谈最优解排队方法.docx

编程漫谈：最优解排队方法 在计算结果中以材料成本由小到大进行排队，选出前 10 个方案，供设计者选 rrzr 务. 用参考。 确定复算时必须的自变量，存入数组； 当第 11个可行解方案算出后，与前 10 个方案进行逐个比较排队，数组里只存放 成本最低的 10 个方案； 计算完成后显示 10 个最优解的主要性能和线规等参数，设计者选择； 显示选中方案的全部计算结果，并可由设计者修改。 举例如下： Rem 可行解方案排队 3010 If Z 11 Then Z = 11 限制数组只放 11 行数据 For I = 0 To Z: If JI = MM(I) Then Return Next I 将成本不相同新方案的变量放入数组 MM(Z) = JI: AA(Z) = A1: BB(Z) = B1: CC(Z) A2: F(Z) = B2: O(Z) = PO: U(Z) = UK If Z = 11 Then For I = 0 To 10 For J = I + 1 To 11 If MM(I) = MM(J) Then GoTo 3270 H = MM(I): MM(I) = MM(J): MM(J) = H H = AA(I): AA(I) = AA(J): AA(J) = H H = BB(I): BB(I) = BB(J): BB(J) = H 循环比较排除成本相同方案 A01: C(Z) = CZ: D(Z) = DOO: E(Z) = 新方案去排队 原排队数据位置 进行比较的 如果原方案成本低则不更换位置 新旧方案更换位置， H 为临时的 H = CC(I): CC(I) = CC(J): CC(J) = H H = C(I): C(I) = C(J): C(J) = H H = D(I): D(I) = D(J): D(J) = H H = E(I): E(I) = E(J): E(J) = H H = F(I): F(I) = F(J): F(J) = H H = O(I): O(I) = O(J): O(J) = H H = U(I): U(I) = U(J): U(J) = H 3270 Next J Next I End If 附：见文件小程序： 《排序方法》 你可以改变原来任何数，再点击一下，会发现，已经重新排序了