!******************************************************************** !* !* Energy Recovery Linac (R&D Version) !* Lattice near the Gun !* !******************************************************************** MOMENTUM=0.0005GEV; ! ! for injector and merger ! MARK MKGUN = () MKMGR = () MKMGED =() ; ! adjust lattice direction for writing lattice geometry BEND BORG =(L = 0 ANGLE = 8 DEG) ; DRIFT LI1 =(L = .035 ) LI2 =(L = .01 ) LI3 =(L = .05 ) LI4 =(L = .2 ) LI5 =(L = .1 ) LI6 =(L = .5 ) LI7 =(L = .6 ) LM1 =(L = .316 ) ; QUAD QI1 =(L =.1 K1 =1.949585465288 ) QI2 =(L =.1 K1 =-2.304390500729 ) QI3 =(L =.1 K1 =1.9801137993623 ) QI4 =(L =.1 K1 =-.3927454913463 ) QI5 =(L =.1 K1 =-.3927454913463 ) ; CAVI BUNCHER = (L = 0) CBS1 = (L = .6248971 FREQ = 1.3GHz VOLT = 1.44024 MV PHI = -45 DEG ) CBS2 = (L = .6248971 FREQ = 1.3GHz VOLT = 1.44024 MV PHI = -45 DEG ) CBS3 = (L = .6248971 FREQ = 1.3GHz VOLT = 1.44024 MV PHI = -45 DEG ) CBS4 = (L = .6248971 FREQ = 1.3GHz VOLT = 1.44024 MV PHI = -45 DEG ) CBS5 = (L = .6248971 FREQ = 1.3GHz VOLT = 1.44024 MV PHI = -45 DEG ) ; SOL SO1ST =(BOUND = 1 BZ =0.0 GEO = 1) SO1ED =(BOUND = 1 BZ =0.0 ) SO2ST =(BOUND = 1 BZ =0.0 GEO = 1) SO2ED =(BOUND = 1 BZ =0.0 ) ; BEND BM1 =(L = .262 ANGLE = -15.0 DEG ) BM2 =(L = .384 ANGLE = 22 DEG E1 =-.9038826598564 E2 =-.9038826598564 ) BM3 =(L = .262 ANGLE = -15.0 DEG ) ; LINE INJ = (MKGUN BORG LI1 LI1 LI2 LI2 LI2 LI3 SO1ST LI5 SO1ED LI4 BUNCHER LI4 LI4 LI4 SO2ST LI4 SO2ED LI4 CBS1 CBS2 CBS3 CBS4 CBS5 LI4 LI4 LI4 QI1 LI5 QI2 LI5 QI3 LI6 LI7 QI4 LI5 QI5 LI5 MKMGR ) MGR = (MKMGR BM1 LM1 BM2 LM1 BM3 MKMGED) MGRINV = (-MGR) ; ! ! recirculation path ! MOMENTUM = 200MeV; MARK MKSTC =(AX =3.107514660257E-5 BX =7.0001385120184 AY =3.506651549426E-5 BY =14.0002029258402 EX =-4.11870212004E-8 EPX =4.750073889102E-8 DP =.01 EMITX =8.504831382084E-8 EMITY =1E-12 ) MKAC1C =(AX =-9.41027014263E-6 BX =.0792838968335 PSIX =5.8993456858676 AY =6.212414395597E-6 BY =1.4083805980478 PSIY =5.6130663103246 EX =-.2214229591702 EPX =-2.67531139242E-7 DP =.01 EMITX =8.504831382084E-8 EMITY =1E-12 ) MKID =(AX =-2.86700840978E-5 BX =13.5532652622489 PSIX =11.6244758689492 AY =1.272847730549E-5 BY =7.265402422999 PSIY =13.3669236583944 EX =-2.69950160045E-7 EPX =3.60613477323E-10 DP =.01 EMITX =8.504831382084E-8 EMITY =1E-12 ) MKAC2C =(AX =2.365191086532E-5 BX =.0655132787058 PSIX =17.1259408321267 AY =1.194096635113E-5 BY =1.375771471197 PSIY =18.1024531298001 EX =-.2214229554137 EPX =3.237674722767E-7 DP =.01 EMITX =8.504831382084E-8 EMITY =1E-12 ) MKMGED =(AX =-9.289322707123 BX =10.9662254630191 PSIX =24.9013528391944 AY =-.1331522705282 BY =.412960254032 PSIY =23.4909045661195 EX =-3.93495540158E-7 EPX =-3.20101965797E-7 DP =.01 EMITX =8.504831382084E-8 EMITY =1E-12 ) MKCST = () MKCED = () ; DRIFT L150 =(L = .15 ) L200 =(L = .2 ) L300 =(L = .3 ) L400 =(L = .4 ) L600 =(L = .6 ) L1000 =(L =1.0 ) LLH =(L =18.57914/2 ) L1500 =(L = 1.5) ; BEND ! Dump, 200MeV BD1 =(L = .2618 ANGLE = 0 DEG ) BD2 =(L = .38397 ANGLE = 0 DEG E1 = -1 E2 = -1) BD3 =(L = .2618 ANGLE = 0 DEG ) ! Merger, 200MeV BMR1 =(L = .2618 ANGLE = 0 DEG ) BMR2 =(L = .38397 ANGLE = 0 DEG E1 = -1 E2 = -1) BMR3 =(L = .2618 ANGLE = 0 DEG ) ! Dump, 5MeV BDR1 =(L = .2618 ANGLE = 0 DEG ) BDR2 =(L = .38397 ANGLE = 0 DEG E1 = -1 E2 = -1) BDR3 =(L = .2618 ANGLE = 0 DEG ) ! Chicane BS1 =(L = .3 ANGLE = 0 DEG ) BS2 =(L = .3 ANGLE = 0 DEG ) BS3 =(L = .3 ANGLE = 0 DEG ) BS4 =(L = .3 ANGLE = 0 DEG ) BH =(L = 45.0/180.0*3.1415926535 ANGLE = 45 DEG ) B =(L = 45.0/180.0*3.1415926535 ANGLE = 45 DEG ) ; CAVI ! Cavity, 5MeV -> 200MeV ACAV1 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = -90 DEG ) ACAV2 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = -90 DEG ) ACAV3 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = -90 DEG ) ! Cavity, 200MeV -> 5MeV DCAV1 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = 90 DEG ) DCAV2 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = 90 DEG ) DCAV3 = (L = 4 FREQ = 1.3GHz VOLT = 0 MV PHI = 90 DEG ) ; QUAD Q22H =(L =.1 K1 =-.4680051751421 ) Q23 =(L =.2 K1 =.4272308213977 ) Q31 =(L =.2 K1 =.0173118786964 ) Q32 =(L =.2 K1 =.0176195675071 ) Q33 =(L =.2 K1 =.0455421958867 ) Q41 =(L =.2 K1 =.0563896731139 ) Q42 =(L =.2 K1 =.7762510655461 ) Q43 =(L =.2 K1 =-1.302364108212 ) Q44 =(L =.2 K1 =.109883568292 ) QA11 =(L =.2 K1 =1.7421267073913 ) QA12 =(L =.2 K1 =-2.3441107098632 ) QA13 =(L =.2 K1 =1.9790883719508 ) Q54 =(L =.2 K1 =-.8780307931778 ) Q53 =(L =.2 K1 =-.372143689299 ) Q52 =(L =.2 K1 =1.6767332475828 ) Q51 =(L =.2 K1 =-1.3824861971382 ) Q61 =(L =.2 K1 =.7984168130675 ) Q62 =(L =.2 K1 =-1.6606799623038 ) Q63 =(L =.2 K1 =.6928520069736 ) Q71 =(L =.2 K1 =.8519832562038 ) Q72 =(L =.2 K1 =-.8641681086009 ) Q73 =(L =.2 K1 =-.2995693087375 ) Q74 =(L =.2 K1 =-.0127539718608 ) QA21 =(L =.2 K1 =1.7421267073913 ) QA22 =(L =.2 K1 =-2.3441107098632 ) QA23 =(L =.2 K1 =1.9790883719508 ) Q84 =(L =.2 K1 =-.4622934297066 ) Q83 =(L =.2 K1 =-1.2204490713032 ) Q82 =(L =.2 K1 =2.2358471704131 ) Q81 =(L =.2 K1 =-.9535921980254 ) Q11 =(L =.2 K1 =.3232725600337 ) Q12 =(L =.2 K1 =1.3042871494865 ) Q13 =(L =.2 K1 =-1.3732490749286 ) Q21 =(L =.2 K1 =.4778736591723 ) ; SEXT SA11 =(L =.1 K2 =0.0 ) SA12 =(L =.1 K2 =0.0 ) SA21 =(L =.1 K2 =0.0 ) SA22 =(L =.1 K2 =0.0 ) ; LINE ACC1 = (L1500 ACAV1 L1500) ACC2 = (L1500 ACAV2 L1500) DCC1 = (L1500 DCAV1 L1500) DCC2 = (L1500 DCAV2 L1500) ST1 = (MKMGED L200 Q11 L200 Q12 L200 Q13 L200 ACC1 L200 Q21 L200 Q22H MKSTC Q22H L200 Q23 L200 ACC2 L200 Q31 L200 Q32 L200 Q33 L200 BD3 LM1 BD2 LM1 BD1 L200 Q41 L200 Q42 L200 Q43 L200 Q44 L600 ) ST1L = (MKSTC Q22H L200 Q23 L200 ACC2 L200 Q31 L200 Q32 L200 Q33 L200 BD3 LM1 BD2 LM1 BD1 L200 Q41 L200 Q42 L200 Q43 L200 Q44 L600 ) AC1 = (MKAC1C BH L600 QA13 L150 SA12 L150 QA12 L150 SA11 L150 QA11 L600 B ) ST2 = ( L600 Q54 L200 Q53 L200 Q52 L200 Q51 L200 BS1 L300 BS2 L300 BS3 L300 BS4 L200 Q61 L200 Q62 L200 Q63 LLH MKID LLH Q71 L200 Q72 L200 Q73 L200 Q74 L600 ) AC2 = (MKAC2C BH L600 QA23 L150 SA22 L150 QA22 L150 SA21 L150 QA21 L600 B ) ST3L =( L600 Q84 L200 Q83 L200 Q82 L200 Q81 L600 BMR1 LM1 BMR2 LM1 BMR3 MKMGED L200 Q11 L200 Q12 L200 Q13 L200 DCC1 L200 Q21 L200 Q22H ) ST3 = (MKCST L600 Q84 L200 Q83 L200 Q82 L200 Q81 L600 BMR1 LM1 BMR2 LM1 BMR3 MKMGED ! L200 Q11 L200 Q12 L200 Q13 L200 ! DCC1 ! L200 Q21 L200 Q22 L200 Q23 L200 ! DCC2 ! L200 Q31 L200 Q32 L200 Q33 L200 ! BDR3 LM1 BDR2 LM1 BDR1 ! L200 Q41 L200 Q42 L200 Q43 L200 Q44 L600 ) REC = (ST1 -AC1 AC1 ST2 -AC2 AC2 ST3) RECCELL = (ST1L -AC1 AC1 ST2 -AC2 AC2 ST3L) ERL = (INJ MGR REC) ;