{$DS.}Function FFORMA3D11(r1,r2,Fij$)
If (Fij$='F12') Then
FFORMA3D11=1
EndIf
If (Fij$='F11') Then
FFORMA3D11=0
EndIf
If (Fij$='F21') Then
FFORMA3D11=(r1/r2)^2
EndIf
If (Fij$='F22') Then
FFORMA3D11=1-(r1/r2)^2
EndIf
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.