source: PSPA/madxPSPA/tests/share/LHC/LHCRing/SLHCV3.1b/opt_0150_0150thin.madx @ 430

Last change on this file since 430 was 430, checked in by touze, 11 years ago

import madx-5.01.00
File size: 61.8 KB
Line 
1ARC_SQUEEZE :=  1.0 ;
2
3 !***LAYOUT***
4l.MQXL      :=          7.6850000000 ;
5l.MQX       :=          6.5770000000 ;
6dq1q2a      :=          3.5600000000 ;
7dq2aq2b     :=          1.9150000000 ;
8dq2bq3      :=          3.5600000000 ;
9deltaposD2  :=        -15.0000000000 ;
10deltaposQ4  :=          0.0000000000 ;
11deltaposQ5  :=         11.0000000000 ;
12deltaposQ6  :=          0.0000000000 ;
13on_cutMS.10 :=          0            ;
14on_cutMS.14 :=          0            ;
15is_thin     :=          1            ;
16
17 !***BETAS in IR1 and IR5***
18betx_IP1     :=         0.150000 ;
19bety_IP1     :=         0.150000 ;
20betx_IP5     :=         0.150000 ;
21bety_IP5     :=         0.150000 ;
22betx0_IP1    :=         0.400000 ;
23bety0_IP1    :=         0.400000 ;
24betx0_IP5    :=         0.400000 ;
25bety0_IP5    :=         0.400000 ;
26
27 !***Exp. configuration in IR1, IR2, IR5 and IR8***
28on_sep1:=0;on_x1:=0;phi_IR1 :=   90.000; on_sol_atlas:=0;on_crab1:=0;
29on_sep5:=0;on_x5:=0;phi_IR5 :=    0.000; on_sol_cms  :=0;on_crab5:=0;
30on_sep2:=0;on_x2:=0;on_alice:=0;on_sol_alice:=0;
31on_sep8:=0;on_x8:=0;on_lhcb :=0;
32
33abas:= 12.00/ 6.0*clight/(7E12)*on_sol_atlas;
34abls:= 6.05/12.1*clight/(7E12)*on_sol_alice ;
35abcs:= 52.00/13.0*clight/(7E12)*on_sol_cms  ;
36
37 !***Ring Geometry***
38
39 !Separation/recombination dipoles
40kd1.lr1       :=  ad1.lr1/l.mbxa;
41kd2.l1        :=  ad2.l5/l.mbrd ;
42kd2.r1        :=  ad2.r5/l.mbrd ;
43kd1.l2        :=  ad1.l2/l.mbx  ;
44kd1.r2        :=  ad1.r2/l.mbx  ;
45kd2.l2        :=  ad2.l2/l.mbrc ;
46kd2.r2        :=  ad2.r2/l.mbrc ;
47kd3.lr3       :=  ad3.lr3/l.mbw ;
48kd4.lr3       :=  ad4.lr3/l.mbw ;
49kd3.l4        :=  ad3.l4/l.mbrs ;
50kd3.r4        :=  ad3.r4/l.mbrs ;
51kd4.l4        :=  ad4.l4/l.mbrb ;
52kd4.r4        :=  ad4.r4/l.mbrb ;
53kd34.lr3      :=  ad3.lr3/l.mbw ;
54kd34.lr7      :=  ad3.lr7/l.mbw ;
55kd1.lr5       :=  ad1.lr5/l.mbxa;
56kd2.l5        :=  ad2.l5/l.mbrd ;
57kd2.r5        :=  ad2.r5/l.mbrd ;
58kd3.lr7       :=  ad3.lr7/l.mbw ;
59kd4.lr7       :=  ad4.lr7/l.mbw ;
60kd1.l8        :=  ad1.l8/l.mbx  ;
61kd1.r8        :=  ad1.r8/l.mbx  ;
62kd2.l8        :=  ad2.l8/l.mbrc ;
63kd2.r8        :=  ad2.r8/l.mbrc ;
64ksumd2.l1b2   :=  kd2.l1        ;
65ksumd2.l2b2   :=  kd2.l2        ;
66ksumd2.l5b2   :=  kd2.l5        ;
67ksumd2.l8b2   :=  kd2.l8        ;
68ksumd2.r1b2   :=  kd2.l1        ;
69ksumd2.r2b2   :=  kd2.l2        ;
70ksumd2.r5b2   :=  kd2.l5        ;
71ksumd2.r8b2   :=  kd2.l8        ;
72
73 !Main dipoles
74kb.a12        :=  ab.a12/l.mb   ;
75kb.a23        :=  ab.a23/l.mb   ;
76kb.a34        :=  ab.a34/l.mb   ;
77kb.a45        :=  ab.a45/l.mb   ;
78kb.a56        :=  ab.a56/l.mb   ;
79kb.a67        :=  ab.a67/l.mb   ;
80kb.a78        :=  ab.a78/l.mb   ;
81kb.a81        :=  ab.a81/l.mb   ;
82
83 !***IR1 Optics***
84KQX1.L1     :=   -0.639466081577E-02 ;
85KQX2a.L1    :=   -0.642025963502E-02 ;
86KQX2b.L1    :=   -0.642025963502E-02 ;
87KQX3.L1     :=   -0.642025963502E-02 ;
88KQX1.R1     :=              -KQX1.L1 ;
89KQX2a.R1    :=             -KQX2a.L1 ;
90KQX2b.R1    :=             -KQX2b.L1 ;
91KQX3.R1     :=              -KQX3.L1 ;
92
93 !Beam1
94KQ4.L1B1    :=    0.159333627095E-02 ;
95KQ4.R1B1    :=   -0.159333627095E-02 ;
96KQ5.L1B1    :=   -0.140819111967E-02 ;
97KQ5.R1B1    :=    0.140819111967E-02 ;
98KQ6.L1B1    :=    0.123903769077E-02 ;
99KQ6.R1B1    :=   -0.152950155489E-02 ;
100KQ7.L1B1    :=   -0.854821623450E-02 ;
101KQ7.R1B1    :=    0.854863095419E-02 ;
102KQ8.L1B1    :=    0.804093039118E-02 ;
103KQ8.R1B1    :=   -0.742569787654E-02 ;
104KQ9.L1B1    :=   -0.683253663278E-02 ;
105KQ9.R1B1    :=    0.651032022551E-02 ;
106KQ10.L1B1   :=    0.707783746637E-02 ;
107KQ10.R1B1   :=   -0.678664783616E-02 ;
108KQTL11.L1B1 :=    0.725848427905E-03 ;
109KQTL11.R1B1 :=   -0.384126254587E-03 ;
110KQT12.L1B1  :=   -0.106584738856E-02 ;
111KQT12.R1B1  :=   -0.333865472705E-02 ;
112KQT13.L1B1  :=    0.491012498038E-02 ;
113KQT13.R1B1  :=   -0.980911958110E-03 ;
114
115 !Beam2
116KQ4.L1B2    :=   -0.151649502584E-02 ;
117KQ4.R1B2    :=    0.151649502584E-02 ;
118KQ5.L1B2    :=    0.123476543742E-02 ;
119KQ5.R1B2    :=   -0.123476543742E-02 ;
120KQ6.L1B2    :=   -0.161895657997E-02 ;
121KQ6.R1B2    :=    0.123465110923E-02 ;
122KQ7.L1B2    :=    0.852830818362E-02 ;
123KQ7.R1B2    :=   -0.849231912805E-02 ;
124KQ8.L1B2    :=   -0.846398847822E-02 ;
125KQ8.R1B2    :=    0.793612378380E-02 ;
126KQ9.L1B2    :=    0.658482660784E-02 ;
127KQ9.R1B2    :=   -0.671890509241E-02 ;
128KQ10.L1B2   :=   -0.646097354635E-02 ;
129KQ10.R1B2   :=    0.712085256215E-02 ;
130KQTL11.L1B2 :=   -0.104155911169E-02 ;
131KQTL11.R1B2 :=    0.403762858544E-03 ;
132KQT12.L1B2  :=    0.498577079249E-02 ;
133KQT12.R1B2  :=   -0.132306141929E-02 ;
134KQT13.L1B2  :=   -0.209691095773E-02 ;
135KQT13.R1B2  :=    0.337029509419E-02 ;
136
137 !***IR1 X-scheme***
138ACBXV1.L1x    :=    0.858260669076E-06 ;
139ACBXV1.L1s    :=    0.700022853706E-05 ;
140ACBXV1.L1     := (   0.858260669076E-06 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.700022853706E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
141ACBXV1.R1x    :=   -0.858260669086E-06 ;
142ACBXV1.R1s    :=    0.700022853706E-05 ;
143ACBXV1.R1     := (  -0.858260669086E-06 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.700022853706E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
144ACBXH1.L1x    :=   -0.106782893707E-05 ;
145ACBXH1.L1s    :=    0.691508389367E-05 ;
146ACBXH1.L1     := (  -0.106782893707E-05 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.691508389367E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
147ACBXH1.R1x    :=    0.106782893706E-05 ;
148ACBXH1.R1s    :=    0.691508389367E-05 ;
149ACBXH1.R1     := (   0.106782893706E-05 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.691508389367E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
150ACBXV2.L1x    :=    0.000000000000E+00 ;
151ACBXV2.L1s    :=    0.000000000000E+00 ;
152ACBXV2.L1     := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
153ACBXV2.R1x    :=    0.000000000000E+00 ;
154ACBXV2.R1s    :=    0.000000000000E+00 ;
155ACBXV2.R1     := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
156ACBXH2.L1x    :=    0.000000000000E+00 ;
157ACBXH2.L1s    :=    0.000000000000E+00 ;
158ACBXH2.L1     := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
159ACBXH2.R1x    :=    0.000000000000E+00 ;
160ACBXH2.R1s    :=    0.000000000000E+00 ;
161ACBXH2.R1     := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
162ACBXV3.L1x    :=    0.783538170720E-04 ;
163ACBXV3.L1s    :=    0.927710073258E-05 ;
164ACBXV3.L1     := (   0.783538170720E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.927710073258E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
165ACBXV3.R1x    :=   -0.783538170720E-04 ;
166ACBXV3.R1s    :=    0.927710073258E-05 ;
167ACBXV3.R1     := (  -0.783538170720E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.927710073258E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
168ACBXH3.L1x    :=    0.835625777749E-04 ;
169ACBXH3.L1s    :=    0.925810425986E-05 ;
170ACBXH3.L1     := (   0.835625777749E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.925810425986E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
171ACBXH3.R1x    :=   -0.835625777750E-04 ;
172ACBXH3.R1s    :=    0.925810425986E-05 ;
173ACBXH3.R1     := (  -0.835625777750E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.925810425986E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
174
175 !Beam1
176ACBRDV4.L1B1x :=   -0.177359972038E-03 ;
177ACBRDV4.L1B1s :=    0.344572103629E-05 ;
178ACBRDV4.L1B1  := (  -0.177359972038E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.344572103629E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
179ACBRDV4.R1B1x :=    0.112764069162E-03 ;
180ACBRDV4.R1B1s :=    0.630124505701E-05 ;
181ACBRDV4.R1B1  := (   0.112764069162E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.630124505701E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
182ACBYVS4.L1B1x :=    0.000000000000E+00 ;
183ACBYVS4.L1B1s :=    0.000000000000E+00 ;
184ACBYVS4.L1B1  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
185ACBYVS4.R1B1x :=    0.000000000000E+00 ;
186ACBYVS4.R1B1s :=    0.000000000000E+00 ;
187ACBYVS4.R1B1  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
188ACBCV5.L1B1x  :=    0.000000000000E+00 ;
189ACBCV5.L1B1s  :=    0.000000000000E+00 ;
190ACBCV5.L1B1   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
191ACBCV6.R1B1x  :=    0.000000000000E+00 ;
192ACBCV6.R1B1s  :=    0.000000000000E+00 ;
193ACBCV6.R1B1   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
194ACBRDH4.L1B1x :=   -0.115761937421E-03 ;
195ACBRDH4.L1B1s :=    0.641824901537E-05 ;
196ACBRDH4.L1B1  := (  -0.115761937421E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.641824901537E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
197ACBRDH4.R1B1x :=    0.182083784286E-03 ;
198ACBRDH4.R1B1s :=    0.348642798025E-05 ;
199ACBRDH4.R1B1  := (   0.182083784286E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.348642798025E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
200ACBYHS4.L1B1x :=    0.000000000000E+00 ;
201ACBYHS4.L1B1s :=    0.000000000000E+00 ;
202ACBYHS4.L1B1  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
203ACBYHS4.R1B1x :=    0.000000000000E+00 ;
204ACBYHS4.R1B1s :=    0.000000000000E+00 ;
205ACBYHS4.R1B1  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
206ACBCH6.L1B1x  :=    0.000000000000E+00 ;
207ACBCH6.L1B1s  :=    0.000000000000E+00 ;
208ACBCH6.L1B1   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
209ACBCH5.R1B1x  :=    0.000000000000E+00 ;
210ACBCH5.R1B1s  :=    0.000000000000E+00 ;
211ACBCH5.R1B1   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
212
213 !Beam2
214ACBRDV4.L1B2x :=   -0.112764069162E-03 ;
215ACBRDV4.L1B2s :=    0.630124505701E-05 ;
216ACBRDV4.L1B2  := (  -0.112764069162E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.630124505701E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
217ACBRDV4.R1B2x :=    0.177359972038E-03 ;
218ACBRDV4.R1B2s :=    0.344572103629E-05 ;
219ACBRDV4.R1B2  := (   0.177359972038E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.344572103629E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
220ACBYVS4.L1B2x :=    0.000000000000E+00 ;
221ACBYVS4.L1B2s :=    0.000000000000E+00 ;
222ACBYVS4.L1B2  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
223ACBYVS4.R1B2x :=    0.000000000000E+00 ;
224ACBYVS4.R1B2s :=    0.000000000000E+00 ;
225ACBYVS4.R1B2  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
226ACBCV6.L1B2x  :=    0.000000000000E+00 ;
227ACBCV6.L1B2s  :=    0.000000000000E+00 ;
228ACBCV6.L1B2   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
229ACBCV5.R1B2x  :=    0.000000000000E+00 ;
230ACBCV5.R1B2s  :=    0.000000000000E+00 ;
231ACBCV5.R1B2   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
232ACBRDH4.L1B2x :=   -0.182083784286E-03 ;
233ACBRDH4.L1B2s :=    0.348642798025E-05 ;
234ACBRDH4.L1B2  := (  -0.182083784286E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.348642798025E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
235ACBRDH4.R1B2x :=    0.115761937421E-03 ;
236ACBRDH4.R1B2s :=    0.641824901537E-05 ;
237ACBRDH4.R1B2  := (   0.115761937421E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.641824901537E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
238ACBYHS4.L1B2x :=    0.000000000000E+00 ;
239ACBYHS4.L1B2s :=    0.000000000000E+00 ;
240ACBYHS4.L1B2  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
241ACBYHS4.R1B2x :=    0.000000000000E+00 ;
242ACBYHS4.R1B2s :=    0.000000000000E+00 ;
243ACBYHS4.R1B2  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
244ACBCH5.L1B2x  :=    0.000000000000E+00 ;
245ACBCH5.L1B2s  :=    0.000000000000E+00 ;
246ACBCH5.L1B2   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
247ACBCH6.R1B2x  :=    0.000000000000E+00 ;
248ACBCH6.R1B2s  :=    0.000000000000E+00 ;
249ACBCH6.R1B2   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
250
251 !***CRAB CAVITIES in IR1***
252AHCRAB_L1B1 :=    0.163683726108E-05 ;
253AHCRAB_R1B1 :=    0.178071707702E-05 ;
254AHCRAB_L1B2 :=    0.178071702507E-05 ;
255AHCRAB_R1B2 :=    0.163683669591E-05 ;
256AVCRAB_L1B1 :=    0.174521588265E-05 ;
257AVCRAB_R1B1 :=    0.164493006565E-05 ;
258AVCRAB_L1B2 :=    0.164493006657E-05 ;
259AVCRAB_R1B2 :=    0.174521587924E-05 ;
260
261 !***IR5 Optics***
262KQX1.L5     :=   -0.639466081577E-02 ;
263KQX2a.L5    :=   -0.642025963502E-02 ;
264KQX2b.L5    :=   -0.642025963502E-02 ;
265KQX3.L5     :=   -0.642025963502E-02 ;
266KQX1.R5     :=              -KQX1.L5 ;
267KQX2a.R5    :=             -KQX2a.L5 ;
268KQX2b.R5    :=             -KQX2b.L5 ;
269KQX3.R5     :=              -KQX3.L5 ;
270
271 !Beam1
272KQ4.L5B1    :=    0.159333627095E-02 ;
273KQ4.R5B1    :=   -0.159333627095E-02 ;
274KQ5.L5B1    :=   -0.140819111967E-02 ;
275KQ5.R5B1    :=    0.140819111967E-02 ;
276KQ6.L5B1    :=    0.123903769077E-02 ;
277KQ6.R5B1    :=   -0.152950155489E-02 ;
278KQ7.L5B1    :=   -0.854821623450E-02 ;
279KQ7.R5B1    :=    0.854863095419E-02 ;
280KQ8.L5B1    :=    0.804093039118E-02 ;
281KQ8.R5B1    :=   -0.742569787654E-02 ;
282KQ9.L5B1    :=   -0.683253663278E-02 ;
283KQ9.R5B1    :=    0.651032022551E-02 ;
284KQ10.L5B1   :=    0.707783746637E-02 ;
285KQ10.R5B1   :=   -0.678664783616E-02 ;
286KQTL11.L5B1 :=    0.725848427905E-03 ;
287KQTL11.R5B1 :=   -0.384126254587E-03 ;
288KQT12.L5B1  :=   -0.106584738856E-02 ;
289KQT12.R5B1  :=   -0.333865472705E-02 ;
290KQT13.L5B1  :=    0.491012498038E-02 ;
291KQT13.R5B1  :=   -0.980911958110E-03 ;
292
293 !Beam2
294KQ4.L5B2    :=   -0.151649502584E-02 ;
295KQ4.R5B2    :=    0.151649502584E-02 ;
296KQ5.L5B2    :=    0.123476543742E-02 ;
297KQ5.R5B2    :=   -0.123476543742E-02 ;
298KQ6.L5B2    :=   -0.161895657997E-02 ;
299KQ6.R5B2    :=    0.123465110923E-02 ;
300KQ7.L5B2    :=    0.852830818362E-02 ;
301KQ7.R5B2    :=   -0.849231912805E-02 ;
302KQ8.L5B2    :=   -0.846398847822E-02 ;
303KQ8.R5B2    :=    0.793612378380E-02 ;
304KQ9.L5B2    :=    0.658482660784E-02 ;
305KQ9.R5B2    :=   -0.671890509241E-02 ;
306KQ10.L5B2   :=   -0.646097354635E-02 ;
307KQ10.R5B2   :=    0.712085256215E-02 ;
308KQTL11.L5B2 :=   -0.104155911169E-02 ;
309KQTL11.R5B2 :=    0.403762858544E-03 ;
310KQT12.L5B2  :=    0.498577079249E-02 ;
311KQT12.R5B2  :=   -0.132306141929E-02 ;
312KQT13.L5B2  :=   -0.209691095773E-02 ;
313KQT13.R5B2  :=    0.337029509419E-02 ;
314
315 !***IR5 X-scheme***
316ACBXV1.L5x    :=    0.858260665827E-06 ;
317ACBXV1.L5s    :=    0.700022853709E-05 ;
318ACBXV1.L5     := (   0.858260665827E-06 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.700022853709E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
319ACBXV1.R5x    :=   -0.858260665700E-06 ;
320ACBXV1.R5s    :=    0.700022853710E-05 ;
321ACBXV1.R5     := (  -0.858260665700E-06 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.700022853710E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
322ACBXH1.L5x    :=   -0.106782893380E-05 ;
323ACBXH1.L5s    :=    0.691508389364E-05 ;
324ACBXH1.L5     := (  -0.106782893380E-05 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.691508389364E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
325ACBXH1.R5x    :=    0.106782893393E-05 ;
326ACBXH1.R5s    :=    0.691508389365E-05 ;
327ACBXH1.R5     := (   0.106782893393E-05 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.691508389365E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
328ACBXV2.L5x    :=    0.000000000000E+00 ;
329ACBXV2.L5s    :=    0.000000000000E+00 ;
330ACBXV2.L5     := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
331ACBXV2.R5x    :=    0.000000000000E+00 ;
332ACBXV2.R5s    :=    0.000000000000E+00 ;
333ACBXV2.R5     := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
334ACBXH2.L5x    :=    0.000000000000E+00 ;
335ACBXH2.L5s    :=    0.000000000000E+00 ;
336ACBXH2.L5     := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
337ACBXH2.R5x    :=    0.000000000000E+00 ;
338ACBXH2.R5s    :=    0.000000000000E+00 ;
339ACBXH2.R5     := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
340ACBXV3.L5x    :=    0.783538170751E-04 ;
341ACBXV3.L5s    :=    0.927710073261E-05 ;
342ACBXV3.L5     := (   0.783538170751E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.927710073261E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
343ACBXV3.R5x    :=   -0.783538170752E-04 ;
344ACBXV3.R5s    :=    0.927710073261E-05 ;
345ACBXV3.R5     := (  -0.783538170752E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.927710073261E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
346ACBXH3.L5x    :=    0.835625777719E-04 ;
347ACBXH3.L5s    :=    0.925810425983E-05 ;
348ACBXH3.L5     := (   0.835625777719E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.925810425983E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
349ACBXH3.R5x    :=   -0.835625777719E-04 ;
350ACBXH3.R5s    :=    0.925810425983E-05 ;
351ACBXH3.R5     := (  -0.835625777719E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.925810425983E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
352
353 !Beam1
354ACBRDV4.L5B1x :=   -0.177359972039E-03 ;
355ACBRDV4.L5B1s :=    0.344572103624E-05 ;
356ACBRDV4.L5B1  := (  -0.177359972039E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.344572103624E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
357ACBRDV4.R5B1x :=    0.112764069164E-03 ;
358ACBRDV4.R5B1s :=    0.630124505705E-05 ;
359ACBRDV4.R5B1  := (   0.112764069164E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.630124505705E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
360ACBYVS4.L5B1x :=    0.000000000000E+00 ;
361ACBYVS4.L5B1s :=    0.000000000000E+00 ;
362ACBYVS4.L5B1  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
363ACBYVS4.R5B1x :=    0.000000000000E+00 ;
364ACBYVS4.R5B1s :=    0.000000000000E+00 ;
365ACBYVS4.R5B1  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
366ACBCV5.L5B1x  :=    0.000000000000E+00 ;
367ACBCV5.L5B1s  :=    0.000000000000E+00 ;
368ACBCV5.L5B1   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
369ACBCV6.R5B1x  :=    0.000000000000E+00 ;
370ACBCV6.R5B1s  :=    0.000000000000E+00 ;
371ACBCV6.R5B1   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
372ACBRDH4.L5B1x :=   -0.115761937420E-03 ;
373ACBRDH4.L5B1s :=    0.641824901534E-05 ;
374ACBRDH4.L5B1  := (  -0.115761937420E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.641824901534E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
375ACBRDH4.R5B1x :=    0.182083784285E-03 ;
376ACBRDH4.R5B1s :=    0.348642798031E-05 ;
377ACBRDH4.R5B1  := (   0.182083784285E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.348642798031E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
378ACBYHS4.L5B1x :=    0.000000000000E+00 ;
379ACBYHS4.L5B1s :=    0.000000000000E+00 ;
380ACBYHS4.L5B1  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
381ACBYHS4.R5B1x :=    0.000000000000E+00 ;
382ACBYHS4.R5B1s :=    0.000000000000E+00 ;
383ACBYHS4.R5B1  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
384ACBCH6.L5B1x  :=    0.000000000000E+00 ;
385ACBCH6.L5B1s  :=    0.000000000000E+00 ;
386ACBCH6.L5B1   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
387ACBCH5.R5B1x  :=    0.000000000000E+00 ;
388ACBCH5.R5B1s  :=    0.000000000000E+00 ;
389ACBCH5.R5B1   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
390
391 !Beam2
392ACBRDV4.L5B2x :=   -0.112764069163E-03 ;
393ACBRDV4.L5B2s :=    0.630124505705E-05 ;
394ACBRDV4.L5B2  := (  -0.112764069163E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.630124505705E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
395ACBRDV4.R5B2x :=    0.177359972039E-03 ;
396ACBRDV4.R5B2s :=    0.344572103623E-05 ;
397ACBRDV4.R5B2  := (   0.177359972039E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.344572103623E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
398ACBYVS4.L5B2x :=    0.000000000000E+00 ;
399ACBYVS4.L5B2s :=    0.000000000000E+00 ;
400ACBYVS4.L5B2  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
401ACBYVS4.R5B2x :=    0.000000000000E+00 ;
402ACBYVS4.R5B2s :=    0.000000000000E+00 ;
403ACBYVS4.R5B2  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
404ACBCV6.L5B2x  :=    0.000000000000E+00 ;
405ACBCV6.L5B2s  :=    0.000000000000E+00 ;
406ACBCV6.L5B2   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
407ACBCV5.R5B2x  :=    0.000000000000E+00 ;
408ACBCV5.R5B2s  :=    0.000000000000E+00 ;
409ACBCV5.R5B2   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
410ACBRDH4.L5B2x :=   -0.182083784285E-03 ;
411ACBRDH4.L5B2s :=    0.348642798031E-05 ;
412ACBRDH4.L5B2  := (  -0.182083784285E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.348642798031E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
413ACBRDH4.R5B2x :=    0.115761937420E-03 ;
414ACBRDH4.R5B2s :=    0.641824901534E-05 ;
415ACBRDH4.R5B2  := (   0.115761937420E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.641824901534E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
416ACBYHS4.L5B2x :=    0.000000000000E+00 ;
417ACBYHS4.L5B2s :=    0.000000000000E+00 ;
418ACBYHS4.L5B2  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
419ACBYHS4.R5B2x :=    0.000000000000E+00 ;
420ACBYHS4.R5B2s :=    0.000000000000E+00 ;
421ACBYHS4.R5B2  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
422ACBCH5.L5B2x  :=    0.000000000000E+00 ;
423ACBCH5.L5B2s  :=    0.000000000000E+00 ;
424ACBCH5.L5B2   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
425ACBCH6.R5B2x  :=    0.000000000000E+00 ;
426ACBCH6.R5B2s  :=    0.000000000000E+00 ;
427ACBCH6.R5B2   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
428
429 !***CRAB CAVITIES in IR5***
430AHCRAB_L5B1 :=    0.163683857853E-05 ;
431AHCRAB_R5B1 :=    0.178071784831E-05 ;
432AHCRAB_L5B2 :=    0.178071861245E-05 ;
433AHCRAB_R5B2 :=    0.163683499285E-05 ;
434AVCRAB_L5B1 :=    0.174521588027E-05 ;
435AVCRAB_R5B1 :=    0.164493006755E-05 ;
436AVCRAB_L5B2 :=    0.164493006383E-05 ;
437AVCRAB_R5B2 :=    0.174521588236E-05 ;
438
439 !***IR2 Optics***
440KQX.L2      :=    0.877985714100E-02 ;
441KTQX1.L2    :=    0.000000000000E+00 ;
442KTQX2.L2    :=    0.000000000000E+00 ;
443KQX.R2      :=             -KQX.L2   ;
444KTQX1.R2    :=             -KTQX1.L2 ;
445KTQX2.R2    :=             -KTQX2.L2 ;
446
447 !Beam1
448KQ4.L2B1    :=   -0.386440732120E-02 ;
449KQ4.R2B1    :=    0.383603500793E-02 ;
450KQ5.L2B1    :=    0.415692839144E-02 ;
451KQ5.R2B1    :=   -0.443667162081E-02 ;
452KQ6.L2B1    :=   -0.527232031907E-02 ;
453KQ6.R2B1    :=    0.459945386162E-02 ;
454KQ7.L2B1    :=    0.847016859639E-02 ;
455KQ7.R2B1    :=   -0.757128563252E-02 ;
456KQ8.L2B1    :=   -0.499212727276E-02 ;
457KQ8.R2B1    :=    0.679465668792E-02 ;
458KQ9.L2B1    :=    0.675653092964E-02 ;
459KQ9.R2B1    :=   -0.640636368921E-02 ;
460KQ10.L2B1   :=   -0.639410813059E-02 ;
461KQ10.R2B1   :=    0.729079709404E-02 ;
462KQTL11.L2B1 :=    0.597848068843E-03 ;
463KQTL11.R2B1 :=   -0.277600508450E-03 ;
464KQT12.L2B1  :=    0.144709050565E-02 ;
465KQT12.R2B1  :=   -0.191559778678E-02 ;
466KQT13.L2B1  :=    0.167872029787E-02 ;
467KQT13.R2B1  :=   -0.223619021728E-02 ;
468
469 !Beam2
470KQ4.L2B2    :=    0.263460519385E-02 ;
471KQ4.R2B2    :=   -0.355234443153E-02 ;
472KQ5.L2B2    :=   -0.405264232912E-02 ;
473KQ5.R2B2    :=    0.469477576385E-02 ;
474KQ6.L2B2    :=    0.446175174111E-02 ;
475KQ6.R2B2    :=   -0.453111942680E-02 ;
476KQ7.L2B2    :=   -0.829990253347E-02 ;
477KQ7.R2B2    :=    0.771531741666E-02 ;
478KQ8.L2B2    :=    0.789239698086E-02 ;
479KQ8.R2B2    :=   -0.563997097246E-02 ;
480KQ9.L2B2    :=   -0.700479589585E-02 ;
481KQ9.R2B2    :=    0.706009994398E-02 ;
482KQ10.L2B2   :=    0.708917245483E-02 ;
483KQ10.R2B2   :=   -0.668976093839E-02 ;
484KQTL11.L2B2 :=    0.336333326451E-02 ;
485KQTL11.R2B2 :=    0.101180903548E-02 ;
486KQT12.L2B2  :=   -0.267705742044E-02 ;
487KQT12.R2B2  :=   -0.203940411173E-02 ;
488KQT13.L2B2  :=    0.304451085582E-03 ;
489KQT13.R2B2  :=    0.448785589612E-02 ;
490
491 !***IR2 X-scheme***
492abxwt.l2      := -0.0000772587268993839836*on_alice ;
493abwmd.l2      := +0.0001472587268993839840*on_alice ;
494abaw.r2       := -0.0001335474860334838000*on_alice ;
495abxwt.r2      := +0.0000635474860334838004*on_alice ;
496ACBXV1.L2     :=    0.110000000000E-04   *on_x2;
497ACBXV1.R2     :=   -0.110000000000E-04   *on_x2;
498ACBXH1.L2     :=    0.160000000000E-04 *on_sep2;
499ACBXH1.R2     :=    0.160000000000E-04 *on_sep2;
500ACBXV2.L2     :=    0.110000000000E-04   *on_x2;
501ACBXV2.R2     :=   -0.110000000000E-04   *on_x2;
502ACBXH2.L2     :=    0.160000000000E-04 *on_sep2;
503ACBXH2.R2     :=    0.160000000000E-04 *on_sep2;
504ACBXV3.L2     :=    0.110000000000E-04   *on_x2;
505ACBXV3.R2     :=   -0.110000000000E-04   *on_x2;
506ACBXH3.L2     :=    0.160000000000E-04 *on_sep2;
507ACBXH3.R2     :=    0.160000000000E-04 *on_sep2;
508
509 !Beam1
510ACBYVS4.L2B1  :=   -0.435383457097E-04   *on_x2;
511ACBYVS4.R2B1  :=   -0.644939567951E-05   *on_x2;
512ACBYVS5.L2B1  :=   -0.327165311238E-04   *on_x2;
513ACBCVS5.R2B1  :=    0.483664121134E-04   *on_x2;
514ACBYHS4.L2B1  :=    0.281598796119E-04 *on_sep2;
515ACBYHS4.R2B1  :=   -0.106433617290E-04 *on_sep2;
516ACBYHS5.L2B1  :=   -0.603038029731E-05 *on_sep2;
517ACBCHS5.R2B1  :=    0.464372259547E-04 *on_sep2;
518
519 !Beam2
520ACBYVS4.L2B2  :=    0.164887643670E-04   *on_x2;
521ACBYVS4.R2B2  :=   -0.274315628328E-04   *on_x2;
522ACBYVS5.L2B2  :=    0.398588354938E-04   *on_x2;
523ACBCVS5.R2B2  :=   -0.488429097591E-04   *on_x2;
524ACBYHS4.L2B2  :=    0.632560412919E-05 *on_sep2;
525ACBYHS4.R2B2  :=   -0.301420665674E-04 *on_sep2;
526ACBYHS5.L2B2  :=   -0.293956022184E-04 *on_sep2;
527ACBCHS5.R2B2  :=    0.761214524593E-05 *on_sep2;
528
529 !***IR8 Optics***
530KQX.L8      :=    0.877985714100E-02 ;
531KTQX1.L8    :=    0.000000000000E+00 ;
532KTQX2.L8    :=    0.000000000000E+00 ;
533KQX.R8      :=             -KQX.L8   ;
534KTQX1.R8    :=             -KTQX1.L8 ;
535KTQX2.R8    :=             -KTQX2.L8 ;
536
537 !Beam1
538KQ4.L8B1    :=   -0.318796724530E-02 ;
539KQ4.R8B1    :=    0.252996358605E-02 ;
540KQ5.L8B1    :=    0.504643837274E-02 ;
541KQ5.R8B1    :=   -0.444614021731E-02 ;
542KQ6.L8B1    :=   -0.452543432270E-02 ;
543KQ6.R8B1    :=    0.363018212909E-02 ;
544KQ7.L8B1    :=    0.790431258329E-02 ;
545KQ7.R8B1    :=   -0.704234036308E-02 ;
546KQ8.L8B1    :=   -0.577024560867E-02 ;
547KQ8.R8B1    :=    0.784502428456E-02 ;
548KQ9.L8B1    :=    0.699198980132E-02 ;
549KQ9.R8B1    :=   -0.752816176550E-02 ;
550KQ10.L8B1   :=   -0.622126260504E-02 ;
551KQ10.R8B1   :=    0.726265679505E-02 ;
552KQTL11.L8B1 :=    0.652423224415E-03 ;
553KQTL11.R8B1 :=    0.203238871114E-02 ;
554KQT12.L8B1  :=    0.266856335170E-02 ;
555KQT12.R8B1  :=   -0.292990502398E-02 ;
556KQT13.L8B1  :=    0.356629504221E-02 ;
557KQT13.R8B1  :=    0.159509865714E-04 ;
558
559 !Beam2
560KQ4.L8B2    :=    0.352287351599E-02 ;
561KQ4.R8B2    :=   -0.384552371181E-02 ;
562KQ5.L8B2    :=   -0.517841278587E-02 ;
563KQ5.R8B2    :=    0.419232134147E-02 ;
564KQ6.L8B2    :=    0.451975490165E-02 ;
565KQ6.R8B2    :=   -0.497221341802E-02 ;
566KQ7.L8B2    :=   -0.666657680662E-02 ;
567KQ7.R8B2    :=    0.733005874594E-02 ;
568KQ8.L8B2    :=    0.677910237446E-02 ;
569KQ8.R8B2    :=   -0.716505535237E-02 ;
570KQ9.L8B2    :=   -0.494321532204E-02 ;
571KQ9.R8B2    :=    0.688092386828E-02 ;
572KQ10.L8B2   :=    0.715744075161E-02 ;
573KQ10.R8B2   :=   -0.601305382435E-02 ;
574KQTL11.L8B2 :=   -0.117888954194E-02 ;
575KQTL11.R8B2 :=    0.175561566629E-03 ;
576KQT12.L8B2  :=    0.102154354406E-02 ;
577KQT12.R8B2  :=    0.487919515961E-02 ;
578KQT13.L8B2  :=   -0.284963683192E-02 ;
579KQT13.R8B2  :=    0.277901207178E-02 ;
580
581 !***IR8 X-scheme***
582abxws.l8      := -0.000045681598453109894*on_lhcb   ;
583abxwh.l8      := +0.000180681598453109894*on_lhcb   ;
584ablw.r8       := -0.000180681598453109894*on_lhcb   ;
585abxws.r8      := +0.000045681598453109894*on_lhcb   ;
586ACBXV1.L8     :=   -0.160000000000E-04 *on_sep8;
587ACBXV1.R8     :=   -0.160000000000E-04 *on_sep8;
588ACBXH1.L8     :=   -0.110000000000E-04   *on_x8;
589ACBXH1.R8     :=    0.110000000000E-04   *on_x8;
590ACBXV2.L8     :=   -0.160000000000E-04 *on_sep8;
591ACBXV2.R8     :=   -0.160000000000E-04 *on_sep8;
592ACBXH2.L8     :=   -0.110000000000E-04   *on_x8;
593ACBXH2.R8     :=    0.110000000000E-04   *on_x8;
594ACBXV3.L8     :=   -0.160000000000E-04 *on_sep8;
595ACBXV3.R8     :=   -0.160000000000E-04 *on_sep8;
596ACBXH3.L8     :=   -0.110000000000E-04   *on_x8;
597ACBXH3.R8     :=    0.110000000000E-04   *on_x8;
598
599 !Beam1
600ACBYVS4.L8B1  :=    0.253908465224E-05 *on_sep8;
601ACBYVS4.R8B1  :=   -0.266875425220E-04 *on_sep8;
602ACBCVS5.L8B1  :=   -0.292095090701E-04 *on_sep8;
603ACBYVS5.R8B1  :=    0.634522679593E-05 *on_sep8;
604ACBYHS4.L8B1  :=    0.104237806092E-04   *on_x8;
605ACBYHS4.R8B1  :=   -0.331478162052E-04   *on_x8;
606ACBWH5.L8B1   :=    0.000000000000E+00   *on_x8;
607ACBCH5.L8B1   :=    0.404892466383E-04   *on_x8;
608ACBCHS5.L8B1  :=    0.000000000000E+00   *on_x8;
609ACBYHS5.R8B1  :=   -0.307627854218E-04   *on_x8;
610
611 !Beam2
612ACBYVS4.L8B2  :=    0.277452414792E-04 *on_sep8;
613ACBYVS4.R8B2  :=    0.251411067215E-05 *on_sep8;
614ACBCVS5.L8B2  :=   -0.635531642954E-05 *on_sep8;
615ACBYVS5.R8B2  :=    0.307208659868E-04 *on_sep8;
616ACBYHS4.L8B2  :=   -0.406102278141E-04   *on_x8;
617ACBYHS4.R8B2  :=    0.809926574540E-05   *on_x8;
618ACBCHS5.L8B2  :=   -0.313459573236E-04   *on_x8;
619ACBYHS5.R8B2  :=    0.386766490860E-04   *on_x8;
620
621 !***IR4 Optics***
622
623 !Beam1
624KQ5.L4B1    :=    0.457326210967E-02 ;
625KQ5.R4B1    :=   -0.504321797559E-02 ;
626KQ6.L4B1    :=   -0.517502842908E-02 ;
627KQ6.R4B1    :=    0.543520231075E-02 ;
628KQ7.L4B1    :=    0.711149747425E-02 ;
629KQ7.R4B1    :=   -0.439658837119E-02 ;
630KQ8.L4B1    :=   -0.477233346379E-02 ;
631KQ8.R4B1    :=    0.804395647245E-02 ;
632KQ9.L4B1    :=    0.660856956863E-02 ;
633KQ9.R4B1    :=   -0.628658471515E-02 ;
634KQ10.L4B1   :=   -0.550517973099E-02 ;
635KQ10.R4B1   :=    0.741636054644E-02 ;
636KQTL11.L4B1 :=    0.206992675636E-03 ;
637KQTL11.R4B1 :=   -0.438760976411E-02 ;
638KQT12.L4B1  :=    0.384396613548E-02 ;
639KQT12.R4B1  :=    0.412222799752E-03 ;
640KQT13.L4B1  :=    0.140627878648E-02 ;
641KQT13.R4B1  :=    0.364965150432E-02 ;
642
643 !Beam2
644KQ5.L4B2    :=   -0.423297307473E-02 ;
645KQ5.R4B2    :=    0.526030538545E-02 ;
646KQ6.L4B2    :=    0.584996450822E-02 ;
647KQ6.R4B2    :=   -0.614236382110E-02 ;
648KQ7.L4B2    :=   -0.523936281389E-02 ;
649KQ7.R4B2    :=    0.477753159394E-02 ;
650KQ8.L4B2    :=    0.855514639025E-02 ;
651KQ8.R4B2    :=   -0.541271961970E-02 ;
652KQ9.L4B2    :=   -0.538198971377E-02 ;
653KQ9.R4B2    :=    0.587187702336E-02 ;
654KQ10.L4B2   :=    0.723717220818E-02 ;
655KQ10.R4B2   :=   -0.605035968243E-02 ;
656KQTL11.L4B2 :=    0.936476770122E-06 ;
657KQTL11.R4B2 :=    0.102260865896E-02 ;
658KQT12.L4B2  :=    0.127820723034E-02 ;
659KQT12.R4B2  :=    0.957995657022E-03 ;
660KQT13.L4B2  :=    0.154431875868E-02 ;
661KQT13.R4B2  :=   -0.434830889175E-02 ;
662
663 !***IR6 Optics***
664
665 !Beam1
666KQ4.L6B1    :=   -0.488141473400E-02 ;
667KQ4.R6B1    :=    0.480311339041E-02 ;
668KQ5.L6B1    :=    0.495440751690E-02 ;
669KQ5.R6B1    :=   -0.465201328338E-02 ;
670KQ8.L6B1    :=   -0.643786165275E-02 ;
671KQ8.R6B1    :=    0.497008766862E-02 ;
672KQ9.L6B1    :=    0.675762930082E-02 ;
673KQ9.R6B1    :=   -0.665187561016E-02 ;
674KQ10.L6B1   :=   -0.751653632305E-02 ;
675KQ10.R6B1   :=    0.723692936328E-02 ;
676KQTL11.L6B1 :=    0.970811755662E-03 ;
677KQTL11.R6B1 :=   -0.256261909328E-03 ;
678KQT12.L6B1  :=    0.508155062736E-02 ;
679KQT12.R6B1  :=   -0.481964329209E-02 ;
680KQT13.L6B1  :=   -0.168528259557E-02 ;
681KQT13.R6B1  :=    0.275696492077E-02 ;
682
683 !Beam2
684KQ4.L6B2    :=    0.497705612794E-02 ;
685KQ4.R6B2    :=   -0.483383773000E-02 ;
686KQ5.L6B2    :=   -0.483703762810E-02 ;
687KQ5.R6B2    :=    0.450974053265E-02 ;
688KQ8.L6B2    :=    0.637912452547E-02 ;
689KQ8.R6B2    :=   -0.515703680563E-02 ;
690KQ9.L6B2    :=   -0.700503985506E-02 ;
691KQ9.R6B2    :=    0.660252728845E-02 ;
692KQ10.L6B2   :=    0.711474659776E-02 ;
693KQ10.R6B2   :=   -0.770851139718E-02 ;
694KQTL11.L6B2 :=    0.229036745191E-02 ;
695KQTL11.R6B2 :=    0.137406990660E-02 ;
696KQT12.L6B2  :=   -0.480355850816E-02 ;
697KQT12.R6B2  :=   -0.315551050911E-02 ;
698KQT13.L6B2  :=    0.458382186988E-02 ;
699KQT13.R6B2  :=   -0.125374816754E-02 ;
700
701 !***IR3 Optics***
702KQ4.LR3     :=    0.124128400000E-02 ;
703KQT4.L3     :=    0.688713000000E-03 ;
704KQT4.R3     :=    0.688713000000E-03 ;
705KQ5.LR3     :=   -0.130392400000E-02 ;
706KQT5.L3     :=    0.972084000000E-03 ;
707KQT5.R3     :=    0.972084000000E-03 ;
708
709 !Beam1
710KQ6.L3B1    :=    0.270233351175E-02 ;
711KQ6.R3B1    :=   -0.248064676460E-02 ;
712KQTL7.L3B1  :=   -0.256066610427E-02 ;
713KQTL7.R3B1  :=    0.108262342124E-02 ;
714KQTL8.L3B1  :=    0.306586592810E-03 ;
715KQTL8.R3B1  :=    0.246112103641E-02 ;
716KQTL9.L3B1  :=   -0.415032866762E-02 ;
717KQTL9.R3B1  :=    0.383599625932E-04 ;
718KQTL10.L3B1 :=    0.993305324054E-03 ;
719KQTL10.R3B1 :=    0.275859719082E-02 ;
720KQTL11.L3B1 :=    0.945429305635E-03 ;
721KQTL11.R3B1 :=   -0.340069629590E-02 ;
722KQT12.L3B1  :=    0.348601034713E-02 ;
723KQT12.R3B1  :=    0.388449664492E-02 ;
724KQT13.L3B1  :=   -0.348944216540E-03 ;
725KQT13.R3B1  :=   -0.383789748912E-02 ;
726
727 !Beam2
728KQ6.L3B2    :=   -0.248023366784E-02 ;
729KQ6.R3B2    :=    0.274152604236E-02 ;
730KQTL7.L3B2  :=    0.714656379619E-03 ;
731KQTL7.R3B2  :=   -0.409658321506E-02 ;
732KQTL8.L3B2  :=    0.237821715929E-02 ;
733KQTL8.R3B2  :=    0.381313882159E-03 ;
734KQTL9.L3B2  :=    0.505005804909E-04 ;
735KQTL9.R3B2  :=   -0.365284536348E-02 ;
736KQTL10.L3B2 :=    0.235441460182E-02 ;
737KQTL10.R3B2 :=    0.107229862881E-02 ;
738KQTL11.L3B2 :=   -0.334471025741E-02 ;
739KQTL11.R3B2 :=    0.250455161655E-02 ;
740KQT12.L3B2  :=    0.168352729825E-02 ;
741KQT12.R3B2  :=    0.359724898180E-02 ;
742KQT13.L3B2  :=   -0.484419961233E-02 ;
743KQT13.R3B2  :=   -0.567052180458E-03 ;
744
745 !***IR7 Optics***
746KQ4.LR7     :=    0.131382724100E-02 ;
747KQT4.L7     :=    0.331689344000E-03 ;
748KQT4.R7     :=    0.331689344000E-03 ;
749KQ5.LR7     :=   -0.133553657300E-02 ;
750KQT5.L7     :=   -0.326577060000E-04 ;
751KQT5.R7     :=   -0.326577060000E-04 ;
752
753 !Beam1
754KQ6.L7B1    :=    0.328525332571E-02 ;
755KQ6.R7B1    :=   -0.299863007737E-02 ;
756KQTL7.L7B1  :=    0.127440846165E-02 ;
757KQTL7.R7B1  :=    0.445831706681E-02 ;
758KQTL8.L7B1  :=   -0.104372892255E-02 ;
759KQTL8.R7B1  :=    0.969916899352E-03 ;
760KQTL9.L7B1  :=    0.800168964160E-04 ;
761KQTL9.R7B1  :=    0.352024044404E-02 ;
762KQTL10.L7B1 :=    0.448440346055E-02 ;
763KQTL10.R7B1 :=   -0.800003141652E-03 ;
764KQTL11.L7B1 :=    0.161771545327E-02 ;
765KQTL11.R7B1 :=   -0.196792942022E-03 ;
766KQT12.L7B1  :=    0.162722364921E-02 ;
767KQT12.R7B1  :=    0.143991273298E-03 ;
768KQT13.L7B1  :=    0.539148502270E-03 ;
769KQT13.R7B1  :=    0.806376355813E-03 ;
770
771 !Beam2
772KQ6.L7B2    :=   -0.286994613439E-02 ;
773KQ6.R7B2    :=    0.330775056994E-02 ;
774KQTL7.L7B2  :=    0.365784616868E-02 ;
775KQTL7.R7B2  :=    0.150694484776E-03 ;
776KQTL8.L7B2  :=    0.108007495349E-02 ;
777KQTL8.R7B2  :=    0.709710215676E-03 ;
778KQTL9.L7B2  :=    0.375461504531E-02 ;
779KQTL9.R7B2  :=   -0.365907484542E-03 ;
780KQTL10.L7B2 :=    0.370527986339E-03 ;
781KQTL10.R7B2 :=    0.461575596172E-02 ;
782KQTL11.L7B2 :=    0.195370963807E-03 ;
783KQTL11.R7B2 :=    0.836992953369E-03 ;
784KQT12.L7B2  :=    0.191830066696E-02 ;
785KQT12.R7B2  :=   -0.155788716254E-02 ;
786KQT13.L7B2  :=   -0.621053646413E-03 ;
787KQT13.R7B2  :=   -0.699351795531E-03 ;
788
789 !***Arc Optics***
790 !QF/QD
791KQF.A81     :=    0.870376824720E-02 ;
792KQF.A12     :=    0.870376824720E-02 ;
793KQF.A45     :=    0.870376824720E-02 ;
794KQF.A56     :=    0.870376824720E-02 ;
795KQD.A81     :=   -0.870522784641E-02 ;
796KQD.A12     :=   -0.870522784641E-02 ;
797KQD.A45     :=   -0.870522784641E-02 ;
798KQD.A56     :=   -0.870522784641E-02 ;
799KQF.A78     :=    0.876396353332E-02 ;
800KQF.A23     :=    0.876396353332E-02 ;
801KQF.A34     :=    0.876396353332E-02 ;
802KQF.A67     :=    0.876396353332E-02 ;
803KQD.A78     :=   -0.863871054670E-02 ;
804KQD.A23     :=   -0.863871054670E-02 ;
805KQD.A34     :=   -0.863871054670E-02 ;
806KQD.A67     :=   -0.863871054670E-02 ;
807
808 !QTF/QTD BEAM1
809KQTF.B1     :=    0.000000000000E+00 ;
810KQTD.B1     :=    0.000000000000E+00 ;
811KQTF.A81B1  :=    0.000000000000E+00 ;
812KQTF.A12B1  :=    0.000000000000E+00 ;
813KQTF.A45B1  :=    0.000000000000E+00 ;
814KQTF.A56B1  :=    0.000000000000E+00 ;
815KQTD.A81B1  :=    0.000000000000E+00 ;
816KQTD.A12B1  :=    0.000000000000E+00 ;
817KQTD.A45B1  :=    0.000000000000E+00 ;
818KQTD.A56B1  :=    0.000000000000E+00 ;
819KQTF.A78B1  :=    0.000000000000E+00 + KQTF.B1;
820KQTF.A23B1  :=    0.000000000000E+00 + KQTF.B1;
821KQTF.A34B1  :=    0.000000000000E+00 + KQTF.B1;
822KQTF.A67B1  :=    0.000000000000E+00 + KQTF.B1;
823KQTD.A78B1  :=    0.000000000000E+00 + KQTD.B1;
824KQTD.A23B1  :=    0.000000000000E+00 + KQTD.B1;
825KQTD.A34B1  :=    0.000000000000E+00 + KQTD.B1;
826KQTD.A67B1  :=    0.000000000000E+00 + KQTD.B1;
827
828 !QTF/QTD BEAM2
829KQTF.B2     :=    0.000000000000E+00 ;
830KQTD.B2     :=    0.000000000000E+00 ;
831KQTF.A81B2  :=    0.000000000000E+00 ;
832KQTF.A12B2  :=    0.000000000000E+00 ;
833KQTF.A45B2  :=    0.000000000000E+00 ;
834KQTF.A56B2  :=    0.000000000000E+00 ;
835KQTD.A81B2  :=    0.000000000000E+00 ;
836KQTD.A12B2  :=    0.000000000000E+00 ;
837KQTD.A45B2  :=    0.000000000000E+00 ;
838KQTD.A56B2  :=    0.000000000000E+00 ;
839KQTF.A78B2  :=    0.000000000000E+00 + KQTF.B2;
840KQTF.A23B2  :=    0.000000000000E+00 + KQTF.B2;
841KQTF.A34B2  :=    0.000000000000E+00 + KQTF.B2;
842KQTF.A67B2  :=    0.000000000000E+00 + KQTF.B2;
843KQTD.A78B2  :=    0.000000000000E+00 + KQTD.B2;
844KQTD.A23B2  :=    0.000000000000E+00 + KQTD.B2;
845KQTD.A34B2  :=    0.000000000000E+00 + KQTD.B2;
846KQTD.A67B2  :=    0.000000000000E+00 + KQTD.B2;
847
848 !Sextupole BEAM1
849KSF.B1      :=    0.000000000000E+00 ;
850KSD.B1      :=    0.000000000000E+00 ;
851
852 !Strong sextupoles of sectors 81/12/45/56
853KSF1.A81B1  :=    0.249014688657E+00 ;
854KSF1.A12B1  :=    0.235361002682E+00 ;
855KSF1.A45B1  :=    0.254383334310E+00 ;
856KSF1.A56B1  :=    0.243008317600E+00 ;
857KSD2.A81B1  :=   -0.417878230998E+00 ;
858KSD2.A12B1  :=   -0.397811316547E+00 ;
859KSD2.A45B1  :=   -0.407546405366E+00 ;
860KSD2.A56B1  :=   -0.417191897007E+00 ;
861
862 !Weak sextupoles of sectors 81/12/45/56
863KSF2.A81B1  :=    0.400000000000E-01 ;
864KSF2.A12B1  :=    0.400000000000E-01 ;
865KSF2.A45B1  :=    0.400000000000E-01 ;
866KSF2.A56B1  :=    0.400000000000E-01 ;
867KSD1.A81B1  :=   -0.700000000000E-01 ;
868KSD1.A12B1  :=   -0.700000000000E-01 ;
869KSD1.A45B1  :=   -0.700000000000E-01 ;
870KSD1.A56B1  :=   -0.700000000000E-01 ;
871
872 !Weak sextupoles of sectors 78/23/34/67
873KSF1.A78B1  :=    0.820117617704E-01   +KSF.B1;
874KSF2.A78B1  :=    0.820117617704E-01   +KSF.B1;
875KSF1.A23B1  :=    0.820117617704E-01   +KSF.B1;
876KSF2.A23B1  :=    0.820117617704E-01   +KSF.B1;
877KSF1.A34B1  :=    0.820117617704E-01   +KSF.B1;
878KSF2.A34B1  :=    0.820117617704E-01   +KSF.B1;
879KSF1.A67B1  :=    0.820117617704E-01   +KSF.B1;
880KSF2.A67B1  :=    0.820117617704E-01   +KSF.B1;
881KSD1.A78B1  :=   -0.128216099832E+00   +KSD.B1;
882KSD2.A78B1  :=   -0.128216099832E+00   +KSD.B1;
883KSD1.A23B1  :=   -0.128216099832E+00   +KSD.B1;
884KSD2.A23B1  :=   -0.128216099832E+00   +KSD.B1;
885KSD1.A34B1  :=   -0.128216099832E+00   +KSD.B1;
886KSD2.A34B1  :=   -0.128216099832E+00   +KSD.B1;
887KSD1.A67B1  :=   -0.128216099832E+00   +KSD.B1;
888KSD2.A67B1  :=   -0.128216099832E+00   +KSD.B1;
889
890 !Sextupole BEAM2
891KSF.B2      :=    0.000000000000E+00 ;
892KSD.B2      :=    0.000000000000E+00 ;
893
894 !Strong sextupoles of sectors 81/12/45/56
895KSF2.A81B2  :=    0.240786949161E+00 ;
896KSF2.A12B2  :=    0.236573936861E+00 ;
897KSF2.A45B2  :=    0.235938706409E+00 ;
898KSF2.A56B2  :=    0.249981429753E+00 ;
899KSD1.A81B2  :=   -0.419999999998E+00 ;
900KSD1.A12B2  :=   -0.406080557523E+00 ;
901KSD1.A45B2  :=   -0.419107550626E+00 ;
902KSD1.A56B2  :=   -0.418305467588E+00 ;
903
904 !Weak sextupoles of sectors 81/12/45/56
905KSF1.A81B2  :=    0.400000000000E-01 ;
906KSF1.A12B2  :=    0.400000000000E-01 ;
907KSF1.A45B2  :=    0.400000000000E-01 ;
908KSF1.A56B2  :=    0.400000000000E-01 ;
909KSD2.A81B2  :=   -0.700000000000E-01 ;
910KSD2.A12B2  :=   -0.700000000000E-01 ;
911KSD2.A45B2  :=   -0.700000000000E-01 ;
912KSD2.A56B2  :=   -0.700000000000E-01 ;
913
914 !Weak sextupoles of sectors 78/23/34/67
915KSF1.A78B2  :=    0.841997793441E-01   +KSF.B2;
916KSF2.A78B2  :=    0.841997793441E-01   +KSF.B2;
917KSF1.A23B2  :=    0.841997793441E-01   +KSF.B2;
918KSF2.A23B2  :=    0.841997793441E-01   +KSF.B2;
919KSF1.A34B2  :=    0.841997793441E-01   +KSF.B2;
920KSF2.A34B2  :=    0.841997793441E-01   +KSF.B2;
921KSF1.A67B2  :=    0.841997793441E-01   +KSF.B2;
922KSF2.A67B2  :=    0.841997793441E-01   +KSF.B2;
923KSD1.A78B2  :=   -0.126986944236E+00   +KSD.B2;
924KSD2.A78B2  :=   -0.126986944236E+00   +KSD.B2;
925KSD1.A23B2  :=   -0.126986944236E+00   +KSD.B2;
926KSD2.A23B2  :=   -0.126986944236E+00   +KSD.B2;
927KSD1.A34B2  :=   -0.126986944236E+00   +KSD.B2;
928KSD2.A34B2  :=   -0.126986944236E+00   +KSD.B2;
929KSD1.A67B2  :=   -0.126986944236E+00   +KSD.B2;
930KSD2.A67B2  :=   -0.126986944236E+00   +KSD.B2;
931
932 !OF/OD BEAM1
933KOF.B1      :=    0.000000000000E+00 ;
934KOD.B1      :=    0.000000000000E+00 ;
935KOF.A12B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
936KOF.A23B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
937KOF.A34B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
938KOF.A45B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
939KOF.A56B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
940KOF.A67B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
941KOF.A78B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
942KOF.A81B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
943KOD.A12B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
944KOD.A23B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
945KOD.A34B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
946KOD.A45B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
947KOD.A56B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
948KOD.A67B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
949KOD.A78B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
950KOD.A81B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
951
952 !OF/OD BEAM2
953KOF.B2      :=    0.000000000000E+00 ;
954KOD.B2      :=    0.000000000000E+00 ;
955KOF.A12B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
956KOF.A23B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
957KOF.A34B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
958KOF.A45B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
959KOF.A56B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
960KOF.A67B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
961KOF.A78B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
962KOF.A81B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
963KOD.A12B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
964KOD.A23B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
965KOD.A34B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
966KOD.A45B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
967KOD.A56B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
968KOD.A67B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
969KOD.A78B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
970KOD.A81B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
971
972 !! MCB-beam1 for spurious dispersion correction
973
974 !! MCB in sector 81 and 12
975acbh14.r8b1x  :=    0.000000000000E+00 ;
976acbh14.r8b1s  :=    0.000000000000E+00 ;
977acbh14.r8b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
978acbh16.r8b1x  :=    0.195144060678E-04 ;
979acbh16.r8b1s  :=   -0.931672448303E-06 ;
980acbh16.r8b1  := ((   0.195144060678E-04  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.931672448303E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
981acbh14.l1b1x  :=   -0.560084396555E-06 ;
982acbh14.l1b1s  :=    0.251091762977E-07 ;
983acbh14.l1b1  := ((  -0.560084396555E-06  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.251091762977E-07  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
984acbh12.l1b1x  :=   -0.199892151718E-04 ;
985acbh12.l1b1s  :=    0.954037091267E-06 ;
986acbh12.l1b1  := ((  -0.199892151718E-04  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.954037091267E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
987acbh13.r1b1x  :=   -0.165033932673E-04 ;
988acbh13.r1b1s  :=    0.100574722318E-06 ;
989acbh13.r1b1  := ((  -0.165033932673E-04  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.100574722318E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
990acbh15.r1b1x  :=   -0.571285578136E-08 ;
991acbh15.r1b1s  :=    0.187223901710E-10 ;
992acbh15.r1b1  := ((  -0.571285578136E-08  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.187223901710E-10  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
993acbh15.l2b1x  :=    0.165009438426E-04 ;
994acbh15.l2b1s  :=   -0.100717417547E-06 ;
995acbh15.l2b1  := ((   0.165009438426E-04  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.100717417547E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
996acbh13.l2b1x  :=    0.000000000000E+00 ;
997acbh13.l2b1s  :=    0.000000000000E+00 ;
998acbh13.l2b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
999acbv13.r8b1x  :=    0.000000000000E+00 ;
1000acbv13.r8b1s  :=    0.000000000000E+00 ;
1001acbv13.r8b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1002acbv15.r8b1x  :=   -0.141853980702E-04 ;
1003acbv15.r8b1s  :=    0.578478275388E-07 ;
1004acbv15.r8b1  := ((  -0.141853980702E-04  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.578478275388E-07  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1005acbv15.l1b1x  :=   -0.313956259144E-07 ;
1006acbv15.l1b1s  :=    0.239092093616E-09 ;
1007acbv15.l1b1  := ((  -0.313956259144E-07  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.239092093616E-09  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1008acbv13.l1b1x  :=    0.140891757244E-04 ;
1009acbv13.l1b1s  :=   -0.574505544430E-07 ;
1010acbv13.l1b1  := ((   0.140891757244E-04  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.574505544430E-07  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1011acbv12.r1b1x  :=    0.191300115254E-04 ;
1012acbv12.r1b1s  :=    0.997142861501E-06 ;
1013acbv12.r1b1  := ((   0.191300115254E-04  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.997142861501E-06  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1014acbv14.r1b1x  :=    0.913768544087E-07 ;
1015acbv14.r1b1s  :=    0.319801896088E-08 ;
1016acbv14.r1b1  := ((   0.913768544087E-07  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.319801896088E-08  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1017acbv16.l2b1x  :=   -0.190364709279E-04 ;
1018acbv16.l2b1s  :=   -0.992047237379E-06 ;
1019acbv16.l2b1  := ((  -0.190364709279E-04  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.992047237379E-06  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1020acbv14.l2b1x  :=    0.000000000000E+00 ;
1021acbv14.l2b1s  :=    0.000000000000E+00 ;
1022acbv14.l2b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1023
1024 !! MCB in sector 45 and 56
1025acbh14.r4b1x  :=    0.000000000000E+00 ;
1026acbh14.r4b1s  :=    0.000000000000E+00 ;
1027acbh14.r4b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1028acbh16.r4b1x  :=    0.189018846428E-04 ;
1029acbh16.r4b1s  :=   -0.896507288037E-06 ;
1030acbh16.r4b1  := ((   0.189018846428E-04  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.896507288037E-06  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1031acbh14.l5b1x  :=   -0.541703086592E-06 ;
1032acbh14.l5b1s  :=    0.240925692816E-07 ;
1033acbh14.l5b1  := ((  -0.541703086592E-06  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.240925692816E-07  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1034acbh12.l5b1x  :=   -0.193620818386E-04 ;
1035acbh12.l5b1s  :=    0.917993684952E-06 ;
1036acbh12.l5b1  := ((  -0.193620818386E-04  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.917993684952E-06  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1037acbh13.r5b1x  :=   -0.159025181810E-04 ;
1038acbh13.r5b1s  :=    0.924497213357E-07 ;
1039acbh13.r5b1  := ((  -0.159025181810E-04  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.924497213357E-07  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1040acbh15.r5b1x  :=   -0.550108552354E-08 ;
1041acbh15.r5b1s  :=    0.195783181733E-10 ;
1042acbh15.r5b1  := ((  -0.550108552354E-08  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.195783181733E-10  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1043acbh15.l6b1x  :=    0.159001261231E-04 ;
1044acbh15.l6b1s  :=   -0.925776977672E-07 ;
1045acbh15.l6b1  := ((   0.159001261231E-04  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.925776977672E-07  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1046acbh13.l6b1x  :=    0.000000000000E+00 ;
1047acbh13.l6b1s  :=    0.000000000000E+00 ;
1048acbh13.l6b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1049acbv13.r4b1x  :=    0.000000000000E+00 ;
1050acbv13.r4b1s  :=    0.000000000000E+00 ;
1051acbv13.r4b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1052acbv15.r4b1x  :=   -0.146823751037E-04 ;
1053acbv15.r4b1s  :=    0.598713638736E-07 ;
1054acbv15.r4b1  := ((  -0.146823751037E-04  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.598713638736E-07  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1055acbv15.l5b1x  :=   -0.322039487989E-07 ;
1056acbv15.l5b1s  :=    0.241083603882E-09 ;
1057acbv15.l5b1  := ((  -0.322039487989E-07  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.241083603882E-09  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1058acbv13.l5b1x  :=    0.145829062237E-04 ;
1059acbv13.l5b1s  :=   -0.594608429720E-07 ;
1060acbv13.l5b1  := ((   0.145829062237E-04  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.594608429720E-07  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1061acbv12.r5b1x  :=    0.180396390974E-04 ;
1062acbv12.r5b1s  :=    0.940367146958E-06 ;
1063acbv12.r5b1  := ((   0.180396390974E-04  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.940367146958E-06  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1064acbv14.r5b1x  :=    0.857875317837E-07 ;
1065acbv14.r5b1s  :=    0.300767394040E-08 ;
1066acbv14.r5b1  := ((   0.857875317837E-07  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.300767394040E-08  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1067acbv16.l6b1x  :=   -0.179513325565E-04 ;
1068acbv16.l6b1s  :=   -0.935574370903E-06 ;
1069acbv16.l6b1  := ((  -0.179513325565E-04  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.935574370903E-06  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1070acbv14.l6b1x  :=    0.000000000000E+00 ;
1071acbv14.l6b1s  :=    0.000000000000E+00 ;
1072acbv14.l6b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep5)*ON_DISP ;
1073
1074 !! MCB-beam2 for spurious dispersion correction
1075
1076 !! MCB in sector 81 and 12
1077acbh13.r8b2x  :=    0.000000000000E+00 ;
1078acbh13.r8b2s  :=    0.000000000000E+00 ;
1079acbh13.r8b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1080acbh15.r8b2x  :=    0.157728887521E-04 ;
1081acbh15.r8b2s  :=   -0.229567453963E-06 ;
1082acbh15.r8b2  := ((   0.157728887521E-04  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.229567453963E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1083acbh15.l1b2x  :=   -0.372104517199E-08 ;
1084acbh15.l1b2s  :=   -0.229428108555E-09 ;
1085acbh15.l1b2  := ((  -0.372104517199E-08  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.229428108555E-09  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1086acbh13.l1b2x  :=   -0.157288221703E-04 ;
1087acbh13.l1b2s  :=    0.228712413553E-06 ;
1088acbh13.l1b2  := ((  -0.157288221703E-04  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.228712413553E-06  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1089acbh12.r1b2x  :=   -0.207297781386E-04 ;
1090acbh12.r1b2s  :=   -0.119154240304E-05 ;
1091acbh12.r1b2  := ((  -0.207297781386E-04  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.119154240304E-05  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1092acbh14.r1b2x  :=   -0.275335153108E-06 ;
1093acbh14.r1b2s  :=   -0.139715013281E-07 ;
1094acbh14.r1b2  := ((  -0.275335153108E-06  )*cos(phi_IR1*twopi/360.)*on_x1+( -0.139715013281E-07  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1095acbh16.l2b2x  :=    0.203728143466E-04 ;
1096acbh16.l2b2s  :=    0.117093120201E-05 ;
1097acbh16.l2b2  := ((   0.203728143466E-04  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.117093120201E-05  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1098acbh14.l2b2x  :=    0.000000000000E+00 ;
1099acbh14.l2b2s  :=    0.000000000000E+00 ;
1100acbh14.l2b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1101acbv14.r8b2x  :=    0.000000000000E+00 ;
1102acbv14.r8b2s  :=    0.000000000000E+00 ;
1103acbv14.r8b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1104acbv16.r8b2x  :=   -0.180968200624E-04 ;
1105acbv16.r8b2s  :=    0.941920503006E-06 ;
1106acbv16.r8b2  := ((  -0.180968200624E-04  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.941920503006E-06  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1107acbv14.l1b2x  :=    0.237715179770E-06 ;
1108acbv14.l1b2s  :=   -0.105646577919E-07 ;
1109acbv14.l1b2  := ((   0.237715179770E-06  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.105646577919E-07  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1110acbv12.l1b2x  :=    0.181632361029E-04 ;
1111acbv12.l1b2s  :=   -0.945675898959E-06 ;
1112acbv12.l1b2  := ((   0.181632361029E-04  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.945675898959E-06  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1113acbv13.r1b2x  :=    0.149404469958E-04 ;
1114acbv13.r1b2s  :=    0.607862436610E-07 ;
1115acbv13.r1b2  := ((   0.149404469958E-04  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.607862436610E-07  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1116acbv15.r1b2x  :=   -0.291968356366E-07 ;
1117acbv15.r1b2s  :=   -0.265354752529E-09 ;
1118acbv15.r1b2  := ((  -0.291968356366E-07  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.265354752529E-09  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1119acbv15.l2b2x  :=   -0.149383968954E-04 ;
1120acbv15.l2b2s  :=   -0.607970716857E-07 ;
1121acbv15.l2b2  := ((  -0.149383968954E-04  )*sin(phi_IR1*twopi/360.)*on_x1+( -0.607970716857E-07  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1122acbv13.l2b2x  :=    0.000000000000E+00 ;
1123acbv13.l2b2s  :=    0.000000000000E+00 ;
1124acbv13.l2b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1125
1126 !! MCB in sector 45 and 56
1127acbh13.r4b2x  :=    0.000000000000E+00 ;
1128acbh13.r4b2s  :=    0.000000000000E+00 ;
1129acbh13.r4b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1130acbh15.r4b2x  :=    0.162015626631E-04 ;
1131acbh15.r4b2s  :=   -0.231601800658E-06 ;
1132acbh15.r4b2  := ((   0.162015626631E-04  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.231601800658E-06  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1133acbh15.l5b2x  :=   -0.402455990545E-08 ;
1134acbh15.l5b2s  :=   -0.228361617942E-09 ;
1135acbh15.l5b2  := ((  -0.402455990545E-08  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.228361617942E-09  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1136acbh13.l5b2x  :=   -0.161563790281E-04 ;
1137acbh13.l5b2s  :=    0.230741837144E-06 ;
1138acbh13.l5b2  := ((  -0.161563790281E-04  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.230741837144E-06  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1139acbh12.r5b2x  :=   -0.193295093263E-04 ;
1140acbh12.r5b2s  :=   -0.111403328821E-05 ;
1141acbh12.r5b2  := ((  -0.193295093263E-04  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.111403328821E-05  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1142acbh14.r5b2x  :=   -0.256017550343E-06 ;
1143acbh14.r5b2s  :=   -0.130421891366E-07 ;
1144acbh14.r5b2  := ((  -0.256017550343E-06  )*cos(phi_IR5*twopi/360.)*on_x5+( -0.130421891366E-07  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1145acbh16.l6b2x  :=    0.189964557015E-04 ;
1146acbh16.l6b2s  :=    0.109476307837E-05 ;
1147acbh16.l6b2  := ((   0.189964557015E-04  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.109476307837E-05  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1148acbh14.l6b2x  :=    0.000000000000E+00 ;
1149acbh14.l6b2s  :=    0.000000000000E+00 ;
1150acbh14.l6b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1151acbv14.r4b2x  :=    0.000000000000E+00 ;
1152acbv14.r4b2s  :=    0.000000000000E+00 ;
1153acbv14.r4b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1154acbv16.r4b2x  :=   -0.181061739359E-04 ;
1155acbv16.r4b2s  :=    0.942369015792E-06 ;
1156acbv16.r4b2  := ((  -0.181061739359E-04  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.942369015792E-06  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1157acbv14.l5b2x  :=    0.237631665228E-06 ;
1158acbv14.l5b2s  :=   -0.105309510391E-07 ;
1159acbv14.l5b2  := ((   0.237631665228E-06  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.105309510391E-07  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1160acbv12.l5b2x  :=    0.181727204151E-04 ;
1161acbv12.l5b2s  :=   -0.946137779023E-06 ;
1162acbv12.l5b2  := ((   0.181727204151E-04  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.946137779023E-06  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1163acbv13.r5b2x  :=    0.144599878497E-04 ;
1164acbv13.r5b2s  :=    0.588268783170E-07 ;
1165acbv13.r5b2  := ((   0.144599878497E-04  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.588268783170E-07  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1166acbv15.r5b2x  :=   -0.281762505482E-07 ;
1167acbv15.r5b2s  :=   -0.250741052819E-09 ;
1168acbv15.r5b2  := ((  -0.281762505482E-07  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.250741052819E-09  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1169acbv15.l6b2x  :=   -0.144579442491E-04 ;
1170acbv15.l6b2s  :=   -0.588348092544E-07 ;
1171acbv15.l6b2  := ((  -0.144579442491E-04  )*sin(phi_IR5*twopi/360.)*on_x5+( -0.588348092544E-07  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1172acbv13.l6b2x  :=    0.000000000000E+00 ;
1173acbv13.l6b2s  :=    0.000000000000E+00 ;
1174acbv13.l6b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1175
1176 !****OPTICS SUMMARY****
1177
1178 !Tune and Chroma
1179Qxb1 =  62.310000;  Qyb1 =  60.320000;  Qpxb1=   2.000000;  Qpyb1=   2.000000;
1180Qxb2 =  62.310000;  Qyb2 =  60.320000;  Qpxb2=   2.000000;  Qpyb2=   2.000000;
1181
1182 !IR Optics summary (phase, twiss param., dispersion)
1183muxIP1b1= 2.6427000;  muyIP1b1= 2.6420000;  muxIP1b1_L= 1.1569000;  muyIP1b1_L= 1.4867000;  muxIP1b1_R= 1.4858000;  muyIP1b1_R= 1.1553000;  betxIP1b1=    0.150000;  betyIP1b1=    0.150000;  alfxIP1b1=    0.000000;  alfyIP1b1=    0.000000;    dxIP1b1=    0.000000;   dpxIP1b1=    0.000000;
1184muxIP1b2= 2.6427000;  muyIP1b2= 2.6420000;  muxIP1b2_L= 1.4884000;  muyIP1b2_L= 1.1563000;  muxIP1b2_R= 1.1543000;  muyIP1b2_R= 1.4857000;  betxIP1b2=    0.150000;  betyIP1b2=    0.150000;  alfxIP1b2=    0.000000;  alfyIP1b2=    0.000000;    dxIP1b2=    0.000000;   dpxIP1b2=    0.000000;
1185muxIP5b1= 2.6427000;  muyIP5b1= 2.6420000;  muxIP5b1_L= 1.1569000;  muyIP5b1_L= 1.4867000;  muxIP5b1_R= 1.4858000;  muyIP5b1_R= 1.1553000;  betxIP5b1=    0.150000;  betyIP5b1=    0.150000;  alfxIP5b1=    0.000000;  alfyIP5b1=    0.000000;    dxIP5b1=    0.000000;   dpxIP5b1=    0.000000;
1186muxIP5b2= 2.6427000;  muyIP5b2= 2.6420000;  muxIP5b2_L= 1.4884000;  muyIP5b2_L= 1.1563000;  muxIP5b2_R= 1.1543000;  muyIP5b2_R= 1.4857000;  betxIP5b2=    0.150000;  betyIP5b2=    0.150000;  alfxIP5b2=    0.000000;  alfyIP5b2=    0.000000;    dxIP5b2=    0.000000;   dpxIP5b2=    0.000000;
1187muxIP2b1= 3.0200000;  muyIP2b1= 2.9000000;  betxIP2b1=   10.000000;  betyIP2b1=   10.000000;  alfxIP2b1=    0.000000;  alfyIP2b1=    0.000000;    dxIP2b1=    0.000000;   dpxIP2b1=    0.000000;
1188muxIP2b2= 3.0200000;  muyIP2b2= 2.9000000;  betxIP2b2=   10.000000;  betyIP2b2=   10.000000;  alfxIP2b2=    0.000000;  alfyIP2b2=    0.000000;    dxIP2b2=    0.000000;   dpxIP2b2=    0.000000;
1189muxIP8b1= 3.0200000;  muyIP8b1= 2.9000000;  betxIP8b1=   10.000000;  betyIP8b1=   10.000000;  alfxIP8b1=    0.000000;  alfyIP8b1=    0.000000;    dxIP8b1=    0.000000;   dpxIP8b1=    0.000000;
1190muxIP8b2= 3.0200000;  muyIP8b2= 2.9000000;  betxIP8b2=   10.000000;  betyIP8b2=   10.000000;  alfxIP8b2=    0.000000;  alfyIP8b2=    0.000000;    dxIP8b2=    0.000000;   dpxIP8b2=    0.000000;
1191muxIP4b1= 2.1600000;  muyIP4b1= 1.7200000;  betxIP4b1=  172.807960;  betyIP4b1=  230.297901;  alfxIP4b1=    0.580679;  alfyIP4b1=   -0.325498;    dxIP4b1=    0.000000;   dpxIP4b1=    0.000000;
1192muxIP4b2= 2.1600000;  muyIP4b2= 1.7200000;  betxIP4b2=  228.562579;  betyIP4b2=  302.565988;  alfxIP4b2=   -0.537702;  alfyIP4b2=    0.588783;    dxIP4b2=    0.000000;   dpxIP4b2=    0.000000;
1193muxIP6b1= 2.0000000;  muyIP6b1= 2.0300000;  betxIP6b1=  225.520569;  betyIP6b1=  173.163479;  alfxIP6b1=   -0.763958;  alfyIP6b1=    0.745340;    dxIP6b1=    0.000000;   dpxIP6b1=    0.000000;
1194muxIP6b2= 2.0000000;  muyIP6b2= 2.0300000;  betxIP6b2=  239.667035;  betyIP6b2=  178.367822;  alfxIP6b2=    0.880060;  alfyIP6b2=   -0.607434;    dxIP6b2=    0.000000;   dpxIP6b2=    0.000000;
1195muxIP3b1= 2.2550000;  muyIP3b1= 1.9550000;  betxIP3b1=  121.566844;  betyIP3b1=  218.585060;  alfxIP3b1=    2.295731;  alfyIP3b1=   -2.642890;    dxIP3b1=   -0.510507;   dpxIP3b1=   -0.006525;
1196muxIP3b2= 2.2550000;  muyIP3b2= 1.9550000;  betxIP3b2=  121.567284;  betyIP3b2=  218.584477;  alfxIP3b2=   -2.295728;  alfyIP3b2=    2.642905;    dxIP3b2=   -0.422999;   dpxIP3b2=    0.008312;
1197muxIP7b1= 2.4550000;  muyIP7b1= 1.9700000;  betxIP7b1=  120.813252;  betyIP7b1=  149.430470;  alfxIP7b1=    1.276977;  alfyIP7b1=   -1.385146;    dxIP7b1=   -0.203847;   dpxIP7b1=    0.000000;
1198muxIP7b2= 2.4550000;  muyIP7b2= 1.9700000;  betxIP7b2=  120.813252;  betyIP7b2=  149.430471;  alfxIP7b2=   -1.276977;  alfyIP7b2=    1.385146;    dxIP7b2=   -0.011973;   dpxIP7b2=    0.000000;
1199
1200 !Xscheme summary in IR1, IR2,IR5 and IR8
1201xIP1b1= 0.0007500000;  yIP1b1= 0.0000000000;  pxIP1b1= 0.0000000000;  pyIP1b1= 0.0002950000;
1202xIP1b2=-0.0007500000;  yIP1b2= 0.0000000000;  pxIP1b2= 0.0000000000;  pyIP1b2=-0.0002950000;
1203xIP2b1= 0.0020000000;  yIP2b1= 0.0000000000;  pxIP2b1= 0.0000002919;  pyIP2b1= 0.0002399994;
1204xIP2b2=-0.0020000000;  yIP2b2= 0.0000000000;  pxIP2b2=-0.0000002919;  pyIP2b2=-0.0002399994;
1205xIP5b1= 0.0000000000;  yIP5b1= 0.0007500000;  pxIP5b1= 0.0002950000;  pyIP5b1= 0.0000000000;
1206xIP5b2= 0.0000000000;  yIP5b2=-0.0007500000;  pxIP5b2=-0.0002950000;  pyIP5b2= 0.0000000000;
1207xIP8b1= 0.0000000000;  yIP8b1=-0.0020000000;  pxIP8b1=-0.0003049879;  pyIP8b1=-0.0000018097;
1208xIP8b2= 0.0000000000;  yIP8b2= 0.0020000000;  pxIP8b2= 0.0003049879;  pyIP8b2= 0.0000018097;
1209
1210 !Arc Optics summary
1211muxcell81b1=0.24998135;  muycell81b1=0.24998135;  mux81b1= 5.2179132;  muy81b1= 5.2437668;
1212muxcell45b1=0.24998135;  muycell45b1=0.24998135;  mux45b1= 5.2179132;  muy45b1= 5.2437668;
1213muxcell12b2=0.24998135;  muycell12b2=0.24998135;  mux12b2= 5.2179132;  muy12b2= 5.2437668;
1214muxcell56b2=0.24998135;  muycell56b2=0.24998135;  mux56b2= 5.2179132;  muy56b2= 5.2437668;
1215muxcell12b1=0.24999938;  muycell12b1=0.24999938;  mux12b1= 5.2441454;  muy12b1= 5.2182897;
1216muxcell56b1=0.24999938;  muycell56b1=0.24999938;  mux56b1= 5.2441454;  muy56b1= 5.2182897;
1217muxcell81b2=0.24999938;  muycell81b2=0.24999938;  mux81b2= 5.2441454;  muy81b2= 5.2182897;
1218muxcell45b2=0.24999938;  muycell45b2=0.24999938;  mux45b2= 5.2441454;  muy45b2= 5.2182897;
1219muxcell23b1=0.25316572;  muycell23b1=0.24654749;  mux23b1= 5.2842423;  muy23b1= 5.1716766;
1220muxcell78b2=0.25316572;  muycell78b2=0.24654749;  mux78b2= 5.2842423;  muy78b2= 5.1716766;
1221muxcell34b1=0.25316572;  muycell34b1=0.24654749;  mux34b1= 5.3106180;  muy34b1= 5.1463935;
1222muxcell67b2=0.25316572;  muycell67b2=0.24654749;  mux67b2= 5.3106180;  muy67b2= 5.1463935;
1223muxcell67b1=0.25318391;  muycell67b1=0.24656533;  mux67b1= 5.2846218;  muy67b1= 5.1720516;
1224muxcell34b2=0.25318391;  muycell34b2=0.24656533;  mux34b2= 5.2846218;  muy34b2= 5.1720516;
1225muxcell78b1=0.25318391;  muycell78b1=0.24656533;  mux78b1= 5.3110006;  muy78b1= 5.1467656;
1226muxcell23b2=0.25318391;  muycell23b2=0.24656533;  mux23b2= 5.3110006;  muy23b2= 5.1467656;
1227
1228
1229 return ;
Note: See TracBrowser for help on using the repository browser.