1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
CLIPS> (load "/home/yoda/ugai/board/clips/examples/auto.clp")
Defining deffunction: ask-question
Defining deffunction: yes-or-no-p
Defining defrule: normal-engine-state-conclusions +j
Defining defrule: unsatisfactory-engine-state-conclusions +j
Defining defrule: determine-engine-state +j+j
Defining defrule: determine-rotation-state +j+j+j
Defining defrule: determine-sluggishness =j+j
Defining defrule: determine-misfiring =j=j
Defining defrule: determine-knocking =j=j
Defining defrule: determine-low-output =j+j+j
Defining defrule: determine-gas-level =j+j+j
Defining defrule: determine-battery-state +j+j+j
Defining defrule: determine-point-surface-state =j+j+j
+j+j
Defining defrule: determine-conductivity-test =j+j+j+j
Defining defrule: no-repairs +j
Defining defrule: system-banner +j
Defining defrule: print-repair +j
CLIPS> (reset)
CLIPS> (run)
The Engine Diagnosis Expert System
Does the engine start (yes/no)? yes
Does the engine run normally (yes/no)? no
Is the engine sluggish (yes/no)? no
Does the engine misfire (yes/no)? yes
Suggested Repair:
Point gap adjustment.
CLIPS> (dribble-off)
|
