Rafael Ramos Silva RA00195170 18

Prévia do material em texto

Rafael Ramos Silva RA00195170 18/11/2020 
 
1a) Ela ocorre de forma procedural, no formato se- então ou situação-ação 
b) 
 
c) ?obj <- (object 
 (is-a Fig)) 
d) 
 
 
 
2)a) Regra OAV 
b) match 
c) modelo de domínio 
d) base de conhecimento 
e) memória de trabalho 
 
3) 
(defclass Eletronicos 
 (is-a USER) 
 (slot tela (default 0) (create-accessor write)) 
) 
 
(defclass Tv 
 (is-a Eletronicos) 
 (role concrete) 
 (pattern-match reactive) 
Memoria de trabalho Motor de inferência 
BC(base de 
conhecimento) 
 (slot energia (default 0) (create-accessor write)) 
) 
 
(defclass Celular 
 (is-a eletronicos) 
 (role concrete) 
 (pattern-match reactive) 
 (slot pulo (default 0) (create-accessor write)) 
) 
 
(definstances eletronicos 
 (t1 of Celular 
 (tela 50) 
 (energia 10) 
 ) 
 (t1 of Tv 
 (tela 50) 
 (energia 20) 
 ) 
) 
 
(defrule veriTv 
 ?obj <- (object 
 (is-a Tv)) 
 => 
 (printout t "É uma tv") 
) 
 
(defrule veriCelular 
 ?obj <- (object 
 (is-a Celular)) 
 => 
 (printout t "É uma Tv") 
) 
 
4 a) 
 
 
 
 
 
 
 
b) 
(defrule idFornecedor 
 ?obj <- ( 
 object (is-a Fornecedor) (código ?código &: (= ?código 13550)) 
 ) 
 => 
 (printout t "O código do fornecedor é 13550" ) 
) 
 
 
5) 
(defrule idItemDeEstoque 
 ?obj <- ( 
 object (is-a ItemDeEstoque) (codigo ?codigo) (preco ?preco) 
 ) 
 => 
 (printout t "Digite o preço: " ) 
 (bind ?novoPreco (readline)) 
 (printout t "Antigo: " ?preco) 
 (printout t "Novo: " ?novoPreco) 
 (modify-instance ?obj (preco ?novoPreco) ) 
)