Changeset 2562

Timestamp:

10/29/09 15:39:58 (15 years ago)

Author:

Mathieu Morlighem

Message:

changed the way plot_transient_field works: do not eval(string), create the subplot directly

Location:

issm/trunk/src/m/classes/public/plot

Files:

• plot_section.m (modified) (1 diff)
• plot_transient_field.m (modified) (3 diffs)

issm/trunk/src/m/classes/public/plot/plot_section.m

@@ -172 +172 @@
 
 %apply options
-if ~exist(options,'title'),
-        options=addfielddefault(options,'title','Section value');
-end 
+options=addfielddefault(options,'title','Section value');
 if strcmpi(md.type,'2d')
         options=addfielddefault(options,'colorbar',0);

issm/trunk/src/m/classes/public/plot/plot_transient_field.m

@@ -12 +12 @@
 end
 
-fontsize  =getfieldvalue(options,'fontsize',14);
-fontweight=getfieldvalue(options,'fontweight','n');
-figurenum =getfieldvalue(options,'figure',1);
-
 %Figure out the iterations to plot and check if it is possible
 steps=getfieldvalueerr(options,'steps');
@@ -22 +18 @@
         error(['plot_transient_field error message: problem with the steps requested, must be an interger between 0 and ' num2str(maxiteration)]);
 end
+subplotwidth=ceil(sqrt(length(steps)));
 
 %Figure out the field to plot
@@ -46 +43 @@
 end
 
-string='plotmodel(md';
+%process mes only once
+[x y z elements is2d]=processmesh(md,options);
+
+%plot data for all steps
 for i=1:length(steps),
-        string=[string ',''data'',md.results.transient(' num2str(steps(i)) ').' field  ',''title'',''' field ' at time ' num2str(md.results.transient(steps(i)).time) ' a'''];
+
+        %process data and change title if needed
+        [data isongrid isquiver]=processdata(md,md.results.transient(steps(i)).(field),options);
+        options=addfielddefault(options,'title',[field ' at time ' num2str(md.results.transient(steps(i)).time) ' a']);
+
+        %create plot of step i
+        subplot(subplotwidth,subplotwidth,i);
+        plot_unit(x,y,z,elements,data,isongrid,is2d,isquiver,options)
+
 end
-string=[string ',''colorbar#all'',''on'',''fontsize'',' num2str(fontsize) ',''fontweight'',''' fontweight ''',''figure'',' num2str(figurenum)];
-
-%Add options
-if exist(options,'caxis'),
-        caxis_opt=getfieldvalue(options,'caxis',[]);
-        string=[string ',''caxis#all'',[' num2str(caxis_opt(1)) ',' num2str(caxis_opt(2)) ']'];
-end
-
-%Execute string
-string=[string ');'];
-eval(string);
-clear string;