Question

我尝试使用CLIPSJNI的WineDemo.clp示例。

(defmodule SEVERITY (import MAIN ?ALL)
                (export deffunction get-dengue-list))

(deffacts any-attributes
          (attribute (name clinical-prediction) (value any))
          (attribute (name lab-prediction) (value any)))

(deftemplate SEVERITY::dengue
      (slot name (default ?NONE))
      (multislot clinical (default any))
      (multislot lab (default any)))

(deffacts SEVERITY::the-dengue-list
     (dengue (name "DF") (clinical dengue-f) (lab positive))
     (dengue (name "DHF") (clinical dengue-hf) (lab positive))
     (dengue (name "DSS") (clinical dengue-ss) (lab positive)))

(defrule SEVERITY::generate-severity
   (dengue (name ?name)
      (clinical $? ?c $?)
      (lab $? ?l $?))
   (attribute (name clinical-prediction) (value ?c) (certainty ?certainty-1))
   (attribute (name lab-prediction) (value ?l) (certainty ?certainty-2))
     =>
    (assert (attribute (name dengue) (value ?name)
                 (certainty (min ?certainty-1 ?certainty-2)))))

(deffunction SEVERITY::dengue-sort (?w1 ?w2)
   (< (fact-slot-value ?w1 certainty)
      (fact-slot-value ?w2 certainty)))

(deffunction SEVERITY::get-dengue-list ()
  (bind ?facts (find-all-facts ((?f attribute))
                           (and (eq ?f:name dengue) (>= ?f:certainty 20))))
  (sort dengue-sort ?facts))

但是，当我尝试用Java打印出来时，我无法返回任何事实。

String evalStr = "(SEVERITY::get-dengue-list)";
MultifieldValue pv = (MultifieldValue)clips.eval(evalStr);
System.out.println(pv);

The list I got when I use this:

(find-all-facts ((?f attribute)) TRUE)

我似乎无法从-dengue-list中获取详细信息。我不希望显示所有属性。我还是很陌生，而且我被卡住了。谁能帮帮我吗？

谢谢！

Answer 1

生成严重性规则永远不会执行，因此永远不会生成名为dengue的属性事实，get-dengue-list函数将返回一个空列表。为了执行规则，必须具有与登革热事实中的实验室和临床槽值匹配的临床预测和实验室预测属性。实验室价值为“正面”＆＃39;与任何＆＃39;的临床预测值不符。 “登革热”，“登革热”，“登革热”和“登革热”的临床价值。与任何＆＃39;的实验室预测值不匹配。

如果你想要符号＆＃39;任何＆＃39;要在匹配时具有特殊意义，您需要调整您在模式中使用的约束。例如：

   (attribute (name clinical-prediction) (value ?c | any) (certainty ?certainty-1))
   (attribute (name lab-prediction) (value ?l | any) (certainty ?certainty-2))

您可能遇到的另一个问题是，您使用的查询只会返回至少为20的确定属性事实。

CLIPS find-all-facts返回值

1 个答案: