0

計算結果の一部を保存するためのテンプレートを作成しようとしていたので、初期化用にこれを作成しました。

(deftemplate tempAlumne
    (slot nota-media-total)
    (slot nota-media-obligatorias)
    (slot nota-media-optativas)
    (slot nota-media-ales)
)

(deffacts tempAlumneFacts
    (tempAlumne 
        (nota-media-total -1)
        (nota-media-obligatorias -1)
        (nota-media-optativas -1)
        (nota-media-ales -1)
    )
)

そして、その構造を使用して値を保存しようとしていますが、多くのルールからアクセスできるようにする必要があるため、グローバルにすることにしました。だから私はこのような値を格納しようとしました:

(defrule calcula-nota-media ""
    (not calcula-nota-media ok)
    ?*tmpA* <- (tempAlumne )

    =>
    (bind ?llista_convocs (send ?*alumne* get-IConvocatoria))
    (bind ?suma 0)
    (bind ?i 0) 
    (while(< ?i (length$ ?llista_convocs)) do
        (bind ?convoc_actual (nth$ ?i ?llista_convocs))
        (bind ?suma (+ ?suma (send ?convoc_actual get-Nota)))
        (bind ?i (+ ?i 1))
    )   
    (/ )    
    (modify (?*tmpA* (nota-media-total (/ ?suma ?i))
    (assert calcula-nota-media ok)
)

?*tmpA* に初期値を設定し、それぞれに変更を割り当てたい (ここでは nota-media-total を割り当てます) ようにしたいのですが、「[PRNTUTIL2] 構文エラー: defrule の適切な構文を確認してください。」と表示されるので、何が間違っているのか、間違った道を進んでいるのかわからない。

4

1 に答える 1

1

基本的な構文について説明しているため、ユーザーズ ガイドを読むと役に立ちます。エラーの一部を修正しました。

(defrule calcula-nota-media ""
    (not (calcula-nota-media ok))
    ?tmpA <- (tempAlumne)
    =>
    (bind ?llista_convocs (send ?*alumne* get-IConvocatoria))
    (bind ?suma 0)
    (bind ?i 0) 
    (while(< ?i (length$ ?llista_convocs)) do
        (bind ?convoc_actual (nth$ ?i ?llista_convocs))
        (bind ?suma (+ ?suma (send ?convoc_actual get-Nota)))
        (bind ?i (+ ?i 1))
    )   
    ; (/ )  What's this for?  
    (modify ?tmpA (nota-media-total (/ ?suma ?i)))
    (assert (calcula-nota-media ok))
)
于 2012-03-16T03:48:20.917 に答える