fundivideas_bs.m

calculate the p-value of Fisher Exact Test

% R=A/B
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% A=1:100;
% B=101:200;


 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% A/B
function R=funDivideAs_Bs(A,B)

N1=length(A);
N2=length(B);

R=1;
i=1;
j=1;
while j<=N1 | i<=N2
    if i>N2
        R=R*A(j);
        j=j+1;
    elseif j>N1
        R=R/B(i);
        i=i+1;
    else
        if R>=1
            R=R/B(i);
            i=i+1;
        else 
            R=R*A(j);
            j=j+1;
        end
    end
end