{$DS.}Function FFORMA2D5(a,b,c,r) arg1=(a/c) arg2=(b/c) FFORMA2D5=(r/(b-a))*((arctan(arg2)*Convert(deg,rad))-(arctan(arg1)*Convert(deg,rad))) End