植物识别系统.doc

植物识别系统.doc:..人工智能技术导论——小型专家系统班 级:计算机科学与技术12092311学 号:12905333学生姓名::这是一个简单的植物识别系统,有:海带、睡莲、水仙、荷花、仙人球、柳树、牡丹、香樟8种植物。使用这个系统,只需根据窗口提供的内容回答“yes”或“no”,系统将会帮你选择你可能想要了解的植物。:(1)水生(5)可食用(2)陆生(6)不可食用(3)有香气(7)有叶(4)无香气(8)无叶2、谓词定义do_expertjobdo_consultingask(symbol,symbol)plant_is(symbol)positivefsymbol,symbol)negative(symbol,symbol)remember(symbolzsymbol,symbol)clear_facts3、程序/**/广程序:植物专家*/严目的:显示一个专家的工作*//*这是一个生产rule_based系统*/广注:这是一个植物分类专家系统*//*它使用一组用于生产规则*//*目的推断 */%域说明%指定类型,为符号(symbol)domains/*说明谓词*/databasexpositive(symbol,symbol)xnegative(symbol,symbol)predicatesdo_expertjobdo_consultingask(symbol,symbol)plant」s(symbol)positive(symbol,symbol)negative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoal/*目标段*//*字句段*/厂用户接口系统*/do_expertjob:-makewindow(l,7z7,"ANEXPERTSYSTEMS",1,16,15,58),/*用户接口界面设置*/nlwrite(H******************************************ETOAGOGEXPERTSYSTEM Jnl,write(HThisisaplantidentificationsystemH),nl,write(HPleaserespondbytypingin H),nl,write("'yes'or',write(u ”),nl,writeIf***************************************”nl,nl,do_consulting,write(nPressspacebar."),nl,readchar(_),clearwindow,:・plant」s(X),!,nl,write(,,Yourwanttofindtheplantmaybea(n),,,X/,.H),nl/'Sorry,heplant.”),nl,(X,Y):-writeC'Question:-",^