1 | |
---|
2 | call, file="../share/LEIR/LEIR.seqx"; |
---|
3 | |
---|
4 | |
---|
5 | eg := 0.938272+0.0042+10000; ! ... in GeV |
---|
6 | |
---|
7 | eg := 0.938272*2.8385; ! ... in GeV on transition |
---|
8 | eg := 0.938272*1.1547; ! ... in GeV beta = 0.5 |
---|
9 | |
---|
10 | beam, particle = proton, energy = eg; |
---|
11 | |
---|
12 | use, period=LEIR; |
---|
13 | |
---|
14 | |
---|
15 | |
---|
16 | |
---|
17 | select,flag=twiss,clear; |
---|
18 | select, flag=twiss, column=name,s,beta11,beta22,alfa11,alfa22,mu1,mu2,disp1,disp2, |
---|
19 | re11,re12,re13,re14,re15,re16, |
---|
20 | re21,re22,re23,re24,re25,re26, |
---|
21 | re31,re32,re33,re34,re35,re36, |
---|
22 | re41,re42,re43,re44,re45,re46, |
---|
23 | re51,re52,re53,re54,re55,re56, |
---|
24 | re61,re62,re63,re64,re65,re66; |
---|
25 | |
---|
26 | |
---|
27 | |
---|
28 | ptc_create_universe; |
---|
29 | ptc_create_layout, model=1, method=6, nst=5, exact=true, closed_layout=true; |
---|
30 | |
---|
31 | !!!!! T I M E F A L S E, T O T P A T H T R U E |
---|
32 | ptc_setswitch, debuglevel=1, exact_mis=true, time=false, totalpath=true; |
---|
33 | |
---|
34 | |
---|
35 | ptc_twiss, table=twiss, icase=56, no=2, closed_orbit; |
---|
36 | write, table=twiss, file="leir.56dl.ptc.twiss"; |
---|
37 | write, table=ptc_twiss_summary, file="leir.56dl.ptc.summ.twiss"; |
---|
38 | |
---|
39 | ptc_end; |
---|
40 | |
---|
41 | |
---|
42 | plot, haxis=s, vaxis=beta11,beta22, colour=100; |
---|
43 | plot, haxis=s, vaxis=disp1, colour=100; |
---|
44 | plot, haxis=s, vaxis=x, colour=100; |
---|
45 | |
---|