call, filename="../more_wigs/dtc_kvals.bmad" beam, energy = 5.0 !--------1---------2---------3---------4---------5---------6---------7---------8 ! INJ (injection) and EXT (extraction) !--------1---------2---------3---------4---------5---------6---------7---------8 !beginning[beta_a] = 17.9413 !beginning[beta_b] = 80.5817 !beginning[alpha_a] = -0.1252 !beginning[alpha_b] = 0.0655 !beginning[eta_a] = 0. !beginning[etap_a] = 0. !Extraction from EXT_M1 beginning[beta_a] = 17.9413 beginning[beta_b] = 80.5817 beginning[alpha_a] = -0.1252 beginning[alpha_b] = 0.0655 beginning[eta_a] = 0. beginning[etap_a] = 0. beginning[beta_a] = 17.5461 beginning[beta_b] = 80.5360 beginning[alpha_a] = -0.0746 beginning[alpha_b] = -0.0049 beginning[eta_a] = 0. beginning[etap_a] = 0. LDBPM=0 LCOR=0 LDCOR=0 ! 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 B_KINJ1: SBEND, L = 0.3, ANGLE =-0.002/33. KEXT1: HKICKER, L=0.3, KICK=0.0 B_KEXT1: SBEND, L = 0.3, ANGLE =-0.002/33. ! Septa PINJ1: HKICKER, L=1.0, KICK=0.0 B_PINJ1: SBEND, L = 1., ANGLE = -0.064 PINJ2: HKICKER, L=1.0, KICK=0.0 B_PINJ2: SBEND, L = 1., ANGLE = -0.064 PEXT1: HKICKER, L=1.0, KICK=0.0 B_PEXT1: SBEND, L = 1., ANGLE = -0.064 PEXT2: HKICKER, L=1.0, KICK=0.0 B_PEXT2: SBEND, L = 1., ANGLE = -0.064 CQB(Q1): LINE=(Q1) ! Quadrupoles QINJ1: QUADRUPOLE, L=0.3, K1=K1.QINJ1 QINJ2: QUADRUPOLE, L=0.3, K1=K1.QINJ2 ! outside of storage ring QINJ_OUT1: quadrupole, l=0.3, k1=-0.0 QINJ_OUT2: quadrupole, l=0.3, k1=0.4 QINJ_OUT3: quadrupole, l=0.3, k1=-0.4 QINJ_OUT4: quadrupole, l=0.3, k1=0.0 QINJ_OUT5: quadrupole, l=0.3, k1=-0.4 QINJ_OUT6: quadrupole, l=0.3, k1=0.4 QINJ_OUTA: quadrupole, l=0.3, k1=-0.4 QINJ_OUTB: quadrupole, l=0.3, k1=0.4 QINJ_OUTC: quadrupole, l=0.3, k1=-0.4 QINJ_OUTD: quadrupole, l=0.3, k1=0.0 QINJ_OUTA[K1] = -5.6013701322E-02 QINJ_OUTB[K1] = 6.4878253782E-01 QINJ_OUTC[K1] = -6.4698302047E-01 QINJ_OUT2[K1] = 5.8210091504E-01 QINJ_OUT3[K1] = -4.0935244143E-01 QINJ_OUT5[K1] = 2.1207945407E-01 QINJ_OUT6[K1] = 6.5524920965E-01 DINJ1_out: drift, l= 4. DINJ2_out: drift, l= 2. DINJ3_out: drift, l= 2. DINJ4_out: drift, l= 2. DINJ5_out: drift, l= 2. DINJ6_out: drift, l= 2. DINJ7_out: drift, l= 2. dq: drift, l=0.3 BINJ_OUT: sbend, L=2, angle=-0.110 INJ_LINE_OUT: line=(DINJ7_out,QINJ_OUT6,DINJ6_OUT, & BINJ_out,dq,DINJ6_out,& DINJ5_OUT, qinj_out5, DINJ4_OUT, & QINJ_OUT3,DINJ3_OUT, QINJ_OUT2,DINJ2_OUT,QINJ_OUT1,DINJ1_OUT,& dq,DINJ2_OUT,QINJ_OUTC,2*DINJ2_OUT, QINJ_OUTB,2*DINJ2_OUT,QINJ_OUTA,DINJ1_OUT) QEXT_OUT1: quadrupole, l=0.3, k1=-0.0 QEXT_OUT2: quadrupole, l=0.3, k1=0.4 QEXT_OUT3: quadrupole, l=0.3, k1=-0.4 QEXT_OUT4: quadrupole, l=0.3, k1=0.0 QEXT_OUT5: quadrupole, l=0.3, k1=-0.4 QEXT_OUT6: quadrupole, l=0.3, k1=0.4 QEXT_OUTA: quadrupole, l=0.3, k1=-0.4 QEXT_OUTB: quadrupole, l=0.3, k1=0.4 QEXT_OUTC: quadrupole, l=0.3, k1=-0.4 QEXT_OUTD: quadrupole, l=0.3, k1=0.0 QEXT_OUTA[K1] = 0. QEXT_OUTB[K1] = 7.9141435721E-01 QEXT_OUTC[K1] = -7.8815181021E-01 QEXT_OUT2[K1] = 5.1286354081E-01 QEXT_OUT3[K1] = 5.2796707651E-02 QEXT_OUT5[K1] = 2.1737991029E-01 QEXT_OUT6[K1] = -2.1873226448E-01 QEXT_OUTD[K1] = -4.3684637437E-01 qe1: quadrupole, l=0.3 qe2: quadrupole, l=0.3 qe3: quadrupole, l=0.3 qe4: quadrupole, l=0.3 qe5: quadrupole, l=0.3 qe6: quadrupole, l=0.3 qe7: quadrupole, l=0.3 qe8: quadrupole, l=0.3 QE1[K1] = 3.1111865256E-01 QE2[K1] = 6.5755306080E-01 QE3[K1] = -1.0227454837E+00 QE4[K1] = 7.6774924709E-01 QE5[K1] = 7.6136845462E-02 QE6[K1] = 3.4852841029E-02 QE7[K1] = 2.6480043159E-01 QE8[K1] = -4.3684637437E-01 DEXT1_out: drift, l= 1 DEXT2_out: drift, l= 3. DEXT3_out: drift, l= 3. DEXT4_out: drift, l= 3. DEXT5_out: drift, l= 3. DEXT6_out: drift, l= 3. DEXT7_out: drift, l= 3.5 BEXT_OUT: sbend, L=2, angle=-0.110 EXT_LINE_OUT: line=(DEXT7_OUT,QE8,DEXT7_out,QE7,DEXT6_OUT, & BEXT_out, qe6, DEXT5_out,dext1_out,& QE5,DEXT3_OUT, QE4,DEXT2_OUT,& QE3,DEXT2_OUT, QE2,DEXT2_OUT,qe1,DEXT1_OUT) ! 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, & B_PINJ1, DINJ7, & B_PINJ2, DINJ8, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) IJP_OUT: LINE=(B_PINJ1, DINJ7, & B_PINJ2, DINJ8, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) KCKMD: LINE=( DINJK, B_KINJ1 ) KCKMDE: LINE=( DINJK, B_KEXT1 ) IJK: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ4, & 33*KCKMD, 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 ) 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, & B_PEXT2, DINJ7, & B_PEXT1, DINJ8, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ0 ) EXP_OUT: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ6, & B_PEXT2, DINJ7, & B_PEXT1) EX0: LINE=( DINJ1, & CQB(QINJ1), DINJ2, & CQB(QINJ2), DINJ3, & CQB(QINJ2), DINJ2, & CQB(QINJ1), DINJ1 ) DINJ1_rev: drift, l=-10.0 DINJ1A1: drift, l=2.55737 DINJ1A2: drift, l=10.-LDBPM-LCOR-LDCOR - 2.55737 INJ: LINE=( IJP_OUT, IJK, DINJ1A1) !add 2.557 m to get to midpoint ! EXT: LINE=( EXK, EXP, IJ0, EX0) EXT: LINE=(DINJ1A2, EXK_shift, EXP_OUT) !subtract 2.557 m to fix midpoint as start ip_l0: marker inj_end: marker ext_end: marker MID_INJ_STRAIGHT: marker ! inj_line: line=(inj_line_out, inj) ! inj_line_rev: line =(MID_INJ_STRAIGHT,-inj_line, inj_end) ! use, inj_line_rev inj_line: line=(MID_INJ_STRAIGHT,-inj, -ext_line_out, inj_end) ext_line: line=(MID_INJ_STRAIGHT,ext, -ext_line_out,ext_end) use, ext_line ! use, inj_line !elements upstream of PINJ1 are the same as extraction line downstream of PEXT1 ! Vars not in original file ! Vars not in original file QEXT_OUT1[K1] = 8.9742061014E-02