人工智能实验-小型专家系统

1、精选优质文档-倾情为你奉上精选优质文档-倾情为你奉上专心-专注-专业专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业人工智能技术导论小型专家系统班 级：学 号：学 生 姓 名： 汽车识别系统1. 题目: 这是一个简单的车辆识别系统，有：红旗、奇瑞350、QQ、东风卡车、宝马、劳斯莱斯、本田、卡宴 8种车。顾客使用我们这个系统，只需根据窗口提供的内容回答“yes”或“no”，系统将会帮你选择你可能中意的爱车。 2该专家系统设计车的特性是： （1）中国 （5）两驱（2）外国 （6）四驱 （3）轿车 （7）国产（4）SUV （8）进口各种车辆的特征如下： 3、谓词定义 do_expert_

2、job do_consultingask (symbol, symbol)car_is (symbol)positive(symbol,symbol)negative (symbol,symbol)remember (symbol,symbol,symbol)clear_facts4该专家系统设计汽车的分类是：首先按照中国外国，再按各种特征分类，如下图所示。 5、程序/* work. pro */* Program: Car Expert */* Purpose: To Show the working of an expert */* It is a production rule _bas

3、ed system */* Remark: This is a car classification expert system */* It uses a set of production rules for the*/* purpose of inferring. */domainsdatabase xpositive(symbol,symbol) xnegative(symbol,symbol)predicates do_expert_job do_consultingask(symbol, symbol)car_is(symbol)positive(symbol,symbol)neg

4、ative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoal do_expert_job.clauses/* USER INTERFACE SYSTEM */do_expert_job:- makewindow(1,7,7,AN EXPERT SYSTEMS, 1, 16,15,58), nl,write( *), nl,write( WELCOME TO AGOG EXPERT SYSTEM ), nl,write( This is a car identification system ), nl,write( Plea

5、se respond by typing in ), nl, write( yes or no. Thank you ), nl, write( ), nl, write (*), nl, nl, do_consulting, write(Press space bar.),nl, readchar(_), clearwindow, exit.do_consulting:- car_is(X),!, nl,write(Your favorite car may be a(n) ,X,.),nl, clear_facts.do_consulting:- nl,write(Sorry, unabi

6、e to determine the car.),nl, clear_facts.ask(X,Y):- write(Question:-,X, it ,Y,?), readln(Reply), remember(X,Y,Reply)./* INFERENCE BIGING */positive(X,Y):- xpositive(X,Y), !.positive(X,Y):- not(negative(X,Y),!,ask(X,Y).negative(X,Y):- xnegative(X,Y), !.remember(X,Y,yes):- asserta(xpositive(X,Y).remem

7、ber(X,Y,no):- asserta(xnegative(X,Y),fail.clear_facts:- retract(xpositive(_,_),fail.clear_facts:- retract(xnegative(_,_),fail./* Production rules */car_is(swan):- positive(is,zhongguo), positive(is,jiaoche), positive(is,liangqu), positive(is,jinkou),!.car_is(qirui):- positive(is,zhongguo), positive(

8、is,jiaoche), positive(is,liangqu), positive(is,guochan),!.car_is(QQSUV):- positive(is,zhongguo), positive(is,SUV), positive(is,liangqu), positive(is,guochan),!.car_is(dongfengka):- positive(is,zhongguo), positive(is,siqu), positive(is,guochan),!.car_is(baoma):- positive(is,waiguo), positive(is,SUV), positive(is,siqu), positive(is,jinkou),!.car_is(laosilaisi):- positive(is,waiguo), positive(is,jiaoche), positive(is,liangqu), positive(is,guochan),!.car_is(bentian):- positive(is,waiguo), positive(is,jiaoche), positive(is,siqu), positive(is,guochan),!.car_is(kayan