基于粗糙集信息系统约简的算法matlab实现

1、data2.txt的内容decision2的内容delete_AT函数的源代码function y=delete_AT(X,ATi) % 删除X中第i列的属性值%测试%X1= yes yes nomal %X2=yes yes high %X3= yes yes very_high %X4=no yes nomal %X=X;%ATi=1;%m,n=size(X);l,k=size(X1); for i=1:m XiATi=; end y=X;ind函数实现function yy=ind(X) %寻找不可分辨关系m,n=size(X);k=1;ind_AT=cell(m,1);for i=1:

2、m for j=(i+1):m %潜在问题，如i=m是终止循环，此时若最后一行不为空的话，将漏扫 if(isequal(Xi,) %若Xi不为空 ind_ATk=union(ind_ATk,i); %不可等价关系赋初值 if(isequal(Xi,Xj) Xj=; %若Xi=Xj,则删除Xj ind_ATk=union(ind_ATk,j); %寻找不可等价关系 end end end k=k+1;endif(isequal(Xm,) ind_ATk-1=m; %假如最后一行不为空endyy=ind_AT; %返回不可等价关系my_reduct函数实现function C,reduct_att

3、r=my_reduct(X)%y为约简后的cell数组，reduct_attr为可约去的属性%测试数据集%X1= 2 1 3;%X2= 3 2 1;%X3=2 1 3;%X4=2 2 3;%X5=1 1 4;%X6=1 1 2;%X7=3 2 1;%X8=1 1 4;%X9=2 1 3;%X10=3 2 1;%X1= yes yes nomal %X2=yes yes high %X3= yes yes very_high %X4=no yes nomal %X=X;%约简m,n=size(X);p,k=size(X1);ind_AT=ind(X);%寻找不可等价关系reduct_attr=;

4、 %可约去的的属性for i=1:k B=delete_AT(X,i); if(isequal(ind_AT,ind(B) %若IND(AT-a=IND(AT) reduct_attr=union(reduct_attr,i); %则寻找到可约去的属性 X=B; endend%剔除重复的行k=1;for i=1:m if(isequal(ind_ATi,) C_i=ind_ATi,1(1); Ck,1=XC_i; %返回约简后的信息系统 k=k+1; endend pos函数实现function pos_d=pos(X,D)%求决策系统的正域函数ind_D=ind(D); %求决策属性D的不可

5、等价关系m,n=size(ind_D);ind_X=ind(X); %求信息系统属性X的不可等价关系low=; for i=1:m for j=1:m if(isequal(ind_Xi,)&isequal(ind_Dj,) if(ismember(ind_Xi,ind_Dj) low=union(low,ind_Xi);%由性质Pos_AT(d)=low_AT(X1)Ulow_AT(X2)U. end end endendpos_d=low;my_test函数实现function y=my_test()clc;%读取信息系统文件file = textread(data2.txt,%s,del

6、imiter,n,whitespace,);m,n=size(file);for i=1:m words=strread(filei,%s,delimiter, ); words=words; Xi=words; endX=X;%B,AT=my_reduct(X); %信息系统的约简ind_AT=ind(X); %信息系统的不可等价关系%显示约简信息系统disp(约简后的信息系统为：);m,n=size(B);for i=1:m disp(Bi);end%读取决策系统文件file = textread(decision2.txt,%s,delimiter,n,whitespace,);m,n=size(file);for i=1:m words=strread(filei,%s,delimiter, ); words=words; Di=words; endD=D;%决策系统的正域约简X_D=X;l,k=size(X_D1);pos_d=pos(X_D,D);%正域for i=1:m %正域有问题% if(ismember(i,pos_d) Bi=; %若约简后的信息系统Bi不在正域中则删除该行 endend%将在正域规则下约简过的信息系统B连接决策系统Dm,n=size(B);for i=1: