Scribd
Upload
32 views6 pages

Simulated Pediatric Disease Diagnosis

The document outlines two experiments focused on medical diagnostics for childhood diseases using a simulated system. Experiment 01 includes a source code that defines symptoms and hypotheses for various diseases, while Experiment 02 revises the diagnostic process with interactive patient symptom inquiries. Both experiments aim to identify diseases based on symptoms provided by the patient.

Translated by

ScribdTranslations
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
32 views6 pages

Simulated Pediatric Disease Diagnosis

The document outlines two experiments focused on medical diagnostics for childhood diseases using a simulated system. Experiment 01 includes a source code that defines symptoms and hypotheses for various diseases, while Experiment 02 revises the diagnostic process with interactive patient symptom inquiries. Both experiments aim to identify diseases based on symptoms provided by the patient.

Translated by

ScribdTranslations
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

DATE OF EXPERIMENT: DATE OF SUBMISSION:

10-06-2008 10-07-2008

ASSINATURA DO PROFESSOR DO CURSO:

EXPERIMENT NO:01

NAME OF THE EXPERIMENT: A SIMULATED MEDICAL DIAGNOSTIC


SISTEMA PARA DOENÇAS INFANTIS.

CÓDIGO-FONTE:

domínios

disease,indication,name=symbol

predicados

hypothesis(name,disease)
symptom(name,indication)

cláusulas

symptom(charlie,fever).
symptom(charlie,rash).
symptom(charlie,headache).
symptom(charlie,runny_nose).

hipótese(Paciente, sarampo):-

limparjanela
symptom(Patient,fever),
symptom(Patient,cough),
symptom(Patient,conjunctivities),
symptom(Patient,runny_nose),
symptom(Patient,rash).

hipótese(Paciente, sarampo_alemão):-

symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,runny_nose),
symptom(Patient,rash).
hipótese(Paciente,gripe):-

symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,body_ache),
symptom(Patient,conjunctivities),
symptom(Patient,chills),
symptom(Patient,sore_throat),
symptom(Patient,cough),
symptom(Patient,runny_nose).

hipótese(Paciente,resfriado_comum):-

symptom(Patient,headache),
symptom(Patient,sneezing),
symptom(Patient,sore_throat),
symptom(Patient,chills),
symptom(Patient,runny_nose).

hipótese(Paciente, caxumba):-

symptom(Patient,fever),
symptom(Patient,swollen_glands).

hipótese(Paciente,catapora):-

symptom(Patient,fever),
symptom(Patient,rash),
symptom(Patient,body_ache),
symptom(Patient,chills).

hypothesis(Patient,whooping_cough):-

symptom(Patient,cough),
symptom(Patient,sneezing),
symptom(Patient,runny_nose).

SAÍDA EM CAIXA DE DIÁLOGO:

Goal:hypothesis(Patient,Disease)
Patient=charlie, Disease=german_measles
1 Solução
DATE OF EXPERIMENT: DATE OF SUBMISSION:
10-06-2008 10-07-2008

ASSINATURA DO PROFESSOR DO CURSO:

EXPERIÊNCIA Nº: 02

NAME OF THE EXPERIMENT: THE REVISED MEDICAL DIAGNOSIS


PROBLEMA.

CÓDIGO FONTE:

domínios
disease,indication=symbol
patient=string

predicados
hypothesis(patient,disease)
symptom(patient,indication)
resposta(caractere)
vá

cláusulas
ir:-
Qual é o nome do paciente?
lerln(Paciente),
hypothesis(Patient,Disease),
escreva(Paciente, " provavelmente tem ", Doença, "."), nl.

ir:-
Desculpe, não parece que eu consiga
diagnosticar a doença.

symptom(Patient,fever):-
escreva("O(a)
response(Reply),
Reply='y'.

symptom(Patient,rash):-
O paciente
response(Reply),
Reply='y'.
symptom(Patient,headache):-
Escreva("Dose ", Paciente, " tem dor de cabeça (s/n)?"),
response(Reply),
Reply='y'.
sintoma(Paciente, nariz_correndo):-
Escreva("O paciente ", Paciente, " tem um nariz escorrendo (s/n)?")
response(Reply),
Reply='y'.

sintoma(Paciente,conjuntivite):-
o paciente tem conjuntivite (s/n)?
response(Reply),
Reply='y'.

symptom(Patient,cough):-
O paciente
response(Reply),
Reply='y'.

symptom(Patient,body_ache):-
escreva("O paciente ", Paciente, " tem dores no corpo (s/n)?")
response(Reply),
Reply='y'.

symptom(Patient,chills):-
O paciente
response(Reply),
Reply='y'.

symptom(Patient,sore_throat):-
escreva("O paciente ", Paciente, " tem dor de garganta (s/n)?"),
response(Reply),
Reply='y'.

symptom(Patient,sneezing):-
Escreva("Está
response(Reply),
Reply='y'.

symptom(Patient,swollen_glands):-
write("Dose ",Patient," have swollen glands (y/n)?"),
response(Reply),
Reply='y'.
hipótese(Paciente, sarampo):-
symptom(Patient,fever),
symptom(Patient,cough),
symptom(Patient,conjunctivities),
symptom(Patient,runny_nose),
symptom(Patient,rash).

hipótese(Paciente, sarampo_alemão):-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,runny_nose),
symptom(Patient,rash).

hipótese(Paciente,gripe):-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,body_ache),
symptom(Patient,conjunctivities),
symptom(Patient,chills),
symptom(Patient,sore_throat),
symptom(Patient,cough),
symptom(Patient,runny_nose).

hipótese(Paciente, resfriado_comum):-
symptom(Patient,headache),
symptom(Patient,sneezing),
symptom(Patient,sore_throat),
symptom(Patient,chills),
symptom(Patient,runny_nose).

hipótese(Paciente, caxumba):-
symptom(Patient,fever),
symptom(Patient,swollen_glands).

hipótese(Paciente,varicela):-
symptom(Patient,fever),
symptom(Patient,rash),
symptom(Patient,body_ache),
symptom(Patient,chills).

hipótese(Paciente,coqueluche):-
symptom(Patient,cough),
symptom(Patient,sneezing),
symptom(Patient,runny_nose).

response(Reply):-
lercaractere(Resposta),
escreva(Responder),nl.

SAÍDA EM CAIXA DE DIÁLOGO:

Meta: ir

Qual é o nome do paciente?


Kakoly

Kakoly está com febre (s/n)? s


Kakoly tem tosse (s/n)? s
Kakoly tem conjuntivite (s/n)? s
Kakoly tem uma erupção (s/n)? s
Kakoly está com o nariz escorrendo (s/n)? s

Kakoly provavelmente tem sarampo.


sim

You might also like