Получите доступ к слоту из мультиполя - PullRequest
Новая
       15

Получите доступ к слоту из мультиполя

1 голос
/ 30 мая 2011

У меня есть эта функция, которая вычисляет некоторое значение на основе нескольких слотов нескольких фактов о нескольких полях.

Поскольку задействовано довольно много слотов, и все они необходимы в функции, о которой я думал, если бы я мог передать целоефакт к функции и доступ к ее слотам в ней, например: 

(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.

1 Ответ

6 голосов
/ 03 июля 2011

Используйте функцию фактического значения слота. 

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