Zbirka zadataka iz Ekspertskih sistema

64 1. Pretraživanje
Pre svake ekspanzije čvora ispisuje se tekući sadržaj liste parcijalnih putanja queue. Lako je
ustanoviti da je pretraga opisana stablom sa slike 63. I pored toga što uz čvorove nisu
navedene vrednosti heurističke funkcije, ove vrednosti se mogu kvalitativno oceniti gledajući
datu putnu mrežu.
B
C
1
A
D
C F H
Slika 63
Zadatak 27: Algoritam ‘prvo najbolji’ na Lisp-u
a) Napisati Lisp proceduru za pretraživanje metodom ‘prvo najbolji’ (engl. best-first).
b) Primeniti proceduru iz tačke a) za nalaženje puta između tačaka A i H na putnoj mreži sa
slike 62 iz zadatka 26, pri čemu heuristička funkcija predstavlja vazdušno rastojanje tekućeg i
ciljnog čvora:
h = ( x− x ) + ( y− y )
2 2
c c
gde su x i y koordinate tekućeg, a x c i y c koordinate ciljnog čvora.
Rešenje
a) Program napisan na Scheme Lisp-u je zasnovan na algoritmu 4 iz dodatka 1:
(define (best start finish)
(best1 (list (list start)) finish))
(define (best1 queue finish)
(print ‘Red)
(write queue)
(cond ((null? queue) (print ‘|Nema resenja|))
((equal? finish (caar queue))
(print ‘Resenje)
(write (reverse (car queue))))
(else (best1 (sort (append (expand (car queue))
(cdr queue))
(lambda (x y) (closerp x y finish)))
finish))))
(define (closerp a b with-respect-to)
4
5
2
E
B
3