// forces and other constants;

const l.bpm = .3;
// element definitions;

mb: rbend, l=14.2, angle:=bang;
mq: quadrupole, l=3.1;
bb : marker;
!bb : beambeam, sigx:=sqrt(100*epsx),    
!                    sigy:=sqrt(200*epsy),   
!                    xma=2.e-4, yma=-2.e-4, charge=1;
m0: marker;
//mm:multipole,lrad=dummy,knl={0,dummy,bang*3,1},ksl={1.1,3*acbv1+5.,4,0};
qf.1: mq, k1:=kqf;
qf.2: mq, k1:=kqf;
qf.3: mq, k1:=kqf;
qf.4: mq, k1:=kqf;
qf.5: mq, k1:=kqf;
qd.1: mq, k1:=kqd;
qd.2: mq, k1:=kqd;
qd.3: mq, k1:=kqd;
qd.4: mq, k1:=kqd;
qd.5: mq, k1:=kqd;
mull=0;
qtm:marker;
//qtm:multipole,l=mull,knl:={0,0,-0.0001*kqf,0,0.000015},ksl:={0,0,0,0.01*ksf};
//qtm:multipole,l=mull,kn:={0,0,-0.0001*kqf,0,0.000015},ks:={0,0,0,0.01*ksf};
//qt:octupole,l=0.01,k3s:=-ksf;
bpv: vmonitor, l:=l.bpm;
cbh: hkicker;
cbh.1:cbh,kick:=acbh1;
cbh.2:cbh,kick:=acbh2;
cbh.3:cbh,kick:=acbh3;
cbh.4:cbh,kick:=acbh4;
cbh.5:cbh,kick:=acbh5;
cbv: vkicker;
cbv.1:cbv,kick:=acbv1;
cbv.2:cbv,kick:=acbv2;
cbv.3:cbv,kick:=acbv3;
cbv.4:cbv,kick:=acbv4;
cbv.5:cbv,kick:=acbv5;
mscbh: sextupole, l=1.1, k2:=ksf;
mscbv: sextupole, l=1.1, k2:=ksd;
bph: hmonitor, l:=l.bpm;
!bph: rfcavity,l:=l.bpm,
! volt=.070833333333, harmon=432, shunt=26.166, tfill=90.0;
bang = .509998807401e-2;
kqf = .872651312e-2;
kqd = -.872777242e-2;
ksf = .0198492943;
ksd = -.039621283;
!acbv1 = -1.e-6;
!acbh1 = 1.e-6;
dummy := ksf * ksd;