my_get_L_H_constant.m

function [L_H,model] = my_get_L_H_constant(model)
          
         if ~isfield(model,'lipschitz_H_data')
              
              if model.time_const
                  time_type='time_const';
              else
                  time_type ='time_var';
              end
              
              if model.cone_const
                  model_type = 'cone_const';
              elseif model.vx_const
                  model_type='vx_const';
              else
                  model_type='';
              end
              
              if isfield(model,'base_model')
                  model.k = model.base_model.k;
                  model.name_output_functional = model.base_model.name_output_functional;
              end
              
              if strcmp(model.name_output_functional, 'box_mean_time')
                  func_type = 'timeInt';
              else
                  func_type = '';
              end
              
              load(['lipschitz_data_H',func_type,num2str(model.k),'_',model_type,'_',time_type,'_coarse_',num2str(model.coarse_factor),'.mat']);
              
              model.lipschitz_H_data = lipschitz_H_data;
          end
          
          mu = get_mu(model);
          
          el_indx = coord2leaf_element(model.lipschitz_H_data.lip_H_grid,mu);
          
          L_H = model.lipschitz_H_data.lipschitz_H_const(el_indx);