Cálculo de la constante ACD
La Constante ACD es usada para calcular la constante a0 de la fórmula de Haigis.
La Fórmula es: ACD = (A * 0.62467) - 68.747
Delphi:
/////////////////////////////////////////////////////////////////
////// BIOMETRIA CALCULO ACD a partir de Constante A de la LIO
// NECESITA A (Constante LIO) (SINGLE)
// DEVUELVE Devuelve SF (SINGLE)
/////////////////////////////////////////////////////////////////
FUNCTION FN_REFRACCION_BIOMETRIA_ACD(VAR_A_Cte: single): single;
var
ACD: single;
A: single;
begin
A := VAR_A_Cte;
ACD := (A * 0.62467) - 68.747;
result := ACD;
end;