Zbirka zadataka iz Ekspertskih sistema

1.3. Primeri na Prolog-u i LISP-u 67
RED ((E A) (D A) (B A) (C A))
RED ((D A) (B E A) (B A) (C A))
RED ((H D A) (F D A) (B E A) (B A) (C D A) (C A))
RESENJE (A D H)
Pre svake ekspanzije čvora ispisuje se tekući sadržaj liste parcijalnih putanja queue. Lako je
ustanoviti da je pretraga opisana stablom sa slike 64. I pored toga što uz čvorove nisu
navedene vrednosti heurističke funkcije, ove vrednosti se mogu kvalitativno oceniti gledajući
datu putnu mrežu. U odnosu na pretragu planinarenjem iz zadatka 26, ekspandovan je jedan
čvor manje zahvaljujući globalnom izboru najboljeg čvora pri pretrazi.
1
B
C
A
D
C F H
Slika 64
Zadatak 28: Algoritam grananja i ograničavanja na Lisp-u
a) Napisati Lisp proceduru za pretraživanje metodom grananja i ograničavanja (engl. branchand-bound).
b) Primeniti proceduru iz tačke a) za nalaženje najkraćeg puta između tačaka A i H na putnoj
mreži sa slike 62 iz zadatka 26.
Rešenje
a) Program napisan na Scheme Lisp-u je zasnovan na algoritmu za metod grananja i
ograničavanja iz dodatka 1:
(define (branch-and-bound start finish)
(branch-and-bound1 (list (list start)) finish))
(define (branch-and-bound1 queue finish)
(print ‘Red)
(write queue)
(cond ((null? queue) (print ‘|Nema resenja|))
((equal? finish (caar queue))
(print ‘Resenje)
(write (reverse (car queue))))
(else (branch-and-bound1 (sort (append
(expand (car queue))
(cdr queue))
3
4
2
E
B