人工智能导论课程实验指导书.doc.docVIP

人工智能导论课程实验指导书 廉师友编 计算机工程实验室 2007年3月 目 录 1. 小型专家系统设计与实现………………………………………………………..2 专家系统涉及课程的大部分内容，而且实践性和应用性都很强。因此，将系统设计与实现作为一个上机实项目加深课程内容的理解和掌握，培养学生开发智能系统的能力。 三、实验内容 运用所学知识，设计并编程实现一个小型系统（如分类、诊断、预测等类型） 四、基本要求 1. 具体应用领域自选，具体系统名称自定 用产生式作为知识表示，用产生系统实现该系统。 用P语言程用 4. 所实现的专家系统必须上机运行演示；程序运行时，应有人机对话。具体工作及步骤为：系统分析知识获取与表示知识库组建推理机选择/编制系统调试与测试PROLOG程序，以熟悉语言环境；接着运行示例程序；然后编辑、调试测试（1）（）（）（）（）（）（）（）（）（）（1）（1）（1）（1）（1）/* An Animal Classifying Expert System */ database xpositive(symbol，symbol) xnegative(symbol，symbol) predicates run animal_is(symbol) it_is(symbol) positive(symbol, symbol) negative(symbol, symbol) clear_facts remember(symbol, symbol, symbol) ask(symbol, symbol) goal run. clauses run:- animal_is(X),!, write(\nYour animal may be a(n) , X), nl, nl, clear_facts. run:- write(\nUnable to determine what), write(your animal is. \n\n), clear_facts. positive(X, Y):-xpositive(X, Y),!. positive(X, Y):-not(xnegative(X, Y)), ask(X, Y). negative(X, Y):-xnegative(X，Y), !. negative(X, Y):-not(xpositive(X, Y)), ask(X, Y). ask(X, Y):- write(X, it , Y, \n), readln(Reply), remember(X, Y, Reply). remember(X, Y, y):-asserta(xpositive(X, Y)). remember(X, Y, n):-asserta(xnegative(X, Y)), fail. clear_facts:-retract(xpositive(_, _)), fail. clear_facts:-retract(xnegative(_, _)), fail. clear_facts:-write(\n\nPlease press the space bar to Exit), readchar(_). /* Knowledge Base */ animal_is(cheetah):- it_is(carnivore)， positive(has, tawny_color), positive(has, black_spots). animal_is(tiger):- it_is(carnivore), positive(has, tawny_color), positive(has, black_stripes).