Control Expert System of technological
|
;;;=========================================== ;;; 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))) |
| Листинг 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)))
