{$DS.}Function FFORMA3D10(r1,r2,h) R_1=r1/h R_2=r2/h X=1+((1+R_2^2)/(R_1^2)) a=R_2/R_1 FFORMA3D10=0.5*(X-sqrt((X^2)-(4*a^2))) End