Changeset 1263

Timestamp:

07/08/09 11:49:14 (15 years ago)

Author:

Mathieu Morlighem

Message:

Added unitmultiplier in expdisp

File:

• issm/trunk/src/m/utils/Exp/expdisp.m (modified) (3 diffs)

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

@@ -12 +12 @@
         figurenumber=1;
         linestyle='r-';
+        unitmultiplier=1;
 end
 
@@ -17 +18 @@
         figurenumber=varargin{1};
         linestyle='r-';
+        unitmultiplier=1;
 end
 
@@ -22 +24 @@
         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);
 
 figure(figurenumber),hold on
 for i=1:length(domain),
-        plot(domain(i).x,domain(i).y,linestyle);
+        plot(domain(i).x*unitmultiplier,domain(i).y*unitmultiplier,linestyle);
 end