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

data2.txt的内容 decision2的内容 delete_AT函数的源代码 function y=delete_AT(X,ATi) % 删除X中第i列的属性值 %%%测试 %X{1}={ yes yes nomal } %X{2}={yes yes high } %X{3}={ yes yes very_high } %X{4}={no yes nomal } %X=X; %ATi=1; %%%%%%%% [m,n]=size(X); [l,k]=size(X{1}); for i=1:m X{i}{ATi}=; end y=X; ind函数实现 function yy=ind(X) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%寻找不可分辨关系 [m,n]=size(X); k=1; ind_AT=cell(m,1); for i=1:m for j=(i+1):m %潜在问题，如i=m是终止循环，此时若最后一行不为空的话，将漏扫 if(~isequal(X{i},)) %若X{i}不为空 ind_AT{k}=union(ind_AT{k},i); %不可等价关系赋初值 if(isequal(X{i},X{j})) X{j}=; %若X{i}==X{j},则删除X{j} ind_AT{k}=union(ind_AT{k},j); %寻找不可等价关系 end end end k=k+1; end if(~isequal(X{m},)) ind_AT{k-1}=m; %假如最后一行不为空 end yy=ind_AT; %返回不可等价关系 my_reduct函数实现 function [C,reduct_attr]=my_reduct(X) %%%%%y为约简后的cell数组，reduct_attr为可约去的属性 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%测试数据集 %X{1}= {2 1 3}; %X{2}={ 3 2 1}; %X{3}={2 1 3}; %X{4}={2 2 3}; %X{5}={1 1 4}; %X{6}={1 1 2}; %X{7}={3 2 1}; %X{8}={1 1 4}; %X{9}={2 1 3}; %X{10}={3 2 1}; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %X{1}={ yes yes nomal } %X{2}={yes yes high } %X{3}={ yes yes very_high } %X{4}={no yes nomal } %X=X; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%约简 [m,n]=size(X); [p,k]=size(X{1}); ind_AT=ind(X);%寻找不可等价关系 reduct_attr=[]; %可约去的的属性 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; end end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%剔除重复的行 k=1; for i=1:m if(~isequal(ind_AT{i},[])) C_i=ind_AT{i,1}(1); C{k,1}=X{C_i}; %返回约简后的信息系统 k=k+1; end end pos函数实现 function pos_d=pos(X,D)%求决策系统的正域函数 ind_D=ind(D); %求决策属性D的不可等价关系 [m,n]=size(ind_D); ind_X=ind(X); %求信息系统属性X的不可等价关系 low=[]; for i=1:m fo