Add files via upload

Author: okosnyreva

ar29_matlab_codes_olga/functions/f_hhmm2timevec.m

@@ -0,0 +1,20 @@
+function [time_vector] = f_hhmm2timevec(hhmm)
+% Convert time representation hhmm to time vector
+% E.g.
+% If hhmm=[2205 2350 0 103 230] then 
+% f_hhmm2timevec(hhmm) returns:
+%    [22     5
+%     23    50
+%      0     0
+%      1     3
+%      2    30]
+
+if size(hhmm,1)>1 & size(hhmm,2)>1
+    disp('Input must be a scalar or vector');
+    return;
+elseif size(hhmm,2)>1
+    hhmm=hhmm';
+end
+hh = floor(hhmm/1e2);
+mm = hhmm - floor(hhmm/1e2)*1e2;
+time_vector=[hh mm];   

ar29_matlab_codes_olga/functions/f_menu_of_numbers_title.m

@@ -0,0 +1,143 @@
+function [selectedNum]=f_menu_of_numbers_title(menu_title,v)
+% Set Menu of numbers in the vector v with a title 'menu_title';
+% USE: 
+%leg=f_menu_of_numbers_title('Survey#',[1:4]);
+%if isempty(leg), return; end
+% Olga Kosnyreva, AOPE/WHOI, 5/5/2006
+
+selectedNum=[];
+if nargin==1        % number_start can be a vector in this case
+   disp('Not enought input arguments');
+   return;
+elseif nargin==2        % number_start can be a vector in this case
+   if ~isstr(menu_title)
+      disp('First argument must be a string');
+      return;
+   end 
+   if ~isnumeric(v)
+      disp('Second argument must be a scalar or vector of numbers');
+      return;
+   end 
+   st=v;
+   if size(st,1)==1, st=st'; end % vector must be a column
+else
+   disp('Incorrect input');
+   return;
+end
+%*******************************************************************************
+%***********************************    MENU of ##    **************************
+%*******************************************************************************
+% Convert vector of numbers to vector of strings.
+st_str=num2str(st);
+% Add one more element to vector of strings ('CANCEL').
+st_str=strvcat(st_str,'CANCEL');
+% Convert vector of strings to cell array.
+st_cell=cellstr(st_str);
+% Set Menu.
+st_num = menu(menu_title, st_cell);
+% If Menu item is 'CANCEL' terminate program.
+if (st_num > size(st_cell,1)-1), return; end
+% Get Leg number (string).
+stNum_str=st_cell{st_num};
+% Get Leg number (number).
+selectedNum=str2num(stNum_str);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

ar29_matlab_codes_olga/functions/f_menu_of_strings.m

@@ -0,0 +1,39 @@
+function [s]=f_menu_of_strings(header,S)
+% f_menu_of_strings 
+% GENERATES menu of choises for user input.
+% Displays  the HEADER string followed in sequence by
+% the menu-item strings which are the rows of a string matrix S
+%  (as returned by  STRVCAT).
+% RETURNS a string - menu-item name
+
+s='';
+if nargin==1        % number_start can be a vector in this case
+   disp('Not enought input arguments');
+   return;
+elseif nargin==2        % number_start can be a vector in this case
+   if ~isstr(header)
+      disp('First argument must be a string');
+      return;
+   end 
+   if ~isstr(S)
+      disp('Second argument must be a matrix of strings as returned by STRVCAT');
+      return;
+   end 
+   %st_str=S;
+else
+   disp('Incorrect input');
+   return;
+end
+%*******************************************************************************
+%***********************************    MENU of ##    **************************
+%*******************************************************************************
+% Add one more element to vector of strings ('CANCEL').
+s_str=strvcat(S,'CANCEL');
+% Convert vector of strings to cell array.
+s_cell=cellstr(s_str);
+% Set Menu.
+s_num = menu(header,s_cell);
+% If Menu item is 'CANCEL' terminate program.
+if (s_num > size(s_cell,1)-1), return; end
+% Get string as menu-item choice (string).
+s=s_cell{s_num};