JessTab: Нахождение среднего значения

Question

Я пытаюсь найти средний возраст людей, утверждал в семье онтология по следующему правилу JessTab:

(defrule print_people_total_age 
    (object (https://wiki.csc.calpoly.edu/OntologyTutorial/family_example.owl#age ?a1)) 
    => 
    (bind ?s 0) 
    (bind ?num 0) 
    (foreach ?a (create$ ?a1) (+ ?s ?a) (++ ?num) (printout t "Total age " ?s " and average age is " (/ ?s ?num) " of persons" crlf))) 

Правило компилирует хорошо, но когда активированные ошибки это:

Jess reported an error in routine + 
    while executing (+ ?s ?a) 
    while executing (foreach ?a (create$ ?a1) (+ ?s ?a) (++ ?num) (printout t "Total age " ?s " and average age is " (/ ?s ?num) " of persons" crlf)) 
    while executing defrule MAIN::print_people_total_ageSSS 
    while executing (run). 
    Message: Not a number: "~@http://www.w3.org/2001/XMLSchema#integer 20". 

Где я ошибаюсь?

Answer 1

Вам необходимо понять основы выполнения правил, в первую очередь, что каждый факт (или набор фактов), который соответствует правилу, приводит к выполнению этого правила, а все эти исполнения независимы друг от друга. Чтобы объединить данные, содержащиеся в нескольких фактах, вы можете использовать накопленный CE; в более сложной ситуации может потребоваться дополнительный факт.

(defrule sumofages 
?res <- (accumulate (progn (bind ?s 0)(bind ?n)) 
        (progn (bind ?s (+ ?s ?a)) (++ ?n)) 
        (create$ ?n ?s) 
        (object (age ?a))) 
=> 
(bind ?s (nth$ 2 ?res)) 
(bind ?n (nth$ 1 ?res)) 
(printout t "Total age " ?s 
      " and average age is " (/ ?s ?n) " of persons" crlf)) 

Вы также должны убедиться в том, что понимаете основные функции арифметических функций. (+ ?s ?a)? добавляет, но не меняет ни операнд.