Context Navigation

source: trunk/src/uvmat_doc/FUNCTIONS_DOC/get_field.html @ 37

Last change on this file since 37 was 37, checked in by sommeria, 14 years ago
create_grid.fig , uvmat_doc and all the included files added
File size: 142.4 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 get_field</title>
6	<meta name="keywords" content="get_field">
7	<meta name="description" content="'get_field': display variables and attributes from a Netcdf file, and plot selected fields">
8	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
9	<meta name="generator" content="m2html © 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> > <a href="index.html">.</a> > get_field.m</div>
16
17	<!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png"> Master index</a></td>
18	<td align="right"><a href="index.html">Index for . <img alt=">" border="0" src="../right.png"></a></td></tr></table>-->
19
20	<h1>get_field
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>'get_field': display variables and attributes from a Netcdf file, and plot selected fields</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 varargout = get_field(varargin) </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">'get_field': display variables and attributes from a Netcdf file, and plot selected fields
31	------------------------------------------------------------------------
32	function varargout = get_field(varargin)
33	associated with the GUI get_field.fig
34
35	AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
36	Copyright Joel Sommeria, 2008, LEGI / CNRS-UJF-INPG, sommeria@coriolis-legi.org.
37	AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
38	This file is part of the toolbox UVMAT.
39
40	UVMAT is free software; you can redistribute it and/or modify
41	it under the terms of the GNU General Public License as published by
42	the Free Software Foundation; either version 2 of the License, or
43	(at your option) any later version.
44
45	UVMAT is distributed in the hope that it will be useful,
46	but WITHOUT ANY WARRANTY; without even the implied warranty of
47	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
48	GNU General Public License (file UVMAT/COPYING.txt) for more details.
49	AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</pre></div>
50
51	<!-- crossreference -->
52	<h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
53	This function calls:
54	<ul style="list-style-image:url(../matlabicon.gif)">
55	<li><a href="cell2tab.html" class="code" title="function Tabchar=cell2tab(Tabcell,separator)">cell2tab</a> 'cell2tab': transform a Matlab cell in a character array suitable for display in a table</li><li><a href="check_functions.html" class="code" title="function [errormsg,date_str]=check_functions">check_functions</a> 'check_functions': check the path and modification date for all the</li><li><a href="find_field_indices.html" class="code" title="function [CellVarIndex,NbDim,VarType,errormsg]=find_field_indices(Data)">find_field_indices</a> 'find_file_indices': group the variables of a nc-formated Matlab structure into 'fields' with common dimensions</li><li><a href="msgbox_uvmat.html" class="code" title="function varargout = msgbox_uvmat(varargin)">msgbox_uvmat</a> 'msgbox_uvmat': associated with GUI msgbox_uvmat.fig to display message boxes, for error, warning or input calls</li><li><a href="nc2struct.html" class="code" title="function [Data,var_detect,ichoice]=nc2struct(nc,ListVarName)">nc2struct</a> 'nc2struct': transform a netcdf file in a corresponding matlab structure</li><li><a href="peaklock.html" class="code" title="function [histinter,x,error]=peaklock(nbb,minim,maxim,histu)">peaklock</a> 'peaklock': determines peacklocking errors from velocity histograms.</li><li><a href="plot_field.html" class="code" title="function [PlotType,PlotParamOut,haxes]= plot_field(Data,haxes,PlotParam,KeepLim,PosColorbar)">plot_field</a> 'plot_field': plot any field with the structure defined in the uvmat package</li><li><a href="read_get_field.html" class="code" title="function [SubField,errormsg]=read_get_field(hget_field)">read_get_field</a> 'read_get_field': read the list of selected variables from the GUI get_field (SAME AS THE FIRST</li><li><a href="update_menu.html" class="code" title="function menu_str=update_menu(handle,strinput)">update_menu</a> 'update_menu': find an input string in a menu, add it to the menu at the penultimate position if it does not exist</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><li><a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a> 'warndlg_uvmat': display warning message (error, warning, confirmation) in a given figure</li></ul>
56	This function is called by:
57	<ul style="list-style-image:url(../matlabicon.gif)">
58	<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>
59	<!-- crossreference -->
60
61	<h2><a name="_subfunctions"></a>SUBFUNCTIONS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
62	<ul style="list-style-image:url(../matlabicon.gif)">
63	<li><a href="#_sub1" class="code">function get_field_OpeningFcn(hObject, eventdata, handles,filename,Field,haxes)</a></li><li><a href="#_sub2" class="code">function varargout = get_field_OutputFcn(hObject, eventdata, handles)</a></li><li><a href="#_sub3" class="code">function browse_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub4" class="code">function inputfile_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub5" class="code">function Field_input(eventdata,handles,Field)</a></li><li><a href="#_sub6" class="code">function abscissa_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub7" class="code">function ordinate_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub8" class="code">function vector_x_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub9" class="code">function vector_y_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub10" class="code">function scalar_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub11" class="code">function update_field(hObject, eventdata, handles,VarName)</a></li><li><a href="#_sub12" class="code">function update_UserData(handles)</a></li><li><a href="#_sub13" class="code">function plot_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub14" class="code">function PLOT(hget_field)</a></li><li><a href="#_sub15" class="code">function plot_histo_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub16" class="code">function peaklocking(handles)</a></li><li><a href="#_sub17" class="code">function variables_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub18" class="code">function check_1Dplot_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub19" class="code">function check_scalar_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub20" class="code">function check_vector_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub21" class="code">function mouse_up_gui(ggg,eventdata,handles)</a></li><li><a href="#_sub22" class="code">function ACTION_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub23" class="code">function HELP_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub24" class="code">function browse_fig(menu_handle)</a></li><li><a href="#_sub25" class="code">function list_fig_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub26" class="code">function VarIndex_y=name2index(cell_str,ListVarName)</a></li><li><a href="#_sub27" class="code">function vector_z_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub28" class="code">function coord_z_scalar_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub29" class="code">function coord_x_scalar_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub30" class="code">function coord_y_scalar_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub31" class="code">function coord_y_vectors_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub32" class="code">function coord_x_vectors_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub33" class="code">function vec_color_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub34" class="code">function MenuOpen_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub35" class="code">function MenuExport_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub36" class="code">function MenuBrowse_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub37" class="code">function MenuFile_1_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub38" class="code">function MenuFile_2_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub39" class="code">function MenuFile_3_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub40" class="code">function MenuFile_4_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub41" class="code">function MenuFile_5_Callback(hObject, eventdata, handles)</a></li><li><a href="#_sub42" class="code">function ExportField_Callback(hObject, eventdata, handles)</a></li></ul>
64	<h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
65	<div class="fragment"><pre>0001 <span class="comment">%'get_field': display variables and attributes from a Netcdf file, and plot selected fields</span>
66	0002 <span class="comment">%------------------------------------------------------------------------</span>
67	0003 <span class="comment">%function varargout = get_field(varargin)</span>
68	0004 <span class="comment">% associated with the GUI get_field.fig</span>
69	0005 <span class="comment">%</span>
70	0006 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span>
71	0007 <span class="comment">% Copyright Joel Sommeria, 2008, LEGI / CNRS-UJF-INPG, sommeria@coriolis-legi.org.</span>
72	0008 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span>
73	0009 <span class="comment">% This file is part of the toolbox UVMAT.</span>
74	0010 <span class="comment">%</span>
75	0011 <span class="comment">% UVMAT is free software; you can redistribute it and/or modify</span>
76	0012 <span class="comment">% it under the terms of the GNU General Public License as published by</span>
77	0013 <span class="comment">% the Free Software Foundation; either version 2 of the License, or</span>
78	0014 <span class="comment">% (at your option) any later version.</span>
79	0015 <span class="comment">%</span>
80	0016 <span class="comment">% UVMAT is distributed in the hope that it will be useful,</span>
81	0017 <span class="comment">% but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
82	0018 <span class="comment">% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
83	0019 <span class="comment">% GNU General Public License (file UVMAT/COPYING.txt) for more details.</span>
84	0020 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span>
85	0021
86	0022 <a name="_sub0" href="#_subfunctions" class="code">function varargout = get_field(varargin)</a>
87	0023
88	0024 <span class="comment">% Last Modified by GUIDE v2.5 11-Nov-2009 18:59:57</span>
89	0025
90	0026 <span class="comment">% Begin initialization code - DO NOT EDIT</span>
91	0027 gui_Singleton = 0;
92	0028 gui_State = struct(<span class="string">'gui_Name'</span>, mfilename, <span class="keyword">...</span>
93	0029 <span class="string">'gui_Singleton'</span>, gui_Singleton, <span class="keyword">...</span>
94	0030 <span class="string">'gui_OpeningFcn'</span>, @<a href="#_sub1" class="code" title="subfunction get_field_OpeningFcn(hObject, eventdata, handles,filename,Field,haxes)">get_field_OpeningFcn</a>, <span class="keyword">...</span>
95	0031 <span class="string">'gui_OutputFcn'</span>, @<a href="#_sub2" class="code" title="subfunction varargout = get_field_OutputFcn(hObject, eventdata, handles)">get_field_OutputFcn</a>, <span class="keyword">...</span>
96	0032 <span class="string">'gui_LayoutFcn'</span>, [] , <span class="keyword">...</span>
97	0033 <span class="string">'gui_Callback'</span>, []);
98	0034 <span class="keyword">if</span> nargin & isstr(varargin{1})
99	0035 gui_State.gui_Callback = str2func(varargin{1});
100	0036 <span class="keyword">end</span>
101	0037
102	0038 <span class="keyword">if</span> nargout
103	0039 [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
104	0040 <span class="keyword">else</span>
105	0041 gui_mainfcn(gui_State, varargin{:});
106	0042 <span class="keyword">end</span>
107	0043 <span class="comment">% End initialization code - DO NOT EDIT</span>
108	0044
109	0045
110	0046 <span class="comment">% --- Executes just before get_field is made visible.</span>
111	0047 <a name="_sub1" href="#_subfunctions" class="code">function get_field_OpeningFcn(hObject, eventdata, handles,filename,Field,haxes)</a>
112	0048
113	0049 set(handles.dimensions,<span class="string">'enable'</span>,<span class="string">'on'</span>)<span class="comment">% should be put by guide</span>
114	0050 <a href="#_sub24" class="code" title="subfunction browse_fig(menu_handle)">browse_fig</a>(handles.list_fig)
115	0051
116	0052 <span class="comment">% Choose default command line output for get_field</span>
117	0053 handles.output = hObject;
118	0054
119	0055 <span class="comment">% Update handles structure</span>
120	0056 guidata(hObject, handles);
121	0057 pathuvmat=fileparts(which(<span class="string">'uvmat'</span>));
122	0058 addpath(fullfile(pathuvmat,<span class="string">'FIELD_FCT'</span>))
123	0059 set(handles.attributes,<span class="string">'enable'</span>,<span class="string">'on'</span>)<span class="comment">% TO BE SET BY GUIDE</span>
124	0060 set(hObject,<span class="string">'WindowButtonUpFcn'</span>,{@<a href="#_sub21" class="code" title="subfunction mouse_up_gui(ggg,eventdata,handles)">mouse_up_gui</a>,handles})<span class="comment">%set mouse click action function</span>
125	0061 <span class="keyword">if</span> exist(<span class="string">'filename'</span>,<span class="string">'var'</span>)& ischar(filename)
126	0062 set(handles.inputfile,<span class="string">'String'</span>,filename)
127	0063 <a href="#_sub4" class="code" title="subfunction inputfile_Callback(hObject, eventdata, handles)">inputfile_Callback</a>(hObject, eventdata, handles)
128	0064 <span class="keyword">else</span>
129	0065 set(handles.inputfile,<span class="string">'String'</span>,<span class="string">''</span>)
130	0066 <span class="comment">%loads the information stored in prefdir to initiate the browser and the list of functions</span>
131	0067 menu_str={<span class="string">'PLOT'</span>};<span class="comment">%list of functions included in 'get_field.m'</span>
132	0068 <span class="comment">%menu_str(end)=[];%remove from the list the last option 'more...'</span>
133	0069 path_get_field=which(<span class="string">'get_field'</span>);<span class="comment">%path of the function 'get_field'</span>
134	0070 <span class="keyword">for</span> ilist=1:length(menu_str)
135	0071 fct_path{ilist,1}=path_get_field;<span class="comment">%paths of the fuctions buil-in in 'get_field.m'</span>
136	0072 <span class="keyword">end</span>
137	0073 dir_perso=prefdir;
138	0074 profil_perso=fullfile(dir_perso,<span class="string">'uvmat_perso.mat'</span>);
139	0075 <span class="keyword">if</span> exist(profil_perso,<span class="string">'file'</span>)
140	0076 <span class="comment">% menu={'PLOT';'raw2phys';'histogram';'FFT';'peaklocking'};</span>
141	0077 h=load (profil_perso);
142	0078 <span class="keyword">if</span> isfield(h,<span class="string">'get_field_fct'</span>) && iscell(h.get_field_fct)
143	0079 <span class="keyword">for</span> ilist=1:length(h.get_field_fct)
144	0080 [path,file]=fileparts(h.get_field_fct{ilist});
145	0081 fct_path=[fct_path; {path}];<span class="comment">%concatene the list of paths</span>
146	0082 menu_str=[menu_str; {file}];
147	0083 <span class="keyword">end</span>
148	0084
149	0085 <span class="keyword">end</span>
150	0086 <span class="keyword">end</span>
151	0087 menu_str=[menu_str;{<span class="string">'more...'</span>}];
152	0088 set(handles.ACTION,<span class="string">'String'</span>,menu_str)
153	0089 set(handles.ACTION,<span class="string">'UserData'</span>,fct_path)<span class="comment">% store the list of path in UserData of ACTION</span>
154	0090 <span class="comment">% display the GUI for the default action 'check_files'</span>
155	0091 <a href="#_sub22" class="code" title="subfunction ACTION_Callback(hObject, eventdata, handles)">ACTION_Callback</a>(hObject, eventdata, handles)
156	0092 <span class="keyword">end</span>
157	0093 <span class="comment">% menu=[menu;h.fct_get_field];</span>
158	0094 <span class="comment">% menu=[menu;{'more...'}];</span>
159	0095 <span class="comment">% fct_path=h.fct_path_get_field;</span>
160	0096 <span class="comment">% set(handles.ACTION,'String',menu)</span>
161	0097 <span class="comment">% set(handles.ACTION,'UserData',fct_path)</span>
162	0098 <span class="comment">% for ipath=1:length(fct_path)</span>
163	0099 <span class="comment">% if exist(fct_path{ipath},'dir')</span>
164	0100 <span class="comment">% addpath(fct_path{ipath})</span>
165	0101 <span class="comment">% end</span>
166	0102 <span class="comment">% end</span>
167	0103 <span class="comment">% end</span>
168	0104 <span class="comment">% end</span>
169	0105 <span class="comment">% end</span>
170	0106 <span class="keyword">if</span> exist(<span class="string">'Field'</span>,<span class="string">'var'</span>) & isstruct(Field)
171	0107 <a href="#_sub5" class="code" title="subfunction Field_input(eventdata,handles,Field)">Field_input</a>(eventdata,handles,Field)
172	0108 <span class="keyword">if</span> exist(<span class="string">'haxes'</span>,<span class="string">'var'</span>)
173	0109 Field.PlotAxes=haxes;
174	0110 <span class="keyword">end</span>
175	0111 set(hObject,<span class="string">'UserData'</span>,Field);
176	0112 <span class="keyword">end</span>
177	0113
178	0114
179	0115
180	0116
181	0117
182	0118
183	0119 <span class="comment">%-----------------------------------------------------------</span>
184	0120 <span class="comment">% --- Outputs from this function are returned to the command line.</span>
185	0121 <a name="_sub2" href="#_subfunctions" class="code">function varargout = get_field_OutputFcn(hObject, eventdata, handles)</a>
186	0122 varargout{1} = handles.output;
187	0123
188	0124 <span class="comment">%-----------------------------------------------------------</span>
189	0125 <span class="comment">% --- Executes on button press in browse.</span>
190	0126 <a name="_sub3" href="#_subfunctions" class="code">function browse_Callback(hObject, eventdata, handles)</a>
191	0127
192	0128
193	0129
194	0130
195	0131 <span class="comment">%---------------------------------------------------------</span>
196	0132 <a name="_sub4" href="#_subfunctions" class="code">function inputfile_Callback(hObject, eventdata, handles)</a>
197	0133 inputfile=get(handles.inputfile,<span class="string">'String'</span>);
198	0134 Field=<a href="nc2struct.html" class="code" title="function [Data,var_detect,ichoice]=nc2struct(nc,ListVarName)">nc2struct</a>(inputfile,[]);<span class="comment">% reads only the lists of fields, dimensions and attributes</span>
199	0135 hfig=get(handles.inputfile,<span class="string">'parent'</span>);
200	0136 set(hfig,<span class="string">'UserData'</span>,Field);
201	0137 <a href="#_sub5" class="code" title="subfunction Field_input(eventdata,handles,Field)">Field_input</a>(eventdata,handles,Field);
202	0138
203	0139
204	0140 <span class="comment">%---------------------------------------------------------</span>
205	0141 <a name="_sub5" href="#_subfunctions" class="code">function Field_input(eventdata,handles,Field)</a>
206	0142
207	0143 <span class="keyword">if</span> isfield(Field,<span class="string">'ListDimName'</span>)
208	0144 Tabcell(:,1)=Field.ListDimName;
209	0145 <span class="keyword">for</span> iline=1:length(Field.ListDimName)
210	0146 Tabcell{iline,2}=num2str(Field.DimValue(iline));
211	0147 <span class="keyword">end</span>
212	0148 Tabchar=<a href="cell2tab.html" class="code" title="function Tabchar=cell2tab(Tabcell,separator)">cell2tab</a>(Tabcell,<span class="string">'='</span>);
213	0149 set(handles.dimensions,<span class="string">'String'</span>,Tabchar)
214	0150 <span class="keyword">end</span>
215	0151 <span class="keyword">if</span> ~isfield(Field,<span class="string">'ListVarName'</span>)
216	0152 <span class="keyword">return</span>
217	0153 <span class="keyword">end</span>
218	0154 Txt=Field.ListVarName;
219	0155 set(handles.variables,<span class="string">'Value'</span>,1)
220	0156 set(handles.variables,<span class="string">'String'</span>,[{<span class="string">'*'</span>} Txt])
221	0157 <a href="#_sub17" class="code" title="subfunction variables_Callback(hObject, eventdata, handles)">variables_Callback</a>(handles.variables,[], handles)
222	0158 set(handles.abscissa,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
223	0159 set(handles.ordinate,<span class="string">'String'</span>,Txt)
224	0160 set(handles.vector_x,<span class="string">'String'</span>,[Txt ])
225	0161 set(handles.vector_y,<span class="string">'String'</span>,[Txt ])
226	0162 set(handles.vector_z,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
227	0163 set(handles.vec_color,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
228	0164 set(handles.coord_x_scalar,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
229	0165 set(handles.coord_y_scalar,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
230	0166 set(handles.coord_x_vectors,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
231	0167 set(handles.coord_y_vectors,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
232	0168 set(handles.coord_z_scalar,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
233	0169 set(handles.coord_z_vectors,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
234	0170 set(handles.scalar,<span class="string">'Value'</span>,1)
235	0171 set(handles.scalar,<span class="string">'String'</span>, Txt )
236	0172
237	0173 [CellVarIndex,NbDim,VarType,errormsg]=<a href="find_field_indices.html" class="code" title="function [CellVarIndex,NbDim,VarType,errormsg]=find_field_indices(Data)">find_field_indices</a>(Field);
238	0174 <span class="keyword">if</span> ~isempty(errormsg)
239	0175 <a href="msgbox_uvmat.html" class="code" title="function varargout = msgbox_uvmat(varargin)">msgbox_uvmat</a>(<span class="string">'ERROR'</span>,[<span class="string">'error in get_field/Field_input/find_field_indices: '</span> errormsg])
240	0176 <span class="keyword">return</span>
241	0177 <span class="keyword">end</span>
242	0178 [maxdim,imax]=max(NbDim);
243	0179
244	0180 <span class="keyword">if</span> maxdim>=3
245	0181 set(handles.vector_z,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
246	0182 set(handles.vector_z,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
247	0183 set(handles.coord_z_vectors,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
248	0184 set(handles.coord_z_vectors,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
249	0185 set(handles.coord_z_scalar,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
250	0186 set(handles.coord_z_scalar,<span class="string">'String'</span>,[{<span class="string">''</span>} Txt ])
251	0187 <span class="keyword">else</span>
252	0188 set(handles.vector_z,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
253	0189 set(handles.coord_z_vectors,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
254	0190 set(handles.coord_z_scalar,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
255	0191 <span class="keyword">end</span>
256	0192 <span class="keyword">if</span> maxdim>=2
257	0193 set(handles.check_1Dplot,<span class="string">'Value'</span>,0)
258	0194 <span class="keyword">if</span> ~isempty(VarType{imax}.vector_x) && ~isempty(VarType{imax}.vector_y)
259	0195 set(handles.check_vector,<span class="string">'Value'</span>,1)
260	0196 set(handles.vector_x,<span class="string">'Value'</span>,VarType{imax}.vector_x)
261	0197 set(handles.vector_y,<span class="string">'Value'</span>,VarType{imax}.vector_y)
262	0198 set(handles.check_scalar,<span class="string">'Value'</span>,0)
263	0199 <span class="keyword">else</span>
264	0200 set(handles.check_scalar,<span class="string">'Value'</span>,1)
265	0201 set(handles.check_vector,<span class="string">'Value'</span>,0)
266	0202 <span class="keyword">if</span> isfield(VarType{imax},<span class="string">'scalar'</span>) && length(VarType{imax}.scalar)>=1
267	0203 set(handles.scalar,<span class="string">'Value'</span>,VarType{imax}.scalar(1))
268	0204 <span class="keyword">end</span>
269	0205 <span class="keyword">end</span>
270	0206 <a href="#_sub18" class="code" title="subfunction check_1Dplot_Callback(hObject, eventdata, handles)">check_1Dplot_Callback</a>(handles.check_1Dplot, eventdata, handles)
271	0207 <a href="#_sub19" class="code" title="subfunction check_scalar_Callback(hObject, eventdata, handles)">check_scalar_Callback</a>(handles.check_scalar, eventdata, handles)
272	0208 <a href="#_sub20" class="code" title="subfunction check_vector_Callback(hObject, eventdata, handles)">check_vector_Callback</a>(handles.check_vector, eventdata, handles)
273	0209 <span class="keyword">end</span>
274	0210
275	0211
276	0212
277	0213 <span class="comment">%----------------------------------------------------------------------</span>
278	0214 <span class="comment">% --- Executes on selection change in abscissa.</span>
279	0215 <a name="_sub6" href="#_subfunctions" class="code">function abscissa_Callback(hObject, eventdata, handles)</a>
280	0216 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);
281	0217 Field=get(hselect_field,<span class="string">'UserData'</span>);<span class="comment">%current input field</span>
282	0218 xdispindex=get(handles.abscissa,<span class="string">'Value'</span>);<span class="comment">%index in the list of abscissa</span>
283	0219 <span class="comment">% test_2D=get(handles.check_vector,'Value');% =1 for vector fields</span>
284	0220 <span class="comment">% test_scalar=get(handles.check_scalar,'Value');% =1 for scalar fields</span>
285	0221 <span class="comment">%if isequal(xdispindex,1)% blank selection, no selected variable for abscissa</span>
286	0222 <span class="comment">% Txt=Field.ListVarName;</span>
287	0223 <span class="comment">% set(handles.ordinate,'String',[{''} Txt ])% display all the varaibles in the list of ordinates</span>
288	0224 <span class="comment">% xindex=[];</span>
289	0225 <span class="comment">% else</span>
290	0226 xlist=get(handles.abscissa,<span class="string">'String'</span>);<span class="comment">%list of abscissa</span>
291	0227 xname=xlist{xdispindex}; <span class="comment">%selected variable name</span>
292	0228 xindex=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(xname,Field.ListVarName); <span class="comment">%index of the selection in the total list of variables</span>
293	0229 <span class="keyword">if</span> ~isempty(xindex)
294	0230 set(handles.variables,<span class="string">'Value'</span>,xindex+1)
295	0231 <a href="#_sub17" class="code" title="subfunction variables_Callback(hObject, eventdata, handles)">variables_Callback</a>(hObject, eventdata, handles)
296	0232 <span class="keyword">end</span>
297	0233 <span class="comment">% set(handles.variables,'Value',xindex+1)%outline in the list of variables</span>
298	0234 <span class="comment">% variables_Callback(hObject, eventdata, handles) %display properties of the variable (dim, attributes)</span>
299	0235 <span class="comment">% if ~test_2D & ~test_scalar% look for possible varaibles to plot in ordinate</span>
300	0236 <span class="comment">% index=Field.VarDimIndex{xindex};%dimension indices of the variable selected for abscissa</span>
301	0237 <span class="comment">% VarIndex=[];</span>
302	0238 <span class="comment">% for ilist=1:length(Field.VarDimIndex)%detect</span>
303	0239 <span class="comment">% index_i=Field.VarDimIndex{ilist};</span>
304	0240 <span class="comment">% if ~isempty(index_i)</span>
305	0241 <span class="comment">% if isequal(index_i(1),index(1))%if the first dimension of the variable coincide with the selected one, plot is possible</span>
306	0242 <span class="comment">% VarIndex=[VarIndex ilist];</span>
307	0243 <span class="comment">% end</span>
308	0244 <span class="comment">% end</span>
309	0245 <span class="comment">% end</span>
310	0246 <span class="comment">% % set(handles.ordinate,'Value',1)</span>
311	0247 <span class="comment">% set(handles.ordinate,'String',Field.ListVarName(VarIndex))</span>
312	0248 <span class="comment">% end</span>
313	0249 <span class="comment">% end</span>
314	0250 <span class="comment">%</span>
315	0251 <span class="comment">% update_UserData(handles)</span>
316	0252
317	0253 <span class="comment">%----------------------------------------------------------</span>
318	0254 <a name="_sub7" href="#_subfunctions" class="code">function ordinate_Callback(hObject, eventdata, handles)</a>
319	0255 <span class="comment">%update_field(hObject, eventdata, handles)</span>
320	0256 <span class="comment">% A REVOIR</span>
321	0257 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);
322	0258 Field=get(hselect_field,<span class="string">'UserData'</span>);
323	0259 <span class="comment">% xindex=get(handles.abscissa,'Value');</span>
324	0260 list=get(handles.ordinate,<span class="string">'String'</span>);
325	0261 yindex=get(handles.ordinate,<span class="string">'Value'</span>);
326	0262 yindex=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list{yindex(1)},Field.ListVarName);
327	0263 <span class="keyword">if</span> ~isempty(yindex)
328	0264 set(handles.variables,<span class="string">'Value'</span>,yindex+1)
329	0265 <a href="#_sub17" class="code" title="subfunction variables_Callback(hObject, eventdata, handles)">variables_Callback</a>(hObject, eventdata, handles)
330	0266 <span class="keyword">end</span>
331	0267 [CellVarIndex,NbDim,VarType,errormsg]=<a href="find_field_indices.html" class="code" title="function [CellVarIndex,NbDim,VarType,errormsg]=find_field_indices(Data)">find_field_indices</a>(Field);
332	0268 <span class="keyword">for</span> icell=1:numel(CellVarIndex)
333	0269 VarIndex=CellVarIndex{icell};
334	0270 <span class="keyword">if</span> ~isempty(find(VarIndex==yindex)) && (isempty(VarType{icell}.coord_x)\|\|~isequal(VarType{icell}.coord_x,VarIndex))
335	0271 cell_select=icell;
336	0272 <span class="keyword">break</span>
337	0273 <span class="keyword">end</span>
338	0274 <span class="keyword">end</span>
339	0275
340	0276 val=get(handles.abscissa,<span class="string">'Value'</span>);
341	0277 set(handles.abscissa,<span class="string">'Value'</span>,min(val,2));
342	0278 coord_x_index=VarType{cell_select}.coord;
343	0279 coord_x_index=coord_x_index(find(coord_x_index));
344	0280 set(handles.abscissa,<span class="string">'String'</span>,[{<span class="string">''</span>}; (Field.ListVarName(coord_x_index))'; (Field.ListVarName(VarIndex))'])
345	0281 <span class="comment">% Field.VarIndex.y=yindex;</span>
346	0282 <span class="comment">% set(hselect_field,'UserData',Field);</span>
347	0283 <span class="comment">%update_UserData(handles)</span>
348	0284
349	0285 <span class="comment">%----------------------------------------------------------</span>
350	0286 <span class="comment">% --- Executes on selection change in vector_y.</span>
351	0287 <a name="_sub8" href="#_subfunctions" class="code">function vector_x_Callback(hObject, eventdata, handles)</a>
352	0288 Aindex=get(handles.vector_x,<span class="string">'Value'</span>);
353	0289 Astring=get(handles.vector_x,<span class="string">'String'</span>);
354	0290 VarName=Astring{Aindex};
355	0291 <span class="comment">%update_field(hObject, eventdata, handles,VarName)</span>
356	0292
357	0293 <span class="comment">%----------------------------------------------------------</span>
358	0294 <span class="comment">% --- Executes on selection change in vector_y.</span>
359	0295 <a name="_sub9" href="#_subfunctions" class="code">function vector_y_Callback(hObject, eventdata, handles)</a>
360	0296 Aindex=get(handles.vector_y,<span class="string">'Value'</span>);
361	0297 Astring=get(handles.vector_y,<span class="string">'String'</span>);
362	0298 VarName=Astring{Aindex};
363	0299 <span class="comment">%update_field(hObject, eventdata, handles,VarName)</span>
364	0300
365	0301 <span class="comment">%-------------------------------------------------------</span>
366	0302 <span class="comment">% --- Executes on selection change in vector_y.</span>
367	0303 <a name="_sub10" href="#_subfunctions" class="code">function scalar_Callback(hObject, eventdata, handles)</a>
368	0304
369	0305 Aindex=get(handles.scalar,<span class="string">'Value'</span>);
370	0306 Astring=get(handles.scalar,<span class="string">'String'</span>);
371	0307 VarName=Astring{Aindex};
372	0308 <span class="comment">%update_field(hObject, eventdata, handles,VarName)</span>
373	0309
374	0310 <span class="comment">%---------------------------------</span>
375	0311 <a name="_sub11" href="#_subfunctions" class="code">function update_field(hObject, eventdata, handles,VarName)</a>
376	0312 <span class="comment">% VarName= input variable name for scalar or vector plots</span>
377	0313 <span class="comment">%if ischar(VarName)</span>
378	0314 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);
379	0315 Field=get(hselect_field,<span class="string">'UserData'</span>);
380	0316 ivar_sel=[];<span class="comment">%default</span>
381	0317 <span class="keyword">for</span> ivar=1:length(Field.ListVarName)<span class="comment">%detect</span>
382	0318 <span class="keyword">if</span> isequal(Field.ListVarName{ivar},VarName)
383	0319 ivar_sel=ivar; <span class="comment">%ivar_sel = index of the input variable in the list ListVarName</span>
384	0320 <span class="keyword">break</span>
385	0321 <span class="keyword">end</span>
386	0322 <span class="keyword">end</span>
387	0323 <span class="keyword">if</span> isempty(ivar_sel)
388	0324 <span class="keyword">return</span>
389	0325 <span class="keyword">end</span>
390	0326 set(handles.variables,<span class="string">'Value'</span>,ivar_sel+1)<span class="comment">%select the corresponding item in the displayed list 'variables'</span>
391	0327 <a href="#_sub17" class="code" title="subfunction variables_Callback(hObject, eventdata, handles)">variables_Callback</a>(hObject, eventdata, handles)<span class="comment">%show the dimensions and attributes of the input variable</span>
392	0328
393	0329 index=Field.VarDimIndex{ivar_sel};<span class="comment">%dimension indices of the input variable</span>
394	0330 DimValue=Field.DimValue(index);<span class="comment">%dimension values of the input variable</span>
395	0331 ind_1=find(DimValue==1);
396	0332 index(ind_1)=[];<span class="comment">%Mremove singletons</span>
397	0333
398	0334
399	0335 <span class="comment">% detect possible variables for abscissa and ordinate</span>
400	0336 VarIndex=[];<span class="comment">%initiate list of selected variable indices</span>
401	0337 ind_coordvar=[]; <span class="comment">%initiate list of coordinate variables</span>
402	0338 <span class="keyword">for</span> ilist=1:length(Field.VarDimIndex)
403	0339 <span class="keyword">if</span> ~isequal(ilist,ivar_sel)
404	0340 index_i=Field.VarDimIndex{ilist};<span class="comment">%indices of dimensions associated with variable #ilist</span>
405	0341 <span class="keyword">if</span> length(index_i)>1
406	0342 DimValue=Field.DimValue(index_i);
407	0343 ind_1=find(DimValue==1);
408	0344 index_i(ind_1)=[];<span class="comment">%Mremove singletons</span>
409	0345 <span class="keyword">if</span> isequal(index,index_i)
410	0346 VarIndex=[VarIndex ilist]; <span class="comment">%selected variable withb the same dimensions of the input variable</span>
411	0347 <span class="keyword">end</span>
412	0348 <span class="keyword">else</span>
413	0349 idim=find(index==index_i(1));
414	0350 <span class="keyword">if</span> ~isempty(idim)
415	0351 VarIndex=[VarIndex ilist]; <span class="comment">%possible dimension variable</span>
416	0352 <span class="keyword">if</span> isequal(Field.ListDimName{index_i(1)},Field.ListVarName{ilist})
417	0353 ind_coordvar=[ind_coordvar length(VarIndex)];
418	0354 <span class="keyword">end</span>
419	0355 <span class="keyword">end</span>
420	0356 <span class="keyword">end</span>
421	0357 <span class="keyword">end</span>
422	0358 <span class="keyword">end</span>
423	0359 <span class="comment">% val=get(handles.abscissa,'Value');</span>
424	0360 <span class="comment">% if val>length(Field.ListVarName(VarIndex))+1</span>
425	0361 <span class="comment">% set(handles.abscissa,'Value',length(Field.ListVarName(VarIndex))+1)</span>
426	0362 <span class="comment">% end</span>
427	0363 <span class="comment">% val=get(handles.ordinate,'Value');</span>
428	0364 <span class="comment">% if val>length(Field.ListVarName(VarIndex))+1</span>
429	0365 <span class="comment">% set(handles.abscissa,'Value',length(Field.ListVarName(VarIndex))+1)</span>
430	0366 <span class="comment">% end</span>
431	0367 <span class="comment">% val=get(handles.coord_z_vectors_scalar,'Value');</span>
432	0368 <span class="comment">% if val>length(Field.ListVarName(VarIndex))+1</span>
433	0369 <span class="comment">% set(handles.abscissa,'Value',length(Field.ListVarName(VarIndex))+1)</span>
434	0370 <span class="comment">% end</span>
435	0371 set(handles.abscissa,<span class="string">'Value'</span>,1)<span class="comment">%default</span>
436	0372 set(handles.ordinate,<span class="string">'Value'</span>,1)<span class="comment">%default</span>
437	0373 set(handles.coord_z_scalar,<span class="string">'Value'</span>,1)<span class="comment">%default</span>
438	0374 set(handles.abscissa,<span class="string">'String'</span>,[{<span class="string">''</span>} Field.ListVarName(VarIndex) ])
439	0375 set(handles.ordinate,<span class="string">'String'</span>,[{<span class="string">''</span>} Field.ListVarName(VarIndex) ])
440	0376 set(handles.coord_z_scalar,<span class="string">'String'</span>,[{<span class="string">''</span>} Field.ListVarName(VarIndex) ])
441	0377 <span class="keyword">if</span> length(ind_coordvar)>=1
442	0378 set(handles.abscissa,<span class="string">'Value'</span>,ind_coordvar(1)+1)
443	0379 <span class="keyword">elseif</span> length(index)==1 && length(VarIndex)>=1
444	0380 set(handles.abscissa,<span class="string">'Value'</span>,2)
445	0381 <span class="keyword">end</span>
446	0382 <span class="keyword">if</span> length(ind_coordvar)>=2
447	0383 set(handles.ordinate,<span class="string">'Value'</span>,ind_coordvar(2)+1)
448	0384 <span class="keyword">elseif</span> length(index)==1 && length(VarIndex)>=2
449	0385 set(handles.ordinate,<span class="string">'Value'</span>,3)
450	0386 <span class="keyword">end</span>
451	0387 <span class="keyword">if</span> length(ind_coordvar)>=3
452	0388 set(handles.coord_z_scalar,<span class="string">'Value'</span>,ind_coordvar(3)+1)
453	0389 <span class="keyword">elseif</span> length(index)==1 && length(VarIndex)>=3
454	0390 set(handles.coord_z_scalar,<span class="string">'Value'</span>,4)
455	0391 <span class="keyword">end</span>
456	0392
457	0393 <span class="comment">%---------------------------------------------------------</span>
458	0394 <span class="comment">% update the UserData Field for use of the selected variables outsde get_field (taken from plot_Callback)</span>
459	0395 <a name="_sub12" href="#_subfunctions" class="code">function update_UserData(handles)</a>
460	0396 <span class="comment">%---------------------------------------------------------</span>
461	0397 <span class="keyword">return</span>
462	0398 <span class="comment">% global SubField</span>
463	0399 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);<span class="comment">%handle of the get_field interface</span>
464	0400 Field=get(hselect_field,<span class="string">'UserData'</span>);<span class="comment">% read the current field Structure in the get_field interface</span>
465	0401 <span class="keyword">if</span> isfield(Field,<span class="string">'VarAttribute'</span>)
466	0402 VarAttribute=Field.VarAttribute;
467	0403 <span class="keyword">else</span>
468	0404 VarAttribute={};
469	0405 <span class="keyword">end</span>
470	0406
471	0407
472	0408 <span class="comment">% select the indices of field variables for 2D plots</span>
473	0409 test_check_1Dplot=get(handles.check_1Dplot,<span class="string">'Value'</span>);
474	0410 test_scalar=get(handles.check_scalar,<span class="string">'Value'</span>);
475	0411 test_vector=get(handles.check_vector,<span class="string">'Value'</span>);
476	0412
477	0413 <span class="comment">%transform if needed (calibration)</span>
478	0414 list=get(handles.menu_coord,<span class="string">'String'</span>);
479	0415 index=get(handles.menu_coord,<span class="string">'Value'</span>);
480	0416 transform=list{index};
481	0417 <span class="keyword">if</span> ~isequal(transform,<span class="string">''</span>)
482	0418 Field=feval(transform,Field);
483	0419 <span class="keyword">end</span>
484	0420 VarIndex.u=[];
485	0421 VarIndex.v=[];
486	0422 VarIndex.w=[];
487	0423 VarIndex.A=[];
488	0424 VarIndex_tot=[];
489	0425 iuA=[];
490	0426 <span class="keyword">if</span> test_scalar
491	0427 Astring=get(handles.scalar,<span class="string">'String'</span>);
492	0428 Aindex=get(handles.scalar,<span class="string">'Value'</span>);<span class="comment">%selected indices in the ordinate listbox</span>
493	0429 list_var=Astring(Aindex);
494	0430 VarIndex.A=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);<span class="comment">%index of the variable A in ListVarName</span>
495	0431 VarIndex_tot= [VarIndex_tot VarIndex.A];
496	0432 DimIndex=Field.VarDimIndex{VarIndex.A};<span class="comment">%dimension indices of the variable</span>
497	0433 DimValue=Field.DimValue(DimIndex);
498	0434 ind=find(DimValue==1);
499	0435 DimIndex(ind)=[];<span class="comment">%Mremove singleton</span>
500	0436 <span class="keyword">end</span>
501	0437 <span class="keyword">if</span> test_vector
502	0438 Ustring=get(handles.vector_x,<span class="string">'String'</span>);
503	0439 Uindex=get(handles.vector_x,<span class="string">'Value'</span>); <span class="comment">%selected indices in the ordinate listbox</span>
504	0440 list_var=Ustring{Uindex};<span class="comment">%name of the selected scalar</span>
505	0441 VarIndex.u=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);
506	0442 Vstring=get(handles.vector_y,<span class="string">'String'</span>);
507	0443 Vindex=get(handles.vector_y,<span class="string">'Value'</span>); <span class="comment">%selected indices in the ordinate listbox</span>
508	0444 list_var=Ustring{Vindex};<span class="comment">%name of the selected scalar</span>
509	0445 VarIndex.v=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);
510	0446 <span class="keyword">if</span> isequal(VarIndex.u,VarIndex.A)\|isequal(VarIndex.v,VarIndex.A)
511	0447 iuA=VarIndex.A; <span class="comment">%same variable used for vector and scalar</span>
512	0448 VarIndex_tot(iuA)=[];
513	0449 <span class="keyword">end</span>
514	0450 VarIndex_tot=[VarIndex_tot VarIndex.u VarIndex.v];
515	0451 <span class="comment">%dimensions</span>
516	0452 DimIndex_u=Field.VarDimIndex{VarIndex.u};<span class="comment">%dimension indices of the variable</span>
517	0453 DimValue=Field.DimValue(DimIndex_u);
518	0454 ind=find(DimValue==1);
519	0455 DimIndex_u(ind)=[];<span class="comment">%Mremove singleton</span>
520	0456 DimIndex_v=Field.VarDimIndex{VarIndex.v};<span class="comment">%dimension indices of the variable</span>
521	0457 DimValue=Field.DimValue(DimIndex_v);
522	0458 ind=find(DimValue==1);
523	0459 DimIndex_v(ind)=[];<span class="comment">%Mremove singleton</span>
524	0460 <span class="keyword">if</span> ~isequal(DimIndex_u,DimIndex_v)
525	0461 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'inconsistent dimensions for u and v'</span>,<span class="string">'ERROR'</span>)
526	0462 set(handles.vector_y,<span class="string">'Value'</span>,1);
527	0463 <span class="keyword">return</span>
528	0464 <span class="keyword">elseif</span> test_scalar & ~isequal(DimIndex_u,DimIndex)
529	0465 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'inconsistent dimensions for vector and scalar represented as vector color'</span>,<span class="string">'ERROR'</span>)
530	0466 set(handles.scalar,<span class="string">'Value'</span>,1);
531	0467 <span class="keyword">return</span>
532	0468 <span class="keyword">end</span>
533	0469 DimIndex=DimIndex_u;
534	0470 <span class="comment">%TODO possibility of selecting 3 times the same variable for u, v, w components</span>
535	0471 <span class="keyword">end</span>
536	0472
537	0473
538	0474 <span class="comment">% select the variable index (or indices) for z coordinates</span>
539	0475 test_grid=0;
540	0476 <span class="keyword">if</span> test_scalar \| test_vector
541	0477 nbdim=length(DimIndex);
542	0478 <span class="keyword">if</span> nbdim > 3
543	0479 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'array with more than three dimensions, not supported'</span>,<span class="string">'ERROR'</span>)
544	0480 <span class="keyword">return</span>
545	0481 <span class="keyword">else</span>
546	0482 perm_ind=[1:nbdim];
547	0483 <span class="keyword">end</span>
548	0484 <span class="keyword">if</span> nbdim==3
549	0485 zstring=get(handles.coord_z_vectors_scalar,<span class="string">'String'</span>);
550	0486 zindex=get(handles.coord_z_vectors_scalar,<span class="string">'Value'</span>); <span class="comment">%selected indices in the ordinate listbox</span>
551	0487 list_var=zstring(zindex);
552	0488 VarIndex_z=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);<span class="comment">%index of the selected variable</span>
553	0489 <span class="keyword">if</span> isequal(VarIndex.A,VarIndex_z)\|isequal(VarIndex.u,VarIndex_z)\|isequal(VarIndex.v,VarIndex_z)\|isequal(VarIndex.w,VarIndex_z)
554	0490 <span class="keyword">if</span> zindex ~= 1
555	0491 set(handles.coord_z_vectors_scalar,<span class="string">'Value'</span>,1)<span class="comment">%ordinate cannot be the same as scalar or vector components</span>
556	0492 <span class="keyword">return</span>
557	0493 <span class="keyword">end</span>
558	0494 <span class="keyword">else</span>
559	0495 VarIndex_tot=[VarIndex_tot VarIndex_z];
560	0496 DimIndex_z=Field.VarDimIndex{VarIndex_z};
561	0497 DimValue=Field.DimValue(DimIndex_z);
562	0498 ind=find(DimValue==1);
563	0499 DimIndex_z(ind)=[];<span class="comment">%Mremove singleton</span>
564	0500 <span class="keyword">if</span> isequal(DimIndex_z,DimIndex)
565	0501 VarAttribute{VarIndex_z}.Role=<span class="string">'coord_z'</span>;<span class="comment">%unstructured coordinates</span>
566	0502 <span class="keyword">elseif</span> length(DimIndex_z)==1
567	0503 VarAttribute{VarIndex_z}.Role=Field.ListDimName{DimIndex_z}; <span class="comment">%dimension variable</span>
568	0504 ind_z=find(DimIndex==DimIndex_z(1));
569	0505 perm_ind(ind_z)=1;
570	0506 test_grid=1;
571	0507 <span class="keyword">else</span>
572	0508 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'multiple dimensions for the z coordinate'</span>,<span class="string">'ERROR'</span>)
573	0509 <span class="keyword">return</span>
574	0510 <span class="keyword">end</span>
575	0511 <span class="keyword">end</span>
576	0512 <span class="comment">% if ~isempty(VarIndex_z)</span>
577	0513 <span class="comment">% DimIndex_z=Field.VarDimIndex{VarIndex_z};%dimension indices of the variable</span>
578	0514 <span class="comment">% if length(DimIndex_z)==1 & nbdim==3 %dimension variable</span>
579	0515 <span class="comment">% VarAttribute{VarIndex_z}.Role=Field.ListDimName{DimIndex_z};</span>
580	0516 <span class="comment">% ind_z=find(DimIndex==DimIndex_z(1));</span>
581	0517 <span class="comment">% perm_ind(ind_z)=1;</span>
582	0518 <span class="comment">% test_grid=1;</span>
583	0519 <span class="comment">% end</span>
584	0520 <span class="comment">% end</span>
585	0521 <span class="keyword">end</span>
586	0522 <span class="keyword">end</span>
587	0523
588	0524 <span class="comment">% select the variable index (or indices) for ordinate</span>
589	0525 ystring=get(handles.ordinate,<span class="string">'String'</span>);
590	0526 yindex=get(handles.ordinate,<span class="string">'Value'</span>); <span class="comment">%selected indices in the ordinate listbox</span>
591	0527 list_var=ystring(yindex);
592	0528 VarIndex.y=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);
593	0529 <span class="keyword">if</span> isequal(VarIndex.A,VarIndex.y)
594	0530 set(handles.coord_y_scalar,<span class="string">'Value'</span>,1)
595	0531 <span class="keyword">elseif</span> isequal(VarIndex.u,VarIndex.y)\|\|isequal(VarIndex.v,VarIndex.y)\|\|isequal(VarIndex.w,VarIndex.y)
596	0532 set(handles.coord_y_vectors,<span class="string">'Value'</span>,1)<span class="comment">%ordinate cannot be the same as scalar or vector components</span>
597	0533 <span class="keyword">else</span>
598	0534 <span class="keyword">for</span> ivar=1:length(VarIndex.y)
599	0535 VarAttribute{VarIndex.y(ivar)}.Role=<span class="string">'coord_y'</span>;
600	0536 <span class="keyword">end</span>
601	0537 VarIndex_tot=[VarIndex_tot VarIndex.y];
602	0538 <span class="keyword">end</span>
603	0539 <span class="keyword">if</span> (test_scalar \| test_vector) & ~isempty(VarIndex.y)
604	0540 DimIndex_y=Field.VarDimIndex{VarIndex.y};<span class="comment">%dimension indices of the variable</span>
605	0541 <span class="keyword">if</span> length(DimIndex_y)==1
606	0542 ind_y=find(DimIndex==DimIndex_y(1));
607	0543 test_grid=1;
608	0544 <span class="keyword">if</span> nbdim==3
609	0545 VarAttribute{VarIndex.y}.Role=Field.ListDimName{DimIndex_y};
610	0546 perm_ind(ind_y)=2;
611	0547 <span class="keyword">elseif</span> nbdim==2
612	0548 VarAttribute{VarIndex.y}.Role=Field.ListDimName{DimIndex_y};
613	0549 perm_ind(ind_y)=1;
614	0550 <span class="keyword">end</span>
615	0551 <span class="keyword">elseif</span> test_grid
616	0552 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'the dimension of the y coordinate variable should be 1'</span>,<span class="string">'ERROR'</span>)
617	0553 <span class="keyword">end</span>
618	0554 <span class="keyword">end</span>
619	0555
620	0556 <span class="comment">%select the variable index for the abscissa</span>
621	0557 xstring=get(handles.abscissa,<span class="string">'String'</span>);
622	0558 xindex=get(handles.abscissa,<span class="string">'Value'</span>);
623	0559 list_var=xstring(xindex);
624	0560 VarIndex.x=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list_var,Field.ListVarName);<span class="comment">%var index corresponding to var name list_var</span>
625	0561 <span class="keyword">if</span> length(VarIndex.x)==1
626	0562 DimIndex_x=Field.VarDimIndex{VarIndex.x};
627	0563 DimValue=Field.DimValue(DimIndex_x);
628	0564 ind=find(DimValue==1);
629	0565 DimIndex_x(ind)=[];<span class="comment">%Mremove singleton</span>
630	0566 VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x}; <span class="comment">%dimension variable</span>
631	0567 <span class="comment">% VarAttribute{VarIndex.x}.Role='coord_x';%default (may be modified)</span>
632	0568 index_detect=find(VarIndex_tot==VarIndex.x);
633	0569 <span class="keyword">else</span>
634	0570 index_detect=[];<span class="comment">%coord x variable not already used</span>
635	0571 <span class="keyword">end</span>
636	0572 <span class="keyword">if</span> isempty(index_detect)
637	0573 VarIndex_tot=[VarIndex_tot VarIndex.x];
638	0574 <span class="keyword">elseif</span> ~test_check_1Dplot
639	0575 VarIndex.x=[];
640	0576 set(handles.abscissa,<span class="string">'Value'</span>,1)<span class="comment">%vchosen abscissa already chosen, suppres it as abscissa</span>
641	0577 <span class="keyword">end</span>
642	0578
643	0579 <span class="keyword">if</span> (test_scalar \| test_vector) & ~isempty(VarIndex.x)
644	0580 DimIndex_x=Field.VarDimIndex{VarIndex.x};<span class="comment">%dimension indices of the variable</span>
645	0581 <span class="keyword">if</span> length(DimIndex_x)==1
646	0582 ind_x=find(DimIndex==DimIndex_x(1));
647	0583 <span class="keyword">if</span> nbdim==3
648	0584 <span class="comment">%VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x};</span>
649	0585 perm_ind(ind_x)=3;
650	0586 <span class="keyword">elseif</span> nbdim==2
651	0587 <span class="comment">%VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x};</span>
652	0588 perm_ind(ind_x)=2;
653	0589 <span class="keyword">end</span>
654	0590 <span class="keyword">if</span> isequal(perm_ind,1:nbdim)
655	0591 test_grid=0;
656	0592 <span class="keyword">end</span>
657	0593 DimIndex=DimIndex(perm_ind);
658	0594 <span class="keyword">elseif</span> test_grid
659	0595 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>(<span class="string">'the dimension of the x coordinate variable should be 1'</span>,<span class="string">'ERROR'</span>)
660	0596 <span class="keyword">end</span>
661	0597 <span class="keyword">if</span> isequal(DimIndex_x,DimIndex)
662	0598 VarAttribute{VarIndex.x}.Role=<span class="string">'coord_x'</span>;<span class="comment">%unstructured coordinates</span>
663	0599 <span class="keyword">end</span>
664	0600 <span class="keyword">end</span>
665	0601
666	0602 <span class="comment">%defined the selected sub-field SubField</span>
667	0603 SubField.ListGlobalAttribute{1}=<span class="string">'InputFile'</span>;
668	0604 SubField.InputFile=get(handles.inputfile,<span class="string">'String'</span>);
669	0605 SubField.ListDimName=Field.ListDimName;
670	0606 SubField.DimValue=Field.DimValue;
671	0607 SubField.ListVarName=Field.ListVarName(VarIndex_tot);
672	0608 SubField.VarDimIndex=Field.VarDimIndex(VarIndex_tot);
673	0609
674	0610 testperm=0;
675	0611 testattr=0;
676	0612 <span class="keyword">for</span> ivar=VarIndex.u
677	0613 VarAttribute{ivar}.Role=<span class="string">'vector_x'</span>;
678	0614 testattr=1;
679	0615 <span class="keyword">if</span> test_grid
680	0616 VarDimIndex{ivar}=DimIndex; <span class="comment">%permute dimensions</span>
681	0617 testperm=1;
682	0618 <span class="keyword">end</span>
683	0619 <span class="keyword">end</span>
684	0620 <span class="keyword">for</span> ivar=VarIndex.v
685	0621 VarAttribute{ivar}.Role=<span class="string">'vector_y'</span>;
686	0622 testattr=1;
687	0623 <span class="keyword">if</span> test_grid
688	0624 VarDimIndex{ivar}=DimIndex;<span class="comment">%permute dimensions</span>
689	0625 testperm=1;
690	0626 <span class="keyword">end</span>
691	0627 <span class="keyword">end</span>
692	0628 <span class="keyword">for</span> ivar=VarIndex.A
693	0629 <span class="keyword">if</span> test_grid
694	0630 VarDimIndex{ivar}=DimIndex;<span class="comment">%permute dimensions</span>
695	0631 testperm=1;
696	0632 <span class="keyword">end</span>
697	0633 <span class="keyword">if</span> isempty(iuA)
698	0634 VarAttribute{ivar}.Role=<span class="string">'scalar'</span>;<span class="comment">%Role =scalar</span>
699	0635 testattr=1;
700	0636 <span class="keyword">else</span>
701	0637 VarAttribute=[VarAttribute VarAttribute(ivar)]; <span class="comment">%duplicate the attribute for a new variable</span>
702	0638 nbattr=length(VarAttribute);
703	0639 VarAttribute{nbattr}.Role=<span class="string">'scalar'</span>;
704	0640 testattr=1;
705	0641 <span class="keyword">end</span>
706	0642 <span class="keyword">end</span>
707	0643 <span class="keyword">if</span> testperm
708	0644 SubField.VarDimIndex=VarDimIndex(VarIndex_tot);
709	0645 <span class="keyword">end</span>
710	0646 <span class="keyword">if</span> testattr
711	0647 SubField.VarAttribute=VarAttribute(VarIndex_tot);
712	0648 <span class="keyword">end</span>
713	0649 set(hselect_field,<span class="string">'UserData'</span>,Field)
714	0650
715	0651 <span class="comment">%---------------------------------------------------------</span>
716	0652 <span class="comment">% --- Executes on button press in plot.</span>
717	0653 <a name="_sub13" href="#_subfunctions" class="code">function plot_Callback(hObject, eventdata, handles)</a>
718	0654 <span class="comment">%---------------------------------------------------------</span>
719	0655 list=get(handles.ACTION,<span class="string">'String'</span>);
720	0656 index=get(handles.ACTION,<span class="string">'Value'</span>);
721	0657 ACTION=list{index};
722	0658 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);<span class="comment">%handle of the get_field interface</span>
723	0659 feval(ACTION,hselect_field);
724	0660 <a href="#_sub24" class="code" title="subfunction browse_fig(menu_handle)">browse_fig</a>(handles.list_fig); <span class="comment">%update the list of new existing figures</span>
725	0661
726	0662 <span class="comment">%---------------------------------------------------------</span>
727	0663 <span class="comment">% --- Executes on button press in plot.</span>
728	0664 <a name="_sub14" href="#_subfunctions" class="code">function PLOT(hget_field)</a>
729	0665 <span class="comment">%---------------------------------------------------------</span>
730	0666 [SubField,errormsg]=<a href="read_get_field.html" class="code" title="function [SubField,errormsg]=read_get_field(hget_field)">read_get_field</a>(hget_field);
731	0667 handles=guidata(hget_field);
732	0668 list_fig=get(handles.list_fig,<span class="string">'String'</span>);
733	0669 val=get(handles.list_fig,<span class="string">'Value'</span>);
734	0670 <span class="keyword">if</span> strcmp(list_fig{val},<span class="string">'uvmat'</span>)
735	0671 <a href="uvmat.html" class="code" title="function varargout = uvmat(varargin)">uvmat</a>(SubField)
736	0672 <span class="keyword">else</span>
737	0673 hfig=str2num(list_fig{val});<span class="comment">% chosen figure number from tyhe GUI</span>
738	0674 <span class="keyword">if</span> isempty(hfig)
739	0675 hfig=figure;
740	0676 list_fig=[list_fig;num2str(hfig)];
741	0677 set(handles.list_fig,<span class="string">'String'</span>,list_fig);
742	0678 haxes=axes;
743	0679 <span class="keyword">else</span>
744	0680 figure(hfig);
745	0681 <span class="keyword">end</span>
746	0682 haxes=findobj(hfig,<span class="string">'Type'</span>,<span class="string">'axes'</span>);
747	0683 <a href="plot_field.html" class="code" title="function [PlotType,PlotParamOut,haxes]= plot_field(Data,haxes,PlotParam,KeepLim,PosColorbar)">plot_field</a>(SubField,haxes)
748	0684 <span class="keyword">end</span>
749	0685
750	0686
751	0687 <span class="comment">%</span>
752	0688 <span class="comment">% return</span>
753	0689 <span class="comment">% testuvmat=0;</span>
754	0690 <span class="comment">% if test_scalar\|test_vector</span>
755	0691 <span class="comment">% [DimVarIndex,CellVarIndex,NbDim]=find_field_indices(SubField);</span>
756	0692 <span class="comment">% NbDim=max(NbDim);</span>
757	0693 <span class="comment">% if NbDim==3</span>
758	0694 <span class="comment">% testuvmat=1; %uvmat interface needed for 3D plots</span>
759	0695 <span class="comment">% end</span>
760	0696 <span class="comment">% end</span>
761	0697 <span class="comment">% if iscell(list_fig)</span>
762	0698 <span class="comment">% plot_fig=list_fig{fig_index};</span>
763	0699 <span class="comment">% else</span>
764	0700 <span class="comment">% plot_fig='new fig...';%new plotting axes must be created</span>
765	0701 <span class="comment">% end</span>
766	0702 <span class="comment">% if isequal(plot_fig,'new fig...') & (test_scalar\|test_vector)</span>
767	0703 <span class="comment">% plot_fig='uvmat';%use uvmat for a new fig</span>
768	0704 <span class="comment">% end</span>
769	0705 <span class="comment">% if testuvmat</span>
770	0706 <span class="comment">% plot_fig='uvmat';</span>
771	0707 <span class="comment">% end</span>
772	0708 <span class="comment">% if isequal(plot_fig,'uvmat')</span>
773	0709 <span class="comment">%</span>
774	0710 <span class="comment">% huvmat=uvmat(SubField);</span>
775	0711 <span class="comment">% menu=update_menu(handles.list_fig,'uvmat');%add the selected fct to the menu</span>
776	0712 <span class="comment">% else</span>
777	0713 <span class="comment">% test_new=1;</span>
778	0714 <span class="comment">% if ~isequal(plot_fig,'new fig...')</span>
779	0715 <span class="comment">% sep=regexp(plot_fig,'_')%look for subaxes in a fig</span>
780	0716 <span class="comment">% if isempty(sep)</span>
781	0717 <span class="comment">% axe_index=1;</span>
782	0718 <span class="comment">% else</span>
783	0719 <span class="comment">% axe_index=str2num(plot_fig(sep+1:end))</span>
784	0720 <span class="comment">% plot_fig=plot_fig([1:sep-1])</span>
785	0721 <span class="comment">% end</span>
786	0722 <span class="comment">% if ishandle(str2num(plot_fig))</span>
787	0723 <span class="comment">% haxes=findobj(str2num(plot_fig),'Type','axes')</span>
788	0724 <span class="comment">% for iaxe=1:length(haxes)</span>
789	0725 <span class="comment">% Tag=get(haxes(iaxe),'Tag');</span>
790	0726 <span class="comment">% if isequal(Tag,'Colorbar')\|isequal(Tag,'legend')</span>
791	0727 <span class="comment">% iselect(iaxe)=0;</span>
792	0728 <span class="comment">% else</span>
793	0729 <span class="comment">% iselect(iaxe)=1;</span>
794	0730 <span class="comment">% end</span>
795	0731 <span class="comment">% end</span>
796	0732 <span class="comment">% haxes=haxes(find(iselect));</span>
797	0733 <span class="comment">% if length(haxes)>=axe_index</span>
798	0734 <span class="comment">% test_new=0</span>
799	0735 <span class="comment">% haxes=haxes(axe_index);</span>
800	0736 <span class="comment">% set(haxes,'NextPlot','add')</span>
801	0737 <span class="comment">% end</span>
802	0738 <span class="comment">% end</span>
803	0739 <span class="comment">% end</span>
804	0740 <span class="comment">% if test_new</span>
805	0741 <span class="comment">% hfig=figure;</span>
806	0742 <span class="comment">% haxes=axes;</span>
807	0743 <span class="comment">% menu=update_menu(handles.list_fig,num2str(hfig));%add the selected fct to the menu</span>
808	0744 <span class="comment">% end</span>
809	0745 <span class="comment">% plot_field(SubField,haxes)</span>
810	0746 <span class="comment">% end</span>
811	0747 <span class="comment">% end</span>
812	0748 <span class="comment">%</span>
813	0749 <span class="comment">%</span>
814	0750 <span class="comment">%</span>
815	0751 <span class="comment">%</span>
816	0752 <span class="comment">% w components</span>
817	0753 <span class="comment">% end</span>
818	0754 <span class="comment">%</span>
819	0755 <span class="comment">%</span>
820	0756 <span class="comment">% % select the variable index (or indices) for z coordinates</span>
821	0757 <span class="comment">% test_grid=0;</span>
822	0758 <span class="comment">% if test_scalar \| test_vector</span>
823	0759 <span class="comment">% nbdim=length(DimIndex);</span>
824	0760 <span class="comment">% if nbdim > 3</span>
825	0761 <span class="comment">% warndlg_uvmat('array with more than three dimensions, not supported','ERROR')</span>
826	0762 <span class="comment">% return</span>
827	0763 <span class="comment">% else</span>
828	0764 <span class="comment">% perm_ind=[1:nbdim];</span>
829	0765 <span class="comment">% end</span>
830	0766 <span class="comment">% if nbdim==3</span>
831	0767 <span class="comment">% zstring=get(handles.coord_z_vectors_scalar,'String');</span>
832	0768 <span class="comment">% zindex=get(handles.coord_z_vectors_scalar,'Value'); %selected indices in the ordinate listbox</span>
833	0769 <span class="comment">% list_var=zstring(zindex);</span>
834	0770 <span class="comment">% VarIndex_z=name2index(list_var,Field.ListVarName);%index of the selected variable</span>
835	0771 <span class="comment">% if isequal(VarIndex.A,VarIndex_z)\|isequal(VarIndex.u,VarIndex_z)\|isequal(VarIndex.v,VarIndex_z)\|isequal(VarIndex.w,VarIndex_z)</span>
836	0772 <span class="comment">% if zindex ~= 1</span>
837	0773 <span class="comment">% set(handles.coord_z_vectors_scalar,'Value',1)%ordinate cannot be the same as scalar or vector components</span>
838	0774 <span class="comment">% return</span>
839	0775 <span class="comment">% end</span>
840	0776 <span class="comment">% else</span>
841	0777 <span class="comment">% VarIndex_tot=[VarIndex_tot VarIndex_z];</span>
842	0778 <span class="comment">% DimIndex_z=Field.VarDimIndex{VarIndex_z};</span>
843	0779 <span class="comment">% DimValue=Field.DimValue(DimIndex_z);</span>
844	0780 <span class="comment">% ind=find(DimValue==1);</span>
845	0781 <span class="comment">% DimIndex_z(ind)=[];%Mremove singleton</span>
846	0782 <span class="comment">% if isequal(DimIndex_z,DimIndex)</span>
847	0783 <span class="comment">% VarAttribute{VarIndex_z}.Role='coord_z';%unstructured coordinates</span>
848	0784 <span class="comment">% elseif length(DimIndex_z)==1</span>
849	0785 <span class="comment">% VarAttribute{VarIndex_z}.Role=Field.ListDimName{DimIndex_z}; %dimension variable</span>
850	0786 <span class="comment">% ind_z=find(DimIndex==DimIndex_z(1));</span>
851	0787 <span class="comment">% perm_ind(ind_z)=1;</span>
852	0788 <span class="comment">% test_grid=1;</span>
853	0789 <span class="comment">% else</span>
854	0790 <span class="comment">% warndlg_uvmat('multiple dimensions for the z coordinate','ERROR')</span>
855	0791 <span class="comment">% return</span>
856	0792 <span class="comment">% end</span>
857	0793 <span class="comment">% end</span>
858	0794 <span class="comment">% % if ~isempty(VarIndex_z)</span>
859	0795 <span class="comment">% % DimIndex_z=Field.VarDimIndex{VarIndex_z};%dimension indices of the variable</span>
860	0796 <span class="comment">% % if length(DimIndex_z)==1 & nbdim==3 %dimension variable</span>
861	0797 <span class="comment">% % VarAttribute{VarIndex_z}.Role=Field.ListDimName{DimIndex_z};</span>
862	0798 <span class="comment">% % ind_z=find(DimIndex==DimIndex_z(1));</span>
863	0799 <span class="comment">% % perm_ind(ind_z)=1;</span>
864	0800 <span class="comment">% % test_grid=1;</span>
865	0801 <span class="comment">% % end</span>
866	0802 <span class="comment">% % end</span>
867	0803 <span class="comment">% end</span>
868	0804 <span class="comment">% end</span>
869	0805 <span class="comment">%</span>
870	0806 <span class="comment">% % select the variable index (or indices) for ordinate</span>
871	0807 <span class="comment">% ystring=get(handles.ordinate,'String');</span>
872	0808 <span class="comment">% yindex=get(handles.ordinate,'Value'); %selected indices in the ordinate listbox</span>
873	0809 <span class="comment">% list_var=ystring(yindex);</span>
874	0810 <span class="comment">% VarIndex.y=name2index(list_var,Field.ListVarName);</span>
875	0811 <span class="comment">% if isequal(VarIndex.A,VarIndex.y)\|isequal(VarIndex.u,VarIndex.y)\|isequal(VarIndex.v,VarIndex.y)\|isequal(VarIndex.w,VarIndex.y)</span>
876	0812 <span class="comment">% set(handles.ordinate,'Value',1)%ordinate cannot be the same as scalar or vector components</span>
877	0813 <span class="comment">% else</span>
878	0814 <span class="comment">% for ivar=1:length(VarIndex.y)</span>
879	0815 <span class="comment">% VarAttribute{VarIndex.y(ivar)}.Role='coord_y';</span>
880	0816 <span class="comment">% end</span>
881	0817 <span class="comment">% VarIndex_tot=[VarIndex_tot VarIndex.y];</span>
882	0818 <span class="comment">% end</span>
883	0819 <span class="comment">% if (test_scalar \| test_vector) & ~isempty(VarIndex.y)</span>
884	0820 <span class="comment">% DimIndex_y=Field.VarDimIndex{VarIndex.y};%dimension indices of the variable</span>
885	0821 <span class="comment">% if length(DimIndex_y)==1</span>
886	0822 <span class="comment">% ind_y=find(DimIndex==DimIndex_y(1));</span>
887	0823 <span class="comment">% test_grid=1;</span>
888	0824 <span class="comment">% if nbdim==3</span>
889	0825 <span class="comment">% VarAttribute{VarIndex.y}.Role=Field.ListDimName{DimIndex_y};</span>
890	0826 <span class="comment">% perm_ind(ind_y)=2;</span>
891	0827 <span class="comment">% elseif nbdim==2</span>
892	0828 <span class="comment">% VarAttribute{VarIndex.y}.Role=Field.ListDimName{DimIndex_y};</span>
893	0829 <span class="comment">% perm_ind(ind_y)=1;</span>
894	0830 <span class="comment">% end</span>
895	0831 <span class="comment">% elseif test_grid</span>
896	0832 <span class="comment">% warndlg_uvmat('the dimension of the y coordinate variable should be 1','ERROR')</span>
897	0833 <span class="comment">% end</span>
898	0834 <span class="comment">% end</span>
899	0835 <span class="comment">%</span>
900	0836 <span class="comment">% %select the variable index for the abscissa</span>
901	0837 <span class="comment">% xstring=get(handles.abscissa,'String');</span>
902	0838 <span class="comment">% xindex=get(handles.abscissa,'Value');</span>
903	0839 <span class="comment">% list_var=xstring(xindex);</span>
904	0840 <span class="comment">% VarIndex.x=name2index(list_var,Field.ListVarName);%var index corresponding to var name list_var</span>
905	0841 <span class="comment">% if length(VarIndex.x)==1</span>
906	0842 <span class="comment">% DimIndex_x=Field.VarDimIndex{VarIndex.x};</span>
907	0843 <span class="comment">% DimValue=Field.DimValue(DimIndex_x);</span>
908	0844 <span class="comment">% ind=find(DimValue==1);</span>
909	0845 <span class="comment">% DimIndex_x(ind)=[];%Mremove singleton</span>
910	0846 <span class="comment">% VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x}; %dimension variable</span>
911	0847 <span class="comment">% % VarAttribute{VarIndex.x}.Role='coord_x';%default (may be modified)</span>
912	0848 <span class="comment">% index_detect=find(VarIndex_tot==VarIndex.x);</span>
913	0849 <span class="comment">% else</span>
914	0850 <span class="comment">% index_detect=[];%coord x variable not already used</span>
915	0851 <span class="comment">% end</span>
916	0852 <span class="comment">% if isempty(index_detect)</span>
917	0853 <span class="comment">% VarIndex_tot=[VarIndex_tot VarIndex.x];</span>
918	0854 <span class="comment">% else</span>
919	0855 <span class="comment">% VarIndex.x=[];</span>
920	0856 <span class="comment">% set(handles.abscissa,'Value',1)%vchosen abscissa already chosen, suppres it as abscissa</span>
921	0857 <span class="comment">% end</span>
922	0858 <span class="comment">%</span>
923	0859 <span class="comment">% if (test_scalar \| test_vector) & ~isempty(VarIndex.x)</span>
924	0860 <span class="comment">% DimIndex_x=Field.VarDimIndex{VarIndex.x};%dimension indices of the variable</span>
925	0861 <span class="comment">% if length(DimIndex_x)==1</span>
926	0862 <span class="comment">% ind_x=find(DimIndex==DimIndex_x(1));</span>
927	0863 <span class="comment">% if nbdim==3</span>
928	0864 <span class="comment">% %VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x};</span>
929	0865 <span class="comment">% perm_ind(ind_x)=3;</span>
930	0866 <span class="comment">% elseif nbdim==2</span>
931	0867 <span class="comment">% %VarAttribute{VarIndex.x}.Role=Field.ListDimName{DimIndex_x};</span>
932	0868 <span class="comment">% perm_ind(ind_x)=2;</span>
933	0869 <span class="comment">% end</span>
934	0870 <span class="comment">% if isequal(perm_ind,[1:nbdim])</span>
935	0871 <span class="comment">% test_grid=0;</span>
936	0872 <span class="comment">% end</span>
937	0873 <span class="comment">% DimIndex=DimIndex(perm_ind);</span>
938	0874 <span class="comment">% elseif test_grid</span>
939	0875 <span class="comment">% warndlg_uvmat('the dimension of the x coordinate variable should be 1','ERROR')</span>
940	0876 <span class="comment">% end</span>
941	0877 <span class="comment">% if isequal(DimIndex_x,DimIndex)</span>
942	0878 <span class="comment">% VarAttribute{VarIndex.x}.Role='coord_x';%unstructured coordinates</span>
943	0879 <span class="comment">% end</span>
944	0880 <span class="comment">% end</span>
945	0881 <span class="comment">%</span>
946	0882 <span class="comment">% %defined the selected sub-field SubField</span>
947	0883 <span class="comment">% SubField.ListGlobalAttribute{1}='InputFile';</span>
948	0884 <span class="comment">% SubField.InputFile=get(handles.inputfile,'String');</span>
949	0885 <span class="comment">% SubField.ListVarName=Field.ListVarName(VarIndex_tot);</span>
950	0886 <span class="comment">% VarDimIndex=Field.VarDimIndex;</span>
951	0887 <span class="comment">%</span>
952	0888 <span class="comment">% for ivar=VarIndex.u</span>
953	0889 <span class="comment">% VarAttribute{ivar}.Role='vector_x';</span>
954	0890 <span class="comment">% if test_grid</span>
955	0891 <span class="comment">% VarDimIndex{ivar}=DimIndex; %permute dimensions</span>
956	0892 <span class="comment">% end</span>
957	0893 <span class="comment">% end</span>
958	0894 <span class="comment">% for ivar=VarIndex.v</span>
959	0895 <span class="comment">% VarAttribute{ivar}.Role='vector_y';</span>
960	0896 <span class="comment">% if test_grid</span>
961	0897 <span class="comment">% VarDimIndex{ivar}=DimIndex;%permute dimensions</span>
962	0898 <span class="comment">% end</span>
963	0899 <span class="comment">% end</span>
964	0900 <span class="comment">% for ivar=VarIndex.A</span>
965	0901 <span class="comment">% if test_grid</span>
966	0902 <span class="comment">% VarDimIndex{ivar}=DimIndex;%permute dimensions</span>
967	0903 <span class="comment">% end</span>
968	0904 <span class="comment">% if isempty(iuA)</span>
969	0905 <span class="comment">% VarAttribute{ivar}.Role='scalar';%Role =scalar</span>
970	0906 <span class="comment">% else</span>
971	0907 <span class="comment">% VarAttribute=[VarAttribute VarAttribute{ivar}]; %duplicate the attribute for a new variable</span>
972	0908 <span class="comment">% nbattr=length(VarAttribute);</span>
973	0909 <span class="comment">% VarAttribute{nbattr}.Role='scalar';</span>
974	0910 <span class="comment">% end</span>
975	0911 <span class="comment">% end</span>
976	0912 <span class="comment">% SubField.VarDimIndex=VarDimIndex(VarIndex_tot);</span>
977	0913 <span class="comment">% SubField.VarAttribute=VarAttribute(VarIndex_tot);</span>
978	0914 <span class="comment">% % Field.SubListVarName=SubField.ListVarName;</span>
979	0915 <span class="comment">% % Field.SubVarDimIndex=SubField.VarDimIndex;</span>
980	0916 <span class="comment">% % Field.SubVarAttribute=SubField.VarAttribute;</span>
981	0917 <span class="comment">% set(hselect_field,'UserData',Field);</span>
982	0918 <span class="comment">% % copy variables on SubField</span>
983	0919 <span class="comment">% for ivar=1:length(VarIndex_tot)</span>
984	0920 <span class="comment">% VarName=Field.ListVarName{VarIndex_tot(ivar)};</span>
985	0921 <span class="comment">% eval(['SubField.' VarName '=Field.' VarName ';'])</span>
986	0922 <span class="comment">% end</span>
987	0923 <span class="comment">% if test_grid</span>
988	0924 <span class="comment">% for ivar=1:length(VarIndex.u)</span>
989	0925 <span class="comment">% VarName=Field.ListVarName{VarIndex.u(ivar)};</span>
990	0926 <span class="comment">% eval(['SubField.' VarName '=permute(SubField.' VarName ',perm_ind);'])</span>
991	0927 <span class="comment">% end</span>
992	0928 <span class="comment">%</span>
993	0929 <span class="comment">% for ivar=1:length(VarIndex.v)</span>
994	0930 <span class="comment">% VarName=Field.ListVarName{VarIndex.v(ivar)};</span>
995	0931 <span class="comment">% eval(['SubField.' VarName '=permute(SubField.' VarName ',perm_ind);'])</span>
996	0932 <span class="comment">% end</span>
997	0933 <span class="comment">% for ivar=1:length(VarIndex.A)</span>
998	0934 <span class="comment">% VarName=Field.ListVarName{VarIndex.A(ivar)};</span>
999	0935 <span class="comment">% eval(['SubField.' VarName '=permute(SubField.' VarName ',perm_ind);'])</span>
1000	0936 <span class="comment">% end</span>
1001	0937 <span class="comment">% end</span>
1002	0938 <span class="comment">% if ~isempty(iuA)</span>
1003	0939 <span class="comment">% VarName= ['A' Field.ListVarName{iuA}]; %create the new variable to distinguish the scaler form the velocity component</span>
1004	0940 <span class="comment">% SubField.ListVarName=[SubField.ListVarName VarName];</span>
1005	0941 <span class="comment">% SubField.VarDimIndex=[SubField.VarDimIndex Field.VarDimIndex(iuA)];</span>
1006	0942 <span class="comment">% eval(['SubField.' VarName '=Field.' Field.ListVarName{iuA} ';'])</span>
1007	0943 <span class="comment">% end</span>
1008	0944 <span class="comment">% % dimension of SubField</span>
1009	0945 <span class="comment">% if test_scalar\|test_vector</span>
1010	0946 <span class="comment">% % SubField.NbDim=2;</span>
1011	0947 <span class="comment">% SubField.InputFile=get(handles.inputfile,'String');</span>
1012	0948 <span class="comment">% SubField.get_field_handle=hselect_field;</span>
1013	0949 <span class="comment">% else</span>
1014	0950 <span class="comment">% SubField.NbDim=1;</span>
1015	0951 <span class="comment">% end</span>
1016	0952 <span class="comment">%</span>
1017	0953 <span class="comment">% list_fig=get(handles.list_fig,'String');</span>
1018	0954 <span class="comment">% fig_index=get(handles.list_fig,'Value');</span>
1019	0955 <span class="comment">% %ACTION on SubField</span>
1020	0956 <span class="comment">% index=get(handles.ACTION,'Value');</span>
1021	0957
1022	0958 <span class="comment">%</span>
1023	0959 <span class="comment">% % if (test_scalar\|test_vector)</span>
1024	0960 <span class="comment">% % plot_fig='uvmat';</span>
1025	0961 <span class="comment">% % elseif iscell(list_fig)</span>
1026	0962 <span class="comment">% testuvmat=0;</span>
1027	0963 <span class="comment">% if test_scalar\|test_vector</span>
1028	0964 <span class="comment">% [DimVarIndex,CellVarIndex,NbDim]=find_field_indices(SubField);</span>
1029	0965 <span class="comment">% NbDim=max(NbDim);</span>
1030	0966 <span class="comment">% if NbDim==3</span>
1031	0967 <span class="comment">% testuvmat=1; %uvmat interface needed for 3D plots</span>
1032	0968 <span class="comment">% end</span>
1033	0969 <span class="comment">% end</span>
1034	0970 <span class="comment">% if iscell(list_fig)</span>
1035	0971 <span class="comment">% plot_fig=list_fig{fig_index};</span>
1036	0972 <span class="comment">% else</span>
1037	0973 <span class="comment">% plot_fig='new fig...';%new plotting axes must be created</span>
1038	0974 <span class="comment">% end</span>
1039	0975 <span class="comment">% if isequal(plot_fig,'new fig...') & (test_scalar\|test_vector)</span>
1040	0976 <span class="comment">% plot_fig='uvmat';%use uvmat for a new fig</span>
1041	0977 <span class="comment">% end</span>
1042	0978 <span class="comment">% if testuvmat</span>
1043	0979 <span class="comment">% plot_fig='uvmat';</span>
1044	0980 <span class="comment">% end</span>
1045	0981 <span class="comment">% if isequal(plot_fig,'uvmat')</span>
1046	0982 <span class="comment">%</span>
1047	0983 <span class="comment">% huvmat=uvmat(SubField);</span>
1048	0984 <span class="comment">% menu=update_menu(handles.list_fig,'uvmat');%add the selected fct to the menu</span>
1049	0985 <span class="comment">% else</span>
1050	0986 <span class="comment">% test_new=1;</span>
1051	0987 <span class="comment">% if ~isequal(plot_fig,'new fig...')</span>
1052	0988 <span class="comment">% sep=regexp(plot_fig,'_')%look for subaxes in a fig</span>
1053	0989 <span class="comment">% if isempty(sep)</span>
1054	0990 <span class="comment">% axe_index=1;</span>
1055	0991 <span class="comment">% else</span>
1056	0992 <span class="comment">% axe_index=str2num(plot_fig(sep+1:end))</span>
1057	0993 <span class="comment">% plot_fig=plot_fig([1:sep-1])</span>
1058	0994 <span class="comment">% end</span>
1059	0995 <span class="comment">% if ishandle(str2num(plot_fig))</span>
1060	0996 <span class="comment">% haxes=findobj(str2num(plot_fig),'Type','axes')</span>
1061	0997 <span class="comment">% for iaxe=1:length(haxes)</span>
1062	0998 <span class="comment">% Tag=get(haxes(iaxe),'Tag');</span>
1063	0999 <span class="comment">% if isequal(Tag,'Colorbar')\|isequal(Tag,'legend')</span>
1064	1000 <span class="comment">% iselect(iaxe)=0;</span>
1065	1001 <span class="comment">% else</span>
1066	1002 <span class="comment">% iselect(iaxe)=1;</span>
1067	1003 <span class="comment">% end</span>
1068	1004 <span class="comment">% end</span>
1069	1005 <span class="comment">% haxes=haxes(find(iselect));</span>
1070	1006 <span class="comment">% if length(haxes)>=axe_index</span>
1071	1007 <span class="comment">% test_new=0</span>
1072	1008 <span class="comment">% haxes=haxes(axe_index);</span>
1073	1009 <span class="comment">% set(haxes,'NextPlot','add')</span>
1074	1010 <span class="comment">% end</span>
1075	1011 <span class="comment">% end</span>
1076	1012 <span class="comment">% end</span>
1077	1013 <span class="comment">% if test_new</span>
1078	1014 <span class="comment">% hfig=figure;</span>
1079	1015 <span class="comment">% haxes=axes;</span>
1080	1016 <span class="comment">% menu=update_menu(handles.list_fig,num2str(hfig));%add the selected fct to the menu</span>
1081	1017 <span class="comment">% end</span>
1082	1018 <span class="comment">% plot_field(SubField,haxes)</span>
1083	1019 <span class="comment">% end</span>
1084	1020 <span class="comment">% end</span>
1085	1021 <span class="comment">% %Field.VarIndex=VarIndex; %save for use in uvmat</span>
1086	1022 <span class="comment">% % set(hselect_field,'UserData',Field)</span>
1087	1023
1088	1024
1089	1025 <span class="comment">%------------------------------------------------</span>
1090	1026 <span class="comment">% --- Executes on button press in Plot_histo.</span>
1091	1027 <span class="comment">%plot global histograms</span>
1092	1028 <span class="comment">%-------------------------------------------------</span>
1093	1029 <a name="_sub15" href="#_subfunctions" class="code">function plot_histo_Callback(hObject, eventdata, handles)</a>
1094	1030 <span class="comment">% hObject handle to plot (see GCBO)</span>
1095	1031 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1096	1032 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1097	1033
1098	1034 <span class="comment">%time plots</span>
1099	1035 leg={};
1100	1036 n=0;
1101	1037 <span class="keyword">if</span> (get(handles.cm_switch,<span class="string">'Value'</span>)==1)
1102	1038 Uval_p=Uval_cm;
1103	1039 Vval_p=Vval_cm;
1104	1040 Uhist_p=Uhist_cm;
1105	1041 Vhist_p=Vhist_cm;
1106	1042 xlab=<span class="string">'velocity (cm/s)'</span>;
1107	1043 <span class="keyword">else</span>
1108	1044 Uval_p=Uval;
1109	1045 Vval_p=Vval;
1110	1046 Uhist_p=Uhist;
1111	1047 Vhist_p=Vhist;
1112	1048 xlab=<span class="string">'velocity (pixels)'</span>;
1113	1049 <span class="keyword">end</span>
1114	1050 <span class="keyword">if</span> (get(handles.vector_y,<span class="string">'Value'</span>) == 1)
1115	1051 hhh=figure(2);
1116	1052 hold on
1117	1053 title([filebase <span class="string">', '</span> strindex <span class="string">', '</span> fieldtitle])
1118	1054 plot(Uval_p,Uhist_p,<span class="string">'b-'</span>)
1119	1055 n=n+1;
1120	1056 leg{n}=<span class="string">'Uhist'</span>;
1121	1057 xlabel(xlab)
1122	1058 <span class="keyword">end</span>
1123	1059 <span class="keyword">if</span> (get(handles.Vhist_input,<span class="string">'Value'</span>) == 1)
1124	1060 hhh=figure(2);
1125	1061 hold on
1126	1062 title([filebase <span class="string">', '</span> strindex <span class="string">', '</span> fieldtitle])
1127	1063 plot(Vval_p,Vhist_p,<span class="string">'r-'</span>)
1128	1064 n=n+1;
1129	1065 leg{n}=<span class="string">'Vhist'</span>;
1130	1066 xlabel(xlab);
1131	1067 <span class="keyword">end</span>
1132	1068 <span class="keyword">if</span> (get(handles.Chist_input,<span class="string">'Value'</span>) == 1)
1133	1069 hhhh=figure(3);
1134	1070 hold on
1135	1071 title([filebase <span class="string">', '</span> strindex <span class="string">', '</span> fieldtitle])
1136	1072 plot(Cval,Chist,<span class="string">'k-'</span>)
1137	1073 leg{1}=<span class="string">'Chist'</span>;
1138	1074 <span class="keyword">end</span>
1139	1075 <span class="comment">% hold off</span>
1140	1076 grid on
1141	1077 legend(leg);
1142	1078
1143	1079 <span class="comment">% %-------------------------------------------------------------</span>
1144	1080 <span class="comment">% % --- Executes on button press in Save_input.</span>
1145	1081 <span class="comment">% function Save_input_Callback(hObject, eventdata, handles)</span>
1146	1082 <span class="comment">% list_str=get(handles.abscissa,'String');</span>
1147	1083 <span class="comment">% val=get(handles.abscissa,'Value');</span>
1148	1084 <span class="comment">% var=list_str{val};</span>
1149	1085 <span class="comment">% hselect_field=get(handles.Save_input,'parent')</span>
1150	1086 <span class="comment">% set(hselect_field,'UserData',var);</span>
1151	1087 <span class="comment">% set(hselect_field,'Tag','idle')</span>
1152	1088
1153	1089 <span class="comment">%</span>
1154	1090 <span class="comment">% %-------------------------------------------------------------</span>
1155	1091 <span class="comment">% % --- Executes on button press in save_histo.</span>
1156	1092 <span class="comment">% function save_histo_Callback(hObject, eventdata, handles)</span>
1157	1093 <span class="comment">% global filebase</span>
1158	1094 <span class="comment">%</span>
1159	1095 <span class="comment">% pathstr = fileparts(filebase)</span>
1160	1096 <span class="comment">% if (get(handles.Chist_input,'Value') == 1)</span>
1161	1097 <span class="comment">% def = {[pathstr pathstr(1) 'PIV_corr_histo.fig']};</span>
1162	1098 <span class="comment">% else</span>
1163	1099
1164	1100 <span class="comment">% def = {[pathstr pathstr(1) 'vel_histo.fig']};</span>
1165	1101 <span class="comment">% end</span>
1166	1102 <span class="comment">% prompt={'save figure(2) as'}</span>
1167	1103 <span class="comment">% dlg_title = 'save figure';</span>
1168	1104 <span class="comment">% num_lines= 1;</span>
1169	1105 <span class="comment">% answer = inputdlg(prompt,dlg_title,num_lines,def)</span>
1170	1106 <span class="comment">% saveas(2,answer{1})</span>
1171	1107
1172	1108 <span class="comment">%</span>
1173	1109 <span class="comment">% % --- Executes on selection change in spectrum.</span>
1174	1110 <span class="comment">% function Field=FFT(Field)</span>
1175	1111 <span class="comment">% 'TESTFFT'</span>
1176	1112 <span class="comment">% Field</span>
1177	1113 <span class="comment">% nbfield=length(Field.ListVarName);</span>
1178	1114 <span class="comment">% if nbfield==0</span>
1179	1115 <span class="comment">% warndlg_uvmat('no field selected for FFT','ERROR')</span>
1180	1116 <span class="comment">% elseif nbfield>2</span>
1181	1117 <span class="comment">% warndlg_uvmat('select only one field for FFT','ERROR')</span>
1182	1118 <span class="comment">% end</span>
1183	1119 <span class="comment">% if nbfield==2</span>
1184	1120 <span class="comment">% % list_fields=get(handles.spectrum,'String');% list menu fields</span>
1185	1121 <span class="comment">% % index_fields=get(handles.spectrum,'Value');% selected string index</span>
1186	1122 <span class="comment">% % fields= list_fields{index_fields(1)}; % selected action</span>
1187	1123 <span class="comment">% % func=eval(fields);</span>
1188	1124 <span class="comment">% dtmin=min(diff(time));%time step</span>
1189	1125 <span class="comment">% time1=time(1);timend=time(end);</span>
1190	1126 <span class="comment">% timeq=[time1:dtmin:timend];%equal time spacing</span>
1191	1127 <span class="comment">% funcinterp=interp1(time,func,timeq); %interpolated func</span>
1192	1128 <span class="comment">% else</span>
1193	1129 <span class="comment">% varname=Field.ListVarName{1};</span>
1194	1130 <span class="comment">% eval(['funcinterp=Field.' varname ';'])</span>
1195	1131 <span class="comment">% end</span>
1196	1132 <span class="comment">% np=length(funcinterp);</span>
1197	1133 <span class="comment">% funcinterp=funcinterp-sum(funcinterp)/np; %substract mean</span>
1198	1134 <span class="comment">% fourier=fft(funcinterp);%take fft (complex)</span>
1199	1135 <span class="comment">% spec=abs(fourier).*abs(fourier);% take sqare of the modulus</span>
1200	1136 <span class="comment">% spec=spec([1:floor(np/2)]);%keep only the first half (the other is symmetric)</span>
1201	1137 <span class="comment">% eval(['Field.' varname '=spec;'])</span>
1202	1138 <span class="comment">% Field</span>
1203	1139 <span class="comment">% % dfreq=1/(time(end)-time(1));%frequency interval</span>
1204	1140 <span class="comment">% % freq=[0:dfreq:(floor(np/2)-1)*dfreq];</span>
1205	1141 <span class="comment">% % figure(1)</span>
1206	1142 <span class="comment">% % hold on</span>
1207	1143 <span class="comment">% % plot(freq,spec)</span>
1208	1144 <span class="comment">% % xlabel('frequency (Hz)')</span>
1209	1145 <span class="comment">% % ylabel('spectral intensity')</span>
1210	1146 <span class="comment">% % title(['spectrum of' fields]);</span>
1211	1147 <span class="comment">% % grid on</span>
1212	1148
1213	1149
1214	1150
1215	1151
1216	1152
1217	1153 <span class="comment">%%-------------------------------------------------------</span>
1218	1154 <span class="comment">% --- Executes on button press in peaklocking.</span>
1219	1155 <span class="comment">%-------------------------------------------------</span>
1220	1156 <a name="_sub16" href="#_subfunctions" class="code">function peaklocking(handles)</a>
1221	1157 <span class="comment">%evaluation of peacklocking errors</span>
1222	1158 <span class="comment">%use splinhist: give spline coeff cc for a smooth histo (call spline4)</span>
1223	1159 <span class="comment">%use histsmooth(x,cc): calculate the smooth histo for any value x</span>
1224	1160 <span class="comment">%use histder(x,cc): calculate the derivative of the smooth histo</span>
1225	1161 <span class="keyword">global</span> hfig1 hfig2 hfig3
1226	1162 <span class="keyword">global</span> nbb Uval Vval Uhist Vhist <span class="comment">% nbb resolution of the histogram nbb=10: 10 values in unity interval</span>
1227	1163 <span class="keyword">global</span> xval xerror yval yerror
1228	1164
1229	1165 set(handles.vector_y,<span class="string">'Value'</span>,1)<span class="comment">% trigger the option Uhist on the interface</span>
1230	1166 set(handles.Vhist_input,<span class="string">'Value'</span>,1)
1231	1167 set(handles.cm_switch,<span class="string">'Value'</span>,0) <span class="comment">% put the switch to 'pixel'</span>
1232	1168
1233	1169 <span class="comment">%adjust the extremal values of the histogram in U with respect to integer</span>
1234	1170 <span class="comment">%values</span>
1235	1171 minimU=round(min(Uval)-0.5)+0.5; <span class="comment">%first value of the histogram with integer bins</span>
1236	1172 maximU=round(max(Uval)-0.5)+0.5;
1237	1173 minim_fin=(minimU-0.5+1/(2*nbb)); <span class="comment">% first bin valueat the beginning of an integer interval</span>
1238	1174 maxim_fin=(maximU+0.5-1/(2*nbb)); <span class="comment">% last integer value</span>
1239	1175 nb_bin_min= round(-(minim_fin - min(Uval))*nbb); <span class="comment">% nbre of bins added below</span>
1240	1176 nb_bin_max=round((maxim_fin -max(Uval))*nbb); <span class="comment">%nbre of bins added above</span>
1241	1177 Uval=[minim_fin:(1/nbb):maxim_fin];
1242	1178 histu_min=zeros(nb_bin_min,1);
1243	1179 histu_max=zeros(nb_bin_max,1);
1244	1180 Uhist=[histu_min; Uhist ;histu_max]; <span class="comment">% column vector</span>
1245	1181
1246	1182 <span class="comment">%adjust the extremal values of the histogram in V</span>
1247	1183 minimV=round(min(Vval-0.5)+0.5);
1248	1184 maximV=round(max(Vval-0.5)+0.5);
1249	1185 minim_fin=minimV-0.5+1/(2*nbb); <span class="comment">% first bin valueat the beginning of an integer interval</span>
1250	1186 maxim_fin=maximV+0.5-1/(2*nbb); <span class="comment">% last integer value</span>
1251	1187 nb_bin_min=round((min(Vval) - minim_fin)*nbb); <span class="comment">% nbre of bins added below</span>
1252	1188 nb_bin_max=round((maxim_fin -max(Vval))*nbb);
1253	1189 Vval=[minim_fin:(1/nbb):maxim_fin];
1254	1190 histu_min=zeros(nb_bin_min,1);
1255	1191 histu_max=zeros(nb_bin_max,1);
1256	1192 Vhist=[histu_min; Vhist ;histu_max]; <span class="comment">% column vector</span>
1257	1193
1258	1194 <span class="comment">% plot_histo_Callback(hObject, eventdata, handles)</span>
1259	1195 <span class="comment">% %adjust the histogram to integer values:</span>
1260	1196
1261	1197 <span class="comment">%histoU and V</span>
1262	1198 [Uhistinter,xval,xerror]=<a href="peaklock.html" class="code" title="function [histinter,x,error]=peaklock(nbb,minim,maxim,histu)">peaklock</a>(nbb,minimU,maximU,Uhist);
1263	1199 [Vhistinter,yval,yerror]=<a href="peaklock.html" class="code" title="function [histinter,x,error]=peaklock(nbb,minim,maxim,histu)">peaklock</a>(nbb,minimV,maximV,Vhist);
1264	1200
1265	1201 <span class="comment">% selection of value ranges such that histo>=10 (enough statistics)</span>
1266	1202 Uval_ind=find(Uhist>=10);
1267	1203 ind_min=min(Uval_ind);
1268	1204 ind_max=max(Uval_ind);
1269	1205 U_min=Uval(ind_min);<span class="comment">% minimum allowed value</span>
1270	1206 U_max=Uval(ind_max);<span class="comment">%maximum allowed value</span>
1271	1207
1272	1208 <span class="comment">% selection of value ranges such that histo>=10 (enough statistics)</span>
1273	1209 Vval_ind=find(Vhist>=10);
1274	1210 ind_min=min(Vval_ind);
1275	1211 ind_max=max(Vval_ind);
1276	1212 V_min=Vval(ind_min);<span class="comment">% minimum allowed value</span>
1277	1213 V_max=Vval(ind_max);<span class="comment">%maximum allowed value</span>
1278	1214
1279	1215 figure(4)<span class="comment">% plot U histogram with smoothed one</span>
1280	1216 plot(Uval,Uhist,<span class="string">'b'</span>)
1281	1217 grid on
1282	1218 hold on
1283	1219 plot(Uval,Uhistinter,<span class="string">'r'</span>);
1284	1220 hold off
1285	1221
1286	1222 figure(5)<span class="comment">% plot V histogram with smoothed one</span>
1287	1223 plot(Vval,Vhist,<span class="string">'b'</span>)
1288	1224 grid on
1289	1225 hold on
1290	1226 plot(Vval,Vhistinter,<span class="string">'r'</span>);
1291	1227 hold off
1292	1228
1293	1229 figure(6)<span class="comment">% plot pixel error in two subplots</span>
1294	1230 hfig4=subplot(2,1,1);
1295	1231 hfig5=subplot(2,1,2);
1296	1232 axes(hfig4)
1297	1233 plot(xval,xerror)
1298	1234 axis([U_min U_max -0.4 0.4])
1299	1235 xlabel(<span class="string">'velocity u (pix)'</span>)
1300	1236 ylabel(<span class="string">'peaklocking error (pix)'</span>)
1301	1237 grid on
1302	1238 axes(hfig5)
1303	1239 plot(yval,yerror)
1304	1240 axis([V_min V_max -0.4 0.4]);
1305	1241 xlabel(<span class="string">'velocity v (pix)'</span>)
1306	1242 ylabel(<span class="string">'peaklocking error (pix)'</span>)
1307	1243 grid on
1308	1244
1309	1245
1310	1246 <span class="comment">% ------------------------------------------------------------------</span>
1311	1247 <a name="_sub17" href="#_subfunctions" class="code">function variables_Callback(hObject, eventdata, handles)</a>
1312	1248 Tabchar={<span class="string">''</span>};<span class="comment">%default</span>
1313	1249 Tabcell=[];
1314	1250 hselect_field=get(handles.variables,<span class="string">'parent'</span>);
1315	1251 Field=get(hselect_field,<span class="string">'UserData'</span>);
1316	1252 index=get(handles.variables,<span class="string">'Value'</span>);<span class="comment">%index in the list 'variables'</span>
1317	1253 <span class="keyword">if</span> isequal(index,1)
1318	1254 set(handles.attributes_txt,<span class="string">'String'</span>,<span class="string">'global attributes'</span>)
1319	1255 <span class="comment">% list global attribute names and values if index=1 (blank variable display) is selected</span>
1320	1256 <span class="keyword">if</span> isfield(Field,<span class="string">'ListGlobalAttribute'</span>) && ~isempty(Field.ListGlobalAttribute)
1321	1257 <span class="keyword">for</span> iline=1:length(Field.ListGlobalAttribute)
1322	1258 Tabcell{iline,1}=Field.ListGlobalAttribute{iline};
1323	1259 <span class="keyword">if</span> isfield(Field, Field.ListGlobalAttribute{iline})
1324	1260 eval([<span class="string">'val=Field.'</span> Field.ListGlobalAttribute{iline} <span class="string">';'</span>])
1325	1261 <span class="keyword">if</span> ischar(val);
1326	1262 Tabcell{iline,2}=val;
1327	1263 <span class="keyword">else</span>
1328	1264 Tabcell{iline,2}=num2str(val);
1329	1265 <span class="keyword">end</span>
1330	1266 <span class="keyword">end</span>
1331	1267 <span class="keyword">end</span>
1332	1268 Tabchar=<a href="cell2tab.html" class="code" title="function Tabchar=cell2tab(Tabcell,separator)">cell2tab</a>(Tabcell,<span class="string">'='</span>);
1333	1269 <span class="keyword">end</span>
1334	1270 <span class="keyword">else</span>
1335	1271 <span class="comment">%list attribute names and values associated to the variable # injdex-1</span>
1336	1272 list_var=get(handles.variables,<span class="string">'String'</span>);
1337	1273 var_select=list_var{index};
1338	1274 set(handles.attributes_txt,<span class="string">'String'</span>, [<span class="string">'attributes of '</span> var_select])
1339	1275 <span class="keyword">if</span> isfield(Field,<span class="string">'VarAttribute'</span>)& length(Field.VarAttribute)>=index-1
1340	1276 <span class="comment">% nbline=0;</span>
1341	1277 VarAttr=Field.VarAttribute{index-1};
1342	1278 <span class="keyword">if</span> isstruct(VarAttr)
1343	1279 attr_list=fieldnames(VarAttr);
1344	1280 <span class="keyword">for</span> iline=1:length(attr_list)
1345	1281 Tabcell{iline,1}=attr_list{iline};
1346	1282 eval([<span class="string">'val=VarAttr.'</span> attr_list{iline} <span class="string">';'</span>])
1347	1283 <span class="keyword">if</span> ischar(val);
1348	1284 Tabcell{iline,2}=val;
1349	1285 <span class="keyword">else</span>
1350	1286 Tabcell{iline,2}=num2str(val);
1351	1287 <span class="keyword">end</span>
1352	1288 <span class="keyword">end</span>
1353	1289 <span class="keyword">end</span>
1354	1290 <span class="keyword">end</span>
1355	1291
1356	1292 <span class="keyword">end</span>
1357	1293 <span class="keyword">if</span> ~isempty(Tabcell)
1358	1294 Tabchar=<a href="cell2tab.html" class="code" title="function Tabchar=cell2tab(Tabcell,separator)">cell2tab</a>(Tabcell,<span class="string">'='</span>);
1359	1295 Tabchar=[{<span class="string">''</span>};Tabchar];
1360	1296 <span class="keyword">end</span>
1361	1297 set(handles.attributes,<span class="string">'String'</span>,Tabchar);
1362	1298
1363	1299 <span class="comment">% list_var=get(handles.dimensions,'String');</span>
1364	1300 <span class="comment">% val=get(handles.dimensions,'Value');</span>
1365	1301
1366	1302 <span class="comment">% update dimensions;</span>
1367	1303 <span class="keyword">if</span> isfield(Field,<span class="string">'VarDimIndex'</span>)
1368	1304 Tabdim={};<span class="comment">%default</span>
1369	1305 <span class="keyword">if</span> isequal(index,1)
1370	1306 dim_indices=1:length(Field.ListDimName);
1371	1307 set(handles.dimensions_txt,<span class="string">'String'</span>, <span class="string">'dimensions'</span>)
1372	1308 <span class="keyword">else</span>
1373	1309 dim_indices=Field.VarDimIndex{index-1};
1374	1310 set(handles.dimensions_txt,<span class="string">'String'</span>, [<span class="string">'dimensions of '</span> var_select])
1375	1311 <span class="keyword">end</span>
1376	1312 <span class="keyword">for</span> iline=1:length(dim_indices)
1377	1313 Tabdim{iline,1}=Field.ListDimName{dim_indices(iline)};
1378	1314 Tabdim{iline,2}=num2str(Field.DimValue(dim_indices(iline)));
1379	1315 <span class="keyword">end</span>
1380	1316 Tabchar=<a href="cell2tab.html" class="code" title="function Tabchar=cell2tab(Tabcell,separator)">cell2tab</a>(Tabdim,<span class="string">'='</span>);
1381	1317 Tabchar=[{<span class="string">''</span>} ;Tabchar];
1382	1318 set(handles.dimensions,<span class="string">'String'</span>,Tabchar)
1383	1319 <span class="keyword">end</span>
1384	1320
1385	1321 <span class="comment">% --- Executes on button press in check_1Dplot.</span>
1386	1322 <a name="_sub18" href="#_subfunctions" class="code">function check_1Dplot_Callback(hObject, eventdata, handles)</a>
1387	1323 val=get(handles.check_1Dplot,<span class="string">'Value'</span>);
1388	1324 <span class="keyword">if</span> isequal(val,0)
1389	1325 set(handles.Panel1Dplot,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
1390	1326 <span class="comment">% set(handles.scalar,'Visible','off')</span>
1391	1327 <span class="comment">% set(handles.ordinate,'Max',2.0)%allow multiple ordinate input option</span>
1392	1328 <span class="comment">% if isequal(get(handles.check_vector,'Value'),0);</span>
1393	1329 <span class="comment">% set(handles.coord_z_vectors_scalar,'Visible','off')</span>
1394	1330 <span class="comment">% end</span>
1395	1331 <span class="keyword">else</span>
1396	1332 set(handles.Panel1Dplot,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
1397	1333 <span class="comment">% set(handles.scalar,'Visible','on')</span>
1398	1334 <span class="comment">% val=get(handles.ordinate,'Value');</span>
1399	1335 <span class="comment">% val=val(1);</span>
1400	1336 <span class="comment">% set(handles.ordinate,'Value',val);%suppress multiple ordinates</span>
1401	1337 <span class="comment">% set(handles.ordinate,'Max',1.0);%suppress multiple ordinate input option</span>
1402	1338 <span class="comment">% set(handles.coord_z_vectors_scalar,'Visible','on')</span>
1403	1339 <span class="keyword">end</span>
1404	1340
1405	1341 <span class="comment">% --- Executes on button press in check_scalar.</span>
1406	1342 <a name="_sub19" href="#_subfunctions" class="code">function check_scalar_Callback(hObject, eventdata, handles)</a>
1407	1343 val=get(handles.check_scalar,<span class="string">'Value'</span>);
1408	1344 <span class="keyword">if</span> isequal(val,0)
1409	1345 set(handles.PanelScalar,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
1410	1346 <span class="comment">% set(handles.scalar,'Visible','off')</span>
1411	1347 <span class="comment">% set(handles.ordinate,'Max',2.0)%allow multiple ordinate input option</span>
1412	1348 <span class="comment">% if isequal(get(handles.check_vector,'Value'),0);</span>
1413	1349 <span class="comment">% set(handles.coord_z_vectors_scalar,'Visible','off')</span>
1414	1350 <span class="comment">% end</span>
1415	1351 <span class="keyword">else</span>
1416	1352 set(handles.PanelScalar,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
1417	1353 <span class="comment">% set(handles.scalar,'Visible','on')</span>
1418	1354 <span class="comment">% val=get(handles.ordinate,'Value');</span>
1419	1355 <span class="comment">% val=val(1);</span>
1420	1356 <span class="comment">% set(handles.ordinate,'Value',val);%suppress multiple ordinates</span>
1421	1357 <span class="comment">% set(handles.ordinate,'Max',1.0);%suppress multiple ordinate input option</span>
1422	1358 <span class="comment">% set(handles.coord_z_vectors_scalar,'Visible','on')</span>
1423	1359 <span class="keyword">end</span>
1424	1360
1425	1361 <span class="comment">%---------------------------</span>
1426	1362 <span class="comment">% --- Executes on button press in check_vector.</span>
1427	1363 <a name="_sub20" href="#_subfunctions" class="code">function check_vector_Callback(hObject, eventdata, handles)</a>
1428	1364 val=get(handles.check_vector,<span class="string">'Value'</span>);
1429	1365 <span class="keyword">if</span> isequal(val,0)
1430	1366 set(handles.PanelVectors,<span class="string">'Visible'</span>,<span class="string">'off'</span>)
1431	1367 <span class="keyword">else</span>
1432	1368 set(handles.PanelVectors,<span class="string">'Visible'</span>,<span class="string">'on'</span>)
1433	1369 <span class="keyword">end</span>
1434	1370
1435	1371
1436	1372
1437	1373 <span class="comment">%-----------------------------</span>
1438	1374 <a name="_sub21" href="#_subfunctions" class="code">function mouse_up_gui(ggg,eventdata,handles)</a>
1439	1375 <span class="keyword">if</span> isequal(get(ggg,<span class="string">'SelectionType'</span>),<span class="string">'alt'</span>)
1440	1376 message=<span class="string">''</span>;
1441	1377 <span class="keyword">global</span> CurData
1442	1378 inputfield=get(handles.inputfile,<span class="string">'String'</span>);
1443	1379 <span class="keyword">if</span> exist(inputfield,<span class="string">'file'</span>)
1444	1380 CurData=<a href="nc2struct.html" class="code" title="function [Data,var_detect,ichoice]=nc2struct(nc,ListVarName)">nc2struct</a>(inputfield);
1445	1381 <span class="keyword">else</span>
1446	1382 CurData=get(ggg,<span class="string">'UserData'</span>);<span class="comment">% get_field opened from a input field, not a file</span>
1447	1383 <span class="keyword">end</span>
1448	1384 <span class="comment">%%%% TODO: put the matalb command window in front</span>
1449	1385 evalin(<span class="string">'base'</span>,<span class="string">'global CurData'</span>)<span class="comment">%make CurData global in the workspace</span>
1450	1386 evalin(<span class="string">'base'</span>,<span class="string">'CurData'</span>) <span class="comment">%display CurData in the workspace</span>
1451	1387 <span class="keyword">end</span>
1452	1388
1453	1389 <span class="comment">%---------------------------------------------</span>
1454	1390 <span class="comment">% --- Executes on selection change in ACTION.</span>
1455	1391 <a name="_sub22" href="#_subfunctions" class="code">function ACTION_Callback(hObject, eventdata, handles)</a>
1456	1392 list_ACTION=get(handles.ACTION,<span class="string">'String'</span>);<span class="comment">% list menu fields</span>
1457	1393 index_ACTION=get(handles.ACTION,<span class="string">'Value'</span>);<span class="comment">% selected string index</span>
1458	1394 ACTION= list_ACTION{index_ACTION}; <span class="comment">% selected string</span>
1459	1395 path_get_field=which(<span class="string">'get_field'</span>);<span class="comment">%path to series.m</span>
1460	1396 list_path=get(handles.ACTION,<span class="string">'UserData'</span>);
1461	1397 nb_builtin=0;
1462	1398 <span class="keyword">for</span> ilist=1:length(list_path)
1463	1399 <span class="keyword">if</span> isequal(list_path{ilist},path_get_field)
1464	1400 nb_builtin=nb_builtin+1;
1465	1401 <span class="keyword">else</span>
1466	1402 <span class="keyword">break</span>
1467	1403 <span class="keyword">end</span>
1468	1404 <span class="keyword">end</span>
1469	1405 <span class="keyword">if</span> nb_builtin==0<span class="comment">% the path to get_field has been changed, reinitialize</span>
1470	1406 <a href="#_sub1" class="code" title="subfunction get_field_OpeningFcn(hObject, eventdata, handles,filename,Field,haxes)">get_field_OpeningFcn</a>(hObject, eventdata, handles)
1471	1407 <span class="keyword">return</span>
1472	1408 <span class="keyword">end</span>
1473	1409
1474	1410 <span class="comment">% add a new function to the menu</span>
1475	1411 <span class="keyword">if</span> isequal(ACTION,<span class="string">'more...'</span>)
1476	1412 pathfct=fileparts(path_get_field);
1477	1413 browse_name=fullfile(path_get_field,<span class="string">'FIELD_FCT'</span>);
1478	1414 <span class="keyword">if</span> length(list_path)>nb_builtin
1479	1415 browse_name=list_path{end};<span class="comment">% initialize browser with the path of the last introduced function</span>
1480	1416 <span class="keyword">end</span>
1481	1417 <span class="comment">% fct_name='';</span>
1482	1418 <span class="comment">% dir_perso=prefdir;</span>
1483	1419 <span class="comment">% profil_perso=fullfile(dir_perso,'uvmat_perso.mat');</span>
1484	1420 <span class="comment">% display(profil_perso)</span>
1485	1421 <span class="comment">% if exist(profil_perso,'file')</span>
1486	1422 <span class="comment">% h=load (profil_perso);</span>
1487	1423 <span class="comment">% if isfield(h,'get_field_fct')</span>
1488	1424 <span class="comment">% fct_name=h.get_field_fct;</span>
1489	1425 <span class="comment">% end</span>
1490	1426 <span class="comment">% else</span>
1491	1427 <span class="comment">% path_to_uvmat=which ('uvmat');% check the path of uvmat</span>
1492	1428 <span class="comment">% pathfct=fileparts(path_to_uvmat);</span>
1493	1429 <span class="comment">% fct_name=fullfile(pathfct,'USR_FCT');%go to UVMAT/USR_FCT by default</span>
1494	1430 <span class="comment">% end</span>
1495	1431 [FileName, PathName] = uigetfile( <span class="keyword">...</span>
1496	1432 {<span class="string">'.m'</span>, <span class="string">' (.m)'</span>;
1497	1433 <span class="string">'*.m'</span>, <span class="string">'.m files '</span>; <span class="keyword">...</span>
1498	1434 <span class="string">'.'</span>, <span class="string">'All Files (.)'</span>}, <span class="keyword">...</span>
1499	1435 <span class="string">'Pick a file'</span>,browse_name);
1500	1436 <span class="keyword">if</span> length(FileName)<2
1501	1437 <span class="keyword">return</span>
1502	1438 <span class="keyword">end</span>
1503	1439 ext_fct=FileName(end-1:end);
1504	1440 <span class="keyword">if</span> ~isequal(ext_fct,<span class="string">'.m'</span>)
1505	1441 <a href="msgbox_uvmat.html" class="code" title="function varargout = msgbox_uvmat(varargin)">msgbox_uvmat</a>(<span class="string">'ERROR'</span>,<span class="string">'a Matlab function .m must be introduced'</span>);
1506	1442 <span class="keyword">return</span>
1507	1443 <span class="keyword">end</span>
1508	1444 ACTION=FileName(1:end-2);<span class="comment">% ACTION choice updated by the selected item</span>
1509	1445
1510	1446 <span class="comment">% insert the choice in the action menu</span>
1511	1447 menu_str=<a href="update_menu.html" class="code" title="function menu_str=update_menu(handle,strinput)">update_menu</a>(handles.ACTION,ACTION);<span class="comment">%new action menu in which the new item has been appended if needed</span>
1512	1448 index_ACTION=get(handles.ACTION,<span class="string">'Value'</span>);<span class="comment">% currently selected index in the list</span>
1513	1449 list_path{index_ACTION}=PathName;
1514	1450 <span class="keyword">if</span> length(menu_str)>nb_builtin+5;
1515	1451 nbremove=length(menu_str)-nb_builtin-5;
1516	1452 menu_str(nb_builtin+1:end-5)=[];
1517	1453 list_path(nb_builtin+1:end-4)=[];
1518	1454 index_ACTION=index_ACTION-nbremove;
1519	1455 set(handles.ACTION,<span class="string">'Value'</span>,index_ACTION)
1520	1456 set(handles.ACTION,<span class="string">'String'</span>,menu_str)
1521	1457 <span class="keyword">end</span>
1522	1458 list_path{index_ACTION}=PathName;
1523	1459 set(handles.ACTION,<span class="string">'UserData'</span>,list_path);
1524	1460 set(handles.path_action,<span class="string">'enable'</span>,<span class="string">'inactive'</span>)<span class="comment">% indicate that the current path is accessible (not 'off')</span>
1525	1461
1526	1462 <span class="comment">%record the current menu in personal file profil_perso</span>
1527	1463 dir_perso=prefdir;
1528	1464 profil_perso=fullfile(dir_perso,<span class="string">'uvmat_perso.mat'</span>);
1529	1465 <span class="keyword">for</span> ilist=nb_builtin+1:length(menu_str)-1
1530	1466 get_field_fct{ilist-nb_builtin}=fullfile(list_path{ilist},[menu_str{ilist} <span class="string">'.m'</span>]);
1531	1467 <span class="keyword">end</span>
1532	1468 <span class="keyword">if</span> exist(profil_perso,<span class="string">'file'</span>)
1533	1469 save(profil_perso,<span class="string">'get_field_fct'</span>,<span class="string">'-append'</span>)
1534	1470 <span class="keyword">else</span>
1535	1471 txt=ver;
1536	1472 Release=txt(1).Release;
1537	1473 relnumb=str2num(Release(3:4));
1538	1474 <span class="keyword">if</span> relnumb >= 14
1539	1475 save(profil_perso,<span class="string">'get_field_fct'</span>,<span class="string">'-V6'</span>)
1540	1476 <span class="keyword">else</span>
1541	1477 save(profil_perso, <span class="string">'get_field_fct'</span>)
1542	1478 <span class="keyword">end</span>
1543	1479 <span class="keyword">end</span>
1544	1480 <span class="keyword">end</span>
1545	1481
1546	1482 <span class="comment">%check the current path to the selected function</span>
1547	1483 PathName=list_path{index_ACTION};<span class="comment">%current recorded path</span>
1548	1484 <span class="keyword">if</span> ~isequal(path_get_field,PathName)
1549	1485 CurrentPath=fileparts(which(ACTION));
1550	1486 <span class="keyword">if</span> ~isequal(PathName,CurrentPath)
1551	1487 addpath(PathName)
1552	1488 errormsg=<a href="check_functions.html" class="code" title="function [errormsg,date_str]=check_functions">check_functions</a>;
1553	1489 <a href="msgbox_uvmat.html" class="code" title="function varargout = msgbox_uvmat(varargin)">msgbox_uvmat</a>(<span class="string">'CONFIRMATION'</span>,[[<span class="string">'path '</span> PathName <span class="string">' added to the current Matlab pathes'</span>];errormsg])
1554	1490 <span class="keyword">end</span>
1555	1491 <span class="keyword">end</span>
1556	1492 set(handles.path_action,<span class="string">'String'</span>,PathName); <span class="comment">%show the path to the senlected function</span>
1557	1493
1558	1494
1559	1495 <span class="comment">% fct_name=fullfile(PathName, FileName);</span>
1560	1496 <span class="comment">% if ~exist(fct_name,'file')</span>
1561	1497 <span class="comment">% msgbox_uvmat('ERROR',['procesing fct ' fct_name ' not found'])</span>
1562	1498 <span class="comment">% else</span>
1563	1499 <span class="comment">% ACTION=FileName(1:end-2);%</span>
1564	1500 <span class="comment">% menu=update_menu(handles.ACTION,ACTION);%add the selected fct to the menu</span>
1565	1501 <span class="comment">% index_ACTION=get(handles.ACTION,'Value');% selected string index</span>
1566	1502 <span class="comment">% list_path{index_ACTION}=PathName;</span>
1567	1503 <span class="comment">% set(handles.ACTION,'UserData',list_path)</span>
1568	1504 <span class="comment">% if exist(profil_perso,'file')</span>
1569	1505 <span class="comment">% save (profil_perso,'coord_fct','-append'); %store the root name for future opening of uvmat</span>
1570	1506 <span class="comment">% end</span>
1571	1507 <span class="comment">% end</span>
1572	1508 <span class="comment">%</span>
1573	1509 <span class="comment">%</span>
1574	1510 <span class="comment">% fileinput=FileName;%complete file name</span>
1575	1511 <span class="comment">% eval(['spath=which(''' FileName ''');'])% current path to the function FileName</span>
1576	1512 <span class="comment">% if ~isequal(spath,PathName)</span>
1577	1513 <span class="comment">% addpath(PathName)</span>
1578	1514 <span class="comment">% end</span>
1579	1515 <span class="comment">% FileName([end-1:end])=[];</span>
1580	1516 <span class="comment">%</span>
1581	1517 <span class="comment">% % insert the choice in the action menu</span>
1582	1518 <span class="comment">% nbACTION=length(list_ACTION);</span>
1583	1519 <span class="comment">% index=0;</span>
1584	1520 <span class="comment">% for ilist=1:nbACTION</span>
1585	1521 <span class="comment">% if isequal(FileName,list_ACTION{ilist})%look for the selected scalar in the fields_input menu</span>
1586	1522 <span class="comment">% index=ilist;%</span>
1587	1523 <span class="comment">% end</span>
1588	1524 <span class="comment">% end</span>
1589	1525 <span class="comment">% if index==0</span>
1590	1526 <span class="comment">% list_ACTION{nbACTION}=FileName; %put the chosen fct at the penultimate place in the fields_input menu</span>
1591	1527 <span class="comment">% list_path{nbACTION}=PathName;</span>
1592	1528 <span class="comment">% index=nbACTION;</span>
1593	1529 <span class="comment">% list_ACTION{nbACTION+1}='more...';</span>
1594	1530 <span class="comment">% set(handles.ACTION,'String',list_ACTION)</span>
1595	1531 <span class="comment">% end</span>
1596	1532 <span class="comment">% set(handles.ACTION,'Value',index);% store the selected scalar type</span>
1597	1533 <span class="comment">% set(handles.ACTION,'UserData',list_path);</span>
1598	1534 <span class="comment">% usr_defined_fct=fct_name;</span>
1599	1535 <span class="comment">% nbmenu=length(list_ACTION);</span>
1600	1536 <span class="comment">% nbadd=nbmenu-5;</span>
1601	1537 <span class="comment">% ilist=0;</span>
1602	1538 <span class="comment">% for imenu=nbmenu-min(4,nbadd):nbmenu-1</span>
1603	1539 <span class="comment">% ilist=ilist+1;</span>
1604	1540 <span class="comment">% fct_get_field{ilist,1}=list_ACTION{imenu};</span>
1605	1541 <span class="comment">% fct_path_get_field{ilist}=list_path{imenu};</span>
1606	1542 <span class="comment">% end</span>
1607	1543 <span class="comment">% if exist(profil_perso,'file')</span>
1608	1544 <span class="comment">% save(profil_perso,'usr_defined_fct','fct_get_field','fct_path_get_field','-append')</span>
1609	1545 <span class="comment">% else</span>
1610	1546 <span class="comment">% save(profil_perso,'usr_defined_fct','fct_get_field','fct_path_get_field','-V6')</span>
1611	1547 <span class="comment">% end</span>
1612	1548 <span class="comment">% end</span>
1613	1549
1614	1550 <span class="comment">% %check the current path to the selected function</span>
1615	1551 <span class="comment">% list_path</span>
1616	1552 <span class="comment">% PathName=list_path{index_ACTION}</span>
1617	1553 <span class="comment">% CurrentPath=fileparts(which(ACTION))</span>
1618	1554 <span class="comment">% if ~isequal(PathName,CurrentPath)</span>
1619	1555 <span class="comment">% addpath(PathName)</span>
1620	1556 <span class="comment">% errormsg=check_functions;</span>
1621	1557 <span class="comment">% msgbox_uvmat('WARNING',[['path ' PathName ' added to the current Matlab pathes'];errormsg])</span>
1622	1558 <span class="comment">% end</span>
1623	1559 <span class="comment">% set(handles.path_action,'String',fullfile(PathName,' ')); %show the path to the senlected function</span>
1624	1560
1625	1561 <span class="comment">%default setting for the visibility of the GUI elements*</span>
1626	1562 <span class="keyword">if</span> ~isequal(ACTION,<span class="string">'PLOT'</span>)
1627	1563 varargout=feval(ACTION);<span class="comment">% input list asked by the selected function</span>
1628	1564 test_1Dplot=[];
1629	1565 test_scalar=[];
1630	1566 test_vector=[];
1631	1567 <span class="keyword">for</span> ilist=1:length(varargout)-1
1632	1568 <span class="keyword">switch</span> varargout{ilist}
1633	1569 <span class="comment">%RootFile always visible</span>
1634	1570 <span class="keyword">case</span> <span class="string">'check_1Dplot'</span>
1635	1571 test_1Dplot=isequal(lower(varargout{ilist+1}),<span class="string">'y'</span>);
1636	1572 <span class="keyword">case</span> <span class="string">'check_scalar'</span>
1637	1573 test_scalar=isequal(lower(varargout{ilist+1}),<span class="string">'y'</span>);
1638	1574 <span class="keyword">case</span> <span class="string">'check_vector'</span>
1639	1575 test_vector=isequal(lower(varargout{ilist+1}),<span class="string">'y'</span>);
1640	1576 <span class="keyword">end</span>
1641	1577 <span class="keyword">end</span>
1642	1578 <span class="keyword">if</span> test_1Dplot==0
1643	1579 set(handles.check_1Dplot,<span class="string">'Value'</span>,0);
1644	1580 <span class="keyword">end</span>
1645	1581 <span class="keyword">if</span> test_1Dplot==1
1646	1582 set(handles.check_1Dplot,<span class="string">'Value'</span>,1);
1647	1583 <span class="keyword">end</span>
1648	1584 <span class="keyword">if</span> test_scalar==0
1649	1585 set(handles.check_scalar,<span class="string">'Value'</span>,0);
1650	1586 <span class="keyword">end</span>
1651	1587 <span class="keyword">if</span> test_scalar==1
1652	1588 set(handles.check_scalar,<span class="string">'Value'</span>,1);
1653	1589 <span class="keyword">end</span>
1654	1590 <span class="keyword">if</span> test_vector==0
1655	1591 set(handles.check_vector,<span class="string">'Value'</span>,0);
1656	1592 <span class="keyword">end</span>
1657	1593 <span class="keyword">if</span> test_vector==1
1658	1594 set(handles.check_vector,<span class="string">'Value'</span>,1);
1659	1595 <span class="keyword">end</span>
1660	1596 <a href="#_sub18" class="code" title="subfunction check_1Dplot_Callback(hObject, eventdata, handles)">check_1Dplot_Callback</a>(hObject, eventdata, handles)
1661	1597 <a href="#_sub19" class="code" title="subfunction check_scalar_Callback(hObject, eventdata, handles)">check_scalar_Callback</a>(hObject, eventdata, handles)
1662	1598 <a href="#_sub20" class="code" title="subfunction check_vector_Callback(hObject, eventdata, handles)">check_vector_Callback</a>(hObject, eventdata, handles)
1663	1599 <span class="keyword">end</span>
1664	1600 <span class="comment">%</span>
1665	1601 <span class="comment">% % --- Executes on selection change in menu_coord.</span>
1666	1602 <span class="comment">% function menu_coord_Callback(hObject, eventdata, handles)</span>
1667	1603 <span class="comment">% hget_field=get(handles.menu_coord,'parent');</span>
1668	1604 <span class="comment">% menu=get(handles.menu_coord,'String');</span>
1669	1605 <span class="comment">% ind_coord=get(handles.menu_coord,'Value');</span>
1670	1606 <span class="comment">% coord_option=menu{ind_coord};</span>
1671	1607 <span class="comment">% if isequal(coord_option,'more...');</span>
1672	1608 <span class="comment">% fct_name='';</span>
1673	1609 <span class="comment">% if exist('./TMP/current_usr_fct.mat','file')% if a file is found</span>
1674	1610 <span class="comment">% h=load('./TMP/current_usr_fct.mat');</span>
1675	1611 <span class="comment">% if isfield(h,'fct_name');</span>
1676	1612 <span class="comment">% fct_name=h.fct_name;</span>
1677	1613 <span class="comment">% end</span>
1678	1614 <span class="comment">% end</span>
1679	1615 <span class="comment">% prompt = {'Enter the name of the transform function'};</span>
1680	1616 <span class="comment">% dlg_title = 'user defined transform';</span>
1681	1617 <span class="comment">% num_lines= 1;</span>
1682	1618 <span class="comment">% [FileName, PathName, filterindex] = uigetfile( ...</span>
1683	1619 <span class="comment">% {'.m', ' (.m)';</span>
1684	1620 <span class="comment">% '*.m', '.m files '; ...</span>
1685	1621 <span class="comment">% '.', 'All Files (.)'}, ...</span>
1686	1622 <span class="comment">% 'Pick a file', fct_name);</span>
1687	1623 <span class="comment">% fct_name=fullfile(PathName,FileName);</span>
1688	1624 <span class="comment">% addpath(PathName);%add the path to the selected fct</span>
1689	1625 <span class="comment">% [errormsg,date_str]=check_functions;%check whether new functions can oversed the uvmat package A UTILISER</span>
1690	1626 <span class="comment">% if ~exist(fct_name,'file')</span>
1691	1627 <span class="comment">% warndlg_uvmat(['image procesing fct ' fct_name ' not found'],'WARNING')</span>
1692	1628 <span class="comment">% else</span>
1693	1629 <span class="comment">% transform=FileName(1:end-2);%</span>
1694	1630 <span class="comment">% menu=update_menu(handles.menu_coord,transform);%add the selected fct to the menu</span>
1695	1631 <span class="comment">% % set(handles.mouse_coord,'String',menu([1:end-1])')%update the mouse coord menu</span>
1696	1632 <span class="comment">% save ('./TMP/current_usr_fct.mat','fct_name');</span>
1697	1633 <span class="comment">% end</span>
1698	1634 <span class="comment">% end</span>
1699	1635
1700	1636 <span class="comment">% --- Executes on selection change in menu_coord.</span>
1701	1637 <a name="_sub23" href="#_subfunctions" class="code">function HELP_Callback(hObject, eventdata, handles)</a>
1702	1638 path_to_uvmat=which (<span class="string">'uvmat'</span>);<span class="comment">% check the path of uvmat</span>
1703	1639 pathelp=fileparts(path_to_uvmat);
1704	1640 helpfile=fullfile(pathelp,<span class="string">'UVMAT_DOC'</span>,<span class="string">'uvmat_doc.html'</span>);
1705	1641 <span class="keyword">if</span> isempty(dir(helpfile)), errordlg(<span class="string">'Please put the help file uvmat_doc.html in the directory UVMAT/UVMAT_DOC'</span>)
1706	1642 <span class="keyword">else</span>
1707	1643 web([helpfile <span class="string">'#get_field'</span>])
1708	1644 <span class="keyword">end</span>
1709	1645
1710	1646 <span class="comment">%-----------------------------------------------------</span>
1711	1647 <span class="comment">% --- browse existing figures</span>
1712	1648 <span class="comment">%-----------------------------------------------------</span>
1713	1649 <a name="_sub24" href="#_subfunctions" class="code">function browse_fig(menu_handle)</a>
1714	1650 hh=findobj(allchild(0),<span class="string">'Type'</span>,<span class="string">'figure'</span>);
1715	1651 ilist=0;
1716	1652 list={};
1717	1653 <span class="keyword">for</span> ifig=1:length(hh) <span class="comment">%look for all existing figures</span>
1718	1654 name=get(hh(ifig),<span class="string">'Name'</span>);
1719	1655 <span class="keyword">if</span> ~isequal(name,<span class="string">'uvmat'</span>)<span class="comment">%case of uvmat GUI</span>
1720	1656 <span class="comment">% ilist=ilist+1;</span>
1721	1657 <span class="comment">% list{ilist,1}='uvmat';</span>
1722	1658 <span class="comment">% else %other figures</span>
1723	1659 hchild=get(hh(ifig),<span class="string">'children'</span>);<span class="comment">% look for axes contained in each figure</span>
1724	1660 nbaxe=0;
1725	1661 <span class="keyword">for</span> ichild=1:length(hchild)
1726	1662 Type=get(hchild(ichild),<span class="string">'Type'</span>);
1727	1663 Tag=get(hchild(ichild),<span class="string">'Tag'</span>);
1728	1664 <span class="keyword">if</span> isequal(Type,<span class="string">'axes'</span>)
1729	1665 <span class="keyword">if</span> ~isequal(Tag,<span class="string">'Colorbar'</span>)& ~isequal(Tag,<span class="string">'legend'</span>)<span class="comment">% don't select colorbars for plotting</span>
1730	1666 nbaxe=nbaxe+1;<span class="comment">%count the existing axis</span>
1731	1667 <span class="keyword">end</span>
1732	1668 <span class="keyword">end</span>
1733	1669 <span class="keyword">end</span>
1734	1670 <span class="keyword">if</span> nbaxe==1
1735	1671 ilist=ilist+1;<span class="comment">%add a line in the list of axis</span>
1736	1672 list{ilist,1}=num2str(hh(ifig));
1737	1673 <span class="keyword">elseif</span> nbaxe>1
1738	1674 <span class="keyword">for</span> iaxe=1:nbaxe
1739	1675 ilist=ilist+1;<span class="comment">%add a line in the list of axis</span>
1740	1676 list{ilist,1}=[num2str(hh(ifig)) <span class="string">'_'</span> num2str(iaxe)];
1741	1677 <span class="keyword">end</span>
1742	1678 <span class="keyword">end</span>
1743	1679 <span class="keyword">end</span>
1744	1680 <span class="keyword">end</span>
1745	1681 list=[<span class="string">'new fig...'</span>;<span class="string">'uvmat'</span>;list];
1746	1682 set(menu_handle,<span class="string">'Value'</span>,1)
1747	1683 set(menu_handle,<span class="string">'String'</span>,list)
1748	1684
1749	1685
1750	1686 <span class="comment">%-----------------------------------------------------</span>
1751	1687 <a name="_sub25" href="#_subfunctions" class="code">function list_fig_Callback(hObject, eventdata, handles)</a>
1752	1688 <span class="comment">%-----------------------------------------------------</span>
1753	1689 list_fig=get(handles.list_fig,<span class="string">'String'</span>);
1754	1690 fig_val=get(handles.list_fig,<span class="string">'Value'</span>);
1755	1691 plot_fig=list_fig{fig_val};
1756	1692 <span class="keyword">if</span> isequal(plot_fig,<span class="string">'uvmat'</span>)
1757	1693 huvmat=findobj(allchild(0),<span class="string">'name'</span>,<span class="string">'uvmat'</span>);
1758	1694 <span class="keyword">if</span> ~isempty(huvmat)
1759	1695 uistack(huvmat,<span class="string">'top'</span>)
1760	1696 <span class="keyword">end</span>
1761	1697 <span class="keyword">elseif</span> ~isequal(plot_fig,<span class="string">'new fig...'</span>) & ~isequal(plot_fig,<span class="string">'uvmat'</span>)
1762	1698 sep=regexp(plot_fig,<span class="string">'_'</span>);
1763	1699 <span class="keyword">if</span> ~isempty(sep)
1764	1700 plot_fig=plot_fig([1:sep-1]);
1765	1701 <span class="keyword">end</span>
1766	1702 <span class="keyword">if</span> ishandle(str2num(plot_fig))
1767	1703 figure(str2num(plot_fig))<span class="comment">% display existing figure</span>
1768	1704 <span class="keyword">else</span>
1769	1705 <a href="#_sub24" class="code" title="subfunction browse_fig(menu_handle)">browse_fig</a>(handles.list_fig); <span class="comment">%reset the current list of figures</span>
1770	1706 <span class="keyword">end</span>
1771	1707 <span class="keyword">end</span>
1772	1708
1773	1709
1774	1710 <span class="comment">%-------------------------------------------------</span>
1775	1711 <span class="comment">% give index numbers of the strings str in the list ListvarName</span>
1776	1712 <a name="_sub26" href="#_subfunctions" class="code">function VarIndex_y=name2index(cell_str,ListVarName)</a>
1777	1713 VarIndex_y=[];
1778	1714 <span class="keyword">if</span> ischar(cell_str)
1779	1715 <span class="keyword">for</span> ivar=1:length(ListVarName)
1780	1716 varlist=ListVarName{ivar};
1781	1717 <span class="keyword">if</span> isequal(varlist,cell_str)
1782	1718 VarIndex_y= ivar;
1783	1719 <span class="keyword">break</span>
1784	1720 <span class="keyword">end</span>
1785	1721 <span class="keyword">end</span>
1786	1722 <span class="keyword">elseif</span> iscell(cell_str)
1787	1723 <span class="keyword">for</span> isel=1:length(cell_str)
1788	1724 varsel=cell_str{isel};
1789	1725 <span class="keyword">for</span> ivar=1:length(ListVarName)
1790	1726 varlist=ListVarName{ivar};
1791	1727 <span class="keyword">if</span> isequal(varlist,varsel)
1792	1728 VarIndex_y=[VarIndex_y ivar];
1793	1729 <span class="keyword">end</span>
1794	1730 <span class="keyword">end</span>
1795	1731 <span class="keyword">end</span>
1796	1732 <span class="keyword">end</span>
1797	1733
1798	1734
1799	1735 <span class="comment">% --- Executes on selection change in vector_z.</span>
1800	1736 <a name="_sub27" href="#_subfunctions" class="code">function vector_z_Callback(hObject, eventdata, handles)</a>
1801	1737 Aindex=get(handles.vector_z,<span class="string">'Value'</span>);
1802	1738 Astring=get(handles.vector_z,<span class="string">'String'</span>);
1803	1739 VarName=Astring{Aindex};
1804	1740 <a href="#_sub11" class="code" title="subfunction update_field(hObject, eventdata, handles,VarName)">update_field</a>(hObject, eventdata, handles,VarName)
1805	1741
1806	1742 <span class="comment">% --- Executes on selection change in coord_z_scalar.</span>
1807	1743 <a name="_sub28" href="#_subfunctions" class="code">function coord_z_scalar_Callback(hObject, eventdata, handles)</a>
1808	1744 hselect_field=get(handles.inputfile,<span class="string">'parent'</span>);
1809	1745 Field=get(hselect_field,<span class="string">'UserData'</span>);
1810	1746 list=get(handles.coord_z_scalar,<span class="string">'String'</span>);
1811	1747 yindex=get(handles.coord_z_scalar,<span class="string">'Value'</span>);
1812	1748 xindex=<a href="#_sub26" class="code" title="subfunction VarIndex_y=name2index(cell_str,ListVarName)">name2index</a>(list{yindex(1)},Field.ListVarName);
1813	1749 <span class="keyword">if</span> ~isempty(xindex)
1814	1750 set(handles.variables,<span class="string">'Value'</span>,xindex+1)
1815	1751 <a href="#_sub17" class="code" title="subfunction variables_Callback(hObject, eventdata, handles)">variables_Callback</a>(hObject, eventdata, handles)
1816	1752 <span class="keyword">end</span>
1817	1753 Field.VarIndex.z=xindex;
1818	1754 set(hselect_field,<span class="string">'UserData'</span>,Field);
1819	1755
1820	1756 <span class="comment">% --- Executes on selection change in coord_x_vectors.</span>
1821	1757 <a name="_sub29" href="#_subfunctions" class="code">function coord_x_scalar_Callback(hObject, eventdata, handles)</a>
1822	1758
1823	1759 <span class="comment">% --- Executes on selection change in coord_x_vectors.</span>
1824	1760 <a name="_sub30" href="#_subfunctions" class="code">function coord_y_scalar_Callback(hObject, eventdata, handles)</a>
1825	1761
1826	1762
1827	1763 <span class="comment">% --- Executes on selection change in coord_y_vectors.</span>
1828	1764 <a name="_sub31" href="#_subfunctions" class="code">function coord_y_vectors_Callback(hObject, eventdata, handles)</a>
1829	1765
1830	1766 <span class="comment">% --- Executes on selection change in coord_x_vectors.</span>
1831	1767 <a name="_sub32" href="#_subfunctions" class="code">function coord_x_vectors_Callback(hObject, eventdata, handles)</a>
1832	1768
1833	1769
1834	1770
1835	1771
1836	1772 <span class="comment">% --- Executes on selection change in vec_color.</span>
1837	1773 <a name="_sub33" href="#_subfunctions" class="code">function vec_color_Callback(hObject, eventdata, handles)</a>
1838	1774
1839	1775
1840	1776 <span class="comment">% --------------------------------------------------------------------</span>
1841	1777 <a name="_sub34" href="#_subfunctions" class="code">function MenuOpen_Callback(hObject, eventdata, handles)</a>
1842	1778 <span class="comment">% hObject handle to MenuOpen (see GCBO)</span>
1843	1779 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1844	1780 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1845	1781
1846	1782
1847	1783 <span class="comment">% --------------------------------------------------------------------</span>
1848	1784 <a name="_sub35" href="#_subfunctions" class="code">function MenuExport_Callback(hObject, eventdata, handles)</a>
1849	1785 <span class="comment">% hObject handle to MenuExport (see GCBO)</span>
1850	1786 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1851	1787 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1852	1788
1853	1789
1854	1790 <span class="comment">% --------------------------------------------------------------------</span>
1855	1791 <a name="_sub36" href="#_subfunctions" class="code">function MenuBrowse_Callback(hObject, eventdata, handles)</a>
1856	1792
1857	1793 oldfile=get(handles.inputfile,<span class="string">'String'</span>);
1858	1794 testrootfile=0;
1859	1795 testsubdir=0;
1860	1796 <span class="keyword">if</span> isempty(oldfile)\|isequal(oldfile,<span class="string">''</span>) <span class="comment">%loads the previously stored file name and set it as default in the file_input box</span>
1861	1797 oldfile=<span class="string">''</span>;
1862	1798 dir_perso=prefdir;
1863	1799 profil_perso=fullfile(dir_perso,<span class="string">'uvmat_perso.mat'</span>);
1864	1800 <span class="keyword">if</span> exist(profil_perso,<span class="string">'file'</span>)
1865	1801 h=load (profil_perso);
1866	1802 <span class="keyword">if</span> isfield(h,<span class="string">'RootPath'</span>)
1867	1803 RootPath=h.RootPath;
1868	1804 <span class="keyword">end</span>
1869	1805 <span class="keyword">if</span> isfield(h,<span class="string">'SubDir'</span>)
1870	1806 SubDir=h.SubDir;
1871	1807 <span class="keyword">if</span> ~isempty(SubDir)
1872	1808 testsubdir=1;
1873	1809 <span class="keyword">end</span>
1874	1810 <span class="keyword">end</span>
1875	1811 <span class="keyword">if</span> isfield(h,<span class="string">'RootFile'</span>)
1876	1812 RootFile=h.RootFile;
1877	1813 <span class="keyword">if</span> ~isempty(RootFile)
1878	1814 testrootfile=1;
1879	1815 <span class="keyword">end</span>
1880	1816 <span class="keyword">end</span>
1881	1817 <span class="keyword">end</span>
1882	1818 <span class="keyword">end</span>
1883	1819 <span class="keyword">if</span> testrootfile
1884	1820 <span class="keyword">if</span> ~testsubdir
1885	1821 oldfile=fullfile(RootPath,RootFile);
1886	1822 <span class="keyword">else</span>
1887	1823 oldfile=fullfile(RootPath,SubDir,RootFile);
1888	1824 <span class="keyword">end</span>
1889	1825 <span class="keyword">end</span>
1890	1826 [FileName, PathName] = uigetfile( <span class="keyword">...</span>
1891	1827 {<span class="string">'.nc'</span>, <span class="string">' .nc'</span>;<span class="keyword">...</span>
1892	1828 <span class="string">'.cdf'</span>, <span class="string">' .cdf'</span>;<span class="keyword">...</span>
1893	1829 <span class="string">'.'</span>, <span class="string">'All Files (.)'</span>}, <span class="keyword">...</span>
1894	1830 <span class="string">'Pick a file'</span>,oldfile);
1895	1831
1896	1832 <span class="comment">%global inputfile</span>
1897	1833 fileinput=[PathName FileName];<span class="comment">%complete file name</span>
1898	1834 testblank=findstr(fileinput,<span class="string">' '</span>);<span class="comment">%look for blanks</span>
1899	1835 <span class="keyword">if</span> ~isempty(testblank)
1900	1836 <a href="warndlg_uvmat.html" class="code" title="function hwarn=warndlg_uvmat(warntext,title)">warndlg_uvmat</a>([<span class="string">'The input file name '</span> fileinput <span class="string">' contains blank character : This is not allowed. Please change name'</span>],<span class="string">'ERROR'</span>)
1901	1837 <span class="keyword">return</span>
1902	1838 <span class="keyword">end</span>
1903	1839 sizf=size(fileinput);
1904	1840 <span class="keyword">if</span> (~ischar(fileinput)\|~isequal(sizf(1),1)),<span class="keyword">return</span>;<span class="keyword">end</span>
1905	1841 set(handles.inputfile,<span class="string">'String'</span>,fileinput)
1906	1842 <a href="#_sub4" class="code" title="subfunction inputfile_Callback(hObject, eventdata, handles)">inputfile_Callback</a>(hObject, eventdata, handles)
1907	1843
1908	1844
1909	1845 <span class="comment">%update list of recent files in the menubar</span>
1910	1846 MenuFile_1=fileinput;
1911	1847 MenuFile_2=get(handles.MenuFile_1,<span class="string">'Label'</span>);
1912	1848 MenuFile_3=get(handles.MenuFile_2,<span class="string">'Label'</span>);
1913	1849 MenuFile_4=get(handles.MenuFile_3,<span class="string">'Label'</span>);
1914	1850 MenuFile_5=get(handles.MenuFile_4,<span class="string">'Label'</span>);
1915	1851 set(handles.MenuFile_1,<span class="string">'Label'</span>,MenuFile_1)
1916	1852 set(handles.MenuFile_2,<span class="string">'Label'</span>,MenuFile_2)
1917	1853 set(handles.MenuFile_3,<span class="string">'Label'</span>,MenuFile_3)
1918	1854 set(handles.MenuFile_4,<span class="string">'Label'</span>,MenuFile_4)
1919	1855 set(handles.MenuFile_5,<span class="string">'Label'</span>,MenuFile_5)
1920	1856
1921	1857
1922	1858 <span class="comment">% %store input file in personal file uvmat_perso.mat</span>
1923	1859 <span class="comment">% dir_perso=prefdir;</span>
1924	1860 <span class="comment">% profil_perso=fullfile(dir_perso,'uvmat_perso.mat');</span>
1925	1861 <span class="comment">% if exist(profil_perso,'file')</span>
1926	1862 <span class="comment">% save (profil_perso,'RootPath','SubDir','RootFile','NomType', 'ext','-append'); %store the root name for future opening of uvmat</span>
1927	1863 <span class="comment">% else</span>
1928	1864 <span class="comment">% save (profil_perso,'RootPath','SubDir','RootFile','NomType', 'ext'); %store the root name for future opening of uvmat</span>
1929	1865 <span class="comment">% end</span>
1930	1866
1931	1867
1932	1868 <span class="comment">% --------------------------------------------------------------------</span>
1933	1869 <a name="_sub37" href="#_subfunctions" class="code">function MenuFile_1_Callback(hObject, eventdata, handles)</a>
1934	1870 <span class="comment">% hObject handle to MenuFile_1 (see GCBO)</span>
1935	1871 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1936	1872 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1937	1873
1938	1874
1939	1875 <span class="comment">% --------------------------------------------------------------------</span>
1940	1876 <a name="_sub38" href="#_subfunctions" class="code">function MenuFile_2_Callback(hObject, eventdata, handles)</a>
1941	1877 <span class="comment">% hObject handle to MenuFile_2 (see GCBO)</span>
1942	1878 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1943	1879 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1944	1880
1945	1881
1946	1882 <span class="comment">% --------------------------------------------------------------------</span>
1947	1883 <a name="_sub39" href="#_subfunctions" class="code">function MenuFile_3_Callback(hObject, eventdata, handles)</a>
1948	1884 <span class="comment">% hObject handle to MenuFile_3 (see GCBO)</span>
1949	1885 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1950	1886 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1951	1887
1952	1888
1953	1889 <span class="comment">% --------------------------------------------------------------------</span>
1954	1890 <a name="_sub40" href="#_subfunctions" class="code">function MenuFile_4_Callback(hObject, eventdata, handles)</a>
1955	1891 <span class="comment">% hObject handle to MenuFile_4 (see GCBO)</span>
1956	1892 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1957	1893 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1958	1894
1959	1895
1960	1896 <span class="comment">% --------------------------------------------------------------------</span>
1961	1897 <a name="_sub41" href="#_subfunctions" class="code">function MenuFile_5_Callback(hObject, eventdata, handles)</a>
1962	1898 <span class="comment">% hObject handle to MenuFile_5 (see GCBO)</span>
1963	1899 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1964	1900 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1965	1901
1966	1902
1967	1903 <span class="comment">% --------------------------------------------------------------------</span>
1968	1904 <a name="_sub42" href="#_subfunctions" class="code">function ExportField_Callback(hObject, eventdata, handles)</a>
1969	1905 <span class="comment">% hObject handle to ExportField (see GCBO)</span>
1970	1906 <span class="comment">% eventdata reserved - to be defined in a future version of MATLAB</span>
1971	1907 <span class="comment">% handles structure with handles and user data (see GUIDATA)</span>
1972	1908
1973	1909</pre></div>
1974	<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> © 2003</address>
1975	</body>
1976	</html>

Note: See TracBrowser for help on using the repository browser.

Download in other formats: