使用网络单纯形的最小成本网络流问题(lpsol5)
/*************************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称:lpsol5*//*标题:使用网络单纯形的最小成本网络流问题(lpsol5)*//*产品:或*//*系统:全部*//*关键字:或*//*程序:OPTMODEL*//*数据:*//* *//*支持:更新:*//*参考:*//*MISC:线性规划求解器中的示例5*//*数学规划章节*//* *//*************************************************************************/数据节点数据;输入编号$sd;数据线;1 102 203 04 -55 06 07 -158 -10;数据arcdata;输入邮件$head_$lo_capace_cost;数据线;1 4 0 15 22 1 0 10 12 3 0 10 02 6 0 10 63 4 0 5 13 5 0 10 44 7 0 10 55 6 0 20 25 7 0 15 76 8 0 10 87 8 0 15 9;过程操作模型;设置节点;num供应需求{节点};设置<str,str>ARCS;num arcLower{ARCS};num arcUpper{ARCS};num arcCost{ARCS};将数据arcdata读入ARCS=[_tail__head_]arcLower=_lo_arcUpper=_capac_ arcCost=_cost_;将数据节点数据读入节点=[_node_]supply_demand=_sd_;ARCS中的var流{<i,j>}>=arcLower[i,j]<=arcUpper[i,j];最小对象=ARCS}中的总和{<i,j>arcCost[i,j]*flow[i,j];con balance{i in NODES}(节点中的i):ARCS}流[i,j]中的和{<(i),j>=供应_需求[i];用lp/algorithm=ns-scale=none logfreq=1求解;印刷流程;退出;%放置&_ROPTMODEL_;过程操作模型;设置节点;num供应需求{节点};设置<str,str>ARCS;num arcLower{ARCS};num arcUpper{ARCS};num arcCost{ARCS};将数据arcdata读入ARCS=[_tail__head_]arcLower=_lo_arcUpper=_capac_ arcCost=_cost_;将数据nodedata读入NODES=[node_]supply_demand=_sd_;ARCS}中的var流{<i,j>=arcLower[i,j]<=arcUpper[i,j];最小对象=ARCS}中的总和{<i,j>arcCost[i,j]*flow[i,j];con balance{i in NODES}(节点中的i):ARCS}流[i,j]中的和{<(i),j>=供应_需求[i];con预算On2:ARCS中的和{<i,j>:i='2'}arcCost[i,j]*flow[i,j]<=50;用lp/algorithm=ns-scale=none logfreq=1求解;印刷流程;退出;%放置&_OROPTMODEL_;