!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 ! Drifts ldlr :=0.189 lcenter_ie:= 1.193475 - 0.125/3 lpht2:= 0.4407125 DPHT1: DRIFT, L=10.9322+0.153925-LDBPM-LCOR-LDCOR ! -ldlr DPHT2: DRIFT, L=10.9322+0.153925-LDBPM-LCOR-LDCOR + lpht2 !- 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 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 ) 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 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 ! 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 ! 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 lcenter_inj_ext:=2.38695/2 -0.0883 DIFD: DRIFT, L=9.64801859-LDBPM-LCOR-LDCOR +lifd_drift + lcenter_inj_ext ! 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 ! 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 ! 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 ) !--------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 ! Beam lines MIP: LINE=( CQB(QMIP1), DMIP1, & CQB(QMIP2), DMIP2, & CQB(QMIP3), DMIP3, & CQB(QMIP4), DMIP4 ) !----------------------------------------- ! 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, inj_ext_straight