matfuns.sci

基于SCILAB的The Genetic Algorithm Toolbox for SCILAB (GATS)工具箱

function y=strip_file(path_file);
n = length(path_file);
pos = -1;
for i = n-1:-1:0 
	if ((path_file(i)=='/')|(path_file(i)=='\'))
		pos = i;
		break;
	end
end
disp(path_file);
disp(pos);
halt();
if (pos >= 0)
	y = path_file(pos+1:n-1);
else
	y = path_file;
end
endfunction

function y=isempty(v);
v=stripblanks(v);
if (length(v)==0) then
  y=1;
else
  y=0;
end
endfunction

function x=blanks(strLen);
x=emptystr();
for i=1:strLen
  x=' '+x;
end;
endfunction

function y=strcmp(str1,str2);
a=length(str1);
b=length(str2);
len=max(a,b);
y=0;
if ( a ~= b), return 0;end;
y=1;
for i=1:len
  if (str2code(part(str1,i)) > str2code(part(str2,i)))
    y=0;return;
  end
  if (str2code(part(str1,i)) < str2code(part(str2,i)))
    y=0;return;
  end
end
endfunction

function varargout=funeval(funname,varargin)
clearfun(funname);
getf(funname+'.sci');
execstr('varargout(1)='+funname+'(varargin);');
//disp(funname+'.sci');
disp(varargout(1));
disp('ccc');
//evstr(funname varargin);
endfunction

function y=all(bmatrix)
[a,b]=size(bmatrix);
if sum(bmatrix)==a*b then
  y= %T;
else
  y= %F
end
endfunction

function y=any(bmatrix)
[a,b]=size(bmatrix);
if sum(bmatrix)~=0 then
  y= %T;
else
  y= %F
end
endfunction