Changeset 2719

Timestamp:

12/11/09 07:43:43 (15 years ago)

Author:

Mathieu Morlighem

Message:

Added linewidth option for plots

File:

• issm/trunk/src/m/utils/Exp/expdisp.m (modified) (1 diff)

issm/trunk/src/m/utils/Exp/expdisp.m

@@ -6 +6 @@
 %   Usage:
 %      expdisp(domainoutline,varargin)
+%      expdisp(domainoutline,figurenumber,linestyle,linewidth,unitmultiplier)
+%
+%   Example:
+%      expdisp('Domain.exp',1,'--r',2,10^3);
 %
 %   See also EXPMASTER, EXPDOC
 
-if nargin==1,
-        figurenumber=1;
-        linestyle='r-';
-        unitmultiplier=1;
+%check nargin
+if ~nargin | nargin>4
+        help expdisp
+        error('expdisp error message: bad usage');
 end
 
-if nargin==2,
+%parse input
+if nargin<=1,
+        figurenumber=1;
+else
         figurenumber=varargin{1};
+end
+if nargin<=2
         linestyle='r-';
+else
+        linestyle=varargin{2};
+end
+if nargin<=3
+        linewidth=1;
+else
+        linewidth=varargin{3};
+end
+if nargin<=4
         unitmultiplier=1;
+else
+        unitmultiplier=varargin{4}; if isnan(unitmultiplier), unitmultiplier=1; end
 end
 
-if nargin==3,
-        figurenumber=varargin{1};
-        linestyle=varargin{2};
-        unitmultiplier=1;
-end
-
-if nargin==4,
-        figurenumber=varargin{1};
-        linestyle=varargin{2};
-        unitmultiplier=varargin{3};
-        if isnan(unitmultiplier),
-                unitmultiplier=1;
-        end
-end
 domain=expread(domainoutline,1);