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;