source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lat_2020_3170f.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: 17.4 KB
Line 
1function varargout = lat_2020_3170b
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 aᅵ 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% November 24th 2007, Laurent S. Nadolski
18% Bpms 5 on the wrong side of sextupole in cell 4, 8, 12 and 16
19% December 7th, 2007, Laurent S. Nadolski
20% Added KEM V & H, K1 & K2 markers modelled as thin element
21% October 1, 2008
22% Lattice with tunes 18.2020 and 10.3170
23% Octobre 27, 2008
24% Lattice with tunes 18.2020 and 10.3170
25% Lattice with chromaticities 2.0 and 2.0
26% March 4, 2009
27% FHCOR and FVCOR [1 1] steerer moved 2180 mm upstream,
28% closed to entrance of vertical kicker
29% March 2009 - New quadrupole model from MAT with intermediate length
30% June 2009 - magnetcoefficient with index June 9 was changed
31%             for sextupoles calibration
32%             for quadrupole Just all ranges for quad variation with fit are present
33
34global FAMLIST THERING GLOBVAL
35
36GLOBVAL.E0 = 2.7391e9; % Ring energy
37GLOBVAL.LatticeFile = mfilename;
38FAMLIST = cell(0);
39
40disp(['** Loading SOLEIL magnet lattice ', mfilename]);
41
42L0 = 354.0968203999998;      % design length [m]
43C0 = 2.99792458e8;           % speed of light [m/s]
44HarmNumber = 416;
45
46%% Cavity
47%              NAME   L     U[V]       f[Hz]          h        method
48CAV = rfcavity('RF' , 0 , 3.3e+6 , HarmNumber*C0/L0, ...
49    HarmNumber ,'CavityPass');
50
51%% Marker and apertures
52SECT1  =  marker('SECT1', 'IdentityPass');
53SECT2  =  marker('SECT2', 'IdentityPass');
54SECT3  =  marker('SECT3', 'IdentityPass');
55SECT4  =  marker('SECT4', 'IdentityPass');
56DEBUT  =  marker('DEBUT', 'IdentityPass');
57FIN    =  marker('FIN', 'IdentityPass');
58
59INJ = aperture('INJ',[-0.035 0.035 -0.0125 0.0125],'AperturePass');
60
61%% Injection section
62PtINJ = marker('PtINJ', 'IdentityPass');
63K1 = marker('K1', 'IdentityPass');
64K2 = marker('K2', 'IdentityPass');
65K3 = marker('K3', 'IdentityPass');
66K4 = marker('K4', 'IdentityPass');
67
68%% BPM
69BPM    =  marker('BPM', 'IdentityPass');
70
71%% DRIFT SPACES
72
73SD1a = drift('SD1a',  1.4125, 'DriftPass');
74SD1b = drift('SD1b',  0.7575, 'DriftPass');
75SD2 = drift('SD2',  0.369900, 'DriftPass');
76SD3 = drift('SD3',   0.181900, 'DriftPass');
77SD5 = drift('SD5',  0.179900, 'DriftPass');
78SD6 = drift('SD6',  0.79000, 'DriftPass');
79SD7 = drift('SD7',  0.419900, 'DriftPass');
80SD8 = drift('SD8',  0.1799000, 'DriftPass');
81SD12= drift('SD12', 0.44990, 'DriftPass');
82SD1d = drift('SD1d',  0.5170, 'DriftPass');
83SD14a = drift('SD14a', 0.38500000, 'DriftPass');
84SD9a = drift('SD9a',  0.204200  , 'DriftPass');
85SD10a = drift('SD10a', 0.172300 , 'DriftPass');
86SDAC1 = drift('SDAC1', 1.48428  , 'DriftPass');
87SD13a= drift('SD13a', 3.141452  , 'DriftPass');
88SD1e = drift('SD1e',  5.6589, 'DriftPass');
89SD1c1 = drift('SD1c1',  0.8410, 'DriftPass'); % K3 - FCOR
90SD1c2 = drift('SD1c2',  0.601, 'DriftPass');  % FCOR KEMH
91SD1c3 = drift('SD1c3',  1.560, 'DriftPass');  % KEMH - K4
92SD91 = drift('SD91',  0.251240, 'DriftPass');
93SD41 = drift('SD41',  0.2521, 'DriftPass');
94SD42 = drift('SD42',  0.205, 'DriftPass');
95SD92 = drift('SD92',  0.204300, 'DriftPass');
96SD93 = drift('SD93',  0.251300  , 'DriftPass');
97SD43 = drift('SD43', 0.2051     , 'DriftPass');
98SD141 = drift('SD141', 0.431900, 'DriftPass');
99SDB1 = drift('SDB1', 0.29100, 'DriftPass');
100SDB2 = drift('SDB2', 0.16680000, 'DriftPass');
101SDB3 = drift('SDB3', 0.252,  'DriftPass');
102SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
103SDB5 = drift('SDB5', 0.205  ,'DriftPass');
104SDB6 = drift('SDB6', 0.119800 ,'DriftPass');
105SDB7 = drift('SDB7', 0.166900 , 'DriftPass');
106SDB8 = drift('SDB8', 0.252 , 'DriftPass');
107SDB9 = drift('SDB9', 0.119800 ,'DriftPass');
108SDB10= drift('SDB10',0.166900 , 'DriftPass');
109SDB11= drift('SDB11',0.2519, 'DriftPass');
110SDB12= drift('SDB12',0.2049, 'DriftPass');
111SDB13= drift('SDB13',0.119800, 'DriftPass');
112SDB14= drift('SDB14',0.1668000, 'DriftPass');
113SDB15= drift('SDB15',0.252 , 'DriftPass');
114SDB17= drift('SDB17',0.205 , 'DriftPass');
115SDB18= drift('SDB18',0.1199000 , 'DriftPass');
116SDC1 = drift('SDC1' , 0.241900 ,  'DriftPass');
117SDC2 = drift('SDC2' , 0.079 ,  'DriftPass');
118SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
119SDC4 = drift('SDC4' , 0.3358,  'DriftPass');
120SDC5 = drift('SDC5' , 0.0846,  'DriftPass');
121SDC6 = drift('SDC6' , 0.079,   'DriftPass');
122SDC7 = drift('SDC7' , 0.342 ,  'DriftPass');
123SDC8 = drift('SDC8' , 0.241900 ,  'DriftPass');
124SDC9 = drift('SDC9' , 0.079  , 'DriftPass');
125SDC10= drift('SDC10',0.07845, 'DriftPass');
126SDC11= drift('SDC11',0.2419000  , 'DriftPass');
127SDC12= drift('SDC12',0.3358 , 'DriftPass');
128SDC13= drift('SDC13',0.0846 , 'DriftPass');
129SDC14= drift('SDC14',0.0788 , 'DriftPass');
130SDC15= drift('SDC15',0.3422 , 'DriftPass');
131SDC16= drift('SDC16',0.241900  , 'DriftPass');
132SDC17= drift('SDC17',0.079  , 'DriftPass');
133SDC18= drift('SDC18',0.07845, 'DriftPass');
134SDC19= drift('SDC19',0.24190  , 'DriftPass');
135SDC20= drift('SDC20',0.241900  , 'DriftPass');
136SDC21= drift('SDC21',0.079  , 'DriftPass');
137SDC22= drift('SDC22',0.29090  , 'DriftPass');
138SDC24= drift('SDC24',1.379  , 'DriftPass');
139%SDC23a= drift('SDC23a',0.632  , 'DriftPass'); % BPM - K1
140SDC23b= drift('SDC23b',1.983  , 'DriftPass'); % K1 - KEMV
141SDC23c= drift('SDC23c',1.019  , 'DriftPass'); % KEMV - K2
142SDC23d= drift('SDC23d',0.676  , 'DriftPass'); % K2 - FCOR
143SDC23e= drift('SDC23a',0.147  , 'DriftPass'); % BPM - FCOR [1 1]
144SDC23f= drift('SDC23a',0.485  , 'DriftPass'); % FCOR [1 1] next SD
145
146% HU640 straight section
147SDHU640a = drift('SDHU640a',  1.7394, 'DriftPass');
148SDHU640b = drift('SDHU640b',  0.64, 'DriftPass');
149SDHU640c = drift('SDHU640c',  3.2795, 'DriftPass');
150SDHU640d = drift('SDHU640d',  3.1195, 'DriftPass');
151SDHU640e = drift('SDHU640e',  0.64, 'DriftPass');
152SDHU640f = drift('SDHU640f',  1.8994, 'DriftPass');
153
154%% QUADRUPOLES (compensation de l'effet des défauts de focalisation des
155LQC = 0.180100E+00*2 ;
156LQL = 0.248100E+00*2 ;
157Q1   =  quadrupole('Q1' , LQC,  -0.1073038E+01, 'QuadLinearPass');
158Q2   =  quadrupole('Q2' , LQL,   0.1603455E+01, 'QuadLinearPass');
159Q3   =  quadrupole('Q3' , LQC,  -0.6491600E+00, 'QuadLinearPass');
160Q4   =  quadrupole('Q4' , LQC,  -0.1259864E+01, 'QuadLinearPass');
161Q5   =  quadrupole('Q5' , LQC,   0.1696440E+01, 'QuadLinearPass');
162Q6   =  quadrupole('Q6' , LQC,  -0.1007805E+01, 'QuadLinearPass');
163Q7   =  quadrupole('Q7' , LQL,   0.2085280E+01, 'QuadLinearPass');
164Q8   =  quadrupole('Q8' , LQC,  -0.1551946E+01, 'QuadLinearPass');
165Q9   =  quadrupole('Q9' , LQC,  -0.1513545E+01, 'QuadLinearPass');
166Q10  =  quadrupole('Q10', LQC,   0.1756880E+01, 'QuadLinearPass');
167
168
169%% SEXTUPOLES chromaticités nulles dans TracyII
170%avec defauts de focalisation des dipoles
171%P. Brunelle 02/05/06
172F = 1e8;
173Finv = 1/F;
174
175S1  =  sextupole('S1' , Finv,  1.71919*F, 'StrMPoleSymplectic4Pass');
176S2  =  sextupole('S2' , Finv, -4.10456*F, 'StrMPoleSymplectic4Pass');
177S3  =  sextupole('S3' , Finv, -2.16938*F, 'StrMPoleSymplectic4Pass');
178S4  =  sextupole('S4' , Finv,  3.60465*F, 'StrMPoleSymplectic4Pass');
179S5  =  sextupole('S5' , Finv, -3.69821*F, 'StrMPoleSymplectic4Pass');
180S6  =  sextupole('S6' , Finv,  3.24667*F, 'StrMPoleSymplectic4Pass');
181S7  =  sextupole('S7' , Finv, -5.00352*F, 'StrMPoleSymplectic4Pass');
182S8  =  sextupole('S8' , Finv,  4.34566*F, 'StrMPoleSymplectic4Pass');
183S9  =  sextupole('S9' , Finv, -3.930424*F, 'StrMPoleSymplectic4Pass');
184S10 =  sextupole('S10', Finv,  2.188991*F, 'StrMPoleSymplectic4Pass');
185S11 =  sextupole('S11', Finv,  1.71919*F, 'StrMPoleSymplectic4Pass');
186%S12 =  sextupole('S12', Finv,  0*F, 'StrMPoleSymplectic4Pass');
187
188%% Skew quadrupoles
189QT    =  skewquad('SkewQuad', 1e-8, 0.0, 'StrMPoleSymplectic4Pass');
190
191%% Slow feedback correctors
192COR =  corrector('COR',0.0,[0 0],'CorrectorPass');
193
194%% Machine study kickers
195KEMH =  corrector('KEMH',0.0,[0 0],'CorrectorPass');
196KEMV =  corrector('KEMV',0.0,[0 0],'CorrectorPass');
197
198%% HU640
199HCMHU640 =  corrector('HCMHU640',0.0,[0 0],'CorrectorPass');
200VCMHU640 =  corrector('VCMHU640',0.0,[0 0],'CorrectorPass');
201
202HU640upstream   = [SDHU640a VCMHU640 SDHU640b HCMHU640 SDHU640c];
203HU640downstream = [SDHU640d HCMHU640 SDHU640e VCMHU640 SDHU640f];
204
205%% Fast feedback correctors
206FCOR =  corrector('FCOR',0.0,[0 0],'CorrectorPass');
207
208SX1   = [S1  COR  QT];
209SX2   = [S2  COR  QT];
210SX3   = [S3  COR  QT];
211SX4   = [S4  COR  QT];
212SX5   = [S5  COR  QT];
213SX6   = [S6  COR  QT];
214SX7   = [S7  COR  QT];
215SX8   = [S8  COR  QT];
216SX9   = [S9  COR  QT];
217SX10  = [S10 COR  QT];
218SX11  = [S11 COR  QT];
219%SX12  = [S12 COR  QT];
220
221%% DIPOLES
222%BEND  =  rbend('BEND'  , 1.05243,  ...
223% 0.19635, 0.098175, 0.098175, 0.0,'BendLinearPass');
224
225%% DIPOLES
226% {** 1.3815 factor to fit with BETA ??? strange **}
227%theta = 2*pi/32;
228%fullgap = 0.105*0.724*2/6*1.3815*0.;
229% BEND  =  rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
230%                 fullgap,'BendLinearFringeTiltPass');
231theta = 2*pi/32;
232%theta2 = theta/2;
233thetae = theta/2 - 0.6e-3*1;
234thetas = theta/2 + 0.9e-3*1;
235K = 0.00204*1;
236fullgap = 0.037*0.724*2*1;
237BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
238
239
240%% Lattice
241% Superperiods
242
243SUP1  = [...
244    SD1a   PtINJ   SD1b   K3  SD1c1 FCOR  SD1c2  KEMH SD1c3   K4     SD1d ...
245    BPM  SDB1   Q1     SD2    SX1   SD3     Q2 ...
246    SDB2  BPM    SD14a   Q3      SD5    SX2    SD6 ...
247    BEND    SD7     Q4  SD8     SX3    ...
248    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
249    SDB4  BPM     SD10a    Q5     SD91     ...
250    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
251    SD7     Q6      SD5    SX5     SD41    ...
252    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
253    SDC1 FCOR SDC2   BPM    SD13a  SD13a BPM ...
254    SDC3    FCOR   SDC1 ...
255    Q8      SD2    SX8     SD3    Q7  SDB7 ...
256    BPM   SD42     SX7      SD5     Q6     SD7 ...
257    BEND   SD7    Q9    SD8     SX9  SDB8 ...
258    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
259    FCOR SDC5  BPM   SDAC1    SDAC1 ...
260    BPM   SDC6  FCOR  SDC7 SX10    SD8    Q10    SD91 ...
261    BPM   SD42  SX9      SD8     Q9     SD7    ...
262    BEND   SD7    Q6    SD5     SX7    SD41   ...
263    BPM  SDB9  Q7      SD3    SX8    SD2   Q8 SDC8 ...
264    FCOR  SDC9  BPM     SD13a    SD13a  ...
265    BPM  SDC10   FCOR  SDC11  Q8     SD2   SX8   SD3   Q7 ...
266    SDB10  BPM   SD42    SX7    SD5   Q6      SD7  ...
267    BEND    SD7     Q9     SD8     SX9  SDB11    ...
268    BPM    SD92   Q10     SD8     SX10 SDC12 ...
269    FCOR  SDC13  BPM    SDAC1    SDAC1   ...
270    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
271    BPM  SDB12  SX9    SD8   Q9      SD7 ...
272    BEND    SD7    Q6      SD5    SX7    SD41 ...
273    BPM  SDB13   Q7      SD3    SX8     SD2    Q8  SDC16 ...
274    FCOR SDC17  BPM    SD13a SD13a   ...
275    BPM   SDC18  FCOR  SDC19   Q8     SD2     SX6    SD3    Q7 ...
276    SDB14  BPM    SD43    SX5     SD5    Q6      SD7    ...
277    BEND   SD7   Q4      SD8     SX3  SDB15 ...
278    BPM     SD9a   Q5      SD12   ...
279    SX4  SDB4  BPM     SD10a Q5     SD93 ...
280    BPM  SDB17  SX3     SD8    Q4     SD7   ...
281    BEND    SD6     SX2      SD5     Q3     SD141 ...
282    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
283    SDC20 FCOR  SDC21   BPM     HU640upstream  ];
284
285SUP2  = [  ...
286    HU640downstream  BPM SDC2 FCOR SDC1   ...
287    Q1     SD2    SX1   SD3     Q2 ...
288    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
289    BEND    SD7     Q4  SD8     SX3    ...
290    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
291    SDB4  BPM     SD10a    Q5     SD93     ...
292    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
293    SD7     Q6      SD5    SX5     SD41    ...
294    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
295    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
296    SDC2    FCOR   SDC1 ...
297    Q8      SD2    SX8     SD3    Q7  SDB7 ...
298    BPM   SDB5     SX7      SD5     Q6     SD7 ...
299    BEND   SD7    Q9    SD8     SX9  SDB3 ...
300    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
301    FCOR SDC5  BPM   SDAC1    SDAC1 ...
302    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
303    BPM   SDB12  SX9      SD8     Q9     SD7    ...
304    BEND   SD7    Q6    SD5     SX7    SD41   ...
305    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
306    FCOR  SDC2  BPM     SD13a  SD13a  ...
307    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
308    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
309    BEND    SD7     Q9     SD8     SX9   SDB3    ...
310    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
311    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
312    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
313    BPM  SDB12  SX9    SD8   Q9      SD7 ...
314    BEND    SD7    Q6      SD5    SX7    SD41 ...
315    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
316    FCOR SDC2  BPM    SD13a   SD13a   ...
317    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
318    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
319    BEND   SD7   Q4      SD8     SX3  SDB3 ...
320    BPM     SD9a   Q5      SD12   ...
321    SX4   SDB4  BPM     SD10a   Q5     SD93 ...
322    BPM  SD42  SX3     SD8    Q4     SD7   ...
323    BEND    SD6     SX2      SD5     Q3     SD141 ...
324    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
325    SDC1 FCOR  SDC2   BPM     SD1e  ];
326
327SUP3  = [  ...
328    SD1e  BPM SDC2 FCOR SDC1   ...
329    Q1     SD2    SX1   SD3     Q2 ...
330    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
331    BEND    SD7     Q4  SD8     SX3    ...
332    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
333    SDB4  BPM     SD10a    Q5     SD93     ...
334    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
335    SD7     Q6      SD5    SX5     SD41    ...
336    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
337    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
338    SDC2    FCOR   SDC1 ...
339    Q8      SD2    SX8     SD3    Q7  SDB7 ...
340    BPM   SDB5     SX7      SD5     Q6     SD7 ...
341    BEND   SD7    Q9    SD8     SX9  SDB3 ...
342    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
343    FCOR SDC5  BPM   SDAC1    SDAC1 ...
344    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
345    BPM   SDB12  SX9      SD8     Q9     SD7    ...
346    BEND   SD7    Q6    SD5     SX7    SD41   ...
347    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
348    FCOR  SDC2  BPM     SD13a  SD13a  ...
349    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
350    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
351    BEND    SD7     Q9     SD8     SX9   SDB3    ...
352    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
353    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
354    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
355    BPM  SDB12  SX9    SD8   Q9      SD7 ...
356    BEND    SD7    Q6      SD5    SX7    SD41 ...
357    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
358    FCOR SDC2  BPM    SD13a   SD13a   ...
359    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
360    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
361    BEND   SD7   Q4      SD8     SX3  SDB3 ...
362    BPM     SD9a   Q5      SD12   ...
363    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
364    BPM  SD42  SX3     SD8    Q4     SD7   ...
365    BEND    SD6     SX2      SD5     Q3     SD141 ...
366    BPM  SDB18  Q2     SD3   SX11     SD2     Q1 ...
367    SDC1 FCOR  SDC2   BPM     SD1e  ];
368
369SUP4  = [  ...
370    SD1e  BPM SDC2 FCOR SDC1   ...
371    Q1     SD2    SX11   SD3     Q2 ...
372    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
373    BEND    SD7     Q4  SD8     SX3    ...
374    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
375    SDB4  BPM     SD10a    Q5     SD93     ...
376    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
377    SD7     Q6      SD5    SX5     SD41    ...
378    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
379    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
380    SDC2    FCOR   SDC1 ...
381    Q8      SD2    SX8     SD3    Q7  SDB7 ...
382    BPM   SDB5     SX7      SD5     Q6     SD7 ...
383    BEND   SD7    Q9    SD8     SX9  SDB3 ...
384    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
385    FCOR SDC5  BPM   SDAC1    SDAC1 ...
386    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...
387    BPM   SDB12  SX9      SD8     Q9     SD7    ...
388    BEND   SD7    Q6    SD5     SX7    SD41   ...
389    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
390    FCOR  SDC2  BPM     SD13a  SD13a  ...
391    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
392    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
393    BEND    SD7     Q9     SD8     SX9   SDB3    ...
394    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
395    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
396    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...
397    BPM  SDB12  SX9    SD8   Q9      SD7 ...
398    BEND    SD7    Q6      SD5    SX7    SD41 ...
399    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
400    FCOR SDC2  BPM    SD13a   SD13a   ...
401    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
402    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
403    BEND   SD7   Q4      SD8     SX3  SDB3 ...
404    BPM     SD9a   Q5      SD12   ...
405    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
406    BPM  SD42  SX3     SD8    Q4     SD7   ...
407    BEND    SD6     SX2      SD5     Q3     SD141 ...
408    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
409    SDC22   BPM  SDC23e  FCOR SDC23f K1 SDC23b ...
410    KEMV SDC23c K2 SDC23d SDC24];
411
412
413ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 CAV FIN];
414%ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 FIN];
415
416buildlat(ELIST);
417
418% Set all magnets to same energy
419THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
420
421evalin('caller','global THERING FAMLIST GLOBVAL');
422
423atsummary;
424
425if nargout
426    varargout{1} = THERING;
427end
Note: See TracBrowser for help on using the repository browser.