{$DS.}Function FFORMA3D9(w,l,h)
HH=h/l
WW=w/l
arg1=(1/WW)
arg2=(1/HH)
arg3=((HH^2+WW^2)^(-1/2))
A=((1+WW^2)*(1+HH^2))/(1+WW^2+HH^2)
B=(((WW^2)*(1+WW^2+HH^2))/((1+WW^2)*(HH^2+WW^2)))^(WW^2)
C=(((HH^2)*(1+WW^2+HH^2))/((1+HH^2)*(HH^2+WW^2)))^(HH^2)
FFORMA3D9=(1/(pi*WW))*((WW*(arctan(arg1)*Convert(deg,rad)))+(HH*(arctan(arg2)*Convert(deg,rad)))-(sqrt(HH^2+WW^2)*(arctan(arg3)*Convert(deg,rad)))+(0.25*ln(A*B*C)))
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
