function?[lmdxhszflszflrlsz]=F_DtJIt（nR）%定義函數
%函數功能動態聚類圖
%n模糊相似矩陣階數；R，模糊相似矩陣
%返回值：lmd，分類水平數組；xhsz，最終序號數組
%返回值：flsz，分類數數組；flrlsz，子類容量數組
for?i=1:n
????R（ii）=1;%修正錯誤
????for?j=i+1:n
????????if（R（ij）<0）
????????????R（ij）=0;
????????else
????????????if（R（ij）>1）
????????????????R（ij）=1;
????????????end
????????????R（ij）=round（10000*R（ij））/10000;%保留四位小數
????????????R（ji）=R（ij）;
????????end
????end
????js0=0;
????while（1）%求傳遞閉包
????????R1=Max_Min（RR）;
????????js0=js0+1;
????????if（R1==R）
????????????break;
????????else
????????????R=R1;
????????end
????end
????lmd（1）=1;
????k=1;
????for?i=1:n
????????for?j=i+1:n
????????????pd=1;%找出所有不同元素
????????????for?x=1:k
????????????????if（R（ij）==lmd（x））
????????????????????pd=0;
????????????????????break;

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

?????文件???????4837??2018-01-22?17:33??F_jidtjl.m

?????文件???????1960??2018-01-21?16:50??F_JIJsFtjl.m

?????文件???????1403??2018-01-21?15:13??F_JIR.m

?????文件???????1011??2018-01-20?21:12??F_JISjBzh.m

?????文件????????421??2018-01-20?11:45??Max_Min.m

?????文件???????6664??2018-01-22?13:00??F_DtJIt.m

?????文件???????5545??2018-01-22?13:10??F_DtJIt2.m

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

????????????????21841????????????????????7