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