source: trunk/src/uvmat_doc/FUNCTIONS_DOC/name_generator.html @ 48

Last change on this file since 48 was 37, checked in by sommeria, 15 years ago

create_grid.fig ,
uvmat_doc and all the included files added
File size: 35.9 KB
Line 
1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
2                "http://www.w3.org/TR/REC-html40/loose.dtd">
3<html>
4<head>
5  <title>Description of name_generator</title>
6  <meta name="keywords" content="name_generator">
7  <meta name="description" content="'name_generator': creates a file name from a root name and indices.">
8  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
9  <meta name="generator" content="m2html &copy; 2003 Guillaume Flandin">
10  <meta name="robots" content="index, follow">
11  <link type="text/css" rel="stylesheet" href="../m2html.css">
12</head>
13<body>
14<a name="_top"></a>
15<div><a href="../index.html">Home</a> &gt;  <a href="index.html">.</a> &gt; name_generator.m</div>
16
17<!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png">&nbsp;Master index</a></td>
18<td align="right"><a href="index.html">Index for .&nbsp;<img alt=">" border="0" src="../right.png"></a></td></tr></table>-->
19
20<h1>name_generator
21</h1>
22
23<h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
24<div class="box"><strong>'name_generator': creates a file name from a root name and indices.</strong></div>
25
26<h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
27<div class="box"><strong>function [filename,idetect,num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out]=name_generator(filebase,num_i1,num_j1,ext,nom_type,comp_input,num_i2,num_j2,subdir); </strong></div>
28
29<h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
30<div class="fragment"><pre class="comment">'name_generator': creates a file name from a root name and indices.
31---------------------------------------------------------------------
32 [filename,idetect,num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out]=...
33 name_generator(filebase,num_i1,num_j1,ext,nom_type,comp_input,num_i2,num_j2,subdir);
34---------------------------------------------------------------------           
35 This function detects the existence the constructed file name and it can
36 find indices according to file existence if they are not specified
37%rmq: this function is related to the reverse functions display2name and name2diplay
38---------------------------------------------------------------------
39 OUTPUT:
40filename: string representing the file name (including path)
41idetect: =1 if the file is detected, 0 otherwise
42num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out: index numbers and subdirectory detected
43for free input (= to the corresponding input indices when comp_input=1)
44---------------------------------------------------------------------
45 INPUT:
46 'filebase': the root name,
47 'num_i1: first labelling index i
48 'num_j1', first labelling index j
49 'ext': file name extension (e.g. '.png' or '.nc')
50 'nom_type': string defining the kind of nomenclature used:
51nom_type='': constant name [filebase ext] (default output if 'nom_type' is undefined)
52nom_type='*': the same  file [filebase ext] contains successive fields (ex avi movies)
53nom_type='_i': series of files with a single index i preceded by '_'(e.g. 'aa_45.png').
54nom_type='#' series of indexed images wich is not series_i [filebase index ext], e.g. 'aa045.jpg' or 'aa45.tif'
55nom_type='_i_j' matrix of files with two indices i and j separated by '_'(e.g. 'aa_45_2.png')
56nom_type='_i1-i2' from pairs from a single index (e.g. 'aa_45-47.nc')
57nom_type='_i_j1-j2'pairs of j indices (e.g. 'aa_45_2-3.nc')
58nom_type='_i1-i2_j' pairs of i indices (e.g. 'aa_45-46_2.nc')
59nom_type='#a','#A' with a numerical index and an index letter(e.g.'aa045b.png'), OBSOLETE (replaced by 'series_i_j')
60nom_type='%03d' or '%04d', series of indexed images with numbers completed with zeros to 3 or 4 digits, e.g.'aa045.tif'
61nom_type='_%03d', '_%04d', or '_%05d', series of indexed images with _ and numbers completed with zeros to 3, 4 or 5 digits, e.g.'aa_045.tif'
62nom_type='raw_SMD', same as '#a' but with no extension ext='', OBSOLETE
63nom_type='#_ab' from pairs of '#a' images (e.g. 'aa045bc.nc'), ext='.nc', OBSOLETE (replaced by 'netc_2D')
64nom_type='%3dab' from pairs of '%3da' images (e.g. 'aa045bc.nc'), ext='.nc', OBSOLETE (replaced by 'netc_2D')
65 A REVOIR: 'comp_input'=1 for writting =0 for reading ,  'comp_input'(for nom_type involving index pairs (e.g. netc))
66comp_input=1: the index pair is imposed,
67comp_input=0: the index pair is automatically searched, choosing the most recent  file in case of multiple choice
68 'num_i2': second index i (for nom_type involving index pairs (e.g. netc))
69 'num_j2': second index j (for nom_type involving index pairs (e.g. netc))
70 'subdir': (used for nom_type=netc...) string representing the name of the subdirectory 'subdir' containing file.
71subdir='': no subdirectory,
72subdir='?', the file is first searched with no subdirectory, then in the most recently modified subdirectory if not detected.</pre></div>
73
74<!-- crossreference -->
75<h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
76This function calls:
77<ul style="list-style-image:url(../matlabicon.gif)">
78<li><a href="name2display.html" class="code" title="function [RootPath,RootFile,field_count,str2,str_a,str_b,ext,nom_type,subdir]=name2display(fileinput)">name2display</a>     'name2display': extracts the root name and field numbers from an input filename</li><li><a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>    'num2stra': transform number to the corresponding character string depending on the nomenclature</li><li><a href="stra2num.html" class="code" title="function numres=stra2num(str)">stra2num</a>        'stra2num': transform letters (a, b, c) or numerical strings ('1','2'..) to the corresponding numbers</li></ul>
79This function is called by:
80<ul style="list-style-image:url(../matlabicon.gif)">
81<li><a href="civ.html" class="code" title="function varargout = civ(varargin)">civ</a>  'civ': function associated with the interface 'civ.fig' for PIV, spline interpolation and stereo PIV (patch)</li><li><a href="civ_3D.html" class="code" title="function varargout = civ_3D(varargin)">civ_3D</a>        'civ_3D': function associated with the interface 'civ_3D.fig' for PIV in volume</li><li><a href="series.html" class="code" title="function varargout = series(varargin)">series</a>     'series': master function associated to the GUI series.m for analysis field series</li><li><a href="uvmat.html" class="code" title="function varargout = uvmat(varargin)">uvmat</a>     'uvmat': function associated with the GUI 'uvmat.fig' for images and data field visualization</li></ul>
82<!-- crossreference -->
83
84<h2><a name="_subfunctions"></a>SUBFUNCTIONS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
85<ul style="list-style-image:url(../matlabicon.gif)">
86<li><a href="#_sub1" class="code">function [filename,num_i1,num_j1,num_i2,num_j2,idetect]=search_pair(filebasesub,num_i1,num_j1,num_i2,nom_type)</a></li></ul>
87<h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
88<div class="fragment"><pre>0001 <span class="comment">%'name_generator': creates a file name from a root name and indices.</span>
890002 <span class="comment">%---------------------------------------------------------------------</span>
900003 <span class="comment">% [filename,idetect,num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out]=...</span>
910004             <span class="comment">% name_generator(filebase,num_i1,num_j1,ext,nom_type,comp_input,num_i2,num_j2,subdir);</span>
920005 <span class="comment">%---------------------------------------------------------------------</span>
930006 <span class="comment">% This function detects the existence the constructed file name and it can</span>
940007 <span class="comment">% find indices according to file existence if they are not specified</span>
950008 <span class="comment">%%rmq: this function is related to the reverse functions display2name and name2diplay</span>
960009 <span class="comment">%---------------------------------------------------------------------</span>
970010 <span class="comment">% OUTPUT:</span>
980011 <span class="comment">%filename: string representing the file name (including path)</span>
990012 <span class="comment">%idetect: =1 if the file is detected, 0 otherwise</span>
1000013 <span class="comment">%num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out: index numbers and subdirectory detected</span>
1010014              <span class="comment">%for free input (= to the corresponding input indices when comp_input=1)</span>
1020015 <span class="comment">%---------------------------------------------------------------------</span>
1030016 <span class="comment">% INPUT:</span>
1040017 <span class="comment">% 'filebase': the root name,</span>
1050018 <span class="comment">% 'num_i1: first labelling index i</span>
1060019 <span class="comment">% 'num_j1', first labelling index j</span>
1070020 <span class="comment">% 'ext': file name extension (e.g. '.png' or '.nc')</span>
1080021 <span class="comment">% 'nom_type': string defining the kind of nomenclature used:</span>
1090022      <span class="comment">%nom_type='': constant name [filebase ext] (default output if 'nom_type' is undefined)</span>
1100023      <span class="comment">%nom_type='*': the same  file [filebase ext] contains successive fields (ex avi movies)</span>
1110024      <span class="comment">%nom_type='_i': series of files with a single index i preceded by '_'(e.g. 'aa_45.png').</span>
1120025      <span class="comment">%nom_type='#' series of indexed images wich is not series_i [filebase index ext], e.g. 'aa045.jpg' or 'aa45.tif'</span>
1130026      <span class="comment">%nom_type='_i_j' matrix of files with two indices i and j separated by '_'(e.g. 'aa_45_2.png')</span>
1140027      <span class="comment">%nom_type='_i1-i2' from pairs from a single index (e.g. 'aa_45-47.nc')</span>
1150028      <span class="comment">%nom_type='_i_j1-j2'pairs of j indices (e.g. 'aa_45_2-3.nc')</span>
1160029      <span class="comment">%nom_type='_i1-i2_j' pairs of i indices (e.g. 'aa_45-46_2.nc')</span>
1170030      <span class="comment">%nom_type='#a','#A' with a numerical index and an index letter(e.g.'aa045b.png'), OBSOLETE (replaced by 'series_i_j')</span>
1180031      <span class="comment">%nom_type='%03d' or '%04d', series of indexed images with numbers completed with zeros to 3 or 4 digits, e.g.'aa045.tif'</span>
1190032      <span class="comment">%nom_type='_%03d', '_%04d', or '_%05d', series of indexed images with _ and numbers completed with zeros to 3, 4 or 5 digits, e.g.'aa_045.tif'</span>
1200033      <span class="comment">%nom_type='raw_SMD', same as '#a' but with no extension ext='', OBSOLETE</span>
1210034      <span class="comment">%nom_type='#_ab' from pairs of '#a' images (e.g. 'aa045bc.nc'), ext='.nc', OBSOLETE (replaced by 'netc_2D')</span>
1220035      <span class="comment">%nom_type='%3dab' from pairs of '%3da' images (e.g. 'aa045bc.nc'), ext='.nc', OBSOLETE (replaced by 'netc_2D')</span>
1230036 <span class="comment">% A REVOIR: 'comp_input'=1 for writting =0 for reading ,  'comp_input'(for nom_type involving index pairs (e.g. netc))</span>
1240037      <span class="comment">%comp_input=1: the index pair is imposed,</span>
1250038      <span class="comment">%comp_input=0: the index pair is automatically searched, choosing the most recent  file in case of multiple choice</span>
1260039 <span class="comment">% 'num_i2': second index i (for nom_type involving index pairs (e.g. netc))</span>
1270040 <span class="comment">% 'num_j2': second index j (for nom_type involving index pairs (e.g. netc))</span>
1280041 <span class="comment">% 'subdir': (used for nom_type=netc...) string representing the name of the subdirectory 'subdir' containing file.</span>
1290042      <span class="comment">%subdir='': no subdirectory,</span>
1300043      <span class="comment">%subdir='?', the file is first searched with no subdirectory, then in the most recently modified subdirectory if not detected.</span>
1310044
1320045 <span class="comment">% A FAIRE: si comp_inpu=0, si _i_j n'existe pas, chercher _i,</span>
1330046 <a name="_sub0" href="#_subfunctions" class="code">function [filename,idetect,num_i1_out,num_j1_out,num_i2_out,num_j2_out,subdir_out]=</a><span class="keyword">...</span>
1340047            name_generator(filebase,num_i1,num_j1,ext,nom_type,comp_input,num_i2,num_j2,subdir);
1350048 sizf=size(filebase);
1360049 <span class="keyword">if</span> (~ischar(filebase)||~isequal(sizf(1),1)),filebase=<span class="string">''</span>;<span class="keyword">end</span>
1370050 <span class="keyword">if</span> ~ischar(ext),ext=<span class="string">''</span>;<span class="keyword">end</span>
1380051 <span class="comment">% filename=[filebase ext];%default</span>
1390052 idetect=0;
1400053 <span class="keyword">if</span> ~exist(<span class="string">'num_i1'</span>,<span class="string">'var'</span>) || isequal(num_i1,[])
1410054     num_i1=1; <span class="comment">%default</span>
1420055 <span class="keyword">end</span>
1430056 <span class="keyword">if</span> ~exist(<span class="string">'num_j1'</span>,<span class="string">'var'</span>) || isequal(num_j1,[])
1440057     num_j1=1; <span class="comment">%default</span>
1450058 <span class="keyword">end</span>
1460059 <span class="keyword">if</span> ~exist(<span class="string">'num_i2'</span>,<span class="string">'var'</span>) || isequal(num_i2,[])
1470060     num_i2=num_i1; <span class="comment">%default</span>
1480061 <span class="keyword">end</span>
1490062 <span class="keyword">if</span> ~exist(<span class="string">'subdir'</span>,<span class="string">'var'</span>)|| isempty(subdir)
1500063     subdir=<span class="string">''</span> ; <span class="comment">%default</span>
1510064 <span class="keyword">end</span>
1520065 <span class="comment">%detection of mask or mean: filebase of the form [root '_' xxx 'm$$$'] with xxx a number and $$$ three characters</span>
1530066 <span class="keyword">if</span> length(filebase)&gt;4 &amp; filebase(end-3)==<span class="string">'m'</span>;
1540067     basedouble=double(filebase);
1550068     val=(48&gt;basedouble)|(basedouble&gt;57);<span class="comment">% select the non-numerical characters</span>
1560069     i=length(filebase)-4;
1570070     <span class="keyword">while</span> val(i)==0 &amp; i&gt;0
1580071         i=i-1;
1590072     <span class="keyword">end</span>
1600073     nbslice=str2num(filebase(i+1:end-4));
1610074     <span class="keyword">if</span> ~isequal(nbslice,[])
1620075         num_i1=mod(num_i1-1,nbslice)+1; <span class="comment">%take the rest in the division</span>
1630076         <span class="keyword">if</span> isequal(nom_type,<span class="string">'png_old'</span>)|isequal(nom_type,<span class="string">'#a'</span>)
1640077             num_j1=1;<span class="comment">% mask name must end by 'a'</span>
1650078         <span class="keyword">end</span>
1660079     <span class="keyword">end</span>
1670080 <span class="keyword">end</span>
1680081 test_pairs=isequal(nom_type,<span class="string">'netc_old'</span>)| isequal(nom_type,<span class="string">'netc_2D'</span>) | isequal(nom_type,<span class="string">'netc_3D'</span>)| isequal(nom_type,<span class="string">'_i1-i2_j1-j2'</span>)| <span class="keyword">...</span>
1690082   isequal(nom_type,<span class="string">'netc_series'</span>)| isequal(nom_type,<span class="string">'#_ab'</span>)| isequal(nom_type,<span class="string">'_i_j1-j2'</span>)| isequal(nom_type,<span class="string">'_i1-i2_j'</span>)| isequal(nom_type,<span class="string">'_i1-i2'</span>);
1700083 test_2D= isequal(nom_type,<span class="string">'netc_old'</span>) |isequal(nom_type,<span class="string">'netc_2D'</span>)|isequal(nom_type,<span class="string">'#_ab'</span>) |isequal(nom_type,<span class="string">'_i_j1-j2'</span>);
1710084 test_3D=isequal(nom_type,<span class="string">'netc_3D'</span>) |isequal(nom_type,<span class="string">'netc_series'</span>)| isequal(nom_type,<span class="string">'_i1-i2_j'</span>)| isequal(nom_type,<span class="string">'_i1-i2'</span>);
1720085 <span class="keyword">if</span> isequal(nom_type,<span class="string">'series_i'</span>)| isequal(nom_type,<span class="string">'_i'</span>);
1730086         filename=[filebase <span class="string">'_'</span> num2str(num_i1) ext];
1740087         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1750088 <span class="keyword">elseif</span> length(nom_type)==5 &amp;&amp; isequal(nom_type(1:3),<span class="string">'_%0'</span>)&amp;&amp; isequal(nom_type(5),<span class="string">'d'</span>);
1760089         filename=[filebase <span class="string">'_'</span> num2str(num_i1,nom_type(2:5)) ext];
1770090         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1780091 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'series_i_j'</span>)| isequal(nom_type,<span class="string">'_i_j'</span>)
1790092         filename=[filebase <span class="string">'_'</span> num2str(num_i1) <span class="string">'_'</span> num2str(num_j1) ext];
1800093         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1810094 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'png_old'</span>)| isequal(nom_type,<span class="string">'#a'</span>)| isequal(nom_type,<span class="string">'#A'</span>)
1820095         filename=[filebase num2str(num_i1,<span class="string">'%03d'</span>) <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type) ext];
1830096         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1840097 <span class="keyword">elseif</span>  length(nom_type)&gt;=5 &amp; isequal(nom_type(2:3),<span class="string">'%0'</span>) &amp; isequal(nom_type(5),<span class="string">'d'</span>)  <span class="comment">%isequal(nom_type,'_%04dA') %camera PCO Toulouse</span>
1850098         filename=[filebase nom_type(1) num2str(num_i1,nom_type(2:4)) <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type) ext];
1860099         idetect=(exist(filename,<span class="string">'file'</span>)==2);         
1870100 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'raw_SMD'</span>) <span class="comment">%suffix a, b, c without extension</span>
1880101         filename=[filebase num2str(num_i1,<span class="string">'%03d'</span>) <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type)];
1890102         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1900103 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'ima_num'</span>)| isequal(nom_type,<span class="string">'#'</span>)
1910104         filename=[filebase num2str(num_i1) ext];
1920105         idetect=(exist(filename,<span class="string">'file'</span>)==2);
1930106 <span class="keyword">elseif</span> length(nom_type)&gt;=4 &amp; isequal(nom_type(1:2),<span class="string">'%0'</span>) &amp; isequal(nom_type(end),<span class="string">'d'</span>)
1940107             filename=[filebase num2str(num_i1,nom_type) ext]; <span class="comment">%test number with a 0 before</span>
1950108             idetect=(exist(filename,<span class="string">'file'</span>)==2);
1960109
1970110 <span class="comment">%case of derived file indexing (e.g. netcdf files)</span>
1980111 <span class="keyword">elseif</span> test_pairs
1990112     <span class="keyword">if</span> (~exist(<span class="string">'num_j2'</span>,<span class="string">'var'</span>)| isequal(num_j2,[])) &amp; test_2D
2000113           num_j2=num_j1+1; <span class="comment">%default if num_j2 undefined</span>
2010114     <span class="keyword">end</span>
2020115     <span class="keyword">if</span> (~exist(<span class="string">'num_i2'</span>,<span class="string">'var'</span>)| isequal(num_i2,[])) &amp; test_3D
2030116           num_i2=num_i1+1; <span class="comment">%default if num_i2 undefined</span>
2040117     <span class="keyword">end</span>
2050118     filebasesub=filebase;
2060119     <span class="comment">% get the root name filebasesub for the netcdf files</span>
2070120     <span class="keyword">if</span>  ~isequal(subdir,<span class="string">''</span>) &amp;&amp; ~isequal(subdir,<span class="string">'?'</span>)
2080121             [Path,Name]=fileparts(filebase);
2090122             filebasesub=fullfile(Path,subdir,Name);
2100123     <span class="keyword">end</span>
2110124      <span class="comment">%inexistant pair if num_i2=0 or num_j2=0</span>
2120125     <span class="keyword">if</span> isequal(num_i2,0)
2130126         filename=[filebasesub <span class="string">'*-*_'</span> num2str(num_i1) ext];
2140127         <span class="keyword">return</span>
2150128     <span class="keyword">end</span>
2160129     <span class="keyword">if</span> isequal(num_j2,0)
2170130         filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_*-*'</span> ext];
2180131         <span class="keyword">return</span>
2190132     <span class="keyword">end</span>
2200133     <span class="comment">% case of an imposed image pair (comp_input=1)</span>
2210134     <span class="keyword">if</span>  (exist(<span class="string">'comp_input'</span>,<span class="string">'var'</span>) &amp; isequal(comp_input,1))
2220135             <span class="keyword">if</span> isequal(nom_type,<span class="string">'netc_old'</span>)|isequal(nom_type,<span class="string">'#_ab'</span>)
2230136                 <span class="keyword">if</span> isequal(num2str(num_j1),num2str(num_j2))<span class="comment">% case of displacements at the same time</span>
2240137                     filename=[filebasesub num2str(num_i1,<span class="string">'%03d'</span>) <span class="string">'_'</span> <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type) ext];
2250138                 <span class="keyword">else</span>
2260139                     filename=[filebasesub num2str(num_i1,<span class="string">'%03d'</span>) <span class="string">'_'</span> <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type) <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j2,nom_type) ext];
2270140                 <span class="keyword">end</span>
2280141             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_2D'</span>)|isequal(nom_type,<span class="string">'_i_j1-j2'</span>)
2290142                 <span class="keyword">if</span> isequal(num2str(num_j1),num2str(num_j2))<span class="comment">% case of displacements at the same time</span>
2300143                     filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_'</span> num2str(num_j1) ext];
2310144                 <span class="keyword">else</span>
2320145                     filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_'</span> num2str(num_j1) <span class="string">'-'</span> num2str(num_j2) ext];
2330146                 <span class="keyword">end</span>
2340147             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_3D'</span>) || isequal(nom_type,<span class="string">'_i1-i2_j'</span>)
2350148                 <span class="keyword">if</span> isequal(num2str(num_i1),num2str(num_i2))<span class="comment">% case of displacements at the same time</span>
2360149                       filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_'</span> num2str(num_j1) ext];
2370150                 <span class="keyword">else</span>
2380151                     filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-'</span> num2str(num_i2) <span class="string">'_'</span> num2str(num_j1) ext];
2390152                 <span class="keyword">end</span>
2400153             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_series'</span>) || isequal(nom_type,<span class="string">'_i1-i2'</span>)
2410154                 <span class="keyword">if</span> isequal(num2str(num_i1),num2str(num_i2))<span class="comment">% case of displacements at the same time</span>
2420155                      filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) ext];
2430156                 <span class="keyword">else</span>
2440157                     filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-'</span> num2str(num_i2) ext];
2450158                 <span class="keyword">end</span>
2460159             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'_i1-i2_j1-j2'</span>)
2470160                 <span class="keyword">if</span> isequal(num2str(num_i1),num2str(num_i2))<span class="comment">% case of displacements at the same time</span>
2480161                     app1= [num2str(num_i1)];
2490162                 <span class="keyword">else</span>
2500163                     app1= [num2str(num_i1) <span class="string">'-'</span> num2str(num_i2)];
2510164                 <span class="keyword">end</span>
2520165                 <span class="keyword">if</span> isequal(num2str(num_j1),num2str(num_j2))<span class="comment">% case of displacements at the same time</span>
2530166                     app2= [num2str(num_j1)];
2540167                 <span class="keyword">else</span>
2550168                     app2= [num2str(num_j1) <span class="string">'-'</span> num2str(num_j2)];
2560169                 <span class="keyword">end</span>     
2570170                 filename=[filebasesub <span class="string">'_'</span> app1 <span class="string">'_'</span> app2 ext];
2580171             <span class="keyword">end</span>
2590172             idetect=(exist(filename,<span class="string">'file'</span>)==2);
2600173      <span class="comment">% case of an image pair to determine (comp_input=0)</span>
2610174     <span class="keyword">else</span>
2620175             [filename,num_i1,num_j1,num_i2,num_j2,idetect]=<a href="#_sub1" class="code" title="subfunction [filename,num_i1,num_j1,num_i2,num_j2,idetect]=search_pair(filebasesub,num_i1,num_j1,num_i2,nom_type)">search_pair</a>(filebasesub,num_i1,num_j1,num_i2,nom_type);
2630176     <span class="keyword">end</span>
2640177     
2650178      <span class="comment">%look for sub-directories containing netcdf files</span>
2660179     <span class="keyword">if</span> idetect==0 &amp;&amp; isequal(subdir,<span class="string">'?'</span>)
2670180         [pathfile,name]=fileparts(filebase);
2680181         direct=dir(pathfile);<span class="comment">%directory containing filebase</span>
2690182         datedir=[];<span class="comment">%default</span>
2700183         idir=0;
2710184         indir=find(cell2mat({direct.isdir}));<span class="comment">% find indices of subdirectories</span>
2720185         direct=direct(indir([3:end]));<span class="comment">% keep only the subdirectories,eliminating the two first terms '.' and '..'</span>
2730186         lengthdir=length(direct);
2740187         <span class="keyword">if</span> lengthdir==0
2750188             subdir=<span class="string">''</span>;<span class="comment">% no subdirectory found</span>
2760189         <span class="keyword">else</span>
2770190             <span class="keyword">for</span> idir=1:lengthdir
2780191                 date_str=direct(idir).date;<span class="comment">%string of the date of last modification</span>
2790192                 datedir(idir)=0;<span class="comment">%default</span>
2800193                 char_code=double(date_str);<span class="comment">% code of the date characters</span>
2810194                 special_char=(char_code&gt;127); <span class="comment">%non standard Ascii character (e.g. date in french)</span>
2820195                 <span class="keyword">if</span> isempty(find(special_char))<span class="comment">% standard Ascii character</span>
2830196                     datedir(idir)=datenum(date_str);
2840197                 <span class="keyword">end</span>                           
2850198 <span class="comment">%                 datedir(idir)=datenum(direct(idir).date); %absolute date of last directory modification</span>
2860199             <span class="keyword">end</span>
2870200             [mostrec,indrec]=max(datedir);<span class="comment">% most recently modified subdir chosen by default</span>
2880201             subdir=direct(indrec).name; <span class="comment">%chosen directory</span>
2890202         <span class="keyword">end</span>
2900203         filebasesub=fullfile(pathfile,subdir,name);
2910204         <span class="comment">%if the image pair is imposed</span>
2920205         <span class="keyword">if</span> (exist(<span class="string">'comp_input'</span>,<span class="string">'var'</span>) &amp; isequal(comp_input,1))
2930206             <span class="keyword">if</span> isequal(nom_type,<span class="string">'netc_old'</span>)|isequal(nom_type,<span class="string">'#_ab'</span>)
2940207                 filename=[filebasesub num2str(num_i1,<span class="string">'%03d'</span>) <span class="string">'_'</span> <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j1,nom_type) <a href="num2stra.html" class="code" title="function str=num2stra(num,nom_type,index);">num2stra</a>(num_j2,nom_type) ext];
2950208             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_2D'</span>)|isequal(nom_type,<span class="string">'_i1_j1-j2'</span>)
2960209                 filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_'</span> num2str(num_j1) <span class="string">'-'</span> num2str(num_i2) ext];
2970210             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_3D'</span>)|isequal(nom_type,<span class="string">'_i1-i2_j'</span>)
2980211                 filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-'</span> num2str(num_i2) <span class="string">'_'</span> num2str(num_j1) ext];
2990212             <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_series'</span>)|isequal(nom_type,<span class="string">'_i1-i2'</span>)
3000213                 filename=[filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-'</span> num2str(num_i2) ext];
3010214             <span class="keyword">end</span>
3020215             idetect=(exist(filename,<span class="string">'file'</span>)==2);
3030216         <span class="keyword">else</span>
3040217             [filename,num_i1,num_j1,num_i2,num_j2,idetect]=<a href="#_sub1" class="code" title="subfunction [filename,num_i1,num_j1,num_i2,num_j2,idetect]=search_pair(filebasesub,num_i1,num_j1,num_i2,nom_type)">search_pair</a>(filebasesub,num_i1,num_j1,num_i2,nom_type);             
3050218         <span class="keyword">end</span>
3060219     <span class="keyword">end</span>
3070220 <span class="comment">% elseif isequal(nom_type,'none')|isequal(nom_type,'')|isequal(nom_type,'*')</span>
3080221 <span class="keyword">else</span>
3090222     filebasesub=filebase;
3100223     <span class="keyword">if</span> ~isequal(subdir,<span class="string">''</span>) &amp;&amp; ~isequal(subdir,<span class="string">'?'</span>)
3110224             [Path,Name]=fileparts(filebase);
3120225             filebasesub=fullfile(Path,subdir,Name);
3130226     <span class="keyword">end</span>
3140227     filename=[filebasesub ext];
3150228     idetect=(exist(filename,<span class="string">'file'</span>)==2); 
3160229 <span class="keyword">end</span>
3170230 num_i1_out=num_i1;
3180231 num_j1_out=num_j1;
3190232 <span class="keyword">if</span> exist(<span class="string">'num_i2'</span>,<span class="string">'var'</span>), num_i2_out=num_i2; <span class="keyword">else</span>, num_i2_out=[]; <span class="keyword">end</span>;
3200233 <span class="keyword">if</span> exist(<span class="string">'num_j2'</span>,<span class="string">'var'</span>), num_j2_out=num_j2; <span class="keyword">else</span>, num_j2_out=[]; <span class="keyword">end</span>;
3210234 <span class="keyword">if</span> ~isequal(subdir,<span class="string">'?'</span>), subdir_out=subdir; <span class="keyword">else</span>, subdir_out=<span class="string">''</span>;<span class="keyword">end</span>;
3220235
3230236 <span class="comment">%---------------------------------------------------------------</span>
3240237 <span class="comment">% search the appropriate image pair (netcdf file) corresponding to a given</span>
3250238 <span class="comment">% image number</span>
3260239 <span class="comment">%-------------------------------------------------------------------</span>
3270240 <a name="_sub1" href="#_subfunctions" class="code">function [filename,num_i1,num_j1,num_i2,num_j2,idetect]=search_pair(filebasesub,num_i1,num_j1,num_i2,nom_type)</a>
3280241 <span class="comment">% for nom_type=netc_2D or netc_old, it searches all the pairs corresponding</span>
3290242 <span class="comment">% to num_i1, and chooses the most recent file.</span>
3300243 <span class="comment">%for nom_type=netc_3D or netc_series, it searches all the pairs (num_i1</span>
3310244 <span class="comment">%num_i2), with num_i1 as the first  index, and chooses the most recent file.</span>
3320245
3330246 filename=[];num_j2=[];idetect=0;<span class="comment">%default values</span>
3340247 <span class="keyword">if</span> isequal(nom_type,<span class="string">'netc_old'</span>)|isequal(nom_type,<span class="string">'#_ab'</span>)
3350248     dirpair=dir([filebasesub num2str(num_i1,<span class="string">'%03d'</span>) <span class="string">'_*.nc'</span>]);
3360249 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_2D'</span>)|isequal(nom_type,<span class="string">'_i_j1-j2'</span>)
3370250     dirpair=dir([filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'_*-*.nc'</span>]);
3380251 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_3D'</span>)|isequal(nom_type,<span class="string">'_i1-i2_j'</span>)
3390252     dirpair=dir([filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-*_'</span> num2str(num_j1) <span class="string">'.nc'</span>]);
3400253 <span class="keyword">elseif</span> isequal(nom_type,<span class="string">'netc_series'</span>)|isequal(nom_type,<span class="string">'_i1-i2'</span>)
3410254     dirpair=dir([filebasesub <span class="string">'_'</span> num2str(num_i1) <span class="string">'-*.nc'</span>]);
3420255     <span class="keyword">if</span> isempty(dirpair)
3430256         dirpair=dir([filebasesub <span class="string">'_*-'</span> num2str(num_i2) <span class="string">'.nc'</span>]);
3440257     <span class="keyword">end</span>
3450258 <span class="keyword">end</span>
3460259 nbpair=length(dirpair);
3470260 <span class="keyword">if</span> nbpair &gt;= 1 <span class="comment">%choose the most recent file if several are found</span>
3480261     idetect=1; <span class="comment">%detected pair</span>
3490262     <span class="keyword">for</span> ipair=1:nbpair
3500263          date_str=dirpair(ipair).date;<span class="comment">%string of the date of last modification</span>
3510264          datepair(ipair)=0;<span class="comment">%default</span>
3520265          char_code=double(date_str);<span class="comment">% code of the date characters</span>
3530266          special_char=(char_code&gt;127); <span class="comment">%non standard Ascii character (e.g. date in french)</span>
3540267          <span class="keyword">if</span> isempty(find(special_char))<span class="comment">% standard Ascii character</span>
3550268              datepair(ipair)=datenum(date_str);
3560269          <span class="keyword">end</span>   
3570270       <span class="comment">%  datepair(ipair)=datenum(dirpair(ipair).date);</span>
3580271     <span class="keyword">end</span>
3590272     [choice,indpair]=max(datepair);
3600273 <span class="comment">%     [filebase,field_count,str2,str_a,str_b,ext,nom_type]=name2display(dirpair(indpair).name);</span>
3610274     [pathname,file,field_count,str2,str_a,str_b,ext,nom_type]=<a href="name2display.html" class="code" title="function [RootPath,RootFile,field_count,str2,str_a,str_b,ext,nom_type,subdir]=name2display(fileinput)">name2display</a>(dirpair(indpair).name);
3620275     num_i1=str2num(field_count);
3630276     num_i2=str2num(str2);
3640277     num_j1=<a href="stra2num.html" class="code" title="function numres=stra2num(str)">stra2num</a>(str_a);
3650278     num_j2=<a href="stra2num.html" class="code" title="function numres=stra2num(str)">stra2num</a>(str_b);
3660279      pathname=fileparts(filebasesub);<span class="comment">% CORRIGE LE 6 JUIN (ETAIT DESACTIVE)</span>
3670280     filename=fullfile(pathname,dirpair(indpair).name);
3680281 <span class="keyword">end</span>
3690282
3700283</pre></div>
371<hr><address>Generated on Fri 13-Nov-2009 11:17:03 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> &copy; 2003</address>
372</body>
373</html>
Note: See TracBrowser for help on using the repository browser.