traincost.m

钢管订购和运输的最优规划 程序使用说明： 两种方法进行 1

function Tc=traincost(x)
L=[300 350 400 450 500 600 700 800 900 1000];
C=[20 23 26 29 32 37 44 50 55 60];
if(x>L(end))
    Tc=C(end)+5*ceil((x-1000)/100);
else
    L(end+1)=x;
    L=sort(L);
    xsub=find(L==x);
    if(xsub(1)==1)
        Tc=C(1);
    else
        if(L(xsub(1)-1)==L(xsub))
            Tc=C(xsub(1)-1);
        else
            Tc=C(xsub(1));
        end
    end
end