www.gusucode.com > 自动提取模糊规则的matlab程序源码 > code/jhgz1简化规则.m

    function [R1,R1shu,qiangdu1]=yhgz1(R,Rshu,qiangdu,xxl)
% 这个函数用来去除数目较少的规则简化规则库
% R 原始规则库
% Rshu原始规则数
% qiangdu原始规则强度
% xxl 简化率
zshu=0;
for i=1:length(Rshu);
    zshu=zshu+Rshu(i);
end
RRshu=Rshu/zshu;
Tf=(RRshu>xxl);
RR=find(Tf>=1);
for i=1:length(RR)
    R1(i,:)=R(RR(i),:);
    R1shu(i)=RRshu(RR(i));
    qiangdu1(i)=qiangdu(RR(i));
end