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

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

Initial import--MML version from SOLEIL@2013

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