%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%讀取信息系統文件
file?=?textread（‘data2.txt‘‘%s‘‘delimiter‘‘\n‘‘whitespace‘‘‘）;
[mn]=size（file）;
for?i=1:m
????words=strread（file{i}‘%s‘‘delimiter‘‘?‘）;
????words=words‘;
????X{i}=words;????
end
X=X‘;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%讀取決策系統文件
file?=?textread（‘decision2.txt‘‘%s‘‘delimiter‘‘\n‘‘whitespace‘‘‘）;
[mn]=size（file）;
for?i=1:m
????words=strread（file{i}‘%s‘‘delimiter‘‘?‘）;
????words=words‘;
????D{i}=words;????
end
D=D‘;

[BAT]=ind_reduct（X）;???????%信息系統的約簡（基于不可等價關系約簡）
ind_AT=ind（X）;?????%求信息系統的不可等價關系
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%顯示約簡信息系統
disp（‘約簡后的信息系統為：‘）;
[mn]=size（B）;
for?i=1:m
????disp（B{i}）;
end	
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%決策系統的正域約簡
[lk]=size（X{1}）;
pos_d=pos（XD）;%求正域
[Breduct_attr]=pos_reduct（XD）;%基于正域啟發式函數對決策系統約簡

%將在正域規則下約簡過的信息系統B連接決策規則D，使B之變成一決策信息系統
[mn]=size（B）;
for?i=1:m
????if（~isequal（B{i}[]））
????????B{i}{1k+1}=D{i}{1};
????end
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%顯示約簡決策系統
disp（‘約簡后的決策系統為：‘）;
[mn]=size（B）;
for?i=1:m
????disp（B{i}）;
end????????


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%決策系統分類
ind_D=ind（D）;
[mn]=size（ind_D）;
for?i=1:m
????if?（~isequal（ind_D{i}[]））
????????Low{i}=low（ind_ATind_D{i}）;%求決策規則D在基于不可等價關系ind_AT下的下近似
????????Upp{i}=upp（ind_ATind_D{i}）;%求決策規則D在基于不可等價關系ind_AT下的上近似
????end
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%顯示確定性分類結果
disp（‘約簡后的決策系統其確定性規則有：‘）;
[mn]=size（Low）;
certern=[];
for?i=1:n
????certern=union（certernLow{i}）;
end
disp（certern）

disp（‘約簡后的決策系統其不確定性規則有：‘）;
[mn]=size（Upp）;
uncertern=[];
for?i=1:n
????uncertern=union（uncerternsetdiff（Upp{i}Low{i}））;
end
disp（uncertern）%顯示不確定規則

disp（‘其不確定性規則的可信度為：‘）;
if（~isempty（uncertern））
????Cer=cer（uncerternind_AT）;
????disp（Cer）??%顯示可行度
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%分別求出信息系統和決策系統的核屬性
disp（‘信息系統的核屬性為：‘）;
core_ind=core_ind_reduct（X）;
disp（core_ind）
disp（‘決策系統的核屬性為：‘）;
core_pos=core_pos_reduct（XD）;
disp（core_pos）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????2364??2013-01-14?10:02??cucaoji.m

-----------?---------??----------?-----??----

?????????????????2364????????????????????1