visual con nuevas enfermedades

:- use_module(library(pce)).
:- use_module(library(pce_style_item)).
main:-
    new(Menu, dialog('Sistema experto de hospital', size(500,500))),
    new(L, label(nombre, 'Bienvenidos a su diagnostico')),
    new(@texto, label(nombre, 'Segun la respuestas dadas tendra su resultado:')),
    new(@respl, label(nombre, '')),
    new(Salir, button('Salir', and(message(Menu,destroy), message(Menu, free)))),
    new(@boton, button('Realizar test', message(@prolog, botones))),
    send(Menu, append(L)), new(@btncarrera, button('�Diagnotico?')),
    send(Menu,display,L,point(100,20)),
    send(Menu,display,@boton,point(130,150)),
    send(Menu,display,@texto,point(50,100)),
    send(Menu,display,Salir,point(20,400)),
    send(Menu,display,@respl,point(20,130)),
    send(Menu,open_centered).

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,!.
enfermedades(parkinson):- parkinson,!.
enfermedades(cistitis):- cistitis,!.
enfermedades(epoc):- epoc,!.
enfermedades(migrania):- migrania,!.
enfermedades(obesidad):- obesidad,!.
enfermedades(osteoporosis):- osteoporosis,!.
enfermedades(psoriasis):- psoriasis,!.
enfermedades(sudoracion):- sudoracion,!.
enfermedades(alergiaAlPolen):- alergiaAlPolen,!.
enfermedades(acne):- acne,!.
enfermedades(insomnio):- insomnio,!.
enfermedades(alopecia):- alopecia,!.
enfermedades(pieDeAtleta):- pieDeAtleta,!.


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').
%Resulta difícil detectar algunos síntomas de la enfermedad de Parkinson, incluso para los
%especialistas. Otros son evidentes, aun ante los ojos inexpertos. Además, los síntomas
%son diferentes según el paciente. Muchos pacientes presentan algunos síntomas pero no
%otros y el ritmo con el que empeora la enfermedad varía según la persona. Recuerde que
%solo los médicos pueden diagnosticar este trastorno y que cualquier síntoma de la enfermedad
%de Parkinson podría deberse a otras afecciones.
parkinson:- tiene('Braducunesia, es decir, lentitud en los movimientos o pérdida de los movimientos espontáneos y voluntarios'),
    tiene('Rigidez, inflexibilidad inusual en una extremidad u otra parte del cuerpo'),
    tiene('Temblor de reposo, un movimiento incontrolable que afecta una extremidad cuando está en reposo y desaparece durante un movimiento voluntario').
%También aparecen otros síntomas motores en esta enfermedad:
%Inestabilidad postural: problemas al estar de pie o al caminar, o disminución del equilibrio y la coordinación
%Además, pueden aparecer otros síntomas físicos, como dificultades en la marcha y una disminución de las
%expresiones faciales, debido a la misma perturbación de los movimientos que provocan el conocido temblor
%y la lentitud

%«Cistitis» es el término médico para la inflamación de la vejiga. La mayoría de las veces,
%la inflamación es causada por una infección bacteriana y se llama «infección urinaria».
cistitis:- tiene('Necesidad constante de orinar'),
    tiene('Sensación de ardor al orinar'),
    tiene('Orinar frecuentemente en pequeñas cantidades'),
    tiene('Orina turbia y con olor fuerte'),
    tiene('Molestias pélvicas').
%Para los niños pequeños, tener nuevos episodios de orinarse accidentalmente durante el
%día puede ser un signo de infección urinaria. Mojar la cama a la noche cuando están solos
%probablemente no esté asociado a una infección urinaria.

%La enfermedad pulmonar obstructiva crónica (EPOC) es una enfermedad crónica inflamatoria
%de los pulmones que obstruye el flujo de aire desde los pulmones.
epoc:- tiene('Dificultad para respirar, sobre todo durante actividad física'),
    tiene('Sulbido al respirar'),
    tiene('Presión en el pecho'),
    tiene('Tiene que aclararse la garganta temprano a la mañana debido al exceso de mucosidad en los pulmones'),
    tiene('Una tos crónica que puede producir mucosidad'),
    tiene('Falta de energía').
%La migraña puede causar un dolor pulsátil intenso o una sensación de latido en la cabeza,
%generalmente de un solo lado. Suele estar acompañada por náuseas, vómitos y una sensibilidad
%extrema a la luz y al ruido.
%Las crisis de migraña pueden generar mucho dolor por horas o días, y pueden ser tan intensas
%que el dolor te incapacita.
migrania:- tiene('Estreñimiento'),
    tiene('Cambios de humor'),
    tiene('Antojos de alimentos'),
    tiene('Rigidez en el cuello'),
    tiene('Aumento de la sed y la frecuencia de las micciones'),
    tiene('Bostezos frecuentes'),
    tiene('Dolor de cabeza generalmente en un lado de la cabeza').

%La obesidad es un trastorno complejo que consiste en tener una cantidad excesiva de grasa corporal.
%La obesidad no es solo un problema estético. Aumenta tu riesgo de enfermedades y problemas de salud,
%tales como enfermedad cardíaca, diabetes y presión arterial alta.
obesidad:- tiene('Tú indice de masa corporal es mayor a 30').

%La osteoporosis hace que los huesos se debiliten, tanto que una caída o incluso una leve tensión
%como agacharse o toser pueden provocar una fractura. Las fracturas relacionadas con la
%osteoporosis suelen ocurrir en las caderas, las muñecas y la columna vertebral.
%Los huesos son tejidos vivos que se rompen y se reemplazan constantemente. La
%osteoporosis ocurre cuando la generación de huesos nuevos es más lenta que
%la eliminación de los huesos viejos.
osteoporosis:- tiene('Dolor de espalda causado por alguna fractura'),
    tiene('Pérdida de estatura con el transcurso del tiempo'),
    tiene('Postura encorvada'),
    tiene('Fractura de un hueso que se produce mucho más fácilmente de lo previsto').

%La psoriasis es una enfermedad frecuente de la piel que acelera el ciclo de vida de las células
%cutáneas. Hace que las células se acumulen rápidamente en la superficie de la piel. Las células
%cutáneas excedentes forman escamas y manchas rojas que causan comezón y, a veces, dolor.
%Los signos y síntomas de la psoriasis son diferentes para cada persona. Los siguientes son
%signos y síntomas frecuentes:
psoriasis:- tiene('Manchas rojas en la piel cubiertas con escamas gruesas'),
    tiene('Piel seca y agrietada que puede sangrar'),
    tiene('Picazón, ardor o dolor'),
    tiene('Uñas engrosadas, picadas o acanaladas'),
    tiene('Articulaciones inflamadas y/o rígidas').
%De forma natural, algunas personas sudan más o menos que otras. El olor corporal también puede
%variar según la persona.
sudoracion:- tiene('De repente comienzas a sufar mucho más o menos de lo habitual'),
    tiene('La sudoración perturba tu rutina diaria'),
    tiene('Sudoraciones nocturnas sin razón aparente'),
    tiene('Notas un cambio en tu olor corporal').

%Los pólenes son granos minúsculos que contienen células espermáticas. Son producidos por
%el aparato reproductor masculino de las flores y transportan las células espermáticas al
%aparato reproductor femenino para fecundarlas. Una sola planta puede producir miles de
%granos de polen, que se ve como polvo amarillo en las flores pero que no puede verse
%cuando está disperso en el aire.
alergiaAlPolen:- tiene('Lagrimeo, picor y/o enrojecimiento ocular'),
    tiene('Estornudos frecuentes'),
    tiene('Hinchazón debajo de los ojos'),
    tiene('Fatiga y cansancio'),
    tiene('Irritabilidad'),
    tiene('Dolor de cabeza'),
    tiene('Dificultades para conciliar el sueño'),
    tiene('Migraña').
%El acné es un trastorno de la piel que ocurre cuando los folículos pilosos se tapan con
%grasa y células cutáneas muertas. A menudo, ocasiona la aparición de comedones,
%puntos negros o granos, y suele aparecer en la cara, la frente, el pecho, la
%parte superior de la espalda y los hombros. El acné es más frecuente en los adolescentes,
%aunque afecta a personas de todas las edades.
acne:- tiene('Poros tapados o abiertos'),
    tiene('Granos con pús en la punta'),
    tiene('Bultos grandes, sólidos y dolorosos que están debajo de la superficia de la piel').
%El insomnio es un trastorno que puede causar dificultad para conciliar el sueño (quedarse dormido)
%o mantenerlo, o puede hacer que te despiertes demasiado temprano y no puedas volver a dormirte.
insomnio:- tiene('Dificultad para conciliar el sueño por la noche'),
    tiene('Despertarse durante la noche'),
    tiene('Despertarse muy temprano'),
    tiene('No sentirse bien descansado después del sueño nocturno'),
    tiene('Cansancio o comnolencia diurnos'),
    tiene('Dificultad para prestar atención, concentrarse en las tareas o recordar'),
    tiene('Aumento de los errores o los accidentes').

%Alopecia (del griego alopex) es la enfermedad por la cual se produce una pérdida anormal o
%rarefacción del cabello
alopecia:- tiene('Pérdida gradual de cabello en la parte superior de la cabeza'),
    tiene('Calvas circulares o irregulares'),
    tiene('Caída del cabelo en todo el cuerpo').

%La dermatofitosis de los pies, también conocida como tinea pedis o pie de atleta, es la micosis de piel
%más común en el mundo.
%El pie de atleta es una infección por hongos, que ataca preferencialmente a la planta de lo pies y los
%espacios entre los dedos de los pies.
%La piel seca en escamas.
pieDeAtleta:- tiene('Picor en los dedos de los pies o talones'),
    tiene('Inflamación en los dedos de los pies'),
    tiene('Ampollas o escamas en los dedos de los pies o talones').

:-dynamic si/1,no/1.


preguntar(Problema):-new(Di, dialog('Examen Medico')),
    new(L2, label(texto,'Responde las siguientes preguntas')),
    new(La, label(prob,Problema)),

    new(B1,button(si,and(message(Di,return,si)))),
    new(B2,button(no,and(message(Di,return,no)))),

    send(Di,append(L2)),
    send(Di,append(La)),
    send(Di,append(B1)),
    send(Di,append(B2)),

    send(Di,default_button,si),
    send(Di,open_centered),
    get(Di,confirm,Answer),
    write(Answer),send(Di,destroy),


    ((Answer==si)->assert(si(Problema)); assert(no(Problema)),fail).

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


botones :-lim,
    send(@boton,free),
    send(@btncarrera,free),
    enfermedades(Enter),
    send(@texto, selection('De acuerdo con sus respuestas,usted padece de:')),
    send(@respl, selection(Enter)),
    new(@boton, button('Iniciar su evaluaci�n', message(@prolog, botones))),
    send(Menu,display,@boton,point(40,50)),
    send(Menu,display,@btncarrera,point(20,50)),
    limpiar.

lim:- send(@respl, selection('')).

limpiar2:-
    send(@texto,free),
    send(@respl,free),
    %send(@btncarrera,free),
    send(@boton,free).