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; |
---|