Visual Prolog Discussion forums
https://discuss.visual-prolog.com/
Code: Select all
if commondialogs::tryGet_string(This, txt_input, "" , string::concat("does" , Patient, "have a fever(y/n) ?"))= "y" then
assert(symptom(Patient, "fever"))
endif,
askNextQuestion(Patient),Code: Select all
predicates
diagnose(string Patient) -> string determ.
askFirstQuestion(string Patient) -> boolean Answer1 procedure.
askNextQuestion(string Patient) -> boolean Answer2 procedure.
clauses
askFirstQuestion(Patient)=true :-
Answer1=commondialogs::tryGet_string(This, txt_input, "" , string::concat("does" , Patient, "have a fever(y/n) ?")),
Answer1="y",
asserta(symptom(Patient, "fever")),
!.
askFirstQuestion(Patient)=false.
askNextQuestion(Patient)=true :-
Answer2=commondialogs::tryGet_string(This, txt_input, "" , string::concat("does" , Patient, "have rashes(y/n) ?")),
Answer2="y",
asserta(symptom(Patient, "meningitis")),
!.
askNextQuestion(Patient)=false.
% Calling sequence
diagnose(Patient) = Disease :-
true=askFirstQuestion(Patient),
Answer2=askNextQuestion(Patient),
fail.
diagnose(Patient) = Disease :-
symptom(Patient,Disease).
Code: Select all
implement taskWindow
inherits applicationWindow
open core, vpiDomains
constants
mdiProperty : boolean = true.
clauses
new():-
applicationWindow::new(),
generatedInitialize().
constants
txt_input = "Eingabe".
domains
name = string.
disease = symbol.
indication = symbol.
predicates
onShow : window::showListener.
clauses
onShow(_, _CreationData):-
_MessageForm = messageForm::display(This).
predicates
onFileNew : window::menuItemListener.
clauses
onFileNew(_Source, _MenuTag):-
if Patient = commonDialogs::tryGet_string(This, txt_input, "", "What is the Patient's name ?") then
else
Patient = "unknown"
end if,
go(Patient).
predicates
go : (name Patient).
clauses
go(Patient) :-
checkPupil(Patient),
fail.
go(Patient) :-
gradePupil(Patient),
fail.
go(_Patient):-
stdIo::write("=====\n").
facts
symptom : (name,indication) nondeterm.
predicates
checkPatient : (name Patient)
multi.
clauses
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a fever (y/n) ?")) = "y" then
assert(symptom(Patient, "fever"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a rash (y/n) ?")) = "y" then
assert(symptom(Patient, "rash"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a headache (y/n) ?")) = "y" then
assert(symptom(Patient, "headache"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a fever (y/n) ?")) = "y" then
assert(symptom(Patient, "fever"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a runny_nose (y/n) ?")) = "y" then
assert(symptom(Patient, "runny_nose"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a conjunctivitis (y/n) ?")) = "y" then
assert(symptom(Patient, "conjunctivitis"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a cough (y/n) ?")) = "y" then
assert(symptom(Patient, "cough"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a body_ache (y/n) ?")) = "y" then
assert(symptom(Patient, "body_ache"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a chills (y/n) ?")) = "y" then
assert(symptom(Patient, "chills"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a sore_throat (y/n) ?")) = "y" then
assert(symptom(Patient, "sore_throat"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a sneezing (y/n) ?")) = "y" then
assert(symptom(Patient, "sneezing"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a swollen_glands (y/n) ?")) = "y" then
assert(symptom(Patient, "swollen_glands"))
end if.
predicates
gradeDisease : (name Patient) nondeterm.
clauses
gradeDisease(Patient) :-
hypothesis(Patient, Disease),
stdIo::write(Patient, " ", Disease, "\n").
predicates
hypothesis : (name Patient, disease indication [out])
nondeterm.
clauses
hypothesis(Patient, "measles") :-
symptom(Patient,fever),
symptom(Patient,cough),
symptom(Patient,conjunctivitis),
symptom(Patient,runny_nose),
symptom(Patient,rash).
hypothesis(Patient,german_measles) :-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,runny_nose),
symptom(Patient,rash).
hypothesis(Patient,flu) :-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,body_ache),
symptom(Patient,conjunctivitis),
symptom(Patient,chills),
symptom(Patient,sore_throat),
symptom(Patient,runny_nose),
symptom(Patient,cough).
hypothesis(Patient,common_cold) :-
symptom(Patient,headache),
symptom(Patient,sneezing),
symptom(Patient,sore_throat),
symptom(Patient,runny_nose),
symptom(Patient,chills).
hypothesis(Patient,mumps) :-
symptom(Patient,fever),
symptom(Patient,swollen_glands).
hypothesis(Patient,chicken_pox) :-
symptom(Patient,fever),
symptom(Patient,chills),
symptom(Patient,body_ache),
symptom(Patient,rash).
hypothesis(Patient,measles) :-
symptom(Patient,cough),
symptom(Patient,sneezing),
symptom(Patient,runny_nose).Code: Select all
class facts
finding : ( string ClinicalSignOrSymptom ).
class predicates
ask_put_finding : ( window, string, string ) determ (i,i,i).
ask_signs_and_symptoms : ( window, string Patient ) .
clauses
ask_put_finding( ParentWin, Pt, SignSymptom ) :-
Prompt = string::format( "Does % have a % (y/n) ?", Pt, SignSymptom ),
Response = commonDialogs::tryGet_string( ParentWin, Pt, Prompt ),
FC = string::frontChar( Response ),
if _Pos = string::search( "TY", YesOther, string::caseInsensitive ) then
assert( symptom( Pt, SignSymptom ))
else
% do nothing, but you could add more logic here later
end if.
finding( "fever" ).
finding( "rash" ).
finding( "headache" ).
/*
Add other conditions to findings here.
Can you guess how you might be able to "consult" your findings from a file
into your expert system when you use a fact database?
*/
ask_signs_and_symptoms( ParentWin, Pt ):-
finding( SignSymptom ), % for each clinical finding in facts
ask_put_finding( ParentWin, Pt, SignSymptom ),
fail.
ask_signs_and_symptoms(_,_):-
vpiCommonDialogs::note("Patient Signs & Symptoms","Data entry is complete.").Ferenc Nagy wrote:If you cancel this dialog then commondialogs::tryGet_string fails and the procedure won't be continued by askNextQuestion().Code: Select all
If you respond with anything else than "y" and confirm the dialog then the program
1. executes if,
2. jumps to askNextQuestion().
I think the solution isLessonCode: Select all
Forget if ...endif structures. These are not PROLOG but imported alien elements.
Other remarks:
"Y", "yes", "yeah", "39 centigrade" answers mean 'false' with your tools.
I do not want to complicate the program with retaining only the lowercased first character and repeating the question if the result is neither "y" nor "n".
The assertA() causes that "meningitis" precedes "fever" in the database of symptoms.
The assertZ() causes that "meningitis" follows "fever" in the database of symptoms.
Code: Select all
ask_put_finding( ParentWin, Pt, SignSymptom ) :-
Prompt = string::format( "Does % have a % (y/n) ?", Pt, SignSymptom ),
Response = commonDialogs::tryGet_string( ParentWin, Pt, Prompt ),
FC = string::frontChar( Response ),
if _Pos = string::search( "TY", YesOther, string::caseInsensitive ) then
assert( symptom( Pt, SignSymptom ))
else
% do nothing, but you could add more logic here later
end if.Code: Select all
else
% do nothing, but you could add more logic here laterCode: Select all
FC =string::frontChar( Response ) Code: Select all
FC =string::frontChar( Response ) causes a runtime error.[/quote]Code: Select all
predicates
diagnose(string Patient) -> string determ.
askFirstQuestion(string Patient) -> boolean Answer1 procedure.
askNextQuestion(string Patient) -> boolean Answer2 procedure.
clauses
askFirstQuestion(Patient)=true :-
Answer1=commondialogs::tryGet_string(This, txt_input, "" , string::concat("does" , Patient, "have a fever(y/n) ?")),
Answer1="y",
asserta(symptom(Patient, "fever")),
!.
askFirstQuestion(Patient)=false.
askNextQuestion(Patient)=true :-
Answer2=commondialogs::tryGet_string(This, txt_input, "" , string::concat("does" , Patient, "have rashes(y/n) ?")),
Answer2="y",
asserta(symptom(Patient, "meningitis")),
!.
askNextQuestion(Patient)=false.
% Calling sequence
diagnose(Patient) = Disease :-
true=askFirstQuestion(Patient),
Answer2=askNextQuestion(Patient),
fail.
diagnose(Patient) = Disease :-
symptom(Patient,Disease).Code: Select all
Predicates
OnPushButtonClick : button :clickResponder.
Clauses
OnPushButtonClick(_sources) = button :defaultAction() :-
Fname = fname_ctl:gettext(),
Mname = mname_ctl:gettext(),
Person::addPerson( Fname , Mname),
Person :: saveDatabase.Code: Select all
predicates
onPushButtonClick : button :clickResponder.
clauses
onPushButtonClick(_sources) = button :defaultAction() :-
Fname = fname_ctl:getText(),
Mname = mname_ctl:getText(),
person::addPerson(Fname , Mname),
person::saveDatabase,
fname_ctl:setText(""),
mname_ctl:setText("").Code: Select all
implement taskWindow
inherits applicationWindow
open core, vpiDomains
constants
mdiProperty : boolean = true.
clauses
new():-
applicationWindow::new(),
generatedInitialize().
constants
txt_input = "Eingabe".
domains
name = string.
disease = symbol.
indication = symbol.
predicates
onShow : window::showListener.
clauses
onShow(_, _CreationData):-
_MessageForm = messageForm::display(This).
predicates
onFileNew : window::menuItemListener.
clauses
onFileNew(_Source, _MenuTag):-
if Patient = commonDialogs::tryGet_string(This, txt_input, "", "What is the Patient's name ?") then
else
Patient = "unknown"
end if,
go(Patient).
predicates
go : (name Patient).
clauses
go(Patient) :-
checkPupil(Patient),
fail.
go(Patient) :-
gradePupil(Patient),
fail.
go(_Patient):-
stdIo::write("=====\n").
facts
symptom : (name,indication) nondeterm.
predicates
checkPatient : (name Patient)
multi.
clauses
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a fever (y/n) ?")) = "y" then
assert(symptom(Patient, "fever"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a rash (y/n) ?")) = "y" then
assert(symptom(Patient, "rash"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a headache (y/n) ?")) = "y" then
assert(symptom(Patient, "headache"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a fever (y/n) ?")) = "y" then
assert(symptom(Patient, "fever"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a runny_nose (y/n) ?")) = "y" then
assert(symptom(Patient, "runny_nose"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a conjunctivitis (y/n) ?")) = "y" then
assert(symptom(Patient, "conjunctivitis"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a cough (y/n) ?")) = "y" then
assert(symptom(Patient, "cough"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a body_ache (y/n) ?")) = "y" then
assert(symptom(Patient, "body_ache"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a chills (y/n) ?")) = "y" then
assert(symptom(Patient, "chills"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a sore_throat (y/n) ?")) = "y" then
assert(symptom(Patient, "sore_throat"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a sneezing (y/n) ?")) = "y" then
assert(symptom(Patient, "sneezing"))
end if.
checkPatient(Patient) :-
if commonDialogs::tryGet_string(This, txt_input, "", string::concat("Does ", Patient, " have a swollen_glands (y/n) ?")) = "y" then
assert(symptom(Patient, "swollen_glands"))
end if.
predicates
gradeDisease : (name Patient) nondeterm.
clauses
gradeDisease(Patient) :-
hypothesis(Patient, Disease),
stdIo::write(Patient, " ", Disease, "\n").
predicates
hypothesis : (name Patient, disease indication [out])
nondeterm.
clauses
hypothesis(Patient, "measles") :-
symptom(Patient,fever),
symptom(Patient,cough),
symptom(Patient,conjunctivitis),
symptom(Patient,runny_nose),
symptom(Patient,rash).
hypothesis(Patient,german_measles) :-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,runny_nose),
symptom(Patient,rash).
hypothesis(Patient,flu) :-
symptom(Patient,fever),
symptom(Patient,headache),
symptom(Patient,body_ache),
symptom(Patient,conjunctivitis),
symptom(Patient,chills),
symptom(Patient,sore_throat),
symptom(Patient,runny_nose),
symptom(Patient,cough).
hypothesis(Patient,common_cold) :-
symptom(Patient,headache),
symptom(Patient,sneezing),
symptom(Patient,sore_throat),
symptom(Patient,runny_nose),
symptom(Patient,chills).
hypothesis(Patient,mumps) :-
symptom(Patient,fever),
symptom(Patient,swollen_glands).
hypothesis(Patient,chicken_pox) :-
symptom(Patient,fever),
symptom(Patient,chills),
symptom(Patient,body_ache),
symptom(Patient,rash).
hypothesis(Patient,measles) :-
symptom(Patient,cough),
symptom(Patient,sneezing),
symptom(Patient,runny_nose).Code: Select all
Hypothesis(Patient,Disease)
Stdio::write(Patient,Disease).