Интеллектуальные робототехнические системы

       

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)))


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