资源描述：
《植物识别系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、人工智能技术导论——小型专家系统班级：计算机科学与技术12092311学号：12905333学生姓名：陈铮植物识别系统1.题目：这是一个简单的植物识别系统，有：海带、睡莲、水仙、荷花、仙人球、柳树、牡丹、香樟8种植物。使用这个系统，只需根据窗口提供的内容回答“yes”或“no”，系统将会帮你选择你可能想要了解的植物。2.该专家系统设计植物的特性是：（1）水生（5）可食用（2）陆生（6）不可食用（3）有香气（7）有叶（4）无香气（8）无叶2、谓词定义do_expertjobdo_consultingask(symbol,symbol)plant_is(symbol)pos
2、itivefsymbol,symbol)negative(symbol,symbol)remember(symbolzsymbol,symbol)clear_facts3、程序/*zhuanjia.pro*/广程序：植物专家*/严目的：显示一个专家的工作*//*这是一个生产rule_based系统*/广注：这是一个植物分类专家系统*//*它使用一组用于生产规则*//*目的推断*/%域说明%指定类型,为符号(symbol)domains/*说明谓词*/databasexpositive(symbol,symbol)xnegative(symbol,symbol)predi
3、catesdo_expertjobdo_consultingask(symbol,symbol)plant」s(symbol)positive(symbol,symbol)negative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoal/*目标段*/do_expertjob.clauses/*字句段*/厂用户接口系统*/do_expertjob:-makewindow(l,7z7,"ANEXPERTSYSTEMS",1,16,15,58),/*用户接口界面设置*/nlwrite(H*********
4、*********************************nnlwriteCWELCOMETOAGOGEXPERTSYSTEMJnl,write(HThisisaplantidentificationsystemH),nl,write(HPleaserespondbytypinginH),nl,write("'yes'or'no1.Thankyounl,write(u”),nl,writeIf***************************************”nl,nl,do_consulting,write(nPressspacebar."),nl
5、,readchar(_),clearwindow,exit.do_consulting:・plant」s(X),!,nl,write(,,Yourwanttofindtheplantmaybea(n),,,X/,.H),nl/clear_facts.do_consultinLwriteC'Sorry,unabietodeterminetheplant.”),nl,clear_facts.ask(X,Y):-writeC'Question:-",^"it“卅？“)，readln(Reply),remember(XXReply)./*推理BIGING7positive(Xz
6、Y):-xpositive(XzY),!.positive(X,Y):-not(negative(X,Y))J,ask(X,Y).negative(X,Y):-xnegative(X,Y),!.remember(XXyes):-asserta(xpositive(X,Y)).remember(XXno):-asserta(xnegativefX^JJJail.clear_facts:-retract(xpositive(_,_)),fail.clear_facts:-retract(xnegative(_,_))Jail./*生产规则*/plantjs("haidai"
7、):-positive(is,"shuisheng”)，positivefis/'youxiangq/)positivefis/^eshiyong11),positive(is,"wuye")J-plantJs(HshuilianH):-positive(is,"shuisheng”)，positive(is,Hyouxiangq/1),positive(is,"keshiyong"),positive(is；'youye")J.plant」s("shuixian”):・positive(is,"shuisheng,,)/positive
