source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lowalpha1by15.m @ 4

Last change on this file since 4 was 4, checked in by zhangj, 10 years ago

Initial import--MML version from SOLEIL@2013

File size: 16.7 KB
Line 
1function varargout = lowalpha1by15
2%solamor2 - soleil lattice w/o ID
3% Lattice definition file
4% Lattice for SOLEIL: perfect lattice no magnetic errors
5
6% Compiled by Laurent Nadolski and Amor Nadji
7% 09/01/02, ALS
8% mai 2006 : mis à jour vraies cotes BPM, correcteurs, dipole (coins,
9% chamd de fuite et gradient)
10% A. Nadji et P. Brunelle
11% Controlroom : set linearpass for quad (closed orbit)
12%               No cavity; No Radiation PassMethod
13% April 20th 2007, Laurent S. nadolski
14% BPM downstream injection section had wrong location by
15% 30 mm, 2 FCOR in injection straight section was not at their proper
16% location
17
18
19global FAMLIST THERING GLOBVAL
20
21GLOBVAL.E0 = 2.7391e9; % Ring energy
22GLOBVAL.LatticeFile = mfilename;
23FAMLIST = cell(0);
24
25disp(['** Loading SOLEIL magnet lattice ', mfilename]);
26
27%L0 = 354.0967224000159;      % design length [m]
28L0 = 354.0968203999998;      % design length [m]
29C0 = 2.99792458e8;           % speed of light [m/s]
30HarmNumber = 416;
31
32%% Cavity
33%              NAME   L     U[V]       f[Hz]          h        method
34% CAV = rfcavity('RF' , 0 , 4.0e+6 , HarmNumber*C0/L0, ...
35%     HarmNumber ,'CavityPass');
36CAV = rfcavity('RF' , 0 , 2.0e+6 , HarmNumber*C0/L0, ...
37    HarmNumber ,'CavityPass');
38
39%% Marker and apertures
40SECT1  =  marker('SECT1', 'IdentityPass');
41SECT2  =  marker('SECT2', 'IdentityPass');
42SECT3  =  marker('SECT3', 'IdentityPass');
43SECT4  =  marker('SECT4', 'IdentityPass');
44DEBUT  =  marker('DEBUT', 'IdentityPass');
45FIN    =  marker('FIN', 'IdentityPass');
46
47INJ = aperture('INJ',[-0.035 0.035 -0.0125 0.0125],'AperturePass');
48
49%% Injection section
50PtINJ = marker('PtINJ', 'IdentityPass');
51K3 = marker('K3', 'IdentityPass');
52K4 = marker('K4', 'IdentityPass');
53
54%% BPM
55BPM    =  marker('BPM', 'IdentityPass');
56
57%% DRIFT SPACES
58
59SD13= drift('SD13', 3.48255, 'DriftPass');
60SD1 = drift('SD1',  6.00000, 'DriftPass');
61SD1a = drift('SD1a',  1.4125, 'DriftPass');
62SD1b = drift('SD1b',  0.7575, 'DriftPass');
63SD1c = drift('SD1c',  3.002, 'DriftPass');
64SD2 = drift('SD2',  0.39000, 'DriftPass');
65SD3 = drift('SD3',  0.20000, 'DriftPass');
66SD4 = drift('SD4',  0.39000, 'DriftPass');
67SD14= drift('SD14', 0.59000, 'DriftPass');
68SD5 = drift('SD5',  0.20000, 'DriftPass');
69SD6 = drift('SD6',  0.79000, 'DriftPass');
70SD7 = drift('SD7',  0.44000, 'DriftPass');
71SD8 = drift('SD8',  0.20000, 'DriftPass');
72SD9 = drift('SD9',  0.47634, 'DriftPass');
73SD10= drift('SD10', 0.47000, 'DriftPass');
74SD12= drift('SD12', 0.47000, 'DriftPass');
75SDAC= drift('SDAC', 1.90468, 'DriftPass');
76
77% SD existantes et modifi?es
78SD1d = drift('SD1d',  0.5170, 'DriftPass');
79SD14a = drift('SD14a', 0.4051, 'DriftPass');
80SD9a = drift('SD9a',  0.2243    , 'DriftPass');
81SD10a = drift('SD10a', 0.1924   , 'DriftPass');
82SDAC1 = drift('SDAC1', 1.48428  , 'DriftPass');
83SD13a= drift('SD13a', 3.141452  , 'DriftPass');
84SD1e = drift('SD1e',  5.6589, 'DriftPass');
85
86% SD créées
87SD1c1 = drift('SD1e',  0.8410, 'DriftPass');
88SD1c2 = drift('SD1e',  2.161, 'DriftPass');
89SD91 = drift('SD91',  0.27134, 'DriftPass');
90SD41 = drift('SD41',  0.2521, 'DriftPass');
91SD42 = drift('SD42',  0.205, 'DriftPass');
92SD92 = drift('SD92',  0.2244, 'DriftPass');
93SD93 = drift('SD93',  0.2714    , 'DriftPass');
94SD43 = drift('SD43', 0.2051     , 'DriftPass');
95SD101 = drift('SD101', 0.2394, 'DriftPass');
96SD141 = drift('SD141', 0.452, 'DriftPass');
97
98SDB1 = drift('SDB1', 0.3111, 'DriftPass');
99SDB2 = drift('SDB2', 0.1849, 'DriftPass');
100SDB3 = drift('SDB3', 0.252,  'DriftPass');
101SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
102SDB5 = drift('SDB5', 0.205  ,'DriftPass');
103SDB6 = drift('SDB6', 0.1379 ,'DriftPass');
104SDB7 = drift('SDB7', 0.185 , 'DriftPass');
105SDB8 = drift('SDB8', 0.252 , 'DriftPass');
106SDB9 = drift('SDB9', 0.1379 ,'DriftPass');
107SDB10= drift('SDB10',0.185 , 'DriftPass');
108SDB11= drift('SDB11',0.2519, 'DriftPass');
109SDB12= drift('SDB12',0.2049, 'DriftPass');
110SDB13= drift('SDB13',0.1379, 'DriftPass');
111SDB14= drift('SDB14',0.1849, 'DriftPass');
112SDB15= drift('SDB15',0.252 , 'DriftPass');
113SDB16= drift('SDB16',0.2306 , 'DriftPass');
114SDB17= drift('SDB17',0.205 , 'DriftPass');
115SDB18= drift('SDB18',0.138 , 'DriftPass');
116
117SDC1 = drift('SDC1' , 0.262 ,  'DriftPass');
118SDC2 = drift('SDC2' , 0.079 ,  'DriftPass');
119SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
120SDC4 = drift('SDC4' , 0.3358,  'DriftPass');
121SDC5 = drift('SDC5' , 0.0846,  'DriftPass');
122SDC6 = drift('SDC6' , 0.079,   'DriftPass');
123SDC7 = drift('SDC7' , 0.342 ,  'DriftPass');
124SDC8 = drift('SDC8' , 0.262 ,  'DriftPass');
125SDC9 = drift('SDC9' , 0.079  , 'DriftPass');
126SDC10= drift('SDC10',0.07845, 'DriftPass');
127SDC11= drift('SDC11',0.262  , 'DriftPass');
128SDC12= drift('SDC12',0.3358 , 'DriftPass');
129SDC13= drift('SDC13',0.0846 , 'DriftPass');
130SDC14= drift('SDC14',0.0788 , 'DriftPass');
131SDC15= drift('SDC15',0.3422 , 'DriftPass');
132SDC16= drift('SDC16',0.262  , 'DriftPass');
133SDC17= drift('SDC17',0.079  , 'DriftPass');
134SDC18= drift('SDC18',0.07845, 'DriftPass');
135SDC19= drift('SDC19',0.262  , 'DriftPass');
136SDC20= drift('SDC20',0.262  , 'DriftPass');
137SDC21= drift('SDC21',0.079  , 'DriftPass');
138SDC22= drift('SDC21',0.311  , 'DriftPass');
139SDC23= drift('SDC21',4.310  , 'DriftPass');
140SDC24= drift('SDC21',1.379  , 'DriftPass');
141
142% HU640 straight section
143SDHU640a = drift('SDHU640a',  1.7394, 'DriftPass');
144SDHU640b = drift('SDHU640b',  0.64, 'DriftPass');
145SDHU640c = drift('SDHU640c',  3.2795, 'DriftPass');
146SDHU640d = drift('SDHU640d',  3.1195, 'DriftPass');
147SDHU640e = drift('SDHU640e',  0.64, 'DriftPass');
148SDHU640f = drift('SDHU640f',  1.8994, 'DriftPass');
149
150%% QUADRUPOLES (compensation de l'effet des défauts de focalisation des
151%% dipoles P. Brunelle 02/05/06)
152de=1-4e-3*0;
153Q1   =  quadrupole('Q1' , 0.32,  -1.237123*de , 'QuadLinearPass');
154Q2   =  quadrupole('Q2' , 0.46,   1.778681*de , 'QuadLinearPass');
155Q3   =  quadrupole('Q3' , 0.32,  -0.9059312*de , 'QuadLinearPass');
156Q4   =  quadrupole('Q4' , 0.32,  -1.105390*de , 'QuadLinearPass');
157Q5   =  quadrupole('Q5' , 0.32,   1.910066*de , 'QuadLinearPass');
158Q6   =  quadrupole('Q6' , 0.32,  -1.803362*de , 'QuadLinearPass');
159Q7   =  quadrupole('Q7' , 0.46,   2.011418*de , 'QuadLinearPass');
160Q8   =  quadrupole('Q8' , 0.32,  -0.5106047*de , 'QuadLinearPass');
161Q9   =  quadrupole('Q9' , 0.32,  -1.341271*de , 'QuadLinearPass');
162Q10  =  quadrupole('Q10', 0.32,   2.048837*de , 'QuadLinearPass');
163
164
165%% SEXTUPOLES chromaticités nulles dans TracyII
166%avec défauts de focalisation des dip?les
167%P. Brunelle 02/05/06
168F = 1e8;
169Finv = 1/F;
170
171S1  =  sextupole('S1' , Finv,  0.8442831*F, 'StrMPoleSymplectic4Pass');
172S2  =  sextupole('S2' , Finv, -3.631550*F, 'StrMPoleSymplectic4Pass');
173S3  =  sextupole('S3' , Finv, -3.670993*F, 'StrMPoleSymplectic4Pass');
174S4  =  sextupole('S4' , Finv,  4.910700*F, 'StrMPoleSymplectic4Pass');
175S5  =  sextupole('S5' , Finv, -2.635539*F, 'StrMPoleSymplectic4Pass');
176S6  =  sextupole('S6' , Finv,  2.677307*F, 'StrMPoleSymplectic4Pass');
177S7  =  sextupole('S7' , Finv, -3.245237*F, 'StrMPoleSymplectic4Pass');
178S8  =  sextupole('S8' , Finv,  3.030515*F, 'StrMPoleSymplectic4Pass');
179S9  =  sextupole('S9' , Finv, -3.960253*F, 'StrMPoleSymplectic4Pass');
180S10 =  sextupole('S10', Finv,  3.553240*F, 'StrMPoleSymplectic4Pass');
181
182%% Skew quadrupoles
183%QT    =  marker('SkewQuad', 'IdentityPass');
184QT    =  skewquad('SkewQuad', 1e-8, 0.0, 'StrMPoleSymplectic4Pass');
185
186%% Slow feedback correctors
187% HCOR =  corrector('HCOR',0.0,[0 0],'CorrectorPass');
188% VCOR =  corrector('VCOR',0.0,[0 0],'CorrectorPass');
189% COR = [HCOR VCOR];
190COR =  corrector('COR',0.0,[0 0],'CorrectorPass');
191
192%% HU640
193HCMHU640 =  corrector('HCMHU640',0.0,[0 0],'CorrectorPass');
194VCMHU640 =  corrector('VCMHU640',0.0,[0 0],'CorrectorPass');
195
196HU640upstream   = [SDHU640a VCMHU640 SDHU640b HCMHU640 SDHU640c];
197HU640downstream = [SDHU640d HCMHU640 SDHU640e VCMHU640 SDHU640f];
198
199%% Fast feedback correctors
200% FHCOR =  corrector('FHCOR',0.0,[0 0],'CorrectorPass');
201% FVCOR =  corrector('FVCOR',0.0,[0 0],'CorrectorPass');
202% FCOR = [FHCOR,FVCOR];
203FCOR =  corrector('FCOR',0.0,[0 0],'CorrectorPass');
204
205SX1   = [S1  COR  QT];
206SX2   = [S2  COR  QT];
207SX3   = [S3  COR  QT];
208SX4   = [S4  COR  QT];
209SX5   = [S5  COR  QT];
210SX6   = [S6  COR  QT];
211SX7   = [S7  COR  QT];
212SX8   = [S8  COR  QT];
213SX9   = [S9  COR  QT];
214SX10  = [S10 COR  QT];
215
216%% DIPOLES
217%BEND  =  rbend('BEND'  , 1.05243,  ...
218% 0.19635, 0.098175, 0.098175, 0.0,'BendLinearPass');
219
220%% DIPOLES
221% {** 1.3815 factor to fit with BETA ??? strange **}
222%theta = 2*pi/32;
223%fullgap = 0.105*0.724*2/6*1.3815*0.;
224% BEND  =  rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
225%                 fullgap,'BendLinearFringeTiltPass');
226theta = 2*pi/32;
227%theta2 = theta/2;
228thetae = theta/2 - 0.6e-3*1;
229thetas = theta/2 + 0.9e-3*1;
230K = 0.00204*1;
231fullgap = 0.037*0.724*2*1;
232BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
233
234
235%% Lattice
236% Superperiods
237
238SUP1  = [...
239    SD1a   PtINJ   SD1b   K3  SD1c1 FCOR SD1c2     K4     SD1d ...
240    BPM  SDB1   Q1     SD2    SX1   SD3     Q2 ...
241    SDB2  BPM    SD14a   Q3      SD5    SX2    SD6 ...
242    BEND    SD7     Q4  SD8     SX3    ...
243    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
244    SDB4  BPM     SD10a    Q5     SD91     ...
245    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
246    SD7     Q6      SD5    SX5     SD41    ...
247    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
248    SDC1 FCOR SDC2   BPM    SD13a  SD13a BPM ...
249    SDC3    FCOR   SDC1 ...
250    Q8      SD2    SX8     SD3    Q7  SDB7 ...
251    BPM   SD42     SX7      SD5     Q6     SD7 ...
252    BEND   SD7    Q9    SD8     SX9  SDB8 ...
253    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
254    FCOR SDC5  BPM   SDAC1    SDAC1 ...
255    BPM   SDC6  FCOR  SDC7 SX10    SD8    Q10    SD91 ...
256    BPM   SD42  SX9      SD8     Q9     SD7    ...
257    BEND   SD7    Q6    SD5     SX7    SD41   ...
258    BPM  SDB9  Q7      SD3    SX8    SD2   Q8 SDC8 ...
259    FCOR  SDC9  BPM     SD13a    SD13a  ...
260    BPM  SDC10   FCOR  SDC11  Q8     SD2   SX8   SD3   Q7 ...
261    SDB10  BPM   SD42    SX7    SD5   Q6      SD7  ...
262    BEND    SD7     Q9     SD8     SX9  SDB11    ...
263    BPM    SD92   Q10     SD8     SX10 SDC12 ...
264    FCOR  SDC13  BPM    SDAC1    SDAC1   ...
265    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
266    BPM  SDB12  SX9    SD8   Q9      SD7 ...
267    BEND    SD7    Q6      SD5    SX7    SD41 ...
268    BPM  SDB13   Q7      SD3    SX8     SD2    Q8  SDC16 ...
269    FCOR SDC17  BPM    SD13a SD13a   ...
270    BPM   SDC18  FCOR  SDC19   Q8     SD2     SX6    SD3    Q7 ...
271    SDB14  BPM    SD43    SX5     SD5    Q6      SD7    ...
272    BEND   SD7   Q4      SD8     SX3  SDB15 ...
273    BPM     SD9a   Q5      SD101   ...
274    BPM  SDB16  SX4   SD12    Q5     SD93 ...
275    BPM  SDB17  SX3     SD8    Q4     SD7   ...
276    BEND    SD6     SX2      SD5     Q3     SD141 ...
277    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
278    SDC20 FCOR  SDC21   BPM     HU640upstream  ];
279
280SUP2  = [  ...
281    HU640downstream  BPM SDC2 FCOR SDC1   ...
282    Q1     SD2    SX1   SD3     Q2 ...
283    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
284    BEND    SD7     Q4  SD8     SX3    ...
285    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
286    SDB4  BPM     SD10a    Q5     SD93     ...
287    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
288    SD7     Q6      SD5    SX5     SD41    ...
289    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
290    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
291    SDC2    FCOR   SDC1 ...
292    Q8      SD2    SX8     SD3    Q7  SDB7 ...
293    BPM   SDB5     SX7      SD5     Q6     SD7 ...
294    BEND   SD7    Q9    SD8     SX9  SDB3 ...
295    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
296    FCOR SDC5  BPM   SDAC1    SDAC1 ...
297    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
298    BPM   SDB12  SX9      SD8     Q9     SD7    ...
299    BEND   SD7    Q6    SD5     SX7    SD41   ...
300    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
301    FCOR  SDC2  BPM     SD13a  SD13a  ...
302    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
303    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
304    BEND    SD7     Q9     SD8     SX9   SDB3    ...
305    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
306    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
307    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
308    BPM  SDB12  SX9    SD8   Q9      SD7 ...
309    BEND    SD7    Q6      SD5    SX7    SD41 ...
310    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
311    FCOR SDC2  BPM    SD13a   SD13a   ...
312    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
313    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
314    BEND   SD7   Q4      SD8     SX3  SDB3 ...
315    BPM     SD9a   Q5      SD101   ...
316    BPM  SDB16  SX4   SD12    Q5     SD93 ...
317    BPM  SD42  SX3     SD8    Q4     SD7   ...
318    BEND    SD6     SX2      SD5     Q3     SD141 ...
319    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
320    SDC1 FCOR  SDC2   BPM     SD1e  ];
321
322SUP3  = [  ...
323    SD1e  BPM SDC2 FCOR SDC1   ...
324    Q1     SD2    SX1   SD3     Q2 ...
325    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
326    BEND    SD7     Q4  SD8     SX3    ...
327    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
328    SDB4  BPM     SD10a    Q5     SD93     ...
329    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
330    SD7     Q6      SD5    SX5     SD41    ...
331    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
332    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
333    SDC2    FCOR   SDC1 ...
334    Q8      SD2    SX8     SD3    Q7  SDB7 ...
335    BPM   SDB5     SX7      SD5     Q6     SD7 ...
336    BEND   SD7    Q9    SD8     SX9  SDB3 ...
337    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
338    FCOR SDC5  BPM   SDAC1    SDAC1 ...
339    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
340    BPM   SDB12  SX9      SD8     Q9     SD7    ...
341    BEND   SD7    Q6    SD5     SX7    SD41   ...
342    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
343    FCOR  SDC2  BPM     SD13a  SD13a  ...
344    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
345    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
346    BEND    SD7     Q9     SD8     SX9   SDB3    ...
347    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
348    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
349    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
350    BPM  SDB12  SX9    SD8   Q9      SD7 ...
351    BEND    SD7    Q6      SD5    SX7    SD41 ...
352    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
353    FCOR SDC2  BPM    SD13a   SD13a   ...
354    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
355    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
356    BEND   SD7   Q4      SD8     SX3  SDB3 ...
357    BPM     SD9a   Q5      SD101   ...
358    BPM  SDB16  SX4   SD12    Q5     SD93 ...
359    BPM  SD42  SX3     SD8    Q4     SD7   ...
360    BEND    SD6     SX2      SD5     Q3     SD141 ...
361    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
362    SDC1 FCOR  SDC2   BPM     SD1e  ];
363
364SUP4  = [  ...
365    SD1e  BPM SDC2 FCOR SDC1   ...
366    Q1     SD2    SX1   SD3     Q2 ...
367    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
368    BEND    SD7     Q4  SD8     SX3    ...
369    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
370    SDB4  BPM     SD10a    Q5     SD93     ...
371    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
372    SD7     Q6      SD5    SX5     SD41    ...
373    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
374    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
375    SDC2    FCOR   SDC1 ...
376    Q8      SD2    SX8     SD3    Q7  SDB7 ...
377    BPM   SDB5     SX7      SD5     Q6     SD7 ...
378    BEND   SD7    Q9    SD8     SX9  SDB3 ...
379    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
380    FCOR SDC5  BPM   SDAC1    SDAC1 ...
381    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
382    BPM   SDB12  SX9      SD8     Q9     SD7    ...
383    BEND   SD7    Q6    SD5     SX7    SD41   ...
384    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
385    FCOR  SDC2  BPM     SD13a  SD13a  ...
386    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
387    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
388    BEND    SD7     Q9     SD8     SX9   SDB3    ...
389    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
390    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
391    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
392    BPM  SDB12  SX9    SD8   Q9      SD7 ...
393    BEND    SD7    Q6      SD5    SX7    SD41 ...
394    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
395    FCOR SDC2  BPM    SD13a   SD13a   ...
396    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
397    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
398    BEND   SD7   Q4      SD8     SX3  SDB3 ...
399    BPM     SD9a   Q5      SD101   ...
400    BPM  SDB16  SX4   SD12    Q5     SD93 ...
401    BPM  SD42  SX3     SD8    Q4     SD7   ...
402    BEND    SD6     SX2      SD5     Q3     SD141 ...
403    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
404    SDC22   BPM  SDC23 FCOR  SDC24  ];
405
406
407ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 CAV FIN];
408%ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 FIN];
409
410buildlat(ELIST);
411
412% Set all magnets to same energy
413THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
414
415evalin('caller','global THERING FAMLIST GLOBVAL');
416
417atsummary;
418
419if nargout
420    varargout{1} = THERING;
421end
Note: See TracBrowser for help on using the repository browser.