!--------1---------2---------3---------4---------5---------6---------7---------8 ! DSP (dispersion suppressor) !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drifts DDSP1: DRIFT, L=1.50-LDBPM DDSP2: DRIFT, L=3.10 -LCOR-LDCOR DDSP3: DRIFT, L=3.10-LDBPM-LCOR-LDCOR DDSP4: DRIFT, L=2.35-LDBPM-LCOR-LDCOR DDSP5: DRIFT, L=4.10-LDBPM DDSP6: DRIFT, L=1.80 -LCOR-LDCOR DDSP7: DRIFT, L=3.70-LDBPM-LCOR-LDCOR DDSP8: DRIFT, L=4.70-LDBPM-LCOR-LDCOR DDSP9: DRIFT, L=7.25-LDBPM-LCOR-LDCOR DDSPA: DRIFT, L=9.20-LDBPM-LCOR-LDCOR ! Bends ! dlr ANGDSP1:= ANGARCB*0.35 ! dlr ANGDSP2:= ANGARCB*0.65 ! ANGDSP1:= ANGARCB*0.25 ! ANGDSP2:= ANGARCB*0.75 ANGDSP1:= ANGARCB ANGDSP2:= ANGARCB BDSP1: SBEND, L=BLENGTH, ANGLE=ANGDSP1, E1=ANGDSP1/2, E2=ANGDSP1/2 BDSP2: SBEND, L=BLENGTH, ANGLE=ANGDSP2, E1=ANGDSP2/2, E2=ANGDSP2/2 ! Quadrupoles QDSP0: QUADRUPOLE, L=QLENGTH ! , K1=K1.QDSP0 QDSP1: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP1 QDSP2: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP2 QDSP3: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP3 QDSP4: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP4 QDSP5: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP5 QDSP6: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP6 QDSP7: QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP7 ! Vars not in original file QDSP0[K1] = 3.6609983607E-01 QDSP1[K1] = -5.4562783516E-01 QDSP2[K1] = 9.5717178739E-01 QDSP3[K1] = -5.3721667164E-01 QDSP4[K1] = 4.1556722224E-01 QDSP5[K1] = -3.9822528400E-01 QDSP6[K1] = 3.8536240715E-01 QDSP7[K1] = -3.2836041242E-01 ! Beam lines DSP: LINE=( CQB(QDSP0), DDSP1, & BDSP1, DDSP2, & CQB(QDSP1), DDSP3, & CQB(QDSP2), DDSP4, & CQB(QDSP3), DDSP5, & BDSP2, DDSP6, & CQB(QDSP4), DDSP7, & CQB(QDSP5), DDSP8, & CQB(QDSP6), DDSP9, & CQB(QDSP7), DDSPA ) !--------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 ! 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 DRFC1: DRIFT, L= 3.06277573 -LCOR-LDCOR DRFC2: DRIFT, L= 3.11322937 DRFC3: DRIFT, L= 3.06277573-LDBPM ! 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, LAG=RFPHSE, HARMON=7021 VRFC1[VOLT] := -0.66e6 DVRFC1 : drift, L=0.2306096 ! Beam lines RFC: LINE=( CQB(QRFC1), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC1, & CQB(QRFC2), DRFC3, & VRFC1, DRFC2, & VRFC1, DRFC1 ) DRF_RFC: LINE=( CQB(QRFC1), DRFC3, & DVRFC1, DRFC2, & DVRFC1, DRFC1, & CQB(QRFC2), DRFC3, & DVRFC1, DRFC2, & DVRFC1, DRFC1 ) !--------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 ! 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 ! 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 )