Context Navigation

lat_2020_3170e.m

Last change on this file was 17, checked in by zhangj, 10 years ago
To have a stable version on the server.
Property svn:executable set to ``*
File size: 19.9 KB

Line
1	function varargout = lat_2020_3170e
2	% betax = 5 m dans les sections droites longues
3	%solamor2 - soleil lattice w/o ID
4	% Lattice definition file
5	% Lattice for SOLEIL: perfect lattice no magnetic errors
6
7	% Compiled by Laurent Nadolski and Amor Nadji
8	% 09/01/02, ALS
9	% mai 2006 : mis a jour vraies cotes BPM, correcteurs, dipole (coins,
10	% chamd de fuite et gradient)
11	% A. Nadji et P. Brunelle
12	% Controlroom : set linearpass for quad (closed orbit)
13	% No cavity; No Radiation PassMethod
14	% April 20th 2007, Laurent S. nadolski
15	% BPM downstream injection section had wrong location by
16	% 30 mm, 2 FCOR in injection straight section was not at their proper
17	% location
18	% November 24th 2007, Laurent S. Nadolski
19	% Bpms 5 on the wrong side of sextupole in cell 4, 8, 12 and 16
20	% December 7th, 2007, Laurent S. Nadolski
21	% Added KEM V & H, K1 & K2 markers modelled as thin element
22	% October 1, 2008
23	% Lattice with tunes 18.2020 and 10.3170
24	% Octobre 27, 2008
25	% Lattice with tunes 18.2020 and 10.3170
26	% Lattice with chromaticities 2.0 and 2.0
27	% March 4, 2009
28	% FHCOR and FVCOR [1 1] steerer moved 2180 mm upstream,
29	% closed to entrance of vertical kicker
30	% March 2009 - New quadrupole model from MAT with intermediate length
31	% June 2009 - magnetcoefficient with index June 9 was changed
32	% for sextupoles calibration
33	% for quadrupole Just all ranges for quad variation with fit are present
34	% Novembre 2010 - S11 added, QT0 removed
35	% 18 April 2011 - Tunes update 0.2017, 0.3169 moved 0.1990 0.3169
36	% 29 Mai 2011 - Add Scrapers + straight sections
37
38	global FAMLIST THERING GLOBVAL
39
40	GLOBVAL.E0 = 2.7391e9; % Ring energy
41	GLOBVAL.LatticeFile = mfilename;
42	FAMLIST = cell(0);
43
44	disp(['** Loading SOLEIL magnet lattice ', mfilename]);
45
46	L0 = 354.0968203999998+1e-12;% design length [m]
47	C0 = 2.99792458e8; % speed of light [m/s]
48	HarmNumber = 416;
49
50	%% Cavity
51	% NAME L U[V] f[Hz] h method
52	CAV = rfcavity('RF' , 0.0 , 4.0e+6 , HarmNumber*C0/L0, HarmNumber ,'CavityPass');
53
54	%% Marker and apertures
55	SECT1 = marker('SECT1', 'IdentityPass');
56	SECT2 = marker('SECT2', 'IdentityPass');
57	SECT3 = marker('SECT3', 'IdentityPass');
58	SECT4 = marker('SECT4', 'IdentityPass');
59	DEBUT = marker('DEBUT', 'IdentityPass');
60	FIN = marker('FIN', 'IdentityPass');
61
62	%% SCRAPER
63	HSCRAP = marker('HSCRAP', 'IdentityPass');
64	VSCRAP = marker('VSCRAP', 'IdentityPass');
65
66	%INJ = aperture('INJ',[-0.035 0.035 -0.0125 0.0125]*100,'AperturePass');
67
68	%% ElementS in Injection section
69	PtINJ = marker('PtINJ', 'IdentityPass');
70	K1 = corrector('K1',0.0,[0 0],'CorrectorPass');
71	K2 = corrector('K2',0.0,[0 0],'CorrectorPass');
72	K3 = corrector('K3',0.0,[0 0],'CorrectorPass');
73	K4 = corrector('K4',0.0,[0 0],'CorrectorPass');
74
75	%% BPM
76	BPM = marker('BPM', 'IdentityPass');
77
78	%% DRIFT SPACES
79
80	SD1a = drift('SD1a', 1.4125, 'DriftPass');
81	SD1b = drift('SD1b', 0.7575, 'DriftPass');
82	SD2 = drift('SD2', 0.369900, 'DriftPass');
83	SD3 = drift('SD3', 0.181900, 'DriftPass');
84	SD5 = drift('SD5', 0.179900, 'DriftPass');
85	SD6 = drift('SD6', 0.79000, 'DriftPass');
86	SD7 = drift('SD7', 0.419900, 'DriftPass');
87	SD8 = drift('SD8', 0.1799000, 'DriftPass');
88	SD12= drift('SD12', 0.44990, 'DriftPass');
89	SD12u= drift('SD12', 0.2, 'DriftPass'); % upstream V V-scraper % TO BE UPDATED
90	SD12d= drift('SD12', 0.44990-0.2, 'DriftPass'); % downstream H-scraper
91	SD1d = drift('SD1d', 0.5170, 'DriftPass');
92	SD14a = drift('SD14a', 0.38500000, 'DriftPass');
93	SD9a = drift('SD9a', 0.204200 , 'DriftPass');
94	SD10a = drift('SD10a', 0.172300 , 'DriftPass');
95	SDAC1 = drift('SDAC1', 1.48428 , 'DriftPass');
96	SD13a= drift('SD13a', 3.141452 , 'DriftPass');
97	SD1e = drift('SD1e', 5.6589, 'DriftPass');
98	SD1c1 = drift('SD1c1', 0.8410, 'DriftPass'); % K3 - FCOR
99	SD1c2 = drift('SD1c2', 0.601, 'DriftPass'); % FCOR KEMH
100	SD1c3u= drift('SD1c3u', 0.683, 'DriftPass'); % KEMH - VSCRAPER
101	SD1c3d= drift('SD1c3u', 1.560-0.683, 'DriftPass'); % VSCRAPER - K4
102	SD91 = drift('SD91', 0.251240, 'DriftPass');
103	SD41 = drift('SD41', 0.2521, 'DriftPass');
104	SD42 = drift('SD42', 0.205, 'DriftPass');
105	SD92 = drift('SD92', 0.204300, 'DriftPass');
106	SD93 = drift('SD93', 0.251300 , 'DriftPass');
107	SD43 = drift('SD43', 0.2051 , 'DriftPass');
108	SD141 = drift('SD141', 0.431900, 'DriftPass');
109	SDB1 = drift('SDB1', 0.29100, 'DriftPass');
110	SDB2 = drift('SDB2', 0.16680000, 'DriftPass');
111	SDB3 = drift('SDB3', 0.252, 'DriftPass');
112	SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
113	SDB5 = drift('SDB5', 0.205 ,'DriftPass');
114	SDB6 = drift('SDB6', 0.119800 ,'DriftPass');
115	SDB7 = drift('SDB7', 0.166900 , 'DriftPass');
116	SDB8 = drift('SDB8', 0.252 , 'DriftPass');
117	SDB9 = drift('SDB9', 0.119800 ,'DriftPass');
118	SDB10= drift('SDB10',0.166900 , 'DriftPass');
119	SDB11= drift('SDB11',0.2519, 'DriftPass');
120	SDB12= drift('SDB12',0.2049, 'DriftPass');
121	SDB13= drift('SDB13',0.119800, 'DriftPass');
122	SDB14= drift('SDB14',0.1668000, 'DriftPass');
123	SDB15= drift('SDB15',0.252 , 'DriftPass');
124	SDB17= drift('SDB17',0.205 , 'DriftPass');
125	SDB18= drift('SDB18',0.1199000 , 'DriftPass');
126	SDC1 = drift('SDC1' , 0.241900 , 'DriftPass');
127	SDC2 = drift('SDC2' , 0.079 , 'DriftPass');
128	SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
129	SDC4 = drift('SDC4' , 0.3358, 'DriftPass');
130	SDC5 = drift('SDC5' , 0.0846, 'DriftPass');
131	SDC6 = drift('SDC6' , 0.079, 'DriftPass');
132	SDC7 = drift('SDC7' , 0.342 , 'DriftPass');
133	SDC8 = drift('SDC8' , 0.241900 , 'DriftPass');
134	SDC9 = drift('SDC9' , 0.079 , 'DriftPass');
135	DRFT10= drift('DRFT10',0.07845, 'DriftPass');
136	DRFT11= drift('DRFT11',0.2419000 , 'DriftPass');
137	DRFT12= drift('DRFT12',0.3358 , 'DriftPass');
138	DRFT13= drift('DRFT13',0.0846 , 'DriftPass');
139	DRFT14= drift('DRFT14',0.0788 , 'DriftPass');
140	DRFT15= drift('DRFT15',0.3422 , 'DriftPass');
141	DRFT16= drift('DRFT16',0.241900 , 'DriftPass');
142	DRFT17= drift('DRFT17',0.079 , 'DriftPass');
143	DRFT18= drift('DRFT18',0.07845, 'DriftPass');
144	DRFT19= drift('DRFT19',0.24190 , 'DriftPass');
145	SDC20= drift('SDC20',0.241900 , 'DriftPass');
146	SDC21= drift('SDC21',0.079 , 'DriftPass');
147	SDC22= drift('SDC22',0.29090 , 'DriftPass');
148	SDC24= drift('SDC24',1.379 , 'DriftPass');
149	%SDC23a= drift('SDC23a',0.632 , 'DriftPass'); % BPM - K1
150	SDC23b= drift('SDC23b',1.983 , 'DriftPass'); % K1 - KEMV
151	SDC23c= drift('SDC23c',1.019 , 'DriftPass'); % KEMV - K2
152	SDC23d= drift('SDC23d',0.676 , 'DriftPass'); % K2 - FCOR
153	SDC23e= drift('SDC23a',0.147 , 'DriftPass'); % BPM - FCOR [1 1]
154	SDC23f= drift('SDC23a',0.485 , 'DriftPass'); % FCOR [1 1] next SD
155
156	% HU640 straight section
157	SDHU640a = drift('SDHU640a', 1.7394, 'DriftPass');
158	SDHU640b = drift('SDHU640b', 0.64, 'DriftPass');
159	SDHU640c = drift('SDHU640c', 3.2795, 'DriftPass');
160	SDHU640d = drift('SDHU640d', 3.1195, 'DriftPass');
161	SDHU640e = drift('SDHU640e', 0.64, 'DriftPass');
162	SDHU640f = drift('SDHU640f', 1.8994, 'DriftPass');
163
164	%% QUADRUPOLES (compensation de l'effet des defauts de focalisation des
165	LQC = 0.180100E+00*2 ;
166	LQL = 0.248100E+00*2 ;
167	% Q1 = quadrupole('Q1' , LQC, -0.1073038E+01, 'QuadLinearPass');
168	% Q2 = quadrupole('Q2' , LQL, 0.1603455E+01, 'QuadLinearPass');
169	% Q3 = quadrupole('Q3' , LQC, -0.6491600E+00, 'QuadLinearPass');
170	% Q4 = quadrupole('Q4' , LQC, -0.1259864E+01, 'QuadLinearPass');
171	% Q5 = quadrupole('Q5' , LQC, 0.1696440E+01, 'QuadLinearPass');
172	% Q6 = quadrupole('Q6' , LQC, -0.1007805E+01, 'QuadLinearPass');
173	% Q7 = quadrupole('Q7' , LQL, 0.2085280E+01, 'QuadLinearPass');
174	% Q8 = quadrupole('Q8' , LQC, -0.1551946E+01, 'QuadLinearPass');
175	% Q9 = quadrupole('Q9' , LQC, -0.1513545E+01, 'QuadLinearPass');
176	% Q10 = quadrupole('Q10', LQC, 0.1756880E+01, 'QuadLinearPass');
177
178	Q1 = quadrupole('Q1' , LQC, -0.1217526E+01, 'StrMPoleSymplectic4Pass');
179	Q2 = quadrupole('Q2' , LQL, 0.1674972E+01, 'StrMPoleSymplectic4Pass');
180	Q3 = quadrupole('Q3' , LQC, -0.5308946E+00, 'StrMPoleSymplectic4Pass');
181	Q4 = quadrupole('Q4' , LQC, -0.1268515E+01, 'StrMPoleSymplectic4Pass');
182	Q5 = quadrupole('Q5' , LQC, 0.1709814E+01, 'StrMPoleSymplectic4Pass');
183	Q6 = quadrupole('Q6' , LQC, -0.1090209E+01, 'StrMPoleSymplectic4Pass');
184	Q7 = quadrupole('Q7' , LQL, 0.2031731E+01, 'StrMPoleSymplectic4Pass');
185	Q8 = quadrupole('Q8' , LQC, -0.1417185E+01, 'StrMPoleSymplectic4Pass');
186	Q9 = quadrupole('Q9' , LQC, -0.147801E+01, 'StrMPoleSymplectic4Pass');
187	Q10 = quadrupole('Q10', LQC, 0.1744141E+01, 'StrMPoleSymplectic4Pass');
188
189
190	%% SEXTUPOLES CHROMATICITES NULLES dans TracyII
191	%avec defauts de focalisation des dipoles
192	%P. Brunelle 02/05/06
193	F = 1e8;
194	Finv = 1/F;
195
196	S1 = sextupole('S1' , Finv, 1.71919*F, 'StrMPoleSymplectic4Pass');
197	S2 = sextupole('S2' , Finv, -4.10456*F, 'StrMPoleSymplectic4Pass');
198	S3 = sextupole('S3' , Finv, -2.16938*F, 'StrMPoleSymplectic4Pass');
199	S4 = sextupole('S4' , Finv, 3.60465*F, 'StrMPoleSymplectic4Pass');
200	S5 = sextupole('S5' , Finv, -3.69821*F, 'StrMPoleSymplectic4Pass');
201	S6 = sextupole('S6' , Finv, 3.24667*F, 'StrMPoleSymplectic4Pass');
202	S7 = sextupole('S7' , Finv, -5.00352*F, 'StrMPoleSymplectic4Pass');
203	S8 = sextupole('S8' , Finv, 4.34566*F, 'StrMPoleSymplectic4Pass');
204	S9 = sextupole('S9' , Finv, -0.72470675F, 'StrMPoleSymplectic4Pass');
205	S10 = sextupole('S10', Finv, 0.41102365F, 'StrMPoleSymplectic4Pass');
206	S11 = sextupole('S11', Finv, 1.71919*F, 'StrMPoleSymplectic4Pass');
207
208	%% Skew quadrupoles
209	QT = skewquad('SkewQuad', 1e-8, 0.0, 'StrMPoleSymplectic4Pass');
210
211	%% Slow feedback correctors
212	COR = corrector('COR',0.0,[0 0],'CorrectorPass');
213
214	%% Machine study kickers
215	KEMH = corrector('KEMH',0.0,[0 0],'CorrectorPass');
216	KEMV = corrector('KEMV',0.0,[0 0],'CorrectorPass');
217
218	%% HU640
219	HCMHU640 = corrector('HCMHU640',0.0,[0 0],'CorrectorPass');
220	VCMHU640 = corrector('VCMHU640',0.0,[0 0],'CorrectorPass');
221
222	HU640upstream = [SDHU640a VCMHU640 SDHU640b HCMHU640 SDHU640c];
223	HU640downstream = [SDHU640d HCMHU640 SDHU640e VCMHU640 SDHU640f];
224
225	%% Fast feedback correctors
226	FCOR = corrector('FCOR',0.0,[0 0],'CorrectorPass');
227
228	SX1 = [S1 COR QT];
229	SX2 = [S2 COR QT];
230	SX3 = [S3 COR QT];
231	SX4 = [S4 COR QT];
232	SX5 = [S5 COR QT];
233	SX6 = [S6 COR QT];
234	SX7 = [S7 COR QT];
235	SX8 = [S8 COR QT];
236	SX9 = [S9 COR QT];
237	SX10 = [S10 COR QT];
238	SX11 = [S11 COR QT];
239
240
241	%% DIPOLES
242	% { 1.3815 factor to fit with BETA ??? strange }
243	%theta = 2*pi/32;
244	%fullgap = 0.1050.7242/61.38150.;
245	% BEND = rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
246	% fullgap,'BendLinearFringeTiltPass');
247	theta = 2*pi/32;
248	%theta2 = theta/2;
249	thetae = theta/2 - 0.6e-3;
250	thetas = theta/2 + 0.9e-3;
251	K = 0.00204;
252	fullgap = 0.0370.7242;
253	%BEND = rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
254	BEND = rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BndMPoleSymplectic4Pass');
255
256	%% STRAIGHT SECTIONS (between BPMs)
257	% 4 long straight sections (12 m, available part 10.50 m)
258	%SDL01 (injection) is split in upstream and downstrem parts
259	SDL01d = [SD1a PtINJ SD1b K3 SD1c1 FCOR SD1c2 KEMH SD1c3u VSCRAP SD1c3d K4 SD1d];
260	SDL01u = [SDC23e FCOR SDC23f K1 SDC23b KEMV SDC23c K2 SDC23d SDC24];
261	SDL05 = [HU640upstream HU640downstream]; % DESIRS HU640
262	SDL09 = [SD1e SD1e];
263	%SDL13 = [SD1e BPM BPM SD1e]; % NANOSCOPIUM U20 + TOMOGRAPHY U18 CRYO
264	SDL13 = [SD1e SD1e]; % NANOSCOPIUM U20 + TOMOGRAPHY U18 CRYO
265
266	% 12 medium straigt sections (7 m, available part for IDs 5.46 m)
267	SDM02 = [SD13a CAV SD13a]; % CRYOMODULE #2
268	SDM03 = [SD13a SD13a]; % CRYOMUDULE #1 not put in the model for simplicity
269	SDM04 = [SD13a SD13a]; % PLEIADES HU256 + HU80
270	SDM06 = [SD13a SD13a]; % PUMA future Wiggler
271	SDM07 = [SD13a SD13a]; % DEIMOS HU52+EMPHU65
272	SDM08 = [SD13a SD13a]; % TEMPO HU80+HU44
273	SDM10 = [SD13a SD13a]; % HERMES HU64+HU42
274	SDM11 = [SD13a SD13a]; % PX2 U24
275	SDM12 = [SD13a SD13a]; % ANTARES HU256 + HU60
276	SDM14 = [SD13a SD13a]; % SEXTANTS (ex microFocus) HU44 + HU80
277	SDM15 = [SD13a SD13a]; % CASSIOPEE HU256 + HU80
278	SDM16 = [SD13a SD13a]; % LUCIA HU52
279
280	% 8 short straigt sections (3.6 m, available part for IDs 2.8 m)
281	SDC02 = [SDAC1 SDAC1];% LIGNE ALPHA
282	SDC03 = [SDAC1 SDAC1];% PSICHE WSV50
283	SDC06 = [SDAC1 SDAC1];% CRISTAL U20
284	SDC07 = [SDAC1 SDAC1];% GALAXIES U20
285	SDC10 = [SDAC1 SDAC1];% PX1 U20
286	SDC11 = [SDAC1 SDAC1];% SWING U20
287	SDC14 = [SDAC1 SDAC1];% SIXS U20
288	SDC15 = [SDAC1 SDAC1];% SIRIUS HU34
289
290
291	%% Lattice
292	% Superperiods
293
294	% SUPERPERIOD #1
295	SUP1 = [...
296	BPM SDB1 Q1 SD2 SX1 SD3 Q2 ...
297	SDB2 BPM SD14a Q3 SD5 SX2 SD6 ...
298	BEND SD7 Q4 SD8 SX3 ...
299	SDB3 BPM SD9a Q5 SD12u HSCRAP SD12d SX4 ...
300	SDB4 BPM SD10a Q5 SD91 ...
301	BPM SDB5 SX3 SD8 Q4 SD7 BEND ...
302	SD7 Q6 SD5 SX5 SD41 ...
303	BPM SDB6 Q7 SD3 SX6 SD2 Q8 ...
304	SDC1 FCOR SDC2 BPM SDM02 BPM ...
305	SDC3 FCOR SDC1 ...
306	Q8 SD2 SX8 SD3 Q7 SDB7 ...
307	BPM SD42 SX7 SD5 Q6 SD7 ...
308	BEND SD7 Q9 SD8 SX9 SDB8 ...
309	BPM SD9a Q10 SD8 SX10 SDC4 ...
310	FCOR SDC5 BPM SDC02 ...
311	BPM SDC6 FCOR SDC7 SX10 SD8 Q10 SD91 ...
312	BPM SD42 SX9 SD8 Q9 SD7 ...
313	BEND SD7 Q6 SD5 SX7 SD41 ...
314	BPM SDB9 Q7 SD3 SX8 SD2 Q8 SDC8 ...
315	FCOR SDC9 BPM SDM03 ...
316	BPM DRFT10 FCOR DRFT11 Q8 SD2 SX8 SD3 Q7 ...
317	SDB10 BPM SD42 SX7 SD5 Q6 SD7 ...
318	BEND SD7 Q9 SD8 SX9 SDB11 ...
319	BPM SD92 Q10 SD8 SX10 DRFT12 ...
320	FCOR DRFT13 BPM SDC03 ...
321	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
322	BPM SDB12 SX9 SD8 Q9 SD7 ...
323	BEND SD7 Q6 SD5 SX7 SD41 ...
324	BPM SDB13 Q7 SD3 SX8 SD2 Q8 DRFT16 ...
325	FCOR DRFT17 BPM SDM04 ...
326	BPM DRFT18 FCOR DRFT19 Q8 SD2 SX6 SD3 Q7 ...
327	SDB14 BPM SD43 SX5 SD5 Q6 SD7 ...
328	BEND SD7 Q4 SD8 SX3 SDB15 ...
329	BPM SD9a Q5 SD12 ...
330	SX4 SDB4 BPM SD10a Q5 SD93 ...
331	BPM SDB17 SX3 SD8 Q4 SD7 ...
332	BEND SD6 SX2 SD5 Q3 SD141 ...
333	BPM SDB18 Q2 SD3 SX1 SD2 Q1 ...
334	SDC20 FCOR SDC21 BPM];
335
336	% SUPERPERIOD #2
337	SUP2 = [ ...
338	BPM SDC2 FCOR SDC1 ...
339	Q1 SD2 SX1 SD3 Q2 ...
340	SDB7 BPM SD14a Q3 SD5 SX2 SD6 ...
341	BEND SD7 Q4 SD8 SX3 ...
342	SDB3 BPM SD9a Q5 SD12 SX4 ...
343	SDB4 BPM SD10a Q5 SD93 ...
344	BPM SDB5 SX3 SD8 Q4 SD7 BEND ...
345	SD7 Q6 SD5 SX5 SD41 ...
346	BPM SDB6 Q7 SD3 SX6 SD2 Q8 ...
347	SDC1 FCOR SDC2 BPM SDM06 BPM ...
348	SDC2 FCOR SDC1 ...
349	Q8 SD2 SX8 SD3 Q7 SDB7 ...
350	BPM SDB5 SX7 SD5 Q6 SD7 ...
351	BEND SD7 Q9 SD8 SX9 SDB3 ...
352	BPM SD9a Q10 SD8 SX10 SDC4 ...
353	FCOR SDC5 BPM SDC06 ...
354	BPM DRFT14 FCOR DRFT15 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 SDM07 ...
359	BPM SDC2 FCOR SDC1 Q8 SD2 SX8 SD3 Q7 ...
360	SDB7 BPM SDB5 SX7 SD5 Q6 SD7 ...
361	BEND SD7 Q9 SD8 SX9 SDB3 ...
362	BPM SD9a Q10 SD8 SX10 SDC4 ...
363	FCOR SDC5 BPM SDC07 ...
364	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
365	BPM SDB12 SX9 SD8 Q9 SD7 ...
366	BEND SD7 Q6 SD5 SX7 SD41 ...
367	BPM SDB6 Q7 SD3 SX8 SD2 Q8 SDC1 ...
368	FCOR SDC2 BPM SDM08 ...
369	BPM SDC2 FCOR SDC1 Q8 SD2 SX6 SD3 Q7 ...
370	SDB7 BPM SD42 SX5 SD5 Q6 SD7 ...
371	BEND SD7 Q4 SD8 SX3 SDB3 ...
372	BPM SD9a Q5 SD12 ...
373	SX4 SDB4 BPM SD10a Q5 SD93 ...
374	BPM SD42 SX3 SD8 Q4 SD7 ...
375	BEND SD6 SX2 SD5 Q3 SD141 ...
376	BPM SDB18 Q2 SD3 SX1 SD2 Q1 ...
377	SDC1 FCOR SDC2 BPM];
378
379	% SUPERPERIOD #3
380	SUP3 = [ ...
381	BPM SDC2 FCOR SDC1 ...
382	Q1 SD2 SX1 SD3 Q2 ...
383	SDB7 BPM SD14a Q3 SD5 SX2 SD6 ...
384	BEND SD7 Q4 SD8 SX3 ...
385	SDB3 BPM SD9a Q5 SD12 SX4 ...
386	SDB4 BPM SD10a Q5 SD93 ...
387	BPM SDB5 SX3 SD8 Q4 SD7 BEND ...
388	SD7 Q6 SD5 SX5 SD41 ...
389	BPM SDB6 Q7 SD3 SX6 SD2 Q8 ...
390	SDC1 FCOR SDC2 BPM SDM10 BPM ...
391	SDC2 FCOR SDC1 ...
392	Q8 SD2 SX8 SD3 Q7 SDB7 ...
393	BPM SDB5 SX7 SD5 Q6 SD7 ...
394	BEND SD7 Q9 SD8 SX9 SDB3 ...
395	BPM SD9a Q10 SD8 SX10 SDC4 ...
396	FCOR SDC5 BPM SDC10 ...
397	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
398	BPM SDB12 SX9 SD8 Q9 SD7 ...
399	BEND SD7 Q6 SD5 SX7 SD41 ...
400	BPM SDB6 Q7 SD3 SX8 SD2 Q8 SDC1 ...
401	FCOR SDC2 BPM SDM11 ...
402	BPM SDC2 FCOR SDC1 Q8 SD2 SX8 SD3 Q7 ...
403	SDB7 BPM SDB5 SX7 SD5 Q6 SD7 ...
404	BEND SD7 Q9 SD8 SX9 SDB3 ...
405	BPM SD9a Q10 SD8 SX10 SDC4 ...
406	FCOR SDC5 BPM SDC11 ...
407	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
408	BPM SDB12 SX9 SD8 Q9 SD7 ...
409	BEND SD7 Q6 SD5 SX7 SD41 ...
410	BPM SDB6 Q7 SD3 SX8 SD2 Q8 SDC1 ...
411	FCOR SDC2 BPM SDM12 ...
412	BPM SDC2 FCOR SDC1 Q8 SD2 SX6 SD3 Q7 ...
413	SDB7 BPM SD42 SX5 SD5 Q6 SD7 ...
414	BEND SD7 Q4 SD8 SX3 SDB3 ...
415	BPM SD9a Q5 SD12 ...
416	SX4 SDB4 BPM SD10a Q5 SD93 ...
417	BPM SD42 SX3 SD8 Q4 SD7 ...
418	BEND SD6 SX2 SD5 Q3 SD141 ...
419	BPM SDB18 Q2 SD3 SX11 SD2 Q1 ...
420	SDC1 FCOR SDC2 BPM];
421
422	% SUPERPERIOD #4
423	SUP4 = [ ...
424	BPM SDC2 FCOR SDC1 ...
425	Q1 SD2 SX11 SD3 Q2 ...
426	SDB7 BPM SD14a Q3 SD5 SX2 SD6 ...
427	BEND SD7 Q4 SD8 SX3 ...
428	SDB3 BPM SD9a Q5 SD12 SX4 ...
429	SDB4 BPM SD10a Q5 SD93 ...
430	BPM SDB5 SX3 SD8 Q4 SD7 BEND ...
431	SD7 Q6 SD5 SX5 SD41 ...
432	BPM SDB6 Q7 SD3 SX6 SD2 Q8 ...
433	SDC1 FCOR SDC2 BPM SDM14 BPM ...
434	SDC2 FCOR SDC1 ...
435	Q8 SD2 SX8 SD3 Q7 SDB7 ...
436	BPM SDB5 SX7 SD5 Q6 SD7 ...
437	BEND SD7 Q9 SD8 SX9 SDB3 ...
438	BPM SD9a Q10 SD8 SX10 SDC4 ...
439	FCOR SDC5 BPM SDC14 ...
440	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
441	BPM SDB12 SX9 SD8 Q9 SD7 ...
442	BEND SD7 Q6 SD5 SX7 SD41 ...
443	BPM SDB6 Q7 SD3 SX8 SD2 Q8 SDC1 ...
444	FCOR SDC2 BPM SDM15 ...
445	BPM SDC2 FCOR SDC1 Q8 SD2 SX8 SD3 Q7 ...
446	SDB7 BPM SDB5 SX7 SD5 Q6 SD7 ...
447	BEND SD7 Q9 SD8 SX9 SDB3 ...
448	BPM SD9a Q10 SD8 SX10 SDC4 ...
449	FCOR SDC5 BPM SDC15 ...
450	BPM DRFT14 FCOR DRFT15 SX10 SD8 Q10 SD93 ...
451	BPM SDB12 SX9 SD8 Q9 SD7 ...
452	BEND SD7 Q6 SD5 SX7 SD41 ...
453	BPM SDB6 Q7 SD3 SX8 SD2 Q8 SDC1 ...
454	FCOR SDC2 BPM SDM16 ...
455	BPM SDC2 FCOR SDC1 Q8 SD2 SX6 SD3 Q7 ...
456	SDB7 BPM SD42 SX5 SD5 Q6 SD7 ...
457	BEND SD7 Q4 SD8 SX3 SDB3 ...
458	BPM SD9a Q5 SD12 ...
459	SX4 SDB4 BPM SD10a Q5 SD93 ...
460	BPM SD42 SX3 SD8 Q4 SD7 ...
461	BEND SD6 SX2 SD5 Q3 SD141 ...
462	BPM SDB18 Q2 SD3 SX1 SD2 Q1 ...
463	SDC22 BPM];
464
465	%THE STORAGE RING
466	ELIST = [...
467	DEBUT ...
468	SECT1 SDL01d SUP1 ...
469	SECT2 SDL05 SUP2 ...
470	SECT3 SDL09 SUP3 ...
471	SECT4 SDL13 SUP4 SDL01u ...
472	FIN];
473
474	buildlat(ELIST);
475
476	% Set all magnets to same energy
477	THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
478
479	evalin('caller','global THERING FAMLIST GLOBVAL');
480	atsummary;
481
482	if nargout
483	varargout{1} = THERING;
484	end

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lat_2020_3170e.m

Download in other formats: