CLIPS Error (dirbtinis intelektas)

Sveiki. Gal galite užmesti aki ir pasakyti kur yra klaida. Prisegsiu schemą ir failiuka.

Sukurta sistema šunų atpažinimui pagal jų požymius, bet kažkur esu iveles klaidu.

Būsiu dekingas jei kas domisi tuom ir pades ispresti sia problema.

PALEISTA PROGRAMA:

------------------------------------------------

CLIPS (Quicksilver Beta 09/24/07)

CLIPS> (load "L:/Dirbtinis intelektas/sunys.txt")

Defining deffunction: ask-question

Defining deffunction: yes-or-no-p

Defining defrule: isvaizda +j+j+j

Defining defrule: nustatykArLaukinis +j+j+j

Defining defrule: NustatytiSvoriLaukinem

[PRCCODE3] Undefined variable svoris referenced in RHS of defrule.

ERROR:

(defrule MAIN::NustatytiSvoriLaukinem

(suo laukinis)

(not (pasiulymas ?))

=>

(bind ?response (ask-question " kokio dydžio šuo ( M /L / XL) ?" m l xl))

(if (eq ?response m)

then

(assert (svoris m))

else

(if (eq ?svoris l)

then

(assert (svoris l))

else

(if (eq ?svoris xl)

then

(assert (pasiulymas "Senbernaras"))))))

Defining defrule: NustatytiSvoriNaminem =j+j+j+j+j

Defining defrule: NustatytiLaukkailiM =j+j+j+j+j+j

Defining defrule: NustatytiLaukkailiL =j=j+j+j+j+j

Defining defrule: NustatytiVidkailiS =j=j+j+j+j+j

Defining defrule: NustatytiLaukUodega =j=j=j+j+j+j+j

Defining defrule: NustatytiVidUodegaStrumpas =j=j=j+j+j+j+j

Defining defrule: NustatytiVidspalvaSilgas =j=j=j+j+j+j+j

Defining defrule: NustatytiVidUodegaM =j=j+j+j+j+j

Defining defrule: NustatytiVidausysM

[EXPRNPSR2] Expected a constant, variable, or expression.

ERROR:

(defrule MAIN::NustatytiVidausysM

(busena ieskau)

(suo naminis)

(svoris M)

(uodega Ilga riesa)

(not (kojos?))

(not (pasiulymas ?))

=>

(bind ?response (ask-question " Kokios kojos (Trumpos / Vidutinės) ?" trumpos vidutin <<<unprintable character>>>

Defining defrule: spausdink-pasiulyma +j+j

Defining defrule: system-banner +j+j

FALSE

CLIPS>

sunys.txt

Pasitaisau pats