stephenbrooks.org : ChicaneLinacB.txt

› 2002-1
› 2003-1
› 2003-2
› 2004-1
› 2004-2
› 2004-3
› 2004-4
› 2004-5
› 2004-6
› 2005-2
› 2005-3
› 2005-4
› 2005-5
› 2005-7
› 2005-8
› 2005-9
› 2006-1
› 2006-2
› 2006-3
› 2006-4
› 2006-5
› 2006-6
› 2006-8
› 2006-9
› 2007-2
› 2007-3
› 2008-1
› 2008-2
› 2008-3
› 2008-4
› 2009-2
› 2009-4
› 2009-5
› 2009-6
› 2009-7
› 2010-1
› 2010-2
› 2010-3
› 2010-4
› 2010-5
› 2010-6
› 2010-7
› 2010-8
› 2011-1
› 2011-2
› 2011-3
› 2011-4
› 2011-5
› 2011-6

ChicaneLinacB.txt

{
ChicaneLinacB/~580
SolenoidsOnly (i.e. decay channel 30m long) plus the bending chicane and Grahame's 88MHz linac.
Solenoids now allowed up to 90cm long
Bugfix of ChicaneLinacA
May 19th, 2004
}

!MINVER 4.41

{Parameter Value}
t_max 500ns
n_decays 3

{RodSource Timespread Axial File X Y Z RodAngle}
TantalumRod 3 1 'pi_plus_2G2eV.csv' 0 0 [0,0.45] [0,0.5]

{Synchronous-particle t_start Energy Z}
SyncMuon #TantalumRod.Timespread?+5:0#ns 190MeV #TantalumRod.Z#

#z=0; ok=1;
#for (n=1;ok;n++)
#{
{Solenoid Length Radius Field}
# if (n==1) #S1 [0.2,0.45] 0.1 [0,20];#;
# else {S[n]# [0.2,0.9] [0.1,0.4] #if (n<=4) #[-5,5];#; else #[-4,4];#;}
# z+=S[n].Length;
# if (z>=30) ok=0;
# if (ok)
# {
{Drift Length Bore}
#D[n]# [0.5,1] 0.5
# z+=D[n].Length;
# }
#}
#MaxSol=n-1;

DecayChannel: #for (n=1;n<=MaxSol;n++) {S[n] if (n<MaxSol) {#,#D[n]#,#}}#;

{ Bending chicane stuff }

{Drift Length}
O1 0.4713
O2 0.2144

#// Bend
{Drift Length Field Angle}
HBF 0.176 0.4353383 16°
HBD 0.176 0.1964242 -9°
HalfHBD 0.088 0.1964242 -4.5°

#// Edge
{Drift Length Field Angle EdgeAngle Something}
EDGE 0 0 0 0.381063 0.5

{BMagnet File1 File2 File3 File4}
L2_FIELD 'l2y0.txt' 'l2y5.txt' 'l2y10.txt' 'l2y13.txt'

{Rectangular-aperture x1 x2 y1 y2 }
B1A -0.6 0.6 -0.15 0.15
B2A -0.6 0.4 -0.15 0.15

B1: O1,EDGE,B1A,4*HBF,B1A,EDGE,O1;
B2: B2A,HBD,HalfHBD,L2_FIELD,HalfHBD,HBD,B2A;
triplet: O2,B1,B2,B1,O2;
Chicane: 2*triplet,~2*triplet;

{
Compare with File ..\PARMILA_LinacAfterChicane_88.txt translated from PARMILA format
}

{Parameter Value}
LinacCells [60,120]; #// 90 in original
#LinacCells=int(LinacCells);

#for (n=1;n<=LinacCells;n++)
#{
{Solenoid Length Radius Field}
LS#n# [0.2,0.9] 0.15 [-4,4]
{Parameter Value}
LD#n# [0.5,1]
{Drift Length Bore}
LD#n#a #n==1?LD[n]*2/3-0.25:LD[n]*2/3# 0.15
LD#n#b #LD[n]/3# 0.15
{RF Frequency/MHz Radius Voltage/MV Phase}
RF#n# 88 0.15 [0,#(LD[n]+LS[n].Length)*3.6/0.9#] [-180°,+180°]
#}

Linac: #for (n=1;n<=LinacCells;n++) {
LD#n#a,RF#n#,LD#n#b,LS#n if (n<LinacCells) #,#;
#}#;

{Finish-aperture radius MinEnergy MaxEnergy}
END 0.5 300MeV 500MeV

TantalumRod,SyncMuon,DecayChannel,Chicane,Linac,END;

E-mail: sb strudel character

stephenbrooks.org

Yahoo: scrutney_mallard

Jabber: stephenbrooks strudel character

jabber.org

Twitter: stephenjbrooks