function Newlength(varargin) if length(varargin)==0 Kyorihensuu(); else FL=varargin(1); Kyorihensuu(FL); end endfunction