source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lat_betaz_1m_sdc_122BPM.m @ 17

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

To have a stable version on the server.
  • Property svn:executable set to *
File size: 22.8 KB
Line 
1function varargout = lat_1990_3170_122BPM
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% July 2009 - Add PX2 Chicane
35% Novembre 2010 - S11 added, QT0 removed
36% 18 April 2011 - Tunes update 0.2017,  0.3169 moved 0.1990  0.3169
37% 29 Mai 2011 - Add Scrapers + straight sections
38% July 2011 - Add PX2 as rbend, Nanoscopium, new circumference 354.09702 m
39% (200 um larger)
40
41global FAMLIST THERING GLOBVAL
42
43GLOBVAL.E0 = 2.7391e9; % Ring energy
44GLOBVAL.LatticeFile = mfilename;
45FAMLIST = cell(0);
46
47disp(['** Loading SOLEIL magnet lattice ', mfilename]);
48
49L0 = 3.540970204203009e+02;% design length [m]
50C0 = 2.99792458e8;           % speed of light [m/s]
51HarmNumber = 416;
52
53%% RF Cavity
54%              NAME   L     U[V]       f[Hz]          h        method
55CAV = rfcavity('RF' , 0.0 , 4.0e+6 , HarmNumber*C0/L0, HarmNumber ,'CavityPass');
56
57%% Marker and apertures
58SECT1  =  marker('SECT1', 'IdentityPass');
59SECT2  =  marker('SECT2', 'IdentityPass');
60SECT3  =  marker('SECT3', 'IdentityPass');
61SECT4  =  marker('SECT4', 'IdentityPass');
62DEBUT  =  marker('DEBUT', 'IdentityPass');
63FIN    =  marker('FIN', 'IdentityPass');
64
65%% SCRAPER
66HSCRAP =  marker('HSCRAP', 'IdentityPass');
67VSCRAP =  marker('VSCRAP', 'IdentityPass');
68
69%INJ = aperture('INJ',[-0.035 0.035 -0.0125 0.0125]*100,'AperturePass');
70
71%% Elements in Injection section
72PtINJ = marker('PtINJ', 'IdentityPass');
73K1 = corrector('K1',0.0,[0 0],'CorrectorPass');
74K2 = corrector('K2',0.0,[0 0],'CorrectorPass');
75K3 = corrector('K3',0.0,[0 0],'CorrectorPass');
76K4 = corrector('K4',0.0,[0 0],'CorrectorPass');
77
78%% BPM
79BPM    =  marker('BPM', 'IdentityPass');
80
81%% QUADRUPOLES (compensation de l'effet des defauts de focalisation des
82LQC = 0.180100E+00*2 ;
83LQL = 0.248100E+00*2 ;
84
85QPassMethod = 'StrMPoleSymplectic4Pass';
86
87Q1   =  quadrupole('Q1' , LQC, -1.074062, QPassMethod);
88Q2   =  quadrupole('Q2' , LQL,  1.631254, QPassMethod);
89Q3   =  quadrupole('Q3' , LQC, -0.6329217,QPassMethod);
90Q4   =  quadrupole('Q4' , LQC, -1.327183, QPassMethod);
91Q5   =  quadrupole('Q5' , LQC,  1.731278, QPassMethod);
92Q6   =  quadrupole('Q6' , LQC, -0.9851412, QPassMethod);
93Q7   =  quadrupole('Q7' , LQL,  1.904923, QPassMethod);
94Q8   =  quadrupole('Q8' , LQC, -1.126787, QPassMethod);
95Q9   =  quadrupole('Q9' , LQC, -1.667109, QPassMethod);
96Q10  =  quadrupole('Q10', LQC,  1.790258, QPassMethod);
97Q11  =  quadrupole('Q11', LQC,  -1.0000000E-10, QPassMethod); % to be drawn by drawlattice
98Q12  =  quadrupole('Q12', LQL,   1.0000000E-10, QPassMethod);
99
100
101%% SEXTUPOLES CHROMATICITES NULLES dans TracyII
102%avec defauts de focalisation des dipoles
103%P. Brunelle 02/05/06
104F = 1e8;
105Finv = 1/F;
106SPassMethod = 'StrMPoleSymplectic4Pass';
107
108S1  =  sextupole('S1' , Finv,  0.2290969*5*F, SPassMethod);
109S2  =  sextupole('S2' , Finv, -0.5041105*5*F, SPassMethod);
110S3  =  sextupole('S3' , Finv, -0.4768036*5*F, SPassMethod);
111S4  =  sextupole('S4' , Finv,  0.6779787*5*F, SPassMethod);
112S5  =  sextupole('S5' , Finv, -0.8009117*5*F, SPassMethod);
113S6  =  sextupole('S6' , Finv,  0.7316421*5*F, SPassMethod);
114S7  =  sextupole('S7' , Finv, -0.9622986*5*F, SPassMethod);
115S8  =  sextupole('S8' , Finv,  0.9125886*5*F, SPassMethod);
116S9  =  sextupole('S9' , Finv, -0.5327715*5*F, SPassMethod);
117S10 =  sextupole('S10', Finv,  0.3275514*5*F, SPassMethod);
118S11 =  sextupole('S11', Finv,  0.2290969*5*F, SPassMethod);
119S12 =  sextupole('S12', Finv,  1.000E-10*F, SPassMethod); % to be drawn by drawlattice
120
121%% Skew quadrupoles
122SQPassMethod = 'StrMPoleSymplectic4Pass';
123QT  =  skewquad('SkewQuad', 1e-8, 0.0, SQPassMethod);
124QTPX2    =  skewquad('QTPX2', 1e-10, 0.0, 'StrMPoleSymplectic4Pass'); % PX2
125
126%% Slow feedback correctors
127COR =  corrector('COR',0.0,[0 0],'CorrectorPass');
128
129%% Machine study kickers
130KEMH =  corrector('KEMH',0.0,[0 0],'CorrectorPass');
131KEMV =  corrector('KEMV',0.0,[0 0],'CorrectorPass');
132
133%% PX2C H-correctors
134PX2 =  corrector('PX2C',0.0,[0 0],'CorrectorPass');
135CHIPX2D1 = rbend2('PX2', 0.026, -2.25e-3,  0.00e-3, -2.25e-3, 0,0,'BndMPoleSymplectic4Pass');
136CHIPX2D2 = rbend2('PX2', 0.052,  4.50e-3, -2.25e-3,  2.25e-3, 0,0,'BndMPoleSymplectic4Pass');
137CHIPX2D3 = rbend2('PX2', 0.026, -2.25e-3,  2.25e-3,  0.00e-3, 0,0,'BndMPoleSymplectic4Pass');
138PX2C= [QTPX2 PX2];
139
140%% Chicane magnets for nanoscopium
141CHINANO   = corrector('NANOC',0.0,[0 0],'CorrectorPass'); % tuning magnet
142CHINANOD1   =  rbend2('NANO', 0.069, -0.50e-3,  0.00e-3, -0.50e-3, 0,0,'BndMPoleSymplectic4Pass');
143CHINANOD2   =  rbend2('NANO', 0.069, -5.38e-3, -0.50e-3, -5.88e-3, 0,0,'BndMPoleSymplectic4Pass');
144CHINANOD3   =  rbend2('NANO', 0.138, 11.88e-3, -5.88e-3, +6.00e-3, 0,0,'BndMPoleSymplectic4Pass');
145CHINANOD4   =  rbend2('NANO', 0.069, -6.00e-3,  6.00e-3,  0.00e-3, 0,0,'BndMPoleSymplectic4Pass');
146
147%% HU640
148HCMHU640 =  corrector('HCMHU640',0.0,[0 0],'CorrectorPass');
149VCMHU640 =  corrector('VCMHU640',0.0,[0 0],'CorrectorPass');
150
151%% Fast feedback correctors
152FCOR =  corrector('FCOR',0.0,[0 0],'CorrectorPass');
153
154%% Feedforward correctors
155FFWDCOR =  corrector('FFWDCOR',0.0,[0 0],'CorrectorPass');
156
157%% Slow correctors in sextupole magnets
158SX1   = [S1  COR  QT];
159SX2   = [S2  COR  QT];
160SX3   = [S3  COR  QT];
161SX4   = [S4  COR  QT];
162SX5   = [S5  COR  QT];
163SX6   = [S6  COR  QT];
164SX7   = [S7  COR  QT];
165SX8   = [S8  COR  QT];
166SX9   = [S9  COR  QT];
167SX10  = [S10 COR  QT];
168SX11  = [S11 COR  QT];
169SX12  = [S12 COR  QT];
170
171
172%% DIPOLES
173% {** 1.3815 factor to fit with BETA ??? strange **}
174%theta = 2*pi/32;
175%fullgap = 0.105*0.724*2/6*1.3815*0.;
176% BEND  =  rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
177%                 fullgap,'BendLinearFringeTiltPass');
178theta = 2*pi/32;
179%theta2 = theta/2;
180thetae = theta/2 - 0.6e-3;
181thetas = theta/2 + 0.9e-3;
182K = 0.00204;
183fullgap = 0.037*0.724*2;
184%BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
185BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BndMPoleSymplectic4Pass');
186
187%% IDS
188% file='/Users/nadolski/Documents/Travail/codes/tracy/maille/soleil/w50/kick_w50_g55_p60.txt';  % made with RADIA
189% nslice=10;
190% [SWSV50 SWSV50Length] = idtable('SWSV50', nslice,file, (GLOBVAL.E0)/1e9,'IdTablePass');
191%
192% SDWSV50 = drift('SDWSV50',  3.141452-SWSV50Length/2, 'DriftPass');
193
194
195%% DRIFT SPACES
196
197SD1a = drift('SD1a',  1.4125, 'DriftPass');
198SD1b = drift('SD1b',  0.7575, 'DriftPass');
199SD2 = drift('SD2',  0.369900, 'DriftPass');
200SD3 = drift('SD3',   0.181900, 'DriftPass');
201SD5 = drift('SD5',  0.179900, 'DriftPass');
202SD6 = drift('SD6',  0.79000, 'DriftPass');
203SD7 = drift('SD7',  0.419900, 'DriftPass');
204SD8 = drift('SD8',  0.1799000, 'DriftPass');
205SD12= drift('SD12', 0.44990, 'DriftPass');
206SD12u= drift('SD12', 0.2, 'DriftPass'); % upstream V V-scraper % TO BE UPDATED
207SD12d= drift('SD12', 0.44990-0.2, 'DriftPass'); % downstream H-scraper
208SD1d = drift('SD1d',  0.5170, 'DriftPass');
209SD14a = drift('SD14a', 0.38500000, 'DriftPass');
210SD9a = drift('SD9a',  0.204200  , 'DriftPass');
211SD10a = drift('SD10a', 0.172300 , 'DriftPass');
212SDAC1 = drift('SDAC1', 1.48428  , 'DriftPass');
213SD13a= drift('SD13a', 3.141452  , 'DriftPass');
214SD1e = drift('SD1e',  5.6589, 'DriftPass');
215SD1c1 = drift('SD1c1',  0.8410, 'DriftPass'); % K3 - FCOR
216SD1c2 = drift('SD1c2',  0.601, 'DriftPass');  % FCOR KEMH
217SD1c3u= drift('SD1c3u', 0.683, 'DriftPass');  % KEMH - VSCRAPER
218SD1c3d= drift('SD1c3u', 1.560-0.683, 'DriftPass');  % VSCRAPER - K4
219SD91 = drift('SD91',  0.251240, 'DriftPass');
220SD41 = drift('SD41',  0.2521, 'DriftPass');
221SD42 = drift('SD42',  0.205, 'DriftPass');
222SD92 = drift('SD92',  0.204300, 'DriftPass');
223SD93 = drift('SD93',  0.251300  , 'DriftPass');
224SD43 = drift('SD43', 0.2051     , 'DriftPass');
225SD141 = drift('SD141', 0.431900, 'DriftPass');
226SDB1 = drift('SDB1', 0.29100, 'DriftPass');
227SDB2 = drift('SDB2', 0.16680000, 'DriftPass');
228SDB3 = drift('SDB3', 0.252,  'DriftPass');
229SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
230SDB5 = drift('SDB5', 0.205  ,'DriftPass');
231SDB6 = drift('SDB6', 0.119800 ,'DriftPass');
232SDB7 = drift('SDB7', 0.166900 , 'DriftPass');
233SDB8 = drift('SDB8', 0.252 , 'DriftPass');
234SDB9 = drift('SDB9', 0.119800 ,'DriftPass');
235SDB10= drift('SDB10',0.166900 , 'DriftPass');
236SDB11= drift('SDB11',0.2519, 'DriftPass');
237SDB12= drift('SDB12',0.2049, 'DriftPass');
238SDB13= drift('SDB13',0.119800, 'DriftPass');
239SDB14= drift('SDB14',0.1668000, 'DriftPass');
240SDB15= drift('SDB15',0.252 , 'DriftPass');
241SDB17= drift('SDB17',0.205 , 'DriftPass');
242SDB18= drift('SDB18',0.1199000 , 'DriftPass');
243SDC1 = drift('SDC1' , 0.241900 ,  'DriftPass');
244SDC2 = drift('SDC2' , 0.079 ,  'DriftPass');
245SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
246SDC4 = drift('SDC4' , 0.3358,  'DriftPass');
247SDC5 = drift('SDC5' , 0.0846,  'DriftPass');
248SDC6 = drift('SDC6' , 0.079,   'DriftPass');
249SDC7 = drift('SDC7' , 0.342 ,  'DriftPass');
250SDC8 = drift('SDC8' , 0.241900 ,  'DriftPass');
251SDC9 = drift('SDC9' , 0.079  , 'DriftPass');
252DRFT10= drift('DRFT10',0.07845, 'DriftPass');
253DRFT11= drift('DRFT11',0.2419000  , 'DriftPass');
254DRFT12= drift('DRFT12',0.3358 , 'DriftPass');
255DRFT13= drift('DRFT13',0.0846 , 'DriftPass');
256DRFT14= drift('DRFT14',0.0788 , 'DriftPass');
257DRFT15= drift('DRFT15',0.3422 , 'DriftPass');
258DRFT16= drift('DRFT16',0.241900  , 'DriftPass');
259DRFT17= drift('DRFT17',0.079  , 'DriftPass');
260DRFT18= drift('DRFT18',0.07845, 'DriftPass');
261DRFT19= drift('DRFT19',0.24190  , 'DriftPass');
262SDC20= drift('SDC20',0.241900  , 'DriftPass');
263SDC21= drift('SDC21',0.079  , 'DriftPass');
264SDC22= drift('SDC22',0.29090  , 'DriftPass');
265SDC24= drift('SDC24',1.379  , 'DriftPass');
266%SDC23a= drift('SDC23a',0.632  , 'DriftPass'); % BPM - K1
267SDC23b= drift('SDC23b',1.983  , 'DriftPass'); % K1 - KEMV
268SDC23c= drift('SDC23c',1.019  , 'DriftPass'); % KEMV - K2
269SDC23d= drift('SDC23d',0.676  , 'DriftPass'); % K2 - FCOR
270SDC23e= drift('SDC23a',0.147  , 'DriftPass'); % BPM - FCOR [1 1]
271SDC23f= drift('SDC23a',0.485  , 'DriftPass'); % FCOR [1 1] next SD
272
273% HU640 straight section
274SDHU640a = drift('SDHU640a',  1.7394, 'DriftPass');
275SDHU640b = drift('SDHU640b',  0.6400, 'DriftPass');
276SDHU640c = drift('SDHU640c',  3.2795, 'DriftPass');
277SDHU640d = drift('SDHU640d',  3.1195, 'DriftPass');
278SDHU640e = drift('SDHU640e',  0.6400, 'DriftPass');
279SDHU640f = drift('SDHU640f',  1.8994, 'DriftPass');
280
281% PX2 straights
282SDPX2a= drift('SDPX2a', 0.363902-FAMLIST{CHIPX2D1}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.1
283SDPX2b= drift('SDPX2b', 2.857550-FAMLIST{CHIPX2D1}.ElemData.Length/2-FAMLIST{CHIPX2D2}.ElemData.Length/2, 'DriftPass'); % CHI.1 - CHI.2
284SDPX2c= drift('SDPX2c', 0.203902-FAMLIST{CHIPX2D1}.ElemData.Length/2, 'DriftPass'); % CHI.3 - BPM
285
286% Nanoscopium straigths (upstream)
287SDNANO1 = drift('SDNANO1',  0.4501-FAMLIST{CHINANOD1}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.1
288SDNANO2 = drift('SDNANO2',  0.5529-FAMLIST{CHINANOD1}.ElemData.Length/2, 'DriftPass'); % CHI.1 - FFWDCOR
289SDNANO3 = drift('SDNANO3',  2.5630, 'DriftPass'); % FFWDCOR - FFWDCOR
290SDNANO4 = drift('SDNANO4',  0.4330-FAMLIST{CHINANOD2}.ElemData.Length/2, 'DriftPass'); % FFWDCOR - CHI.2
291SDNANO5 = drift('SDNANO5',  0.2683-FAMLIST{CHINANOD2}.ElemData.Length/2, 'DriftPass'); % CHI.2 - BPM
292SDNANO6 = drift('SDNANO6',  0.0780, 'DriftPass'); % BPM - FCOR
293SDNANO6a= drift('SDNANO6a', 0.5017-0.0780-FAMLIST{Q11}.ElemData.Length/2, 'DriftPass'); % BPM - Q11.1
294SDNANO7 = drift('SDNANO7',  0.4100-FAMLIST{Q11}.ElemData.Length/2-FAMLIST{S12}.ElemData.Length/2, 'DriftPass'); % Q11.1 - S12
295SDNANO8 = drift('SDNANO8',  0.4800-FAMLIST{Q12}.ElemData.Length/2-FAMLIST{S12}.ElemData.Length/2, 'DriftPass'); % S12 - Q11
296% Nanoscopium straigths (downstream)
297SDNANO9 = drift('SDNANO9',  0.4628-0.0780-FAMLIST{Q11}.ElemData.Length/2, 'DriftPass'); % Q11.2 - FOFB
298SDNANO10= drift('SDNANO10', 0.3072-FAMLIST{CHINANOD3}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.3
299SDNANO11= drift('SDNANO11', 0.4330-FAMLIST{CHINANOD3}.ElemData.Length/2, 'DriftPass'); % FFWDCOR - FFWDCOR
300
301
302%% STRAIGHT SECTIONS (between BPMs)
303% 4 long straight sections (12 m, available part 10.50 m)
304
305%SDL01 (injection) is split in upstream and downstrem parts
306SDL01d = [SD1a   PtINJ   SD1b   K3  SD1c1 FCOR  SD1c2  KEMH SD1c3u VSCRAP SD1c3d   K4     SD1d];
307SDL01u = [SDC23e  FCOR SDC23f K1 SDC23b KEMV SDC23c K2 SDC23d SDC24];
308% SDL05 HU640 straight section
309HU640upstream   = [SDHU640a VCMHU640 SDHU640b HCMHU640 SDHU640c];
310HU640downstream = [SDHU640d HCMHU640 SDHU640e VCMHU640 SDHU640f];
311SDL05  = [HU640upstream HU640downstream]; % DESIRS HU640
312SDL09  = [SD1e SD1e];
313% TOMOGRAPHY U18 CRYO + NANOSCOPIUM U20
314SDL13u  = [SDNANO1 CHINANO CHINANOD1 SDNANO2 FFWDCOR SDNANO3 FFWDCOR SDNANO4 CHINANOD2 CHINANO SDNANO5 ...
315           BPM SDNANO6 FCOR SDNANO6a Q11 SDNANO7 SX12 SDNANO8];
316SDL13d  = [SDNANO8 SX12 SDNANO7 Q11 SDNANO9 FCOR SDNANO6 BPM  ...
317           SDNANO10 CHINANO CHINANOD3 SDNANO11 FFWDCOR SDNANO3 FFWDCOR SDNANO2 CHINANOD4 CHINANO SDNANO1];
318SDL13 = [SDL13u Q12 SDL13d];
319%SDL13  = [SD1e SD1e]; % NANOSCOPIUM U20 + TOMOGRAPHY U18 CRYO
320
321% 12 medium straigt sections (7 m, available part for IDs 5.46 m)
322SDM02 = [SD13a CAV SD13a]; % CRYOMODULE #2
323SDM03 = [SD13a SD13a]; % CRYOMUDULE #1 not put in the model for simplicity
324SDM04 = [SD13a SD13a]; % PLEIADES HU256 + HU80
325SDM06 = [SD13a SD13a]; % PUMA future Wiggler
326%SDM06 = [SDWSV50 SWSV50 SDWSV50]; % PUMA future Wiggler
327SDM07 = [SD13a SD13a]; % DEIMOS HU52+EMPHU65
328SDM08 = [SD13a SD13a]; % TEMPO HU80+HU44
329SDM10 = [SD13a SD13a]; % HERMES HU64+HU42
330SDM11 = [SDPX2a PX2C CHIPX2D1 SDPX2b PX2C CHIPX2D2 SDPX2b CHIPX2D3 PX2C SDPX2c]; % PX2 U24
331SDM12 = [SD13a SD13a]; % ANTARES HU256 + HU60
332SDM14 = [SD13a SD13a]; % SEXTANTS (ex microFocus) HU44 + HU80
333SDM15 = [SD13a SD13a]; % CASSIOPEE HU256 + HU80
334SDM16 = [SD13a SD13a]; % LUCIA HU52
335
336% 8 short straigt sections (3.6 m, available part for IDs 2.8 m)
337SDC02 = [SDAC1 SDAC1];% LIGNE ALPHA
338SDC03 = [SDAC1 SDAC1];% PSICHE WSV50
339SDC06 = [SDAC1 SDAC1];% CRISTAL U20
340SDC07 = [SDAC1 SDAC1];% GALAXIES U20
341SDC10 = [SDAC1 SDAC1];% PX1 U20
342SDC11 = [SDAC1 SDAC1];% SWING U20
343SDC14 = [SDAC1 SDAC1];% SIXS U20
344SDC15 = [SDAC1 SDAC1];% SIRIUS HU34
345
346
347%% Lattice
348% Superperiods
349
350% SUPERPERIOD #1
351SUP1  = [...
352    BPM  SDB1   Q1     SD2    SX1   SD3     Q2 ...
353    SDB2  BPM    SD14a   Q3      SD5    SX2    SD6 ...
354    BEND    SD7     Q4  SD8     SX3    ...
355    SDB3  BPM     SD9a   Q5     SD12u HSCRAP SD12d  SX4 ...
356    SDB4  BPM     SD10a    Q5     SD91     ...
357    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
358    SD7     Q6      SD5    SX5     SD41    ...
359    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
360    SDC1 FCOR SDC2   BPM    SDM02 BPM ...
361    SDC3    FCOR   SDC1 ...
362    Q8      SD2    SX8     SD3    Q7  SDB7 ...
363    BPM   SD42     SX7      SD5     Q6     SD7 ...
364    BEND   SD7    Q9    SD8     SX9  SDB8 ...
365    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
366    FCOR SDC5  BPM   SDC02 ...
367    BPM   SDC6  FCOR  SDC7 SX10    SD8    Q10    SD91 ...
368    BPM   SD42  SX9      SD8     Q9     SD7    ...
369    BEND   SD7    Q6    SD5     SX7    SD41   ...
370    BPM  SDB9  Q7      SD3    SX8    SD2   Q8 SDC8 ...
371    FCOR  SDC9  BPM     SDM03  ...
372    BPM  DRFT10   FCOR  DRFT11  Q8     SD2   SX8   SD3   Q7 ...
373    SDB10  BPM   SD42    SX7    SD5   Q6      SD7  ...
374    BEND    SD7     Q9     SD8     SX9  SDB11    ...
375    BPM    SD92   Q10     SD8     SX10 DRFT12 ...
376    FCOR  DRFT13  BPM    SDC03   ...
377    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
378    BPM  SDB12  SX9    SD8   Q9      SD7 ...
379    BEND    SD7    Q6      SD5    SX7    SD41 ...
380    BPM  SDB13   Q7      SD3    SX8     SD2    Q8  DRFT16 ...
381    FCOR DRFT17  BPM    SDM04   ...
382    BPM   DRFT18  FCOR  DRFT19   Q8     SD2     SX6    SD3    Q7 ...
383    SDB14  BPM    SD43    SX5     SD5    Q6      SD7    ...
384    BEND   SD7   Q4      SD8     SX3  SDB15 ...
385    BPM     SD9a   Q5      SD12   ...
386    SX4  SDB4  BPM     SD10a Q5     SD93 ...
387    BPM  SDB17  SX3     SD8    Q4     SD7   ...
388    BEND    SD6     SX2      SD5     Q3     SD141 ...
389    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
390    SDC20 FCOR  SDC21 BPM];
391
392% SUPERPERIOD #2
393SUP2  = [  ...
394    BPM SDC2 FCOR SDC1   ...
395    Q1     SD2    SX1   SD3     Q2 ...
396    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
397    BEND    SD7     Q4  SD8     SX3    ...
398    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
399    SDB4  BPM     SD10a    Q5     SD93     ...
400    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
401    SD7     Q6      SD5    SX5     SD41    ...
402    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
403    SDC1 FCOR SDC2   BPM    SDM06  BPM ...
404    SDC2    FCOR   SDC1 ...
405    Q8      SD2    SX8     SD3    Q7  SDB7 ...
406    BPM   SDB5     SX7      SD5     Q6     SD7 ...
407    BEND   SD7    Q9    SD8     SX9  SDB3 ...
408    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
409    FCOR SDC5  BPM   SDC06 ...
410    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
411    BPM   SDB12  SX9      SD8     Q9     SD7    ...
412    BEND   SD7    Q6    SD5     SX7    SD41   ...
413    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
414    FCOR  SDC2  BPM     SDM07  ...
415    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
416    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
417    BEND    SD7     Q9     SD8     SX9   SDB3    ...
418    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
419    FCOR  SDC5  BPM    SDC07   ...
420    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
421    BPM  SDB12  SX9    SD8   Q9      SD7 ...
422    BEND    SD7    Q6      SD5    SX7    SD41 ...
423    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
424    FCOR SDC2  BPM    SDM08   ...
425    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
426    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
427    BEND   SD7   Q4      SD8     SX3  SDB3 ...
428    BPM     SD9a   Q5      SD12   ...
429    SX4   SDB4  BPM     SD10a   Q5     SD93 ...
430    BPM  SD42  SX3     SD8    Q4     SD7   ...
431    BEND    SD6     SX2      SD5     Q3     SD141 ...
432    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
433    SDC1 FCOR  SDC2   BPM];
434
435% SUPERPERIOD #3
436SUP3  = [  ...
437    BPM SDC2 FCOR SDC1   ...
438    Q1     SD2    SX1   SD3     Q2 ...
439    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
440    BEND    SD7     Q4  SD8     SX3    ...
441    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
442    SDB4  BPM     SD10a    Q5     SD93     ...
443    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
444    SD7     Q6      SD5    SX5     SD41    ...
445    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
446    SDC1 FCOR SDC2   BPM    SDM10  BPM ...
447    SDC2    FCOR   SDC1 ...
448    Q8      SD2    SX8     SD3    Q7  SDB7 ...
449    BPM   SDB5     SX7      SD5     Q6     SD7 ...
450    BEND   SD7    Q9    SD8     SX9  SDB3 ...
451    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
452    FCOR SDC5  BPM   SDC10 ...
453    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
454    BPM   SDB12  SX9      SD8     Q9     SD7    ...
455    BEND   SD7    Q6    SD5     SX7    SD41   ...
456    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
457    FCOR  SDC2  BPM     SDM11  ...
458    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
459    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
460    BEND    SD7     Q9     SD8     SX9   SDB3    ...
461    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
462    FCOR  SDC5  BPM    SDC11   ...
463    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
464    BPM  SDB12  SX9    SD8   Q9      SD7 ...
465    BEND    SD7    Q6      SD5    SX7    SD41 ...
466    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
467    FCOR SDC2  BPM    SDM12   ...
468    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
469    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
470    BEND   SD7   Q4      SD8     SX3  SDB3 ...
471    BPM     SD9a   Q5      SD12   ...
472    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
473    BPM  SD42  SX3     SD8    Q4     SD7   ...
474    BEND    SD6     SX2      SD5     Q3     SD141 ...
475    BPM  SDB18  Q2     SD3   SX11     SD2     Q1 ...
476    SDC1 FCOR  SDC2   BPM];
477
478% SUPERPERIOD #4
479SUP4  = [  ...
480    BPM SDC2 FCOR SDC1   ...
481    Q1     SD2    SX11   SD3     Q2 ...
482    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
483    BEND    SD7     Q4  SD8     SX3    ...
484    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
485    SDB4  BPM     SD10a    Q5     SD93     ...
486    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
487    SD7     Q6      SD5    SX5     SD41    ...
488    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
489    SDC1 FCOR SDC2   BPM    SDM14  BPM ...
490    SDC2    FCOR   SDC1 ...
491    Q8      SD2    SX8     SD3    Q7  SDB7 ...
492    BPM   SDB5     SX7      SD5     Q6     SD7 ...
493    BEND   SD7    Q9    SD8     SX9  SDB3 ...
494    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
495    FCOR SDC5  BPM   SDC14 ...
496    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
497    BPM   SDB12  SX9      SD8     Q9     SD7    ...
498    BEND   SD7    Q6    SD5     SX7    SD41   ...
499    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
500    FCOR  SDC2  BPM     SDM15  ...
501    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
502    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
503    BEND    SD7     Q9     SD8     SX9   SDB3    ...
504    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
505    FCOR  SDC5  BPM    SDC15   ...
506    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
507    BPM  SDB12  SX9    SD8   Q9      SD7 ...
508    BEND    SD7    Q6      SD5    SX7    SD41 ...
509    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
510    FCOR SDC2  BPM    SDM16   ...
511    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
512    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
513    BEND   SD7   Q4      SD8     SX3  SDB3 ...
514    BPM     SD9a   Q5      SD12   ...
515    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
516    BPM  SD42  SX3     SD8    Q4     SD7   ...
517    BEND    SD6     SX2      SD5     Q3     SD141 ...
518    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
519    SDC22 BPM];
520
521%THE STORAGE RING
522ELIST = [...
523    DEBUT ...
524    SECT1 SDL01d SUP1 ...
525    SECT2 SDL05 SUP2 ...
526    SECT3 SDL09 SUP3 ...
527    SECT4 SDL13 SUP4 SDL01u  ...
528    FIN];
529
530buildlat(ELIST);
531
532% Set all magnets to same energy
533THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
534
535evalin('caller','global THERING FAMLIST GLOBVAL');
536atsummary;
537
538if nargout
539    varargout{1} = THERING;
540end
Note: See TracBrowser for help on using the repository browser.