Seminárna práca: UIES - diagnostika PC
Skryť detaily | Obľúbený- Kvalita:72,0 %
- Typ:Seminárna práca
- Univerzita:Ekonomická univerzita v Bratislave
- Fakulta:Fakulta hospodárskej informatiky
- Kategória:Technika
- Podkategória:Umelá inteligencia
- Predmet:Umelá inteligencia
- Autor:ikovan
- Ročník:3. ročník
- Zobrazené:2 444 x
- Stiahnuté:14 x
- Veľkosť:0,1 MB
- Formát a prípona:Textový dokument (.txt)
- Jazyk:slovenský
- ID projektu:5734
- Posledna úprava:23.11.2017
Súbor obsahuje kód pre program CLIPS. Program vykonáva diagnostiku chyby pc pomocou pravidlového programovania.
Snippet:
(defglobal
?*pocet_moz* = 0
?*mini* = 1000
?*top* = 0)
(deftemplate IN
(slot ID)
(slot otazka)
(slot odpoved)
(slot pod1id (default 0))
(slot pod1odp)
(slot pod2id (default 0))
(slot pod2odp))
(deftemplate ACTUAL
(slot pod1id (default 0))
(slot pod1odp))
(deftemplate archive
(slot ID (default 0)))
(deffunction upd_extrem ()
(do-for-all-facts ((?p archive))
TRUE
(if (= ?p:ID ?*mini*)
then
(bind ?*mini* 1000))
(if (= ?p:ID ?*top*)
then
(bind ?*top* 0))))
Snippet:
(defglobal
?*pocet_moz* = 0
?*mini* = 1000
?*top* = 0)
(deftemplate IN
(slot ID)
(slot otazka)
(slot odpoved)
(slot pod1id (default 0))
(slot pod1odp)
(slot pod2id (default 0))
(slot pod2odp))
(deftemplate ACTUAL
(slot pod1id (default 0))
(slot pod1odp))
(deftemplate archive
(slot ID (default 0)))
(deffunction upd_extrem ()
(do-for-all-facts ((?p archive))
TRUE
(if (= ?p:ID ?*mini*)
then
(bind ?*mini* 1000))
(if (= ?p:ID ?*top*)
then
(bind ?*top* 0))))