[430] | 1 | ! simple example which illustrates slicing |
---|
| 2 | |
---|
| 3 | const l.bpm = .3; |
---|
| 4 | |
---|
| 5 | bang = .509998807401e-2; |
---|
| 6 | kqf = .872651312e-2; |
---|
| 7 | kqd = -.872777242e-2; |
---|
| 8 | ksf = .0198492943; |
---|
| 9 | ksd = -.039621283; |
---|
| 10 | !acbv1 = -1.e-6; |
---|
| 11 | !acbh1 = 1.e-6; |
---|
| 12 | |
---|
| 13 | // element definitions; |
---|
| 14 | |
---|
| 15 | mb: rbend, l=14.2, angle:=bang, apertype=circle,aperture={0.01}; ! with round 1 cm aperture |
---|
| 16 | mq: quadrupole, l=3.1; |
---|
| 17 | mq, apertype=ellipse,aperture={0.02,0.01}; |
---|
| 18 | |
---|
| 19 | bb : marker; |
---|
| 20 | m0: marker; |
---|
| 21 | //mm:multipole,lrad=dummy,knl={0,dummy,bang*3,1},ksl={1.1,3*acbv1+5.,4,0}; |
---|
| 22 | qf.1: mq, k1:=kqf; |
---|
| 23 | qf.2: mq, k1:=kqf; |
---|
| 24 | qf.3: mq, k1:=kqf; |
---|
| 25 | qf.4: mq, k1:=kqf; |
---|
| 26 | qf.5: mq, k1:=kqf; |
---|
| 27 | qd.1: mq, k1:=kqd; |
---|
| 28 | qd.2: mq, k1:=kqd; |
---|
| 29 | qd.3: mq, k1:=kqd; |
---|
| 30 | qd.4: mq, k1:=kqd; |
---|
| 31 | qd.5: mq, k1:=kqd,tilt=pi/180.; ! tilt this quadrupole by 1 degree |
---|
| 32 | mull=0; |
---|
| 33 | qtm:marker; |
---|
| 34 | bpv: vmonitor, l:=l.bpm; |
---|
| 35 | cbh: hkicker; |
---|
| 36 | cbh.1:cbh,kick:=acbh1; |
---|
| 37 | cbh.2:cbh,kick:=acbh2; |
---|
| 38 | cbh.3:cbh,kick:=acbh3; |
---|
| 39 | cbh.4:cbh,kick:=acbh4; |
---|
| 40 | cbh.5:cbh,kick:=acbh5; |
---|
| 41 | cbv: vkicker; |
---|
| 42 | cbv.1:cbv,kick:=acbv1; |
---|
| 43 | cbv.2:cbv,kick:=acbv2; |
---|
| 44 | cbv.3:cbv,kick:=acbv3; |
---|
| 45 | cbv.4:cbv,kick:=acbv4; |
---|
| 46 | cbv.5:cbv,kick:=acbv5; |
---|
| 47 | mscbh: sextupole, l=1.1, k2:=ksf; |
---|
| 48 | mscbv: sextupole, l=1.1, k2:=ksd; |
---|
| 49 | bph: hmonitor, l:=l.bpm; |
---|
| 50 | !bph: rfcavity,l:=l.bpm, |
---|
| 51 | ! volt=.070833333333, harmon=432, shunt=26.166, tfill=90.0; |
---|
| 52 | dummy := ksf * ksd; |
---|
| 53 | |
---|
| 54 | |
---|
| 55 | lfive=534.6; |
---|
| 56 | dumzero = 0; |
---|
| 57 | // sequence declaration; |
---|
| 58 | shared ins: sequence, l=5.615,refpos=qd.1; |
---|
| 59 | bpv.1: bpv, at=5.246000e+01-5.501000e+01,from=qd.1; |
---|
| 60 | qd.1: qd.1, at=2.8; |
---|
| 61 | bb, at=4.45; |
---|
| 62 | // qt,at=4.45; |
---|
| 63 | qtm,at=4.47; |
---|
| 64 | mscbv.1: mscbv, at=5.727500e+01-5.501000e+01,from=qd.1; |
---|
| 65 | endsequence; |
---|
| 66 | |
---|
| 67 | pos = 1.084700e+02-1.550000e+00; |
---|
| 68 | fivecell: sequence, refer=centre, l=lfive; |
---|
| 69 | seqstart: marker, at = 0; |
---|
| 70 | qf.1: qf.1, at=dumzero+1.550000e+00, from=seqstart; |
---|
| 71 | mscbh: mscbh, at=3.815000e+00; |
---|
| 72 | cbh.1: cbh.1, at=4.365000e+00; |
---|
| 73 | mb: mb, at=1.262000e+01; |
---|
| 74 | mb: mb, at=2.828000e+01; |
---|
| 75 | mb: mb, at=4.394000e+01; |
---|
| 76 | ins, at=5.501000e+01; |
---|
| 77 | cbv.1: cbv.1, at=5.782500e+01; |
---|
| 78 | mb: mb, at=6.608000e+01; |
---|
| 79 | mb: mb, at=8.174000e+01; |
---|
| 80 | mb: mb, at=9.740000e+01; |
---|
| 81 | bph: bph, at=1.059200e+02, from=seqstart; |
---|
| 82 | bb, at=pos; |
---|
| 83 | startend: marker, at = pos; |
---|
| 84 | partstart: marker, at = pos; |
---|
| 85 | qf.2: qf.2, at=dumzero+1.084700e+02; |
---|
| 86 | mscbh: mscbh, at=1.107350e+02; |
---|
| 87 | cbh.2: cbh.2, at=1.112850e+02; |
---|
| 88 | mb: mb, at=1.195400e+02; |
---|
| 89 | mb: mb, at=1.352000e+02; |
---|
| 90 | mb: mb, at=1.508600e+02; |
---|
| 91 | bpv: bpv, at=1.593800e+02; |
---|
| 92 | qd.2: qd.2, at=1.619300e+02; |
---|
| 93 | bb, at=1.619300e+02+1.55; |
---|
| 94 | mscbv: mscbv, at=1.641950e+02; |
---|
| 95 | cbv.2: cbv.2, at=1.647450e+02; |
---|
| 96 | mb: mb, at=1.730000e+02; |
---|
| 97 | mb: mb, at=1.886600e+02; |
---|
| 98 | mb: mb, at=2.043200e+02; |
---|
| 99 | bph: bph, at=2.128400e+02; |
---|
| 100 | partend: marker, at = 213.84; |
---|
| 101 | qf.3: qf.3, at=2.153900e+02; |
---|
| 102 | mscbh: mscbh, at=2.176550e+02; |
---|
| 103 | cbh.3: cbh.3, at=2.182050e+02; |
---|
| 104 | mb: mb, at=2.264600e+02; |
---|
| 105 | mb: mb, at=2.421200e+02; |
---|
| 106 | mb: mb, at=2.577800e+02; |
---|
| 107 | bpv: bpv, at=2.663000e+02; |
---|
| 108 | qd.3: qd.3, at=2.688500e+02; |
---|
| 109 | mscbv: mscbv, at=2.711150e+02; |
---|
| 110 | cbv.3: cbv.3, at=2.716650e+02; |
---|
| 111 | mb: mb, at=2.799200e+02; |
---|
| 112 | mb: mb, at=2.955800e+02; |
---|
| 113 | mb: mb, at=3.112400e+02; |
---|
| 114 | bph: bph, at=3.197600e+02; |
---|
| 115 | qf.4: qf.4, at=3.223100e+02; |
---|
| 116 | mscbh: mscbh, at=3.245750e+02; |
---|
| 117 | cbh.4: cbh.4, at=3.251250e+02; |
---|
| 118 | mb: mb, at=3.333800e+02; |
---|
| 119 | mb: mb, at=3.490400e+02; |
---|
| 120 | mb: mb, at=3.647000e+02; |
---|
| 121 | bpv: bpv, at=3.732200e+02; |
---|
| 122 | qd.4: qd.4, at=3.757700e+02; |
---|
| 123 | mscbv: mscbv, at=3.780350e+02; |
---|
| 124 | cbv.4: cbv.4, at=3.785850e+02; |
---|
| 125 | mb: mb, at=3.868400e+02; |
---|
| 126 | mb: mb, at=4.025000e+02; |
---|
| 127 | mb: mb, at=4.181600e+02; |
---|
| 128 | bph: bph, at=4.266800e+02; |
---|
| 129 | qf.5: qf.5, at=4.292300e+02; |
---|
| 130 | mscbh: mscbh, at=4.314950e+02; |
---|
| 131 | cbh.5: cbh.5, at=4.320450e+02; |
---|
| 132 | mb: mb, at=4.403000e+02; |
---|
| 133 | mb: mb, at=4.559600e+02; |
---|
| 134 | mb: mb, at=4.716200e+02; |
---|
| 135 | bpv: bpv, at=4.801400e+02; |
---|
| 136 | qd.5: qd.5, at=4.826900e+02; |
---|
| 137 | mscbv: mscbv, at=4.849550e+02; |
---|
| 138 | cbv.5: cbv.5, at=4.855050e+02; |
---|
| 139 | mb: mb, at=4.937600e+02; |
---|
| 140 | mb: mb, at=5.094200e+02; |
---|
| 141 | mb: mb, at=5.250800e+02; |
---|
| 142 | bph: bph, at=5.336000e+02; |
---|
| 143 | end_fivecell: marker at=5.346000e+02; |
---|
| 144 | endsequence; |
---|