资源描述：
《实验一产生式系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验一产生式系统——动物识别系统一、实习目的和意义1、掌握人工智能的知识表示技术，能用产生式表示法表示知识；2、掌握基于规则推理的基本方法；3、掌握产生式系统的运行机制。二、实习内容参考教材规则库包含15条规则，开发一个专家系统可以识别老虎，金钱豹，斑马，长颈鹿，企鹅，鸵鸟等6种动物。三、实习要求1、本次实验语言MATLAB；2、系统能通过正向推理得到正确的动物识别结果。四、实习过程1.实验原理正向推理（事实驱动推理）1)从初始已知事实出发，在知识库KB中找出当前可适用的知识，构成可适用知识集KS；2)按某种冲突消解策略，从KS中选出一条知识进行推理，并
2、将推出的新事实加入到数据库DB中，作为下一步推理的已知事实，再在KB中选取可适用知识构成KS；3)重复步骤二，直到求得问题的解，或KB中再无可适用的知识。2.问题背景根据课本P33的15调动物识别的专家知识，建立规则库。1.算法设计主要利用数组下标和元素的0，1值表示知识，规则，及相关标记。2.Matlab实现a.算法函数名函数说明learnfunctionlearn(arr_category,arr_feature)主函数checkRulefunction[arr_category,arr_feature,arr_rule,ifMore,mark]=c
3、heckRule(arr_category,arr_feature,arr_rule,ifMore,mark)规则符合检测showCategoryfunctionshowCategory()类别选项打印函数showFeaturefunctionshowFeature()特征选项打印函数showResultfunctionshowResult(mark)结果显示b.测试测试数据一arr_category[5]10001arr_feature[20]00000000000001110000测试数据二arr_category[5]00000arr_featur
4、e[20]10000000000000000000五、实习总结1.实习总结本次实验主要复习了产生式规则，利用正向推理和15条规则，建立简单的动物识别专家系统，并具有一定的容错性。2.附录：代码MATLAB代码：functionlearn(arr_category,arr_feature)%产生式规则-正向推理-主函数%标记函数初始化，规则函数调用arr_rule=zeros(1,15);mark=-1;ifMore=0;disp(arr_category);disp(arr_feature);%showCategory();%arr_category=i
5、nput('输入信息：');%showFeature();%arr_feature=input('输入信息');[arr_category,arr_feature,arr_rule,ifMore,mark]=checkRule(arr_category,arr_feature,arr_rule,ifMore,mark);busy=1;whilebusy==1ifmark>-1showResult(mark);break;endififMore==0disp('无法判断具体是哪种动物!');breakendifMore=0;[arr_category,ar
6、r_feature,arr_rule,ifMore,mark]=checkRule(arr_category,arr_feature,arr_rule,ifMore,mark);endendfunction[arr_category,arr_feature,arr_rule,ifMore,mark]=checkRule(arr_category,arr_feature,arr_rule,ifMore,mark)%正向推理函数%逐条检查规则是否满足，若满足，则增加新信息ifMore=0;fori=1:1:15ifarr_rule(i)==0switchic
7、ase1ifarr_feature(1)>0arr_category(1)=1;arr_rule(i)=1;ifMore=1;disp(['根据规则',num2str(i)]);disp('新增信息：该动物是哺乳动物');end%break;case2ifarr_feature(2)>0arr_category(1)=1;arr_rule(i)=1;ifMore=1;disp(['根据规则',num2str(i)]);disp('新增信息：该动物是哺乳动物');end%break;case3ifarr_feature(3)>0arr_category(2
8、)=1;arr_rule(i)=1;ifMore=1;disp(['根据规则',
