Page 243 - 数学建模算法与应用

第八章 图与网络模型及方法应用

B15，B16，B17/；
!c1(i，j) 表示节点 i 到 j 铁路运输的最小运价（万元），c2(i，j) 表示节点 i
到 j 公路运输的费用邻接矩阵，c(i，j) 表示节点 i 到 j 的最小运价，path 标志最

短路径上走过的顶点；
link(nodes，nodes)： w， c1，c2，c，path1，path；
supply/S1..S7/：S，P，f；
need/A1..A15/：b，y，z； !y 表示每一点往左铺的量，z 表示往右铺的量；

linkf(supply，need)：cf，X；
endsets
data：

S=800 800 1000 2000 2000 2000 3000；
P=160 155 155 160 155 150 160；
b=104，301，750，606，194，205，201，680，480，300，220，210，
420，500，0；
path1=0； path=0； w=0； c2=0；

! 以下是格式化输出计算的中间结果和最终结果；
@text(MiddleCost.txt)=@writefor(supply(i)： @writefor(need(j)： @
format(cf(i，j)，’ 6.1f’ ))， @newline(1))；
@text(Train_path.txt)=@writefor(nodes(i)：@writefor(nodes(j)：@

format(path1(i，j)，’5.0f’))，@newline(1))；
@text(Final_path.txt)=@writefor(nodes(i)：@writefor(nodes(j)：@
format(path(i，j)，’5.0f’))，@newline(1))；
@text(FinalResult.txt)=@writefor(supply(i)：@writefor(need(j)：@

format(x(i，j)，’5.0f’))， @newline(1) )；
@text(FinalResult.txt)=@write(@newline(1))；
@text(FinalResult.txt)=@writefor(need：@format(y，’5.0f’) )；

@text(FinalResult.txt)=@write(@newline(2))；
@text(FinalResult.txt)=@writefor(need：@format(z，’5.0f’) )；
enddata
calc：

233