source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lat_nano_122BPM.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: 24.1 KB
Line 
1function varargout = lat_nano_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,  -0.1160155E+01, QPassMethod);
88Q2   =  quadrupole('Q2' , LQL,   0.1685354E+01, QPassMethod);
89Q3   =  quadrupole('Q3' , LQC,  -0.6945082E+00, QPassMethod);
90Q4   =  quadrupole('Q4' , LQC,  -0.1208482E+01, QPassMethod);
91Q5   =  quadrupole('Q5' , LQC,   0.1699720E+01, QPassMethod);
92Q6   =  quadrupole('Q6' , LQC,  -0.1175045E+01, QPassMethod);
93Q7   =  quadrupole('Q7' , LQL,  0.2019414E+01, QPassMethod);
94Q8   =  quadrupole('Q8' , LQC, -0.1328200E+01, QPassMethod);
95Q9   =  quadrupole('Q9' , LQC, -0.1383039E+01, QPassMethod);
96Q10  =  quadrupole('Q10', LQC,  0.1736806E+01, QPassMethod);
97Q11  =  quadrupole('Q11', LQC, -0.1700926E+01, QPassMethod);
98Q12  =  quadrupole('Q12', LQL,  0.1700188E+01, QPassMethod);
99
100%% SEXTUPOLES CHROMATICITES NULLES dans TracyII
101%avec defauts de focalisation des dipoles
102%P. Brunelle 02/05/06
103F = 1e8;
104Finv = 1/F;
105SPassMethod = 'StrMPoleSymplectic4Pass';
106
107S1  =  sextupole('S1' , Finv,  0.300*5*F, SPassMethod);
108S2  =  sextupole('S2' , Finv, -0.715*5*F, SPassMethod);
109S3  =  sextupole('S3' , Finv, -0.338*5*F, SPassMethod);
110S4  =  sextupole('S4' , Finv,  0.697*5*F, SPassMethod);
111S5  =  sextupole('S5' , Finv, -0.672*5*F, SPassMethod);
112S6  =  sextupole('S6' , Finv,  0.667*5*F, SPassMethod);
113S7  =  sextupole('S7' , Finv, -0.992*5*F, SPassMethod);
114S8  =  sextupole('S8' , Finv,  0.778*5*F, SPassMethod);
115S9  =  sextupole('S9' , Finv, -0.791*5*F, SPassMethod);
116S10 =  sextupole('S10', Finv,  0.468*5*F, SPassMethod);
117S11 =  sextupole('S11', Finv,  1.71919*F, SPassMethod);
118S12 =  sextupole('S12', Finv,  1.000E-10*F, SPassMethod); % to be drawn by drawlattice
119
120%% Skew quadrupoles
121SQPassMethod = SPassMethod;
122QT  =  skewquad('SkewQuad', 1e-8, 0.0, SQPassMethod);
123QTPX2    =  skewquad('QTPX2', 1e-10, 0.0, SPassMethod); % PX2
124
125%% Slow feedback correctors
126COR =  corrector('COR',0.0,[0 0],'CorrectorPass');
127
128%% Machine study kickers
129KEMH =  corrector('KEMH',0.0,[0 0],'CorrectorPass');
130KEMV =  corrector('KEMV',0.0,[0 0],'CorrectorPass');
131
132%% PX2C H-correctors
133% Tuners
134PX2 =  corrector('PX2C',0.0,[0 0],'CorrectorPass');
135% Main magnets
136CHIPX2D1 = rbend2('PX2', 0.026, -2.25e-3,  0.00e-3, -2.25e-3, 0,0,'BndMPoleSymplectic4Pass');
137CHIPX2D2 = rbend2('PX2', 0.052,  4.50e-3, -2.25e-3,  2.25e-3, 0,0,'BndMPoleSymplectic4Pass');
138CHIPX2D3 = rbend2('PX2', 0.026, -2.25e-3,  2.25e-3,  0.00e-3, 0,0,'BndMPoleSymplectic4Pass');
139PX2C= [QTPX2 PX2];
140
141%% NANOC magnets for nanoscopium
142% Tuners
143CHINANO   = corrector('NANOC',0.0,[0 0],'CorrectorPass'); % tuning magnet
144% Main magnets
145CHINANOD1   =  rbend2('NANO', 0.069, -0.50e-3,  0.00e-3, -0.50e-3, 0,0,'BndMPoleSymplectic4Pass');
146CHINANOD2   =  rbend2('NANO', 0.069, -5.38e-3, -0.50e-3, -5.88e-3, 0,0,'BndMPoleSymplectic4Pass');
147CHINANOD3   =  rbend2('NANO', 0.138, 11.88e-3, -5.88e-3, +6.00e-3, 0,0,'BndMPoleSymplectic4Pass');
148CHINANOD4   =  rbend2('NANO', 0.069, -6.00e-3,  6.00e-3,  0.00e-3, 0,0,'BndMPoleSymplectic4Pass');
149
150%% HU640
151HCMHU640 =  corrector('HCMHU640',0.0,[0 0],'CorrectorPass');
152VCMHU640 =  corrector('VCMHU640',0.0,[0 0],'CorrectorPass');
153
154%% Fast feedback correctors
155FCOR =  corrector('FCOR',0.0,[0 0],'CorrectorPass');
156
157%% Feedforward correctors
158FFWDCOR =  corrector('FFWDCOR',0.0,[0 0],'CorrectorPass');
159
160%% Slow correctors in sextupole magnets
161SX1   = [S1  COR  QT];
162SX2   = [S2  COR  QT];
163SX3   = [S3  COR  QT];
164SX4   = [S4  COR  QT];
165SX5   = [S5  COR  QT];
166SX6   = [S6  COR  QT];
167SX7   = [S7  COR  QT];
168SX8   = [S8  COR  QT];
169SX9   = [S9  COR  QT];
170SX10  = [S10 COR  QT];
171SX11  = [S11 COR  QT];
172SX12  = [S12 COR  QT];
173
174
175%% DIPOLES
176% {** 1.3815 factor to fit with BETA ??? strange **}
177%theta = 2*pi/32;
178%fullgap = 0.105*0.724*2/6*1.3815*0.;
179% BEND  =  rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
180%                 fullgap,'BendLinearFringeTiltPass');
181theta = 2*pi/32;
182%theta2 = theta/2;
183thetae = theta/2 - 0.6e-3;
184thetas = theta/2 + 0.9e-3;
185K = 0.00204;
186fullgap = 0.037*0.724*2;
187%BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
188BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BndMPoleSymplectic4Pass');
189
190%% IDS
191% file='/Users/nadolski/Documents/Travail/codes/tracy/maille/soleil/w50/kick_w50_g55_p60.txt';  % made with RADIA
192% nslice=10;
193% [SWSV50 SWSV50Length] = idtable('SWSV50', nslice,file, (GLOBVAL.E0)/1e9,'IdTablePass');
194%
195% SDWSV50 = drift('SDWSV50',  3.141452-SWSV50Length/2, 'DriftPass');
196
197
198%% DRIFT SPACES
199
200SD1a = drift('SD1a',  1.4125, 'DriftPass');
201SD1b = drift('SD1b',  0.7575, 'DriftPass');
202SD2 = drift('SD2',  0.369900, 'DriftPass');
203SD3 = drift('SD3',   0.181900, 'DriftPass');
204SD5 = drift('SD5',  0.179900, 'DriftPass');
205SD6 = drift('SD6',  0.79000, 'DriftPass');
206SD7 = drift('SD7',  0.419900, 'DriftPass');
207SD8 = drift('SD8',  0.1799000, 'DriftPass');
208SD12= drift('SD12', 0.44990, 'DriftPass');
209SD12u= drift('SD12', 0.2, 'DriftPass'); % upstream V V-scraper % TO BE UPDATED
210SD12d= drift('SD12', 0.44990-0.2, 'DriftPass'); % downstream H-scraper
211SD1d = drift('SD1d',  0.5170, 'DriftPass');
212SD14a = drift('SD14a', 0.38500000, 'DriftPass');
213SD9a = drift('SD9a',  0.204200  , 'DriftPass');
214SD10a = drift('SD10a', 0.172300 , 'DriftPass');
215SDAC1 = drift('SDAC1', 1.48428  , 'DriftPass');
216SD13a= drift('SD13a', 3.141452  , 'DriftPass');
217SD1e = drift('SD1e',  5.6589, 'DriftPass');
218SD1c1 = drift('SD1c1',  0.8410, 'DriftPass'); % K3 - FCOR
219SD1c2 = drift('SD1c2',  0.601, 'DriftPass');  % FCOR KEMH
220SD1c3u= drift('SD1c3u', 0.683, 'DriftPass');  % KEMH - VSCRAPER
221SD1c3d= drift('SD1c3u', 1.560-0.683, 'DriftPass');  % VSCRAPER - K4
222SD91 = drift('SD91',  0.251240, 'DriftPass');
223SD41 = drift('SD41',  0.2521, 'DriftPass');
224SD42 = drift('SD42',  0.205, 'DriftPass');
225SD92 = drift('SD92',  0.204300, 'DriftPass');
226SD93 = drift('SD93',  0.251300  , 'DriftPass');
227SD43 = drift('SD43', 0.2051     , 'DriftPass');
228SD141 = drift('SD141', 0.431900, 'DriftPass');
229SDB1 = drift('SDB1', 0.29100, 'DriftPass');
230SDB2 = drift('SDB2', 0.16680000, 'DriftPass');
231SDB3 = drift('SDB3', 0.252,  'DriftPass');
232SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
233SDB5 = drift('SDB5', 0.205  ,'DriftPass');
234SDB6 = drift('SDB6', 0.119800 ,'DriftPass');
235SDB7 = drift('SDB7', 0.166900 , 'DriftPass');
236SDB8 = drift('SDB8', 0.252 , 'DriftPass');
237SDB9 = drift('SDB9', 0.119800 ,'DriftPass');
238SDB10= drift('SDB10',0.166900 , 'DriftPass');
239SDB11= drift('SDB11',0.2519, 'DriftPass');
240SDB12= drift('SDB12',0.2049, 'DriftPass');
241SDB13= drift('SDB13',0.119800, 'DriftPass');
242SDB14= drift('SDB14',0.1668000, 'DriftPass');
243SDB15= drift('SDB15',0.252 , 'DriftPass');
244SDB17= drift('SDB17',0.205 , 'DriftPass');
245SDB18= drift('SDB18',0.1199000 , 'DriftPass');
246SDC1 = drift('SDC1' , 0.241900 ,  'DriftPass');
247SDC2 = drift('SDC2' , 0.079 ,  'DriftPass');
248SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
249SDC4 = drift('SDC4' , 0.3358,  'DriftPass');
250SDC5 = drift('SDC5' , 0.0846,  'DriftPass');
251SDC6 = drift('SDC6' , 0.079,   'DriftPass');
252SDC7 = drift('SDC7' , 0.342 ,  'DriftPass');
253SDC8 = drift('SDC8' , 0.241900 ,  'DriftPass');
254SDC9 = drift('SDC9' , 0.079  , 'DriftPass');
255DRFT10= drift('DRFT10',0.07845, 'DriftPass');
256DRFT11= drift('DRFT11',0.2419000  , 'DriftPass');
257DRFT12= drift('DRFT12',0.3358 , 'DriftPass');
258DRFT13= drift('DRFT13',0.0846 , 'DriftPass');
259DRFT14= drift('DRFT14',0.0788 , 'DriftPass');
260DRFT15= drift('DRFT15',0.3422 , 'DriftPass');
261DRFT16= drift('DRFT16',0.241900  , 'DriftPass');
262DRFT17= drift('DRFT17',0.079  , 'DriftPass');
263DRFT18= drift('DRFT18',0.07845, 'DriftPass');
264DRFT19= drift('DRFT19',0.24190  , 'DriftPass');
265SDC20= drift('SDC20',0.241900  , 'DriftPass');
266SDC21= drift('SDC21',0.079  , 'DriftPass');
267SDC22= drift('SDC22',0.29090  , 'DriftPass');
268SDC24= drift('SDC24',1.379  , 'DriftPass');
269%SDC23a= drift('SDC23a',0.632  , 'DriftPass'); % BPM - K1
270SDC23b= drift('SDC23b',1.983  , 'DriftPass'); % K1 - KEMV
271SDC23c= drift('SDC23c',1.019  , 'DriftPass'); % KEMV - K2
272SDC23d= drift('SDC23d',0.676  , 'DriftPass'); % K2 - FCOR
273SDC23e= drift('SDC23a',0.147  , 'DriftPass'); % BPM - FCOR [1 1]
274SDC23f= drift('SDC23a',0.485  , 'DriftPass'); % FCOR [1 1] next SD
275
276% HU640 straight section
277SDHU640a = drift('SDHU640a',  1.7394, 'DriftPass');
278SDHU640b = drift('SDHU640b',  0.6400, 'DriftPass');
279SDHU640c = drift('SDHU640c',  3.2795, 'DriftPass');
280SDHU640d = drift('SDHU640d',  3.1195, 'DriftPass');
281SDHU640e = drift('SDHU640e',  0.6400, 'DriftPass');
282SDHU640f = drift('SDHU640f',  1.8994, 'DriftPass');
283
284% PX2 straights
285SDPX2a= drift('SDPX2a', 0.363902-FAMLIST{CHIPX2D1}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.1
286SDPX2b= drift('SDPX2b', 2.857550-FAMLIST{CHIPX2D1}.ElemData.Length/2-FAMLIST{CHIPX2D2}.ElemData.Length/2, 'DriftPass'); % CHI.1 - CHI.2
287SDPX2c= drift('SDPX2c', 0.203902-FAMLIST{CHIPX2D1}.ElemData.Length/2, 'DriftPass'); % CHI.3 - BPM
288
289% Nanoscopium straigths (upstream)
290SDNANO1 = drift('SDNANO1',  0.4501-FAMLIST{CHINANOD1}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.1
291SDNANO2 = drift('SDNANO2',  0.5529-FAMLIST{CHINANOD1}.ElemData.Length/2, 'DriftPass'); % CHI.1 - FFWDCOR
292SDNANO3 = drift('SDNANO3',  2.5630, 'DriftPass'); % FFWDCOR - FFWDCOR
293SDNANO4 = drift('SDNANO4',  0.4330-FAMLIST{CHINANOD2}.ElemData.Length/2, 'DriftPass'); % FFWDCOR - CHI.2
294SDNANO5 = drift('SDNANO5',  0.2683-FAMLIST{CHINANOD2}.ElemData.Length/2, 'DriftPass'); % CHI.2 - BPM
295SDNANO6 = drift('SDNANO6',  0.0780, 'DriftPass'); % BPM - FCOR
296SDNANO6a= drift('SDNANO6a', 0.5017-0.0780-FAMLIST{Q11}.ElemData.Length/2, 'DriftPass'); % BPM - Q11.1
297SDNANO7 = drift('SDNANO7',  0.4100-FAMLIST{Q11}.ElemData.Length/2-FAMLIST{S12}.ElemData.Length/2, 'DriftPass'); % Q11.1 - S12
298SDNANO8 = drift('SDNANO8',  0.4800-FAMLIST{Q12}.ElemData.Length/2-FAMLIST{S12}.ElemData.Length/2, 'DriftPass'); % S12 - Q11
299% Nanoscopium straigths (downstream)
300SDNANO9 = drift('SDNANO9',  0.4628-0.0780-FAMLIST{Q11}.ElemData.Length/2, 'DriftPass'); % Q11.2 - FOFB
301SDNANO10= drift('SDNANO10', 0.3072-FAMLIST{CHINANOD3}.ElemData.Length/2, 'DriftPass'); % BPM - CHI.3
302SDNANO11= drift('SDNANO11', 0.4330-FAMLIST{CHINANOD3}.ElemData.Length/2, 'DriftPass'); % FFWDCOR - FFWDCOR
303
304
305%% STRAIGHT SECTIONS (between BPMs)
306% 4 long straight sections (12 m, available part 10.50 m)
307
308%SDL01 (injection) is split in upstream and downstrem parts
309SDL01d = [SD1a   PtINJ   SD1b   K3  SD1c1 FCOR  SD1c2  KEMH SD1c3u VSCRAP SD1c3d   K4     SD1d];
310SDL01u = [SDC23e  FCOR SDC23f K1 SDC23b KEMV SDC23c K2 SDC23d SDC24];
311% SDL05 HU640 straight section
312HU640upstream   = [SDHU640a VCMHU640 SDHU640b HCMHU640 SDHU640c];
313HU640downstream = [SDHU640d HCMHU640 SDHU640e VCMHU640 SDHU640f];
314SDL05  = [HU640upstream HU640downstream]; % DESIRS HU640
315SDL09  = [SD1e SD1e];
316% TOMOGRAPHY U18 CRYO + NANOSCOPIUM U20
317SDL13u  = [SDNANO1 CHINANO CHINANOD1 SDNANO2 FFWDCOR SDNANO3 FFWDCOR SDNANO4 CHINANOD2 CHINANO SDNANO5 ...
318           BPM SDNANO6 FCOR SDNANO6a Q11 SDNANO7 SX12 SDNANO8];
319SDL13d  = [SDNANO8 SX12 SDNANO7 Q11 SDNANO9 FCOR SDNANO6 BPM  ...
320           SDNANO10 CHINANO CHINANOD3 SDNANO11 FFWDCOR SDNANO3 FFWDCOR SDNANO2 CHINANOD4 CHINANO SDNANO1];
321SDL13 = [SDL13u Q12 SDL13d];
322%SDL13  = [SD1e SD1e]; % NANOSCOPIUM U20 + TOMOGRAPHY U18 CRYO
323
324% 12 medium straigt sections (7 m, available part for IDs 5.46 m)
325SDM02 = [SD13a CAV SD13a]; % CRYOMODULE #2
326SDM03 = [SD13a SD13a]; % CRYOMUDULE #1 not put in the model for simplicity
327SDM04 = [SD13a SD13a]; % PLEIADES HU256 + HU80
328SDM06 = [SD13a SD13a]; % PUMA future Wiggler
329%SDM06 = [SDWSV50 SWSV50 SDWSV50]; % PUMA future Wiggler
330SDM07 = [SD13a SD13a]; % DEIMOS HU52+EMPHU65
331SDM08 = [SD13a SD13a]; % TEMPO HU80+HU44
332SDM10 = [SD13a SD13a]; % HERMES HU64+HU42
333SDM11 = [SDPX2a PX2C CHIPX2D1 SDPX2b PX2C CHIPX2D2 SDPX2b CHIPX2D3 PX2C SDPX2c]; % PX2 U24
334SDM12 = [SD13a SD13a]; % ANTARES HU256 + HU60
335SDM14 = [SD13a SD13a]; % SEXTANTS (ex microFocus) HU44 + HU80
336SDM15 = [SD13a SD13a]; % CASSIOPEE HU256 + HU80
337SDM16 = [SD13a SD13a]; % LUCIA HU52
338
339% 8 short straigt sections (3.6 m, available part for IDs 2.8 m)
340SDC02 = [SDAC1 SDAC1];% LIGNE ALPHA
341SDC03 = [SDAC1 SDAC1];% PSICHE WSV50
342SDC06 = [SDAC1 SDAC1];% CRISTAL U20
343SDC07 = [SDAC1 SDAC1];% GALAXIES U20
344SDC10 = [SDAC1 SDAC1];% PX1 U20
345SDC11 = [SDAC1 SDAC1];% SWING U20
346SDC14 = [SDAC1 SDAC1];% SIXS U20
347SDC15 = [SDAC1 SDAC1];% SIRIUS HU34
348
349
350%% Lattice
351% Superperiods
352
353% SUPERPERIOD #1
354SUP1  = [...
355    BPM  SDB1   Q1     SD2    SX1   SD3     Q2 ...
356    SDB2  BPM    SD14a   Q3      SD5    SX2    SD6 ...
357    BEND    SD7     Q4  SD8     SX3    ...
358    SDB3  BPM     SD9a   Q5     SD12u HSCRAP SD12d  SX4 ...
359    SDB4  BPM     SD10a    Q5     SD91     ...
360    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
361    SD7     Q6      SD5    SX5     SD41    ...
362    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
363    SDC1 FCOR SDC2   BPM    SDM02 BPM ...
364    SDC3    FCOR   SDC1 ...
365    Q8      SD2    SX8     SD3    Q7  SDB7 ...
366    BPM   SD42     SX7      SD5     Q6     SD7 ...
367    BEND   SD7    Q9    SD8     SX9  SDB8 ...
368    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
369    FCOR SDC5  BPM   SDC02 ...
370    BPM   SDC6  FCOR  SDC7 SX10    SD8    Q10    SD91 ...
371    BPM   SD42  SX9      SD8     Q9     SD7    ...
372    BEND   SD7    Q6    SD5     SX7    SD41   ...
373    BPM  SDB9  Q7      SD3    SX8    SD2   Q8 SDC8 ...
374    FCOR  SDC9  BPM     SDM03  ...
375    BPM  DRFT10   FCOR  DRFT11  Q8     SD2   SX8   SD3   Q7 ...
376    SDB10  BPM   SD42    SX7    SD5   Q6      SD7  ...
377    BEND    SD7     Q9     SD8     SX9  SDB11    ...
378    BPM    SD92   Q10     SD8     SX10 DRFT12 ...
379    FCOR  DRFT13  BPM    SDC03   ...
380    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
381    BPM  SDB12  SX9    SD8   Q9      SD7 ...
382    BEND    SD7    Q6      SD5    SX7    SD41 ...
383    BPM  SDB13   Q7      SD3    SX8     SD2    Q8  DRFT16 ...
384    FCOR DRFT17  BPM    SDM04   ...
385    BPM   DRFT18  FCOR  DRFT19   Q8     SD2     SX6    SD3    Q7 ...
386    SDB14  BPM    SD43    SX5     SD5    Q6      SD7    ...
387    BEND   SD7   Q4      SD8     SX3  SDB15 ...
388    BPM     SD9a   Q5      SD12   ...
389    SX4  SDB4  BPM     SD10a Q5     SD93 ...
390    BPM  SDB17  SX3     SD8    Q4     SD7   ...
391    BEND    SD6     SX2      SD5     Q3     SD141 ...
392    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
393    SDC20 FCOR  SDC21 BPM];
394
395% SUPERPERIOD #2
396SUP2  = [  ...
397    BPM SDC2 FCOR SDC1   ...
398    Q1     SD2    SX1   SD3     Q2 ...
399    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
400    BEND    SD7     Q4  SD8     SX3    ...
401    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
402    SDB4  BPM     SD10a    Q5     SD93     ...
403    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
404    SD7     Q6      SD5    SX5     SD41    ...
405    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
406    SDC1 FCOR SDC2   BPM    SDM06  BPM ...
407    SDC2    FCOR   SDC1 ...
408    Q8      SD2    SX8     SD3    Q7  SDB7 ...
409    BPM   SDB5     SX7      SD5     Q6     SD7 ...
410    BEND   SD7    Q9    SD8     SX9  SDB3 ...
411    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
412    FCOR SDC5  BPM   SDC06 ...
413    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
414    BPM   SDB12  SX9      SD8     Q9     SD7    ...
415    BEND   SD7    Q6    SD5     SX7    SD41   ...
416    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
417    FCOR  SDC2  BPM     SDM07  ...
418    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
419    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
420    BEND    SD7     Q9     SD8     SX9   SDB3    ...
421    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
422    FCOR  SDC5  BPM    SDC07   ...
423    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
424    BPM  SDB12  SX9    SD8   Q9      SD7 ...
425    BEND    SD7    Q6      SD5    SX7    SD41 ...
426    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
427    FCOR SDC2  BPM    SDM08   ...
428    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
429    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
430    BEND   SD7   Q4      SD8     SX3  SDB3 ...
431    BPM     SD9a   Q5      SD12   ...
432    SX4   SDB4  BPM     SD10a   Q5     SD93 ...
433    BPM  SD42  SX3     SD8    Q4     SD7   ...
434    BEND    SD6     SX2      SD5     Q3     SD141 ...
435    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
436    SDC1 FCOR  SDC2   BPM];
437
438% SUPERPERIOD #3
439SUP3  = [  ...
440    BPM SDC2 FCOR SDC1   ...
441    Q1     SD2    SX1   SD3     Q2 ...
442    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
443    BEND    SD7     Q4  SD8     SX3    ...
444    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
445    SDB4  BPM     SD10a    Q5     SD93     ...
446    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
447    SD7     Q6      SD5    SX5     SD41    ...
448    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
449    SDC1 FCOR SDC2   BPM    SDM10  BPM ...
450    SDC2    FCOR   SDC1 ...
451    Q8      SD2    SX8     SD3    Q7  SDB7 ...
452    BPM   SDB5     SX7      SD5     Q6     SD7 ...
453    BEND   SD7    Q9    SD8     SX9  SDB3 ...
454    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
455    FCOR SDC5  BPM   SDC10 ...
456    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
457    BPM   SDB12  SX9      SD8     Q9     SD7    ...
458    BEND   SD7    Q6    SD5     SX7    SD41   ...
459    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
460    FCOR  SDC2  BPM     SDM11  ...
461    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
462    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
463    BEND    SD7     Q9     SD8     SX9   SDB3    ...
464    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
465    FCOR  SDC5  BPM    SDC11   ...
466    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
467    BPM  SDB12  SX9    SD8   Q9      SD7 ...
468    BEND    SD7    Q6      SD5    SX7    SD41 ...
469    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
470    FCOR SDC2  BPM    SDM12   ...
471    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
472    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
473    BEND   SD7   Q4      SD8     SX3  SDB3 ...
474    BPM     SD9a   Q5      SD12   ...
475    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
476    BPM  SD42  SX3     SD8    Q4     SD7   ...
477    BEND    SD6     SX2      SD5     Q3     SD141 ...
478    BPM  SDB18  Q2     SD3   SX11     SD2     Q1 ...
479    SDC1 FCOR  SDC2   BPM];
480
481% SUPERPERIOD #4
482SUP4  = [  ...
483    BPM SDC2 FCOR SDC1   ...
484    Q1     SD2    SX11   SD3     Q2 ...
485    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ...
486    BEND    SD7     Q4  SD8     SX3    ...
487    SDB3  BPM     SD9a   Q5     SD12  SX4 ...
488    SDB4  BPM     SD10a    Q5     SD93     ...
489    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...
490    SD7     Q6      SD5    SX5     SD41    ...
491    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...
492    SDC1 FCOR SDC2   BPM    SDM14  BPM ...
493    SDC2    FCOR   SDC1 ...
494    Q8      SD2    SX8     SD3    Q7  SDB7 ...
495    BPM   SDB5     SX7      SD5     Q6     SD7 ...
496    BEND   SD7    Q9    SD8     SX9  SDB3 ...
497    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
498    FCOR SDC5  BPM   SDC14 ...
499    BPM   DRFT14  FCOR  DRFT15 SX10    SD8    Q10    SD93 ...
500    BPM   SDB12  SX9      SD8     Q9     SD7    ...
501    BEND   SD7    Q6    SD5     SX7    SD41   ...
502    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...
503    FCOR  SDC2  BPM     SDM15  ...
504    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...
505    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...
506    BEND    SD7     Q9     SD8     SX9   SDB3    ...
507    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
508    FCOR  SDC5  BPM    SDC15   ...
509    BPM  DRFT14  FCOR   DRFT15   SX10   SD8     Q10    SD93 ...
510    BPM  SDB12  SX9    SD8   Q9      SD7 ...
511    BEND    SD7    Q6      SD5    SX7    SD41 ...
512    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...
513    FCOR SDC2  BPM    SDM16   ...
514    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...
515    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
516    BEND   SD7   Q4      SD8     SX3  SDB3 ...
517    BPM     SD9a   Q5      SD12   ...
518    SX4   SDB4  BPM     SD10a    Q5     SD93 ...
519    BPM  SD42  SX3     SD8    Q4     SD7   ...
520    BEND    SD6     SX2      SD5     Q3     SD141 ...
521    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
522    SDC22 BPM];
523
524%THE STORAGE RING
525ELIST = [...
526    DEBUT ...
527    SECT1 SDL01d SUP1 ...
528    SECT2 SDL05 SUP2 ...
529    SECT3 SDL09 SUP3 ...
530    SECT4 SDL13 SUP4 SDL01u  ...
531    FIN];
532
533buildlat(ELIST);
534
535% Set all magnets to same energy
536THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
537
538ATIndexList = atindex;
539
540% set nanoscopium triplets upstream and downstream of SDL13
541THERING = setNanoscopium(THERING,ATIndexList);
542
543% set PX2 tuner chicane
544%THERING{ATIndexList.PX2C(1)}.KickAngle(1) =  -2.25e-3; % rad
545%THERING{ATIndexList.PX2C(2)}.KickAngle(1) = 2*2.25e-3; % rad
546%THERING{ATIndexList.PX2C(3)}.KickAngle(1) =  -2.25e-3; % rad
547
548%% set NANOSCOPIUM tuner magnets
549THERING{ATIndexList.NANOC(1)}.KickAngle(1) =  -5.00e-6*0; % rad
550THERING{ATIndexList.NANOC(2)}.KickAngle(1) =   2.25e-6*0; % rad
551THERING{ATIndexList.NANOC(3)}.KickAngle(1) =  -1.25e-6*0; % rad
552THERING{ATIndexList.NANOC(4)}.KickAngle(1) =  -2.25e-6*0; % rad
553
554evalin('caller','global THERING FAMLIST GLOBVAL');
555atsummary;
556
557
558if nargout
559    varargout{1} = THERING;
560end
561
562function THERING= setNanoscopium(THERING,ATIndexList)
563
564QP1N = -0.1267568E+01;
565QP2N =  0.1858845E+01;
566QP3N = -0.1143923E+01;
567THERING = setquad(THERING, ATIndexList.Q1(6), QP1N);
568THERING = setquad(THERING, ATIndexList.Q1(7), QP1N);
569THERING = setquad(THERING, ATIndexList.Q2(6), QP2N);
570THERING = setquad(THERING, ATIndexList.Q2(7), QP2N);
571THERING = setquad(THERING, ATIndexList.Q3(6), QP3N);
572THERING = setquad(THERING, ATIndexList.Q3(7), QP3N);
573
574function THERING = setquad(THERING, Idx, K)
575
576THERING{Idx}.K = K;
577THERING{Idx}.PolynomB(2) = K;
578fprintf('%s %03d %+f %+f\n', THERING{Idx}.FamName, Idx, THERING{Idx}.K, THERING{Idx}.PolynomB(2));
Note: See TracBrowser for help on using the repository browser.