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