2

CLIPSでより大きいルールを定義しようとしていますが、機能していないようです。どうすれば修正できるかについてのアイデア。問題はdefrulebtwn100and120で発生しているようです。

(defrule part-credits
    (or (current-part "a")
        (current-part "b")
        (current-part "c"))
    =>
    (bind ?reply (get-text-from-user "How many points did you achieve?"))
    (assert (part-credits ?reply))
)

(defrule btwn100and120
    (part-credits => 100)
    (part-credits <= 120)
    =>
    (bind ?reply (get-text-from-user "Did you Part A before the changes? (y/n)"))
    (assert (btwn100and120 ?reply))
)
4

1 に答える 1

4

この関数を使用しtestて、数値を比較します。また、CLIPSは数学演算子にプレフィックス表記を使用していることに注意してください。これがあなたが望むことをする単純化されたルールです：

(defrule MAIN::btwn100and120
  (part-credits ?val)
  (test (<= ?val 120))
  (test (>= ?val 100))
=>
  (printout t "Value " ?val " is in range." crlf)
)

そして、ここにルールのテストがあります：

CLIPS> (watch facts)
CLIPS> (watch activations)
CLIPS> (assert (part-credits 99))
==> f-0     (part-credits 99)
<Fact-0>
CLIPS> (assert (part-credits 110))
==> f-1     (part-credits 110)
==> Activation 0      btwn100and120: f-1
<Fact-1>
CLIPS> (run)
Value 110 is in range.
CLIPS>
于 2012-11-26T14:53:37.340 に答える