{$DS.}Function CFFI19Ts(forma,relacion)
If (forma=0) and (relacion<>0) Then CALL ERROR ('con forma=0, el valor de la variable relacion debe ser cero',forma)
If (forma=2) and (relacion<>0) Then CALL ERROR ('con forma=2, el valor de la variable relacion debe ser cero',forma)
If (forma=1) and (relacion<1) Then CALL ERROR ('con forma=1 el valor de la variable relacion debe ser mayor o igual que 1',forma)
If (forma=0) and (relacion=0) Then
CFFI19Ts=3.66
EndIf
If (forma=1) and (relacion>=1) and (relacion<2) Then
CFFI19Ts=2.98+0.41*(relacion-1)
EndIf
If (forma=1) and (relacion>=2) and (relacion<4) Then
CFFI19Ts=3.39+0.525*(relacion-2)
EndIf
If (forma=1) and (relacion>=4) and (relacion<8) Then
CFFI19Ts=4.44+0.3775*(relacion-4)
EndIf
If (forma=1) and (relacion>=8) and (relacion<20) Then
CFFI19Ts=5.95+0.1325*(relacion-8)
EndIf
If (forma=1) and (relacion>=20) Then
CFFI19Ts=7.54
EndIf
If (forma=2) and (relacion=0) Then
CFFI19Ts=2.35
EndIf
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
