clo_retmin1.m

来自「线性规划算法」· M 代码 · 共 15 行

function [q,j]=clo_retmin1(X,Y)
n=length(X);
m=1;
q=30000000;
while m<=n-1
  if (Y(m)>0)  
        if X(m)/Y(m)<q
            q=X(m)/Y(m);
            j=m;         
        end
   end
    m=m+1;
end
p=q;
i=j;