Artificial
Intelligence

Fall 2007
course
navigation

oct 8

homework

$ cd /var/www/cs/htdocs/courses/fall2007/ai/code/AIMA_lisp/code $ clisp -M aima > (validity "Smoke => Smoke") VALID > (validity "Smoke => Fire") SATISFIABLE > (validity "(Smoke => Fire) => (~Smoke => ~Fire)") SATISFIABLE > (validity "Smoke | Fire | ~Fire") VALID > (validity "((Smoke ^ Heat) => Fire) <=> ((Smoke => Fire) | (Heat => Fire))") VALID > (validity "(Smoke => Fire) => ((Smoke ^ Heat) => Fire)") VALID > (validity "Big | Dump | (Big => Dumb)") VALID > (validity "(Big ^ Dumb) | ~Dumb") SATISFIABLE
7.11
In the 3x3 block around cell 1,1 there are (choose 8 2) pairs of neighbors = 8*7/2 = 28 pairs. For each of these pairs you write a sentance that says that these two are true and the others are false. For example to say that there are bombs in 2,2 and 1,2, you'd write x[2,2] ^ x[1,2] ^ ~x[0,2] ^ ~x[0,1] ^ ~x[2,1] ^ ~x[0,0] ^ ~x[1,0] ^ ~x[2,0] The whole thing has 27 more lines like this, with "or" between each of the lines.

class discussion

; Problem 7.9 in the text ; $ clisp -M aima ... (setf kb (make-prop-kb)) (tell kb "Mythical => Immortal") (tell kb "~Mythical => (~Immortal ^ Mammal)") (tell kb "(Immortal | Mammal) => Horned") (tell kb "Horned => Magical") (format t "Mythical ? ~A ~%" (ask kb "Mythical")) (format t "not Mythical ? ~A ~%" (ask kb "~Mythical")) (format t "Magical ? ~A ~%" (ask kb "Magical")) (format t "Horned ? ~A ~%" (ask kb "Horned")) Can you do this using resolution? Forward or backward chaining?

coming

http://cs.marlboro.edu/ courses/ fall2007/ai/ lecture_notes/ oct_8
last modified Monday October 8 2007 3:57 am EDT