dustem_param_range2param_values.pro
668 Bytes
FUNCTION dustem_param_range2param_values,iv_min,iv_max,iv_Nvalues,Nc=Nc,log=log
Nparams=n_elements(iv_min)
;==compute number of combinations
Nc=1L
FOR i=0L,Nparams-1 DO Nc=Nc*iv_Nvalues[i]
;compute parameters possible values
par_values=ptrarr(Nparams)
FOR i=0L,Nparams-1 DO BEGIN
vv=range_gen(iv_Nvalues[i],[iv_min[i],iv_max[i]],log=log)
par_values[i]=ptr_new(vv)
ENDFOR
;=== compute combinations
ivs=ptrarr(Nc)
vec=fltarr(Nparams) ;individual vector of parameter values
FOR i=0L,Nc-1 DO BEGIN
ij=index2ij([i],iv_Nvalues)
FOR j=0L,Nparams-1 DO BEGIN
vec[j]=(*par_values[j])[ij[0,j]]
ENDFOR
ivs[i]=ptr_new(vec)
;print,vec
;stop
ENDFOR
RETURN,ivs
END