source: PSPA/madxPSPA/tests/share/line_lattice/eirt1.madx @ 430

Last change on this file since 430 was 430, checked in by touze, 11 years ago

import madx-5.01.00
File size: 7.3 KB
Line 
1  MBETX:=19.903055360355;
2  MALFX:=0;
3  MBETY:=23.515062700786;
4  MALFY:=0;
5  PCETA:=5.0; //peak polarimeter dispersion (mm)
6  PCRMM:=0.485436893589E-4; //d(ANGLE)/d(ETA) (rad/mm)
7  PCANG:=PCETA*PCRMM; //polarimeter bend angle (rad)
8  ZBPC1:=3.0; //pole "Z" length (m)
9  RBPC1:=ZBPC1/SIN(PCANG); //bend radius (m)
10  LBPC1:=RBPC1*PCANG; //effective length (m)
11  ABPC1a:=ASIN(0.5*ZBPC1/RBPC1); //bend angle ("short" half)
12  LBPC1a:=RBPC1*ABPC1a; //effective length ("short" half)
13  ABPC1b:=PCANG-ABPC1a; //bend angle ("long" half)
14  LBPC1b:=LBPC1-LBPC1a; //effective length ("long" half)
15  BPC1a:sbend, L:=LBPC1a, ANGLE:=+ABPC1a, E1:=0, FINT:=0.5, FINTX:=0;
16  BPC1b:sbend, L:=LBPC1b, ANGLE:=+ABPC1b, E2:=+PCANG, FINT:=0, FINTX:=0.5;
17  BPC4a:sbend, L:=LBPC1b, ANGLE:=+ABPC1b, E1:=+PCANG, FINT:=0.5, FINTX:=0;
18  BPC4b:sbend, L:=LBPC1a, ANGLE:=+ABPC1a, E2:=0, FINT:=0, FINTX:=0.5;
19  ZBPC2:=6.0; //pole "Z" length (m)
20  RBPC2:=ZBPC2/SIN(PCANG); //bend radius (m)
21  LBPC2:=RBPC2*PCANG; //effective length (m)
22  ABPC2a:=ASIN(0.5*ZBPC2/RBPC2); //bend angle ("short" half)
23  LBPC2a:=RBPC2*ABPC2a; //effective length ("short" half)
24  ABPC2b:=PCANG-ABPC2a; //bend angle ("long" half)
25  LBPC2b:=LBPC2-LBPC2a; //effective length ("long" half)
26  BPC2a:sbend, L:=LBPC2b, ANGLE:=-ABPC2b, E1:=-PCANG, FINT:=0.5, FINTX:=0;
27  BPC2b:sbend, L:=LBPC2a, ANGLE:=-ABPC2a, E2:=0, FINT:=0, FINTX:=0.5;
28  BPC3a:sbend, L:=LBPC2a, ANGLE:=-ABPC2a, E1:=0, FINT:=0.5, FINTX:=0;
29  BPC3b:sbend, L:=LBPC2b, ANGLE:=-ABPC2b, E2:=-PCANG, FINT:=0, FINTX:=0.5;
30  ZPCBBo:=16.1; //outer bend-to-bend "Z" spacing (m)
31  LPCBBo:=ZPCBBo/COS(PCANG); //outer bend-to-bend path length (m)
32  LPCBBi:=1.4; //inner bend-to-bend "Z" spacing (m)
33  DPCBBo:drift, L:=LPCBBo;
34  DPCBBi:drift, L:=LPCBBi/2;
35  BQMD5:=0;
36  BQMD6:=5.740786749717*Efact;
37  BQMD7:=0;
38  BQMD8:=-4.203944338118*Efact;
39  BQXL1:=6.735960550255*Efact;
40  BQXL2:=-5.452921577815*Efact;
41  BQXL3:=3.771317642955*Efact;
42  BQXL4:=-3.503813918485*Efact;
43  BQXL5:=3.654338100519*Efact;
44  BQXL6:=-4.710648221004*Efact;
45  BQXL7:=BQXL5;
46  BQXL8:=BQXL4;
47  BQXL9:=BQXL3;
48  BQXL10:=BQXL2;
49  BQXL11:=BQXL1;
50  BQXL12:=-3.429907903986*Efact;
51  QMD5:QBDS3, K1=BQMD5*QFACT3;
52  QMD6:QBDS3, K1=BQMD6*QFACT3;
53  QMD7:QBDS3, K1=BQMD7*QFACT3;
54  QMD8:QBDS3, K1=BQMD8*QFACT3;
55  QXL1:QBDS2, K1=BQXL1*QFACT2;
56  QXL2:QBDS2, K1=BQXL2*QFACT2;
57  QXL3:QBDS2, K1=BQXL3*QFACT2;
58  QXL4:QBDS2, K1=BQXL4*QFACT2;
59  QXL5:QBDS2, K1=BQXL5*QFACT2;
60  QXL6:QBDS2, K1=BQXL6*QFACT2;
61  QXL7:QBDS2, K1=BQXL7*QFACT2;
62  QXL8:QBDS2, K1=BQXL8*QFACT2;
63  QXL9:QBDS2, K1=BQXL9*QFACT2;
64  QXL10:QBDS2, K1=BQXL10*QFACT2;
65  QXL11:QBDS2, K1=BQXL11*QFACT2;
66  QXL12:QBDS2, K1=BQXL12*QFACT2;
67  LQFF2:=2.0;
68  rQFF2:=0.01;
69  BQPFFa:=5.041841659975*Efact;
70  BQPFFb:=-5.165565767885*Efact;
71  BQPFFc:=-7.106519464711*Efact;
72  BQPFFd:=7.177783791084*Efact;
73  BQPFFe:=-6.571602982266*Efact;
74  BQPFF0:=BQPFFa;
75  BQPFF1:=BQPFFa;
76  BQPFF2:=BQPFFb;
77  BQPFF3:=BQPFFb;
78  BQPFF4:=BQPFFc;
79  BQPFF5:=BQPFFc;
80  BQPFF6:=BQPFFd;
81  BQPFF7:=BQPFFd;
82  BQPFF8:=BQPFFe;
83  BQPFF9:=BQPFFe;
84  KQPFF0:=(BQPFF0/rQFF2)/Brho;
85  KQPFF1:=(BQPFF1/rQFF2)/Brho;
86  KQPFF2:=(BQPFF2/rQFF2)/Brho;
87  KQPFF3:=(BQPFF3/rQFF2)/Brho;
88  KQPFF4:=(BQPFF4/rQFF2)/Brho;
89  KQPFF5:=(BQPFF5/rQFF2)/Brho;
90  KQPFF6:=(BQPFF6/rQFF2)/Brho;
91  KQPFF7:=(BQPFF7/rQFF2)/Brho;
92  KQPFF8:=(BQPFF8/rQFF2)/Brho;
93  KQPFF9:=(BQPFF9/rQFF2)/Brho;
94  QPFF0:quadrupole, L:=LQFF2/2, K1:=KQPFF0, aperture:=rQFF2;
95  QPFF1:quadrupole, L:=LQFF2/2, K1:=KQPFF1, aperture:=rQFF2;
96  QPFF2:quadrupole, L:=LQFF2/2, K1:=KQPFF2, aperture:=rQFF2;
97  QPFF3:quadrupole, L:=LQFF2/2, K1:=KQPFF3, aperture:=rQFF2;
98  QPFF4:quadrupole, L:=LQFF2/2, K1:=KQPFF4, aperture:=rQFF2;
99  QPFF5:quadrupole, L:=LQFF2/2, K1:=KQPFF5, aperture:=rQFF2;
100  QPFF6:quadrupole, L:=LQFF2/2, K1:=KQPFF6, aperture:=rQFF2;
101  QPFF7:quadrupole, L:=LQFF2/2, K1:=KQPFF7, aperture:=rQFF2;
102  QPFF8:quadrupole, L:=LQFF2/2, K1:=KQPFF8, aperture:=rQFF2;
103  QPFF9:quadrupole, L:=LQFF2/2, K1:=KQPFF9, aperture:=rQFF2;
104  LLMD:=2.505;
105  LLXL:=21.552047436833;
106  LMD0:drift, L:=LLMD-0.5;
107  LMD1:drift, L:=LLMD;
108  LXL1:drift, L:=LLXL-0.5;
109  LXL2:drift, L:=LLXL;
110  LPOL:=54.4; //estimated length of polarimeter chicane (m)
111  DPCBPM:drift, L:=1.4;
112  LPFF0:=34.0570551849;
113  LPFFQ:=0.5;
114  LPFF1:=1.0;
115  LPFFB:=0.5;
116  LPFF2:=1.0;
117  LPFF3:=10.0;
118  LPFF4:=2.1481;
119  DPFF0:drift, L:=LPFF0;
120  DPFFQ:drift, L:=LPFFQ;
121  DPFF1:drift, L:=LPFF1;
122  DPFFB:drift, L:=LPFFB;
123  DPFF2:drift, L:=LPFF2;
124  DPFF3:drift, L:=LPFF3;
125  DPFF4:drift, L:=LPFF4;
126  LEGEO1:=3.041816244269E2;
127  EGEO1:drift, L:=LEGEO1;
128  PCBPM1:monitor;
129  PCBPM2:monitor;
130  PCBPM3:monitor;
131  BEGEIRT1:marker;
132  POL:marker;
133  ENDEIRT1:marker;
134  POLCHIC:LINE=(PCBPM1,DPCBPM,BPC1a,BPC1b,DPCBBo,BPC2a,BPC2b,DPCBBi,PCBPM2,
135                                    POL,DPCBBi,BPC3a,BPC3b,DPCBBo,BPC4a,BPC4b,DPCBPM,PCBPM3);
136  BBDGN:LINE=(LMD0,
137                                QMD5,BPMQ079,MMOVER,QMD5,LMD1,
138                                QMD6,BPMQ079,MMOVER,QMD6,LMD1,
139                                QMD7,BPMQ079,MMOVER,QMD7,LMD1,
140                                QMD8,BPMQ079,MMOVER,QMD8,LXL1,
141                                QXL1,BPMQ079,MMOVER,QXL1,LXL2,
142                                QXL2,BPMQ079,MMOVER,QXL2,LXL2,
143                                QXL3,BPMQ079,MMOVER,QXL3,LXL2,
144                                QXL4,BPMQ079,MMOVER,QXL4,LXL2,
145                                QXL5,BPMQ079,MMOVER,QXL5,LXL2,
146                                QXL6,BPMQ079,MMOVER,QXL6,LXL2,
147                                QXL7,BPMQ079,MMOVER,QXL7,LXL2,
148                                QXL8,BPMQ079,MMOVER,QXL8,LXL2,
149                                QXL9,BPMQ079,MMOVER,QXL9,LXL2,
150                                QXL10,BPMQ079,MMOVER,QXL10,LXL2,
151                                QXL11,BPMQ079,MMOVER,QXL11,LXL2,
152                                QXL12,BPMQ079,MMOVER,QXL12,DPFF0,
153                                QPFF0,BPMQ079,MMOVER,QPFF0,DPFFQ,
154                                QPFF1,BPMQ079,MMOVER,QPFF1,DPFF1,
155                                QPFF2,BPMQ079,MMOVER,QPFF2,DPFFQ,
156                                QPFF3,BPMQ079,MMOVER,QPFF3,DPFFB,
157                                POLCHIC,DPFFB,
158                                QPFF4,BPMQ079,MMOVER,QPFF4,DPFFQ,
159                                QPFF5,BPMQ079,MMOVER,QPFF5,DPFF2,
160                                QPFF6,BPMQ079,MMOVER,QPFF6,DPFFQ,
161                                QPFF7,BPMQ079,MMOVER,QPFF7,DPFF3,
162                                QPFF8,BPMQ079,MMOVER,QPFF8,DPFFQ,
163                                QPFF9,BPMQ079,MMOVER,QPFF9,DPFF4);
164  EIRT1:LINE=(BEGEIRT1,BBDGN,ENDEIRT1);
165  EIRT1G:LINE=(BEGEIRT1,
166                                  LMD0,
167                                  QMD5,QMD5,LMD1,
168                                  QMD6,QMD6,LMD1,
169                                  QMD7,QMD7,LMD1,
170                                  QMD8,QMD8,EGEO1,
171                                  QPFF0,QPFF0,DPFFQ,
172                                  QPFF1,QPFF1,DPFF1,
173                                  QPFF2,QPFF2,DPFFQ,
174                                  QPFF3,QPFF3,DPFFB,
175                                  POLCHIC,DPFFB,
176                                  QPFF4,QPFF4,DPFFQ,
177                                  QPFF5,QPFF5,DPFF2,
178                                  QPFF6,QPFF6,DPFFQ,
179                                  QPFF7,QPFF7,DPFF3,
180                                  QPFF8,QPFF8,DPFFQ,
181                                  QPFF9,QPFF9,DPFF4,
182                                  ENDEIRT1);
183  RETURN;
Note: See TracBrowser for help on using the repository browser.