getargs

GETARGS Check and expands optional argument lists
ARGOUT=GETARGS(ARGIN,DEFAULT_VALUES)
[ARG1,ARG2,...]=GETARGS(ARGIN,DEFAULT_VALUES)

0001 function varargout = getargs(args,default_values)
0002 %GETARGS Check and expands optional argument lists
0003 %ARGOUT=GETARGS(ARGIN,DEFAULT_VALUES)
0004 %[ARG1,ARG2,...]=GETARGS(ARGIN,DEFAULT_VALUES)
0005 
0006 na=min(length(default_values),length(args));
0007 valid=~cellfun(@(arg) isempty(arg)&&isnumeric(arg),args(1:na));
0008 default_values(valid)=args(valid);
0009 if nargout==length(default_values)
0010     varargout=default_values;
0011 else
0012     varargout{1}=default_values;
0013 end
0014 end