Changeset 17 for trunk/private

Timestamp:

08/18/09 17:36:31 (15 years ago)

Author:

pinsard

Message:

script_correc : results on stdout or in output file

File:

• trunk/private/script_correc.m (modified) (9 diffs, 1 prop)

trunk/private/script_correc.m

@@ -14 +14 @@
 %
 % ``script_correc`` plot ans save several figures :
-% 
-%  - script_correc_thetas.eps : 
-%
-%  - script_correc_thetav.eps : 
-%
-%  - script_correc_dphi.eps : 
-%
-%  - script_correc_rho_670_.eps : 
-%
-%  - script_correc_rho_765_.eps : 
-%
-%  - script_correc_rho_865_.eps : 
-%
-%  - script_correc_tau.eps : 
-%
-%  - script_correc_diagramme_dispersion.eps :
-%
-%  - script_correc_histogramme_erreur.eps :
+%
+%  - ``script_correc_thetas.eps`` :
+%
+%  - ``script_correc_thetav.eps`` :
+%
+%  - ``script_correc_dphi.eps`` :
+%
+%  - ``script_correc_rho_670_.eps`` :
+%
+%  - ``script_correc_rho_765_.eps`` :
+%
+%  - ``script_correc_rho_865_.eps`` :
+%
+%  - ``script_correc_tau.eps`` :
+%
+%  - ``script_correc_diagramme_dispersion.eps`` :
+%
+%  - ``script_correc_histogramme_erreur.eps`` :
+%
+% If ``fid_log`` is not set, log informations are printed on stdout.
+%
+% If ``fid_log`` set previous launching ``script_correc`` to more than 1,
+% log informations are saved in ``script_correc.log``.
 %
 % EXAMPLES
 % ========
+%
+% To run and see log informations on screen :
 %
 % ::
@@ -43 +50 @@
 % >> script_correc
 %
+% To run and save log informations in ``script_correc.log`` :
+%
+% ::
+%
+% >> addpath('../toolbox')
+% >> tp_mlp_aerosols_startup
+% >> fid_log = 6;
+% >> more off
+% >> script_correc
+%
+%
 % SEE ALSO
 % ========
@@ -65 +83 @@
 % Running octave, ``more off`` is compulsary but I don't not yet why
 %
-% save output (sdout and stderr) to make comparisons possible
+% save output (stderr) to make comparisons possible
 %
 % If printer is set to png, one might see following warning using octave :
@@ -74 +92 @@
 % And no labels are visible on figure outputfiles.
 %
-% For now, find a portable solution (setting GDFONTPATH) is too tough, so 
+% For now, find a portable solution (setting GDFONTPATH) is too tough, so
 % printer is set to eps.
 %
@@ -81 +99 @@
 %
 % $Id$
+%
+% - fplod 2009-08-18T14:21:33Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%   * log information either on screen (stdout) or in ``script_correc.log``
 %
 % - fplod 2009-08-18T09:55:12Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -104 +126 @@
 %NOTE : C'est la partie du TP à modifier car il y a trop de choses à coder.
 
-if ~exist('LUT_NIR')
-load('../LUT/LUT_NIR.dat');
+if ~exist('LUT_NIR','var')
+ load('../LUT/LUT_NIR.dat');
 end
 
@@ -213 +235 @@
 script_app
 
+% définition du fichier de sortie "Affichage"
+% if not set, fid_log is set to 1 (stdout)
+if ~ exist('fid_log','var')
+ fid_log = 1;
+end
+
+% ouverture du ficher de sortie "Affichage" si différent de stdout
+fid_log_is_stdout = isequal(fid_log,1);
+
+if fid_log_is_stdout == 0
+ fullfilename = ['./', mfilename, '.log'];
+ fid_log = fopen(fullfilename,'w');
+ clear fullfilename;
+end
+
 %Affichage du tableau des performances
-fprintf('\n\t\tInit1\t\tInit2\n')
+fprintf(fid_log,'\n\t\tInit1\t\tInit2\n');
 for n=1:length(archi)
-fprintf(1,'%d neurones\t%3.2e\t%3.2e\n',archi(n),perf(n,1),perf(n,2));
+ fprintf(fid_log,'%d neurones\t%3.2e\t%3.2e\n',archi(n),perf(n,1),perf(n,2));
 end
 
@@ -223 +260 @@
 mini=min(perf(:));
 [n,i]=find(perf==mini);
-fprintf(1,'\n Architecture optimale : %d neurones (RMS=%3.2e)\n',archi(n),perf(n,i));
+fprintf(fid_log,'\n Architecture optimale : %d neurones (RMS=%3.2e)\n',archi(n),perf(n,i));
 
 %FACULTATIF : On prolonge l'apprentissage avec une base plus grosse
@@ -241 +278 @@
   perf_opti=sqrt((1./length(delta))*sum(delta.^2));
 
-  fprintf(1,'\nRMS finale : %3.2e\n',perf_opti);
+  fprintf(fid_log,'\nRMS finale : %3.2e\n',perf_opti);
+
+  % fermeture du ficher de sortie "Affichage" si différent de stdout
+  if fid_log_is_stdout == 0
+   fclose(fid_log);
+  end
+  clear fid_log_is_stdout;
 
   figure