人工智能动物识别专家系统Word文档格式.docx

1、规则4：动物会飞，且会下蛋规则5：动物吃肉该动物是肉食动物规则6：动物有犬齿，且有爪，且眼盯前方该动物是食肉动物规则7：动物是哺乳动物，且有蹄该动物是有蹄动物规则8：动物是哺乳动物，且是反刍动物规则9：动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点 则：该动物是豹规则10：动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条纹 则：该动物是虎规则11：动物有暗斑点，且有长腿，且有长脖子，且是有蹄类 则：该动物是长颈鹿规则12：动物有黑条纹，且是有蹄类动物 则：该动物是斑马规则13：动物有长腿，且有长脖子，且是黑色的，且是鸟，且不会飞该动物是鸵鸟规则14:动物是鸟，且不会飞，且会游泳，且是黑

2、色的 则：该动物是企鹅规则15：动物是鸟，且善飞该动物是信天翁6. 推理树7. 代码#i nclude #in elude #include iostream.h#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 有蹄carnivore 食肉动物bird 鸟，”gi

3、ve_milk 能产奶 IIJhas_hair有毛发fly_well 善飞black&white_color 黑白色can_swim 会游泳long_legs 长腿long_neck 长脖子black_stripes 黑条纹dark_spots 黑斑点tawny_color 黄褐色albatross 信天翁penguin 企鹅ostrich 驼鸟zebra 斑马 IIgiraffe 长颈鹿tiger 老虎cheetah猎豹,0;in t rulep6=22,23,12,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

4、,-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; int Active;int Succ; public: fact *Next;fact（i nt Num,char *L）

5、 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 ActO,i nt Suc0）Active=Act0;Succ=Suc0;fact *Fact;class listprivate:i

6、nt Number;public:list *Next;list（int Num）Number=Num;Next=NULL;class rulechar *Name;list *Pre;int Cone;rule *Next;rule（ehar *N,int P,int C）;rule（）;int Query（）;void GetName（）coutName;rule:rule（）list *L;while（Pre） L=Pre-Next;delete Pre;Pre=L;delete Name;rule（char *N,int P,int C） int i;Pre=NULL;Name=new

7、 charstrle n（ N）+1; strcpy（Name,N）;i=0;while（Pi!=O）L=new list（Pi+）;L-Next=Pre;Con c=C;int rule:Query（）char c;int Tag=0;fact *F;F=Fact;L=Pre;if（L=NULL）coutGetNumber（）=F-GetNumber（） break;F=F-if（L-GetNumber（）0）if（F-GetSucc（）=true） L=L-continue; if（F-GetSucc（）=false） retur n false;elseGetSucc（）=True）re

8、tur n False;GetSucc（）=False）L=L-con ti nue;vF-GetName（）vv（Y/N）v0） F-PutAct（1,True）; if（L-GetNumber（）Tag=-1;PutAct（-1,False）;if（Co nc=F-GetNumber（）break;if（Co nc24）if（Tag!=-1）nThis ani amal is GetName（）Fact=T;ch0=Rch1=Uch2=Lch3=Ech4=_ch 5=ach6=0Rule=NULL;for（i=0;iNext=Rule;Rule=R;ch5+;R=Rule;i=R-Query（）;if（i=1）ll（i=-1）R=R-if（!R）没有这种动物.endl;press any key to exit. getchar（）;return True;8. 截图9. 感想通过这次课程设计我对专业课的学习有了更加深刻的认识，让我知道了学无 止境的道理。我们每一个人永远不能满足于现有的成就，人生就像在爬山，一座 峰的后面还有更高的山峰在等着你。挫折是一份财富，经历是一份拥有。这次课 程设计必将成为我人生旅途上一段美好的回忆。以后我要更加努力学好每门专业 课，让自己拥有更多的知识，才能解决更多问题。