function y=testvar(s1,s2,n1,n2);
F=s1/s2;
if (F<1)
    F=1./F;
    n=n2;
    n2=n1;
    n1=n;
end
y=fp(F,n1,n2)