编程座谈 最优解列队方法.doc

编程漫谈：最优解排队方法 在计算结果中以材料成本由小到大进行排队，选出前10个方案，供设计者选用参考。 确定复算时必须的自变量，存入数组； 当第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) = A01: C(Z) = CZ: D(Z) = DOO: E(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为临时的 H = AA(I): AA(I) = AA(J): AA(J) = H H = BB(I): BB(I) = BB(J): BB(J) = 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 附：见文件小程序：《排序方法》 你可以改变原来任何数，再点击一下，会发现，已经重新排序了。