El Oculista

Fórmula BESSt ajuste K en operados de cirugia refractiva

Fórmula escrita en Delphi para el cálculo de la K ajustada con la fórmula BESSt para usar en pacientes operados de cirugía refractiva (PRL, LASIK, SMILE)

/////////////////////////////////////////////////////////////////
//////           BIOMETRIA OPERADO CIRUGIA REFRACTIVA LASER - AJUSTE K - MÉTODO  DE BESSt
//               NO PRECISA LA HISTORIA CLINICA PREVIA A LA CIRUGIA REFRACTIVA
//               NECESITA
//                    OCULUS-PENTACAM:
//                          GCC   = Grosor corneal central en micras
//                          Rant  = Radio de curvadura corneal de la cara anterior en mm
//                          Rpost = Radio de curvadura corneal de la cara posterior en mm
//        DEVUELVE    K (Potencia corneal ajustada en Dioptrias)
//
//        FORMULA
//
//        USAR CON    SRK-T o Hoffer Q o doble k
//
/////////////////////////////////////////////////////////////////
FUNCTION  FN_REFRACCION_BIOMETRIA_PRK_LASIK_AJUSTE_K_BESSt_CR(VAR_Ranterior, VAR_Rposterior, VAR_GCC: single): single; // AJUSTE K metodo BESSt en operado cirugia refractiva
var
   R_Anterior:              single;
   R_Posterior:           single;
   GCC:                        single;
   K_Ajustada:            single;

   n_aire:                     single;
   n_acuoso:              single;
   n_vc:                        single;
   n_corneal:              single;
   n_Ajustado:           single;
   K_Anterior:             single;
   d:                              single;
   d_GCC:                  single;
   Fanterior:               single;
   Fposterior:             single;
begin
   R_Anterior               := VAR_Ranterior;
   R_Posterior            := VAR_Rposterior;
   GCC                         := VAR_GCC;

   n_aire                      := 1;
   n_acuoso               := 1.336;
   n_vc                         := 1.3265;
   n_corneal               := n_vc + (GCC * 0.000022);
   K_Anterior              := 337.5 / R_Anterior;
   // calcular n_Ajustado
   if K_Anterior < 37.5 then
     begin
        n_Ajustado := n_corneal + 0.017;
     end
   else if K_Anterior < 41.44 then
     begin
        n_Ajustado := n_corneal;
     end
   else if K_Anterior < 45 then
     begin
        n_Ajustado := n_corneal - 0.015;
     end
   else
     begin
       n_Ajustado := n_corneal;
     end;

   d_GCC           := GCC / 1000000;
   d               := d_GCC / n_vc;

   K_Ajustada      := (((1 / R_Anterior) * (n_Ajustado - n_aire)) + ((1 / R_Posterior) * (n_acuoso - n_Ajustado)) - (d * (1 / R_Anterior) * (n_Ajustado - n_aire) * (1 / R_Posterior) * (n_acuoso - n_Ajustado))) * 1000;
   result          := K_Ajustada;
end;