[430] | 1 | TITLE, s="e- Beam Delivery System 1 ->20 mr (ILC2005)"; |
---|
| 2 | OPTION,ECHO = false;!, VERIFY = true; |
---|
| 3 | ! ASSIGN, PRINT="ebds1.print"; |
---|
| 4 | ! ASSIGN, ECHO="ebds1.echo"; |
---|
| 5 | const Cb=1.0E10/CLIGHT; |
---|
| 6 | Ef:=250.0; |
---|
| 7 | Brho:=Cb*Ef; |
---|
| 8 | Efact:=Ef/500; |
---|
| 9 | Bsign:=-1; |
---|
| 10 | Bscl:=Ef/500; |
---|
| 11 | L12MM:=0.012; |
---|
| 12 | L50CM:=0.5; |
---|
| 13 | L1M:=1.0; |
---|
| 14 | L2M:=2.0; |
---|
| 15 | LFBC:=0.2; |
---|
| 16 | LFBK:=0.3; |
---|
| 17 | Lspace:=0.1; |
---|
| 18 | Bmax:=9.6; //maximum quadrupole pole-tip field for 500 GeV beam (kG) |
---|
| 19 | TFOC:=0; |
---|
| 20 | QBDS1:quadrupole, TYPE="QBDS1",L:=L50CM/2, aperture:=L12MM/2; |
---|
| 21 | QFACT1:=1/(L12MM/2*Brho); |
---|
| 22 | QBDS2:quadrupole, TYPE="QBDS2",L:=L1M/2, aperture:=L12MM/2; |
---|
| 23 | QFACT2:=1/(L12MM/2*Brho); |
---|
| 24 | QBDS3:quadrupole, TYPE="QBDS3",L:=L2M/2, aperture:=L12MM/2; |
---|
| 25 | QFACT3:=1/(L12MM/2*Brho); |
---|
| 26 | BPMQ079:monitor; |
---|
| 27 | MMOVER:marker; |
---|
| 28 | ! FBCXY:INST; |
---|
| 29 | ! FBKXY:INST; |
---|
| 30 | FBCXY:monitor; |
---|
| 31 | FBKXY:monitor; |
---|
| 32 | BPMMB079:monitor; |
---|
| 33 | WS:WIRE; |
---|
| 34 | BPMWS:monitor; |
---|
| 35 | BPME:monitor; |
---|
| 36 | BPMVIRT:monitor; |
---|
| 37 | CALL, FILE="../share/line_lattice/ebsy.madx"; |
---|
| 38 | CALL, FILE="../share/line_lattice/eirt1.madx"; |
---|
| 39 | CALL, FILE="../share/line_lattice/eff1.madx"; |
---|
| 40 | CALL, FILE="../share/line_lattice/edl1.madx"; |
---|
| 41 | !stop; |
---|
| 42 | TBETX:=50.525915605603; |
---|
| 43 | TALFX:=-2.379589233378; |
---|
| 44 | TBETY:=9.563928674469; |
---|
| 45 | TALFY:=0.510997181234; |
---|
| 46 | TWSS0:BETA0, ENERGY:=Ef, BETX:=TBETX, ALFX:=TALFX, BETY:=TBETY, ALFY:=TALFY; |
---|
| 47 | BEAM, PARTICLE=ELECTRON, ENERGY:=Ef; |
---|
| 48 | SETPLOT, XSIZE:=25.4, YSIZE:=20.32; |
---|
| 49 | ! OPTION, ECHO = true; |
---|
| 50 | ! USE, period=(EBSY,EIRT1,EFF1,EDL1); |
---|
| 51 | FFLINE0:LINE=(EBSY,EIRT1,EFF1,EDL1); |
---|
| 52 | ! FFLINE:LINE=(EBSY,EIRT1,EFF1); |
---|
| 53 | FFLINE:LINE=(EBSY,EIRT1,EFF1); |
---|
| 54 | ! FFLINEI:LINE=(EBSY,EIRT1,EFF1,EDL1); |
---|
| 55 | ! USE, period=FFLINEI; |
---|
| 56 | ! FFLINEI:LINE=(FFLINE); |
---|
| 57 | FFLINEI:LINE=(-EFF1); |
---|
| 58 | myval1=0.; |
---|
| 59 | myval2=.001; |
---|