!Straights for DTC lattice ! June 25, 2011 ! Based on DC04 straights created by Maxim Krostelev, Andy Wolski, (Cockcroft), Aug 2009 !--------1---------2---------3---------4---------5---------6---------7---------8 ! PHT (phase trombone) wiggler-rf straight, PHT2 (phase trombone) inj ext straight !--------1---------2---------3---------4---------5---------6---------7---------8 inj_ext_off = 1. ! Drifts ldlr :=0.189 lcenter_ie:= 1.193475 - 0.125/3 lpht2:= 0.4407125 DPHT1: DRIFT, L=10.9322+0.153925-LDBPM-LCOR-LDCOR - 0.07031525 ! -ldlr DPHT2: DRIFT, L=10.9322+0.153925-LDBPM-LCOR-LDCOR + lpht2 + inj_ext_off/8 !- lcenter_ie ! -l dlr 7/5/11? ! Quadrupoles QPHT1: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT1 QPHT2: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2 QPHT3: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT3 QPHT4: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT4 QPHT5: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT5 QPHT6: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT6 QPHT1[K1] = 2.7989649534E-01 QPHT2[K1] = -3.9462208765E-01 QPHT3[K1] = 3.2147616257E-01 QPHT4[K1] = -4.6285491699E-01 QPHT5[K1] = 3.0715678056E-01 QPHT6[K1] = -4.1137710510E-01 QPHT1[K1] = 0.29646444 QPHT2[K1] = -0.40007756 QPHT3[K1] = 0.34975061 QPHT4[K1] = -0.40155481 QPHT5[K1] = 0.30184032 QPHT6[K1] = -0.26241451 QPHT1[K1] = 0.33271839 QPHT2[K1] = -0.35734815 QPHT3[K1] = 0.34595576 QPHT4[K1] = -0.39950563 QPHT5[K1] = 0.34510439 QPHT6[K1] = -0.35485309 QPHT2_1: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_2 QPHT2_2: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_2 QPHT2_3: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_3 QPHT2_4: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_4 QPHT2_5: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_5 QPHT2_6: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_6 QPHT2_7: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_7 QPHT2_8: QUADRUPOLE, L=QLENGTH !, K1=K1.QPHT2_8 QPHT2_1[K1] = 0.31868954 QPHT2_2[K1] = -0.38778551 QPHT2_3[K1] = 0.31736247 QPHT2_4[K1] = -0.35228078 QPHT2_5[K1] = 0.29339803 QPHT2_6[K1] = -0.28568780 QPHT2_7[K1] = 0.29466192 QPHT2_8[K1] = -0.29468767 ! Beam lines PHT: LINE=( CQB(QPHT1), DPHT1, & CQB(QPHT2), DPHT1, & CQB(QPHT3), DPHT1, & CQB(QPHT4), DPHT1, & CQB(QPHT5), DPHT1, & CQB(QPHT6), DPHT1 ) PHT2: LINE=( CQB(QPHT2_1), DPHT2, & CQB(QPHT2_2), DPHT2, & CQB(QPHT2_3), DPHT2, & CQB(QPHT2_4), DPHT2, & CQB(QPHT2_5), DPHT2, & CQB(QPHT2_6), DPHT2, & CQB(QPHT2_7), DPHT2, & CQB(QPHT2_8), DPHT2 ) PHTM: LINE=( QPHTM1, DPHT1, & QPHTM2, DPHT1, & QPHTM3, DPHT1, & QPHTM4, DPHT1, & QPHTM5, DPHT1, & QPHTM6, DPHT1 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MPI (matching from phase trombone to injection) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMPI1: DRIFT, L=4. DMPI2: DRIFT, L=5.335069E+00-LDBPM-LCOR-LDCOR DMPI3: DRIFT, L=9.111615E+00-LDBPM-LCOR-LDCOR -4. DMPI4: DRIFT, L=4.00-LDBPM-LCOR-LDCOR ! Quadrupoles QMPI0: QUADRUPOLE, L=QLENGTH, K1=K1.QMPI1 QMPI1: QUADRUPOLE, L=QLENGTH, K1=K1.QMPI1 QMPI2: QUADRUPOLE, L=QLENGTH, K1=K1.QMPI2 QMPI3: QUADRUPOLE, L=QLENGTH, K1=K1.QMPI3 QMPI4: QUADRUPOLE, L=QLENGTH, K1=K1.QMPI4 QMPI1[K1] = 0.24594654E-01 QMPI2[K1] = 0.66711253E-01 QMPI3[K1] = 0.11787924 QMPI4[K1] = -0.20373102 ! Beam lines MPI: LINE=( DMPI1, & CQB(QMPI1), DMPI2, & CQB(QMPI2), DMPI3, & CQB(QMPI3), DMPI4, & CQB(QMPI4) ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! INJ (injection) and EXT (extraction) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DINJ0: DRIFT, L=10.00 DINJ1: DRIFT, L=10.00-LDBPM-LCOR-LDCOR DINJ2: DRIFT, L= 6.70-LDBPM-LCOR-LDCOR DINJ3: DRIFT, L=17.00-LDBPM-LCOR-LDCOR DINJ4: DRIFT, L= 0.25-LDBPM DINJ5: DRIFT, L= 0.25 -LCOR-LDCOR DINJ6: DRIFT, L= 7.25-LDBPM DINJ7: DRIFT, L= 0.50 DINJ8: DRIFT, L= 7.25 -LCOR-LDCOR DINJK: DRIFT, L= 0.20 ! Kickers KINJ1: HKICKER, L=0.3, KICK=0.0 KEXT1: HKICKER, L=0.3, KICK=0.0 ! Septa PINJ1: HKICKER, L=1.0, KICK=0.0 PINJ2: HKICKER, L=1.0, KICK=0.0 PEXT1: HKICKER, L=1.0, KICK=0.0 PEXT2: HKICKER, L=1.0, KICK=0.0 ! Quadrupoles QINJ1: QUADRUPOLE, L=QLENGTH, K1=K1.QINJ1 QINJ2: QUADRUPOLE, L=QLENGTH, K1=K1.QINJ2 ! Beam lines IJ0: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ3, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) IJP: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ6, & PINJ1, DINJ7, & PINJ2, DINJ8, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) KCKMD: LINE=( DINJK, KINJ1 ) KCKMDE: LINE=( DINJK, KEXT1 ) IJK: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ4, & 33*KCKMD, DINJ5, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) EXK: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ4, & 33*KCKMDE, DINJ5, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) EXK_shift: LINE=(CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ4, & 33*KCKMDE, DINJ5, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) EXP: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ6, & PEXT2, DINJ7, & PEXT1, DINJ8, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) EX0: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ3, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ1 ) INJ: LINE=( IJP, IJK) EXT: LINE=( EXK_shift, EXP, IJ0, EX0) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MDW (matching from PHT2 into PSD) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMDW1: DRIFT, L=6.0*scl-LDBPM-LCOR-LDCOR-0.075 DMDW2: DRIFT, L=6.0*scl-LDBPM-LCOR-LDCOR-0.075 DMDW3: DRIFT, L=5.0*scl-LDBPM-LCOR-LDCOR-0.075 DMDW4: DRIFT, L=4.0*scl-LDBPM-LCOR-LDCOR-0.075 ! Quadrupoles QMDW1: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW1 QMDW2: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW2 QMDW3: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW3 QMDW4: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW4 QMDW4[K1] = -0.44681649 QMDW3[K1] = 0.44201188 QMDW2[K1] = -0.39024602 QMDW1[K1] = 0.21403402 QMDW2_1: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW1 QMDW2_2: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW2 QMDW2_3: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW3 QMDW2_4: QUADRUPOLE, L=QLENGTH, K1=K1.QMDW4 QMDW2_1[K1] = 0.37467620 QMDW2_2[K1] = -0.43541817 QMDW2_3[K1] = 0.45977927 QMDW2_4[K1] = -0.50585059 !!!!!!!!!!!!!!!!!!!!!!!!!! 8:16 QMDW2_1[K1] = 0.37512739 QMDW2_2[K1] = -0.43468252 QMDW2_3[K1] = 0.46170233 QMDW2_4[K1] = -0.50520686 QMDW4[K1] = -0.44716890 QMDW3[K1] = 0.44218975 QMDW2[K1] = -0.38986513 QMDW1[K1] = 0.21420576 QMDW2_1[K1] = 0.37461144 QMDW2_2[K1] = -0.43522793 QMDW2_3[K1] = 0.45967670 QMDW2_4[K1] = -0.50600008 QMDW4[K1] = -0.46180131 QMDW3[K1] = 0.44876809 QMDW2[K1] = -0.39543575 QMDW1[K1] = 0.21140022 QMDW2_1[K1] = 0.37507442 QMDW2_2[K1] = -0.43472234 QMDW2_3[K1] = 0.46177810 QMDW2_4[K1] = -0.50524402 !!!!!!!!!!!!!!!!!!!!!!!!10:18 QMDW2_1[K1] = 0.37555516 QMDW2_2[K1] = -0.43459484 QMDW2_3[K1] = 0.46055302 QMDW2_4[K1] = -0.51813920 !!!!!!!!!!!!!!!!!!!!!3:52 QMDW2_1[K1] = 0.44159656 QMDW2_2[K1] = -0.41810416 QMDW2_3[K1] = 0.45971244 QMDW2_4[K1] = -0.52729125 !!!!!!!!!!!!!!!!!!!!!201109230839 QMDW2_1[K1] = 0.45142780 QMDW2_2[K1] = -0.39722489 QMDW2_3[K1] = 0.45910219 QMDW2_4[K1] = -0.57229824 !!201109231252 QMDW2_1[K1] = 0.44055197 QMDW2_2[K1] = -0.40688503 QMDW2_3[K1] = 0.45135564 QMDW2_4[K1] = -0.56577367 !!2011092327 QMDW2_1[K1] = 0.39722466 QMDW2_2[K1] = -0.41987157 QMDW2_3[K1] = 0.45118246 QMDW2_4[K1] = -0.52549483 ! Beamline MDW: LINE=( CQB(QMDW1), DMDW1, & CQB(QMDW2), DMDW2, & CQB(QMDW3), DMDW3, & CQB(QMDW4), DMDW4 ) MDW2: LINE=( CQB(QMDW2_1), DMDW1, & CQB(QMDW2_2), DMDW2, & CQB(QMDW2_3), DMDW3, & CQB(QMDW2_4), DMDW4 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! CCH (circumference correction chicane) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DCCH0: DRIFT, L= 4.00 -LCOR-LDCOR DCCH1: DRIFT, L= 4.00-LDBPM-LCOR-LDCOR DCCH2: DRIFT, L= 3.60-LDBPM-LCOR-LDCOR DCCH3: DRIFT, L= 0.50-LDBPM DCCH4: DRIFT, L= 1.00 DCCH5: DRIFT, L= 0.50 DCCH6: DRIFT, L= 3.00 DCCH7: DRIFT, L= 0.50 -LCOR-LDCOR DCCH8: DRIFT, L= 4.00-LDBPM ! Bends ANGCCH1:= ANGARCB/2 ANGCCH2:= -ANGARCB/2 BCCH1: SBEND, L=BLENGTH/2, ANGLE=ANGCCH1, E1=ANGCCH1/2, E2=ANGCCH1/2 BCCH2: SBEND, L=BLENGTH/2, ANGLE=ANGCCH2, E1=ANGCCH2/2, E2=ANGCCH2/2 ! Quadrupoles QCCH1: QUADRUPOLE, L=QLENGTH, K1=K1.QCCH1 QCCH2: QUADRUPOLE, L=QLENGTH, K1=K1.QCCH2 ! Beam lines CCH1: LINE=( DCCH1, & CQB(QCCH1), DCCH2, & CQB(QCCH2), DCCH3, & BCCH1, DCCH4, & BCCH2, DCCH5, & BCCH2, DCCH6, & BCCH1, DCCH5, & BCCH1, DCCH4, & BCCH2, DCCH7, & CQB(QCCH2), DCCH2, & CQB(QCCH1), DCCH8 ) CCH0: LINE=( DCCH0, & CQB(QCCH1), DCCH2, & CQB(QCCH2), DCCH3, & BCCH1, DCCH4, & BCCH2, DCCH5, & BCCH2, DCCH6, & BCCH1, DCCH5, & BCCH1, DCCH4, & BCCH2, DCCH7, & CQB(QCCH2), DCCH2, & CQB(QCCH1), DCCH8 ) CCH2: LINE=( DCCH0, & CQB(QCCH1), DCCH2, & CQB(QCCH2), DCCH3, & BCCH1, DCCH4, & BCCH2, DCCH5, & BCCH2, DCCH6, & BCCH1, DCCH5, & BCCH1, DCCH4, & BCCH2, DCCH7, & CQB(QCCH2), DCCH2, & CQB(QCCH1), DCCH1 ) CCH: LINE=( CCH1, 2*CCH0, CCH2 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MFC (matching from IFD {within inj} into circumference correction chicane) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMFC1: DRIFT, L=5.30-LDBPM-LCOR-LDCOR ! Quadrupoles k1.QMFC1 := 0.29896828 k1.QMFC2 := -0.36759959E-01 k1.QMFC3 := -0.34906153 k1.QMFC4 := 0.20148014 QMFC1: QUADRUPOLE, L=QLENGTH, K1=K1.QMFC1 QMFC2: QUADRUPOLE, L=QLENGTH, K1=K1.QMFC2 QMFC3: QUADRUPOLE, L=QLENGTH, K1=K1.QMFC3 QMFC4: QUADRUPOLE, L=QLENGTH, K1=K1.QMFC4 QMFC1[K1] = 0.29375838 QMFC2[K1] = -0.33181327E-01 QMFC3[K1] = -0.33846945 QMFC4[K1] = 0.19780573 !!!!!!!!!!!!!!!!!!!!!!!8:17 QMFC1[K1] = 0.29373515 QMFC2[K1] = -0.33126472E-01 QMFC3[K1] = -0.33838084 QMFC4[K1] = 0.19788898 !!!!!!!!!!!! 10:18 QMFC1[K1] = 0.29279533 QMFC2[K1] = -0.34593194E-01 QMFC3[K1] = -0.33912171 QMFC4[K1] = 0.19783804 !!!!!!!!!!!!!!!!3:52 QMFC1[K1] = 0.29886141 QMFC2[K1] = -0.36896016E-01 QMFC3[K1] = -0.32855212 QMFC4[K1] = 0.23681561 !!!!!!!!201109230842 QMFC1[K1] = 0.28645364 QMFC2[K1] = -0.31459246E-01 QMFC3[K1] = -0.31931838 QMFC4[K1] = 0.19841214 !!!!!201109231253 QMFC1[K1] = 0.28486954 QMFC2[K1] = -0.27541716E-01 QMFC3[K1] = -0.31785285 QMFC4[K1] = 0.19660364 !!201109230227 QMFC1[K1] = 0.28785483 QMFC2[K1] = -0.33534174E-01 QMFC3[K1] = -0.32265762 QMFC4[K1] = 0.20911756 ! Beam lines MFC: LINE=( CQB(QMFC1), DMFC1, & CQB(QMFC2), DMFC1, & CQB(QMFC3), DMFC1, & CQB(QMFC4) ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! IFD (fodo structure) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts ! shorten ifd a bit !adjust offset of inj/ext from center of straight lifd_drift := 0.599 lcenter_inj_ext:=2.38695/2 -0.0883 DIFD: DRIFT, L=9.64801859-LDBPM-LCOR-LDCOR +lifd_drift + lcenter_inj_ext -0.35157625 -inj_ext_off/6. ! Quadrupoles k1.qifd1 := 0.329860 k1.qifd2 := -0.400973+0.05 QIFD1: QUADRUPOLE, L=QLENGTH, K1=K1.QIFD1 QIFD2: QUADRUPOLE, L=QLENGTH, K1=K1.QIFD2 ! RF_ON := 1 ! Beam lines IFD: LINE=( CQB(QIFD1), DIFD, & CQB(QIFD2), DIFD ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MIF (matching from injection to IFD {FODO section within inj straight}) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMIF0: DRIFT, L=0.00-LDBPM-LCOR-LDCOR DMIF1: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIF2: DRIFT, L=12.00-LDBPM-LCOR-LDCOR -5.3 !dlr 7/4/11 DMIF3: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIF4: DRIFT, L=5.00-LDBPM-LCOR-LDCOR ! Quadrupoles QMIF0: QUADRUPOLE, L=QLENGTH, K1=K1.QMIF0 QMIF1: QUADRUPOLE, L=QLENGTH, K1=K1.QMIF1 QMIF2: QUADRUPOLE, L=QLENGTH, K1=K1.QMIF2 QMIF3: QUADRUPOLE, L=QLENGTH, K1=K1.QMIF3 QMIF4: QUADRUPOLE, L=QLENGTH, K1=K1.QMIF4 QMIF0[K1] = 0.42239741 QMIF1[K1] = -0.33110981 QMIF2[K1] = 0.30281300 QMIF3[K1] = -0.42454327 QMIF4[K1] = 0.14479417 !!!!!!!!!!201109230839 QMIF0[K1] = 0.42792950 QMIF1[K1] = -0.32416146 QMIF2[K1] = 0.30354986 QMIF3[K1] = -0.40751102 QMIF4[K1] = 0.14276799 !!201109231252 QMIF0[K1] = 0.43051314 QMIF1[K1] = -0.33181879 QMIF2[K1] = 0.31491548 QMIF3[K1] = -0.40861966 QMIF4[K1] = 0.14578456 !!201109230227 QMIF0[K1] = 0.42928617 QMIF1[K1] = -0.33174578 QMIF2[K1] = 0.31599272 QMIF3[K1] = -0.41023739 QMIF4[K1] = 0.14609889 ! Beam lines MIF: LINE=( CQB(QMIF0), DMIF1, & CQB(QMIF1), DMIF1, & CQB(QMIF2), DMIF2, & CQB(QMIF3), DMIF3, & CQB(QMIF4), DMIF4 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MPR (matching PHT to RF) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMPR1: DRIFT, L=5.26674-LDBPM-LCOR-LDCOR DMPR2: DRIFT, L=5.492732-LDBPM-LCOR-LDCOR ! Quadrupoles QMPR1: QUADRUPOLE, L=QLENGTH, K1=K1.QMPR1 QMPR2: QUADRUPOLE, L=QLENGTH, K1=K1.QMPR2 QMPR3: QUADRUPOLE, L=QLENGTH, K1=K1.QMPR3 QMPR4: QUADRUPOLE, L=QLENGTH, K1=K1.QMPR4 !!!!!!!!!!!10:16 QMPR1[K1] = 0.35807674 QMPR2[K1] = -0.35602583 QMPR3[K1] = -0.26192108E-01 QMPR4[K1] = 0.87515551E-03 !!!!!!!!!!!!!!!3:51 QMPR1[K1] = 0.34221295 QMPR2[K1] = -0.33891818 QMPR3[K1] = -0.26748361E-01 QMPR4[K1] = -0.66774053E-02 !!!!!!!!!!!!!!!201109230843 QMPR1[K1] = 0.34083463 QMPR2[K1] = -0.33767704 QMPR3[K1] = -0.23629404E-01 QMPR4[K1] = -0.10569061E-01 !!201109231253 QMPR1[K1] = 0.34382454 QMPR2[K1] = -0.33538740 QMPR3[K1] = -0.27368946E-01 QMPR4[K1] = -0.14501354E-01 !!201109230228 QMPR1[K1] = 0.34763365 QMPR2[K1] = -0.33326398 QMPR3[K1] = -0.25811114E-01 QMPR4[K1] = -0.30404655E-01 ! Beam lines MPR: LINE=( CQB(QMPR1), DMPR1, & CQB(QMPR3), DMPR1, & CQB(QMPR2), DMPR2, & CQB(QMPR4), DMPR2 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! RFC (rf) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts drf = 0.6096952 dcav = 3.11322937 - 2.87 dleft = 1.4 DRFC1: DRIFT, L= 3.06277573 -LCOR-LDCOR -drf + dcav/2 +dleft DRFC2: DRIFT, L= 3.11322937 -2*drf -dcav !distance between cavity centers 2.87m. In CESR 1.95m from end of sex08 to center of RF_W1 DRFC3: DRIFT, L= 3.06277573-LDBPM -drf +dcav/2 - dleft -0.0006 DRFC4: DRIFT, L = 0.2306096 + 2*drf DRFC5: DRIFT, L= 0.7506 ! Quadrupoles QRFC1: QUADRUPOLE, L=QLENGTH, K1=K1.QRFC1 QRFC2: QUADRUPOLE, L=QLENGTH, K1=K1.QRFC2 ! RF cavities ! RF_ON := 1 ! rfvolt:= -1.307 rfvolt:= -1.02 VRFC1: RFCAVITY, L=0.2306096 + 2*drf , LAG=RFPHSE, HARMON=7021 VRFC1[VOLT] := -0.85e6 DRVRFC : drift, l=0.2306096+2*drf ! Beam lines RFC: LINE=( CQB(QRFC1), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC1, & CQB(QRFC2), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC1 ) RFC_4cav: LINE=( CQB(QRFC1), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC5, & DRFC4, DRFC2, & DRFC4, DRFC3, & CQB(QRFC2), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC5, & DRFC4, DRFC2, & DRFC4, DRFC3) RFC_4nocav: LINE=( CQB(QRFC1), DRFC3, & DRVRFC, DRFC2, & DRVRFC, DRFC5, & DRFC4, DRFC2, & DRFC4, DRFC3, & CQB(QRFC2), DRFC3, & DRVRFC, DRFC2, & DRVRFC, DRFC5, & DRFC4, DRFC2, & DRFC4, DRFC3) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MRC (matching from RF into wigglers !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMRC1: DRIFT, L=5.30-LDBPM-LCOR-LDCOR-0.114425 ! Quadrupoles QMRC1: QUADRUPOLE, L=QLENGTH, K1=K1.QMRC1 QMRC2: QUADRUPOLE, L=QLENGTH, K1=K1.QMRC2 QMRC3: QUADRUPOLE, L=QLENGTH, K1=K1.QMRC3 QMRC4: QUADRUPOLE, L=QLENGTH, K1=K1.QMRC4 QMRC1[K1] = 0.12182725 QMRC2[K1] = 0.43415429 QMRC3[K1] = -0.51526848 QMRC4[K1] = -0.10715508E-01 !!!!!!!!!!!!!!!!8:18 QMRC1[K1] = 0.12189963 QMRC2[K1] = 0.43409500 QMRC3[K1] = -0.51520975 QMRC4[K1] = -0.10705900E-01 !!!!!!!!!!!!!!10:17 QMRC1[K1] = 0.12072850 QMRC2[K1] = 0.43482661 QMRC3[K1] = -0.51873248 QMRC4[K1] = -0.17514470E-01 !!!!!!!!!!!!!!3:51 QMRC1[K1] = 0.12005213 QMRC2[K1] = 0.42446832 QMRC3[K1] = -0.52789784 QMRC4[K1] = -0.22974871E-01 !!!!!!!!!!201109230842 QMRC1[K1] = 0.12558205 QMRC2[K1] = 0.42097244 QMRC3[K1] = -0.52660860 QMRC4[K1] = -0.20686776E-01 !!201109231253 QMRC1[K1] = 0.12800714 QMRC2[K1] = 0.42069768 QMRC3[K1] = -0.52489266 QMRC4[K1] = -0.26781971E-01 !!201109230228 QMRC1[K1] = 0.13382021 QMRC2[K1] = 0.42423783 QMRC3[K1] = -0.52715166 QMRC4[K1] = -0.30686677E-01 ! Beam lines MRC: LINE=( CQB(QMRC1), DMRC1, & CQB(QMRC2), DMRC1, & CQB(QMRC3), DMRC1, & CQB(QMRC4), DMRC1 ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MIP (matching from injection to extraction to phase trombone) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMIP1: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIP2: DRIFT, L=12.00-LDBPM-LCOR-LDCOR DMIP3: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIP4: DRIFT, L=5.00-LDBPM-LCOR-LDCOR ! Quadrupoles QMIP1: QUADRUPOLE, L=QLENGTH, K1=K1.QMIP1 QMIP2: QUADRUPOLE, L=QLENGTH, K1=K1.QMIP2 QMIP3: QUADRUPOLE, L=QLENGTH, K1=K1.QMIP3 QMIP4: QUADRUPOLE, L=QLENGTH, K1=K1.QMIP4 QMIP1[K1] = -0.24596411 QMIP2[K1] = 0.47269446 QMIP3[K1] = -0.35463290 QMIP4[K1] = 0.23012174 !!!!!!!!!!!! 3:51 QMIP1[K1] = -0.24114543 QMIP2[K1] = 0.46621639 QMIP3[K1] = -0.37860988 QMIP4[K1] = 0.24477086 !!!!!!!!!!!!!!!!!201109230843 QMIP1[K1] = -0.23798204 QMIP2[K1] = 0.46352922 QMIP3[K1] = -0.37083141 QMIP4[K1] = 0.26644888 !!!!!201109231254 QMIP1[K1] = -0.24686875 QMIP2[K1] = 0.46676668 QMIP3[K1] = -0.36503004 QMIP4[K1] = 0.25865239 !!201109230228 QMIP1[K1] = -0.24666725 QMIP2[K1] = 0.46164811 QMIP3[K1] = -0.36966000 QMIP4[K1] = 0.26692573 ! Beam lines MIP: LINE=( CQB(QMIP1), DMIP1, & CQB(QMIP2), DMIP2, & CQB(QMIP3), DMIP3, & CQB(QMIP4), DMIP4 ) ! Wigglers and RF voltage call, file = "wiggler_def.bmad" !call, file = "wiggler_def_14p_15cm.bmad" !call, filename= "nowig.bmad" !0T wigglers, 1.1MV/cavity, QWGC2[k1]= -5.4978824668E-01 call, filename= "5Hz_low_power.bmad" !1.5T wigglers, 1.1MV/cavity, QWGC2[k1]= -5.4978824668E-01 !call, filename= "10Hz_low_power.bmad" !2.1T wigglers, 1.64MV/cavity, QWGC2[K1] = -5.09788E-01 !call, filename= "10Hz_low_power_14p.bmad" !2.1T wigglers, 1.64MV/cavity, QWGC2[K1] = -5.09788E-01 !call, filename= "10Hz_low_power_electrons.bmad" !1.8T wigglers, 1.3MV/cavity, QWGC2[K1] = -5.09788E-01 !call, file="wgc_5Hz_madx.bmad" !call, file="wgc_10Hz_madx.bmad" !call, file ="wig_21000.bmad" ! 1.95T *2.1/1.95 wiggler from analytic fit to field table !call, file ="wig_23000.bmad" ! 1.95T *2.3/1.95 wiggler from analytic fit to field table !call, file ="wig_22000.bmad" ! 1.95T *2.2/1.95 wiggler from analytic fit to field table !call, file ="wig_19500.bmad" ! 1.95T wiggler from analytic fit to field table !call, file ="wig_15000.bmad" ! 1.95T *1.5/1.95 wiggler from analytic fit to field table !call, file ="wig_16000.bmad" ! 1.95T *1.6/1.95 wiggler from analytic fit to field table !call, file ="wig_16500.bmad" ! 1.95T *1.65/1.95 wiggler from analytic fit to field table !call, file ="wig_17000.bmad" ! 1.95T *1.7/1.95 wiggler from analytic fit to field table !call, file="wgc_23T_madx.bmad" ! MAD version of 2.3T wiggler !----------------------------------------- ! MARKERS !---------------------------------------- MRK1: MARKER IMRK1: MARKER IMRK2: MARKER IMRK3: MARKER BSMIK: MARKER ESMIK: MARKER BSMRK: MARKER ESMRK: MARKER MRKR_PHT: marker MRKR_MPR: marker MRKR_RFC: marker MRKR_CCH: marker MRKR_MDW: marker MRKI_PHT: marker IFD_M2: marker MFC_END: marker CCH_END: marker INJ_M1: marker INJ_M2: marker EXT_M1: marker EXT_M2: marker inj_ext_straight : line=(BSMIK,MIF,3*IFD, IFD_M2, MFC, MFC_END, & CCH,CCH_END, MPI, INJ_M1, INJ,INJ_M2, & EXT_M1,EXT,EXT_M2, MIP, PHT2, MDW2,ESMIK) !at start of inj_ext straight betax=39.9100, betay=10.4602, alphax= -1.9083, alphay= 0.5084 wiggler_straight : line=(BSMRK,5*PHT, MRKR_PHT, & MPR,MRKR_MPR, 3*RFC_4cav,RFC_4nocav,& MRKR_RFC, MRC,MRKR_CCH, & MDW,MRKR_MDW, 27*wgc, ESMRK) !At start of wiggler straight betax=40.0486, betay= 10.4789, alphax -1.8777, alphay= 0.5104 use, wiggler_straight use, mrc_line