1fu
ctio
XF_JlSjBzhcsX％模糊聚类分析数据标准化变换％X原始数据矩阵；cs0，不变换；cs1，标准差变换：cs2，极差变换ifcs0retur
e
d
msizeX％获得矩阵的行列数ifcs1％平移标准差变换fork1mxk0fori1
xkxkXike
dxkxk
sk0fori1
skskXikxk2e
dsksqrtsk
fori1
XikXikxkske
de
delse％平移极差变换fork1mxmi
X1kxmaxX1kfori1
ifxmi
Xikxmi
Xike
difxmaxXikxmaxXike
de
dfori1
XikXikxmi
xmaxxmi
e
de
de
d2fu
ctio
F_JlDtjlR％定义函数％模糊聚类分析动态聚类％R模糊相似矩阵m
sizeR％获得矩阵的行列数ifm
m0retur
e
dfori1
Rii1％修正错误forji1
ifRij0Rij0elseifRij1Rij1e
dRijrou
d10000Rij10000％保留4位小数RjiRije
de
djs00while1％求传递闭包R1Max_Mi
RRjs0js01ifR1RbreakelseRR1e
de
dlmd11k1fori1
forji1
pd1％找出所有不相同的元素
fforx1kifRijlmdxpd0breake
de
difpdkk1lmdkRije
de
de
dfori1k1forji1kiflmdilmdj％从大到小排序xlmdjlmdjlmdilmdixe
de
de
dforx1k％按lmdx分类，分类数为flszx，临时用Sz记录元素序号js0flszx0fori1
pd1fory1jsifSzyipd0breake
de
difpdforj1
ifRijlmdxjsjs1Szjsje
de
dflszxflszx1e
de
de
dfori1k1forji1kifflszjflsziflszj0e
de
de
dfl0排除相同的分类fori1kifflsziflfl1lmdfllmdie
de
dfori1
xhsziie
dforx1fl％获得分类情况对分类元素进行排序js0flszx0fori1
pd1fory1jsifSzyipd0breake
de
difpdifjs0y0e
dforj1
ifRijlmdxjsjs1Szjsje
de
dflszxflszx1Sz0flszxjsye
de
djs00fori1flszxforj1Sz0iSz1jSzjs0je
dforj1
fory1Sz0iifxhszjSz1yjs0js01Szjs0xhszje
de
de
de
dfori1
xhsziSzie
de
dforx1fl％获得分类情况每一子类的元素个数js0flszx0fori1
pd1fory1jsifSzyipd0breake
de
difpdifjs0y0e
dforj1
ifRijlmdxjsjs1Szjsje
de
dflszxflszx1Sz0flszxjsy
fe
de
djs01fori1flszxy1forj1flszxifSzyxhszjs0flqkszxiSz0jjs0js0Sz0jbreake
dyySz0je
de
de
dF_dtjltxfigure
ame动态聚类图colorwaxisoffKd30Gd40yflGdGdlx80text24yGd2λfori1
textlx5iKd04Kdxhszi9yGd2i
t2strxhszili
elxiKdlxiKdyyGdli
eszilxiKde
dtextlx15iKdyGd2分类数yyGdforx1fltext8yGd2
um2strlmdxjs01js10ifx1fori1flszxjs1flqkszxi1ifjs1li
eli
eszjs0li
eszjsr