function indices = ppp_indices (names,sympar) ## usage: indices = ppp_indices (names,sympar) ## ## names: column vector of component names ## sympar: mtt-generated data structure od symbolic parameters ## Set up the indices = []; [n,m] = size(names); for i = 1:n p_name = deblank(names(i,:)); s_name = sprintf("%ss", p_name); if struct_contains(sympar, p_name) i_p = eval(sprintf("sympar.%s;", p_name)); if struct_contains(sympar, s_name) i_s = eval(sprintf("sympar.%s;", s_name)); indices_i = eval(sprintf("[%i,%i];", i_p, i_s)); indices = [indices; indices_i]; else printf("Sensitivity parameter %s does not exist: ignoring \ parameter %s\n", s_name, p_name); endif else printf("Parameter %s does not exist: ignoring\n", p_name) endif endfor endfunction