Cálculo de la constante a0
La Cosntante de a0 de Haigis puede calcularse también conociendo la constante A de la LIO.
La Fórmula es: a0 = ACD - (0.4 * 3.37) - (0.1 * 23.29)
Delphi:
/////////////////////////////////////////////////////////////////
////// BIOMETRIA CALCULO a0 a partir de Constante A LIO
// NECESITA A (Constante LIO) (SINGLE)
// DEVUELVE Devuelve SF (SINGLE)
/////////////////////////////////////////////////////////////////
FUNCTION FN_REFRACCION_BIOMETRIA_a0(VAR_A_Cte: single): single;
var
A: single;
ACD: single;
a0: single;
begin
A := VAR_A_Cte;
ACD := (A * 0.62467) - 68.747; // Calculo ACD
a0 := ACD - (0.4 * 3.37) - (0.1 * 23.29); // Calculo a0
result := a0;
end;