expert-system - 从多功能访问插槽

我有这个函数，它基于多个多字段事实的多个时隙来计算一些值。

因为涉及很多插槽，而函数中需要所有插槽，所以我在想是否可以将整个事实传递给函数并访问其中的插槽，
像这样:

(deftemplate a-fact
    (slot id)
    (slot name)
    (slot ...)
    ...
)

(deffunction a-funciton (?factadr)
    (switch ?factadr:name
        (case bla then ...)
    )

    (return ?calculated-value)
)

(defrule a-rule
    ?factadr <- (a-fact (id ?i))
    =>
    (if (> **(a-function ?factadr) 20) then ... )
)

在此示例中，我看到了这个？fact-adrres:slot-name ，并认为它可以工作，但没有用。那么，有可能并且如何做到这一点？

(bind ?facts (find-all-facts ((?f attribute))
                               (and (eq ?f:name wine)
                                    (>= ?f:certainty 20))))

使用片段6.3。

最佳答案

使用事实槽值函数。

CLIPS>
(deftemplate a-fact
   (slot id)
   (slot name))
CLIPS>
(defrule a-rule
   ?f <- (a-fact)
   =>
   (printout t (fact-slot-value ?f id) " " (fact-slot-value ?f name) crlf))
CLIPS> (assert (a-fact (id 3) (name x)))
<Fact-1>
CLIPS> (assert (a-fact (id  7) (name y)))
<Fact-2>
CLIPS> (run)
7 y
3 x
CLIPS>

关于expert-system - 从多功能访问插槽，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6176693/