1 | // forces and other constants; |
---|
2 | |
---|
3 | const l.bpm = .3; |
---|
4 | // element definitions; |
---|
5 | |
---|
6 | mb: rbend, l=14.2, angle:=bang; |
---|
7 | mq: quadrupole, l=3.1; |
---|
8 | bb : marker; |
---|
9 | !bb : beambeam, sigx:=sqrt(100*epsx), |
---|
10 | ! sigy:=sqrt(200*epsy), |
---|
11 | ! xma=2.e-4, yma=-2.e-4, charge=1; |
---|
12 | m0: marker; |
---|
13 | //mm:multipole,lrad=dummy,knl={0,dummy,bang*3,1},ksl={1.1,3*acbv1+5.,4,0}; |
---|
14 | qf.1: mq, k1:=kqf; |
---|
15 | qf.2: mq, k1:=kqf; |
---|
16 | qf.3: mq, k1:=kqf; |
---|
17 | qf.4: mq, k1:=kqf; |
---|
18 | qf.5: mq, k1:=kqf; |
---|
19 | qd.1: mq, k1:=kqd; |
---|
20 | qd.2: mq, k1:=kqd; |
---|
21 | qd.3: mq, k1:=kqd; |
---|
22 | qd.4: mq, k1:=kqd; |
---|
23 | qd.5: mq, k1:=kqd; |
---|
24 | mull=0; |
---|
25 | qtm:marker; |
---|
26 | //qtm:multipole,l=mull,knl:={0,0,-0.0001*kqf,0,0.000015},ksl:={0,0,0,0.01*ksf}; |
---|
27 | //qtm:multipole,l=mull,kn:={0,0,-0.0001*kqf,0,0.000015},ks:={0,0,0,0.01*ksf}; |
---|
28 | //qt:octupole,l=0.01,k3s:=-ksf; |
---|
29 | bpv: vmonitor, l:=l.bpm; |
---|
30 | cbh: hkicker; |
---|
31 | cbh.1:cbh,kick:=acbh1; |
---|
32 | cbh.2:cbh,kick:=acbh2; |
---|
33 | cbh.3:cbh,kick:=acbh3; |
---|
34 | cbh.4:cbh,kick:=acbh4; |
---|
35 | cbh.5:cbh,kick:=acbh5; |
---|
36 | cbv: vkicker; |
---|
37 | cbv.1:cbv,kick:=acbv1; |
---|
38 | cbv.2:cbv,kick:=acbv2; |
---|
39 | cbv.3:cbv,kick:=acbv3; |
---|
40 | cbv.4:cbv,kick:=acbv4; |
---|
41 | cbv.5:cbv,kick:=acbv5; |
---|
42 | mscbh: sextupole, l=1.1, k2:=ksf; |
---|
43 | mscbv: sextupole, l=1.1, k2:=ksd; |
---|
44 | bph: hmonitor, l:=l.bpm; |
---|
45 | !bph: rfcavity,l:=l.bpm, |
---|
46 | ! volt=.070833333333, harmon=432, shunt=26.166, tfill=90.0; |
---|
47 | bang = .509998807401e-2; |
---|
48 | kqf = .872651312e-2; |
---|
49 | kqd = -.872777242e-2; |
---|
50 | ksf = .0198492943; |
---|
51 | ksd = -.039621283; |
---|
52 | !acbv1 = -1.e-6; |
---|
53 | !acbh1 = 1.e-6; |
---|
54 | dummy := ksf * ksd; |
---|