# ====================== In 1.95: whizard.prc ================ include("sindarins/aliases.sin") alias uq = u:U !!!! $method = "ovm" ! = equal use the byte-code option. Try it, but note that !!! the tidy-up scripts after process-building needs to change. !> doesn't fully work: !!! ?vis_diags = true ! after a while, doesnt find the .tex files. Note that the option ?vis_channels = true to the ! integrate step gives the same type of (pseudo-)feynman diagrams as 1.95 did. !! process defintions: !! all processes with the same thing before the "0" should be run together. This bit is !! the "process_names" value in the file-name and the meta-data. !! the "process_type" is the same, but expanded. The sub-directory structure is also !! driven by the process_type, with each "_" corresponding to a "/" in the path. !! !! ================ the 2f processes ================= # Z leptonic process z_bhabhag0e = e1,E1 => electrons, electrons, A { $omega_flags = "-model:constant_width" } # dont do this now : # z_bhabha0e = e1,E1 => electron,electron { $omega_flags = "-model:constant_width" } process z_l0mu = e1,E1 => mus,mus { $omega_flags = "-model:constant_width" } process z_l0tau = e1,E1 => taus,taus { $omega_flags = "-model:constant_width" } process z_nu0nu = e1,E1 => not_nu_e,not_nu_e { $omega_flags = "-model:constant_width" } process z_nu0nue = e1,E1 => nu_es,nu_es { $omega_flags = "-model:constant_width" } # Z hadronic # process z_h = e1,E1 => quark,quark { $omega_flags = "-model:constant_width" } process z_h0dq = e1,E1 => dq,dq { $omega_flags = "-model:constant_width" } process z_h0sq = e1,E1 => sq,sq { $omega_flags = "-model:constant_width" } process z_h0bq = e1,E1 => bq,bq { $omega_flags = "-model:constant_width" } process z_h0uq = e1,E1 => uq,uq { $omega_flags = "-model:constant_width" } process z_h0cq = e1,E1 => cq,cq { $omega_flags = "-model:constant_width" } !! ================ the 4f processes ================= # Fully hadronic # # ZZ : only one flavour, or two but not ud or cs # process zz_h0utut = e1,E1 => up_type_q,up_type_q,up_type_q,up_type_q { $omega_flags = "-model:constant_width" } process zz_h0dtdt = e1,E1 => down_type_q,down_type_q,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } process zz_h0uu_notd = e1,E1 => uq,uq,not_dq,not_dq { $omega_flags = "-model:constant_width" } process zz_h0cc_nots = e1,E1 => cq,cq,not_sq,not_sq { $omega_flags = "-model:constant_width" } # # WW: more than 2 flavours # process ww_h0cuxx = e1,E1 => cq,down_type_q,uq,down_type_q { $omega_flags = "-model:constant_width" } process ww_h0uubd = e1,E1 => uq,bq,uq,dq { $omega_flags = "-model:constant_width" } process ww_h0uusd = e1,E1 => uq,sq,uq,dq { $omega_flags = "-model:constant_width" } process ww_h0ccbs = e1,E1 => cq,bq,cq,sq { $omega_flags = "-model:constant_width" } process ww_h0ccds = e1,E1 => cq,dq,cq,sq { $omega_flags = "-model:constant_width" } process ww_h0udcsy = e1,E1 => u,D,s,C { $omega_flags = "-model:constant_width" } # # ZZ/WW mix: two flavours ud or cs # process zzorww_h0udud = e1,E1 => uq,dq,dq,uq { $omega_flags = "-model:constant_width" } process zzorww_h0cscs = e1,E1 => cq,sq,sq,cq { $omega_flags = "-model:constant_width" } # # Semi-leptonic # # ZZ : qq + two charged or two neutral leptons # process zz_sl0nu_up = e1,E1 => not_nu_e,not_nu_e,up_type_q,up_type_q { $omega_flags = "-model:constant_width" } process zz_sl0tau_down = e1,E1 => taus,taus,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } process zz_sl0mu_down = e1,E1 => mus,mus,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } process zz_sl0nu_down = e1,E1 => not_nu_e,not_nu_e,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } process zz_sl0tau_up = e1,E1 => up_type_q,up_type_q,taus,taus { $omega_flags = "-model:constant_width" } process zz_sl0mu_up = e1,E1 => up_type_q,up_type_q,mus,mus { $omega_flags = "-model:constant_width" } # # WW : qq l nu # process ww_sl0tauq = e1,E1 => up_type_q,down_type_q,taus,neutrino { $omega_flags = "-model:constant_width" } process ww_sl0muq = e1,E1 => up_type_q,down_type_q,mus,neutrino { $omega_flags = "-model:constant_width" } # # leptonic # # ZZ : four charged, or charged and neutral of differnt flavour # #process zz_l04tau = e1,E1 => taus,taus,taus,taus { $omega_flags = "-model:constant_width" } #process zz_l04mu = e1,E1 => mus,mus,mus,mus { $omega_flags = "-model:constant_width" } #process zz_l0taumu = e1,E1 => taus,taus,mus,mus { $omega_flags = "-model:constant_width" } #process zz_l0mumu = e1,E1 => nu_taus,nu_taus,mus,mus { $omega_flags = "-model:constant_width" } #process zz_l0tautau = e1,E1 => nu_mus,nu_mus,taus,taus { $omega_flags = "-model:constant_width" } process zz_l = e1,E1 => (nu_mus,nu_mus,taus,taus) + (nu_taus,nu_taus,mus,mus) + (taus,taus,mus,mus) + (mus,mus,mus,mus) + (taus,taus,taus,taus) { $omega_flags = "-model:constant_width" } # # WW : two charged of different flavour # process ww_l0ll = e1,E1 => nu_mus,mus,nu_taus,taus { $omega_flags = "-model:constant_width" } # # ZZ/WW mix ll nunu, all same flavour # #process zzorww_l0mumu = e1,E1 => nu_mus,mus,mus,nu_mus { $omega_flags = "-model:constant_width" } #process zzroww_l0tautau = e1,E1 => nu_taus,taus,taus,nu_taus { $omega_flags = "-model:constant_width" } # Tried with'process components' like so: process zzorww_l = e1,E1 => (nu_mus,mus,mus,nu_mus) + ( nu_taus,taus,taus,nu_taus ) { $omega_flags = "-model:constant_width" } # which works. Do that all over! # # Single bosons: two electrons or e nue in f.s. # # Single Z+ee: two elctrons+ anything except two nu_e # process sze_l0tau = e1,E1 => electrons,electrons,taus,taus { $omega_flags = "-model:constant_width" } process sze_l0mu = e1,E1 => electrons,electrons,mus,mus { $omega_flags = "-model:constant_width" } process sze_l0e = e1,E1 => electrons,electrons,electrons,electrons { $omega_flags = "-model:constant_width" } process sze_sl0dd = e1,E1 => electrons,electrons,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } process sze_sl0uu = e1,E1 => up_type_q,up_type_q,electrons,electrons { $omega_flags = "-model:constant_width" } process sze_l0nunu = e1,E1 => not_nu_e,not_nu_e,electrons,electrons { $omega_flags = "-model:constant_width" } # # Single W e nu_e + anything except e nu_e # process sw_sl0qq = e1,E1 => up_type_q,down_type_q,electrons,nu_es { $omega_flags = "-model:constant_width" } process sw_l0tau = e1,E1 => not_nu_e,taus,electrons,nu_es { $omega_flags = "-model:constant_width" } process sw_l0mu = e1,E1 => not_nu_e,mus,electrons,nu_es { $omega_flags = "-model:constant_width" } # # Single Z/Single W mix: ee e_nu e_nu # process szeorsw_l0l = e1,E1 => nu_es,electrons,electrons,nu_es { $omega_flags = "-model:constant_width" } # # Single Z + nunu two nu_e + any pair except two electrons # process sznu_l0mumu = e1,E1 => nu_es,nu_es,mus,mus { $omega_flags = "-model:constant_width" } process sznu_l0tautau = e1,E1 => nu_es,nu_es,taus,taus { $omega_flags = "-model:constant_width" } process sznu_sl0nu_up = e1,E1 => nu_es,nu_es,up_type_q,up_type_q { $omega_flags = "-model:constant_width" } process sznu_sl0nu_down = e1,E1 => nu_es,nu_es,down_type_q,down_type_q { $omega_flags = "-model:constant_width" } #