1 | |
---|
2 | // only dipoles to make 360 degres BOTH THICK and THIN *** TEST MADX ***** |
---|
3 | option,-echo, warn; |
---|
4 | |
---|
5 | dip : sbend,l=10,angle=2.0*3.14159265359/12.0; |
---|
6 | dipt : sbend,l=10,angle=2.0*3.14159265359/12.0,tilt=0.1; |
---|
7 | |
---|
8 | seqend: marker; ! bending radius = 19.098593 |
---|
9 | midseq: marker; |
---|
10 | |
---|
11 | musr : SEQUENCE, REFER=CENTRE ,l=120; |
---|
12 | dip1 : dip, at=5; |
---|
13 | dip2 : dip, at=5+10; |
---|
14 | dip3 : dip, at=5+20; |
---|
15 | dip4 : dip, at=5+30; |
---|
16 | dip5 : dip, at=5+40; |
---|
17 | dip6 : dip, at=5+50; |
---|
18 | midseq , at=60; |
---|
19 | dip7 : dip, at=5+60; |
---|
20 | dip8 : dip, at=5+70; |
---|
21 | dip9 : dip, at=5+80; |
---|
22 | dip10 : dip, at=5+90; |
---|
23 | dip11 : dip, at=5+100; |
---|
24 | dip12 : dip, at=5+110; |
---|
25 | ENDSEQUENCE; |
---|
26 | |
---|
27 | option,echo; |
---|
28 | beam,particle=proton; |
---|
29 | use,period=musr;select,flag=survey,column=name,l,angle,x,z,theta; |
---|
30 | survey,psi0=0.0,file="test-survey_1.tfs"; |
---|
31 | !*************** CHECKS ************************** |
---|
32 | ! x(dip3) = -19.098593 , z(dip3) = 19.098593 * |
---|
33 | ! x(dip6) = -38.19718634 , z(dip6) = -3.948578443e-12 * |
---|
34 | !******************************************************** |
---|
35 | makethin,sequence=musr; |
---|
36 | use,period=musr;select,flag=survey,column=name,l,angle,x,z,theta; |
---|
37 | survey,psi0=0.0,file="test-survey_2.tfs"; |
---|
38 | stop; |
---|