资源

使用网络单纯形的最小成本网络流问题(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_;