www.gusucode.com > 模糊控制工具箱 fuzzy logic toolbox源码程序 > fuzzy/fuzzy/ja/fcm.m
% FCM 僼傽僕傿c-means 僋儔僗僞儕儞僌偵傛傞僨乕僞僙僢僩偺僋儔僗僞儕儞僌 % % [CENTER, U, OBJ_FCN] = FCM(DATA, N_CLUSTER) 偼丄僨乕僞僙僢僩DATA偐傜 % N_CLUSTER屄偺僋儔僗僞傪専嶕偟傑偡丅DATA偼M峴N楍偺僒僀僘偺応崌丄M偼 % 僨乕僞億僀儞僩悢丄N偼奺僨乕僞億僀儞僩偺嵗昗悢偵側傝傑偡丅奺僋儔僗僞乕 % 僙儞僞偺嵗昗偼丄CENTER峴楍偺楍偵弌椡偝傟傑偡丅儊儞僶僔僢僾娭悢峴楍U偼 % 奺僋儔僗僞偺奺僨乕僞億僀儞僩偺儊儞僶僔僢僾偺僌儗乕僪傪娷傒傑偡丅 % 0偲1偺抣偼丄僲乕儊儞僶僔僢僾丄僼儖儊儞僶僔僢僾傪堄枴偟傑偡丅僌儗乕僪偼 % 0偐傜1偺娫偺抣偱丄僨乕僞億僀儞僩偑僋儔僗僞撪偵晹暘儊儞僶僔僢僾傪帩偮偐傪 % 帵偟傑偡丅奺孞傝曉偟偵偍偄偰丄栚揑娭悢傪嵟彫偵偡傞嵟揔側僋儔僗僞埵抲傪 % 専嶕偟傑偡丅寢壥偼OBJ_FCN偵弌椡偝傟傑偡丅 % % [CENTER, ...] = FCM(DATA,N_CLUSTER,OPTIONS) 偼僋儔僗僞儕儞僌僾儘僙僗 % 偺僆僾僔儑儞儀僋僩儖傪巜掕偟傑偡丅 % OPTIONS(1) : 暘妱峴楍U偵懳偡傞儀僉悢(僨僼僅儖僩: 2.0) % OPTIONS(2) : 孞傝曉偟偺嵟戝夞悢(僨僼僅儖僩: 100) % OPTIONS(3) : 夵椙搙偵傛傞廔椆婎弨抣(僨僼僅儖僩: 1e-5) % OPTIONS(4) : 孞傝曉偟夞悢偺昞帵(僨僼僅儖僩: 1) % 僋儔僗僞儕儞僌僾儘僙僗偼丄孞傝曉偟偺嵟戝夞悢偵摓払偟偨帪揰丄傑偨偼栚揑 % 娭悢偺夵慞偑夵椙搙偵傛傞廔椆婎弨抣偱巜掕偟偨抣傛傝彫偝偄応崌廔椆偟傑偡丅 % 僨僼僅儖僩抣偺棙梡偵偼NaN傪棙梡偟傑偡丅 % % 椺 % data = rand(100,2); % [center,U,obj_fcn] = fcm(data,2); % plot(data(:,1), data(:,2),'o'); % hold on; % maxU = max(U); % % Find the data points with highest grade of membership in cluster 1 % index1 = find(U(1,:) == maxU); % % Find the data points with highest grade of membership in cluster 2 % index2 = find(U(2,:) == maxU); % line(data(index1,1),data(index1,2),'marker','*','color','g'); % line(data(index2,1),data(index2,2),'marker','*','color','r'); % % Plot the cluster centers % plot([center([1 2],1)],[center([1 2],2)],'*','color','k') % hold off; % % 嶲峫 FCMDEMO, INITFCM, IRISFCM, DISTFCM, STEPFCM. % Copyright 1994-2004 The MathWorks, Inc.