{$DS.}Function FFORMA2D6(s,D) X=1+(s/D) FFORMA2D6=(1/pi)*(sqrt((X^2)-1)+(arcsin(1/X)*Convert(deg,rad))-X) End