动物识别系统--代码

信息工程实验室实验报告动物识别专家系统动物识别专家系统是被称为生成式规则的广泛使用的专家系统实验模型有15条规则可以识别7种动物各位，可以添加新规则，也可以用可以用来识别其他东西的新规则代替。动物认识15条规则的中文表达如下。规则1:如果：动物有头发这是哺乳动物规则2:如果：动物有牛奶这个单位是哺乳动物规则3:如果：这种动物有羽毛这种动物是鸟规则4:如果：动物飞去产卵这种动物是鸟规则5:如果：如果动物吃肉这种动物是食肉动物规则6:如果：动物有尖牙和利爪，眼睛向前看这是食肉动物规则7:如果：动物是哺乳动物，有蹄这是有蹄动物规则8:如果：动物是哺乳动物，反刍动物这是有蹄动物规则9:如果：动物是哺乳动物，食肉动物，黄褐色，有深色斑点这种动物是豹规则10:如果动物是黄褐色、哺乳动物、肉食性、黑色条纹这种动物是老虎规则11:如果：动物有黑斑，长腿，长脖子，有蹄这是长颈鹿规则12:如果：动物有黑色条纹，有蹄的动物这种动物是斑马规则13:如果：动物有长腿和长脖子，黑色，是鸟，不会飞现在，这个动物是鸵鸟规则14:如果：动物是鸟，不会飞，会游泳，是黑色的这是企鹅规则15:如果：动物是鸟，飞行好的话这种动物是信天翁动物分类专家系统由15条规则中识别7种动物的15条规则组成。共有30个概念(也称为事实)，共有30个事实。每个事实都会编号编号为1到30。规则对象不存储数值概念。只有相应数值的编号相同的规则结论也是数值概念的编号。数值和规则中的数据显示为常量，其结构如下：Char *str=chew_cud反刍动物， hooves蹄动物， mammal哺乳动物， forward_eyes注视眼前，“Claws有爪”，“pointed_teeth有尖牙”，“eat_meat吃肉”，“lay_eggs下蛋”，“fly会飞”， feathers有羽毛.，“ungulate有蹄。”，“carnivore食肉动物”，“bird bird，give_milk可以生产牛奶。”，Has_hair有毛，fly_well线飞，blackwhite_color black white，can_swim会游，Long_legs长腿、long_neck长脖子、black_stripes黑条纹、dark_spots黑点、Tawny_color黄褐色、albatross albatross、penguin企鹅、ostrich骆驼、zebra斑马、Giraffe长颈鹿，tiger老虎，cheetah猎豹，0 ；如果动物是，则此程序按编号顺序表示数据中的生成式规则，例如规则15鸟，还有好的飞行，动物是信天翁。规则阵列的第七个是16，13，0，0，0，0，第十三个是“bird”(新)，确认事实后，询问用户以下事实，第十个如果有6个“fly_weil”(前导)，则结论验证编号数组30，29，28，27、26、25、24、3、3、13、12、12、11、11、0中的第七个“24”，其中24对应于事实数组阿尔巴洛斯(albartros)。以上内容是程序的推理过程，也是规则类(类rul)对程序的关注e)的Query方法实现。程序范围代码：#include#include#include#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 bird，give_milk可以生产牛奶。”，Has_hair有毛，fly_well线飞，blackwhite_color black white，can_swim会游，Long_legs长腿、long_neck长脖子、black_stripes黑条纹、dark_spots黑点、Tawny_color黄褐色、albatross albatross、penguin企鹅、ostrich骆驼、zebra斑马、Giraffe长颈鹿，tiger老虎，cheetah猎豹，0 ；Intrulep 6=22，23，12，3，0，0，21，23，12，3，0，0，2221，11，0，0，0，17，19，20，13，-9，0，17，18，13，-9，0，15，0，0，0，0、14，0，0，0、10，0，0，0、8，7，0，0，07，0，0，0，0、4，5，6，0，0，0、2，3，0，0，0、1，3，0Int rulec =30，29，28，27，26，25，24，3，13，13，12，12，11，11，0 ；Class factprivate:Int Numberchar Name21；Int ActiveInt SuccPublic:Fact * NextFact(int Num，char *L)Strcpy(Name，L)；Number=NumActive=False/-1已经推断出来，不匹配。1已经推理一致了。Succ=DontKnow/0表示无，-1表示不知道，1表示有。Next=NULLChar *GetName()char * L；l=new char21；Strcpy(L，Name)；return L；Int GetNumber()Return NumberInt GetAct()Return ActiveInt GetSucc()Return SuccVoid putact (const int act 0，int suc0)Active=Act0Succ=Suc0Fact * FactClass listprivate:Int NumberPublic:List * NextList(int Num)Number=NumNext=NULLInt GetNumber()Return NumberClass ruleChar * NameList * PreInt ConcPublic:Rule * NextRule(char *N，int P，int C)； rule()；int Query()；Void GetName()CoutNextDelete Prepre=L；Delete Namerule 3363603360 rule(char * n，int p ，int c)int I；list * L；Pre=NULLNext=NULLname=new charstr len(N)1；Strcpy(Name，N)；I=0；While(Pi)！=0)l=new list(PI)；l-Next=Pre；pre=L；conc=C；Intrule 3336363603360 query()char c；int Tag=0；list * L；fact * F；F=FactL=PreIf(L=NULL)cout“ nError”；While(L！=NULL)F=Factfor(；)if(ABS(l-get number()=f-get number()BreakF=F-Next；/查找与规则前导链的前导编号相同的事实If(L-GetNumber()0)if(f-get succ()=true) l=l-next；Continueif(f-get succ()=false)return false；/如果事实的断言为真，则判断以下前提，如果为假，则规则无效ElseIf(F-GetSucc()=True)Return Falseif(F-get succ()=False)L=L-Next；Continuecout get name()(y/n) get number()0)F-PutAct(1，True)；/设置事实的断言和激活标志If(L-GetNumber()0)F-PutAct(1，True)；tag=-1；Return FalseElseIf(L-GetNumber()0)F-PutAct(-1，False)；ElseF-PutAct(-1，False)；tag=-1；/已推论，不相符。Return FalseL=L-Next；F=Factfor(；)If(Conc=F-GetNumber()Break/寻找与结论断言相对应的事实F=F-Next；If(Conc24)F-PutAct(1，True)；Return FalseIf(Tag！=-1)F=Factfor(；)If(Conc=F-GetNumber()BreakF=F-Next；If(Conc24)F-PutAct(1，True)；Return Falsecout n this ania mal is get name()next=fact；fact=F；I；F=FactFact=NULL获取While(F) /序列序列。t=F；F=F-Next；t-Next=Fact；fact=T；I=0；ch0=R；ch1=U；