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