{$DS.}Function CFFI19qs(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
CFFI19qs=4.36
EndIf
If (forma=1) and (relacion>=1) and (relacion<1.4) Then
CFFI19qs=3.63+0.375*(relacion-1)
EndIf
If (forma=1) and (relacion>=1.4) and (relacion<2) Then
CFFI19qs=3.78+0.55*(relacion-1.4)
EndIf
If (forma=1) and (relacion>=2) and (relacion<3) Then
CFFI19qs=4.11+0.66*(relacion-2)
EndIf
If (forma=1) and (relacion>=3) and (relacion<4) Then
CFFI19qs=4.77+0.58*(relacion-3)
EndIf
If (forma=1) and (relacion>=4) and (relacion<8) Then
CFFI19qs=5.35+0.3125*(relacion-4)
EndIf
If (forma=1) and (relacion>=8) and (relacion<20) Then
CFFI19qs=6.60+0.13583*(relacion-8)
EndIf
If (forma=1) and (relacion>=20) Then
CFFI19qs=8.23
EndIf
If (forma=2) and (relacion=0) Then
CFFI19qs=3
EndIf
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
