use '/' for unix compatibility!!!!

git-svn-id: file:///home/sebastien/dynare/gsa_dyn@86 f1850c17-3b45-254b-b221-fcb05880fee1

GSA_distrib/redform_screen.m

@@ -37,7 +37,7 @@ if nargin==0,
   dirname='';
 end
 
-load([dirname,'\',M_.fname,'_prior'],'lpmat','lpmat0','istable','T');
+load([dirname,'/',M_.fname,'_prior'],'lpmat','lpmat0','istable','T');
 
 nspred=oo_.dr.nspred;
 
@@ -81,9 +81,9 @@ for j=1:size(anamendo,1),
         end
         title([namendo,' vs. ',namexo],'interpreter','none')
         if iplo==9,
-          saveas(gcf,[dirname,'\',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)])
-          eval(['print -depsc2 ' dirname,'\',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)]);
-          eval(['print -dpdf ' dirname,'\',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)]);
+          saveas(gcf,[dirname,'/',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)])
+          eval(['print -depsc2 ' dirname,'/',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)]);
+          eval(['print -dpdf ' dirname,'/',M_.fname,'_', namendo,'_vs_shock_',num2str(ifig)]);
           close(gcf)
         end
 
@@ -91,9 +91,9 @@ for j=1:size(anamendo,1),
     end
   end
   if iplo<9 & iplo>0 & ifig,
-    saveas(gcf,[dirname,'\',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)])
-    eval(['print -depsc2 ' dirname,'\',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)]);
-    eval(['print -dpdf ' dirname,'\',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)]);
+    saveas(gcf,[dirname,'/',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)])
+    eval(['print -depsc2 ' dirname,'/',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)]);
+    eval(['print -dpdf ' dirname,'/',M_.fname,'_', namendo,'_vs_shocks_',num2str(ifig)]);
     close(gcf)
   end
 
@@ -128,18 +128,18 @@ for j=1:size(anamendo,1),
 
         title([namendo,' vs. ',namlagendo,'(-1)'],'interpreter','none')
         if iplo==9,
-          saveas(gcf,[dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)])
-          eval(['print -depsc2 ' dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
-          eval(['print -dpdf ' dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
+          saveas(gcf,[dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)])
+          eval(['print -depsc2 ' dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
+          eval(['print -dpdf ' dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
           close(gcf)
         end
       end
     end
   end
   if iplo<9 & iplo>0 & ifig,
-    saveas(gcf,[dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)])
-    eval(['print -depsc2 ' dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
-    eval(['print -dpdf ' dirname,'\',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
+    saveas(gcf,[dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)])
+    eval(['print -depsc2 ' dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
+    eval(['print -dpdf ' dirname,'/',M_.fname,'_', namendo,'_vs_lags_',num2str(ifig)]);
     close(gcf)
   end
 end
@@ -159,7 +159,7 @@ xlabel(' ')
 ylabel('Elementary Effects')
 title('Reduced form screening')
 
-saveas(gcf,[dirname,'\',M_.fname,'_redform_screen'])
-eval(['print -depsc2 ' dirname,'\',M_.fname,'_redform_screen']);
-eval(['print -dpdf ' dirname,'\',M_.fname,'_redform_screen']);
+saveas(gcf,[dirname,'/',M_.fname,'_redform_screen'])
+eval(['print -depsc2 ' dirname,'/',M_.fname,'_redform_screen']);
+eval(['print -dpdf ' dirname,'/',M_.fname,'_redform_screen']);
 

GSA_distrib/stab_map_.m

@@ -340,31 +340,31 @@ if fload==0,
   bkpprior.p4=bayestopt_.p4;
   if pprior,
     if ~prepSA
-      save([OutputDirectoryName '\' fname_ '_prior'], ...
+      save([OutputDirectoryName '/' fname_ '_prior'], ...
         'bkpprior','lpmat','lpmat0','iunstable','istable','iindeterm','iwrong', ...
         'egg','yys','nspred','nboth','nfwrd')
     else
-      save([OutputDirectoryName '\' fname_ '_prior'], ...
+      save([OutputDirectoryName '/' fname_ '_prior'], ...
         'bkpprior','lpmat','lpmat0','iunstable','istable','iindeterm','iwrong', ...
         'egg','yys','T','nspred','nboth','nfwrd')
     end
     
   else
     if ~prepSA
-      save([OutputDirectoryName '\' fname_ '_mc'], ...
+      save([OutputDirectoryName '/' fname_ '_mc'], ...
         'lpmat','lpmat0','iunstable','istable','iindeterm','iwrong', ...
         'egg','yys','nspred','nboth','nfwrd')
     else
-      save([OutputDirectoryName '\' fname_ '_mc'], ...
+      save([OutputDirectoryName '/' fname_ '_mc'], ...
         'lpmat','lpmat0','iunstable','istable','iindeterm','iwrong', ...
         'egg','yys','T','nspred','nboth','nfwrd')
     end
   end
 else
   if pprior,
-    filetoload=[OutputDirectoryName '\' fname_ '_prior'];
+    filetoload=[OutputDirectoryName '/' fname_ '_prior'];
   else
-    filetoload=[OutputDirectoryName '\' fname_ '_mc'];
+    filetoload=[OutputDirectoryName '/' fname_ '_mc'];
   end
   load(filetoload,'lpmat','lpmat0','iunstable','istable','iindeterm','iwrong','egg','yys','nspred','nboth','nfwrd')
   Nsam = size(lpmat,1);    
@@ -420,12 +420,12 @@ else
   aindname='mc_indeterm';
   asname='mc_stable';
 end
-delete([OutputDirectoryName,'\',fname_,'_',aname,'_*.*']);
-%delete([OutputDirectoryName,'\',fname_,'_',aname,'_SA_*.*']);
-delete([OutputDirectoryName,'\',fname_,'_',asname,'_corr_*.*']);
-delete([OutputDirectoryName,'\',fname_,'_',auname,'_corr_*.*']);
-delete([OutputDirectoryName,'\',fname_,'_',aunstname,'_corr_*.*']);
-delete([OutputDirectoryName,'\',fname_,'_',aindname,'_corr_*.*']);
+delete([OutputDirectoryName,'/',fname_,'_',aname,'_*.*']);
+%delete([OutputDirectoryName,'/',fname_,'_',aname,'_SA_*.*']);
+delete([OutputDirectoryName,'/',fname_,'_',asname,'_corr_*.*']);
+delete([OutputDirectoryName,'/',fname_,'_',auname,'_corr_*.*']);
+delete([OutputDirectoryName,'/',fname_,'_',aunstname,'_corr_*.*']);
+delete([OutputDirectoryName,'/',fname_,'_',aindname,'_corr_*.*']);
 
 if length(iunstable)>0 & length(iunstable)<Nsam,
   disp([num2str(length(istable)/Nsam*100,3),'\% of the prior support is stable.'])

GSA_distrib/stab_map_1.m

@@ -79,9 +79,9 @@ for i=1:ceil(nparplot/12),
     end
     title([ftit{j},'. D-stat ', num2str(dproba(ipar(j)),2)],'interpreter','none')
   end
-  saveas(gcf,[dirname,'\',fname_,'_',aname,'_SA_',int2str(i)])
-  eval(['print -depsc2 ' dirname '\' fname_ '_' aname '_SA_' int2str(i)]);
-  eval(['print -dpdf ' dirname '\' fname_ '_' aname '_SA_' int2str(i)]);
+  saveas(gcf,[dirname,'/',fname_,'_',aname,'_SA_',int2str(i)])
+  eval(['print -depsc2 ' dirname '/' fname_ '_' aname '_SA_' int2str(i)]);
+  eval(['print -dpdf ' dirname '/' fname_ '_' aname '_SA_' int2str(i)]);
   if options_.nograph, close(gcf), end
 end
 end

GSA_distrib/stab_map_2.m

@@ -76,17 +76,17 @@ for j=1:npar,
       end
       title(['cc = ',num2str(c0(i2(jx),j))])
       if (mod(j2,12)==0) & j2>0,
-        saveas(gcf,[dirname,'\',fig_nam_,int2str(ifig)])
-        eval(['print -depsc2 ' dirname '\' fig_nam_ int2str(ifig)]);
-        eval(['print -dpdf ' dirname '\' fig_nam_ int2str(ifig)]);
+        saveas(gcf,[dirname,'/',fig_nam_,int2str(ifig)])
+        eval(['print -depsc2 ' dirname '/' fig_nam_ int2str(ifig)]);
+        eval(['print -dpdf ' dirname '/' fig_nam_ int2str(ifig)]);
         if options_.nograph, close(gcf), end
       end
     end
   end
   if (j==(npar)) & j2>0,
-    saveas(gcf,[dirname,'\',fig_nam_,int2str(ifig)])
-    eval(['print -depsc2 ' dirname '\' fig_nam_ int2str(ifig)]);
-    eval(['print -dpdf ' dirname '\' fig_nam_ int2str(ifig)]);
+    saveas(gcf,[dirname,'/',fig_nam_,int2str(ifig)])
+    eval(['print -depsc2 ' dirname '/' fig_nam_ int2str(ifig)]);
+    eval(['print -dpdf ' dirname '/' fig_nam_ int2str(ifig)]);
     if options_.nograph, close(gcf), end
   end