人工智能動物識別專家系統(tǒng)

1、題目：動物識別專家系統(tǒng)實(shí)驗?zāi)康?. 理解并掌握基丁規(guī)則系統(tǒng)的表示與推理學(xué)會編寫小型的生產(chǎn)式系統(tǒng)，理解正向推理和反向推理的過程以及兩者的區(qū)別三. 學(xué)會設(shè)計簡單的人機(jī)交互界面實(shí)驗容動物識別專家系統(tǒng)是流行的專家系統(tǒng)實(shí)驗?zāi)Ｐ停卯a(chǎn)生式規(guī)則來表示知識，共15條規(guī)則、可以識別七種動物，這些規(guī)則既少乂簡單，可以改造他們，也可以加進(jìn)新的規(guī)則，還可以用來識別其他東西的新規(guī)則來取代這些規(guī)則。實(shí)驗要求1、確定推理方法（正向還是反向），并根據(jù)問題設(shè)計實(shí)現(xiàn)一個簡單的不通用推理機(jī)（匹配、沖突消解）2、規(guī)則庫要求至少包含15條規(guī)則3、初始事實(shí)可以任意給定，輸入初始事實(shí)后能夠得到推理結(jié)果4、設(shè)計人機(jī)界面，解釋模塊提供查詢規(guī)

2、則的功能5、可以不考慮知識庫管理模塊6、提交實(shí)驗報告，7、報告中要有推理樹實(shí)驗原理動物識別專家系統(tǒng)是流行的專家系統(tǒng)實(shí)驗?zāi)Ｐ?，它用產(chǎn)生式規(guī)則來表示知識，共15條規(guī)則、可以識別七種動物，這些規(guī)則既少乂簡單，可以改造他們，也可以加進(jìn)新的規(guī)則，還可以用來識別其他東西的新規(guī)則來取代這些規(guī)則。動物識別15條規(guī)則：規(guī)則1:如果：動物有毛發(fā)則：該動物是哺乳動物規(guī)則2:如果：動物能產(chǎn)奶則：該單位是哺乳動物規(guī)則3:如果：該動物有羽毛則：該動物是鳥規(guī)則4:如果：動物會飛，且會下蛋則：該動物是鳥規(guī)則5:如果：動物吃肉則：該動物是肉食動物規(guī)則6:如果：動物有犬齒，且有爪，且眼盯前方則：該動物是食肉動物規(guī)則7:如果：動物

3、是哺乳動物，且有蹄則：該動物是有蹄動物規(guī)則8:如果：動物是哺乳動物，且是反芻動物則：該動物是有蹄動物規(guī)則9:如果：動物是哺乳動物，且是食肉動物，且是黃褐色的，且有暗斑點(diǎn)則：該動物是豹規(guī)則10:如果：如果：動物是黃褐色的，且是哺乳動物，且是食肉，且有黑條紋則：該動物是虎規(guī)則11:如果：動物有暗斑點(diǎn)，且有長腿，且有長脖子，且是有蹄類則：該動物是長頸鹿規(guī)則12:如果：動物有黑條紋，且是有蹄類動物則：該動物是斑馬規(guī)則13:如果：動物有長腿，且有長脖子，且是黑色的，且是鳥，且不會飛則：該動物是鴕鳥規(guī)則14:如果：動物是鳥，且不會飛，且會游泳，且是黑色的則：該動物是企鵝規(guī)則15:如果：動物是鳥，且善飛則：

4、該動物是信天翁推理樹四. 代碼#include<string.h>#include<math.h>#include<stdio.h>#include<iostream.h>#defineTrue1#defineFalse0#defineDontKnow-1char*str="chew_cud反芻動物”,"hooves蹄類動物","mammal哺乳動物","forward_eyes眼盯前方","claws有爪","pointed_teeth有犬齒&q

5、uot;,"eat_meat吃肉","lay_eggs會下蛋","fly會飛","feathers有羽毛”'ungulate有蹄”'carnivore食肉動物”,"bird鳥”,"give_milk能產(chǎn)奶"."has_hair有毛發(fā)","fly_well善飛”,"black&white_color黑白色","can_swim會游泳”,"long_legs長腿","long_neck長

6、脖子","black_stripes黑條紋","dark_spots黑斑點(diǎn)","tawny_color黃褐色","albatross信天翁","penguin企鵝","ostrich駝鳥","zebra斑馬"."giraffe長頸鹿","tiger老虎","cheetah獵豹",0;intrulep6=(22,23,12,3,0,0,(21,23,12,3,0,0,(22,19,20,1

7、1,0,0,(21,11,0,0,0,0,(17,19,20,13,-9,0,(17,18,13,-9,0,0,(16,13,0,0,0,0,(15,0,0,0,0,0,(14,0,0,0,0,0,(10,0,0,0,0,0,(8,7,0,0,0,0,(7,0,0,0,0,0,(4,5,6,0,0,0,(2,3,0,0,0,0,(1,3,0,0,0,0;intrulec=(30,29,28,27,26,25,24,3,3,13,13,12,12,11,11,0;classfact(private:intNumber;charName21;intActive;intSucc;public:fac

8、t*Next;fact(intNum,char*L)(strcpy(Name,L);Number=Num;Active=False;Succ=DontKnow;Next=NULL;char*GetName()(char*L;L=newchar21;strcpy(L,Name);returnL;intGetNumber()(returnNumber;intGetAct()(returnActive;intGetSucc()(returnSucc;voidPutAct(constintAct0,intSuc0)(Active=Act0;Succ=Suc0;fact*Fact;classlist(p

9、rivate:intNumber;public:list*Next;list(intNum)(Number=Num;Next=NULL;intGetNumber()(returnNumber;classrule(char*Name;list*Pre;intConc;public:rule*Next;rule(char*N,intP,intC);rule();intQuery();voidGetName()(cout<<Name;rule:rule()(list*L;while(Pre)(L=Pre->Next;deletePre;Pre=L;deleteName;rule:r

10、ule(char*N,intP,intC)(inti;list*L;Pre=NULL;Next=NULL;Name=newcharstrlen(N)+1;strcpy(Name,N);i=0;while(Pi!=0)(L=newlist(Pi+);L->Next=Pre;Pre=L;Conc=C;intrule:Query()(charc;intTag=0;list*L;fact*F;F=Fact;L=Pre;if(L=NULL)cout<<"nError”;while(L!=NULL)(F=Fact;for(;)(if(abs(L->GetNumber()=

11、F->GetNumber()break;F=F->Next;if(L->GetNumber()>0)(if(F->GetSucc()=true)L=L->Next;continue;if(F->GetSucc()=false)returnfalse;elseif(F->GetSucc()=True)returnFalse;if(F->GetSucc()=False)(L=L->Next;continue;cout<<F->GetName()<<”(Y/N)"<<endl;c=getc

12、har();flushall();if(c=Y)|(c='y')(if(L->GetNumber()>0)F->PutAct(1,True);if(L->GetNumber()<0)(F->PutAct(1,True);Tag=-1;returnFalse;else(if(L->GetNumber()<0)F->PutAct(-1,False);else(F->PutAct(-1,False);Tag=-1;returnFalse;L=L->Next;F=Fact;for(;)(if(Conc=F->Get

13、Number()break;F=F->Next;if(Conc<24)(F->PutAct(1,True);returnFalse;if(Tag!=-1)(F=Fact;for(;)(if(Conc=F->GetNumber()break;F=F->Next;if(Conc<24)(F->PutAct(1,True);returnFalse;cout<<"nThisaniamalis"<<F->GetName()<<endl;returnTrue;returnFalse;intmain()(

14、fact*F,*T;rule*Rule,*R;charch8;inti=1;Fact=NULL;while(stri-1)(F=newfact(i,stri-1);F->Next=Fact;Fact=F;i+;F=Fact;Fact=NULL;while(F)(T=F;F=F->Next;T->Next=Fact;Fact=T;i=0;ch0='R'ch1='U'ch2='L'ch3='E'ch4='_'ch5='a'ch6='0'Rule=NULL;for(i=0;i<15;i+)(R=newrule(ch,rulepi,ruleci);R->Next=Rule;Rule=R;ch5+;R=Rule;for(;)(i=R->Query();if(i=1)ll(i=-1)break;R=R->Next;if(!R)break;if(!R)cout<<”沒有這種動物.”<<endl;cout<<