source: TRACY3/trunk/tracy/NSLS-II/lattice/dba30HLC16EsJBrng7Hcorx7sfgird_ID_short.lat @ 3

define lattice; ringtype = 1;
{ New DBA30HLC16EsJBrng7Hcorx7sfgird H(8m) L(5m)Rho=25m }
Energy = 3.0;

dP = 1e-8; CODeps = 1e-12;

Meth = 4; Nbend = 4; Nquad = 4;

pi = 4.0*arctan(1.0);

BPM: Beam Position Monitor ;
HCM: Corrector, Horizontal, Method= Meth;
VCM: Corrector, Vertical, Method= Meth;
BHV: BPM, HCM, VCM ; 

TWK1: Drift, L = 0.0;
TWK2: Drift, L = 0.0;
TWK3: Drift, L = 0.0;
TWK4: Drift, L = 0.0;

D0:   Drift, L = 4.0;
D1A:  Drift, L = 0.240;
D1B:  Drift, L = 0.4 ;
D1B2:  Drift, L = 0.2 ;
D2A:  Drift, L = 0.15 ;
D2B:  Drift, L = 0.15 ;
D3A:  Drift, L = 0.15;
D3B:  Drift, L = 0.240;
D4A:  Drift, L = 0.15;
D4B:  Drift, L = 0.550;
D4B1:  Drift, L = 0.30;
D4B2:  Drift, L = 0.250;
D5:   Drift, L = 0.5500;
D51:   Drift, L = 0.3000;
D52:   Drift, L = 0.2500;
D5A:  Drift, L = 0.1500;
D6A:  Drift, L = 0.215;
D6B:  Drift, L = 0.305;
D7:   Drift, L = 0.35;
D71:   Drift, L = 0.175;
D4L:  Drift, L = 0.55;
D4L1:  Drift, L = 0.30;
D4L2:  Drift, L = 0.25;
D4:   Drift, L = 0.15;

D33A: Drift, L = 0.2000;
D33B: Drift, L = 0.1500;
D22A: Drift, L = 0.400; 
D22A2: Drift, L = 0.200;
D22B: Drift, L = 0.2000 ;  
D11A: Drift, L = 0.5000;
D11B: Drift, L = 0.350000;
D0ID: Drift, L = 1.5;
D00:  Drift, L = 2.5000 - D0ID.L;
D00new: D00, D0ID;
DSX: Drift,  L = 0.1000;
DSD: Drift,  L = 0.125;
DSL: Drift,  L = 0.15;

Q1       : Quadrupole, L = 0.300000, K = -0.647296,  N = Nquad, Method = Meth;
Q2       : Quadrupole, L = 0.300000, K =  0.536991,  N = Nquad, Method = Meth;
Q3       : Quadrupole, L = 0.300000, K =  1.646253,  N = Nquad, Method = Meth;
Q4       : Quadrupole, L = 0.300000, K = -1.397866,  N = Nquad, Method = Meth;
QF2      : Quadrupole, L = 0.300000, K =  1.389740,  N = Nquad, Method = Meth;
QD3      : Quadrupole, L = 0.300000, K = -1.016797,  N = Nquad, Method = Meth;
Q44      : Quadrupole, L = 0.300000, K = -1.622952,  N = Nquad, Method = Meth;
Q33      : Quadrupole, L = 0.400000, K =  1.989407,  N = Nquad, Method = Meth;
Q22      : Quadrupole, L = 0.300000, K = -0.198948,  N = Nquad, Method = Meth;
Q11      : Quadrupole, L = 0.300000, K = -1.108371,  N = Nquad, Method = Meth;

B1: Bending, L = 2.62, T =  6.0000,
    T1 =  3.000, T2 =  3.0000, N = Nbend, Method = Meth;


S1: Sextupole, K =  0.660096, N = 1, Method = Meth;
S2: Sextupole, K =  1.043489, N = 1, Method = Meth;
S3: Sextupole, K =  0.024780, N = 1, Method = Meth;
S4: Sextupole, K = -2.005888, N = 1, Method = Meth;
SD1: Sextupole, K = -0.269011, N = 1, Method = Meth;
SF1: Sextupole, K = -1.934119, N = 1, Method = Meth;
SF2: Sextupole, K =  3.500000, N = 1, Method = Meth;
SL1: Sextupole, K =  1.029098, N = 1, Method = Meth;
SL2: Sextupole, K =  1.858553, N = 1, Method = Meth;
SL3: Sextupole, K = -3.319335, N = 1, Method = Meth;
SL4: Sextupole, K =  0.646088, N = 1, Method = Meth;

SQ: Multipole, N = 1, Method = Meth;

SS_MP: Multipole, N = 1, Method = Meth;
LS_MP: Multipole, N = 1, Method = Meth;

MP: Marker;
{ For girders }
GS: Multipole, N = 1, Method = Meth;
GE: Multipole, N = 1, Method = Meth;
SS: Marker;
LS: Marker;

c0 = 2.99792458e8  ; h_rf = 1300; C = 780.30 ;

CAV: Cavity, Frequency = c0/C*h_rf, Voltage = 2.5e6, Harnum = h_rf;
{CAV: Cavity, Frequency = c0/C*h_rf, Voltage = 2.7e6, Harnum = h_rf;}

LB: Q11, D11A, 
    DSX, S1, DSX, BPM, D11B, Q22, D22A2, HCM, VCM, D22A2, 
    DSX, S2, DSX, D22B, Q33, D33A, 
    DSX, S3, DSX, D33B, Q44, D4, 
    BPM, DSX, S4, DSX, D4L1, HCM, VCM;

HB: Q1, D1A, 
    DSX, SL1, DSX, BPM, D1B2, HCM, VCM, D1B2, Q2, D2A, 
    DSX, SL2, DSX, D2B, Q3, D3A, 
    DSX, SL3, DSX, D3B, Q4, D4A, 
    BPM, DSX, SL4, DSX , D4B1, HCM, VCM;

HB_SQ: Q1, D1A, 
       DSX, SL1, DSX, BPM, D1B2, HCM, VCM, D1B2, Q2, D2A, 
       DSX, SL2, DSX, D2B, Q3, D3A, 
       DSX, SL3, SQ, DSX, D3B, Q4, D4A, 
       BPM, DSX, SL4, DSX , D4B1, HCM, VCM;

DISP: VCM, HCM, D51, DSD, SD1, DSD, BPM, 
      D5A, QD3, D6A, DSD, SF1, DSD, D6B, QF2; 

DISP_SQ: VCM, HCM, D51, DSD, SD1, DSD, BPM, 
         D5A, QD3, D6A, DSD, SF1, SQ, DSD, D6B, QF2; 

DBA: B1, D52, 
     GS, DISP, D7, BPM, DSL, SF2, MP, DSL, D71, HCM, D71, INV(DISP), GE, 
     D52, B1;

DBA_SQ: B1, D52, 
        GS, DISP_SQ, D7, BPM, DSL, SF2, MP, DSL, D71, HCM, D71, INV(DISP), GE, 
        D52, B1;

{LINE1: LS, D0, GS, HB_SQ, GE, D4B2, DBA_SQ, D4L2, GS, INV(LB), GE, D001, SS, SS_MP,
      D00new, GS, LB, GE, D4L2, DBA, D4B2, GS, INV(HB), GE, D0, LS, LS_MP;}

LINE: D0, GS, HB_SQ, GE, D4B2, DBA_SQ, D4L2, GS, INV(LB), GE, D00new,
      INV(D00new), GS, LB, GE, D4L2, DBA, D4B2, GS, INV(HB), GE, D0;

RING: 15*LINE, CAV;

{RING: LINE, CAV;}

CELL: RING, SYMMETRY  = 1;

END;