Zbirka zadataka iz Ekspertskih sistema

68 1. Pretraživanje
(define (shorterp p1 p2)
(< (path-length p1) (path-length p2)))
(define (sort l f)
(sort1 () l f))
shorterp)
finish))))
(define (sort1 s l f)
(if (null? l) s
(sort1 (insert s (car l) f) (cdr l) f)))
(define (insert l e f)
(cond ((null? l) (list e))
((f e (car l)) (cons e l))
(else (cons (car l) (insert (cdr l) e f))))
Funkcija branch-and-bound, čijim pozivom započinje pretraga, ima za parametre startni i
ciljni čvor. Ova funkcija služi samo za inicijalizaciju parametara rekurzivne funkcije
branch-and-bound1 koja vrši pretraživanje.
Red queue, prvi parametar funkcije branch-and-bound1 predstavljen je listom parcijalnih
putanja od korena do otkrivenih a neobiđenih čvorova stabla pretrage na isti način kao u
programu iz zadatka 26. Svaka parcijalna putanja je lista čvorova od lista stabla pretrage
prema korenu. Vođenje evidencije o obrađenim parcijalnim putanjama potrebno je radi
izbegavanja zatvorenih puteva u grafu pretrage. Inicijalno se red sastoji samo od jedne
putanje koja se opet sastoji samo od korenog čvora.
Funkcija branch-and-bound1 je po svemu ista kao funkcija best1 iz zadatka 27 osim u
kriterijumu za sortiranje reda parcijalnih putanja posle ekspandovanja tekućeg čvora stabla
pretrage. U svrhu poređenja parcijalnih putanja pri sortiranju koristi se funkcija (shorterp
p1 p2). U skladu sa definicijom algoritma grananja i ograničavanja, porede se dužine,
odnosno, u opštem slučaju, cene parcijalnih putanja pri čemu se koristi funkcija (pathlength
p) koja određuje dužinu parcijalne putanje p.
b) Zadata mrežu puteva, koja predstavlja graf pretrage predstavljena je na isti način kao u
zadatku 26:
(define A ‘( (x 2) (y 0) (children (B C D E) ) ))
(define B ‘( (x 0) (y 2) (children (A E) ) ))
(define C ‘( (x 4) (y 1) (children (A D G F) ) ))
(define D ‘( (x 3) (y 3) (children (A C F H) ) ))
(define E ‘( (x 1) (y 4) (children (A B) ) ))