1 | !TITLE,'Test input for MAD-X'; |
---|
2 | |
---|
3 | eg := 100; |
---|
4 | bg := eg/pmass; |
---|
5 | en := 3.75e-06; |
---|
6 | epsx := en/bg; |
---|
7 | epsy := en/bg; |
---|
8 | beam, particle = proton, energy = eg , |
---|
9 | sigt= 0.077 , |
---|
10 | sige= 1.1e-4 , |
---|
11 | npart= 1.05e11 , |
---|
12 | exn=4*en, eyn=4*en , |
---|
13 | kbunch = 10, |
---|
14 | et = 0.002, bv = -1, |
---|
15 | ex=epsx, ey=epsy; |
---|
16 | value,epsx,epsy; |
---|
17 | option,-echo; |
---|
18 | call file=fv9.opt; // string without blanks does not need ".." |
---|
19 | call file="fv9.seq"; |
---|
20 | option,echo; |
---|
21 | |
---|
22 | use,period=fivecell; |
---|
23 | // alignment errors |
---|
24 | |
---|
25 | select,flag=error,clear; |
---|
26 | select,flag=error,pattern="q.*",range=qf.1; |
---|
27 | ealign,dx=0.0001; |
---|
28 | select,flag=error,class=quadrupole,range=qf.4/qf.5; |
---|
29 | ealign,dy=0.0002,dtheta=0.0003; |
---|
30 | |
---|
31 | /* |
---|
32 | select,flag=error,clear; |
---|
33 | |
---|
34 | // field errors |
---|
35 | gcutr=3.0; |
---|
36 | b1r=1.e-4; |
---|
37 | b2r=2.e-4; |
---|
38 | b3r=3.e-4; |
---|
39 | b4r=4.e-4; |
---|
40 | b5r=5.e-4; |
---|
41 | a1r=1.e-4; |
---|
42 | a2r=2.e-4; |
---|
43 | a3r=3.e-4; |
---|
44 | a4r=4.e-4; |
---|
45 | a5r=5.e-4; |
---|
46 | |
---|
47 | Select, flag=error, clear = true; |
---|
48 | select, flag=error, pattern="q.*\..*"; |
---|
49 | efcomp, order:=1, radius:=0.010, |
---|
50 | dknr={0,1e-1*b2r}, |
---|
51 | dksr={0,1e-1*a2r}; |
---|
52 | esave; |
---|
53 | */ |
---|
54 | |
---|
55 | select,flag=my_table,class=quadrupole, |
---|
56 | column=name,parent,keyword,s,betx,bety,dx,dy,k1l, |
---|
57 | re11,re12,re13,re14; |
---|
58 | |
---|
59 | select,flag=my_sect_table,!class=drift, |
---|
60 | column=name,pos,k1,r11,r66,t111,t666; |
---|
61 | |
---|
62 | twiss,centre,rmatrix, |
---|
63 | sectormap,sectortable=my_sect_table,sectorfile=my_sect_file, |
---|
64 | table=my_table,file=twiss_fv9; |
---|
65 | |
---|
66 | stop; |
---|