Asignatura
:
Sistemas Inteligentes. Inteligentes.
Docente
:
Ing. Lissi Janet Vásquez Fernández
Tema
:
Aplicación de la Programación lógica
Alumno
:
AGUILAR CACHAY, Jorge Mesías. CASAS MEDINA, Renzo Jankarlo. DIAZ LIMAY, John Anderson.
Ciclo
:
IX
Cajamarca, 25 Julio de 2013
Contenido
1.
INTRODUCCIÓN .......................................................................................................................... 3
2.
OBJETIVOS................................................................................................................................... 4
3.
ÁRBOL DE LA SALUD: .................................................................................................................. 5
4.
REGLAS USADAS: ........................................................................................................................ 6
5.
PRUEBA ....................................................................................................................................... 6
6.
PROLOG CON EXTENCION JAVA ............................................................................................... 10
7.
CONCLUSIONES ......................................................................................................................... 18
8.
CODIGO EN SWI PROLOG ......................................................................................................... 12
9.
BIBLIOGRAFIA ........................................................................................................................... 18
Sistema experto “DIAGNOSTICO DE LA SALUD” 1. INTRODUCCIÓN Los Sistemas Expertos, rama de la Inteligencia Artificial, son sistemas informáticos que simulan el proceso de aprendizaje, de memorización, de razonamiento, de comunicación y de acción en consecuencia de un experto humano en cualquier rama de la ciencia. Estas características le permiten almacenar datos y conocimiento, sacar conclusiones lógicas, tomar decisiones, aprender de la experiencia y los datos existentes, comunicarse con expertos humanos, explicar el porqué de las decisiones tomadas y realizar acciones como consecuencia de todo lo anterior. Técnicamente un sistema experto, contiene una base de conocimientos que incluye la experiencia acumulada de expertos humanos y un conjunto de reglas para aplicar ésta base de conocimientos en una situación particular que se le indica al programa. Cada vez el sistema se mejora con adiciones a la base de conocimientos o al conjunto de reglas.
Este trabajo será desarrollado para el curso de Inteligencia Artificial, el tema de investigación es un sistema experto que hemos desarrollado con el nombre de: “DIAGNOSTICO DE LA SALUD”, la idea básica es el desarrollo de un sistema que permita al
usuario realizar consultas y obtener respuestas automatizadas de acuerdo a los conocimientos (Hechos) que posee nuestro sistema experto. Nuestro árbol de conocimientos esta implementado por las comidas típicas de cada departamento de las regiones del Perú, indicando que ingredientes son saludables y dañinos para ciertas enfermedades que se definió y por ende que comidas serían adecuadas o recomendadas por un especialista para una persona que sufre de cierta enfermedad y cuales debería evitar de acuerdo a los ingredientes perjudiciales para su salud. También se tendrá en cuenta e l síntoma de cada enfermedad.
2. OBJETIVOS.
Desarrollar un Sistema Experto basado en reglas que permita automatizar el diagnóstico médico de acuerdo a conocimientos previamente definidos y establecer una dieta adecuada según la enfermedad y síntomas que posea un paciente.
Reducir el tiempo de solución del sistema ex perto basado en reglas específicas.
Dar a conocer que comidas pueden ser dañinas para la salud por el ingrediente que contienen, que muchas veces no se conoce.
Lograr combinar la programación hecha SWI Prolog con java para tener una interfaz gráfica del programa que nos sirva para prese ntarle al usuario final.
3. ÁRBOL DE LA SALUD:
4. REGLAS USADAS: ingredientesComida(X,Y,W) :-ingrediente(W,Y),ingrediente(W,X),producto(Y), diferente(X,Y),comida(W).
Para verificar que comidas se puede preparar con 2 productos.
departamentos_de(X,Y) :- region(X),departamento(Y),progenitor(X,Y). Para ver los departamentos que hay en cada región.
debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),ingrediente(X,Z). Para poder ver que comidas son saludables de acuerdo a la enfermedad.
noDebeComer(X,Y) :- enfermedad(Y),comida(X),esDañino(Z,Y),ingrediente(X,Z). Para ver que comidas son dañinas para cier tas enfermedades.
regiones(X,Y) :- pais(X),region(Y),progenitor(X,Y). Para ver cuáles son las regiones del país.
comida_del_departamento(X,Y) :comida(X),departamento(Y),comida_tipica(Y,X). Para saber cuáles son las comidas típicas de cada departamento.
ingrediente_comida(X,Y) :-producto(X),comida(Y),ingrediente(Y,X). Para ver que los productos que llevan cada comida.
mismoingrediente(Y,M,X) :-ingrediente(Y,X),ingrediente(M,X),diferente(Y,M), comida(Y),comida(M). Para ver las comidas que puedan tener algunos productos en común.
ingrediente_comida_region(X,Y,Z) :- producto(X),comida(Y),region(Z), progenitor(Z,M),comida_tipica(M,Y),ingrediente(Y,X). Para saber que comida se puede preparar con un producto de acuerdo a la región.
deberecetar(X,Y,A):especialista(X),comida(Y),producto(A),receta(Z,X),illcomidab(Z,Y,A). Para saber que comidas debe recetar a las personas de acuerdo a la especialidad que trata el médico.
debeComerRegion(X,Y,Z) :-enfermedad(Y),region(Z),debeComer(X,Y),comida(X), comida_del_departamento(X,M),progenitor(Z,M). Para saber de acuerdo a la enfermedad y a la región que comidas se puede comer.
5. PRUEBA SWI PROLOG 1. ¿Cuáles son los departamentos de la región selva? 1 ?- departamentos_de(selva,Y). Y = madre_de_dios ; Y = ucayali ; Y = loreto ; Y = san_martin ; Y = amazonas ; false. 2. ¿Qué comidas se preparan con gar banzo? 1 ?- ingrediente_comida(garbanzo,Y). Y = chuño_cola ; Y = timpo ; false.
3. ¿Qué enfermedades trata la neurología? 2 ?- receta(X,neurologia). X = parkinson ; X = alzheimer ; 4. ¿Qué debe comer una persona que sufre de gastritis? 6 ?- debeComer(X,gastritis). X = majarisco ; X = menestron ; X = rocoto_relleno ; X = pushla ; X = pesque_de_quinua ; X = chuño_cola ; X = timpo ; X = cazuela ; false. 5. ¿Cuáles son las regiones del Perú? 4 ?- regiones(peru,Y). Y = costa ; Y = sierra ; Y = selva. 6. ¿Qué comidas puedes encontrar en C usco? 3 ?- comida_del_departamento(X,cusco). X = chuño_cola ; X = timpo ; false. 7. ¿Qué no debe comer una persona que tiene acné? ?-noDebeComer(X,acne) . X = menestron ; X = algarrobina ; X = rocoto_relleno ; X = manjar_blanco ; X = pushla ; X = pesque_de_quinua ; X = timpo ; X = tacacho ; false. 8. ¿Qué comidas tienen queso como ingrediente? 2 ?- ingrediente_comida(queso,Y). Y = menestron ; Y = rocoto_relleno ; Y = pushla ; Y = pesque_de_quinua ;
false. 9. Para que enfermedades es bueno e l huevo? 4 ?- esBueno(huevo,Y). Y = anemia ; Y = parkinson. 10.¿Qué ingredientes tiene el Majarisco que también tenga el tacacho? 3 ?- mismoingrediente(majarisco,tacacho,X). X = platano ; false. 11.¿Qué debe comer una persona que sufre de enfermedades cardiovasculares? 5 ?- debeComer(X,enfermedades_cardiovasculares). X = causa_limeña ; X = chuño_cola ; X = timpo ; X = patarashca ; false. 12.¿Qué comidas se pueden preparar con plátano que pertenezcan a la región selva? 3 ?- ingrediente_comida_region(platano,Y,selva). Y = tacacho ; false. 13.En que enfermedades le ayuda a una persona tomar vino? 1 ?- esBueno(vino,Y). Y = alzheimer ; Y = vista. 14.Que comidas le hacen daño a una persona que tiene gastritis? 2 ?- noDebeComer(X,gastritis). X = algarrobina ; X = cazuela ; false. 15.¿Quéxit comidas de la sierra contienen papa? 1 ?- ingrediente_comida_region(papa,Y,sierra). Y = caldo_verde ; Y = chuño_cola ; false. 16.¿Sintomas de Anemia? 6 ?- presenta_sintoma(anemia,X). X = mareo ; X = escalofrios ; X = palidez ; X = dolor_pecho ; X = dolor_cabeza ; X = dificultad_respirar.
17.¿Qué debe comer si tiene mareo? 3 ?- comidaSintoma(mareo,X). X = majarisco ; X = rocoto_relleno ; X = pushla ; X = pesque_de_quinua ; X = chuño_cola ; X = causa_limeña ; X = timpo ; X = patarashca ; false. 18.¿Qué debe comer una persona que sufre de alzhéimer? 2 ?- debeComer(X,alzheimer). X = causa_limeña ; X = cazuela ; false.
6. PROLOG CON EXTENCION JAVA
Para que es bueno es producto:
Cuáles son los departamentos de la región seleccionada:
Que debes de comer si sufres de enfermedades:
Que síntomas presenta:
Saber si se tiene la enfermedad:
7. CODIGO EN SWI PROLOG %================================================ % ESPECIFICACION DE HECHOS %================================================ pais(peru). region(costa). region(sierra). region(selva). departamento(madre_de_dios). departamento(ucayali). departamento(loreto). departamento(san_martin). departamento(amazonas). departamento(puno). departamento(cusco). departamento(apurimac). departamento(ayacucho). departamento(huancavelica). departamento(junin). departamento(pasco). departamento(huanuco). departamento(cajamarca). departamento(tacna). departamento(moquegua). departamento(arequipa). departamento(ica). departamento(lima). departamento(ancash). departamento(la_libertad). departamento(lambayeque). departamento(piura). departamento(tumbes). especialista(neurologia). especialista(neumologia). especialista(dermatologia). especialista(gastroenterologia). especialista(oncologia). especialista(cardiologia). especialista(oftalmologia). comida(majarisco). comida(menestron). comida(causa_limeña). comida(algarrobina). comida(rocoto_relleno). comida(manjar_blanco). comida(pushla). comida(caldo_verde). comida(pesque_de_quinua). comida(chuño_cola). comida(timpo). comida(cazuela). comida(tacacho). comida(patarashca). enfermedad(parkinson). enfermedad(alzheimer). enfermedad(asma). enfermedad(acne). enfermedad(gastritis). enfermedad(cancer). enfermedad(enfermedades_cardiovasculares). enfermedad(vista). enfermedad(anemia). sintoma(mareo). sintoma(palidez). sintoma(dolor_pecho). sintoma(dolor_cabeza). sintoma(dificultad_respirar). sintoma(nauseas). sintoma(hipo).
sintoma(eructo). sintoma(gases). sintoma(vomitos). sintoma(dolor_estomago). sintoma(perdida_apetito). sintoma(escalofrios). sintoma(fiebre). sintoma(fatiga). sintoma(sibilancias). sintoma(tos). sintoma(temblor). sintoma(rigidez). sintoma(inestabilidad). sintoma(depresion). sintoma(estreñimiento). sintoma(transtorno_sueño). sintoma(perdida_memoria). sintoma(desorientacion). sintoma(agitacion). sintoma(incapacidad). sintoma(paranoico). sintoma(repite_la_preguntas). sintoma(cambio_caracter). sintoma(desmayo). sintoma(ansiedad). sintoma(sensacion_desastre). sintoma(indigestion_grave). sintoma(cansancio_ojos). sintoma(dificultad_ver_objeto_fijamente). sintoma(deficultad_ver_cerca). sintoma(espinillas_negras). sintoma(quistes). sintoma(pustulas). sintoma(espinillas_blancas). producto(chancho). producto(pescado). producto(culantro). producto(zanahoria). producto(camote). producto(col). producto(tocino). producto(garbanzo). producto(arroz). producto(chuño). producto(quinua). producto(hierba_buena). producto(cebada). producto(rocoto). producto(huevo). producto(pisco). producto(limon). producto(palta). producto(carne). producto(cebolla). producto(haba). producto(papa). producto(queso). producto(leche). producto(arveja). producto(espinaca). producto(ajos). producto(platano). producto(aji_amarillo). producto(mariscos). producto(vino). esDañino(leche,mareo). esDañino(leche,vomitos). esBueno(papa,mareos). esBueno(platano,mareos). esBueno(platano,vomitos). esBueno(mariscos,anemia).
esBueno(huevo,anemia). esBueno(zanahoria,anemia). esBueno(mariscos,gastritis). esBueno(queso,gastritis). esBueno(carne,gastritis). esBueno(espinaca,parkinson). esBueno(arveja,parkinson). esBueno(haba,parkinson). esBueno(platano,parkinson). esBueno(leche,parkinson). esBueno(huevo,parkinson). esBueno(papa,parkinson). esBueno(ajos,asma). esBueno(cebolla,asma). esBueno(palta,enfermedades_cardiovasculares). esBueno(chuño,enfermedades_cardiovasculares). esBueno(garbanzo,enfermedades_cardiovasculares). esBueno(pescado,enfermedades_cardiovasculares). esBueno(palta,alzheimer). esBueno(vino,alzheimer). esBueno(vino,vista). esBueno(ajos,cancer). esBueno(cebolla,cancer). esBueno(quinua,cancer). esBueno(col,cancer). esDañino(pisco,anemia). esDañino(vino,anemia). esDañino(pisco,gastritis). esDañino(vino,gastritis). esDañino(tocino,parkinson). esDañino(chancho,parkinson). esDañino(espinaca,asma). esDañino(leche,asma). esDañino(tocino,acne). esDañino(chancho,acne). esDañino(queso,acne). esDañino(leche,acne). ingrediente(majarisco,mariscos). ingrediente(majarisco,aji_amarillo). ingrediente(majarisco,platano). ingrediente(majarisco,ajos). ingrediente(menestron,espinaca). ingrediente(menestron,arveja). ingrediente(menestron,leche). ingrediente(menestron,queso). ingrediente(menestron,papa). ingrediente(menestron,ajos). ingrediente(menestron,haba). ingrediente(menestron,cebolla). ingrediente(menestron,carne). ingrediente(causa_limeña,aji_amarillo). ingrediente(causa_limeña,palta). ingrediente(causa_limeña,limon). ingrediente(causa_limeña,papa). ingrediente(algarrobina,leche). ingrediente(algarrobina,pisco). ingrediente(algarrobina,huevo). ingrediente(rocoto_relleno,leche). ingrediente(rocoto_relleno,queso). ingrediente(rocoto_relleno,huevo). ingrediente(rocoto_relleno,rocoto). ingrediente(rocoto_relleno,carne). ingrediente(manjar_blanco,leche). ingrediente(pushla,leche). ingrediente(pushla,queso). ingrediente(pushla,huevo). ingrediente(pushla,cebada). ingrediente(caldo_verde,hierba_buena). ingrediente(caldo_verde,papa). ingrediente(caldo_verde,ajos). ingrediente(caldo_verde,rocoto).
ingrediente(pesque_de_quinua,quinua). ingrediente(pesque_de_quinua,leche). ingrediente(pesque_de_quinua,queso). ingrediente(pesque_de_quinua,huevo). ingrediente(chuño_cola,chuño). ingrediente(chuño_cola,papa). ingrediente(chuño_cola,carne). ingrediente(chuño_cola,arroz). ingrediente(chuño_cola,garbanzo). ingrediente(timpo,carne). ingrediente(timpo,garbanzo). ingrediente(timpo,tocino). ingrediente(timpo,col). ingrediente(timpo,camote). ingrediente(timpo,arroz). ingrediente(cazuela,carne). ingrediente(cazuela,arroz). ingrediente(cazuela,vino). ingrediente(cazuela,zanahoria). ingrediente(cazuela,col). ingrediente(tacacho,platano). ingrediente(tacacho,chancho). ingrediente(patarashca,ajos). ingrediente(patarashca,culantro). ingrediente(patarashca,cebolla). ingrediente(patarashca,pescado). comida_tipica(tumbes,majarisco). comida_tipica(piura,menestron). comida_tipica(lima,causa_limeña). comida_tipica(ica,algarrobina). comida_tipica(arequipa,rocoto_relleno). comida_tipica(cajamarca,manjar_blanco). comida_tipica(ayacucho,pushla). comida_tipica(huanuco,caldo_verde). comida_tipica(puno,pesque_de_quinua). comida_tipica(cusco,chuño_cola). comida_tipica(cusco,timpo). comida_tipica(amazonas,cazuela). comida_tipica(loreto,tacacho). comida_tipica(ucayali,patarashca). progenitor(peru,costa). progenitor(peru,sierra). progenitor(peru,selva). progenitor(costa,tumbes). progenitor(costa,piura). progenitor(costa,lambayeque). progenitor(costa,la_libertad). progenitor(costa,ancash). progenitor(costa,lima). progenitor(costa,ica). progenitor(costa,arequipa). progenitor(costa,moquegua). progenitor(costa,tacna). progenitor(sierra,cajamarca). progenitor(sierra,huanuco). progenitor(sierra,pasco). progenitor(sierra,junin). progenitor(sierra,huancavelica). progenitor(sierra,ayacucho). progenitor(sierra,apurimac). progenitor(sierra,cusco). progenitor(sierra,puno). progenitor(selva,amazonas). progenitor(selva,san_martin). progenitor(selva,loreto). progenitor(selva,ucayali). progenitor(selva,madre_de_dios). % %receta(parkinson,neurologia). %receta(alzheimer,neurologia). %receta(asma,neumologia).
%receta(acne,dermatologia). %receta(gastritis,gastroenterologia). %receta(cancer,oncologia). %receta(enfermedades_cardiovasculares,cardiologia). %receta(vista,oftalmologia). % presenta_sintoma(anemia,mareo). presenta_sintoma(anemia,escalofrios). presenta_sintoma(anemia,palidez). presenta_sintoma(anemia,dolor_pecho). presenta_sintoma(anemia,dolor_cabeza). presenta_sintoma(anemia,dificultad_respirar). presenta_sintoma(gastritis,nauseas). presenta_sintoma(gastritis,hipo). presenta_sintoma(gastritis,eructo). presenta_sintoma(gastritis,gases). presenta_sintoma(gastritis,vomitos). presenta_sintoma(gastritis,dolor_estomago). presenta_sintoma(gastritis,perdida_apetito). presenta_sintoma(cancer,escalofrios). presenta_sintoma(cancer,fiebre). presenta_sintoma(cancer,perdida_apetito). presenta_sintoma(cancer,fatiga). presenta_sintoma(cancer,escalofrios). presenta_sintoma(asma,sibilancias). presenta_sintoma(asma,tos). presenta_sintoma(asma,dolor_pecho). presenta_sintoma(asma,dificultad_respirar). presenta_sintoma(asma,fatiga). presenta_sintoma(parkinson,temblor). presenta_sintoma(parkinson,rigidez). presenta_sintoma(parkinson,inestabilidad). presenta_sintoma(parkinson,depresion). presenta_sintoma(parkinson,estreñimiento). presenta_sintoma(parkinson,transtorno_sueño). presenta_sintoma(alzheimer,perdida_memoria). presenta_sintoma(alzheimer,desorientacion). presenta_sintoma(alzheimer,agitacion). presenta_sintoma(alzheimer,fatiga). presenta_sintoma(alzheimer,incapacidad). presenta_sintoma(alzheimer,paranoico). presenta_sintoma(alzheimer,repite_la_pregunta). presenta_sintoma(alzheimer,cambio_caracter). presenta_sintoma(enfermedades_cardiovasculares,tos). presenta_sintoma(enfermedades_cardiovasculares,mareo). presenta_sintoma(enfermedades_cardiovasculares,vomitos). presenta_sintoma(enfermedades_cardiovasculares,desmayo). presenta_sintoma(enfermedades_cardiovasculares,ansiedad). presenta_sintoma(enfermedades_cardiovasculares,dificultad_respirar). presenta_sintoma(enfermedades_cardiovasculares,dolor_pecho). presenta_sintoma(enfermedades_cardiovasculares,sensacion_desastre). presenta_sintoma(enfermedades_cardiovasculares,indigestion_grave). presenta_sintoma(vista,cansancio_ojos). presenta_sintoma(vista,dolor_cabeza). presenta_sintoma(vista,dificultad_ver_objeto_fijamente). presenta_sintoma(vista,deficultad_ver_cerca). presenta_sintoma(acne,espinillas_negras). presenta_sintoma(acne,quistes). presenta_sintoma(acne,pustulas). presenta_sintoma(acne,espinillas_blancas). tiene(juan,dolor_cabeza). tiene(alex,tos). tiene(alex,desmayo). tiene(miguel,fatiga). tiene(miguel,vomitos). tiene(juan,paranoico). paciente(juan). paciente(alex). paciente(miguel). %================================================ % ESPECIFICACION DE REGLAS
%================================================ mismo(X,X). diferente(X,Y) :- not(mismo(X,Y)). ingredientesComida(X,Y,W) :-ingrediente(W,Y),ingrediente(W,X),producto(Y), diferente(X,Y),comida(W). illcomidam(X,Y,W) :- enfermedad(X),comida(Y),producto(W),esDañino(W,X), ingrediente(Y,W). illcomidab(X,Y,A) :- enfermedad(X),comida(Y),producto(A), not(illcomidam(X,Y,A)),esBueno(A,X),ingrediente(Y,A). departamentos_de(X,Y) :- region(X),departamento(Y),progenitor(X,Y). debeComer(X,Z,A) :-enfermedad(Z),enfermedad(A),diferente(Z,A),esBueno(N,Z), esBueno(M,A),producto(M),producto(N),ingredientesComida(N,M,X), comida(X). debeComer(X,Z,A) :-enfermedad(Z),enfermedad(A),esDañino(M,Z),producto(M), esBueno(M,A),not(ingrediente(X,M)),comida(X). debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),esBueno(A,Y),esBueno(C,Y), esBueno(M,Y),esBueno(N,Y),esBueno(O,Y),diferente(N,O),diferente(N,Z), diferente(N,A),diferente(N,M),diferente(N,C),diferente(O,Z), diferente(O,A),diferente(O,C),diferente(O,M),diferente(Z,A), diferente(Z,C),diferente(A,C),diferente(M,A),diferente(M,Z), diferente(M,C),ingrediente(X,Z),ingrediente(X,A),ingrediente(X,C), ingrediente(X,M),ingrediente(X,N),ingrediente(X,O). debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),esBueno(A,Y),esBueno(C,Y), esBueno(M,Y),diferente(Z,A),diferente(Z,C),diferente(A,C), diferente(M,A),diferente(M,Z),diferente(M,C),ingrediente(X,Z), ingrediente(X,A),ingrediente(X,C),ingrediente(X,M). debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),esBueno(A,Y),esBueno(C,Y), diferente(Z,A),diferente(Z,C),diferente(A,C),ingrediente(X,Z), ingrediente(X,A),ingrediente(X,C). debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),esBueno(A,Y),diferente(Z,A), ingrediente(X,Z),ingrediente(X,A). debeComer(X,Y) :- enfermedad(Y),esBueno(Z,Y),ingrediente(X,Z). noDebeComer(X,Y) :- enfermedad(Y),comida(X),esDañino(Z,Y),esDañino(M,Y), esDañino(O,Y),esDañino(N,Y),diferente(N,Z),diferente(N,M), diferente(Z,M),diferente(O,Z),diferente(O,M),diferente(O,N), ingrediente(X,Z),ingrediente(X,M),ingrediente(X,N),ingrediente(X,O). noDebeComer(X,Y) :- enfermedad(Y),comida(X),esDañino(Z,Y),esDañino(M,Y), esDañino(N,Y),diferente(N,Z),diferente(N,M),diferente(Z,M), ingrediente(X,Z),ingrediente(X,M),ingrediente(X,N). noDebeComer(X,Y) :- enfermedad(Y),comida(X),esDañino(Z,Y),esDañino(M,Y), diferente(Z,M),ingrediente(X,Z),ingrediente(X,M). noDebeComer(X,Y) :- enfermedad(Y),comida(X),esDañino(Z,Y),ingrediente(X,Z). regiones(X,Y) :- pais(X),region(Y),progenitor(X,Y). comida_del_departamento(X,Y) :- comida(X),departamento(Y),comida_tipica(Y,X). ingrediente_comida(X,Y) :-producto(X),comida(Y),ingrediente(Y,X). mismoingrediente(Y,M,X) :-ingrediente(Y,X),ingrediente(M,X),diferente(Y,M), comida(Y),comida(M). comida_region(Y,Z) :- comida(Y),region(Z), progenitor(Z,M),comida_tipica(M,Y). deberecetar(X,Y,A):- especialista(X),comida(Y),producto(A),receta(Z,X), illcomidab(Z,Y,A). debeComerRegion(X,Y,Z) :-enfermedad(Y),region(Z),debeComer(X,Y),comida(X), comida_del_departamento(X,M),progenitor(Z,M). % ========================== % Funciones con los sintomas %=========================== comidaSintoma(X,Y):- sintoma(X),presenta_sintoma(Z,X),debeComer(Y,Z),not(noDebeComer(Y,Z)). queTiene(X,Y):- paciente(X),presenta_sintoma(Y,Z),sintoma(Z). queTiene(X,Y):- paciente(X),presenta_sintoma(Y,Z),presenta_sintoma(Y,M),diferente(Z,M). queTiene(X,Y):paciente(X),presenta_sintoma(Y,Z),presenta_sintoma(Y,M),presenta_sintoma(Y,N),diferente(Z,M),diferente(M, N),diferente(Z,N). comePaciente(X,Y):- paciente(X),queTiene(X,Z),debeComer(Z,Y). enfermedadPaciente(X,Y,Z):- paciente(X),tiene(X,Y),tiene(X,Z),diferente(Y,Z).
8. CONCLUSIONES
Actualmente el duro, difícil y cambiante mercado competitivo se vuelve más complejo por la gran diversidad de información que se ven obligados a almacenar y analizar, razón por la cual las empresas se ven en la necesidad de recurrir a poderosas y robustas herramientas o sistemas que les sirvan de soporte a la hora de tomar decisiones. De esta forma estos inteligentes, precisos y eficientes sistemas son adoptados por más organizaciones, en las cuales se convierten y transforman en una importante estrategia de negocio.
El sistema se puede ampliar con conocimientos médicos verídicos y verificados por una ciencia.
9. BIBLIOGRAFIA
[1] http://www.swi-prolog.org [2] http://es.wikipedia.org/wiki/Sistema_experto [3] http://www.monografias.com/trabajos26/sistema-documentacion/sistemadocumentacion.shtml