function?[center?U?obj_fcn]?=?FLICM（data?cluster_n?neighbor_pos?window_d?options）
if?nargin?~=?4?&?nargin?~=?5
	error（‘Too?many?or?too?few?input?arguments!‘）;
end

data_n?=?size（data?1）;
in_n?=?size（data?2）;

%?Change?the?following?to?set?default?options
default_options?=?[2;	%?exponent?for?the?partition?matrix?U
		300;	%?max.?number?of?iteration
		1e-5;	%?min.?amount?of?improvement
		0];	%?info?display?during?iteration?

if?nargin?==?4
	options?=?default_options;
else
	%?If?“options“?is?not?fully?specified?pad?it?with?default?values.
	if?length（options）?		tmp?=?default_options;
		tmp（1:length（options））?=?options;
		options?=?tmp;
	end
	%?If?some?entries?of?“options“?are?nan‘s?replace?them?with?defaults.
	nan_index?=?find（isnan（options）==1）;
	optio

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2015-04-21?20:24??FLICM\
?????文件????????1662??2013-06-12?22:56??FLICM\FLICM.m
?????文件?????????836??2013-06-12?22:56??FLICM\FLICM_find_neighbor.m
?????文件????????1126??2010-11-04?18:28??FLICM\FLICM_step.m
?????文件????????1371??2015-04-21?20:58??FLICM\Untitled.asv
?????文件????????1675??2015-04-21?20:27??FLICM\Untitled.m
?????文件????????5716??2013-06-08?17:53??FLICM\bacteria.jpg
?????文件???????59640??1996-10-25?22:11??FLICM\eight.tif
?????文件???????10546??2005-09-21?19:00??FLICM\lena.jpg
?????文件???????20890??2013-06-08?17:47??FLICM\romantic.jpg