www.gusucode.com > 用matlab和lingo软件解决了数学建模大赛2000年B题 > 用matlab和lingo软件解决了数学建模大赛2000年B题/钢管订购/findc.m

    %计算任意两节点之间的最小运费函数
function c=findc(c1,c2)

w=min(c1,c2);%将两节点之间的初始权矩阵定义为铁路与公路运费之中最小的
%用floyd算法计算最小运费
dist=w;
for k=1:39
    for i=1:39
       for j=1:39
            dist(i,j)=min((dist(i,k)+dist(k,j)),dist(i,j));
            c(i,j)=dist(i,j);
        end
    end
end