From d0bfcf1e8d46b2f9cb4be5d06c94ab538c424fe8 Mon Sep 17 00:00:00 2001 From: Annie Hughes Date: Fri, 4 Nov 2022 15:06:44 +1030 Subject: [PATCH] moved dustem_fit_J13.pro to ONHOLD dir outside git repo --- src/idl/dustem_fit_J13.pro | 266 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 1 file changed, 0 insertions(+), 266 deletions(-) delete mode 100755 src/idl/dustem_fit_J13.pro diff --git a/src/idl/dustem_fit_J13.pro b/src/idl/dustem_fit_J13.pro deleted file mode 100755 index a697090..0000000 --- a/src/idl/dustem_fit_J13.pro +++ /dev/null @@ -1,266 +0,0 @@ -PRO dustem_fit_j13,help=help,noplot=noplot,mode=mode - -;+ -; NAME: -; dustem_fit -; PURPOSE: -; Runs conjointly a fit on extinction, emission and polarization by extinction -; CATEGORY: -; Dustem -; CALLING SEQUENCE: -; sed=dustem_fit([/noplot,/help]) -; INPUTS: -; None -; OPTIONAL INPUT PARAMETERS: -; noplot : do not display figures -; OUTPUTS: -; None -; OPTIONAL OUTPUT PARAMETERS: -; ACCEPTED KEY-WORDS: -; help = If set, print this help -; COMMON BLOCKS: -; None -; SIDE EFFECTS: -; None -; RESTRICTIONS: -; The dustem idl wrapper must be installed -; PROCEDURE: -; None -; EXAMPLES -; -; MODIFICATION HISTORY: -; TLS added by D. Paradis. -; Written by V. Guillet (2012) -; see evolution details on the dustem cvs maintained at CESR -; Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems. -;- - -IF keyword_set(mode) THEN BEGIN - use_mode=strupcase(mode) -ENDIF ELSE BEGIN - use_mode='COMPIEGNE_ETAL2010' ;Default is last dustem model -ENDELSE - -; Verbose -defsysv, '!dustem_verbose', 1 - -data_files = { $ - ; sed: !dustem_wrap_soft_dir + 'Data/SEDs/Gal_composite_spectrum.xcat', $ - sed: '/Users/paradis/Soft_Librairies/Planck/MW/HA_diffuse_COlevel.xcat' $ - ; sed: !dustem_wrap_soft_dir + 'Data/SEDs/spec_firas_chi2.xcat', $ - ; ext: !dustem_wrap_soft_dir + 'Data/EXTs/spec_sk-69228-2.xcat' $ - ; polext: !dustem_wrap_soft_dir + 'Data/POLEXTs/Serkowski_DISM.xcat', $ - ; polsed: '' $ - } - -; Local variable, to define global !fit_rchi2_weight -rchi2_weight = { $ - sed: 1. $ - ; ext: 1. $ - ; polext: 1. $ - ; polsed: 1. $ - } - -; Flags to determine what to fit -defsysv, '!dustem_data', { $ ;Data to fit - sed: ptr_new() $ - ; ext: ptr_new() $ - ; polext: ptr_new() $ -; polsed: ptr_new() $ - } - -; Define global !fit_rchi2_weight with the same structure and field order like !dustem_data -tagnames = tag_names(!dustem_data) -instr="defsysv, '!fit_rchi2_weight', {" -for i = 0, n_elements(tagnames)-1 do instr+=tagnames(i)+': rchi2_weight.'+tagnames(i)+', ' -instr+='empty: 0. } -toto=execute(instr) - -;=== Set weight for reduced chi2 ponderation between emission, extinction, polarized extinction and emission === -; Calculate total according to fileds in !dustem_data structure -total = 0 -for i = 0, n_tags(!dustem_data)-1 do total = total + !fit_rchi2_weight.(i) -; values are relative to total -for i = 0, n_tags(!dustem_data)-1 do !fit_rchi2_weight.(i) /= total - -dustem_init,mode=use_mode - -if keyword_set(noplot) then defsysv,'!dustem_show_plot', 0 - -; Check that polarisation has been run (-pol in GRAIN.DAT) if fit on polarization is asked for -if (tag_exist(!dustem_data,'polext') or tag_exist(!dustem_data,'polsed')) and !run_pol eq 0. then begin - message,"pol option must be set in GRAIN.DAT to fit polarization",/info - stop -endif - -; Check that DTLS has been run (-dtls in GRAIN.DAT) -if (tag_exist(!dustem_data,'dtls') ) and !run_tls eq 0. then begin - message,"dtls option must be set in GRAIN.DAT to use the TLS model",/info - stop -endif - -;=== Read observational data === -for i = 0, n_elements(tagnames)-1 do begin - instr='!dustem_data.('+strtrim(i,2)+') = dustem_set_data(read_xcat(data_files.'+tagnames(i)+',/silent))' - toto=execute(instr) -endfor - -;=== Parameters for fit === -pd_mass = [ $ - '(*!dustem_params).grains(0).mdust_o_mh', $ ;PAH0 mass fraction - '(*!dustem_params).grains(1).mdust_o_mh', $ ;PAH1 mass fraction - '(*!dustem_params).grains(2).mdust_o_mh' $ ;Small amCBEx - ; '(*!dustem_params).grains(3).mdust_o_mh' $ ;Large amCBEx - ] - -;tls=['(*!dustem_params).tls.a_dtls', $ -; '(*!dustem_params).tls.lc' $ -; ; '(*!dustem_params).tls.vm' $ -;] - -iv_tls=[10., 9.] - -iv_mass = [ $ - 2.23e-4, $ - 2.64e-6, $ - 3.5e-4 $ -; 5.7e-4 $ - ] ; DUST MASSES -;iv_mass = [ $ -; 9.3E-4, $ -; 0.000449, $ -; 2.2e-3 $ -;; 0.0008 $ -;; 7.8e-4 $ ;7.8e-3 -; ] ; DUST MASSES -;iv_mass = [ $ -; 1.1e-3, $ -; 1.8e-9, $ -; 6.e-3, $ -; 0.01 $ -; ] ; DUST MASSES - -pd_sdist = [ $ -;; '(*!dustem_params).grains(0).amin', $ ;PAH0 minmal size -;; '(*!dustem_params).grains(0).amax' $ ;PAH0 maximal size -; '(*!dustem_params).grains(0).alpha_o_a0', $ ;PAH0 mean size - '(*!dustem_params).grains(0).alpha_o_a0' $ ;PAH0 mean size - -;; '(*!dustem_params).grains(0).at', $ ;PAH0 sigma size -; '(*!dustem_params).grains(0).amin', $ ;PAH1 minmal size -; '(*!dustem_params).grains(0).amax' $ ;PAH1 maximal size -; '(*!dustem_params).grains(2).alpha_o_a0' $ ;PAH1 mean size -;; '(*!dustem_params).grains(1).at', $ ;PAH1 sigma size -;; '(*!dustem_params).grains(2).amin', $ ;VSG minimal size -;; '(*!dustem_params).grains(2).amax', $ ;VSG maximal size -; '(*!dustem_params).grains(3).amin', $ ;Carbon BG minimal size -;; '(*!dustem_params).grains(3).amax', $ ;Carbon BG maximal size -; '(*!dustem_params).grains(2).alpha_o_a0', $ ;Carbon BG power law slope -; '(*!dustem_params).grains(3).alpha_o_a0' $ ;Carbon BG power law slope - -; '(*!dustem_params).grains(3).at', $ ;Carbon BG threshold size (exp. decay) -; '(*!dustem_params).grains(3).ac', $ ;Carbon BG cut-off size (exp. decay) -; '(*!dustem_params).grains(3).gamma', $ ;Carbon BG exp. decay slope -; '(*!dustem_params).grains(4).amin', $ ;Silicate BG minimal size -;; '(*!dustem_params).grains(4).amax', $ ;Silicate BG maximal size -; '(*!dustem_params).grains(4).alpha_o_a0', $ ;Silicate BG power law slope -; '(*!dustem_params).grains(4).at', $ ;Silicate BG threshold size (exp. decay) -; '(*!dustem_params).grains(4).ac', $ ;Silicate BG cut-off size (exp. decay) -; '(*!dustem_params).grains(4).gamma' $ ;Silicate BG exp. decay slope - ] -iv_sdist = [ $ -;3.5000E-08, 1.2000E-07, 6.4000E-08, 1.0000E-01 $ ; PAH0 -;;3.5000E-08, 1.2000E-07, 6.4000E-08, 1.0000E-01, $ ; PAH1 -;-4.98, 3.12e-7 $ --4. $ -;1.7e-8,-3.21 $ ; VSG -;;6.0000E-07, 5.0000E-04,-2.6000E+00, 0.7000E-05, 0.7000E-05, 0.9000E+00, $ Carbon BG -;;6.0000E-07, 5.0000E-04,-3.4000E+00, 3.0000E-05, 1.0000E-05, 0.4200E+00 $ Silicate BG -;6.0000E-07, -2.6000E+00, 0.7000E-05, 0.7000E-05, 0.9000E+00, $ Carbon BG -;6.0000E-07, -3.4000E+00, 3.0000E-05, 1.0000E-05, 0.4200E+0 $ Silicate BG - ] - -pd_pol_alignment = [ $ - '(*!dustem_params).pol(4).atresh', $ ; Threshold size for grain alignment - '(*!dustem_params).pol(4).pstiff', $ ; Stiffness of transition between non-aligned and aligned grains sizes - '(*!dustem_params).pol(4).plev' $ ; Maximal alignment efficiency of grains - ] -iv_pol_alignment = [ $ - 0.1, $ - 0.5, $ - 1.0 $ - ] - -pd_G0=['(*!dustem_params).G0'] ; -iv_G0=[4.] - -pd_cont = ['dustem_create_continuum_2'] -iv_cont = [0.0039] -;stop -;pd = [ pd_pol_alignment, pd_mass ] -;iv = [ iv_pol_alignment, iv_mass ] - -; Parameters -;pd = [ pd_G0, pd_mass, pd_pol_alignment, pd_sdist, pd_cont ] -;iv = [ iv_G0, iv_mass, iv_pol_alignment, iv_sdist, iv_cont ] -;pd = [ pd_mass, pd_sdist, pd_cont ] -;iv = [ iv_mass, iv_sdist, iv_cont ] -;pd = [ pd_mass, tls,pd_cont ] -;iv = [ iv_mass, iv_tls,iv_cont ] -pd = [pd_G0, pd_mass, pd_cont,pd_sdist];,tls] -iv = [iv_G0, iv_mass, iv_cont,iv_sdist];,iv_tls] -;pd = [ pd_cont,tls,pd_G0 ] -;iv = [ iv_cont,iv_tls,iv_G0 ] - -Npar=n_elements(pd) -ulimed=replicate(0,Npar) -llimed=replicate(1,Npar) -llims=replicate(0.,Npar) -ulims=replicate(0.,Npar) - -; Upper limit on alignment efficiency -;ulimed(1+n_elements(pd_mass)+2) = 1 -;ulims(1+n_elements(pd_mass)+2) = 1. -; Upper limit on grain size -; amCBEx -;ulimed(1+n_elements(pd_mass)+n_elements(pd_pol_alignment)+9) = 1 -;ulims(1+n_elements(pd_mass)+n_elements(pd_pol_alignment)+9) = 9.9d-4 - -;Npar=n_elements(pd) -;ulimed=replicate(0,Npar) -;llimed=replicate(1,Npar) -;llims=replicate(0.,Npar) -;ulims=replicate(0.,Npar) -;stop -; ulimed=[0 , 0. ,0 ,0, 0, 0,0,1] ; aucun des parametres n'a une valeur superieure limite -;ulims=[0 , 0. ,0 ,0, 0, 0, 0,5.e-6] - llimed=[1, 1, 1., 1.,1,1.] ; tous les parametres ont une valeur inferieure limite - llims =[0.1,0, 0,0.,0.,-2];, 1.e-8];,0,0,3.] - - -;=== Fixed parameters -;fpd=['(*!dustem_params).G0'] ;Fixed parameter description -;fiv=[1000] -;dustem_init_fixed_params,fpd,fiv -fpd=['(*!dustem_params).grains(3).mdust_o_mh'];,'(*!dustem_params).grains(3).mdust_o_mh'] ;Fixed parameter description -fiv=[1.e-16];,1.e-16] -dustem_init_fixed_params,fpd,fiv - -;== SET THE FITTED PARAMETERS -dustem_init_parinfo,pd,iv,up_limited=ulimed,lo_limited=llimed,up_limits=ulims,lo_limits=llims - -;=== RUN fit -tol=1.e-13 -Nitermax=20 ;maximum number of iteration. This is the criterium which will stop the fit procedure - -loadct,13 -!y.range=[1.e-3,100.] ;This is to ajust plot range from outside the routine -t1=systime(0,/sec) -res=dustem_mpfit_data(tol=tol,Nitermax=Nitermax) ;,func_name=func_name,cf_min=cf_min) -t2=systime(0,/sec) -print,'executed in ',t2-t1,' sec' - -;st=dustem_read_all_res(!dustem_res,/silent) - -END - -- libgit2 0.21.2