! Based on straights from ILCDR FODO LATTICE "DCO4" ! that were created by Maxim Krostelev, Andy Wolski, (Cockcroft), Aug 2009 ! with New arcs, modified wiggler and RF straights. David Rubin, (Cornell), June 2011 E0 := 5.0 ! nominal beam energy (GeV) NAME:BEAM, energy=5.0 BLENGTH := 2.00 ! length of standard bending magnet QLENGTH := 0.30 ! length of standard quadrupole ratio =.7417*0.98 * 0.9996 THETPI_dlr:= 0.044194*ratio ANGARCB := thetpi_dlr ! ? scl := 1.2643 ! scale coefficient to squeeze length of the drifts in the MDW !--------1---------2---------3---------4---------5---------6---------7---------8 ! Instrumentation and correction components !------------------------------------------------------------------------------ ! For matching iterations only LDBPM:=0, LDCOR:= 0, LCOR:= 0 !--------1---------2---------3---------4---------5---------6---------7---------8 ! Drift from quadrupole to beam position monitor LDBPM := 0.0 DBPM: DRIFT, L=LDBPM ! Beam position monitor BPMRNG: MONITOR ! Drift from orbit corrector to quadrupole LDCOR := 0.0 DCOR: DRIFT, L=LDCOR ! Orbit corrector LCOR := 0.0 CORRNG: KICKER, L=LCOR, HKICK=0, VKICK=0 ! Skew quadrupole (coupling corrector) SKQRNG: QUADRUPOLE, L=0.2, K1=0.0, TILT ! Corrector, quad and BPM CQB(Q1): LINE=(CORRNG,DCOR,Q1,DBPM,BPMRNG) call, filename = "dtc_arc.bmad" call, filename = "dtc_kvals.bmad" call, filename = "dtc_straights.bmad" call, filename= "dtc_psd.bmad" call, filename= "dtc_dsp.bmad" !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 !--------1---------2---------3---------4---------5---------6---------7---------8 ! RING !--------1---------2---------3---------4---------5---------6---------7---------8 MRK4: MARKER IMRK4: MARKER END_MARK: MARKER IFD_M1: marker ARC1_MARK: marker ARC2_MARK: marker IP_L0: marker DSP_END: marker MIF_END: marker MPI_END: marker MIP_END: marker PHT2_END: marker MDW_END: marker MID_WIG_STRAIGHT : marker, superimpose,ref = BSMRK,offset = 712.3251/2 MID_INJ_STRAIGHT : marker, superimpose, ref=BSMIK, offset = 712.3251/2 HRINGR_dtc: LINE=(PSD, IMRK4,arc6_dlr, MRK1, DSP,BSMRK, & 5*PHT, MRKR_PHT, & MPR,MRKR_MPR, & 3*RFC_4cav,RFC_4nocav, MRKR_RFC, & MRC,MRKR_CCH, & MDW,MRKR_MDW, & 27*WGC, ESMRK, PSD, MRK4) HRINGI_dtc: LINE=(ARC2_mark, arc6_dlr, IMRK1, DSP,DSP_END, & 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) RING: LINE=(HRINGR_dtc, HRINGI_dtc ) !at start of inj_ext straight betax=39.9100, betay=10.4602, alphax= -1.9083, alphay= 0.5084 !At start of wiggler straight betax=40.0486, betay= 10.4789, alphax -1.8777, alphay= 0.5104 psd_arc_dsp: line=(PSD, IMRK4,arc6_dlr, MRK1, DSP) use, wiggler_straight use, inj_ext_straight use, ring !use, psd_arc_dsp ifd_line: line=(IP_L0,IFD,IFD_M2) dsp_line: line=(IP_L0,DSP,DSP_END) mif_line: line=(IP_L0, MIF, MIF_END) mfc_line: line=(IP_L0, mfc,mfc_end) mpi_line: line=(IP_L0, mpi,mpi_end) mip_line: line=(IP_L0, mip,mip_end) pht2_line: line=(IP_L0, pht2, pht2_end) mdw_line: line=(IP_L0, mdw, mdw_end) !use, mdw_line RETURN