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

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

2、动物是鸟，且不会飞，且会游泳，且是黑色的该动物是企鹅规则15：动物是鸟，且善飞该动物是信天翁七推理树八、规则1 九代码#include ！#define True 1#define False 0#define DontKnow -1char *str=chew_cud反刍动物,hooves蹄类动物mammal哺乳动物forward_eyes眼盯前方,claws有爪pointed_teeth有犬齿eat_meat吃肉lay_eggs会下蛋fly会飞feathers有羽毛ungulate有蹄carnivore食肉动物bird鸟give_milk能产奶has_hair有毛发fly_well善飞bl

3、ack&white_color黑白色can_swim会游泳long_legs长腿long_neck长脖子black_stripes黑条纹dark_spots黑斑点tawny_color黄褐色albatross信天翁penguin企鹅ostrich驼鸟zebra斑马；giraffe长颈鹿tiger老虎cheetah猎豹,0;int 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,-9,0,17,18,13,-9,0,0,16,13,0,0,0,0,15,0,0,0,0,0,14,0,0,

4、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;int rulec=30,29,28,27,26,25,24,3,3,13,13,12,12,11,11,0;class factprivate:int Number;char Name21;int Active;int Succ;public:fact *Next;fact（int Num,char *L）strcpy（Name,L）;Number=Num;Active=False;Succ=DontKnow;|Next=NULL;ch

5、ar *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（const int Act0,int Suc0）Active=Act0;Succ=Suc0;fact *Fact;class list，list *Next;list（int Num）【class rulechar *Name;list *Pre;int Conc;rule *Next;rule

6、（char *N,int P,int C）;rule（）;int Query（）;void GetName（）coutNext;delete Pre;Pre=L;delete Name;rule（char *N,int P,int C）*int i;Pre=NULL;Name=new charstrlen（N）+1;strcpy（Name,N）;i=0;while（Pi!=0）L=new list（Pi+）;L-Next=Pre;Conc=C;int rule:Query（）char c;int Tag=0;#fact *F;F=Fact;L=Pre;if（L=NULL）。nError;whi

7、le（L!=NULL）for（;if（abs（L-GetNumber（）=F-GetNumber（）break;F=F-if（L-GetNumber（）0）if（F-GetSucc（）=true） L=L-continue;GetSucc（）=false） return false;elseGetSucc（）=True）return False;GetSucc（）=False）L=L-F-GetName（）（Y/N）endl;c=getchar（）;flushall（）;if（c=Y）|（c=y）PutAct（1,True）;GetNumber（）if（ConcFact=T;ch0=Rch1=Uch2=Lch3=Ech4=_ch5=ach6=0Rule=NULL;for（i=0;iNext=Rule;Rule=R;ch5+;R=Rule;i=R-Query（）;if（i=1）|（i=-1）R=R-if（!R）没有这种动物.press any key to exit.