Proyecto

iniciar:- enfermedades(Enfermedad),
            write('Es posible que tengas: '),
            write(Enfermedad), nl, undo.

enfermedades(gripe):- gripe,!.
enfermedades(diabetesTipo2):- diabetesTipo2,!.
enfermedades(diabetesTipo1):- diabetesTipo1,!.
enfermedades(asma):- asma,!.
enfermedades(ebola):- ebola,!.
enfermedades(anemia):- anemia,!.
enfermedades(bronquitis):- bronquitis,!.
enfermedades(aterosclerosis):- aterosclerosis,!.
enfermedades(calculoRenal):- calculoRenal,!.
enfermedades(cefalea):- cefalea,!.
enfermedades(ciatica):- ciatica,!.
enfermedades(colitosisUlcerosa):- colitosisUlcerosa,!.
enfermedades(depresion):- depresion,!.
enfermedades(deshidratacion):- deshidratacion,!.
enfermedades(ganglion):- ganglion,!.
enfermedades(hemorroides):- hemorroides,!.
enfermedades(hipocondria):- hipocondria,!.
enfermedades(varices):- varices,!.

gripe:- tiene('Fiebre'),
    tiene('Escalofríos'),
    tiene('Dolor de cabeza'),
    tiene('Tos, estornudos y nariz con mucosidad'),
    tiene('Dolor de garganta'),
    tiene('Dolores musculares'),
    tiene('Pérdida del apetito y cansancio').
%Los signos y síntomas iniciales de la diabetes tipo 2 son más comunes
%en personas con exceso de peso, obesidad o que posean una alimentación
%rica en azúcares y grasas.
diabetesTipo2:- tiene('Ganas exageradas de beber agua'),
    tiene('Boca constantemente seca'),
    tiene('Ganas frecuentes de orinar'),
    tiene('Cansancio frecuente'),
    tiene('Visión borrosa o nublada'),
    tiene('Heridas que demoran en cicatrizar'),
    tiene('Sensación de hormigueo en las manos o en los pies'),
    tiene('Infecciones frecuentes como candidiasis o infecciones urinarias').
%La diabetes tipo 2 está enlazada con la resistencia a la insulina,
%lo que ocurre en esta situación es que esta hormona no transporta eficientemente
%las moléculas de glucosa presente en la sangre dentro de las células.
%El tratamiento para este tipo de diabetes se puede hacer con el uso de
%insulina o hipoglicemiantes orales, además de la realización de
%actividad física regular y de una dieta equilibrada.

%La diabetes tipo 1 normalmente se diagnostica durante la infancia,
%pero en algunas personas los síntomas pueden surgir al inicio de la
%edad adulta, siendo muy raro después de los 30 años.
diabetesTipo1:- tiene('Ganas frecuente de orinar, incluyendo levantarse de noche para ir al baño'),
    tiene('Ganas exageradas de beber agua'),
    tiene('Hambre en exceso'),
    tiene('Pérdida de peso sin razón aparente'),
    tiene('Cansancio frecuente'),
    tiene('Somnolencia que no se justifica'),
    tiene('Comezón en todo el cuerpo'),
    tiene('Infecciones frecuentes como candidiasis o urinarias'),
    tiene('Irratibilidad y cambios de humor repentinos').
%Además de esto, el niño y el adolescente también puede presentar
%otros síntomas como mareos, temblores, sudoraciones frías y apatía
%cuando la tasa de glucosa en sangre es muy alta.

%El asma es una afección en la que se estrechan y se hinchan las vías
%respiratorias, lo cual produce mayor mucosidad. Esto podría dificultar
%la respiración y provocar tos, silbido al respirar y falta de aire.
asma:- tiene('Falta de aire'),
    tiene('Dolor u opresión del pecho'),
    tiene('Problemas para dormir causados por falta de aire, tos o silbido al respirar'),
    tiene('Un pitido o silbido al respirar').

ebola:- tiene('Fiebre alta'),
    tiene('Dolor de cabeza'),
    tiene('Molestias en las articulaciones y dolores musculares'),
    tiene('Dolor de garganta'),
    tiene('Debilidad'),
    tiene('Diarrea y/o vómitos'),
    tiene('Congestión conjutival(conjutivitis)').


%La anemia es una afección que se caracteriza por la falta de suficientes
%glóbulos rojos sanos para transportar un nivel adecuado de oxígeno a los
%tejidos del cuerpo. Si tienes anemia, es probable que te sientas cansado y fatigado.
anemia:- tiene('Fatiga'),
    tiene('Debilidad'),
    tiene('Piel pálida o amarillenta'),
    tiene('Mareos o aturdimiento'),
    tiene('Manos y pies fríos'),
    tiene('Dolor de cabeza').

%Por lo general, la aterosclerosis no causa signos ni síntomas hasta que
%estrecha gravemente una arteria o la bloquea por completo. Muchas
%personas no saben que tienen la enfermedad hasta que sufren una situación
%de urgencia médica, como un ataque cardíaco o un accidente cerebrovascular.
aterosclerosis:- tiene('Debilidad repentina'),
    tiene('Adormecimiento de la cara, los brazos o las piernas especialmente en un lado del cuerpo'),
    tiene('Dificultad para hablar o entender lo que otra persona dice'),
    tiene('Dificultad para ver por un ojo o por los dos'),
    tiene('Problemas para respirar'),
    tiene('Mareo, dificultad para caminar, falta de equilibrio o de coordinación'),
    tiene('Pérdida del conocimiento'),
    tiene('Dolor de cabeza intenso y repentino').

%La bronquitis es una inflamación del revestimiento de los bronquios que llevan
%el aire hacia adentro y fuera de los pulmones. Las personas que tienen bronquitis
%suelen toser mucosidad espesa y, tal vez, decolorada. La bronquitis puede ser aguda o crónica.

%La bronquitis aguda es muy frecuente y, a menudo, se produce a partir de un resfrío
%u otra infección respiratoria. La bronquitis crónica, enfermedad más grave, es
%una irritación o inflamación continua del revestimiento de los bronquios,
%en general, por fumar.

bronquitis:- tiene('Tos'),
    tiene('Producción de mucosidad transparente/blanca/gris amarillento'),
    tiene('Dificultad para respirar'),
    tiene('Molestias en el pecho'),
    tiene('Fiebre ligera y/o escalofríos').

%Los cálculos renales (litiasis renal, nefrolitiasis) son depósitos duros de minerales
%y sales que se forman dentro de los riñones.
%Los cálculos renales tienen muchas causas y pueden afectar cualquier parte de las vías
%urinarias, desde los riñones hasta la vejiga. En general, los cálculos se forman cuando
%la orina se concentra, lo que permite que los minerales se cristalicen y se unan.

calculoRenal:- tiene('Dolor intenso a los lados y en la parte posterior debajo de las costillas'),
    tiene('Dolor que se extiende hacia la parte inferior del abdomen'),
    tiene('Dolor al orinar'),
    tiene('Orina de color rosa, rojo o marrón'),
    tiene('Orina turbia o con olor desagradable'),
    tiene('Necesidad constante de orinar').
%Hay más sintomas, pero esos son los básicos que identifican el problema

%Son dolores de cabeza tipo jaqueca localizados alrededor o detrás de un ojo. Aparecen en
%una sucesión rápida de dolor, más comunmente de noche y con más frecuencia en hombres.
%Se caracteriza por un dolor intenso unilateral en el ojo con inyección de la conjuntiva,
%lacrimeo, edema de párpado, congestión nasal, y sudoración de frente y cara.

cefalea:- tiene('Dolor muy fuerte en una parte de la cabeza'),
    tiene('Lagrimeos'),
    tiene('Enrojecimiento de los ojos'),
    tiene('Náuseas y/o vómitos'),
    tiene('Otras molestias que no le permite realizar su actividad con normalidad').
%Hay más sintomas pero el paciente no lo sabría aunque se lo pongan en texto, con esos ya mencion
%-ados es posible que tenga cefalea

%Generalmente, la ciática afecta solo un lado de la parte inferior del cuerpo y
%el dolor, muchas veces, se irradia de la parte inferior de la espalda por toda
%la parte posterior del muslo y baja por la pierna. Un dolor de la parte inferior
%de la espalda puede acompañar el dolor de la pierna, pero generalmente el dolor
%de la pierna es notablemente más grave que el dolor de la parte inferior de la espalda.
ciatica:- tiene('Dolor fuerte en la pierna'),
    tiene('Dolor en la parte inferior de la espalda o de una nalga'),
    tiene('Dolor que empeora cuando se pone de pie o al sentarse'),
    tiene('Dolor que se alivia cuando te recuestas o caminas'),
    tiene('Describes el dolor como punzante o agudo').

%La colitis ulcerosa es una enfermedad intestinal inflamatoria que provoca una inflamación
%duradera y úlceras (llagas) en el tubo digestivo.
colitosisUlcerosa:- tiene('Diarrea que suele tener sangre o pus'),
    tiene('Dolor y cólicos abdominales'),
    tiene('Sangrado rectal (evacuar heces con una pequeña cantidad de sangre)'),
    tiene('Necesidad urgente de defecar'),
    tiene('Incapacidad para defecar a pesar de la urgencia').

%La sensación de sentirse triste, decaído emocionalmente, y perder interés en las cosas que
%antes disfrutaba es lo que se llama depresión. Se debe saber que la depresión es una
%enfermedad como puede ser la diabetes o la artritis, y no es sólo una sensación de tristeza
%o de desánimo. Esta enfermedad progresa cada día afectando sus pensamientos, sentimientos,
%salud física, y su forma de comportarse.
depresion:- tiene('Has perdido interés en cosas que antes disfrutabas'),
    tiene('Sentirse triste, decaído emocionalmente o cabizbajo'),
    tiene('Sentirse sin energía o inquieto'),
    tiene('Problemas para concentrarse, pensar, recordar o tomar decisiones'),
    tiene('No poder dormir, o dormir demasiado').
%Hay más sintomas pero el paciente es posible que no lo admita o lo desconozca.

%La deshidratación se describe como la falta de líquidos corporales adecuada para que el cuerpo
%lleve a cabo sus funciones a nivel óptimo. Puede ocurrir por pérdidas de líquidos, falta de
%ingesta, o ambas situaciones juntas.

deshidratacion:- tiene('Vomitos, diarrea o sudoración'),
    tiene('Poca ingesta de líquidos'),
    tiene('Ojos hundidos'),
    tiene('Lengua seca o pegajosa'),
    tiene('Si pellizcas la piel de tus manos le cuesta trabajo volver a su lugar').

%Un ganglión o quiste sinovial es un pequeño bulto formado por acumulación de líquido que
%aparece debajo de la piel. Se presenta principalmente en las muñecas tanto en la palma
%como en el dorso. Puede aparecer también en otras partes del cuerpo como pies o tobillos.
ganglion:- tiene('Un bulto en las muñecas/manos o en los tobillos/pies'),
    tiene('No presenta dolor'),
    tiene('Mide menos o igual a 1 pulgada').
%Las hemorroides son dilataciones de las venas de los plexos venosos de la mucosa del recto
%o del ano. Si las venas afectadas son las del plexo superior se llaman hemorroides internas,
%se sitúan por arriba del conducto anal y se encuentran cubiertas por mucosa.
hemorroides:- tiene('Picazón o irritación en la zona del ano'),
    tiene('Inflamación alrededor del ano'),
    tiene('Un bulto cerca del ano').
%Hipocondría se dice en medicina cuando un paciente tiene síntomas físicos reales o imaginarios
%que pueden ser signos de una enfermedad, a pesar de que se han descartado totalmente y con
%seguridad todas las posibles patologías.
hipocondria:- tiene('Eres incapaz de controlar tus miedos y preocupaciones'),
    tiene('Te sientes bien durante un tiempo y empiezas a preocuparte de nuevo por los mismos/nuevos sintomas'),
    tiene('Sueles examinar su propio cuerpo').

%Las varices es la visualización de la red venosa de las piernas
varices:- tiene('Puedes ver la red venosa(venas moradas) en las piernas').

preguntar(Pregunta):-
    write('¿Posee algunos de estos síntomas? '), nl,
    write('¿'), write(Pregunta), write('? '),
    read(Respuesta), nl,
    (   (Respuesta == si; Respuesta == s)
    -> assert(si(Pregunta));
    assert(no(Pregunta)),fail).
:- dynamic si/1,no/1.

tiene(S):- (   si(S) ->  true; (   no(S)->  fail ; preguntar(S))).
undo:- retract(si(_)),fail.
undo:- retract(no(_)),fail.
undo.