{$DS.}Function FFORMA3D8(a,b,c)
X=a/c
Y=b/c
XX=1+X^2
YY=1+Y^2
AA=X/sqrt(YY)
BB=Y/sqrt(XX)
FFORMA3D8=(2/(pi*X*Y))*((0.5*ln((XX*YY)/(1+X^2+Y^2)))+(X*sqrt(YY)*(arctan(AA)*Convert(deg,rad)))+(Y*sqrt(XX)*(arctan(BB)*Convert(deg,rad)))-(X*(arctan(X)*Convert(deg,rad)))-(Y*(arctan(Y)*Convert(deg,rad))))
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
