با استفاده از دستور xlsread کدها را شروع می کنیم . با استفاده از این کد می توانیم
داده های ذخیره شده از خروجی Excel را به یک ماتریس در متلب تبدیل کنیم که این
ماتریس فقط شامل مقادیر عددی می باشد .
برای استفاده از همه محتوای جدول ) رشته و عدد ( از دستور dataset می توانیم
استفاده کنیم .
inp= xlsread(‘d:\data3.xlsx’);
[R0 C0]= size(inp);
دستور بالا تعداد سطر و ستون ماتریس ورودی، (inp) ، را به ما می دهد .
برای مشخص کردن تعداد خوشه ها از کد زیر استفاده می کنیم :
cluster= 4;
پس در این مرحله به سراغ تابع Fuzzy Cluster Means رفته و با دادن ورودی های
مناسب، خروجی های مطلوب را از این تابع می گیریم : مرکز خوشه ها //[center,U]= fcm(inp,cluster);

در این کد دو خروجی center و U از دو ورودی inp ) ماتریس ورودی ( و cluster ) تعداد خوشه ها ( حاصل می شوند . خروجی U میزان وابستگی هر فرد به هر یک از خوشه ها را نشان می دهد .
حال از آنجا که ماتریس U یک ماتریس رندم است، با استفاده از دستورات زیر این
ماتریس را ثابت می کنیم و این ماتریس ثابت شده جدید را U3 می نامیم :
[R2 C2]= size(U);
U2(:,1)= sort(U(:,1),’descend’); sort شده نفر اول رو توی u2 میریزد
for i= 1:cluster
k=find(U(:,1)== U2(i,1));
U3(i,:)= U(k,:);
End
با استفاده از فرامین زیر نیز شروع به دسته بندی افراد براساس شماره آنها می کنیم :
پروژه دات کام – www.Prozhe.com
maxU3 = max(U3);
Index= 0;
for i = 1:cluster
t = find(U3(i, 🙂 == maxU3);
v = genvarname(‘Index’, who);
eval([v ‘ =t’]);
clc
end
با استفاده از سه ماتریس c1 ، c2 ، c3 سه رنگ مختلف برای نمایش اطلاعات بر
رروی شکل استفاده می کنیم :
c1= [44 210 200]./255;
c2 =[242 174 44]./255;
c3= [19 93 19]./255;

ماتریس name را نیز برای نامگذاری محورهای مختصات شکلها ایجاد می کنیم :
name= {‘Khesarat’ ‘Car’ ‘Model’ ‘Jensiat’ ‘Sen’ ‘Tedade Ranande’ ‘Tahsilat’};
به کمک مجموعه دستورهای زیر، با استفاده از فرامین plot و line ، افراد مختلف را
با توجه به جایگاه آنها در هر دسته رسم می کنیم و با کمک دستور text جای آن فرد را
با علامت x مشخص می کنیم :
hf1= figure;
for i= 2:C0
حلقه for تک تک شکل ها را میکشد
subplot(2,fix(C0/2),i-1)
plot(inp(:,1),inp(:,i),’w.’); اول کل آدما رو میذارد یعنی همه نقاط رو میکشه
line(inp(Index1,1),inp(Index1,i),’linestyle’,’none’,…
پروژه دات کام – www.Prozhe.com
‘marker’, ‘.’,’color’,c3);
رنگ به نقطه میدهد، یعنی با line آدما رو رنگ میکنه
همه آدمهای توی index1 خصیصه اول بر حسب خصیصه i ام رسم میکند
line(inp(Index2,1),inp(Index2,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,c1);
line(inp(Index3,1),inp(Index3,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,c2);
line(inp(Index4,1),inp(Index4,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,’r’);
xlabel(‘Khesarat’)
ylabel(name(i))
b= [min(inp(:,1))-10 max(inp(:,1))+10 min(inp(:,i))-(max(inp(:,i))-…
پروژه دات کام – www.Prozhe.com
min(inp(:,i)))/15 max(inp(:,i))+(max(inp(:,i))-min(inp(:,i)))/15];
axis (b)
text(inp(x-1,1),inp(x-1,i),’ \leftarrow X’,’FontSize’,18)
grid on
if i== 2
legend([c3 c1 c2 ‘r’],’Khoob’,’Nesbatan Khoob’,’Nesbatan Bad’,…
‘Bad’,’Location’,’SouthWestOutside’)
end
end

با استفاده از دستورات زیر یک ماتریس جدید ایجاد کرده که ستون اول این
ماتریس برابر جمع تمامی ستونهای ماتریس ورودی می باشد و ماتریس های دیگر
نیز با توجه به هر خوشه تعریف می شوند :
inp2(:,1)= inp(:,1);
for i= 2:C0
inp2(:,1)= inp2(:,1)+inp(:,i);
end توی index شماره سطر هر آدم توی ماتریس ورودی inp است inp3= U3(1,Index1)’;
inp4= U3(2,Index2)’+1;
inp5= U3(3,Index3)’+2;
inp6= U3(4,Index4)’+3;
دستورات بالا ما را در رسم شکل دوم کمک می کند .

دستورات زیر نیز برای رسم شکل بکار برده می شود :
hf2= figure;
plot(inp3,inp2(Index1,1),’*’,’color’,c3)
hold on
plot(inp4,inp2(Index2,1),’*’,’color’,c1)
hold on
plot(inp5,inp2(Index3,1),’*’,’color’,c2)
hold on
plot(inp6,inp2(Index4,1),’r*’)
legend(‘Khoob’,’Nesbatan Khoob’,’Nesbatan Bad’,…
‘Bad’,’Location’,’SouthWestOutside’)

و در آخر با اجرای دستورات زیر یک فایل txt که شامل مقادیر تمامی دسته ها
می باشد را در مسیر مشخص شده ذخیره میکنیم ) که اگر این فایل از قبل وجود
داشته باشد آنرا پاک می کنیم : (
delete d:\Index.txt
dlmwrite(‘d:\Index.txt’,’A’)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,Index1,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’B’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,Index2,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’C’,’-append’, ‘roffset’, 0)
پروژه دات کام – www.Prozhe.com
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,Index3,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’D’,’-append’, ‘roffset’, 0)
dlmwrite(‘d:\Index.txt’,’,’,’-append’, ‘roffset’, 0)

dlmwrite(‘d:\Index.txt’,Index4,’-append’, ‘roffset’, 0

درقسمت پایین سورس برنامه نویسی تو زبان متلب موجود است

function[]=Cluster()
close all
%% Import Data
inp= xlsread(‘prozhe.xlsx’);
[R0 C0]= size(inp);
%% Using FCM
cluster= 4;
[center,U]= fcm(inp,cluster);
%% Sorting The U Matrix

%%baraye inke har seri be ma yek dadeye tasadofi nadahad

[R2 C2]= size(U);
U2(:,1)= sort(U(:,1),’descend’);
for i= 1:cluster
k=find(U(:,1)== U2(i,1));
U3(i,:)= U(k,:);
end
%% Calling Indexes
maxU3 = max(U3);
Index= 0;
for i = 1:cluster
t = find(U3(i, 🙂 == maxU3);
v = genvarname(‘Index’, who);
eval([v ‘ =t’]);
end
clc
%% Plotting the Datasets in 6 shapes
c1= [44 210 200]./255;
c2 =[242 174 44]./255;
c3= [19 93 19]./255;
name= {‘Khesarat’ ‘Car’ ‘Model’ ‘Jensiat’ ‘Sen’ ‘Tedade Ranande’ ‘Tahsilat’};
hf1= figure;
for i= 2:C0
subplot(2,fix(C0/2),i-1)
plot(inp(:,1),inp(:,i),’w.’);
line(inp(Index1,1),inp(Index1,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,c3);
line(inp(Index2,1),inp(Index2,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,c1);
line(inp(Index3,1),inp(Index3,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,c2);
line(inp(Index4,1),inp(Index4,i),’linestyle’,’none’,…
‘marker’, ‘.’,’color’,’r’);
xlabel(‘Khesarat’)
ylabel(name(i))
b= [min(inp(:,1))-10 max(inp(:,1))+10 min(inp(:,i))-(max(inp(:,i))-…
min(inp(:,i)))/15 max(inp(:,i))+(max(inp(:,i))-min(inp(:,i)))/15];
axis (b)
grid on
if i== 2
legend([c3 c1 c2 ‘r’],’Khoob’,’Nesbatan Khoob’,’Nesbatan Bad’,…
‘Bad’,’Location’,’SouthWestOutside’)
end
end
%% Making a New Matrix
inp2(:,1)= inp(:,1);
for i= 2:C0
inp2(:,1)= inp2(:,1)+inp(:,i);
end
inp3= U3(1,Index1)’;
inp4= U3(2,Index2)’+1;
inp5= U3(3,Index3)’+2;
inp6= U3(4,Index4)’+3;
%% Plotting the New Matrix in a Combined Form
hf2= figure;
plot(inp3,inp2(Index1,1),’*’,’color’,c3)
hold on
plot(inp4,inp2(Index2,1),’*’,’color’,c1)
hold on
plot(inp5,inp2(Index3,1),’*’,’color’,c2)
hold on
plot(inp6,inp2(Index4,1),’r*’)
legend(‘Khoob’,’Nesbatan Khoob’,’Nesbatan Bad’,…
‘Bad’,’Location’,’SouthWestOutside’)
%% Saving the result in a TXT File
dlmwrite(‘Index.txt’,’A’)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,Index1,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’B’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,Index2,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’C’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,Index3,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’D’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,’,’,’-append’, ‘roffset’, 0)
dlmwrite(‘Index.txt’,Index4,’-append’, ‘roffset’, 0)

در زیر نیز داده های برنامه فوق موجود است به همین شکل تو محیط ایکسل کوپی کنید