S N SIS18-TE-ESR TE3UF FOCUS ;
; mode for injection into ESR on 2nd May 2021
; TE line geometry based on MIRKO file from Hans Geissel/Benno F.,
; added ESR dipole and ESR, Helmut Weick 25.11.2020
; added May2021 values, parammodi in/output , HWeick 02.05.2021
; mode for focus on TE3UF target by Hans Geissel, 3.5.2021
; isoc. modes of ESR from Sergey Litvinov, 05.05.2021
;
;
MASS = 72 ; [u]
CHARGE = 32 ; [e]
ENERGY = 379.61 * MASS ; gamma=1.407
;
BRHO = SQRT(ENERGY*ENERGY+2*ENERGY*931.4940*MASS)/CHARGE/2.99792458E8*1E6;
GAMMA = 1 + ENERGY/MASS/931.4940 ;
BETAV = 100*SQRT(1-(1/GAMMA^2)) ; [%]
;
R P ENERGY MASS CHARGE ;
;
; starting in SIS
EX = 20.E-06 ; [m]
EY = 20.E-06 ; [m]
TXA = -1.82809997 ; [1]
TXB = 17.9983997 ; [m]
TYA = 0.102665998 ; [1]
TYB = 6.38079977 ; [m]
XD0 = 2.6210839844 /(1+1/gamma) ; [m]
AD0 = 0.0873332163 /(1+1/gamma) ; [1]
;
;starting at TE target
EX = 20.E-06 ; [m]
EY = 20.E-06 ; [m]
TXA = 0.0 ; [1]
TXB = EX/(0.003)^2 ; [m] with 10 mrad
TYA = 0.0 ; [1]
TYB = EY/(0.010)^2 ; [m] with 10 mrad
XD0 = 0.0 ; [m]
AD0 = 0.0 ; [1]
;
;starting in ESR, 2021 isoc. gamma_t=1.34
; EX = 20E-06 ; [m]
; EY = 20E-06 ; [m]
; TXA = 0.00 ; [1]
; TXB = 7.356 ; [m]
; TYA = 0.00 ; [1]
; TYB = 39.93 ; [m]
; XD0 = -9.953 /(1+1/gamma) ; [m]
; AD0 = 0.0 /(1+1/gamma) ; [1]
;
;starting in ESR, 2021 std mode
; EX = 20E-06 ; [m]
; EY = 20E-06 ; [m]
; TXA = 0.00 ; [1]
; TXB = 10.47 ; [m]
; TYA = 0.00 ; [1]
; TYB = 4.042 ; [m]
; XD0 = 2.016 /(1+1/gamma) ; [m]
; AD0 = 0.0 /(1+1/gamma) ; [1]
;
;starting in ESR, 2021 asymm. isoc. gamma_t=1.407
; EX = 20E-06 ; [m]
; EY = 20E-06 ; [m]
; TXA = 0.00 ; [1]
; TXB = 2.17 ; [m]
; TYA = 0.00 ; [1]
; TYB = 13.6 ; [m]
; XD0 = 0 /(1+1/gamma) ; [m]
; AD0 = 0.0 /(1+1/gamma) ; [1]
;
T X TXA TXB EX ;
T Y TYA TYB EY ;
D P 0 0.001 ;
;
O C N M L S ;
;O C N E T S ;
C M 3 ; use fringe field integrals
;F T H ;
C O 1 ; calculation order
O O 1 ; output order
;
;P A B E ;
;S F TEST E ;
;S O D ; set output disabled
;
; ------- Element part -------------------
;
MDS001 = 7.50000000 ; GTE3MU1
MDR001 = 17.8700008 ; GTE3MU1
MDG001 = 3.99999991E-02 ; GTE3MU1
MDS002 = 7.50000000 ; GTE4MU1
MDR002 = 11.2500000 ; GTE4MU1
MDG002 = 3.50000001E-02 ; GTE4MU1
MDS003 = 7.00000000 ; GTE4MU2
MDR003 = -12.0524569 ; GTE4MU2
MDG003 = 3.50000001E-02 ; GTE4MU2
MDS004 = 3.77189994 ; GTE5MU0
MDR004 = -21.3375092 ; GTE5MU0
MDG004 = 3.99999991E-02 ; GTE5MU0
MDS005 = 6.50000000 ; GE01MU4I
MDR005 = -10.5769997 ; GE01MU4I
MDG005 = 1.99999996E-02 ; GE01MU4I
;---------------------------
;
; new mode with small focus on TE3UF, H. Geissel 29.03.2021
MQS001 = 0.226839095 *BRHO/6.62436835; GTE1QD11
MQS002 = -0.245030180 *BRHO/6.62436835; GTE1QD12
MQS003 = 6.20027855E-02 *BRHO/6.62436835; GTE2QT11
MQS004 = -0.195458934 *BRHO/6.62436835; GTE2QT12
MQS005 = 0.207069993 *BRHO/6.62436835; GTE2QT13
MQS006 = 0.198365897 *BRHO/6.62436835; GTE3QD11
MQS007 = -0.220464170 *BRHO/6.62436835; GTE3QD12
MQS008 = -0.207067579 *BRHO/6.62436835; GTE4QD11
MQS009 = 0.137642503 *BRHO/6.62436835; GTE4QD12
MQS010 = 7.44464919E-02 *BRHO/6.62436835; GTE4QT21
MQS011 = -0.137685254 *BRHO/6.62436835; GTE4QT22
MQS012 = 9.01356563E-02 *BRHO/6.62436835; GTE4QT23
MQS013 = -3.97465331E-03 *BRHO/6.62436835; GTE4QT31
MQS014 = 0.137549922 *BRHO/6.62436835; GTE4QT32
MQS015 = -0.117877714 *BRHO/6.62436835; GTE4QT33
MQS017 = 0.103170395 *BRHO/6.62436835; GTE5QD11
MQS018 = -0.110985421 *BRHO/6.62436835; GTE5QD12
MQS019 = -0.134439200 *BRHO/6.62436835; GTE5QD21
MQS020 = 0.193664759 *BRHO/6.62436835; GTE5QD22
;
;parammodi export on 2.5.2021 for U91+ injection at 300 MeV/u
GTE1QD11 = 0.2017 ;
GTE1QD12 = -0.2374 ;
GTE2QT11 = 0.2487 ;
GTE2QT12 = -0.4301 ;
GTE2QT13 = 0.3493 ;
GTE3QD11 = 0.4885 ;
GTE3QD12 = -0.5615 ;
GTE4QD11 = -0.5625 ;
GTE4QD12 = 0.4554 ;
GTE4QT21 = 0.3805 ;
GTE4QT22 = -0.4588 ;
GTE4QT23 = 0.2175 ;
GTE4QT31 = -0.0032 ;
GTE4QT32 = 0.2113 ;
GTE4QT33 = -0.2073 ;
GTE5QD11 = 0.4 ;
GTE5QD12 = -0.47 ;
GTE5QD21 = -0.9 ;
GTE5QD22 = 0.68 ;
;
MQS001 = GTE1QD11 / 0.666 * 0.060 * BRHO ;
MQS002 = GTE1QD12 / 0.666 * 0.060 * BRHO ;
MQS003 = GTE2QT11 / 1.000 * 0.060 * BRHO ;
MQS004 = GTE2QT12 / 1.000 * 0.060 * BRHO ;
MQS005 = GTE2QT13 / 1.000 * 0.060 * BRHO ;
MQS006 = GTE3QD11 / 1.000 * 0.060 * BRHO ;
MQS007 = GTE3QD12 / 1.000 * 0.060 * BRHO ;
MQS008 = GTE4QD11 / 1.000 * 0.060 * BRHO ;
MQS009 = GTE4QD12 / 1.000 * 0.060 * BRHO ;
MQS010 = GTE4QT21 / 1.000 * 0.060 * BRHO ;
MQS011 = GTE4QT22 / 1.000 * 0.060 * BRHO ;
MQS012 = GTE4QT23 / 1.000 * 0.060 * BRHO ;
MQS013 = GTE4QT31 / 1.000 * 0.060 * BRHO ;
MQS014 = GTE4QT32 / 1.000 * 0.060 * BRHO ;
MQS015 = GTE4QT33 / 1.000 * 0.060 * BRHO ;
MQS017 = GTE5QD11 / 1.0482* 0.085 * BRHO ;
MQS018 = GTE5QD12 / 1.0482* 0.085 * BRHO ;
MQS019 = GTE5QD21 / 1.000 * 0.060 * BRHO ;
MQS020 = GTE5QD22 / 1.000 * 0.060 * BRHO ;
;
; ******** ESR dipoles ******
DIPGAP = 0.035 ; vertical aperture
N1 = 4.55401464E-03 ; n1 corresponds to the quadrupole error
N2 = 0.025991595717 ; from O.Gorda 3D simulations
N3 =-2.125422821E-03 ;
N4 =-4.952942899E-03 ;
N5 = 1.36464659E-03 ;
EDANGLE = 7.500 ;
DIPRADIUS = 6.35703 ; effective radius, geometrical 6.25
;
; ******** ESR quadrupoles *****
QUAGAP = 0.09 ; vertical aperture
;
;input in K'L as in parammodi
;
;----------std mode like 05.05.2021 ----------------
E01QS0D = -0.4175764 ; [1/m]
E01QS1F = 0.3833432 ;
E01QS2F = 0.2769876 ;
E01QS3D = -0.5628948 ;
E01QS4F = 0.3481972 ;
E01QS5F = E01QS4F ;
E01QS6D = E01QS3D ;
E01QS7F = E01QS2F ;
E01QS8F = E01QS1F ;
E01QS9D = E01QS0D ;
;
;----------isoc--old-(ip-0)----------------
E01QS0D = -0.392974515278 ; [1/m]
E01QS1F = 0.394063234647 ;
E01QS2F = 0.0 ;
E01QS3D = -0.380833880289 ;
E01QS4F = 0.269288838358 ;
E01QS5F = E01QS4F ;
E01QS6D = E01QS3D ;
E01QS7F = E01QS2F ;
E01QS8F = E01QS1F ;
E01QS9D = E01QS0D ;
;
QL01 = 0.8216; [m]
QL02 = 0.8346;
QL03 = 0.8216;
QL04 = 1.2404;
QL05 = 0.8216;
QL06 = 0.8216;
QL07 = 1.2404;
QL08 = 0.8216;
QL09 = 0.8346;
QL10 = 0.8216;
;
Q01 = E01QS0D * QUAGAP /QL01 * BRHO ;
Q02 = E01QS1F * QUAGAP /QL02 * BRHO ;
Q03 = E01QS2F * QUAGAP /QL03 * BRHO ;
Q04 = E01QS3D * QUAGAP /QL04 * BRHO ;
Q05 = E01QS4F * QUAGAP /QL05 * BRHO ;
Q06 = E01QS5F * QUAGAP /QL06 * BRHO ;
Q07 = E01QS6D * QUAGAP /QL07 * BRHO ;
Q08 = E01QS7F * QUAGAP /QL08 * BRHO ;
Q09 = E01QS8F * QUAGAP /QL09 * BRHO ;
Q10 = E01QS9D * QUAGAP /QL10 * BRHO ;
;
; Sergey asymm. isoc g_t ~ 1.407
; Q01=-2.956832426E-01 *BRHO/8.051237838 ;
; Q02= 3.056272295E-01 *BRHO/8.051237838;
; Q03= 1.900693277E-03 *BRHO/8.051237838;
; Q04=-2.172814153E-01 *BRHO/8.051237838;
; Q05= 1.120797096E-01 *BRHO/8.051237838;
; Q06= 2.545596870E-01 *BRHO/8.051237838;
; Q07=-1.782833793E-01 *BRHO/8.051237838;
; Q08= 1.900693277E-03 *BRHO/8.051237838;
; Q09= 2.219389699E-01 *BRHO/8.051237838;
; Q10=-2.245121342E-02 *BRHO/8.051237838;
;
; Q03= 0.0002360747 *BRHO ; the ESR cannot really accept zero
; Q08= 0.0002360747 *BRHO ;
;
; ******** hexapole variables ********
HEXLEN = 0.34 ;
HEXGAP = 0.16 ; vertical and horizontal
;
SEX1= 0.000000000E+00;
SEX2= 0.0;
SEX3= 0.010000000E+00;
SEX4= 0.000000000E+00;
SEX5= 0.000000000E+00;
SEX6= 0.000000000E+00;
SEX7= 0.0;
SEX8= 0.000000000E+00;
;
;----------------------------------------------
S S ;
[X,D] = XD0 ;
[A,D] = AD0 ;
D L 0 ;
G L TETARGET ;
;G L COOLER ;
D L 0 ;
; 16 "PSE"
; 12 DISP-MAT
; -37 Labels
D L 3.9057000 ;
; 22 GTE1KY1
D L 0.8420000 ;
;S B -1.00539997E-03 0.00000 0.0 0.0 ; TE1QD11-x
;S B 0.0 0.0 3.03649995E-02 0.00 ; TE1QD11-y
M Q 0.66600000 MQS001 0.060 ; GTE1QD11
D L 0.1670000 ;
; 1 GTE1DK1
D L 0.1700000 ;
; 29 GTE1DG1
D L 0.0000000 ;
D L 0.6470000 ;
;S B -1.05189998E-03 0.00000000 0.0 0.0 ; TE1QD12-x
;S B 0.0 0.0 3.01099997E-02 0.00000 ; TE1QD12-y
M Q 0.66600000 MQS002 0.060 ; GTE1QD12
D L 0.4094942 ;
D L 1.1706057 ;
; 16 "VZP31"
; 21 GTS1MU1
D L -1.1706057 ;
D L 2.34121132 ; slit
A S P 6.49999976E-02 1.00000000 ;
D L -2.3412113 ;
D L 2.34121132 ; slit
A S P 1.00000000 3.50000001E-02 ;
D L -1.1706057 ;
D L 7.1270976 ;
; 21 GTE2KX1
D L 4.0826998 ;
M Q 1.00000000 MQS003 0.060 ; GTE2QT11
D L 1.0004001 ;
M Q 1.00000000 MQS004 0.060 ; GTE2QT12
D L 1.0059000 ;
M Q 1.00000000 MQS005 0.060 ; GTE2QT13
D L 0.3909000 ;
; 1 GTE2DK4
D L 0.1700000 ;
; 29 GTE2DG4
D L 0.2596000 ;
; 29 GTE2DF4
D L 2.9633996 ;
; 16 "VZP33"
D L -1.1712610 ;
F F 0 3.75000000 ;
M S MDR001 MDS001 MDG001 ; GTE3MU1
F F 0 3.75000000 ;
D L 0.0000000 ;
D L 4.6407251 ;
; 22 GTE3KY1
D L 0.5755000 ;
M Q 1.00000000 MQS006 0.060 ; GTE3QD11
D L 0.9994000 ;
M Q 1.00000000 MQS007 0.060 ; GTE3QD12
D L 2.1566000 ;
; 1 GTE3DK3
D L 0.1830000 ;
; 29 GTE3DG3
D L 1.1531496 ;
;
TETARGET: ; 33 TE3UF
;
A S P 0.03 0.03 ;
;
D L 3.5000000 ;
M Q 1.00000000 MQS008 0.060 ; GTE4QD11
D L 1.0000000 ;
M Q 1.00000000 MQS009 0.060 ; GTE4QD12
D L 1.0000000 ;
F F 0 3.75000000 ;
M S MDR002 MDS002 MDG002 ; GTE4MU1
F F 0 3.75000000 ;
D L 7.0000000 ;
D L -0.0550000 ;
A S P 6.49999976E-02 1.00000000 ;GTE4DS5H
D L 0.3279000 ;
; 29 GTE4DG5
D L 2.2911787 ;
; 22 GTE4KY1
D L 1.4360000 ;
M Q 1.00000000 MQS010 0.060 ; GTE4QT21
D L 1.0000000 ;
M Q 1.00000000 MQS011 0.060 ; GTE4QT22
D L 1.0000000 ;
M Q 1.00000000 MQS012 0.060 ; GTE4QT23
D L 0.7839000 ;
; 1 GTE4DK8
D L 0.1700000 ;
; 29 GTE4DG8
D L 1.3929775 ;
F F 0 3.50000000 ;
M S MDR003 MDS003 MDG003 ; GTE4MU2
F F 0 3.50000000 ;
D L 0.8890000 ;
D L 0.6000000 ;
; 22 GTE4KY2
D L 1.1859000 ;
; 1 GTE4DK9
D L 0.1700000 ;
; 29 GTE4DG9
D L 4.4550977 ;
M Q 1.00000000 MQS013 0.060 ; GTE4QT31
D L 1.0000000 ;
M Q 1.00000000 MQS014 0.060 ; GTE4QT32
D L 1.0000000 ;
M Q 1.00000000 MQS015 0.060 ; GTE4QT33
D L 1.7719997 ;
; 21 GTE4KX3
D L 0.8000000 ;
; 22 GTE4KY3
D L 0.8859000 ;
; 1 GTE4DKC
D L 0.1700000 ;
; 29 GTE4DGC
D L 4.3395143 ;
; 21 GTS6MU1
; 38 A-FRS-Q1
; 38 FF#1_001
; 16 "VZP36"
; -16 VZP36?
D L 3.0144279 ;
D L 0.6355918 ;
; 21 GTE5KS1
M Q 0.250000000 0 0.118799999 ; dummy aperture
D L 0.1109000 ;
;S B 4.35790000E-03 0.00000 0.0 0.0 ; TE5QD11-x
;S B 0.0 0.0 1.02700004E-02 0.00000 ; TE5QD11-y
M Q 1.04820 MQS017 0.085 ; GTE5QD11
; 0 QVK
D L 0.4518000 ;
M Q 1.04820 MQS018 0.085 ; GTE5QD12
; 0 QVK
D L 1.1119000 ;
; 22 GTE5KY1
D L 0.6810000 ;
; 1 GTE5DKA
D L 0.1700000 ;
A S P 4.45000008E-02 1.00000000 ; GTE5DSAH
D L 1.2689791 ;
D L 0.0200000 ;
; 29 GTE5DGBG
D L 1.2180661 ;
D L -0.7026000 ;
F F 0 1.88600004 ;
M S MDR004 MDS004 MDG004 ; GTE5MU0
F F 0 1.88600004 ;
D L 0.0000000 ;
D L 1.1861100 ;
;S B 5.75790042E-03 0.00000000 0.0 0.0 ; TE5QD21-x
;S B 0.0 0.0 7.05000013E-03 0.00000000 ; TE5QD21-y
M Q 1.00000000 MQS019 0.060 ; GTE5QD21
D L 0.6600000 ;
;S B 7.39589985E-03 0.00000000 0.0 0.0 ; TE5QD22-x
;S B 0.0 0.0 6.44000014E-03 0.00000000 ; TE5QD22-y
M Q 1.00000000 MQS020 0.060 ; GTE5QD22
;D L 2.4324179 ;
;
D L 0.470 ;
;
; F22 = (TXA$ -14.52)^2*999 ;
; F23 = (TXB$ -63.06)^2*9 ;
; F24 = (TYA$ +1.057)^2*9999 ;
; F25 = (TYB$ -2.425)^2*99 ;
;
; FESR = F22 + F23 + F24 + F25 + F21 ;
; F V FESR ;
; F E 1E-20 1000 6;
;
;----------------- P. Spillers take over point ------------
TAKEOVER: ; (old position of end of TE5MU0)
;D H E (X,A) 10000 0.10 0.025 1 1 ;
;D H E (Y,B) 10000 0.10 0.025 1 1 ;
;
D L 1.971 ; from TOP, from drawing
;
;stray field matrix composed of dipoles and thin lenses, zero total length
; B. Schillinger thesis, TUD p.138
;
;dispersion in many steps of 0.1m length, 1st half
D L -1.200 ;
M S 781.25 0.00733385977767454 0.1 ;
M S 625.00 0.00916732472209317 0.1 ;
M S 250.00 0.0229183118052329 0.1 ;
M S 164.473684210526 0.0348358339439541 0.1 ;
M S 122.549019607843 0.0467533560826752 0.1 ;
M S 102.459016393443 0.0559206808047683 0.1 ;
M S 89.2857142857143 0.0641712730546522 0.1 ;
M S 78.125 0.0733385977767454 0.1 ;
M S 74.4047619047619 0.0770055276655826 0.1 ;
M S 71.0227272727273 0.0806724575544199 0.1 ;
M S 63.7755102040816 0.0898397822765131 0.1 ;
M S 58.9622641509434 0.0971736420541876 0.1 ;
;
; create matrix in X
HD1= -5.217085678E-01 ;
HD2= 9.178422156E-01 ;
HM1= -3.608900793E-01 ;
HM2= -8.637857573E-02 ;
D L HD1 ;
M T HM1 0 ;
D L HD2 ;
M T HM2 0 ;
D L (-HD1-HD2) ;
;
; create matrix in Y
HD1= -5.749341413E-01 ;
HD2= 7.481637125E-01 ;
HM1= 2.756925401E-01 ;
HM2= 1.558595713E-01 ;
D L HD1 ;
M T 0 HM1 ;
D L HD2 ;
M T 0 HM2 ;
D L (-HD1-HD2) ;
;
;dispersion in many steps of 0.1m length, 2nd half
M S 50.4032258064516 0.113674826553955 0.1 ;
M S 45.9558823529412 0.124675616220467 0.1 ;
M S 38.5802469135802 0.148510660497909 0.1 ;
M S 34.3406593406593 0.166845309942096 0.1 ;
M S 28.8018433179724 0.198930946469422 0.1 ;
M S 25.3036437246964 0.226432920635701 0.1 ;
M S 22.4014336917563 0.255768359746399 0.1 ;
M S 19.9680511182109 0.286937263801516 0.1 ;
M S 25.7201646090535 0.222765990746864 0.1 ;
M S 60.0961538461538 0.095340177109769 0.1 ;
M S 195.3125 0.0293354391106982 0.1 ;
M S 694.444444444444 0.00825059224988386 0.1 ;
D L -1.200 ;
;
D L 0.876 ; from drawing, adjusted Jan 2016
M S (-1.2*180/6.5/PI$) 6.5 0.05 ; septum magnet, length 1.2m
;
;*********************************************************
; the ESR - starting behind septum
;*********************************************************
EXITSEPTUM: ;
E Q 0 0 0.19 ; exit of septum
;D H E (X,Y) 10000 0.050 0.050 1 1 ;
P E ;
;S B 0.107 0.0064 0.0 0.0 ; shift at exit of septum
;
;------- after septum ref. point ---------
D L 0.242700 ; rough from drawing
D L 0.095000 ;
F F 1 ;
M Q 0.834600 Q02 QUAGAP ;
F F 1 ;
D L 0.095000 ;
D L 0.325400 ;
D L 0.095000 ;
F F 1 ;
M Q 0.821600 Q01 QUAGAP ;
F F 1 ;
D L 0.095000 ;
D L 0.205000 ;
D L 0.797700 ;
D L 0.600000 ; Solenoid
D L 0.295000 ;
D L 0.878000 ;
D L 2.100000 ; Solenoid
;
COOLER: ;
;--------- center of cooler ----------
D H E (X,A) 10000 0.03 0.003 1 1 ;
D H E (Y,B) 10000 0.03 0.003 1 1 ;
;
;==========half of the ring
B B HALF ;
D L 2.1 ; GECEMO3C
D L 0.0 ; GECEMT4K
D L 0.878 ;
D L 0.0 ; GECEKX2
D L 0.295 ;
D L 0.6 ; GECEMO1P
D L 0.7977 ;
D L 0.205 ;
D L 0.095 ;
; F F 1;
M Q 0.8216 Q01 QUAGAP ; Q-1
; F F 1;
D L 0.095 ;
D L 0.1627 ;
D L 0.1627 ;
D L 0.0950 ;
; F F 1;
M Q 0.8346 Q02 QUAGAP ; Q-2
; F F 1;
D L 0.0950 ;
D L 0.48135 ;
;------septum-(mirror position)!!!--------
;M S (-1.2*180/6.5/PI$) 6.5 0.05 ; septum magnet, length 1.2m
; D L -0.600 ;
; M Q 0.6 0 0.026 ; until exit of septum
; S B 0.0 0.00 0.0 0.0 ;
; P S 'SEPT-TWISS-X =',TXA,TXB ;
; P S 'SEPT-TWISS-Y =',TYA,TYB ;
MUSEP =ATAND([X,A]/([A,A]*TXB$+[X,A]*TXA$)) ;
;-------------septum---------
D L 0.48135 ;
D L 1.0 ;
;
D L 0.0439592 ; DRIFT108
F F 0 EDANGLE ;
M S DIPRADIUS 60.0 DIPGAP N1 N2 N3 N4 N5; DIP-1
F F 0 EDANGLE ;
D L 0.0439592 ; DRIFT108
;
D L 0.350 ;
D L 0.162700 ;
D L 0.0950 ;
; F F 1;
M Q 0.8216 Q03 QUAGAP ; Q-3
; F F 1;
D L 0.095000 ;
D L 0.006000 ;
M H HEXLEN SEX1 HEXGAP ; SEX-1
D L 0.006000 ;
D L 0.095000 ;
; F F 1;
M Q 1.2404 Q04 QUAGAP ; Q-4
; F F 1;
D L 0.095000 ;
D L 0.326000 ;
D L 0.095000 ;
; F F 1;
M Q 0.8216 Q05 QUAGAP ; Q-5
; F F 1;
D L 0.095000 ;
D L 0.0597 ;
D L 0.006000 ;
M H HEXLEN SEX2 HEXGAP ; SEX-2
D L 0.006000 ;
D L 0.174 ;
D L 0.2627229 ;
D L 1.07525 ;
;==============kicker=============
A S P 0.113 0.025 ;
; S B 0 0.005 0 0 ;
; E K (-180/PI$*0.005) ; KICKER
MUKICK =ATAND([X,A]/([A,A]*TXB$+[X,A]*TXA$)) ;
;==============kicker=============
D L 1.07525 ;
D L 0.129301 ;
;
D L 0.0439592 ; DRIFT108
F F 0 EDANGLE ;
M S DIPRADIUS 60.00 DIPGAP N1 N2 N3 N4 N5; DIP-2
F F 0 EDANGLE ;
D L 0.0439592 ; DRIFT108 ;
;
D L 0.70000 ;
D L 1.8425234 ;
; Y-Steerer
D L 0.174 ;
D L 0.006000 ;
M H HEXLEN SEX3 HEXGAP ; SEX-3
D L 0.006000 ;
D L 0.0597 ;
D L 0.095000 ;
; F F 1;
M Q 0.8216 Q06 QUAGAP ; Q-6
; F F 1;
D L 0.095000 ;
D L 0.326000 ;
D L 0.095000 ;
; F F 1;
M Q 1.2404 Q07 QUAGAP ; Q-7
; F F 1;
BYD3 = (1/TYB)*(([Y,Y]*TYB)^2+[Y,B]^2);
D L 0.095000 ;
D L 0.006 ;
M H HEXLEN SEX4 HEXGAP ; SEX-4
D L 0.006;
D L 0.095000 ;
; F F 1;
M Q 0.8216 Q08 QUAGAP ; Q-8
; F F 1;
D L 0.095000 ;
D L 0.162700 ;
D L 0.350000 ;
;
D L 0.0439592 ; DRIFT108
F F 0 EDANGLE ;
M S DIPRADIUS 60.0 DIPGAP N1 N2 N3 N4 N5; DIP-3
F F 0 EDANGLE ;
D L 0.0439592 ; DRIFT108
;
D L 0.202320 ;
D L 0.110000 ;
D L 0.290000 ;
D L 0.397680 ;
D L 0.962700 ;
D L 0.095000 ;
; F F 1;
M Q 0.8346 Q09 QUAGAP ; Q-9
; F F 1;
D L 0.095000 ;
D L 0.325400 ;
D L 0.095000 ;
; F F 1;
M Q 0.8216 Q10 QUAGAP ; Q-10
; F F 1;
D L 0.095000 ;
D L 0.205000 ;
D L 4.6706992 ;
;
B E HALF ;
;
B I HALF ;
B I HALF R ;
B I HALF ;
B I HALF R ;
B I HALF ;
B I HALF R ;
;
;output of beam parameters
XD = [X,D] ;
AD = [A,D] ;
TXB = TXB$ ;
TXA = TXA$ ;
TYB = TYB$ ;
TYA = TYA$ ;
P S 'BRHO = ',BRHO,' Tm' ;
P S 'X: ',TXB, TXA ;
P S 'Y: ',TYB, TYA ;
P S 'D: ',XD, AD ;
;
;---------------------------------------
; export for parammodi
;
GTE1QD11 = MQS001/0.060*0.666 /BRHO;
GTE1QD12 = MQS002/0.060*0.666 /BRHO;
GTE2QT11 = MQS003/0.060*1.000 /BRHO;
GTE2QT12 = MQS004/0.060*1.000 /BRHO;
GTE2QT13 = MQS005/0.060*1.000 /BRHO;
GTE3QD11 = MQS006/0.060*1.000 /BRHO;
GTE3QD12 = MQS007/0.060*1.000 /BRHO;
GTE4QD11 = MQS008/0.060*1.000 /BRHO;
GTE4QD12 = MQS009/0.060*1.000 /BRHO;
GTE4QT21 = MQS010/0.060*1.000 /BRHO;
GTE4QT22 = MQS011/0.060*1.000 /BRHO;
GTE4QT23 = MQS012/0.060*1.000 /BRHO;
GTE4QT31 = MQS013/0.060*1.000 /BRHO;
GTE4QT32 = MQS014/0.060*1.000 /BRHO;
GTE4QT33 = MQS015/0.060*1.000 /BRHO;
GTE5QD11 = MQS017/0.085*1.0482/BRHO;
GTE5QD12 = MQS018/0.085*1.0482/BRHO;
GTE5QD21 = MQS019/0.006*1.000 /BRHO;
GTE5QD22 = MQS020/0.006*1.000 /BRHO;
;
P F '# Version: 1.0';
P F '# Comment: ParamModi Export SIS-TE-ESR' ;
P F '# Context: SIS18_FAST.C1' ;
P F '# Comment: std. mode 1998, H. Weick 02.05.2021';
P F '# Columns: PARAMETERNAME,VALUE,UNIT,BEAMPROCPU' ;
P F 'GTE1QD11/KL,',GTE1QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE1QD12/KL,',GTE1QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT11/KL,',GTE2QT11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT12/KL,',GTE2QT12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT13/KL,',GTE2QT13, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE3QD11/KL,',GTE3QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE3QD12/KL,',GTE3QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QD11/KL,',GTE4QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QD12/KL,',GTE4QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT21/KL,',GTE4QT21, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT23/KL,',GTE4QT22, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT23/KL,',GTE4QT23, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT31/KL,',GTE4QT31, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT13/KL,',GTE4QT32, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT33/KL,',GTE4QT33, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD11/KL,',GTE5QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD12/KL,',GTE5QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD21/KL,',GTE5QD21, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD22/KL,',GTE5QD22, ',1/m,TRANSFER_EXTRACTION' ;
;
FINI: ;
; x a g d y b n
;D B 0.07 0.07 100 3 3 1 1 3 3 2 ;
D S 1.0 2 80 3 3 1 3 ;
D M 0.07 0.07 300 1 2000 ;
;
END ;
|