http:www'ise'bgu'ac'ilcoursesaidefault'htm

1
???? ????????

• ??? ?????
• http//www.ise.bgu.ac.il/courses/ai/default.htm

ALLEGRO http//www.franz.com/downloads/
2
(No Transcript)
3
(No Transcript)
4
(No Transcript)
5
?????
6
????? ????? ??????
7
TRACE
8
http//www.franz.com/support/documentation/6.2/doc
/index.htm
9
GPS

• ??? ????? ??????
• AUXMACS.lsp
• AUXFNS.lsp ???? ?? ????? ???? ??? ?? ????? ??
  Invoke Selected Start.
• GPS1.lsp ?? ??? ?-GPS ??????.
• ??? ?????? ?? ?-GPS ???? ???? ?? ?????? ?? 
  GPS.lsp ?? ????? ?? Invoke Selected Start ??? ???
  ?????? ??? ??????.

10

• ?? ?????? ?? ???? ?????
• ?????? ?? ???? ? GPS (mapc 'convert-op
  get-ticket-ops)
• ?????? ?? ???? ????? ????? (use
  get-ticket-ops)
• ?????? ?? ? GPS(gps '(have-money be-a-student)
  '(have-ticket))

11
Eliza

• ??? ????? ??????
• AUXMACS.lsp
• AUXFNS.lsp ???? ?? ????? ???? ??? ?? ????? ??
  Invoke Selected Start.
• eliza1.lisp ?? ????? ???????.
• ???? ?? ?????? ???? ?????? Warning ??? ????
  ?????

12

• ?? ?????? ?????.
• (defparameter eliza-rules
• '((((? ?x) hello (? ?y))
• (How do you do. Please state your problem.))
• (((? ?x) I felt (? ?y))
• (What other feelings do you have?))))
• ?? ?????? ? eliza ?? ???? ????? ????.
• (defun use-eliza-rules (input)
• "Find some rule with which to transform the
  input."
• (some '(lambda (rule)
• (let ((result (pat-match
  (rule-pattern rule) input)))
• (if (not (eq result fail))
• (sublis (switch-viewpoint
  result)
• (random-elt
  (rule-responses rule))))))
• garden-rules))
• ????? ?? eliza
• (eliza)

13
Chap 6

• patmatch.lisp ?? ????? ?? ????? ????? ????? ??
  ???????? ?????.
• CG-USER(3) (pat-match-abbrev '?y '(? ?y))
• (? ?Y)
• eliza-pm.lisp ?? ????? ??
• Eliza1 (??? ??????? )
• eliza
• patmatch.lisp
• ???? ????? eliza-pm

14

• search.lisp ?? ????? ????? ??
• AUXMACS.lsp
• AUXFNS.lsp
• search.lisp
• gps-srch.lisp - ?? ????? ????? ??
• AUXFNS.lsp
• search.lisp
• gps1.lisp
• gps.lisp
• gps-srch.lisp

15
Chap 7

• student.lisp
• AUXFNS.lsp
• patmatch.lisp
• student.lisp

16
???? ???????

• ??????? ???? (????? ?? ?? ?????? ??? ???????)
• ????? ???????
• ?? ????? ????? ??? ????? ??? ?"? ?????? ????
  ?- P

??????!