Cálculo de la constante pACD
La Constante pACD es usada por la fórmula de HofferQ y puede obtenerse si conocemos la constante A de la LIO.
La Fórmula es: pACD := (((A * 0.5663) - 65.600) + 3.595) / 0.9704
Delphi:
/////////////////////////////////////////////////////////////////
////// BIOMETRIA CALCULO pACD a partir de Constante A de la LIO
// NECESITA A (Constante de la LIO) (SINGLE)
// DEVUELVE Devuelve ACD (SINGLE)
/////////////////////////////////////////////////////////////////
FUNCTION FN_REFRACCION_BIOMETRIA_pACD(VAR_A_Cte: single): single;
var
pACD: single;
A: single;
begin
A := VAR_A_Cte;
pACD := (((A * 0.5663) - 65.600) + 3.595) / 0.9704;
result := pACD;
end;