1 | ! YIL13: Taken from tests_old/test_runs/track_example/ |
---|
2 | option,-echo,-info,-warn; |
---|
3 | |
---|
4 | !--------1---------2---------3---------4---------5---------6---------7---------8 |
---|
5 | !-- This job should be run with mad -x version 8.51/02 |
---|
6 | !-- translated to madx format ETDA 9 dec 2003 |
---|
7 | |
---|
8 | |
---|
9 | !-- Define Carol Johnstone's FFAG lattice, and compute Twiss parameters at |
---|
10 | ! nominal momentum |
---|
11 | |
---|
12 | beam particle=posmuon, energy=16.3; |
---|
13 | |
---|
14 | sf: sextupole, l=0.01, k2=0; |
---|
15 | qf: quadrupole, l=0.15/2, k1=+1.3798; |
---|
16 | bd: sbend l=0.35, angle=2*pi/314, k1=-0.59135; |
---|
17 | d: drift, l=0.75; |
---|
18 | rfvolt:=0.1; |
---|
19 | rflag:=1/2; |
---|
20 | |
---|
21 | rf: rfcavity, l=1.5, volt=rfvolt, lag=rflag, harmon=4; |
---|
22 | |
---|
23 | carol: line=(qf,d,rf,d,bd,d,rf,d,qf); |
---|
24 | |
---|
25 | use, period=carol; |
---|
26 | twiss save; |
---|
27 | |
---|
28 | title "Carol Johnstone's FFAG ring lattice 6 to 20 GeV - apr07k"; |
---|
29 | c314: line=(314*carol); |
---|
30 | use, period=c314; |
---|
31 | makethin, sequence=c314; |
---|
32 | use, period=c314; |
---|
33 | |
---|
34 | twiss; |
---|
35 | |
---|
36 | rfvolt:=0.1; |
---|
37 | rflag:= 1/2; |
---|
38 | rflag:=3/8; |
---|
39 | |
---|
40 | tr$macro(turn): macro = { |
---|
41 | print, text="Number turn"; |
---|
42 | } |
---|
43 | |
---|
44 | track, onepass, update, dump; |
---|
45 | start, x=1e-6, px=0, y=1e-6, py=0, t=-0.25; |
---|
46 | start, x=1e-6, px=0, y=1e-6, py=0, t=-1.0; |
---|
47 | start, x=1e-6, px=0, y=1e-6, py=0, t=-1.75; |
---|
48 | run, turns=10, ffile=1; |
---|
49 | endtrack; |
---|
50 | stop; |
---|
51 | |
---|