使用网络单纯形的最小成本网络流问题（optlpe08）
/************************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：optlpe08*//*标题：使用网络单工的最小成本网络流问题（optlpe08）*//*产品：或*//*系统：所有*//*关键字：或*//*程序：OPTLP*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：数学OPTLP章节中的示例8*//*编程*//* *//************************************************************************/数据ex8；输入字段1$8。field2 13美元@25字段3$13。field4@53 field5$13。字段6；数据线；名称。行。N对象。E余额['1']。E余额['2']。E余额['3']。E余额['4']。E余额['5']。E余额['6']。E余额['7']。E平衡['8']。列。.x['1'，'4']对象2余额['1']1.x['1'，'4']余额['4']-1。.x['2'，'1']对象1余额['1']-1.x['2'，'1']余额['2']1。.x['2'，'3']余额['2']1余额['3']-1.x['2'，'6']对象6余额['2']1.x['2'，'6']余额['6']-1。.x['3'，'4']对象1余额['3']1.x['3'，'4']余额['4']-1。.x['3'，'5']对象4余额['3']1.x['3'，'5']余额['5']-1。.x['4'，'7']对象5余额['4']1.x['4'，'7']余额['7']-1。.x['5'，'6']对象2余额['5']1.x['5'，'6']余额['6']-1。.x['5'，'7']对象7余额['5']1.x['5'，'7']余额['7']-1。.x['6'，'8']对象8余额['6']1.x['6'，'8']余额['8']-1。.x['7'，'8']对象9余额['7']1.x['7'，'8']余额['8']-1。右侧。. .右侧。余额['1']10。. .右侧。余额['2']20。. .右侧。余额['4']-5。. .右侧。余额['7']-15。. .右侧。余额['8']-10。绑定。向上。绑定。x['1'，'4']15。向上。绑定。x['2'，'1']10。向上。绑定。x['2'，'3']10。向上。绑定。x['2'，'6']10。向上。绑定。x['3'，'4']5。向上。绑定。x['3'，'5']10。向上。绑定。x['4'，'7']10。向上。绑定。x['5'，'6']20。向上。绑定。x['5'，'7']15。向上。绑定。x['6'，'8']10。向上。绑定。x['7'，'8']15。恩达塔。;title1“OPTLP程序”；程序optlp预溶器=无打印级别=2对数频率=1数据=ex8primalout=ex8输出算法=ns；运行；title2“基本解决方案”；proc打印数据=ex8out标签；运行；