0: function [ O ] = getparamdef( par, def, varargin )
 1: %GETPARAMDEF  Check function arguments for parameters, 
 2: %             return default if not found
 3: %   Example 
 4: %      O = getparamdef('sd',8,varargin{:});
 5: %      x = getparamdef('x',[1,2;3,4],y,12,234,'x=[234,2;1.3,4]',12);
 6: %      y = getparamdef('ay',0,234,'ay',12);
 7: 
 8: O=def;
 9: if ischar(par) % isstr(par) deprecated
10:     for i = 1:nargin-2
11:         if ischar(varargin{i})
12:             if strcmpi(varargin{i},par)
13:                 if i<nargin-2
14:                     O=varargin{i+1};
15:                 end
16:                 break;
17:             elseif strncmpi(varargin{i}, strcat(par,'='), length(par)+1)
18:                 %eval(varargin{i})
19:                 %O=strread(varargin{i}, '%*s %f', 'delimiter', '=' );
20:                 tmp=strread(varargin{i}, '%*s %s', 'delimiter', '=' );
21:                 O=eval(tmp{1});
22:                 break;
23:             end
24:         end
25:     end
26: end
27: 
28: end
29: