// forces and other constants; const l.bpm = .3; bang = .509998807401e-2; kqf = .872651312e-2; kqd = -.872777242e-2; //ksf = .0198492943; //ksd = -.039621283; acbv1 = 1.e-4; dummy := ksf * ksd; // element definitions; mb: rbend, l=14.2, angle:=bang; mq: quadrupole, l=3.1; m0:multipole, knl:={0},ksl:={0.0,0.0}; //mm:multipole,lrad=dummy,kn={0,dummy,bang*3,1},ks={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; 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;