Changeset 7933

Timestamp:

04/15/11 15:30:20 (14 years ago)

Author:

Mathieu Morlighem

Message:

Better plot ISMIP A

Location:

issm/trunk/test/IsmipHomResults/plotting_scripts

Files:

• jbfill2.m (added)
• normtest.m (deleted)
• plot_exp_a.m (modified) (4 diffs)

issm/trunk/test/IsmipHomResults/plotting_scripts/plot_exp_a.m

@@ -174 +174 @@
 
 % The font to use for the axis labels
-axisLabelFont = 'normal';
+axisLabelFont = 'Arial';  %ISSM->THIS LINE HAS BEEN CHANGED
 % The font size to use for the axis labels
 axisLabelSize = 7;
@@ -252 +252 @@
     nfsFillColor = [0.422 0.688 0.367];
 
-    % Plot full stokes
-    [fh1, msg1] = jbfill(newX, fsMeanVel+fsStdVel, fsMeanVel-fsStdVel, ...
-                       fsFillColor, fsFillColor, 1, 0.5);
+    % Plot full stokes  %ISSM->THIS LINE HAS BEEN CHANGED
+    %[fh1, msg1] = jbfill(newX, fsMeanVel+fsStdVel, fsMeanVel-fsStdVel, ... %ISSM->THIS LINE HAS BEEN CHANGED
+    %                  fsFillColor, fsFillColor, 1, 0.5); %ISSM->THIS LINE HAS BEEN CHANGED
     
     % Plot non-full stokes
-    [fh2, msg2] = jbfill(newX, nfsMeanVel+nfsStdVel, nfsMeanVel-nfsStdVel, ...
-                       nfsFillColor, nfsFillColor, 1, 0.35);               
+    %[fh2, msg2] = jbfill(newX, nfsMeanVel+nfsStdVel, nfsMeanVel-nfsStdVel, ... %ISSM->THIS LINE HAS BEEN CHANGED
+    %                  nfsFillColor, nfsFillColor, 1, 0.35);                %ISSM->THIS LINE HAS BEEN CHANGED
+         [fh1 fh2]=jbfill2(newX,fsMeanVel+fsStdVel,fsMeanVel-fsStdVel,nfsMeanVel+nfsStdVel,nfsMeanVel-nfsStdVel);
            
     % Turn the grid on
@@ -291 +292 @@
     % These lines plot the mean
     hold on;
-    plot(newX, fsMeanVel, 'k');
-    set(findobj(gca,'Type','line','Color',[0 0 0]),'Color',fsFillColor,'LineWidth',2);
-    plot(newX, nfsMeanVel, 'b');
-    set(findobj(gca,'Type','line','Color',[0 0 1]),'Color',nfsFillColor,'LineWidth',2);
-    
-end
+    %plot(newX, fsMeanVel, 'k');  %ISSM->THIS LINE HAS BEEN CHANGED
+    %set(findobj(gca,'Type','line','Color',[0 0 0]),'Color',fsFillColor,'LineWidth',2); %ISSM->THIS LINE HAS BEEN CHANGED
+    %plot(newX, nfsMeanVel, 'b'); %ISSM->THIS LINE HAS BEEN CHANGED
+    %set(findobj(gca,'Type','line','Color',[0 0 1]),'Color',nfsFillColor,'LineWidth',2); %ISSM->THIS LINE HAS BEEN CHANGED
+    
+end
+return %ISSM->THIS LINE HAS BEEN CHANGED
 
 % Add the legend to the final subplot (in upper left corner)
@@ -304 +306 @@
         'portrait','papertype','A4','paperunits', 'centimeters', ...
         'paperposition',[1 4 21 13]);
-return %ISSM->THIS LINE HAS BEEN CHANGED
 saveas(gcf, 'expa.eps', 'psc2');