narginchk() for Matlab <2011b

narginchk.m

function narginchk(minargs, maxargs)

  if (nargin ~= 2)
    error('%s: Usage: narginchk(minargs, maxargs)',upper(mfilename));
  elseif (~isnumeric (minargs) || ~isscalar (minargs))
    error ('minargs must be a numeric scalar');
  elseif (~isnumeric (maxargs) || ~isscalar (maxargs))
    error ('maxargs must be a numeric scalar');
  elseif (minargs > maxargs)
    error ('minargs cannot be larger than maxargs')
  end


  args = evalin ('caller', 'nargin;');


  if (args < minargs)
    error ('not enough input arguments');
  elseif (args > maxargs)
    error ('too many input arguments');
  end

end

Hi Marcel,

thanks, I corrected it.