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