Extras din laborator
SISTEME EXPERT – LABORATOR 2
Aflarea maximului
(numar 1)
(numar 2)
(numar 3)
----------|-----------
(maxim 3)
---------| |-----------
- Prima varianta
CLIPS> (assert (maxim –999))
CLIPS> (defrule maxim
(numar ?x)
?f<-(maxim ?y&:(> ?x ?y))
=>
(retract ?f)
(assert (maxim ?x))
); de la defrule
CLIPS>
- A doua varianta
CLIPS> (defrule maxim
(numar ?x)
(not (numar ?y&:(> ?y ?x)))
=>
(assert (maxim ?x))
); de la defrule
CLIPS>
Intersectia a doua multimi
(mul1 3 7 10 20)
(mull2 3 10 15 17)
----------|-----------
(intersectie 3 10)
---------| |-----------
CLIPS> (defrule intersectie
(mul1 $? ?x $?)
(mul1 $? ?x $?)
?f <-(intersectie $?i)
(not (intersectie $? ?x $?))
=>
(assert (intersectie $?i ?x))
(retract ?f)
); de la defrule
CLIPS>
Reuniunea a doua multimi
(mul1 3 7 10 20)
(mull2 3 10 15 17)
----------|-----------
(reuniune 3 7 10 15 17 20)
---------| |-----------
CLIPS> (defrule concateneaza_multimi
(mul1 $?x)
(mul2 $?y)
=>
(assert (lista $?x $?y))
); de la defrule
CLIPS>
CLIPS> (defrule elimina_duplicate
?f<-(lista $?i1 ?x $?i2 ?x ?$i3)
=>
(retract ?f)
(assert (lista $?i1 ?x $?i2 $?i3))
); de la defrule
CLIPS>
Sortari
- Prima varianta
CLIPS> (defrule sort
?f1<-(lista $?i1 ?x $?i2)
(not (lista $? ?y&:(< ?y ?x) $?)
?f<-(sortat $?l)
=>
(retract ?f)
(retract ?f1)
(assert (lista $?i1 $?i2))
(assert (sortat $?l ?x))
); de la defrule
CLIPS>
- A doua varianta
CLIPS> (defrule sort
?f<-(lista $?i1 ?x ?y&:(< ?y ?x) $?i2)
=>
(retract ?f)
(assert $?i1 ?y ?x $?i2)
); de la defrule
CLIPS>
Permutari
CLIPS> (defrule permutare
(lista $?i1 ?x ?y $?i2)
=>
(assert (lista $?i1 ?y ?x $?i2))
); de la defrule
Preview document
Conținut arhivă zip
- Sisteme Expert - Laborator 2.pdf
Alții au mai descărcat și
1. Identificarea problemei Situatia unui mijloc fix este uneori dificil de evaluat de un auditor datorita multitudinii de factori care trebuie...
1. Aspecte teoretice Sisteme expert bazate pe reguli Mijloacele prin care sistemele expert îsi ating obiectivele se bazeaza pe multimi de fapte...
Rezultatele din testul 3DS Max 7 SPECapc Test Testul alaturat consta in crearea modelelor 3D, modificarea si randarea scripturilor. Conform...
Introducere O semnatura digitala reprezinta o informatie care il identifica pe expeditorul unui document. Semnatura digitala este creata prin...
Am creat o baza de date relationala numita facultate formata din fisierele: Studenti.dbf , care contine informatii despre studenti unei...
Acest sistem calculeaza gradul de avariere a unei cladiri în cazul unui cutremur, precum si posibila necesitate a reconstructiei cladirii (partiala...
Să se organizeze o bază de date pentru resurse umane 1. Să se afişeze persoanele dintr-un anumit departament 2. să se numere angajaţii pe...
SE-Laborator9 CLIPS C Language Integrated Production System COOL CLIPS Object-Oriented Language CLIPS Rule-base programming language COOL...
Te-ar putea interesa și
Cap.I. Creditul bancar 1.1.Creditul – resursă de finanţare a activităţii unei întreprinderi Băncile comerciale constituite în România dupa 1989...
CAP.1. SELECTAREA CLIENTELEI BANCARE ŞI ANALIZA CERERII DE CREDITE 1.1. Scurt istoric al Grupului Banca Comercială Română Fondată la 1...
Cap.I. SCURT ISTORIC Termenul de criminalistică este întrebuinţat pentru prima dată în literatura juridică, de către Hans Gross, în Manualul...
SISTEM EXPERT PENTRU EVALUAREA RISCULUI DE FALIMENT AL UNEI ÎNTREPRINDERI ÎN VEDEREA OBTINERII UNUI CREDIT BANCAR Sistemele expert financiar...
1. Introducere Maşinile electrice reprezintă componente de bază ale oricărui sistem electroenergetic. Progresul în industriile de vârf este strâns...
1. Sistemele expert si inteligenta artificiala Inteligenta artificiala este un domeniu care retine din ce în ce mai mult atentia economistilor,...
Sistemele expert constituie o clasa particulara de sisteme informatice bazate pe inteligenta artificiala, avand ca scop reproducerea cu ajutorul...
1. Introducere Inteligenţa Artificială (IA) este o ramură a ştiinţei promovată recent în universităţi şi laboratoare de cercetare. Astfel de...