1. (25) Change the rules in mycin-rules.lisp so that there is a new clause for bacterial meningitis. This rule should state that
A patient has bacterial_meningitis
if the value of the attribute pent_headtrauma is yes for the patient
and the trauma is recent.
2. (25) Create a rule that indicates when a trauma is recent.
A trauma is recent if the value of the predicate traumadate is less than 67 for the patient
3. (25) Test your system on X, Y and Nort. For example:
(load "unify") (load "fast-traced-prove") (load "mycin-rules") ;;you need to add rules to *mycin-rules* (store-clauses *mycin-rules*) (load "patients") (store-clauses *sick-people*) (prove-and-ask '((diagnosis nort ?d) (correct-diagnosis nort ?c))) Solved: ?C = BACTERIAL_MENINGITIS ?D = BACTERIAL_MENINGITIS
4. (25) The rules in mycin-rules.lisp find the diagnosis that the patient has. MYCIN also has rules that suggest treatments. Add a new rule that indicates that to find the treatment for a patient, find the diagnosis that the patient has and then find the treatment that is appropriate for that diagnosis and patient.
Add additional rules that indicate the treatment for a patient with bacterial_meningitis is chicken-soup if the patient is younger than 21 years old, and whiskey otherwise. If a patient has viral_meningitis, treat the patient with Tylenol if the gender is male and aspirin if the gender is female. For example,
(prove-and-ask '((treatment nort ?t))) Solved: ?T = ASPIRINNote: Nort really might require some other treatment
Test your rules on X, Y and nort. DO NOT USE THESE RULES FOR THE DIAGNOSIS OR TREATMENT OF ANY REAL PERSON
EXTRA CREDIT Write rules for a classification expert system for any topic you want. Your system must have at least 10 rules and some conditions of some rule must be solved by chaining to another rule. It must be tested on at least 10 examples. Hand in a listing of the system, and a short English description of the problem it solves and why it's appropriate for an expert system.