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

人工智能技术导论

——小型专家系统

班级：

学号：

学生姓名：

汽车识别系统

1.题目:这是一个简单的车辆识别系统，有：红旗、奇瑞350、QQ、东风卡车、宝马、劳斯莱斯、本田、卡宴8种车。顾客使用我们这个系统，只需根据窗口提供的内容回答“yes”或“no”，系统将会帮你选择你可能中意的爱车。

2．该专家系统设计车的特性是：

（1）中国（5）两驱

（2）外国（6）四驱

（3）轿车（7）国产

（4）SUV（8）进口

各种车辆的特征如下：

3、谓词定义

do_expert_job

do_consulting

ask(symbol,symbol)

car_is(symbol)

positive(symbol,symbol)

negative(symbol,symbol)

remember(symbol,symbol,symbol)

clear_facts

4该专家系统设计汽车的分类是：首先按照中国外国，再按各种特征分类，如下图所示。。

5、程序

/*work.pro*/

/*Program:Car Expert*/

/*Purpose:To Show the working of an expert*/

/*It is a production rule_based system*/

/*Remark:This is a car classification expert system*/

/*It uses a set of production rules for the*/

/*purpose of inferring.*/

domains

database

xpositive(symbol,symbol)

xnegative(symbol,symbol)

predicates

do_expert_job

do_consulting

ask(symbol,symbol)

car_is(symbol)

positive(symbol,symbol)

negative(symbol,symbol)

remember(symbol,symbol,symbol)

clear_facts

goal

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("Please 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,unabie 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)).

remember(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(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"):-

positive(is,"waiguo"),

positive(is,"jiaoche"),

positive(is,"siqu"),

positive(is,"jinkou"),!. /*end*/

5、程序截图