find_order.m

来自「Generates Alist format files for SFT LDP」· M 代码 · 共 22 行

function a = find_order(j,m)
%find_order(j,m)


r = -1;
a = -1;     %for order not found
count = 1;

for i=1:m
    if order(i,m) == j
        r(1,count) = i;
        count = count + 1;
    end
     
end
a = r;
%if count ~= 1
 %   a = r(1,1);
 %end
    %else
    %a = r(1,2);
    %end