CLIPS-绑定

一、

１、(bind ?total-area (+ ?total ?area))表示把(+ ?total?area)的结果给?total-area，即绑定。

２、完成求２个矩形的面积之和。

 

二、

１、操作

CLIPS> (unwatch all)
CLIPS> (run)
CLIPS> (reset)
CLIPS> (run)
total=0+8120=8120
total=8120+3800=11920

２、CLP文件

(deftemplate MAIN::rectangle
   (slot height)
   (slot width))

(deffacts MAIN::rect
   (rectangle (height 200) (width19))
   (rectangle (height 290) (width28))
   (sum 0))

(defrule MAIN::sum-rectangles
   (rectangle (height ?height)(width ?width))
   =>
   (assert (add-to-sum (* ?height?width))))

(defrule MAIN::sum-areas
   ?sum <- (sum?total)
   ?new-area <-(add-to-sum ?area)
   =>
   (retract ?sum ?new-area)
   (bind ?total-area (+ ?total?area))
   (printout t "total=" ?total"+" ?area "=" ?total-area crlf)
   (assert (sum?total-area)))