资源描述：
《人工智能实验-小型专家系统.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、人工智能技术导论——小型专家系统班级：学号：学生姓名：汽车识别系统1.题目:这是一个简单的车辆识别系统，有：红旗、奇瑞350、QQ、东风卡车、宝马、劳斯莱斯、本田、卡宴8种车。顾客使用我们这个系统，只需根据窗口提供的内容回答“yes”或“no”，系统将会帮你选择你可能中意的爱车。2．该专家系统设计车的特性是：（1）中国（5）两驱（2）外国（6）四驱（3）轿车（7）国产（4）SUV（8）进口各种车辆的特征如下：3、谓词定义do_expert_jobdo_consultingask(symbol,symbol)car_is(symbol)positive(sy
2、mbol,symbol)negative(symbol,symbol)remember(symbol,symbol,symbol)clear_facts4该专家系统设计汽车的分类是：首先按照中国外国，再按各种特征分类，如下图所示。。5、程序/*work.pro*//*Program:CarExpert*//*Purpose:ToShowtheworkingofanexpert*//*Itisaproductionrule_basedsystem*//*Remark:Thisisacarclassificationexpertsystem*//*Ituses
3、asetofproductionrulesforthe*//*purposeofinferring.*/domainsdatabasexpositive(symbol,symbol)xnegative(symbol,symbol)predicatesdo_expert_jobdo_consultingask(symbol,symbol)car_is(symbol)positive(symbol,symbol)negative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoaldo_expe
4、rt_job.clauses/*USERINTERFACESYSTEM*/do_expert_job:-makewindow(1,7,7,"ANEXPERTSYSTEMS",1,16,15,58),nl,write("******************************************"),nl,write("WELCOMETOAGOGEXPERTSYSTEM"),nl,write("Thisisacaridentificationsystem"),nl,write("Pleaserespondbytypingin"),nl,write("
5、'yes'or'no'.Thankyou"),nl,write(""),nl,write("***************************************"),nl,nl,do_consulting,write("Pressspacebar."),nl,readchar(_),clearwindow,exit.do_consulting:-car_is(X),!,nl,write("Yourfavoritecarmaybea(n)",X,"."),nl,clear_facts.do_consulting:-nl,write("Sorry,u
6、nabietodeterminethecar."),nl,clear_facts.ask(X,Y):-write("Question:-",X,"it",Y,"?"),readln(Reply),remember(X,Y,Reply)./*INFERENCEBIGING*/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(xpositiv
7、e(X,Y)).remember(X,Y,no):-asserta(xnegative(X,Y)),fail.clear_facts:-retract(xpositive(_,_)),fail.clear_facts:-retract(xnegative(_,_)),fail./*Productionrules*/car_is("swan"):-positive(is,"zhongguo"),positive(is,"jiaoche"),positive(is,"liangqu"),positive(is,"jinkou"),!.car_is("qirui
8、"):-positive(is,"zhongguo"),posit
