产生式动物识别系统设计

1、实验7：产生式动物识别系统一、实验目的理解和掌握产生式系统的推理方法，能够用选定的编程语言实现推理机。二、编程环境本文主要编译环境是Windows 10 Visual St udio 2015三、问题描述设计一个用于动物识别的产生式系统，该系统通过规则库识别老虎、金钱豹、斑马、长 颈鹿、企鹅、信天翁、鸵鸟7种动物。四、解决方案规则库：用于描述相应领域内知识的产生式集合称为规则库。本规则库包括以下规则R1: if动物有毛发then动物是哺乳动物R2： if动物有奶then动物是哺乳动物R3: if动物有羽毛then动物是鸟R4： if动物会飞and 会生蛋then动物是鸟R5： if动物吃肉th

2、en动物是食肉动物R6： if动物有犀利牙齿and有爪and眼向前方 then动物是食肉动物 R7: if动物是哺乳动物and有蹄then动物是有蹄类动物R8： if动物是哺乳动物and反刍then动物是有蹄类动物R9: if动物是哺乳动物and是食肉动物and有黄褐色 and有暗斑点then 动物是豹R10： if动物是哺乳动物and是食肉动物and有黄褐色and 有黑色条纹 then动物是虎R11: if动物是有蹄类动物 and有长脖子and有长腿and有暗斑点then 动物是长颈鹿R12： if动物是有蹄类动物and有黑色条纹then动物是斑马R13: if动物是鸟and不会飞and有长

3、脖子and有长腿and有黑白二色 then动物是鸵鸟R14： if动物是鸟and不会飞and会游泳and有黑白二色 then 动物 是企鹅R15: if动物是鸟and善飞then动物是信天翁综合数据库char *ans0二抱歉，我也不知道这是什么动物；char *ans1二这个动物是金钱豹；char *ans2二这个动物是老虎；char *ans3二这个动物是长颈鹿；char *ans4二这个动物有斑马；char *ans5二这个动物是企鹅；char *ans6二这个动物是鸵鸟；char *ans7二这个动物是信天翁；推理机初始化综合数据库，即把欲解决问题的已知事实送入综合数据库中；检查规则库

4、中是否有未使用过的规则，若无转(7)；检查规则库的未使用规则中是否有其前提可与综合数据库中已知事实相 匹配的规则，若有，形成当前可用规则集；否则转(6)；按照冲突消解策略，从当前可用规则集中选择一个规则执行，并对该规 则作上标记。把执行该规则后所得到的结论作为新的事实放入综合数据库；如果该 规则的结论是一些操作，则执行这些操作；检查综合数据库中是否包含了该问题的解，若已包含，说明解已求出， 问题求解过程结束；否则，转(2)；当规则库中还有未使用规则，但均不能与综合数据库中的已有事实相匹 配时，要求用户进一步提供关于该问题的已知事实，若能提供，则转(2)；否则， 执行下一步；若知识库中不再有未使

5、用规则，也说明该问题无解，终止问题求解过程。 输出抱歉，没有相符合的动物”程序退出。流程图五、源代码#includeint main()char a1;char flagO ;/是否识别出动物的标志char *str0 =本系统可识别七种动物，请用Y和N表示是和否n;char *str1 =这个动物有毛发吗？；char *str2 =这个动物有奶吗？;char *str3 =这个动物有羽毛吗？；char *str4 =这个动物会下蛋吗？；char *str5 =这个动物吃肉吗？;char *str6 =这个动物有犬齿有爪吗？;char *str7 =这个动物有蹄吗？;char *str8 =这

6、个动物是嚼反刍动物吗？；char *str9 =这个动物身上是黄褐色而且有暗斑点吗？;char *str10 =这个动物身上是黄褐色而且有黑色条纹？；char *str11 =这个动物长腿长脖子且身上有暗斑点吗？；char *str12 =这个动物身上有黑色条纹吗？；char *str13 =这个动物长腿长脖子？;完美WORD格式char *str14 =这个动物会游泳并有黑白两色t;char *str15 =这个动物擅飞；char *str16 =这个动物会不会飞；char *an s0 =抱歉，我也不知道这是什么动物；char *ans1 =这个动物是金钱豹；char *ans2 =这个动

7、物是老虎；char *ans3 =这个动物是长颈鹿；char *an s4 =这个动物有斑马；char *ans5 =这个动物是企鹅；char *an s6 =这个动物是鸵鸟；char *ans7 =这个动物是信天翁；char *a4 = str1,str2,str3,str4 ；/判断哺乳动物和鸟类char *bl4 = str5,str6,str7,str8 ； /bL 判断是食草动物 还是食肉动物/CL判断金钱豹和老char *b2 = str16 ；/判断鸟类会不会飞 char *cl = str9,str10 ；/CL判断金钱豹和老虎/判断长颈鹿和斑马/判断企鹅和鸵鸟/判断长颈鹿和斑

8、马/判断企鹅和鸵鸟/判断是不是信天翁char *c3 = str13,str14 ；char *c4 = str15 ； puts(strO);for (int k = 0; k 2)pri ntf_s(初步判定是鸟类n); flagO = 1; break;if (flagO = 0) /判定是哺乳动物for (int k = 0; k 4; k+) puts(blk);sea nf_ s(%c, & a1, 1);getchar();if (a1 = Y)/区分食肉动物和食草类动物if (k = 1) pri ntf_ s(初步判定是食肉动物n);for (int k = 0; k 2)p

9、ri ntf_s(初步判定是食草类动物n);for (int k = 0; k 2; k+) puts(c2k);sca nf_ s(%c, & a1, 1); getchar();if (a1 = Y)/确定是长颈鹿还是斑马pri ntf_s(这是长颈鹿)；break;else if (a1 = N&k = 1) pri ntf_s(这是斑马)；break;break;else if (flagO = 1) /判定是鸟类puts(b20);sca nf _s(%c, & a1, 1);getchar();if (a1 = Y)/判断鸟类会不会飞puts(c4O);sca nf_ s(%c, & a1, 1); getchar();if (a1 = Y) /判断是不是信天翁pri ntf_s(这是信天翁)；else if(a1 = N)puts(a nsO);else if (a1 = N) for (int k = 0; k 2; k+) puts(c3k);sca nf _s(%c, & a1, 1);getchar();if (a1 = Y)/确定是企鹅和鸵鸟pri ntf_s(这是鸵鸟)；break;else if (a1 = N&k = 1) 完美WORD格式printf_s(这是企鹅);break;getchar();return 0;六