Example.7.1

;;;===========================================

;;; Control Expert System of technological process

;;;

;;; This expert system administers technological process

;;; of creations of details of the complex form

;;;

;;; CLIPS Version 6.0 Example

;;;Author: Vladimir Makushkin, vmakushkin@mail.ru

;;;

;;; To execute, merely load, reset and run.

;;;===========================================

(deffacts initial-state

(Ds 800)

(Dm 2)

(Da 2)

(Dar 1))

(defrule rule1

(declare (salience 9098))

(Ds 10)

(Dm 1)

(Da 1)

(printout t "Rule1: Vr=A, Vm=10, T=0, I=1, G=tor" crlf))

(defrule rule2

(declare (salience 9095))

(Ds 10)

(Dm 2)

(Da 2)

(printout t "Rule2: Vr=B, Vm=10, T=1, I=1, G=line, Rm=40, J=80, S=60" crlf))

(defrule rule3

(declare (salience 9092))

(Ds 300)

(Dm 2)

(printout t "Rule3: Vr=B, Vm=20, T=2, I=1, G=tor" crlf))

(defrule rule4

(declare (salience 9097))

(Ds 300)

(Da 3)

(printout t "Rule4: Vr=C, Vm=40, T=3, I=2, G=line, Rm=50, J=75, S=75" crlf))

(defrule rule5

(declare (salience 9094))

(Ds 800)

(Dm 2)

(Da 2)

(Dar 1)

(printout t "Rule5: Vr=B, Vm=60, T=4, I=2, G=line, Rm=60, J=70, S=70" crlf))

(defrule rule6_7

(declare (salience 9090))

(Ds 800)

(Dar ? num)

(if (< ? num 3)

then

(printout t "Rule6: Vr=B, Vm=40, T=6, I=3, G=line, Rm=60, J=60, S=75" crlf)

else

(printout t "Rule7: Vr=C, Vm=80, T=6, I=3, G=line, Rm=60, J=60, S=75" crlf)))

Содержание  Назад  

---

---

---

---