人工智能专家系统

1.题目:这是一个选床单的专家系统，有SHEETA、SHEETB、SHEETC、SHEETD、SHEETE、SHEETF、SHEETG、SHEETH8种床单。顾客使用我们这个选床单的系统，只需根据窗口提供的内容回答“yes”或“no”，系统将会帮你选择你需要的床单。该专家系统设计狗的特性是：(1)军绿色(ArmyGreen)(2)湖蓝色(LakeBlue)(3)适合单人床(Suitableforsinglebeds)(4)适合双人床(Suitablefordoublebed)(5)有花色(Therearecolor)(6)无花色(Nocolor)(7)纯棉料(Cottonmaterial)(8)含棉90%(Cotton,containing90%)每个特性应用到每种床单都有一个肯定的或否定的回答，即每个种类的床单具有或不具有某一特性。各种类的床单特性如下：种类特性SHEETA1，3，5，7SHEETB1，3，6，8SHEETC1，4，5，8SHEETD1，4，6，7SHEETE2，3，5，8SHEETF2，3，6，7SHEETG2，4，6，8SHEETH2，4，5，7规则图该专家系统设计狗的分类是：首先按照床单的颜色分类，分为军绿色和湖蓝色；然后再按照床单的编码给出床单的特性，如下图所示；最后根据床单的编码及特性编写规则。程序/*wlO.pro*//*Program:sheetExpert*//*Purpose:ToShowtheworkingofanexpert*//*Itisaproductionrule_basedsystem*//*Remark:Thisisasheetclassificationexpertsystem*//*Itusesasetofproductionrulesforthe*//*purposeofinferring.*/domainsdatabasexpositive(symbol,symbol)xnegative(symbol,symbol)predicatesdo_expert_jobdo_consultingask(symbol,symbol)sheet_is(symbol)it_is(symbol)positive(symbol,symbol)negative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoaldo_expert_job.clauses/*USERINTERFACESYSTEM*/do_expert_job:-makewindow(1,7,7,"ANEXPERTSYSTEMS",1,16,15,58),nl,write("******************************************"),nl,write("WELCOMETOASHEETEXPERTSYSTEM"),nl,write("Thisisasheetidentificationsystem"),nl,write("Pleaserespondbytypingin"),nl,write("'yes'or'no'.Thankyou"),nl,write(""),nl,write("***************************************"),nl,nl,do_consulting,write("Pressspacebar."),nl,readchar(_),clearwindow,exit.do_consulting:-sheet_is(X),!,nl,write("Yousheetmaybea(n)",X,"."),nl,clear_facts.do_consulting:-nl,write("Sorry,unabietodeterminethesheet."),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(xpositive(X,Y)).remember(X,Y,no):-asserta(xnegative(X,Y)),fail.clear_facts:-retract(xpositive(_,_)),fail.clear_facts:-retract(xnegative(_,_)),fail.clear_facts:-!./*Productionrules*/sheet_is("SHEETA"):-it_is("ArmyGreen"),positive(has,"Suitableforsinglebeds"),positive(has,"Therearecolor"),positive(has,"Cottonmaterial"),!.sheet_is("SHEETB"):-it_is("ArmyGreen"),positive(has,"Suitableforsinglebeds"),positive(has,"Nocolor"),positive(has,"Cotton,containing90%"),!.sheet_is("SHEETC"):-it_is("ArmyGreen"),positive(has,"Suitablefordoublebed"),positive(has,"Therearecolor"),positive(has,"Cotton,containing90%"),!.sheet_is("SHEETD"):-it_is("ArmyGreen"),positive(has,"Suitablefordoublebed"),positive(has,"Nocolor"),positive(has,"Cottonmaterial"),!.sheet_is("SHEETE"):-it_is("LakeBlue"),positive(has,"Suitableforsinglebeds"),positive(has,"Therearecolor"),positive(has,"Cotton,containing90%"),!.sheet_is("SHEETF"):-it_is("LakeBlue"),positive(has,"Suitableforsinglebeds"),positive(has,"Nocolor"),positive(has,"Cottonmaterial"),!.sheet_is("SHEETG"):-it_is("LakeBlue"),positive(has,"Suitablefordoublebed"),positive(has,"Nocolor"),positive(has,"Cotton,containing90%"),!.sheet_is("SHEETH"):-it_is("LakeBlue"),positive(has,"Suitablefordoublebed"),positive(has,"Therearecolor"),positive(has,"Cottonmaterial"),!.it_is("ArmyGreen"):-

positive(has,"ArmyGreen"),!.it_is("LakeBlue"):-positive(has,"LakeBlue"),!./*end*/运行结果截图编译成功旅C:YDOCUIE^l\ADIIMI"11桌面\prolng\PROLOG.EIEFilesCol1EditRunEditor—SetupZ*/*/*/*z*/*z*donainsdatabasexpositiue(synbol,symbo1)xriegcitiue(siFnibul,siFribu1}predicatesdu_i&xpcrt_JubdQ_consultingrC：XDOCUME~lxfiDHINI~l\W10.pPO*ZFilesCol1EditRunEditor—SetupZ*/*/*/*z*/*z*donainsdatabasexpositiue(synbol,symbo1)xriegcitiue(siFnibul,siFribu1}predicatesdu_i&xpcrt_JubdQ_consultingrC：XDOCUME~lxfiDHINI~l\W10.pPO*ZPpogpa.n：sheetExpert*/Furpose=ToSliowtheworkingofanexpertItisaproductionrule_basedsystem*/Benark：ThisIsasheetclas^ificationexpertsysItusesasetofproductionrulesfopthe*/purposeofinferring・7OptiomsDialogF3-LoadF石一EwitchFY-CompilE运行运行第一次选择口jffljIIF2-SaueF3-LoadF6-SwitchF9-Compilec=<C:\DOCUIE^1\ADMINI"1面'pwl隅^PROLOGEXEEditCompileSetupa<n>SHEETA.TraceAlt-X-ExitItitItitThisaseof1Question：口jffljIIF2-SaueF3-LoadF6-SwitchF9-Compilec=<C:\DOCUIE^1\ADMINI"1面'pwl隅^PROLOGEXEEditCompileSetupa<n>SHEETA.TraceAlt-X-ExitItitItitThisaseof1Question：-liasQuestion:-hasQuestion二一hetsQuestion:-hasnegrativeremembeFcle0i'_fetctsCompilationsuccessfulVonsheetnayPressZ*/*z*/*z*/*domainsdatabasexpositiue(synboxriegcitive(^^nibupredicatesdu_expert_JubdQ_consultingrW10.plrO*ZProgran：sheFurpose:ToItisappodEenark：ItusespurposeArrnilGpeem?yesSuitableforsinglebeds?yesThereapecolur?yesCottonnatevial?yesOptioms=HEKPERTSYSTEMSFleaserespondbytypingin*Ves>of8noB.Thankvoubebai'■结果：选出SHEETASHEETA的特性是1,3,5,7即ArmyGreen，Suitableforsinglebeds，Therearecolor，CottonmaterialFilesEditSetupCompileOptionsAHEXPERISVSTEMSCo/*/*/*Z*/*Z*/*duniainsdatabasexpositiue(syniboxnegatiue(synbopredicatesdo_expevtjobdQ_consultingwlO.pro*/Frogran：shePurpose:ToItisFemai'kFilesEditSetupCompileOptionsAHEXPERISVSTEMSCo/*/*/*Z*/*Z*/*duniainsdatabasexpositiue(syniboxnegatiue(synbopredicatesdo_expevtjobdQ_consultingwlO.pro*/Frogran：shePurpose:ToItisFemai'k：I七uses：purposeappodThisofiQuestion:-hasQuestion:-hasQuestion:—hasQuestion:-hasQuestion=—hasQuestion:-hasQue$tlun二—Hasitititititit1€toSorr^,unablePressspacebar.ArmpGreen?noLakeBlue?yesSuitableForsingflebecls?nDSuitablefopdoublebed?yesNocolor?noIherearecolor?yesCutbunniaterifll?riudetermineChesheet.Suitablefordoublebed，Therearecolor，Cotton,containing90%的床单。接着进行第三次、第四次选择分别选择出来SHEETH和SHEETG。口IIF2-SaueF3-LoadF6-SwitchF9-CompileC=<C:\DOCUIE^1\ADMINI"1面'pwl隅^PROLOGEXEEditCompileSetupa<n>SHEETH.TraceAlt-X-ExititItitItitItitThisaseof1Question:-hasQuestion:-JiasQuestion:-hasQuestion：-liasQuestion:-hasQuestion二一hetsQuestion:-hasnegrativeremembeFcle0i'_fetctsCompilationsuccessfulArmyGreenYnaLakeBlue?yesSuitableforsinglebeds?nDSuitablefordoublebecl?i/esNocolor?noIherearecolor?iFesCottonmaterialisesVonsheetnayPressz*/*z*/*z*/*domainsdatabasexpositiue(synboxriegcitive(^^nibupredicatesdu_expert_JubdQ_consultingrW10.plrO*ZP