mymin.asv

来自「工件加工问题」· ASV 代码 · 共 37 行

function [q ,s]=min(x,high)
load usefull
adj=adj~=0;
n=length(x)
leftnodes=sum(adj(x,:))>0;
for i=1:n
    leftnodes(x(i))=0;
end
leftnodes
n=sum(leftnodes);
for i=1:15
    if (leftnodes(i)~=0)&(sum(i==x)~=1)
        ld(n)=i;
        n=n-1;
    end
end
h=min(data(ld,1))+1.2;
if high>h
    disp('high is too longe,You must input number smaller' );
    disp(h);
    q=0;
    return
end
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+k;
        end
    end
end
q=qq;
s=ss;