source: TRACY3/trunk/lattice/example/soleil_tobearranged/reglage_nominal_1_u20.lat @ 29

{*******************************}
{*                             *}
{*  SOLEIL Storage Ring        *}
{*  The IDEAL LATTICE updated  *}
{*                             *}
{* QUAD coupes en 2            *}
{* SEPTUM sur 70 cm coupe en 4 *}
{* SD moyenne coupee en        *}
{* troncons de 20 cm           *}
{* Long sextupoles             *}
{*                             *}
{*******************************}

define lattice;

intmeth= 4;
driftkick = 2;

{***** System parameters *****}
Energy= 2.739;    { GeV }
dP    = 1.0d-10;
CODeps= 1.0d-15;

{***** drift space *****}

 SDL  : drift, L= 6.000000-0.0201;
 SD1a : drift, L= 0.900000;
 SD1b : drift, L= 4.300000;
 SD1c : drift, L= 3.700000;
 SD1d : drift, L= 0.800000-0.0201;
 SEP  : drift, L= 0.200000;
 SD2  : drift, L= 0.390000-0.08-0.0201;
 SD3  : drift, L= 0.200000-0.08-0.0181;
 SD4  : drift, L= 0.390000-0.08-0.0181;
 SD5  : drift, L= 0.200000-0.08-0.0201;
 SD6  : drift, L= 0.790000-0.08;
 SD7  : drift, L= 0.440000-0.0201;
 SD8  : drift, L= 0.200000-0.08-0.0201;
 SD9  : drift, L= 0.476340-0.08-0.0201;
 SD10 : drift, L= 0.470000-0.08-0.0201;
 SD12 : drift, L= 0.470000-0.08-0.0201;
 SDM: drift, L= 3.48255-0.0201;
 SD13a: drift, L= 0.200000;
 SD13b: drift, L= 0.150000;
 SD13c: drift, L= 0.732550-0.0201;
 SD14 : drift, L= 0.590000-0.0181-0.0201;
 SDAC : drift, L= 1.904680;
 SDC : drift, L= 1.904680-0.08;
 SDAC1: drift, L= 1.004680;
 SDAC4: drift, L= 1.004680-0.08;
 SDAC2: drift, L= 0.200000;
 SDACm: drift, L= 1.904680-0.08-1.80/2;

{** Quadrupole **}
Nq=8/2;  {Number of slices}
dgsurg=1.00;
dgsurgL=1.00;
quadfringe=1.0;
scale=0.5;
LQC=0.3602;
LQL=0.4962;

QP1a : quadrupole, L=LQC/2,K= -1.073038*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP2a : quadrupole, L=LQL/2,K=  1.603455*dgsurgL, FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP3a : quadrupole, L=LQC/2,K= -0.649160*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP4a : quadrupole, L=LQC/2,K= -1.259864*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP5a : quadrupole, L=LQC/2,K=  1.696440*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP6a : quadrupole, L=LQC/2,K= -1.007805*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP7a : quadrupole, L=LQL/2,K=  2.084913*dgsurgL, FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP8a : quadrupole, L=LQC/2,K= -1.551946*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP9a : quadrupole, L=LQC/2,K= -1.510915*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;
QP10a: quadrupole, L=LQC/2,K=  1.756880*dgsurg,  FF1=quadfringe, FF2=0, FFscaling = scale, method=intmeth,N=Nq;

QP1b : quadrupole, L=LQC/2,K= -1.073038*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP2b : quadrupole, L=LQL/2,K=  1.603455*dgsurgL, FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP3b : quadrupole, L=LQC/2,K= -0.649160*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP4b : quadrupole, L=LQC/2,K= -1.259864*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP5b : quadrupole, L=LQC/2,K=  1.696440*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP6b : quadrupole, L=LQC/2,K= -1.007805*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP7b : quadrupole, L=LQL/2,K=  2.084913*dgsurgL, FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP8b : quadrupole, L=LQC/2,K= -1.551946*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP9b : quadrupole, L=LQC/2,K= -1.510915*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;
QP10b: quadrupole, L=LQC/2,K=  1.756880*dgsurg,  FF1=0, FF2=quadfringe, FFscaling = scale, method=intmeth,N=Nq;

{** quad split into two parts **}
Q1 : QP1a,QP1b;
Q2 : QP2a,QP2b;
Q3 : QP3a,QP3b;
Q4 : QP4a,QP4b;
Q5 : QP5a,QP5b;
Q6 : QP6a,QP6b;
Q7 : QP7a,QP7b;
Q8 : QP8a,QP8b;
Q9 : QP9a,QP9b;
Q10: QP10a,QP10b;


{** bending **}
beta_gap=37e-3;
tracy_gap=beta_gap*2*0.724;

 BEND1 : bending, L= 1.05243, T= 11.25, T1=5.5906, T2=5.67658, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;

 BEND2 : bending, L= 1.052436/6, T= 11.25/6, T1=5.5906, T2=0.000, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;
 BEND3 : bending, L= 1.052436/6, T= 11.25/6, T1=0.000, T2=0.000, K=0.00204, N=4,
        method=intmeth;
 BEND4 : bending, L= 1.052436/6, T= 11.25/6, T1=0.000, T2=5.67658, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;

 BEND:  BEND2,4*BEND3,BEND4;


NqSx=1; {Number of slices}

{** Sextupole **}
dh=1.0;
coef=dh/0.16;
method4sextu = 4;
sextfringe = 0;

SX1 : sextupole, L=0.16, K =  1.719190*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX2 : sextupole, L=0.16, K = -4.104560*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX3 : sextupole, L=0.16, K = -2.169380*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX4 : sextupole, L=0.16, K =  3.604650*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX5 : sextupole, L=0.16, K = -3.698210*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX6 : sextupole, L=0.16, K =  3.246670*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX7 : sextupole, L=0.16, K = -5.003520*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX8 : sextupole, L=0.16, K =  4.345660*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX9 : sextupole, L=0.16, K = -3.883648*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;
SX10: sextupole, L=0.16, K =  2.189968*coef, method=method4sextu, N = NqSx, FF1=sextfringe, FF2=sextfringe;

{** Insertion **}

U20: insertion, N = 5, scaling1 = 1.0, scaling2 = 1.0,method=3,
{file1= "/home/sources/physmach/brunelle/tracy/tracy3/table_1er_ordre_opposee_a_radia_u20.txt",}
{file2="/home/sources/physmach/brunelle/tracy/tracy3/test50_u20_mars2011.dat";}
file2="/Users/nadolski/1_En_cours/tracypb/test50_u20_mars2011.dat";

{** Cavities **}
CAV: Cavity, Frequency=352.202d6, Voltage=3.0d6;

{** Horizontal correctors **}
CH  : corrector, horizontal, method=intmeth;
KCH  : corrector, horizontal, method=intmeth;

{** Vertical correctors **}
CV  : corrector, vertical, method=intmeth;

{** Skew quads **}
Nsq = 1;

QT  : quadrupole, tilt=45.0, K= 0.0, method=intmeth,N=Nsq;

{** BPM **}
BPM   : marker;

{** Marker **}
 SECT1:marker;
 SECT2:marker;
 SECT3:marker;
 SECT4:marker;
 SECT5:marker;
 SECT6:marker;
 SECT7:marker;
 SECT8:marker;
 SECT9:marker;
 SECT10: marker;
 SECT11: marker;
 SECT12: marker;
 BL31: marker;
 FIN : marker;
 DEBUT : marker;
 sep1  : marker;
 sep2  : marker;
 eesep : marker;
 sdm1  : marker;
 sdm2  : marker;
 eeSDM : marker;
 sdc1 : marker;
 sdc2 : marker;
 mhu640: marker;
 escrah: marker;
 sscrah: marker;

{**Superperiods**}
SINJ: SD1a,sep1,3*SEP,sep2,SD1c,mhu640,SD1d;

SD13L: SD13c,sdm1, 13*SD13a,2*SD13b,13*SD13a,
       sdm2,eeSDM,SD13c;
SDACL: SDAC1,sdc1, 9*SDAC2, sdc2, SDAC1;
SDACL1: SDAC4,sdc1, 9*SDAC2, sdc2 ,SDAC4;


SUP1: KCH, KCH, KCH, SINJ, BPM,Q1, SD2, SX1, QT, CH, SD3, Q2,
 BPM, SD14, Q3, SD5, SX2, CV, SD6, BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12, 
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8,
 Q4, SD7, BEND, SD7,Q6, SD5, SX5, CV, SD4, BPM, Q7,
 SD3, SX6, CH, SD2, Q8, BPM, SD13L,BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10,
 QT, CH, BPM, SDACL1, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND, SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8,
 QT, CH, SD2, Q8, BPM, 2*SDM,BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7, Q9, SD8, SX9, CV, BPM, SD9, Q10,
 SD8, SX10, CH, BPM, 2*SDC, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7, BEND,
 SD7, Q6, SD5, SX7, SD4, CV, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM,
 2*SDM,BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND, SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH, CV,  SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7,
 BEND, SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2,
 SD3, SX1, QT, CH, SD2, Q1, BPM, SDL;

SUP2: SDL, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2, CV, SD6,
 BEND,  SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7,  BEND,  SD7,
 Q6, SD5, SX5, CV, BPM, SD4, Q7, SD3, SX6, CH, BPM, SD2, Q8,
 2*SDM,BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5, Q6,
 SD7,  BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, SDACm, U20, SDACm, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH, SD2,
 Q8, BPM, 2*SDM,BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7, Q9, SD8, SX9 , CV, BPM, SD9, Q10,
 SD8, SX10, QT, CH, BPM,  2*SDC, BPM,
 SX10, CH, SD8, Q10, SD9, BPM,  SX9, CV, SD8,
 Q9, SD7, BEND, SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM, 2*SDM,BPM, Q8, SD2, SX6,
 CH, SD3, Q7, BPM,SD4, SX5, CV, SD5, Q6, SD7, BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH , CV, SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7, BEND,
 SD6, SX2 , CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SDL;

SUP3: SDL, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2 , CV, SD6,
 BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7, BEND,
 SD7,
 Q6, SD5, SX5,CV, SD4, BPM, Q7, SD3, SX6, CH, SD2, Q8,
 BPM, 2*SDM,BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5, Q6,
 SD7,
 BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDC, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH, SD2,
 Q8, BPM,
 2*SDM,BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7,
 BEND,
 SD7, Q9, SD8, SX9, CV, BPM,  SD9, Q10,
 SD8, SX10, CH, BPM,
 2*SDC, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, BPM, Q8,
 2*SDM,BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CV, CH, SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7,
 BEND,
 SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SDL;

SUP4: SDL, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2, CV, SD6,
 BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7,  BEND,
 SD7,
 Q6, SD5, SX5,CV, SD4, BPM, Q7, SD3, SX6, CH, SD2, Q8,
 BPM, 2*SDM,BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5,
 Q6, SD7,
 BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDC, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH,
 SD2,
 Q8, BPM,
 2*SDM,BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7,
 BEND,
 SD7, Q9, SD8, SX9, CV, BPM, SD9, Q10,
 SD8, SX10, CH, BPM,
 2*SDC, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM,
 2*SDM,BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH,CV, SD12, Q5, SD9,
 BPM,
 SX3, SD8, Q4, SD7,
 BEND,
 SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SDL;

RING: DEBUT,SUP1,SUP2,SUP3,SUP4,CAV,FIN;

{***** Define CELL structure ****}
 CELL:  RING, symmetry = 1;

end;