站长您好！GATS是一种遗传算法工具箱

				function [FunName]=File2Fun(FileName) // the file's name to function name
				FunName=stripblanks(FileName);		// strip blank
				len=length(FunName);			
				if (len 				   return;
				end;
				postfix=part(FunName,[len-3:len]);	// the extend of file name
				postfix=convstr(postfix,'l');
				if ( strcmp(postfix,'.sci') ) then
				    FunName=part(FileName,[1:len-4]);
				end