mymin.m

来自「工件加工问题」· M 代码 · 共 17 行

function [q ,s]=min(x,high)
load usefull
adj=adj~=0;
qq=0;
ss=0;
for i=1:length(x)
    if (high-data(x(i),1))>0
        qq=data(x(i),2).*(high-data(x(i),1))+qq;
        if (high-data(x(i),1))<1
            ss=(high-data(x(i),1))*data(x(i),3)+ss;
        else
            ss=ss+data(x(i),3);
        end
    end
end
q=qq;
s=ss;