!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) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts ldlr :=0.189 DPHT1: DRIFT, L=10.9322+0.153925-LDBPM-LCOR-LDCOR ! -ldlr ! 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 ! Beam lines PHT: LINE=( CQB(QPHT1), DPHT1, & CQB(QPHT2), DPHT1, & CQB(QPHT3), DPHT1, & CQB(QPHT4), DPHT1, & CQB(QPHT5), DPHT1, & CQB(QPHT6), DPHT1 ) 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 DMPI2: DRIFT, L=5.335069E+00-LDBPM-LCOR-LDCOR DMPI3: DRIFT, L=9.111615E+00-LDBPM-LCOR-LDCOR DMPI4: DRIFT, L=4.00-LDBPM-LCOR-LDCOR ! Quadrupoles 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 ! Beam lines MPI: LINE=( & 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 ) 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, EXP, IJ0, EX0) !--------1---------2---------3---------4---------5---------6---------7---------8 ! MDW (matching from CCH into wiggler cell {RF-WIG str} or PSD {INJ str}) ! betax betay etax alphax alphay betax betay etax alphax al ! 39.9982 16.1194 0.0065 0.0000 -0.0056 to 14.2899 8.2846 0.0 -1.2457 0. !--------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 ! Beamline MDW: LINE=( CQB(QMDW1), DMDW1, & CQB(QMDW2), DMDW2, & CQB(QMDW3), DMDW3, & CQB(QMDW4), 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 ! 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 lifd_drift := 0.599 DIFD: DRIFT, L=9.64801859-LDBPM-LCOR-LDCOR -lifd_drift ! Quadrupoles k1.qifd1 := 0.329860 k1.qifd2 := -0.400973 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 DMIF1: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIF2: DRIFT, L=12.00-LDBPM-LCOR-LDCOR DMIF3: DRIFT, L=5.00-LDBPM-LCOR-LDCOR DMIF4: DRIFT, L=5.00-LDBPM-LCOR-LDCOR ! Quadrupoles 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 ! Beam lines MIF: LINE=( 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 ! 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 circumference correction chicane) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DMRC1: DRIFT, L=5.30-LDBPM-LCOR-LDCOR ! 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 ! Beam lines MRC: LINE=( CQB(QMRC1), DMRC1, & CQB(QMRC2), DMRC1, & CQB(QMRC3), DMRC1, & CQB(QMRC4) ) !--------1---------2---------3---------4---------5---------6---------7---------8 ! WIG (wiggler magnet) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DWIG2: DRIFT, L=0.1 DWIG3: DRIFT, L=0.025 ! Bends ! WIGBMAX := 1.95 ! Peak wiggler field (T) ! WIGPERD := 0.32 ! Wiggler period (m) ! WANGLE := WIGBMAX*(WIGPERD/4)*CLIGHT/E0/1e9 ! Bending angle in one pole ! BWIGP: SBEND, L=WIGPERD/4, ANGLE=+WANGLE, E1=+WANGLE/2, E2=+WANGLE/2 ! BWIGM: SBEND, L=WIGPERD/4, ANGLE=-WANGLE, E1=-WANGLE/2, E2=-WANGLE/2 ! BWIGPH: SBEND, L=WIGPERD/8, ANGLE=+WANGLE/2, E1=+WANGLE/4, E2=+WANGLE/4 ! BWIGMH: SBEND, L=WIGPERD/8, ANGLE=-WANGLE/2, E1=-WANGLE/4, E2=-WANGLE/4 ! wang_0 := 0 ! BWIGP_0: SBEND, L=WIGPERD/4, ANGLE=+WANG_0, E1=+WANG_0/2, E2=+WANG_0/2 ! BWIGM_0: SBEND, L=WIGPERD/4, ANGLE=-WANG_0, E1=-WANG_0/2, E2=-WANG_0/2 ! BWIGPH_0: SBEND, L=WIGPERD/8, ANGLE=+WANG_0/2, E1=+WANG_0/4, E2=+WANG_0/4 ! BWIGMH_0: SBEND, L=WIGPERD/8, ANGLE=-WANG_0/2, E1=-WANG_0/4, E2=-WANG_0/4 ! Beamlines ! WIGPRD: LINE=(BWIGM,DWIG2,BWIGP,DWIG2) ! WIG: LINE=(BWIGPH,DWIG3,5*WIGPRD,BWIGM,DWIG2,BWIGP,DWIG3,BWIGMH) ! WIG_off: LINE=(BWIGPH_0,DWIG3,& ! 5*WIGPRD,BWIGM_0,DWIG2,BWIGP_0,DWIG3,BWIGMH_0) WIG: wiggler, n_pole = 12, l_pole=0.16, l=1.92 ! wig[b_max]:=1.5 WIG_off: wiggler, b_max=0., n_pole = 12, l_pole=0.16, l=1.92 wig1: marker wig2: marker wig_all: line=(wig1, wig, wig2) !--------1---------2---------3---------4---------5---------6---------7---------8 ! WGC (wiggler cell) ! try to match to ! beta x beta y eta x alpha x alpha y ! 14.2899 8.2846 0.0000 -1.2457 0.7401 ! 14.2899 8.2846 0.0000 -1.2457 0.7401 !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts lwig_dlr = 0.024 !0.03 DWGC2A: DRIFT, L=0.75-LCOR-LDCOR + lwig_dlr -0.5 DWGC1A: DRIFT, L=0.75-LDBPM + lwig_dlr +0.5 DWGC2B: DRIFT, L=0.75-LCOR-LDCOR + lwig_dlr +0.5 DWGC1B: DRIFT, L=0.75-LDBPM + lwig_dlr -0.5 ! Quadrupoles k1.qwgc1_off := 0.58115561 k1.qwgc2_off := -0.55312809 QWGC1: QUADRUPOLE, L=QLENGTH !, K1=K1.QWGC1 QWGC2: QUADRUPOLE, L=QLENGTH !, K1=K1.QWGC2 QWGC1[K1] = 5.8154065897E-01 QWGC2[K1] = -5.4978824668E-01 QWGC1_off: QUADRUPOLE, L=QLENGTH, K1=K1.QWGC1_off QWGC2_off: QUADRUPOLE, L=QLENGTH, K1=K1.QWGC2_off ! Beamline WGC: LINE=( CQB(QWGC1), DWGC1A, & WIG, DWGC2A, & CQB(QWGC2), DWGC1B, & -WIG, DWGC2B ) WGC_off: LINE=( CQB(QWGC1_off), DWGC1, & WIG_off, DWGC2, & CQB(QWGC2_off), DWGC1, & -WIG_off, DWGC2 ) !----------------------------------------- ! 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 inj_ext_straight : line=(BSMIK, 2*PHT, MRKI_PHT, MPI,IMRK2, & INJ,EXT, IMRK3, MIF, 3*IFD, MFC, CCH, MDW,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, inj_ext_straight