1、Data2為條件屬性， decision2為決策屬性%my_test函數(shù)實現(xiàn)clc;%讀取信息系統(tǒng)文件file = textread(data2.txt,%s,delimiter,n,whitespace,); %讀取文件信息，每一行為一個胞元m,n=size(file); %胞元的大小for i=1:m words=strread(filei,%s,delimiter, );%讀取每個胞元中字符，即分解胞元為新的胞元 words=words;%轉置 Xi=words; endX=X;%B,num,AT=my_reduct(X); %信息系統(tǒng)的約簡ind_AT=ind(X); %信息系統(tǒng)的不可

2、等價關系%顯示約簡信息系統(tǒng)disp(約簡后的條件系統(tǒng)為：);m,n=size(B);for i=1:m disp(Bi);end%讀取決策系統(tǒng)文件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;%決策系統(tǒng)的正域約簡X_D=X;l,k=size(X_D1);pos_d=pos(X_D,D);%正域for i=1:m %正域有問題% if(ismem

3、ber(num(i),pos_d) Bi=; %若約簡后的信息系統(tǒng)Bi不在正域中則刪除該行 end %因為相同的條件得到的決策不一樣，end%將在正域規(guī)則下約簡過的信息系統(tǒng)B連接決策系統(tǒng)Dm,n=size(B);for i=1:m if(isequal(Bi,) Bi1,k+1=Di1; endend%顯示約簡決策系統(tǒng)disp(約簡后的決策系統(tǒng)為：);m,n=size(B);for i=1:m disp(Bi);end-%my_reduct函數(shù)實現(xiàn)function C,num,reduct_attr=my_reduct(X)%y為約簡后的cell數(shù)組，reduct_attr為可約去的屬性%X為

4、行向量（元素為胞元）clc;%約簡m,n=size(X);p,k=size(X1);ind_AT=ind(X);%尋找不可等價關系reduct_attr=; %可約去的的屬性num=zeros(m,1);%約簡后的信息對應的個體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

5、); num(k)=i; Ck,1=XC_i; %返回約簡后的信息系統(tǒng) k=k+1; endend -%ind函數(shù)實現(xiàn)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是終止循環(huán)，此時若最后一行不為空的話，將漏掃 if(isequal(Xi,) %若Xi不為空 ind_ATk=union(ind_ATk,i); %不可等價關系賦初值 if(isequal(Xi,Xj) Xj=; %若Xi=Xj,則刪除Xj ind_ATk=union(ind_ATk,j);

6、 %尋找不可等價關系 end end end k=k+1;end -%delete_AT函數(shù)的源代碼function y=delete_AT(X,ATi) % 刪除X中第i列的屬性值m,n=size(X);l,k=size(X1); for i=1:m XiATi=; end y=X;-%pos函數(shù)實現(xiàn)function pos_d=pos(X,D)%求決策系統(tǒng)的正域函數(shù)%X為條件屬性，D為決策屬性ind_D=ind(D); %求決策屬性D的不可等價關系m,n=size(ind_D);ind_X=ind(X); %求信息系統(tǒng)屬性X的不可等價關系low=; %存儲正域個體的編號for i=1:m for j=1:m if(isequal(ind_Xi,)&isequal(ind_Dj,) if(ismember(in