file2fun.sci

来自「基于SCILAB的The Genetic Algorithm Toolbox f」· SCI 代码 · 共 12 行

function [FunName]=File2Fun(FileName) // the file's name to function name
FunName=stripblanks(FileName);		// strip blank
len=length(FunName);			
if (len <=4) then
   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