粗糙集代码和程序.zip_围岩_岩土_粗糙理论集代码_粗糙集_隧道

Function y=my_test()

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

[m,n]=size(file);

for i=1:m

words=strread(file{i},'%s','delimiter',' ');

words=words';

X{i}=words;

end

X=X';

for i=1:m

disp(B{i});

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%读取决策系

统文件

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

[m,n]=size(file);

for i=1:m

words=strread(file{i},'%s','delimiter',' ');

words=words';

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

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

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

题%%%%%%%%%%%%%%%%%%%%%%%%%%%

if(~ismember(i,pos_d))

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

end

end

%将在正域规则下约简过的信息系统 B 连接决策系统 D

[m,n]=size(B);