write the following program in prolog

Our Prolog system will contain

Diseases symptoms, locales, tests, treatments

Symptom( influenza, vomiting).

Symptom( influenza, fever).

Fever is < 101

High is >101

Locale(influenza, [1,2,3,4,5,6,7,8]). where

North America

Central America

South America

Africa

Middle East

Europe

Asia

Far East

Test(influenza, RIDT). Results will be -1 = false. 0 = inconclusive, 1 = true

TestResult(RIDT, 0). Or

TestResult(RIDT,1).

Once all data is entered then a list of possible treatments is presented.

Treatment(influenza, hydration).

Etc.

Diagnosis will check the testResults vs. the Test(disease, test). Rule and if false then the disease is eliminated from the potential diseases. (this will start with all disease)

Infectious Disease Diagnosis Interface

Enter a symptom

Enter a locale

Recommend tests

Enter test results

Recommend treatments

Diagnose

Runtime sample

(display menu)

>1

enter symptom vomiting

(display menu)

>1

enter symptom high fever

(display menu)

>2

Add a recent locale central America

(display menu)

etc

>6

you may have one of the following: influenza, small pox, ingrown toenailebola

Rinse and repeat until finished