迁移：最大流量（lpsole07）
/**********************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：lpsole07*//*标题：迁移：最大流量（lpsole07）*//*产品：或*//*系统：所有*//*关键字：或*//*程序：OPTMODEL*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：线性规划求解器中的示例7*//*数学规划章节*//* *//**********************************************************************/标题“最大流量问题”；数据弧；输入来自$_to_$_cost_capace；数据线；S a。S b。甲17b丙29a天35b日48抄送5 15日期f 6 20例如7 11第8页至第6页e小时9 12f小时10 4g T。小时。;过程操作模型；str源=“S”；str-sink=“T”；设置节点；num_supdem_{i在节点}中=（如果i在{source，sink}中，则为.else 0）；设置<str，str>ARCS；num _lo_{ARCS}初始化0；num_capac_{ARCS}初始化。；num_cost_{ARCS}初始化0；将数据弧命名读入arcs=[_from__to_]_cost__capac_；节点=（ARCS}{i，j}中的并集{i，j>）；ARCS中的var Flow{<i，j>｝>=_lo_[i，j]；对于ARCS中的{<i，j>：_capac_[i，j]ne.}流[i，j].ub=_capac_[i，j]；最大obj=ARCS中的总和{<i，j>：j=汇}流量[i，j]；节点差异{源，汇}}中的con平衡{i：ARCS}流[i，j]中的和{<（i），j>-ARCS}流[j，i]=_supdem_[i]中的和{<j，（i）>；解决；ARCS}中的num _supply_{=（如果_supdem[i]ne 0，则_supdem[i]else。）；ARCS}中的num _demand_{i，j>=（如果_supdem_[j]ne为0，则为-supdem[j]其他。）；ARCS中的num_fcost_{<i，j>}=_cost_[i，j]*Flow[i，j].sol；从[_from_to]创建数据gout3_cost_ _capac_ _lo_ _supply_ _demand_ _flow_=流量_成本_；退出；proc打印数据=痛风3；运行；