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




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

Листинг 7.1. Программа ЭС управления ТП по обработке деталей сложной формы.

Закрыть окно






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