Aplicación de Prolog en la enfermedad del dengue (página 2)

El dengue.

El dengue es una enfermedad febril de comienzo súbito, epidémica de origen vírico y transmitida por el mosquito

Stegomyia aegypti o Aedes aegypti y con menor frecuencia por el Aedes albopictus o mosquito tigre. Es frecuente en zonas de la India, Sudeste Asiático, Centro y Sudamérica, Caribe y África central y occidental.

Es causada por cualquiera de cuatro virus estrechamente relacionados (DEN-1, DEN-2, DEN-3 ó DEN-4) que son transmitidos a los humanos por la picadura de un mosquito infectado. El mosquito Stegomyia aegypti es el transmisor o vector de los virus de dengue más importante en el hemisferio occidental.

También llamada fiebre rompehuesos, enfermedad infecciosa tropical caracterizada por fiebre y dolor intenso en las articulaciones y músculos, inflamación de los ganglios linfáticos y erupción ocasional de la piel.

El dengue es endémico en algunas zonas de los trópicos y han aparecido epidemias en países tropicales y templados. Carece de tratamiento específico y de vacuna. Con frecuencia tiene una evolución de seis a siete días, pero la convalecencia es larga y lenta.

El Dengue Hemorrágico o fiebre hemorrágica del dengue es una forma más grave del dengue y puede ser mortal si no se trata adecuadamente. El Dengue Hemorrágico es causado por infección con uno de los mismos virus que causan el dengue, habiéndose infectado previamente con alguno de los otros tres. El virus no se puede transmitir directamente de persona a persona.

El dengue es una enfermedad vírica febril y aguda que se caracteriza por comienzo repentino. La fiebre puede durar de tres a cinco días (rara vez más de siete días, y suele ser difásica). Cefalea intensa, mialgias, artralgias, dolor retroorbital, anorexia, alteraciones del aparato gastrointestinal y exantema rubeliforme. En algunos casos aparece tempranamente eritema generalizado.

Para la fecha en que la fiebre muestra defervescencia suele aparecer una erupción maculopapular generalizada, pruriginosa de duración corta.

En la sección correspondiente a dengue hemorrágico se presentan las infecciones por dengue que presentan un incremento en la permeabilidad vascular, manifestaciones hemorrágicas extraordinarias y ataque de órganos específicos.

En cualquier momento durante la fase febril pueden aparecer fenómenos hemorrágicos de poca intensidad, como petequias, epistaxis o menotrorragia. En las personas de piel oscura la erupción a menudo no es visible.

La recuperación puede acompañarse de fatiga y depresión duraderas. Son frecuentes la linfadenopatías y la leucopenia con linfocitosis relativa; con menor frecuencia se observan trombocitopenia (menos de 100 000 plaquetas por mm3) e incremento de las aminotransferasas.

Las epidemias tienen carácter explosivo, pero la tasa de letalidad es muy baja, siempre que no aparezca el dengue hemorrágico.

El diagnóstico diferencial incluye todas las enfermedades epidemiológicamente importantes incluidas bajo los rubros de fiebres víricas transmitidas por artrópodos, sarampión, rubéola y otras enfermedades febriles sistémicas. Con técnicas auxiliares en el diagnóstico pueden utilizarse las pruebas de inhibición de la hemaglutinación, fijación del complemento. ELISA, captación de anticuerpos IgG e IgM, así como las de neutralización. El virus se aísla de la sangre por inoculación de mosquitos o por técnicas de cultivo celular de mosquitos o vertebrados y después se identifican con anticuerpos monoclonales con especificidad de tipo.

Desarrollo

Después de hablar un poco sobre que es prolog y el dengue, presentaremos un programa realizado con prolog que puede ayudar al diagnostico, almacenamiento de datos y búsqueda rápida y oportuna de los pacientes aquejados con esta entidad y sus datos, así veremos también un modesto ejemplo de la relación estrecha que puede haber entre esta temible enfermedad y la inteligencia artificial. Para poder ´´correr´´ este programa es necesario tener instalado previamente un software al efecto como Amzi prolog o Swi-prolog. Hemos primero hecho las declaraciones y luego hemos escrito las reglas. La cantidad de pacientes sobrepasa los diez, pero estos solo sirven como ejemplo o modelo, pues igual puede ser mucho mayor o menor la cantidad.

Programa

caracteristicas(fiebre,elevada,'Alberto martinez').

caracteristicas(fiebre,constante,'Alberto martinez').

caracteristicas(fiebre,diaria,'Alberto martinez').

caracteristicas(cefalea,intensa,'Alberto martinez').

caracteristicas(cefalea,constante,'Alberto martinez').

caracteristicas(cefalea,opresiva,'Alberto martinez').

caracteristicas(dolor_ocular,retrocular,'Alberto martinez').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Alberto martinez').

caracteristicas(dolor_ocular,intenso,'Alberto martinez').

caracteristicas(leucograma,elevado,'Alberto martinez').

caracteristicas(leucograma,linfocitosis,'Alberto martinez').

caracteristicas(leucograma,linfopenia,'Alberto martinez').

caracteristicas(monosuero,positivo,'Alberto martinez').

caracteristicas(fiebre,elevada,'Enrique colon').

caracteristicas(fiebre,constante,'Enrique colon').

caracteristicas(fiebre,diaria,'Enrique colon').

caracteristicas(cefalea,intensa,'Enrique colon').

caracteristicas(cefalea,constante,'Enrique colon').

caracteristicas(cefalea,opresiva,'Enrique colon').

caracteristicas(dolor_ocular,retrocular,'Enrique colon').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Enrique colon').

caracteristicas(dolor_ocular,intenso,'Enrique colon').

caracteristicas(leucograma,elevado,'Enrique colon').

caracteristicas(leucograma,linfocitosis,'Enrique colon').

caracteristicas(leucograma,linfopenia,'Enrique colon').

caracteristicas(monosuero,positivo,'Enrique colon').

caracteristicas(fiebre,elevada,'Julio mesa').

caracteristicas(fiebre,constante,'Julio mesa').

caracteristicas(fiebre,diaria,'Julio mesa').

caracteristicas(cefalea,intensa,'Julio mesa').

caracteristicas(cefalea,constante,'Julio mesa').

caracteristicas(cefalea,opresiva,'Julio mesa').

caracteristicas(dolor_ocular,retrocular,'Julio mesa').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Julio mesa').

caracteristicas(dolor_ocular,intenso,'Julio mesa').

caracteristicas(leucograma,elevado,'Julio mesa').

caracteristicas(leucograma,linfocitosis,'Julio mesa').

caracteristicas(leucograma,linfopenia,'Julio mesa').

caracteristicas(monosuero,positivo,'Julio mesa').

caracteristicas(fiebre,elevada,'Rey alfonso').

caracteristicas(fiebre,constante,'Rey alfonso').

caracteristicas(fiebre,diaria,'Rey alfonso').

caracteristicas(cefalea,intensa,'Rey alfonso').

caracteristicas(cefalea,constante,'Rey alfonso').

caracteristicas(cefalea,opresiva,'Rey alfonso').

caracteristicas(dolor_ocular,retrocular,'Rey alfonso').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Rey alfonso').

caracteristicas(dolor_ocular,intenso,'Rey alfonso').

caracteristicas(leucograma,elevado,'Rey alfonso').

caracteristicas(leucograma,linfocitosis,'Rey alfonso').

caracteristicas(leucograma,linfopenia,'Rey alfonso').

caracteristicas(monosuero,positivo,'Rey alfonso').

caracteristicas(fiebre,elevada,'Esteban baso').

caracteristicas(fiebre,constante,'Esteban baso').

caracteristicas(fiebre,diaria,'Esteban baso').

caracteristicas(cefalea,intensa,'Esteban baso').

caracteristicas(cefalea,constante,'Esteban baso').

caracteristicas(cefalea,opresiva,'Esteban baso').

caracteristicas(dolor_ocular,retrocular,'Esteban baso').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Esteban baso').

caracteristicas(dolor_ocular,intenso,'Esteban baso').

caracteristicas(leucograma,elevado,'Esteban baso').

caracteristicas(leucograma,linfocitosis,'Esteban baso').

caracteristicas(leucograma,linfopenia,'Esteban baso').

caracteristicas(monosuero,positivo,'Esteban baso').

caracteristicas(fiebre,elevada,'Claudia morse').

caracteristicas(fiebre,constante,'Claudia morse').

caracteristicas(fiebre,diaria,'Claudia morse').

caracteristicas(cefalea,intensa,'Claudia morse').

caracteristicas(cefalea,constante,'Claudia morse').

caracteristicas(cefalea,opresiva,'Claudia morse').

caracteristicas(dolor_ocular,retrocular,'Claudia morse').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Claudia morse').

caracteristicas(dolor_ocular,intenso,'Claudia morse').

caracteristicas(leucograma,elevado,'Claudia morse').

caracteristicas(leucograma,linfocitosis,'Claudia morse').

caracteristicas(leucograma,linfopenia,'Claudia morse').

caracteristicas(monosuero,positivo,'Claudia morse').

caracteristicas(fiebre,elevada,'Abel valle').

caracteristicas(fiebre,constante,'Abel valle').

caracteristicas(fiebre,diaria,'Abel valle').

caracteristicas(cefalea,intensa,'Abel valle').

caracteristicas(cefalea,constante,'Abel valle').

caracteristicas(cefalea,opresiva,'Abel valle').

caracteristicas(dolor_ocular,retrocular,'Abel valle').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Abel valle').

caracteristicas(dolor_ocular,intenso,'Abel valle').

caracteristicas(leucograma,elevado,'Abel valle').

caracteristicas(leucograma,linfocitosis,'Abel valle').

caracteristicas(leucograma,linfopenia,'Abel valle').

caracteristicas(monosuero,positivo,'Abel valle').

caracteristicas(fiebre,elevada,'Anaisa blanco').

caracteristicas(fiebre,constante,'Anaisa blanco').

caracteristicas(fiebre,diaria,'Anaisa blanco').

caracteristicas(cefalea,intensa,'Anaisa blanco').

caracteristicas(cefalea,constante,'Anaisa blanco').

caracteristicas(cefalea,opresiva,'Anaisa blanco').

caracteristicas(dolor_ocular,retrocular,'Anaisa blanco').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Anaisa blanco').

caracteristicas(dolor_ocular,intenso,'Anaisa blanco').

caracteristicas(leucograma,elevado,'Anaisa blanco').

caracteristicas(leucograma,linfocitosis,'Anaisa blanco').

caracteristicas(leucograma,linfopenia,'Anaisa blanco').

caracteristicas(monosuero,positivo,'Anaisa blanco').

caracteristicas(fiebre,elevada,'Claudio montes').

caracteristicas(fiebre,constante,'Claudio montes').

caracteristicas(fiebre,diaria,'Claudio montes').

caracteristicas(cefalea,intensa,'Claudio montes').

caracteristicas(cefalea,constante,'Claudio montes').

caracteristicas(cefalea,opresiva,'Claudio montes').

caracteristicas(dolor_ocular,retrocular,'Claudio montes').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Claudio montes').

caracteristicas(dolor_ocular,intenso,'Claudio montes').

caracteristicas(leucograma,elevado,'Claudio montes').

caracteristicas(leucograma,linfocitosis,'Claudio montes').

caracteristicas(leucograma,linfopenia,'Claudio montes').

caracteristicas(monosuero,positivo,'Claudio montes').

caracteristicas(fiebre,elevada,'Raisa rivero').

caracteristicas(fiebre,constante,'Raisa rivero').

caracteristicas(fiebre,diaria,'Raisa rivero').

caracteristicas(cefalea,intensa,'Raisa rivero').

caracteristicas(cefalea,constante,'Raisa rivero').

caracteristicas(cefalea,opresiva,'Raisa rivero').

caracteristicas(dolor_ocular,retrocular,'Raisa rivero').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Raisa rivero').

caracteristicas(dolor_ocular,intenso,'Raisa rivero').

caracteristicas(leucograma,elevado,'Raisa rivero').

caracteristicas(leucograma,linfocitosis,'Raisa rivero').

caracteristicas(leucograma,linfopenia,'Raisa rivero').

caracteristicas(monosuero,positivo,'Raisa rivero').

caracteristicas(fiebre,elevada,'Rodersy padron').

caracteristicas(fiebre,constante,'Rodersy padron').

caracteristicas(fiebre,diaria,'Rodersy padron').

caracteristicas(cefalea,intensa,'Rodersy padron').

caracteristicas(cefalea,constante,'Rodersy padron').

caracteristicas(cefalea,opresiva,'Rodersy padron').

caracteristicas(dolor_ocular,retrocular,'Rodersy padron').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Rodersy padron').

caracteristicas(dolor_ocular,intenso,'Rodersy padron').

caracteristicas(leucograma,elevado,'Rodersy padron').

caracteristicas(leucograma,linfocitosis,'Rodersy padron').

caracteristicas(leucograma,linfopenia,'Rodersy padron').

caracteristicas(monosuero,positivo,'Rodersy padron').

caracteristicas(fiebre,elevada,'Berta grau').

caracteristicas(fiebre,constante,'Berta grau').

caracteristicas(fiebre,diaria,'Berta grau').

caracteristicas(cefalea,intensa,'Berta grau').

caracteristicas(cefalea,constante,'Berta grau').

caracteristicas(cefalea,opresiva,'Berta grau').

caracteristicas(dolor_ocular,retrocular,'Berta grau').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Berta grau').

caracteristicas(dolor_ocular,intenso,'Berta grau').

caracteristicas(leucograma,elevado,'Berta grau').

caracteristicas(leucograma,linfocitosis,'Berta grau').

caracteristicas(leucograma,linfopenia,'Berta grau').

caracteristicas(monosuero,positivo,'Berta grau').

caracteristicas(fiebre,elevada,'Renata cruz').

caracteristicas(fiebre,constante,'Renata cruz').

caracteristicas(fiebre,diaria,'Renata cruz').

caracteristicas(cefalea,intensa,'Renata cruz').

caracteristicas(cefalea,constante,'Renata cruz').

caracteristicas(cefalea,opresiva,'Renata cruz').

caracteristicas(dolor_ocular,retrocular,'Renata cruz').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Renata cruz').

caracteristicas(dolor_ocular,intenso,'Renata cruz').

caracteristicas(leucograma,elevado,'Renata cruz').

caracteristicas(leucograma,linfocitosis,'Renata cruz').

caracteristicas(leucograma,linfopenia,'Renata cruz').

caracteristicas(monosuero,positivo,'Renata cruz').

caracteristicas(fiebre,elevada,'Lorenzo espinaco').

caracteristicas(fiebre,constante,'Lorenzo espinaco').

caracteristicas(fiebre,diaria,'Lorenzo espinaco').

caracteristicas(cefalea,intensa,'Lorenzo espinaco').

caracteristicas(cefalea,constante,'Lorenzo espinaco').

caracteristicas(cefalea,opresiva,'Lorenzo espinaco').

caracteristicas(dolor_ocular,retrocular,'Lorenzo espinaco').

caracteristicas(dolor_ocular,al_movimiento_ocular,'Lorenzo espinaco').

caracteristicas(dolor_ocular,intenso,'Lorenzo espinaco').

caracteristicas(leucograma,elevado,'Lorenzo espinaco').

caracteristicas(leucograma,linfocitosis,'Lorenzo espinaco').

caracteristicas(leucograma,linfopenia,'Lorenzo espinaco').

caracteristicas(monosuero,positivo,'Lorenzo espinaco').

enfermedad('Dengue',Paciente):-

sintoma(fiebre,Paciente),

sintoma(cefalea,Paciente),

sintoma(dolor_ocular,Paciente),

laboratorio(leucograma,Paciente),

laboratorio(monosuero,Paciente).

sintoma(fiebre,Paciente):-

caracteristicas(fiebre,elevada,Paciente),

caracteristicas(fiebre,constante,Paciente),

caracteristicas(fiebre,diaria,Paciente).

sintoma(cefalea,Paciente):-

caracteristicas(cefalea,intensa,Paciente),

caracteristicas(cefalea,constante,Paciente),

caracteristicas(cefalea,opresiva,Paciente).

sintoma(dolor_ocular,Paciente):-

caracteristicas(dolor_ocular,retrocular,Paciente),

caracteristicas(dolor_ocular,al_movimiento_ocular,Paciente),

caracteristicas(dolor_ocular,intenso,Paciente).

laboratorio(leucograma,Paciente):-

caracteristicas(leucograma,elevado,Paciente),

caracteristicas(leucograma,linfocitosis,Paciente),

caracteristicas(leucograma,linfopenia,Paciente).

laboratorio(monosuero,Paciente):-

caracteristicas(monosuero,positivo,Paciente).

Bibliografía revisada

1. Cecil Loeb.Tratado de medicina interna,Salvat editora panamericana.2004.
2. De Wikipedia la enciclopedia libre. Prolog ,2006.
3. Filgueiras Nodar, José María. Un panorama general de la inteligencia artificial y sus aplicaciones actuales.2005.
4. Roca Goderich R. Temas de Medicina interna,Tomo III, 4ta edición.2002.
5. Colectivo de autores .temas de medicina general integral,tomo II ,2002

Dr. Alexander Sanchez Arbolaez

Doctor en medicina 1997.Diplomado en idioma inglés en 1997.Diplomado en idioma francés 2002. Diplomado en ofimática 20003.Especialista en medicina general 2005.

Cuba, Santa Clara