人工智能动物识别专家系统

1、题目：动物识别专家系统 实验目的1. 理解并掌握基于规则系统的表示与推理2.学会编写小型的生产式系统，理解正向推理和反向推理的过程以及两者的区别3. 学会设计简单的人机交互界面实验内容动物识别专家系统是流行的专家系统实验模型，它用产生式规则来表示知识， 共 15 规则、可以识别七种动物，这些规则既少又简单，可以改造他们，也可以 加进新的规则，条还可以用来识别其他东西的新规则来取代这些规则。四 实验要求1、确定推理方法（正向还是反向），并根据问题设计实现一个简单的不通用推理机（匹配、冲突消解）2、规则库要求至少包含15 条规则3、初始事实可以任意给定，输入初始事实后能够得到推理结果4、设计人机界

2、面，解释模块提供查询规则的功能5、可以不考虑知识库管理模块6、提交实验报告，7、报告中要有推理树五 实验原理动物识别专家系统是流行的专家系统实验模型，它用产生式规则来表示知识，共15条规则、可以识别七种动物，这些规则既少又简单，可以改造他们，也可以加进新的规则， 还可以用来识别其他东西的新规则来取代这些规则。动物识别15 条 规则:规则1： 如果：动物有毛发则 ：该动物是哺乳动物规则 2:如果：动物能产奶则：该单位是哺乳动物规则 3:如果：该动物有羽毛则：该动物是鸟规则 4：如果：动物会飞，且会下蛋则：该动物是鸟规则 5：如果：动物吃肉则：该动物是肉食动物规则 6：如果：动物有犬齿，且有爪，且

3、眼盯前方则：该动物是食肉动物规则 7：如果：动物是哺乳动物，且有蹄则：该动物是有蹄动物规则 8：如果：动物是哺乳动物，且是反刍动物则：该动物是有蹄动物规则 9：如果：动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点则：该动物是豹规则 10：如果：如果：动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条纹则：该动物是虎规则 11：如果：动物有暗斑点，且有长腿，且有长脖子，且是有蹄类则：该动物是长颈鹿规则 12：如果：动物有黑条纹，且是有蹄类动物则：该动物是斑马规则 13：如果：动物有长腿，且有长脖子，且是黑色的，且是鸟，且不会飞则：该动物是鸵鸟规则 14:欢迎下载2如果：动物是鸟，且不会飞，

4、且会游泳，且是黑色的则：该动物是企鹅规则 15：如果：动物是鸟，且善飞则：该动物是信天翁六. 推理树七.代码#i nclude #in elude #include #i nclude #defi ne True 1#defi ne False 0#defi ne Don tK now -1char *str=chew_cud反刍动物 ,hooves 蹄类动物 ,mammal 哺乳动物,forward_eyes眼盯前方 ,claws 有爪 ,pointed_teeth有犬齿 ,eat_meat 吃肉 ,lay_eggs 会下蛋 ,fly 会飞 ,feathers 有羽毛 ,ungulate 有

5、蹄 carnivore 食肉动物 ,bird 鸟，”give_milk 能产奶II欢迎下载3Jhas_hair 有毛发 ,fly_well 善飞 ,black&white_color黑白色 ,can_swim 会游泳 ,long_legs 长腿 ,long_neck 长脖子 ,black_stripes 黑条纹 ,dark_spots 黑斑点 ,tawny_color 黄褐色 ,albatross 信天翁 ,penguin 企鹅 ,ostrich 驼鸟 ,zebra 斑马 IIJgiraffe 长颈鹿 ,tiger 老虎 ,cheetah 猎豹 ,0;in t rulep6=22,23,12,

6、3,0,0,21,23,12,3,0,0,22,19,20,11,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;in t rulec=30,29,28,27,26,25,24,3,3,13,13,12,12,11,11,0; class fact private: int Number; char Name21

7、; int Active; int Succ; public: fact *Next;fact(i nt Num,char *L) strcpy(Name,L); Number=Num; Active=False; Succ=D ontKnow; Next=NULL;char *GetName()char *L;L=new char21; strcpy(L,Name);return L;int GetNumber()return Number;int GetAct()return Active;int GetSucc()return Succ;void PutAct(co nst int Ac

8、tO,i nt Suc0)Active=Act0;欢迎下载4Succ=Suc0;fact *Fact;class listprivate:int Number;public:list *Next;list(int Num)Number=Num;Next=NULL;int GetNumber()return Number;class rulechar *Name;list *Pre;int Cone;public:rule *Next;rule(ehar *N,int P,int C);? rule();int Query();void GetName()cout? Name;rule: ? r

9、ule()欢迎下载5list *L;while(Pre) L=Pre-Next;delete Pre;Pre=L;delete Name;rule:rule(char *N,int P,int C) int i;list *L;Pre=NULL;Next=NULL;Name=new charstrle n( N)+1; strcpy(Name,N);i=0;while(Pi!=O)L=new list(Pi+);L-Next=Pre;Pre=L;Con c=C;int rule:Query()char c;int Tag=0;list *L;fact *F;F=Fact;L=Pre;if(L=

10、NULL)coutGetNumber()=F-GetNumber() break; F=F-Next;if(L-GetNumber()0)if(F-GetSucc()=true) L=L-Next;continue; if(F-GetSucc()=false) retur n false;elseif(F-GetSucc()=True)retur n False;if(F-GetSucc()=False)L=L-Next;con ti nue;coutGetName()vv(Y/N)vGetNumber()0) F-PutAct(1,True); if(L-GetNumber()PutAct(

11、1,True);Tag=-1;retur n False;elseif(L-GetNumber()PutAct(-1,False);else欢迎下载7F-PutAct(-1,False);Tag=-1;retur n False;L=L-Next;F=Fact;for(;)if(Co nc=F-GetNumber()break;F=F-Next;if(Co ncPutAct(1,True);retur n False;if(Tag!=-1)F=Fact;for(;)if(Co nc=F-GetNumber()break;F=F-Next;if(Co ncPutAct(1,True);retur

12、 n False;coutnThis ani amal is GetName()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=_;ch 5=a;ch6=0;Rule=NULL;for(i=0;iNext=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? press any key to exit.e ndl; getchar();re