[430] | 1 | // forces and other constants; |
---|
| 2 | |
---|
| 3 | const l.bpm = .3; |
---|
| 4 | // element definitions; |
---|
| 5 | |
---|
| 6 | mb: sbend, 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; |
---|