(完整版)粗糙集matlab程序.doc

Data2 为条件属性， decision2 为决策属性

%%%my_test 函数实现

clc;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%读取信息系统文件

file = textread('data2.txt','%s','delimiter','','whitespace',''); %读取文件信息，每一行为一个胞元

[m,n]=size(file); %胞元的大小

for i=1:m

words=strread(file{i},'%s','delimiter',' ');%读取每个胞元中字符，即分解胞元为新的胞元

words=words';%转置

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%显示约简信息系统

disp('约简后的条件系统为：');

[m,n]=size(B);

for i=1:m

disp(B{i});

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%读取决策系统文件

file = textread('decision2.txt','%s','delimiter','','whitespace','');

[m,n]=size(file);

for i=1:m

域约简

X_D=X;

[l,k]=size(X_D{1});

pos_d=pos(X_D,D);%正域

for i=1:m %%%%%%%%%%%%%%正域有问题%%%%%%%%%%%%%%%%%%%%%%%%%%%

if(~ismember(num(i),pos_d))

B{i}=''; %若约简后的信息系统 B{i}不在正域中则删除该行

end %因为相同的条件得到的决策不一样，

end