迁移：最短路径（lpsol9）
/***********************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：lpsol9*//*标题：迁移：最短路径（lpsol9）*//*产品：或*//*系统：全部*//*按键：或*//*程序：OPTMODEL*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：线性规划求解器中的示例9*//*数学规划章节*//* *//***********************************************************************/title“最短路径问题”；标题2“如何将夏威夷菠萝带到伦敦餐厅”；数据航空成本1；输入ffrom&$13。到15美元_成本_；数据线；檀香山芝加哥105檀香山-旧金山75檀香山洛杉矶68芝加哥波士顿45芝加哥纽约56旧金山波士顿71旧金山-纽约48旧金山亚特兰大63洛杉矶纽约44洛杉矶亚特兰大57波士顿希思罗机场伦敦88纽约希思罗机场伦敦65亚特兰大希思罗机场伦敦76;过程操作模型；str sourcenode=“檀香山”；str-sinknode=“伦敦希思罗机场”；设置节点；num _supdem_{节点中的i}=（如果i=源节点，则为1否则，如果i=sinknode，则-1，否则为0）；设置<str，str>ARCS；num _lo_{ARCS}初始化0；num_capac_{ARCS}初始化。；编号_成本_{ARCS}；将数据aircost1读入ARCS=[ffrom tto]_cost_；节点=（ARCS}{i，j}中的并集{i，j>）；ARCS}>=_lo_[i，j]中的var流{i，j>；最小obj=ARCS}_cost_[i，j]*流量[i，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]为其他。）；ARCS}中的num _demand_{i，j>=（如果_supdem_[j]ne为0，则为-supdem[j]其他。）；ARCS中的num_fcost_{<i，j>}=_cost_[i，j]*Flow[i，j].sol；从[ffrom tto]创建数据spath_cost_ _capac_ _lo_ _supply_ _demand_ _flow_=流量_成本__rcost_=（如果Flow[ffrom，tto].rc ne 0，则Flow[ffrom，tto].rc else。）_status_=流量状态；退出；proc打印数据=spath；总成本；运行；