Ejercicio

Sistemas expertos: lógica clásica

Ejercicio.
Analiza algunos de los ejemplos, que viene en en la siguientes paginas
http://groups.engin.umd.umich.edu/CIS/course.des/cis479/prolog.html

Este ejemplo consiste en las acciones de un medico y que va descartando las opciones de enfermedades, con una serie de preguntas hasta llegar a la solucion mas probable, este programa nos enseña la lógica de realizar.

Ejemplo

/ * Este es un programa verdaderamente una tontería, ya que se basa en mi propia
conocimientos médicos. 
Pregunte: ¿la comezón. o? de la lesión. o?-ayuda. para ponerlo en marcha. * /


ayudar a: - print ('Diagnóstico de los siguientes temas:'), nl, 
print ('Itch.'), nl, print ('lesión').


pica: - print ('¿Es el ambiente seco:?'), "Decir sí",
  print ('No tome duchas tantos. El uso de vaselina.').

pica: - print ('¿El paciente tiene un historial de alergias:?'), 
  "Decir sí", no (fiebre), impresión ("Considere la posibilidad de dermatitis atópica. ').

fiebre: - 
  print ('¿El paciente tiene fiebre? ")," Decir sí ".

"No infecciosa": - el acné, "el acné severo.
"No infecciosa": - el acné, "acné quístico".
"No infecciosa": - el acné.
"No infecciosa": - "severo acné rosácea.
"No infecciosa": - "rosácea".

lesión: - No (fiebre), "no infecciosa".


el acné: - 
  print ('¿Es la piel grasa?'), "Decir sí",
  print ('¿Hay un montón de granos? ")," Decir sí ",
  imprimir ("La condición es probable que el acné. '). 

"Acné quístico": - 
  print ('¿Hay muchos quistes amarillentos?), "Decir sí", 
  print ('La condición es el acné quístico.').

"Acné severo ': - 
  imprimir ( 
    "¿Hay grandes abscesos elevados azulado con cicatrices deformantes? ),
  "Decir sí".

"Rosácea": - print ('¿Está el paciente a una mujer? ")," Decir sí ", 
             "Acné rosácea".


"Acné rosácea": - "severo".
"Acné rosácea": - "suave".

"Severo": - 
  print ('¿Tiene el paciente una nariz inflamada y con crecimientos? ")," Decir sí ",
  print ('El diagnóstico es severo acné rosácea.').

"Suave": - 
  print ('¿Es la piel grasa, con tendencia a la seborrea? ")," Decir sí ",
  print ('¿Hay pústulas rodeada por una zona rojiza?'), "Decir sí",
  imprimir ("Pero, ¿son más grandes que las erupciones de acné común?"), "Decir sí",
  print ('El diagnóstico es el acné rosácea.').


"Decir sí": - lectura (Ans), sí (Ans), nl.


sí (yes).
Sí (Y).
sí (sí).

Sí (sí)..