From 35c71152fc3a2993e2dbea4dd30bd47f9ab00dd4 Mon Sep 17 00:00:00 2001 From: vitor Date: Fri, 6 Sep 2024 11:38:33 -0300 Subject: [PATCH 1/9] ADD: MAD-X Storage Ring Model --- other-simulators/MAD/sirius.seq | 892 ++++++++++++++++++++++++++++++++ 1 file changed, 892 insertions(+) create mode 100644 other-simulators/MAD/sirius.seq diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius.seq new file mode 100644 index 0000000..5ac632b --- /dev/null +++ b/other-simulators/MAD/sirius.seq @@ -0,0 +1,892 @@ +!!! SIRIUS Storage Ring Model +! Date: 06-September-2024 +! Version: SI_V25_04 + +!!! -- injection sector -- + +ACCLEN := 0;! +circum_new := 518.3899; ! [m] +circum_old := 518.3960; ! [m] +dcircum := circum_new - circum_old; +!# divide circumference difference in all 20 straight sections +dcircum_frac := dcircum/20.0/2.0; !dcircum/20/2; + +L500p: DRIFT, L=0.500 + dcircum_frac; +LKKp: DRIFT, L=1.9150 + dcircum_frac; +LPMU: DRIFT, L=0.0600; +L050: DRIFT, L=0.050; +L150: DRIFT, L=0.150; +L182: DRIFT, L=0.182; +L399: DRIFT, L=0.399; + +M_START : MARKER, L=0; ! start of the model +M_END : MARKER, L=0; ! end of the model +MIA : MARKER, L=0; ! center of long straight sections (even-numbered) +InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits +InjVCs : MARKER, L=0; ! Smaller injection vchamber limits +SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) +ScrapV : MARKER, L=0; ! vertical scraper + +!* -- pulsed magnets -- +InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker +InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet + +!*if inj_sel == 'DPK': +INJ_SEC_DPK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, + );! +!* elif inj_sel == 'DPK_END': +INJ_SEC_DPK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, + );! +!*elif inj_sel == 'NLK': +INJ_SEC_NLK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + );! +!*elif inj_sel == 'NLK_END': +INJ_SEC_NLK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + InjNLKckr);! + +SI_INJ : LINE=(INJ_SEC_NLK_END); + +!!! -- drifts -- +LIA : DRIFT, L=1.5179; +LIB : DRIFT, L=1.0879; +LIP : DRIFT, L=1.0879; +LPMD : DRIFT, L=0.4929; +LID3 : DRIFT, L=1.8679; +L144p : DRIFT, L=0.144 + dcircum_frac; +L208p : DRIFT, L=0.208 + dcircum_frac; +L350p : DRIFT, L=0.350 + dcircum_frac; +L600p : DRIFT, L=0.600 + dcircum_frac; +L800p : DRIFT, L=0.7999; +L011 : DRIFT, L=0.011; +L019 : DRIFT, L=0.019; +L049 : DRIFT, L=0.049; +L050 : DRIFT, L=0.050; +L052 : DRIFT, L=0.052; +L056 : DRIFT, L=0.056; +L063 : DRIFT, L=0.063; +L074 : DRIFT, L=0.074; +L075 : DRIFT, L=0.075; +L082 : DRIFT, L=0.082; +L090 : DRIFT, L=0.090; +L100 : DRIFT, L=0.100; +L109 : DRIFT, L=0.109; +L112 : DRIFT, L=0.112; +L119 : DRIFT, L=0.119; +L120 : DRIFT, L=0.120; +L125 : DRIFT, L=0.125; +L127 : DRIFT, L=0.127; +L133 : DRIFT, L=0.133; +L134 : DRIFT, L=0.134; +L135 : DRIFT, L=0.135; +L140 : DRIFT, L=0.140; +L150 : DRIFT, L=0.150; +L156 : DRIFT, L=0.156; +L170 : DRIFT, L=0.170; +L188 : DRIFT, L=0.188; +L200 : DRIFT, L=0.200; +L201 : DRIFT, L=0.201; +L203 : DRIFT, L=0.203; +L205 : DRIFT, L=0.205; +L216 : DRIFT, L=0.216; +L230 : DRIFT, L=0.230; +L237 : DRIFT, L=0.237; +L240 : DRIFT, L=0.240; +L260 : DRIFT, L=0.260; +L270 : DRIFT, L=0.270; +L297 : DRIFT, L=0.297; +L325 : DRIFT, L=0.325; +L329 : DRIFT, L=0.329; +L336 : DRIFT, L=0.336; +L365 : DRIFT, L=0.365; +L419 : DRIFT, L=0.419; +L474 : DRIFT, L=0.474; +L500 : DRIFT, L=0.500; +L511 : DRIFT, L=0.511; +L665 : DRIFT, L=0.665; +L715 : DRIFT, L=0.715; +L839 : DRIFT, L=0.839; + +!!! DIPOLES +!* BC +BC.0 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;!, K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.1 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;!, K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.2 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;!, K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC_EDGE.3 : MARKER, L=0; +BC.4 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;!, K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.5 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;!, K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.6 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;!, K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +MACCEPBC.7 : MARKER, L=0; +BC.8 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;!, K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.9 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;!, K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +MACCEPBC.10 : MARKER, L=0; +BC.11 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;!, K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.12 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;!, K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.13 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;!, K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.14 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;!, K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.15 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;!, K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.16 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;!, K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.17 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;!, K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.18 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;!, K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.19 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;!, K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +MC.20 : MARKER, L=0; +MACCEPBC.21 : MARKER, L=0; +BC.22 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;!, K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.23 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;!, K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.24 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;!, K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.25 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;!, K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.26 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;!, K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.27 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;!, K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.28 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;!, K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.29 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;!, K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.30 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;!, K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +MACCEPBC.31 : MARKER, L=0; +BC.32 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;!, K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.33 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;!, K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +MACCEPBC.34 : MARKER, L=0; +BC.35 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;!, K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.36 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;!, K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.37 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;!, K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC_EDGE.38 : MARKER, L=0; +BC.39 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;!, K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.40 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;!, K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.41 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;!, K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); + +!* B1 +MACCEPB1.0 : MARKER, L=0; +B1.1 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;!, K4=-10.312, K5=900.13, K6=82477.0; +B1.2 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;!, K4=25.814, K5=316.42, K6=-50464.0; +B1.3 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;!, K4=-58.35, K5=4295.4, K6=-37834.0; +B1.4 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;!, K4=-228.43, K5=16525.0, K6=-40477.0; +B1_EDGE.5 : MARKER, L=0; +B1.6 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;!, K4=-53.231, K5=9036.0, K6=727830.0; +B1_SRC.7 : MARKER, L=0; +B1.8 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;!, K4=63.908, K5=6165.1, K6=349510.0; +B1.9 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;!, K4=214.96, K5=5202.3, K6=-605180.0; +B1.10 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;!, K4=251.26, K5=806.49, K6=-923350.0; +B1.11 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;!, K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.12 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;!, K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.13 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;!, K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.14 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;!, K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.15 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;!, K4=293.16, K5=1463.2, K6=-2087700.0; +B1.16 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;!, K4=318.63, K5=1528.2, K6=-2338700.0; +B1.17 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;!, K4=250.91, K5=497.72, K6=-1911300.0; +MB1.18 : MARKER, L=0; +MACCEPB1.19 : MARKER, L=0; +B1.20 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;!, K4=250.91, K5=497.72, K6=-1911300.0; +B1.21 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;!, K4=318.63, K5=1528.2, K6=-2338700.0; +B1.22 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;!, K4=293.16, K5=1463.2, K6=-2087700.0; +B1.23 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;!, K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.24 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;!, K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.25 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;!, K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.26 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;!, K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.27 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;!, K4=251.26, K5=806.49, K6=-923350.0; +B1.28 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;!, K4=214.96, K5=5202.3, K6=-605180.0; +B1.29 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;!, K4=63.908, K5=6165.1, K6=349510.0; +B1.30 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;!, K4=-53.231, K5=9036.0, K6=727830.0; +B1_EDGE.31 : MARKER, L=0; +B1.32 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;!, K4=-228.43, K5=16525.0, K6=-40477.0; +B1.33 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;!, K4=-58.35, K5=4295.4, K6=-37834.0; +B1.34 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;!, K4=25.814, K5=316.42, K6=-50464.0; +B1.35 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;!, K4=-10.312, K5=900.13, K6=82477.0; +MACCEPB1.36 : MARKER, L=0; +B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); + +!* B2 +MACCEPB2.0 : MARKER, L=0; +B2.1 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;!, K4=13.671, K5=-773.7, K6=-29544.0; +B2.2 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;!, K4=1.5573, K5=83.579, K6=38831.0; +B2.3 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;!, K4=-15.146, K5=536.93, K6=78230.0; +B2.4 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;!, K4=-178.16, K5=7235.7, K6=167860.0; +B2.5 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;!, K4=-391.66, K5=19055.0, K6=315860.0; +B2_EDGE.6 : MARKER, L=0; +B2.7 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;!, K4=-399.38, K5=16288.0, K6=810850.0; +B2.8 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;!, K4=-157.15, K5=12311.0, K6=1140800.0; +B2.9 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;!, K4=199.75, K5=3362.1, K6=-313140.0; +B2.10 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;!, K4=-51.871, K5=757.52, K6=599430.0; +B2.11 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;!, K4=-325.68, K5=8206.7, K6=1736500.0; +B2.12 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;!, K4=-405.77, K5=10602.0, K6=1873500.0; +B2.13 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;!, K4=-390.31, K5=12889.0, K6=1707200.0; +MACCEPB2.14 : MARKER, L=0; +B2.15 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;!, K4=-353.86, K5=13287.0, K6=1516000.0; +B2.16 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;!, K4=-420.95, K5=12650.0, K6=1876200.0; +B2.17 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;!, K4=-407.59, K5=10527.0, K6=1872900.0; +B2.18 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;!, K4=-370.53, K5=9009.8, K6=1881800.0; +B2.19 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;!, K4=-278.71, K5=8466.7, K6=1791300.0; +B2.20 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;!, K4=-268.09, K5=8809.0, K6=1854100.0; +MB2.21 : MARKER, L=0; +MACCEPB2.22 : MARKER, L=0; +B2.23 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;!, K4=-268.09, K5=8809.0, K6=1854100.0; +B2.24 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;!, K4=-278.71, K5=8466.7, K6=1791300.0; +B2.25 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;!, K4=-370.53, K5=9009.8, K6=1881800.0; +B2.26 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;!, K4=-407.59, K5=10527.0, K6=1872900.0; +B2.27 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;!, K4=-420.95, K5=12650.0, K6=1876200.0; +B2.28 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;!, K4=-353.86, K5=13287.0, K6=1516000.0; +MACCEPB2.29 : MARKER, L=0; +B2.30 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;!, K4=-390.31, K5=12889.0, K6=1707200.0; +B2.31 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;!, K4=-405.77, K5=10602.0, K6=1873500.0; +B2.32 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;!, K4=-325.68, K5=8206.7, K6=1736500.0; +B2.33 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;!, K4=-51.871, K5=757.52, K6=599430.0; +B2.34 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;!, K4=199.75, K5=3362.1, K6=-313140.0; +B2.35 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;!, K4=-157.15, K5=12311.0, K6=1140800.0; +B2.36 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;!, K4=-399.38, K5=16288.0, K6=810850.0; +B2_EDGE.37 : MARKER, L=0; +B2.38 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;!, K4=-391.66, K5=19055.0, K6=315860.0; +B2.39 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;!, K4=-178.16, K5=7235.7, K6=167860.0; +B2.40 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;!, K4=-15.146, K5=536.93, K6=78230.0; +B2.41 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;!, K4=1.5573, K5=83.579, K6=38831.0; +B2.42 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;!, K4=13.671, K5=-773.7, K6=-29544.0; +MACCEPB2.43 : MARKER, L=0; +B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); + +!!! QUADRUPOLES +STREN.Q1 := 2.818370601288; +Q1 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q1;!, K2=0.0, K3=0.0, K4=0.0, K5=-50005.267419476964, K6=0.0, K7=0.0, K8=0.0, K9=10881051055605.57, K10=0.0, K11=0.0, K12=0.0, K13=-2.0632375498880506e+20; + +STREN.Q2 := 4.340329381668; +Q2 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q2;!, K2=0.0, K3=0.0, K4=0.0, K5=-77008.79767896177, K6=0.0, K7=0.0, K8=0.0, K9=16756967865933.416, K10=0.0, K11=0.0, K12=0.0, K13=-3.177414125398304e+20; + +STREN.Q3 := 3.218430939674; +Q3 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q3;!, K2=0.0, K3=0.0, K4=0.0, K5=-57103.38439379397, K6=0.0, K7=0.0, K8=0.0, K9=12425587805070.506, K10=0.0, K11=0.0, K12=0.0, K13=-2.3561087258794895e+20; + +STREN.Q4 := 3.950686823494; +Q4 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q4;!, K2=0.0, K3=0.0, K4=0.0, K5=-70095.51937887033, K6=0.0, K7=0.0, K8=0.0, K9=15252651660324.936, K10=0.0, K11=0.0, K12=0.0, K13=-2.8921694678321054e+20; + +STREN.QDA := -1.619540412181686; +QDA : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDA;!, K2=0.0, K3=0.0, K4=0.0, K5=25449.92076285507, K6=0.0, K7=0.0, K8=0.0, K9=-5784072900648.879, K10=0.0, K11=0.0, K12=0.0, K13=1.156814580129776e+20; + +STREN.QFA := 3.5731777226094446; +QFA : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.QFA;!, K2=0.0, K3=0.0, K4=0.0, K5=-63397.520352627485, K6=0.0, K7=0.0, K8=0.0, K9=13795179815137.729, K10=0.0, K11=0.0, K12=0.0, K13=-2.6158073201381376e+20; + +STREN.QFB := 4.115082809275146; +QFB : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFB;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; + +STREN.QFP := 4.115082809275146; +QFP : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFP;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; + +STREN.QDB1 := -2.00677456404202; +QDB1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; + +STREN.QDB2 := -3.420574744932221; +QDB2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; + +STREN.QDP1 := -2.00677456404202; +QDP1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; + +STREN.QDP2 := -3.420574744932221; +QDP2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; + +!!! SEXTUPOLES +STREN.SDA0 := -80.8337; +SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0; + +STREN.SDB0 := -64.9422; +SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0; + +STREN.SDP0 := -64.9422; +SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0; + +STREN.SFA0 := 52.5696; +SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0; + +STREN.SFB0 := 73.7401; +SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0; + +STREN.SFP0 := 73.7401; +SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0; + +STREN.SDA1 := -163.0062328090773; +SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1; + +STREN.SDA2 := -88.88255991288263; +SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2; + +STREN.SDA3 := -139.94153649641189; +SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3; + +STREN.SFA1 := 191.76738248436368; +SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1; + +STREN.SFA2 := 150.74610044115283; +SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2; + +STREN.SDB1 := -141.68687364847958; +SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1; + +STREN.SDB2 := -122.31573949946443; +SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2; + +STREN.SDB3 := -173.8347917755106; +SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3; + +STREN.SFB1 := 227.7404567527413; +SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1; + +STREN.SFB2 := 197.7495405020359; +SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2; + +STREN.SDP1 := -142.31415019209263; +SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1; + +STREN.SDP2 := -122.28457189976633; +SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2; + +STREN.SDP3 := -174.1745194336169; +SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3; + +STREN.SFP1 := 229.17648360831797; +SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1; + +STREN.SFP2 := 198.4525009917773; +SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2; + + +!!! -- slow vertical corrector -- +CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors + +!!! -- pulsed magnets -- +PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger + +!!! -- fast correctors -- +! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): +FC1 : SEXTUPOLE, L=0.084, K2=0.0; +FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward +! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): +FC2 : SEXTUPOLE, L=0.082, K2=0.0; + +!!! -- rf cavities -- +HARMONIC_NUMBER = 864; +SRFCav : RFCAVITY, L=0, VOLT=3.0, HARMON:=HARMONIC_NUMBER; +H3Cav : MARKER, L=0; ! + +!!! -- lattice markers -- +MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) +MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) +!# marker used to delimitate girders. +!# one marker at begin and another at end of girder: +GIR : MARKER, L=0; ! +!# marker for the extremities of IDs in long straight sections +MIDA : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDB : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDP : MARKER, L=0; ! +!# end of injection septum +InjSeptF : MARKER, L=0; ! + +!!! --- diagnostic components --- +BPM : MONITOR; ! +IDBPM : MONITOR; ! +DCCT : MARKER, L=0; ! # dcct to measure beam current +ScrapH : MARKER, L=0; ! # horizontal scraper +GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) +GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) +GBPM : MONITOR; ! # General BPM +BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup +BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker +BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker +BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker +TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker +TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker +TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup +TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup +SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) + +!!! --- insertion devices (half devices) --- +IDLEN.APU22 := 1.3; +IDLEN.IVU18 := 2.0; +IDLEN.DELTA52 := 1.2; +IDLEN.APU58 := 1.3; +IDLEN.WIG180 := 2.654; +IDLEN.PAPU50 := 0.984; + +!* CARNAUBA +ID06Hu : DRIFT, L:=IDLEN.APU22/2; +ID06Hd : DRIFT, L:=IDLEN.APU22/2; + +!* CATERETE +ID07Hu : DRIFT, L:=IDLEN.APU22/2; +ID07Hd : DRIFT, L:=IDLEN.APU22/2; + +!* EMA +ID08Hu : DRIFT, L:=IDLEN.IVU18/2; +ID08Hd : DRIFT, L:=IDLEN.IVU18/2; + +!* MANACA +ID09Hu : DRIFT, L:=IDLEN.APU22/2; +ID09Hd : DRIFT, L:=IDLEN.APU22/2; + +!* SABIA +ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; +ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; + +!* IPE +ID11Hu : DRIFT, L:=IDLEN.APU58/2; +ID11Hd : DRIFT, L:=IDLEN.APU58/2; + +!* PAINEIRA +ID14Hu : DRIFT, L:=IDLEN.WIG180/2; +ID14Hd : DRIFT, L:=IDLEN.WIG180/2; + +!* SAPUCAIA +ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; +ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; + +IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector +IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 +IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) +IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector + +!!! -- sectors -- +M1A : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) +M1AFF : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) +M1B : LINE=( + L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, + L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder +M1P : LINE=( + L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, + L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder +M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) +M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) +M2B : LINE=(-M1B);! # low beta xxM2 girder +M2P : LINE=(-M1P);! # low beta xxM2 girder + +M2B_BbBPkup : LINE=( + GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, + BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! + +! arc sector in between B1-B2 (high beta odd-numbered straight sections): +C1A : LINE=( + GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, + SDA2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1B : LINE=( + GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, + L170, SDB2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1P : LINE=( + GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, + SDP2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B2-BC (high beta odd-numbered straight sections): +C2A : LINE=( + GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2B : LINE=( + GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2P : LINE=( + GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + + +! arc sector in between BC-B2 (high beta odd-numbered straight sections): +C3A : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, + L170, SDA3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3B : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, + L170, SDB3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3P : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, + L170, SDP3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A : LINE=( + GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, + SDA1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A_BbBKckrV : LINE=( + GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, + SDA1, L237, BbBKckrV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_GBPM : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, GBPM, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_DCCT : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_TunePkupV : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L237, TunePkupV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections) +C4B_PingV : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L135, PingV, GIR, L019, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_DCCT : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_TuneShkrV : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, L237, TuneShkrV, GIR, L237, GIR);! + +!! --- insertion sectors --- +IDA : LINE=( + L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, + LIA, L500);! # high beta ID straight section + +IDB : LINE=( + L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, + L500);! # low beta ID straight section + +IDP : LINE=( + L500, LIP, L500, + MIDP, L500, L500p, MIP, L500p, L500, MIDP, + L500, LIP, L500);! # low beta ID straight section + +IDA_01_INJ : LINE=( + SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, + SI_INJ, LPMD);! # high beta INJ straight section and Scrapers + +IDB_02 : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, H3Cav, LIB, L500);! # low beta ID straight section + +IDP_03_CAV : LINE=( + L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, + LIP, L500);! # low beta RF cavity straight section + +IDB_04 : LINE=(IDB); + +IDA_05 : LINE=(IDA); + +IDB_06 : LINE=( + L500, LIB, L500, L350p, + MIDB, ID06Hu, MIB, ID06Hd, MIDB, + L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) + +IDP_07 : LINE=( + L500, LIP, L500, L350p, + MIDP, ID07Hu, MIP, ID07Hd, MIDP, + L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) + +IDB_08 : LINE=( + L500, LIB, L150, L350p, + MIDB, ID08Hu, MIB, ID08Hd, MIDB, + L350p, L150, LIB, L500);! # low beta ID straight section (EMA) + +IDA_09 : LINE=( + L500, LID3, L500p, + MIDA, ID09Hu, MIA, ID09Hd, MIDA, + L500p, LID3, L500);! # high beta ID straight section (MANACA) + +IDB_10 : LINE=( + L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, + MIDB, ID10Hu, MIB, ID10Hd, MIDB, + L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) + +IDP_11 : LINE=( + L500, LIP, L500, L350p, + MIDP, ID11Hu, MIP, ID11Hd, MIDP, + L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m + +IDB_12 : LINE=( + L500, LIB, L665, L100, L135, + MIDB, L600p, MIB, L600p, MIDB, + L135, L100, L665, LIB, L500);! # low beta ID straight section + +IDA_13 : LINE=(IDA); + +IDB_14 : LINE=( + L365, LIB, L208p, IDC3, + MIDB, ID14Hu, MIB, ID14Hd, MIDB, + IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) + +IDP_15 : LINE=(IDP); + +IDB_16 : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, BbBKckL, LIB, L500);! # low beta ID straight section + +IDA_17 : LINE=( + L500, LIA, L511, L350p, IDC2, L063, + MIDA, ID17Hu, MIA, ID17Hd, MIDA, + L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight + !# section (SAPUCAIA) + +IDB_18_TUNEPKUPH : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, TunePkupH, LIB, L500);! # low beta ID straight section + +IDB_19_GSL15 : LINE=( + L500, GSL15, LIP, L500, + MIDP, L500, L500p, MIP, L500p, L500, MIDP, + L500, LIP, L500);! # low beta ID straight section + +IDB_20_GSL07 : LINE=( + L500, GSL07, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, LIB, L500);! # low beta ID straight section + +!!! -- girders -- + +!!! straight sections +SS_S01 : LINE=(IDA_01_INJ);! # INJECTION +SS_S02 : LINE=(IDB_02);! +SS_S03 : LINE=(IDP_03_CAV);! +SS_S04 : LINE=(IDB_04);! +SS_S05 : LINE=(IDA_05);! +SS_S06 : LINE=(IDB_06);! # CARNAUBA +SS_S07 : LINE=(IDP_07);! # CATERETE +SS_S08 : LINE=(IDB_08);! # EMA +SS_S09 : LINE=(IDA_09);! # MANACA +SS_S10 : LINE=(IDB_10);! # SABIA +SS_S11 : LINE=(IDP_11);! # IPE +SS_S12 : LINE=(IDB_12);! +SS_S13 : LINE=(IDA_13);! +SS_S14 : LINE=(IDB_14);! # PAINEIRA +SS_S15 : LINE=(IDP_15);! +SS_S16 : LINE=(IDB_16);! # INGA +SS_S17 : LINE=(IDA_17);! # SAPUCAIA +SS_S18 : LINE=(IDB_18_TUNEPKUPH);! +SS_S19 : LINE=(IDB_19_GSL15);! +SS_S20 : LINE=(IDB_20_GSL07);! + +!!! down and upstream straight sections +M1_S01 : LINE=(M1AFF);! +M2_S01 : LINE=(M2AFF);! +M1_S02 : LINE=(M1B);! +M2_S02 : LINE=(M2B);! +M1_S03 : LINE=(M1P);! +M2_S03 : LINE=(M2P);! +M1_S04 : LINE=(M1B);! +M2_S04 : LINE=(M2B);! +M1_S05 : LINE=(M1A);! +M2_S05 : LINE=(M2A);! +M1_S06 : LINE=(M1B);! +M2_S06 : LINE=(M2B);! +M1_S07 : LINE=(M1P);! +M2_S07 : LINE=(M2P);! +M1_S08 : LINE=(M1B);! +M2_S08 : LINE=(M2B);! +M1_S09 : LINE=(M1A);! +M2_S09 : LINE=(M2A);! +M1_S10 : LINE=(M1B);! +M2_S10 : LINE=(M2B);! +M1_S11 : LINE=(M1P);! +M2_S11 : LINE=(M2P);! +M1_S12 : LINE=(M1B);! +M2_S12 : LINE=(M2B);! +M1_S13 : LINE=(M1A);! +M2_S13 : LINE=(M2A);! +M1_S14 : LINE=(M1B);! +M2_S14 : LINE=(M2B);! +M1_S15 : LINE=(M1P);! +M2_S15 : LINE=(M2P);! +M1_S16 : LINE=(M1B);! +M2_S16 : LINE=(M2B_BbBPkup);! +M1_S17 : LINE=(M1A);! +M2_S17 : LINE=(M2A);! +M1_S18 : LINE=(M1B);! +M2_S18 : LINE=(M2B);! +M1_S19 : LINE=(M1P);! +M2_S19 : LINE=(M2P);! +M1_S20 : LINE=(M1B);! +M2_S20 : LINE=(M2B);! + +!!! dispersive arcs +C1_S01 : LINE=(C1A);! +C2_S01 : LINE=(C2A);! +C3_S01 : LINE=(C3B);! +C4_S01 : LINE=(C4B);! +C1_S02 : LINE=(C1B);! +C2_S02 : LINE=(C2B);! +C3_S02 : LINE=(C3P);! +C4_S02 : LINE=(C4P);! +C1_S03 : LINE=(C1P);! +C2_S03 : LINE=(C2P);! +C3_S03 : LINE=(C3B);! +C4_S03 : LINE=(C4B);! +C1_S04 : LINE=(C1B);! +C2_S04 : LINE=(C2B);! +C3_S04 : LINE=(C3A);! +C4_S04 : LINE=(C4A);! +C1_S05 : LINE=(C1A);! +C2_S05 : LINE=(C2A);! +C3_S05 : LINE=(C3B);! +C4_S05 : LINE=(C4B);! +C1_S06 : LINE=(C1B);! +C2_S06 : LINE=(C2B);! +C3_S06 : LINE=(C3P);! +C4_S06 : LINE=(C4P);! +C1_S07 : LINE=(C1P);! +C2_S07 : LINE=(C2P);! +C3_S07 : LINE=(C3B);! +C4_S07 : LINE=(C4B);! +C1_S08 : LINE=(C1B);! +C2_S08 : LINE=(C2B);! +C3_S08 : LINE=(C3A);! +C4_S08 : LINE=(C4A);! +C1_S09 : LINE=(C1A);! +C2_S09 : LINE=(C2A);! +C3_S09 : LINE=(C3B);! +C4_S09 : LINE=(C4B);! +C1_S10 : LINE=(C1B);! +C2_S10 : LINE=(C2B);! +C3_S10 : LINE=(C3P);! +C4_S10 : LINE=(C4P);! +C1_S11 : LINE=(C1P);! +C2_S11 : LINE=(C2P);! +C3_S11 : LINE=(C3B);! +C4_S11 : LINE=(C4B);! +C1_S12 : LINE=(C1B);! +C2_S12 : LINE=(C2B);! +C3_S12 : LINE=(C3A);! +C4_S12 : LINE=(C4A);! +C1_S13 : LINE=(C1A);! +C2_S13 : LINE=(C2A);! +C3_S13 : LINE=(C3B);! +C4_S13 : LINE=(C4B_DCCT);! +C1_S14 : LINE=(C1B);! +C2_S14 : LINE=(C2B);! +C3_S14 : LINE=(C3P);! +C4_S14 : LINE=(C4P_DCCT);! +C1_S15 : LINE=(C1P);! +C2_S15 : LINE=(C2P);! +C3_S15 : LINE=(C3B);! +C4_S15 : LINE=(C4B_GBPM);! +C1_S16 : LINE=(C1B);! +C2_S16 : LINE=(C2B);! +C3_S16 : LINE=(C3A);! +C4_S16 : LINE=(C4A_BbBKckrV);! +C1_S17 : LINE=(C1A);! +C2_S17 : LINE=(C2A);! +C3_S17 : LINE=(C3B);! +C4_S17 : LINE=(C4B_TunePkupV);! +C1_S18 : LINE=(C1B);! +C2_S18 : LINE=(C2B);! +C3_S18 : LINE=(C3P);! +C4_S18 : LINE=(C4P_TuneShkrV);! +C1_S19 : LINE=(C1P);! +C2_S19 : LINE=(C2P);! +C3_S19 : LINE=(C3B);! +C4_S19 : LINE=(C4B_PingV);! +C1_S20 : LINE=(C1B);! +C2_S20 : LINE=(C2B);! +C3_S20 : LINE=(C3A);! +C4_S20 : LINE=(C4A);! + +!!! SECTORS # 01..20 +S01 : LINE=( + M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, + C3_S01, B2, C4_S01, B1);! +S02 : LINE=( + M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, + C3_S02, B2, C4_S02, B1);! +S03 : LINE=( + M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, + C3_S03, B2, C4_S03, B1);! +S04 : LINE=( + M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, + C3_S04, B2, C4_S04, B1);! +S05 : LINE=( + M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, + C3_S05, B2, C4_S05, B1);! +S06 : LINE=( + M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, + C3_S06, B2, C4_S06, B1);! +S07 : LINE=( + M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, + C3_S07, B2, C4_S07, B1);! +S08 : LINE=( + M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, + C3_S08, B2, C4_S08, B1);! +S09 : LINE=( + M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, + C3_S09, B2, C4_S09, B1);! +S10 : LINE=( + M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, + C3_S10, B2, C4_S10, B1);! +S11 : LINE=( + M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, + C3_S11, B2, C4_S11, B1);! +S12 : LINE=( + M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, + C3_S12, B2, C4_S12, B1);! +S13 : LINE=( + M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, + C3_S13, B2, C4_S13, B1);! +S14 : LINE=( + M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, + C3_S14, B2, C4_S14, B1);! +S15 : LINE=( + M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, + C3_S15, B2, C4_S15, B1);! +S16 : LINE=( + M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, + C3_S16, B2, C4_S16, B1);! +S17 : LINE=( + M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, + C3_S17, B2, C4_S17, B1);! +S18 : LINE=( + M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, + C3_S18, B2, C4_S18, B1);! +S19 : LINE=( + M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, + C3_S19, B2, C4_S19, B1);! +S20 : LINE=( + M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, + C3_S20, B2, C4_S20, B1);! + +!!! The ring +SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, + S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! + +BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; +USE, PERIOD=SI; +SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; +CALL, FILE=sirius-ring.temp; +REMOVEFILE, FILE=sirius-ring.temp; + +SEQEDIT, SEQUENCE=SI; +FLATTEN; +CYCLE, START=M_START; +ENDEDIT; From 4c7bfdb5bf6091c2839dee0173a61a249fa383cb Mon Sep 17 00:00:00 2001 From: vitor Date: Fri, 6 Sep 2024 12:23:05 -0300 Subject: [PATCH 2/9] add: sbend rbend --- other-simulators/MAD/sirius(rbend).seq | 892 +++++++++++++++++++++++++ other-simulators/MAD/sirius.seq | 200 +++--- 2 files changed, 992 insertions(+), 100 deletions(-) create mode 100644 other-simulators/MAD/sirius(rbend).seq diff --git a/other-simulators/MAD/sirius(rbend).seq b/other-simulators/MAD/sirius(rbend).seq new file mode 100644 index 0000000..3b53ed2 --- /dev/null +++ b/other-simulators/MAD/sirius(rbend).seq @@ -0,0 +1,892 @@ +!!! SIRIUS Storage Ring Model +! Date: 06-September-2024 +! Version: SI_V25_04 + +!!! -- injection sector -- + +ACCLEN := 0;! +circum_new := 518.3899; ! [m] +circum_old := 518.3960; ! [m] +dcircum := circum_new - circum_old; +!# divide circumference difference in all 20 straight sections +dcircum_frac := dcircum/20.0/2.0; !dcircum/20/2; + +L500p: DRIFT, L=0.500 + dcircum_frac; +LKKp: DRIFT, L=1.9150 + dcircum_frac; +LPMU: DRIFT, L=0.0600; +L050: DRIFT, L=0.050; +L150: DRIFT, L=0.150; +L182: DRIFT, L=0.182; +L399: DRIFT, L=0.399; + +M_START : MARKER, L=0; ! start of the model +M_END : MARKER, L=0; ! end of the model +MIA : MARKER, L=0; ! center of long straight sections (even-numbered) +InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits +InjVCs : MARKER, L=0; ! Smaller injection vchamber limits +SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) +ScrapV : MARKER, L=0; ! vertical scraper + +!* -- pulsed magnets -- +InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker +InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet + +!*if inj_sel == 'DPK': +INJ_SEC_DPK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, + );! +!* elif inj_sel == 'DPK_END': +INJ_SEC_DPK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, + );! +!*elif inj_sel == 'NLK': +INJ_SEC_NLK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + );! +!*elif inj_sel == 'NLK_END': +INJ_SEC_NLK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + InjNLKckr);! + +SI_INJ : LINE=(INJ_SEC_NLK_END); + +!!! -- drifts -- +LIA : DRIFT, L=1.5179; +LIB : DRIFT, L=1.0879; +LIP : DRIFT, L=1.0879; +LPMD : DRIFT, L=0.4929; +LID3 : DRIFT, L=1.8679; +L144p : DRIFT, L=0.144 + dcircum_frac; +L208p : DRIFT, L=0.208 + dcircum_frac; +L350p : DRIFT, L=0.350 + dcircum_frac; +L600p : DRIFT, L=0.600 + dcircum_frac; +L800p : DRIFT, L=0.7999; +L011 : DRIFT, L=0.011; +L019 : DRIFT, L=0.019; +L049 : DRIFT, L=0.049; +L050 : DRIFT, L=0.050; +L052 : DRIFT, L=0.052; +L056 : DRIFT, L=0.056; +L063 : DRIFT, L=0.063; +L074 : DRIFT, L=0.074; +L075 : DRIFT, L=0.075; +L082 : DRIFT, L=0.082; +L090 : DRIFT, L=0.090; +L100 : DRIFT, L=0.100; +L109 : DRIFT, L=0.109; +L112 : DRIFT, L=0.112; +L119 : DRIFT, L=0.119; +L120 : DRIFT, L=0.120; +L125 : DRIFT, L=0.125; +L127 : DRIFT, L=0.127; +L133 : DRIFT, L=0.133; +L134 : DRIFT, L=0.134; +L135 : DRIFT, L=0.135; +L140 : DRIFT, L=0.140; +L150 : DRIFT, L=0.150; +L156 : DRIFT, L=0.156; +L170 : DRIFT, L=0.170; +L188 : DRIFT, L=0.188; +L200 : DRIFT, L=0.200; +L201 : DRIFT, L=0.201; +L203 : DRIFT, L=0.203; +L205 : DRIFT, L=0.205; +L216 : DRIFT, L=0.216; +L230 : DRIFT, L=0.230; +L237 : DRIFT, L=0.237; +L240 : DRIFT, L=0.240; +L260 : DRIFT, L=0.260; +L270 : DRIFT, L=0.270; +L297 : DRIFT, L=0.297; +L325 : DRIFT, L=0.325; +L329 : DRIFT, L=0.329; +L336 : DRIFT, L=0.336; +L365 : DRIFT, L=0.365; +L419 : DRIFT, L=0.419; +L474 : DRIFT, L=0.474; +L500 : DRIFT, L=0.500; +L511 : DRIFT, L=0.511; +L665 : DRIFT, L=0.665; +L715 : DRIFT, L=0.715; +L839 : DRIFT, L=0.839; + +!!! DIPOLES +!* BC +BC.0 : RBEND, ANGLE=0.0002345722514680379, L=0.03499999988566107, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.1 : RBEND, ANGLE=0.00033772121026090274, L=0.015999999920772487, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.2 : RBEND, ANGLE=0.0005827654372409067, L=0.01399999980211211, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC_EDGE.3 : MARKER, L=0; +BC.4 : RBEND, ANGLE=0.0007415903991723907, L=0.011999999725110604, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.5 : RBEND, ANGLE=0.010868863383869488, L=0.15999921245314838, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.6 : RBEND, ANGLE=0.010849141163321951, L=0.15999921530877118, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +MACCEPBC.7 : MARKER, L=0; +BC.8 : RBEND, ANGLE=0.0016964600329384882, L=0.03199999616258539, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.9 : RBEND, ANGLE=0.0020746728818456595, L=0.03199999426076004, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +MACCEPBC.10 : MARKER, L=0; +BC.11 : RBEND, ANGLE=0.0007930776121062233, L=0.009999999737187256, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.12 : RBEND, ANGLE=0.0010044369845227366, L=0.009999999580002377, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.13 : RBEND, ANGLE=0.0013208651779093087, L=0.009999999273175374, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.14 : RBEND, ANGLE=0.001712866127907235, L=0.009999998777479218, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.15 : RBEND, ANGLE=0.0010423106292910137, L=0.004999999773603221, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.16 : RBEND, ANGLE=0.0012067206448288794, L=0.004999999696817337, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.17 : RBEND, ANGLE=0.0014222688074501792, L=0.004999999578503192, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.18 : RBEND, ANGLE=0.0012789772758614447, L=0.00399999972727682, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.19 : RBEND, ANGLE=0.00032759830059933564, L=0.0009999999960308237, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +MC.20 : MARKER, L=0; +MACCEPBC.21 : MARKER, L=0; +BC.22 : RBEND, ANGLE=0.00032759830059933564, L=0.0009999999960308237, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.23 : RBEND, ANGLE=0.0012789772758614447, L=0.00399999972727682, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.24 : RBEND, ANGLE=0.0014222688074501792, L=0.004999999578503192, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.25 : RBEND, ANGLE=0.0012067206448288794, L=0.004999999696817337, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.26 : RBEND, ANGLE=0.0010423106292910137, L=0.004999999773603221, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.27 : RBEND, ANGLE=0.001712866127907235, L=0.009999998777479218, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.28 : RBEND, ANGLE=0.0013208651779093087, L=0.009999999273175374, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.29 : RBEND, ANGLE=0.0010044369845227366, L=0.009999999580002377, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.30 : RBEND, ANGLE=0.0007930776121062233, L=0.009999999737187256, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +MACCEPBC.31 : MARKER, L=0; +BC.32 : RBEND, ANGLE=0.0020746728818456595, L=0.03199999426076004, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.33 : RBEND, ANGLE=0.0016964600329384882, L=0.03199999616258539, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +MACCEPBC.34 : MARKER, L=0; +BC.35 : RBEND, ANGLE=0.010849141163321951, L=0.15999921530877118, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.36 : RBEND, ANGLE=0.010868863383869488, L=0.15999921245314838, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.37 : RBEND, ANGLE=0.0007415903991723907, L=0.011999999725110604, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC_EDGE.38 : MARKER, L=0; +BC.39 : RBEND, ANGLE=0.0005827654372409067, L=0.01399999980211211, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.40 : RBEND, ANGLE=0.00033772121026090274, L=0.015999999920772487, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.41 : RBEND, ANGLE=0.0002345722514680379, L=0.03499999988566107, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); + +!* B1 +MACCEPB1.0 : MARKER, L=0; +B1.1 : RBEND, ANGLE=6.789330790257942e-05, L=0.04999999982214338, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; +B1.2 : RBEND, ANGLE=0.00013508848410436112, L=0.040000000084218654, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.3 : RBEND, ANGLE=0.0005752605214573311, L=0.039999999443702, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.4 : RBEND, ANGLE=0.000595855406630864, L=0.015999999764113808, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; +B1_EDGE.5 : MARKER, L=0; +B1.6 : RBEND, ANGLE=0.001834166510920841, L=0.03399999523367084, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; +B1_SRC.7 : MARKER, L=0; +B1.8 : RBEND, ANGLE=0.0028213247358488333, L=0.04999998341704813, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.9 : RBEND, ANGLE=0.005628163238906114, L=0.09999986801563025, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.10 : RBEND, ANGLE=0.008444251986998965, L=0.14999955434162282, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.11 : RBEND, ANGLE=0.002262470309360249, L=0.03999999146853231, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.12 : RBEND, ANGLE=0.0005647885459453651, L=0.009999999866203254, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.13 : RBEND, ANGLE=0.0002811725424962865, L=0.00499999998400466, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.14 : RBEND, ANGLE=0.000279776279094691, L=0.004999999981989098, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.15 : RBEND, ANGLE=0.00027785641691749726, L=0.004999999984111177, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.16 : RBEND, ANGLE=0.00016598081186466074, L=0.0030000000001874543, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.17 : RBEND, ANGLE=0.00011047934165124105, L=0.0019999999979958315, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; +MB1.18 : MARKER, L=0; +MACCEPB1.19 : MARKER, L=0; +B1.20 : RBEND, ANGLE=0.00011047934165124105, L=0.0019999999979958315, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; +B1.21 : RBEND, ANGLE=0.00016598081186466074, L=0.0030000000001874543, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.22 : RBEND, ANGLE=0.00027785641691749726, L=0.004999999984111177, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.23 : RBEND, ANGLE=0.000279776279094691, L=0.004999999981989098, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.24 : RBEND, ANGLE=0.0002811725424962865, L=0.00499999998400466, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.25 : RBEND, ANGLE=0.0005647885459453651, L=0.009999999866203254, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.26 : RBEND, ANGLE=0.002262470309360249, L=0.03999999146853231, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.27 : RBEND, ANGLE=0.008444251986998965, L=0.14999955434162282, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.28 : RBEND, ANGLE=0.005628163238906114, L=0.09999986801563025, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.29 : RBEND, ANGLE=0.0028213247358488333, L=0.04999998341704813, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.30 : RBEND, ANGLE=0.001834166510920841, L=0.03399999523367084, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; +B1_EDGE.31 : MARKER, L=0; +B1.32 : RBEND, ANGLE=0.000595855406630864, L=0.015999999764113808, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; +B1.33 : RBEND, ANGLE=0.0005752605214573311, L=0.039999999443702, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.34 : RBEND, ANGLE=0.00013508848410436112, L=0.040000000084218654, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.35 : RBEND, ANGLE=6.789330790257942e-05, L=0.04999999982214338, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; +MACCEPB1.36 : MARKER, L=0; +B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); + +!* B2 +MACCEPB2.0 : MARKER, L=0; +B2.1 : RBEND, ANGLE=5.9515727493006634e-05, L=0.03249999948634214, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; +B2.2 : RBEND, ANGLE=7.749261878854824e-05, L=0.03200000000355965, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.3 : RBEND, ANGLE=0.00020734511513692636, L=0.029999999950538623, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.4 : RBEND, ANGLE=0.0003480186528476693, L=0.019999999903006223, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.5 : RBEND, ANGLE=0.0005002113636215749, L=0.014999999845811081, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; +B2_EDGE.6 : MARKER, L=0; +B2.7 : RBEND, ANGLE=0.0004745550236172582, L=0.009999999906538218, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; +B2.8 : RBEND, ANGLE=0.0011021754226344192, L=0.019999998987586483, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.9 : RBEND, ANGLE=0.009954310855824459, L=0.17499927748210445, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.10 : RBEND, ANGLE=0.009961117639907237, L=0.1749992764934645, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.11 : RBEND, ANGLE=0.0005705481324769462, L=0.00999999986376448, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.12 : RBEND, ANGLE=0.0005679301385989548, L=0.009999999865747485, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.13 : RBEND, ANGLE=0.00028239427297268254, L=0.004999999985308747, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; +MACCEPB2.14 : MARKER, L=0; +B2.15 : RBEND, ANGLE=0.00028204520712228365, L=0.004999999983068528, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; +B2.16 : RBEND, ANGLE=0.0002825688058978819, L=0.004999999985990416, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.17 : RBEND, ANGLE=0.00028344147052387914, L=0.004999999985057385, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.18 : RBEND, ANGLE=0.0005689773361501514, L=0.009999999866747775, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.19 : RBEND, ANGLE=0.0031351349353574143, L=0.0549999774748554, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.20 : RBEND, ANGLE=0.007090051020376564, L=0.12499973818326669, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; +MB2.21 : MARKER, L=0; +MACCEPB2.22 : MARKER, L=0; +B2.23 : RBEND, ANGLE=0.007090051020376564, L=0.12499973818326669, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; +B2.24 : RBEND, ANGLE=0.0031351349353574143, L=0.0549999774748554, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.25 : RBEND, ANGLE=0.0005689773361501514, L=0.009999999866747775, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.26 : RBEND, ANGLE=0.00028344147052387914, L=0.004999999985057385, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.27 : RBEND, ANGLE=0.0002825688058978819, L=0.004999999985990416, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.28 : RBEND, ANGLE=0.00028204520712228365, L=0.004999999983068528, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; +MACCEPB2.29 : MARKER, L=0; +B2.30 : RBEND, ANGLE=0.00028239427297268254, L=0.004999999985308747, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; +B2.31 : RBEND, ANGLE=0.0005679301385989548, L=0.009999999865747485, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.32 : RBEND, ANGLE=0.0005705481324769462, L=0.00999999986376448, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.33 : RBEND, ANGLE=0.009961117639907237, L=0.1749992764934645, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.34 : RBEND, ANGLE=0.009954310855824459, L=0.17499927748210445, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.35 : RBEND, ANGLE=0.0011021754226344192, L=0.019999998987586483, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.36 : RBEND, ANGLE=0.0004745550236172582, L=0.009999999906538218, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; +B2_EDGE.37 : MARKER, L=0; +B2.38 : RBEND, ANGLE=0.0005002113636215749, L=0.014999999845811081, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; +B2.39 : RBEND, ANGLE=0.0003480186528476693, L=0.019999999903006223, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.40 : RBEND, ANGLE=0.00020734511513692636, L=0.029999999950538623, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.41 : RBEND, ANGLE=7.749261878854824e-05, L=0.03200000000355965, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.42 : RBEND, ANGLE=5.9515727493006634e-05, L=0.03249999948634214, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; +MACCEPB2.43 : MARKER, L=0; +B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); + +!!! QUADRUPOLES +STREN.Q1 := 2.818370601288; +Q1 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q1;!, K2=0.0, K3=0.0, K4=0.0, K5=-50005.267419476964, K6=0.0, K7=0.0, K8=0.0, K9=10881051055605.57, K10=0.0, K11=0.0, K12=0.0, K13=-2.0632375498880506e+20; + +STREN.Q2 := 4.340329381668; +Q2 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q2;!, K2=0.0, K3=0.0, K4=0.0, K5=-77008.79767896177, K6=0.0, K7=0.0, K8=0.0, K9=16756967865933.416, K10=0.0, K11=0.0, K12=0.0, K13=-3.177414125398304e+20; + +STREN.Q3 := 3.218430939674; +Q3 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q3;!, K2=0.0, K3=0.0, K4=0.0, K5=-57103.38439379397, K6=0.0, K7=0.0, K8=0.0, K9=12425587805070.506, K10=0.0, K11=0.0, K12=0.0, K13=-2.3561087258794895e+20; + +STREN.Q4 := 3.950686823494; +Q4 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q4;!, K2=0.0, K3=0.0, K4=0.0, K5=-70095.51937887033, K6=0.0, K7=0.0, K8=0.0, K9=15252651660324.936, K10=0.0, K11=0.0, K12=0.0, K13=-2.8921694678321054e+20; + +STREN.QDA := -1.619540412181686; +QDA : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDA;!, K2=0.0, K3=0.0, K4=0.0, K5=25449.92076285507, K6=0.0, K7=0.0, K8=0.0, K9=-5784072900648.879, K10=0.0, K11=0.0, K12=0.0, K13=1.156814580129776e+20; + +STREN.QFA := 3.5731777226094446; +QFA : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.QFA;!, K2=0.0, K3=0.0, K4=0.0, K5=-63397.520352627485, K6=0.0, K7=0.0, K8=0.0, K9=13795179815137.729, K10=0.0, K11=0.0, K12=0.0, K13=-2.6158073201381376e+20; + +STREN.QFB := 4.115082809275146; +QFB : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFB;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; + +STREN.QFP := 4.115082809275146; +QFP : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFP;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; + +STREN.QDB1 := -2.00677456404202; +QDB1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; + +STREN.QDB2 := -3.420574744932221; +QDB2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; + +STREN.QDP1 := -2.00677456404202; +QDP1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; + +STREN.QDP2 := -3.420574744932221; +QDP2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; + +!!! SEXTUPOLES +STREN.SDA0 := -80.8337; +SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0; + +STREN.SDB0 := -64.9422; +SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0; + +STREN.SDP0 := -64.9422; +SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0; + +STREN.SFA0 := 52.5696; +SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0; + +STREN.SFB0 := 73.7401; +SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0; + +STREN.SFP0 := 73.7401; +SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0; + +STREN.SDA1 := -163.0062328090773; +SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1; + +STREN.SDA2 := -88.88255991288263; +SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2; + +STREN.SDA3 := -139.94153649641189; +SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3; + +STREN.SFA1 := 191.76738248436368; +SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1; + +STREN.SFA2 := 150.74610044115283; +SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2; + +STREN.SDB1 := -141.68687364847958; +SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1; + +STREN.SDB2 := -122.31573949946443; +SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2; + +STREN.SDB3 := -173.8347917755106; +SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3; + +STREN.SFB1 := 227.7404567527413; +SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1; + +STREN.SFB2 := 197.7495405020359; +SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2; + +STREN.SDP1 := -142.31415019209263; +SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1; + +STREN.SDP2 := -122.28457189976633; +SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2; + +STREN.SDP3 := -174.1745194336169; +SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3; + +STREN.SFP1 := 229.17648360831797; +SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1; + +STREN.SFP2 := 198.4525009917773; +SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2; + + +!!! -- slow vertical corrector -- +CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors + +!!! -- pulsed magnets -- +PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger + +!!! -- fast correctors -- +! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): +FC1 : SEXTUPOLE, L=0.084, K2=0.0; +FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward +! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): +FC2 : SEXTUPOLE, L=0.082, K2=0.0; + +!!! -- rf cavities -- +HARMONIC_NUMBER = 864; +SRFCav : RFCAVITY, L=0, VOLT=3.0, HARMON:=HARMONIC_NUMBER; +H3Cav : MARKER, L=0; ! + +!!! -- lattice markers -- +MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) +MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) +!# marker used to delimitate girders. +!# one marker at begin and another at end of girder: +GIR : MARKER, L=0; ! +!# marker for the extremities of IDs in long straight sections +MIDA : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDB : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDP : MARKER, L=0; ! +!# end of injection septum +InjSeptF : MARKER, L=0; ! + +!!! --- diagnostic components --- +BPM : MONITOR; ! +IDBPM : MONITOR; ! +DCCT : MARKER, L=0; ! # dcct to measure beam current +ScrapH : MARKER, L=0; ! # horizontal scraper +GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) +GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) +GBPM : MONITOR; ! # General BPM +BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup +BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker +BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker +BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker +TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker +TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker +TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup +TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup +SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) + +!!! --- insertion devices (half devices) --- +IDLEN.APU22 := 1.3; +IDLEN.IVU18 := 2.0; +IDLEN.DELTA52 := 1.2; +IDLEN.APU58 := 1.3; +IDLEN.WIG180 := 2.654; +IDLEN.PAPU50 := 0.984; + +!* CARNAUBA +ID06Hu : DRIFT, L:=IDLEN.APU22/2; +ID06Hd : DRIFT, L:=IDLEN.APU22/2; + +!* CATERETE +ID07Hu : DRIFT, L:=IDLEN.APU22/2; +ID07Hd : DRIFT, L:=IDLEN.APU22/2; + +!* EMA +ID08Hu : DRIFT, L:=IDLEN.IVU18/2; +ID08Hd : DRIFT, L:=IDLEN.IVU18/2; + +!* MANACA +ID09Hu : DRIFT, L:=IDLEN.APU22/2; +ID09Hd : DRIFT, L:=IDLEN.APU22/2; + +!* SABIA +ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; +ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; + +!* IPE +ID11Hu : DRIFT, L:=IDLEN.APU58/2; +ID11Hd : DRIFT, L:=IDLEN.APU58/2; + +!* PAINEIRA +ID14Hu : DRIFT, L:=IDLEN.WIG180/2; +ID14Hd : DRIFT, L:=IDLEN.WIG180/2; + +!* SAPUCAIA +ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; +ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; + +IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector +IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 +IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) +IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector + +!!! -- sectors -- +M1A : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) +M1AFF : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) +M1B : LINE=( + L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, + L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder +M1P : LINE=( + L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, + L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder +M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) +M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) +M2B : LINE=(-M1B);! # low beta xxM2 girder +M2P : LINE=(-M1P);! # low beta xxM2 girder + +M2B_BbBPkup : LINE=( + GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, + BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! + +! arc sector in between B1-B2 (high beta odd-numbered straight sections): +C1A : LINE=( + GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, + SDA2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1B : LINE=( + GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, + L170, SDB2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1P : LINE=( + GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, + SDP2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B2-BC (high beta odd-numbered straight sections): +C2A : LINE=( + GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2B : LINE=( + GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2P : LINE=( + GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, + L201, GIR, FC2, L119, BPM, L075);! + + +! arc sector in between BC-B2 (high beta odd-numbered straight sections): +C3A : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, + L170, SDA3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3B : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, + L170, SDB3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3P : LINE=( + GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, + L170, SDP3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A : LINE=( + GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, + SDA1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A_BbBKckrV : LINE=( + GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, + SDA1, L237, BbBKckrV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_GBPM : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, GBPM, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_DCCT : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_TunePkupV : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L237, TunePkupV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections) +C4B_PingV : LINE=( + GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, + SDB1, L135, PingV, GIR, L019, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_DCCT : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_TuneShkrV : LINE=( + GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, + SDP1, L237, TuneShkrV, GIR, L237, GIR);! + +!! --- insertion sectors --- +IDA : LINE=( + L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, + LIA, L500);! # high beta ID straight section + +IDB : LINE=( + L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, + L500);! # low beta ID straight section + +IDP : LINE=( + L500, LIP, L500, + MIDP, L500, L500p, MIP, L500p, L500, MIDP, + L500, LIP, L500);! # low beta ID straight section + +IDA_01_INJ : LINE=( + SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, + SI_INJ, LPMD);! # high beta INJ straight section and Scrapers + +IDB_02 : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, H3Cav, LIB, L500);! # low beta ID straight section + +IDP_03_CAV : LINE=( + L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, + LIP, L500);! # low beta RF cavity straight section + +IDB_04 : LINE=(IDB); + +IDA_05 : LINE=(IDA); + +IDB_06 : LINE=( + L500, LIB, L500, L350p, + MIDB, ID06Hu, MIB, ID06Hd, MIDB, + L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) + +IDP_07 : LINE=( + L500, LIP, L500, L350p, + MIDP, ID07Hu, MIP, ID07Hd, MIDP, + L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) + +IDB_08 : LINE=( + L500, LIB, L150, L350p, + MIDB, ID08Hu, MIB, ID08Hd, MIDB, + L350p, L150, LIB, L500);! # low beta ID straight section (EMA) + +IDA_09 : LINE=( + L500, LID3, L500p, + MIDA, ID09Hu, MIA, ID09Hd, MIDA, + L500p, LID3, L500);! # high beta ID straight section (MANACA) + +IDB_10 : LINE=( + L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, + MIDB, ID10Hu, MIB, ID10Hd, MIDB, + L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) + +IDP_11 : LINE=( + L500, LIP, L500, L350p, + MIDP, ID11Hu, MIP, ID11Hd, MIDP, + L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m + +IDB_12 : LINE=( + L500, LIB, L665, L100, L135, + MIDB, L600p, MIB, L600p, MIDB, + L135, L100, L665, LIB, L500);! # low beta ID straight section + +IDA_13 : LINE=(IDA); + +IDB_14 : LINE=( + L365, LIB, L208p, IDC3, + MIDB, ID14Hu, MIB, ID14Hd, MIDB, + IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) + +IDP_15 : LINE=(IDP); + +IDB_16 : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, BbBKckL, LIB, L500);! # low beta ID straight section + +IDA_17 : LINE=( + L500, LIA, L511, L350p, IDC2, L063, + MIDA, ID17Hu, MIA, ID17Hd, MIDA, + L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight + !# section (SAPUCAIA) + +IDB_18_TUNEPKUPH : LINE=( + L500, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, TunePkupH, LIB, L500);! # low beta ID straight section + +IDB_19_GSL15 : LINE=( + L500, GSL15, LIP, L500, + MIDP, L500, L500p, MIP, L500p, L500, MIDP, + L500, LIP, L500);! # low beta ID straight section + +IDB_20_GSL07 : LINE=( + L500, GSL07, LIB, L500, + MIDB, L500, L500p, MIB, L500p, L500, MIDB, + L500, LIB, L500);! # low beta ID straight section + +!!! -- girders -- + +!!! straight sections +SS_S01 : LINE=(IDA_01_INJ);! # INJECTION +SS_S02 : LINE=(IDB_02);! +SS_S03 : LINE=(IDP_03_CAV);! +SS_S04 : LINE=(IDB_04);! +SS_S05 : LINE=(IDA_05);! +SS_S06 : LINE=(IDB_06);! # CARNAUBA +SS_S07 : LINE=(IDP_07);! # CATERETE +SS_S08 : LINE=(IDB_08);! # EMA +SS_S09 : LINE=(IDA_09);! # MANACA +SS_S10 : LINE=(IDB_10);! # SABIA +SS_S11 : LINE=(IDP_11);! # IPE +SS_S12 : LINE=(IDB_12);! +SS_S13 : LINE=(IDA_13);! +SS_S14 : LINE=(IDB_14);! # PAINEIRA +SS_S15 : LINE=(IDP_15);! +SS_S16 : LINE=(IDB_16);! # INGA +SS_S17 : LINE=(IDA_17);! # SAPUCAIA +SS_S18 : LINE=(IDB_18_TUNEPKUPH);! +SS_S19 : LINE=(IDB_19_GSL15);! +SS_S20 : LINE=(IDB_20_GSL07);! + +!!! down and upstream straight sections +M1_S01 : LINE=(M1AFF);! +M2_S01 : LINE=(M2AFF);! +M1_S02 : LINE=(M1B);! +M2_S02 : LINE=(M2B);! +M1_S03 : LINE=(M1P);! +M2_S03 : LINE=(M2P);! +M1_S04 : LINE=(M1B);! +M2_S04 : LINE=(M2B);! +M1_S05 : LINE=(M1A);! +M2_S05 : LINE=(M2A);! +M1_S06 : LINE=(M1B);! +M2_S06 : LINE=(M2B);! +M1_S07 : LINE=(M1P);! +M2_S07 : LINE=(M2P);! +M1_S08 : LINE=(M1B);! +M2_S08 : LINE=(M2B);! +M1_S09 : LINE=(M1A);! +M2_S09 : LINE=(M2A);! +M1_S10 : LINE=(M1B);! +M2_S10 : LINE=(M2B);! +M1_S11 : LINE=(M1P);! +M2_S11 : LINE=(M2P);! +M1_S12 : LINE=(M1B);! +M2_S12 : LINE=(M2B);! +M1_S13 : LINE=(M1A);! +M2_S13 : LINE=(M2A);! +M1_S14 : LINE=(M1B);! +M2_S14 : LINE=(M2B);! +M1_S15 : LINE=(M1P);! +M2_S15 : LINE=(M2P);! +M1_S16 : LINE=(M1B);! +M2_S16 : LINE=(M2B_BbBPkup);! +M1_S17 : LINE=(M1A);! +M2_S17 : LINE=(M2A);! +M1_S18 : LINE=(M1B);! +M2_S18 : LINE=(M2B);! +M1_S19 : LINE=(M1P);! +M2_S19 : LINE=(M2P);! +M1_S20 : LINE=(M1B);! +M2_S20 : LINE=(M2B);! + +!!! dispersive arcs +C1_S01 : LINE=(C1A);! +C2_S01 : LINE=(C2A);! +C3_S01 : LINE=(C3B);! +C4_S01 : LINE=(C4B);! +C1_S02 : LINE=(C1B);! +C2_S02 : LINE=(C2B);! +C3_S02 : LINE=(C3P);! +C4_S02 : LINE=(C4P);! +C1_S03 : LINE=(C1P);! +C2_S03 : LINE=(C2P);! +C3_S03 : LINE=(C3B);! +C4_S03 : LINE=(C4B);! +C1_S04 : LINE=(C1B);! +C2_S04 : LINE=(C2B);! +C3_S04 : LINE=(C3A);! +C4_S04 : LINE=(C4A);! +C1_S05 : LINE=(C1A);! +C2_S05 : LINE=(C2A);! +C3_S05 : LINE=(C3B);! +C4_S05 : LINE=(C4B);! +C1_S06 : LINE=(C1B);! +C2_S06 : LINE=(C2B);! +C3_S06 : LINE=(C3P);! +C4_S06 : LINE=(C4P);! +C1_S07 : LINE=(C1P);! +C2_S07 : LINE=(C2P);! +C3_S07 : LINE=(C3B);! +C4_S07 : LINE=(C4B);! +C1_S08 : LINE=(C1B);! +C2_S08 : LINE=(C2B);! +C3_S08 : LINE=(C3A);! +C4_S08 : LINE=(C4A);! +C1_S09 : LINE=(C1A);! +C2_S09 : LINE=(C2A);! +C3_S09 : LINE=(C3B);! +C4_S09 : LINE=(C4B);! +C1_S10 : LINE=(C1B);! +C2_S10 : LINE=(C2B);! +C3_S10 : LINE=(C3P);! +C4_S10 : LINE=(C4P);! +C1_S11 : LINE=(C1P);! +C2_S11 : LINE=(C2P);! +C3_S11 : LINE=(C3B);! +C4_S11 : LINE=(C4B);! +C1_S12 : LINE=(C1B);! +C2_S12 : LINE=(C2B);! +C3_S12 : LINE=(C3A);! +C4_S12 : LINE=(C4A);! +C1_S13 : LINE=(C1A);! +C2_S13 : LINE=(C2A);! +C3_S13 : LINE=(C3B);! +C4_S13 : LINE=(C4B_DCCT);! +C1_S14 : LINE=(C1B);! +C2_S14 : LINE=(C2B);! +C3_S14 : LINE=(C3P);! +C4_S14 : LINE=(C4P_DCCT);! +C1_S15 : LINE=(C1P);! +C2_S15 : LINE=(C2P);! +C3_S15 : LINE=(C3B);! +C4_S15 : LINE=(C4B_GBPM);! +C1_S16 : LINE=(C1B);! +C2_S16 : LINE=(C2B);! +C3_S16 : LINE=(C3A);! +C4_S16 : LINE=(C4A_BbBKckrV);! +C1_S17 : LINE=(C1A);! +C2_S17 : LINE=(C2A);! +C3_S17 : LINE=(C3B);! +C4_S17 : LINE=(C4B_TunePkupV);! +C1_S18 : LINE=(C1B);! +C2_S18 : LINE=(C2B);! +C3_S18 : LINE=(C3P);! +C4_S18 : LINE=(C4P_TuneShkrV);! +C1_S19 : LINE=(C1P);! +C2_S19 : LINE=(C2P);! +C3_S19 : LINE=(C3B);! +C4_S19 : LINE=(C4B_PingV);! +C1_S20 : LINE=(C1B);! +C2_S20 : LINE=(C2B);! +C3_S20 : LINE=(C3A);! +C4_S20 : LINE=(C4A);! + +!!! SECTORS # 01..20 +S01 : LINE=( + M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, + C3_S01, B2, C4_S01, B1);! +S02 : LINE=( + M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, + C3_S02, B2, C4_S02, B1);! +S03 : LINE=( + M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, + C3_S03, B2, C4_S03, B1);! +S04 : LINE=( + M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, + C3_S04, B2, C4_S04, B1);! +S05 : LINE=( + M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, + C3_S05, B2, C4_S05, B1);! +S06 : LINE=( + M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, + C3_S06, B2, C4_S06, B1);! +S07 : LINE=( + M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, + C3_S07, B2, C4_S07, B1);! +S08 : LINE=( + M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, + C3_S08, B2, C4_S08, B1);! +S09 : LINE=( + M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, + C3_S09, B2, C4_S09, B1);! +S10 : LINE=( + M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, + C3_S10, B2, C4_S10, B1);! +S11 : LINE=( + M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, + C3_S11, B2, C4_S11, B1);! +S12 : LINE=( + M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, + C3_S12, B2, C4_S12, B1);! +S13 : LINE=( + M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, + C3_S13, B2, C4_S13, B1);! +S14 : LINE=( + M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, + C3_S14, B2, C4_S14, B1);! +S15 : LINE=( + M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, + C3_S15, B2, C4_S15, B1);! +S16 : LINE=( + M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, + C3_S16, B2, C4_S16, B1);! +S17 : LINE=( + M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, + C3_S17, B2, C4_S17, B1);! +S18 : LINE=( + M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, + C3_S18, B2, C4_S18, B1);! +S19 : LINE=( + M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, + C3_S19, B2, C4_S19, B1);! +S20 : LINE=( + M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, + C3_S20, B2, C4_S20, B1);! + +!!! The ring +SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, + S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! + +BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; +USE, PERIOD=SI; +SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; +CALL, FILE=sirius-ring.temp; +REMOVEFILE, FILE=sirius-ring.temp; + +SEQEDIT, SEQUENCE=SI; +FLATTEN; +CYCLE, START=M_START; +ENDEDIT; diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius.seq index 5ac632b..2793694 100644 --- a/other-simulators/MAD/sirius.seq +++ b/other-simulators/MAD/sirius.seq @@ -118,134 +118,134 @@ L839 : DRIFT, L=0.839; !!! DIPOLES !* BC -BC.0 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;!, K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC.1 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;!, K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.2 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;!, K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.0 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.1 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.2 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; BC_EDGE.3 : MARKER, L=0; -BC.4 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;!, K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC.5 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;!, K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.6 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;!, K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.4 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.5 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.6 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; MACCEPBC.7 : MARKER, L=0; -BC.8 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;!, K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -BC.9 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;!, K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.8 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.9 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; MACCEPBC.10 : MARKER, L=0; -BC.11 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;!, K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -BC.12 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;!, K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.13 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;!, K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.14 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;!, K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.15 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;!, K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.16 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;!, K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.17 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;!, K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.18 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;!, K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.19 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;!, K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.11 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.12 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.13 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.14 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.15 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.16 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.17 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.18 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.19 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; MC.20 : MARKER, L=0; MACCEPBC.21 : MARKER, L=0; -BC.22 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;!, K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -BC.23 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;!, K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.24 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;!, K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.25 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;!, K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.26 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;!, K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.27 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;!, K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.28 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;!, K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.29 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;!, K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.30 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;!, K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.22 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.23 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.24 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.25 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.26 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.27 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.28 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.29 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.30 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; MACCEPBC.31 : MARKER, L=0; -BC.32 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;!, K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -BC.33 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;!, K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.32 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.33 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; MACCEPBC.34 : MARKER, L=0; -BC.35 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;!, K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -BC.36 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;!, K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.37 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;!, K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.35 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.36 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.37 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; BC_EDGE.38 : MARKER, L=0; -BC.39 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;!, K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC.40 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;!, K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.41 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;!, K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.39 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.40 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.41 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); !* B1 MACCEPB1.0 : MARKER, L=0; -B1.1 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;!, K4=-10.312, K5=900.13, K6=82477.0; -B1.2 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;!, K4=25.814, K5=316.42, K6=-50464.0; -B1.3 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;!, K4=-58.35, K5=4295.4, K6=-37834.0; -B1.4 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;!, K4=-228.43, K5=16525.0, K6=-40477.0; +B1.1 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; +B1.2 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.3 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.4 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; B1_EDGE.5 : MARKER, L=0; -B1.6 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;!, K4=-53.231, K5=9036.0, K6=727830.0; +B1.6 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; B1_SRC.7 : MARKER, L=0; -B1.8 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;!, K4=63.908, K5=6165.1, K6=349510.0; -B1.9 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;!, K4=214.96, K5=5202.3, K6=-605180.0; -B1.10 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;!, K4=251.26, K5=806.49, K6=-923350.0; -B1.11 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;!, K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.12 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;!, K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.13 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;!, K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.14 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;!, K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.15 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;!, K4=293.16, K5=1463.2, K6=-2087700.0; -B1.16 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;!, K4=318.63, K5=1528.2, K6=-2338700.0; -B1.17 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;!, K4=250.91, K5=497.72, K6=-1911300.0; +B1.8 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.9 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.10 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.11 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.12 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.13 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.14 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.15 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.16 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.17 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; MB1.18 : MARKER, L=0; MACCEPB1.19 : MARKER, L=0; -B1.20 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;!, K4=250.91, K5=497.72, K6=-1911300.0; -B1.21 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;!, K4=318.63, K5=1528.2, K6=-2338700.0; -B1.22 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;!, K4=293.16, K5=1463.2, K6=-2087700.0; -B1.23 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;!, K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.24 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;!, K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.25 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;!, K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.26 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;!, K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.27 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;!, K4=251.26, K5=806.49, K6=-923350.0; -B1.28 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;!, K4=214.96, K5=5202.3, K6=-605180.0; -B1.29 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;!, K4=63.908, K5=6165.1, K6=349510.0; -B1.30 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;!, K4=-53.231, K5=9036.0, K6=727830.0; +B1.20 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; +B1.21 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.22 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.23 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.24 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.25 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.26 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.27 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.28 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.29 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.30 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; B1_EDGE.31 : MARKER, L=0; -B1.32 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;!, K4=-228.43, K5=16525.0, K6=-40477.0; -B1.33 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;!, K4=-58.35, K5=4295.4, K6=-37834.0; -B1.34 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;!, K4=25.814, K5=316.42, K6=-50464.0; -B1.35 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;!, K4=-10.312, K5=900.13, K6=82477.0; +B1.32 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; +B1.33 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.34 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.35 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; MACCEPB1.36 : MARKER, L=0; B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); !* B2 MACCEPB2.0 : MARKER, L=0; -B2.1 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;!, K4=13.671, K5=-773.7, K6=-29544.0; -B2.2 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;!, K4=1.5573, K5=83.579, K6=38831.0; -B2.3 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;!, K4=-15.146, K5=536.93, K6=78230.0; -B2.4 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;!, K4=-178.16, K5=7235.7, K6=167860.0; -B2.5 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;!, K4=-391.66, K5=19055.0, K6=315860.0; +B2.1 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; +B2.2 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.3 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.4 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.5 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; B2_EDGE.6 : MARKER, L=0; -B2.7 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;!, K4=-399.38, K5=16288.0, K6=810850.0; -B2.8 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;!, K4=-157.15, K5=12311.0, K6=1140800.0; -B2.9 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;!, K4=199.75, K5=3362.1, K6=-313140.0; -B2.10 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;!, K4=-51.871, K5=757.52, K6=599430.0; -B2.11 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;!, K4=-325.68, K5=8206.7, K6=1736500.0; -B2.12 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;!, K4=-405.77, K5=10602.0, K6=1873500.0; -B2.13 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;!, K4=-390.31, K5=12889.0, K6=1707200.0; +B2.7 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; +B2.8 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.9 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.10 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.11 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.12 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.13 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; MACCEPB2.14 : MARKER, L=0; -B2.15 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;!, K4=-353.86, K5=13287.0, K6=1516000.0; -B2.16 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;!, K4=-420.95, K5=12650.0, K6=1876200.0; -B2.17 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;!, K4=-407.59, K5=10527.0, K6=1872900.0; -B2.18 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;!, K4=-370.53, K5=9009.8, K6=1881800.0; -B2.19 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;!, K4=-278.71, K5=8466.7, K6=1791300.0; -B2.20 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;!, K4=-268.09, K5=8809.0, K6=1854100.0; +B2.15 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; +B2.16 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.17 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.18 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.19 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.20 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; MB2.21 : MARKER, L=0; MACCEPB2.22 : MARKER, L=0; -B2.23 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;!, K4=-268.09, K5=8809.0, K6=1854100.0; -B2.24 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;!, K4=-278.71, K5=8466.7, K6=1791300.0; -B2.25 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;!, K4=-370.53, K5=9009.8, K6=1881800.0; -B2.26 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;!, K4=-407.59, K5=10527.0, K6=1872900.0; -B2.27 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;!, K4=-420.95, K5=12650.0, K6=1876200.0; -B2.28 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;!, K4=-353.86, K5=13287.0, K6=1516000.0; +B2.23 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; +B2.24 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.25 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.26 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.27 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.28 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; MACCEPB2.29 : MARKER, L=0; -B2.30 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;!, K4=-390.31, K5=12889.0, K6=1707200.0; -B2.31 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;!, K4=-405.77, K5=10602.0, K6=1873500.0; -B2.32 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;!, K4=-325.68, K5=8206.7, K6=1736500.0; -B2.33 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;!, K4=-51.871, K5=757.52, K6=599430.0; -B2.34 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;!, K4=199.75, K5=3362.1, K6=-313140.0; -B2.35 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;!, K4=-157.15, K5=12311.0, K6=1140800.0; -B2.36 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;!, K4=-399.38, K5=16288.0, K6=810850.0; +B2.30 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; +B2.31 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.32 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.33 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.34 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.35 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.36 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; B2_EDGE.37 : MARKER, L=0; -B2.38 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;!, K4=-391.66, K5=19055.0, K6=315860.0; -B2.39 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;!, K4=-178.16, K5=7235.7, K6=167860.0; -B2.40 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;!, K4=-15.146, K5=536.93, K6=78230.0; -B2.41 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;!, K4=1.5573, K5=83.579, K6=38831.0; -B2.42 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;!, K4=13.671, K5=-773.7, K6=-29544.0; +B2.38 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; +B2.39 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.40 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.41 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.42 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; MACCEPB2.43 : MARKER, L=0; B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); From b79f043eef595529cbda04bac117fc7b31199551 Mon Sep 17 00:00:00 2001 From: vitor Date: Fri, 6 Sep 2024 14:06:54 -0300 Subject: [PATCH 3/9] fix arclength when using RBEND dipoles --- other-simulators/MAD/sirius(rbend).seq | 201 +++++++++--------- .../MAD/{sirius.seq => sirius(sbend).seq} | 0 2 files changed, 101 insertions(+), 100 deletions(-) rename other-simulators/MAD/{sirius.seq => sirius(sbend).seq} (100%) diff --git a/other-simulators/MAD/sirius(rbend).seq b/other-simulators/MAD/sirius(rbend).seq index 3b53ed2..0d8f139 100644 --- a/other-simulators/MAD/sirius(rbend).seq +++ b/other-simulators/MAD/sirius(rbend).seq @@ -117,135 +117,136 @@ L715 : DRIFT, L=0.715; L839 : DRIFT, L=0.839; !!! DIPOLES +OPTION, RBARC = FALSE; !* BC -BC.0 : RBEND, ANGLE=0.0002345722514680379, L=0.03499999988566107, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC.1 : RBEND, ANGLE=0.00033772121026090274, L=0.015999999920772487, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.2 : RBEND, ANGLE=0.0005827654372409067, L=0.01399999980211211, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.0 : RBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.1 : RBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.2 : RBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; BC_EDGE.3 : MARKER, L=0; -BC.4 : RBEND, ANGLE=0.0007415903991723907, L=0.011999999725110604, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC.5 : RBEND, ANGLE=0.010868863383869488, L=0.15999921245314838, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.6 : RBEND, ANGLE=0.010849141163321951, L=0.15999921530877118, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.4 : RBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.5 : RBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.6 : RBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; MACCEPBC.7 : MARKER, L=0; -BC.8 : RBEND, ANGLE=0.0016964600329384882, L=0.03199999616258539, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -BC.9 : RBEND, ANGLE=0.0020746728818456595, L=0.03199999426076004, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.8 : RBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.9 : RBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; MACCEPBC.10 : MARKER, L=0; -BC.11 : RBEND, ANGLE=0.0007930776121062233, L=0.009999999737187256, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -BC.12 : RBEND, ANGLE=0.0010044369845227366, L=0.009999999580002377, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.13 : RBEND, ANGLE=0.0013208651779093087, L=0.009999999273175374, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.14 : RBEND, ANGLE=0.001712866127907235, L=0.009999998777479218, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.15 : RBEND, ANGLE=0.0010423106292910137, L=0.004999999773603221, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.16 : RBEND, ANGLE=0.0012067206448288794, L=0.004999999696817337, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.17 : RBEND, ANGLE=0.0014222688074501792, L=0.004999999578503192, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.18 : RBEND, ANGLE=0.0012789772758614447, L=0.00399999972727682, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.19 : RBEND, ANGLE=0.00032759830059933564, L=0.0009999999960308237, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.11 : RBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.12 : RBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.13 : RBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.14 : RBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.15 : RBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.16 : RBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.17 : RBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.18 : RBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.19 : RBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; MC.20 : MARKER, L=0; MACCEPBC.21 : MARKER, L=0; -BC.22 : RBEND, ANGLE=0.00032759830059933564, L=0.0009999999960308237, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -BC.23 : RBEND, ANGLE=0.0012789772758614447, L=0.00399999972727682, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.24 : RBEND, ANGLE=0.0014222688074501792, L=0.004999999578503192, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.25 : RBEND, ANGLE=0.0012067206448288794, L=0.004999999696817337, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.26 : RBEND, ANGLE=0.0010423106292910137, L=0.004999999773603221, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.27 : RBEND, ANGLE=0.001712866127907235, L=0.009999998777479218, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.28 : RBEND, ANGLE=0.0013208651779093087, L=0.009999999273175374, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.29 : RBEND, ANGLE=0.0010044369845227366, L=0.009999999580002377, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.30 : RBEND, ANGLE=0.0007930776121062233, L=0.009999999737187256, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; +BC.22 : RBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; +BC.23 : RBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; +BC.24 : RBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; +BC.25 : RBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; +BC.26 : RBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; +BC.27 : RBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; +BC.28 : RBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; +BC.29 : RBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; +BC.30 : RBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; MACCEPBC.31 : MARKER, L=0; -BC.32 : RBEND, ANGLE=0.0020746728818456595, L=0.03199999426076004, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -BC.33 : RBEND, ANGLE=0.0016964600329384882, L=0.03199999616258539, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; +BC.32 : RBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; +BC.33 : RBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; MACCEPBC.34 : MARKER, L=0; -BC.35 : RBEND, ANGLE=0.010849141163321951, L=0.15999921530877118, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -BC.36 : RBEND, ANGLE=0.010868863383869488, L=0.15999921245314838, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.37 : RBEND, ANGLE=0.0007415903991723907, L=0.011999999725110604, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; +BC.35 : RBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; +BC.36 : RBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; +BC.37 : RBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; BC_EDGE.38 : MARKER, L=0; -BC.39 : RBEND, ANGLE=0.0005827654372409067, L=0.01399999980211211, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC.40 : RBEND, ANGLE=0.00033772121026090274, L=0.015999999920772487, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.41 : RBEND, ANGLE=0.0002345722514680379, L=0.03499999988566107, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; +BC.39 : RBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; +BC.40 : RBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; +BC.41 : RBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); !* B1 MACCEPB1.0 : MARKER, L=0; -B1.1 : RBEND, ANGLE=6.789330790257942e-05, L=0.04999999982214338, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; -B1.2 : RBEND, ANGLE=0.00013508848410436112, L=0.040000000084218654, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.3 : RBEND, ANGLE=0.0005752605214573311, L=0.039999999443702, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.4 : RBEND, ANGLE=0.000595855406630864, L=0.015999999764113808, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; +B1.1 : RBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; +B1.2 : RBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.3 : RBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.4 : RBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; B1_EDGE.5 : MARKER, L=0; -B1.6 : RBEND, ANGLE=0.001834166510920841, L=0.03399999523367084, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; +B1.6 : RBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; B1_SRC.7 : MARKER, L=0; -B1.8 : RBEND, ANGLE=0.0028213247358488333, L=0.04999998341704813, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.9 : RBEND, ANGLE=0.005628163238906114, L=0.09999986801563025, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.10 : RBEND, ANGLE=0.008444251986998965, L=0.14999955434162282, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.11 : RBEND, ANGLE=0.002262470309360249, L=0.03999999146853231, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.12 : RBEND, ANGLE=0.0005647885459453651, L=0.009999999866203254, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.13 : RBEND, ANGLE=0.0002811725424962865, L=0.00499999998400466, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.14 : RBEND, ANGLE=0.000279776279094691, L=0.004999999981989098, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.15 : RBEND, ANGLE=0.00027785641691749726, L=0.004999999984111177, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.16 : RBEND, ANGLE=0.00016598081186466074, L=0.0030000000001874543, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.17 : RBEND, ANGLE=0.00011047934165124105, L=0.0019999999979958315, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; +B1.8 : RBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.9 : RBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.10 : RBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.11 : RBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.12 : RBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.13 : RBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.14 : RBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.15 : RBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.16 : RBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.17 : RBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; MB1.18 : MARKER, L=0; MACCEPB1.19 : MARKER, L=0; -B1.20 : RBEND, ANGLE=0.00011047934165124105, L=0.0019999999979958315, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; -B1.21 : RBEND, ANGLE=0.00016598081186466074, L=0.0030000000001874543, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.22 : RBEND, ANGLE=0.00027785641691749726, L=0.004999999984111177, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.23 : RBEND, ANGLE=0.000279776279094691, L=0.004999999981989098, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.24 : RBEND, ANGLE=0.0002811725424962865, L=0.00499999998400466, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.25 : RBEND, ANGLE=0.0005647885459453651, L=0.009999999866203254, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.26 : RBEND, ANGLE=0.002262470309360249, L=0.03999999146853231, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.27 : RBEND, ANGLE=0.008444251986998965, L=0.14999955434162282, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.28 : RBEND, ANGLE=0.005628163238906114, L=0.09999986801563025, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.29 : RBEND, ANGLE=0.0028213247358488333, L=0.04999998341704813, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.30 : RBEND, ANGLE=0.001834166510920841, L=0.03399999523367084, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; +B1.20 : RBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; +B1.21 : RBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; +B1.22 : RBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; +B1.23 : RBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; +B1.24 : RBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; +B1.25 : RBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; +B1.26 : RBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; +B1.27 : RBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; +B1.28 : RBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; +B1.29 : RBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; +B1.30 : RBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; B1_EDGE.31 : MARKER, L=0; -B1.32 : RBEND, ANGLE=0.000595855406630864, L=0.015999999764113808, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; -B1.33 : RBEND, ANGLE=0.0005752605214573311, L=0.039999999443702, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.34 : RBEND, ANGLE=0.00013508848410436112, L=0.040000000084218654, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.35 : RBEND, ANGLE=6.789330790257942e-05, L=0.04999999982214338, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; +B1.32 : RBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; +B1.33 : RBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; +B1.34 : RBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; +B1.35 : RBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; MACCEPB1.36 : MARKER, L=0; B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); !* B2 MACCEPB2.0 : MARKER, L=0; -B2.1 : RBEND, ANGLE=5.9515727493006634e-05, L=0.03249999948634214, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; -B2.2 : RBEND, ANGLE=7.749261878854824e-05, L=0.03200000000355965, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.3 : RBEND, ANGLE=0.00020734511513692636, L=0.029999999950538623, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.4 : RBEND, ANGLE=0.0003480186528476693, L=0.019999999903006223, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.5 : RBEND, ANGLE=0.0005002113636215749, L=0.014999999845811081, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; +B2.1 : RBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; +B2.2 : RBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.3 : RBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.4 : RBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.5 : RBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; B2_EDGE.6 : MARKER, L=0; -B2.7 : RBEND, ANGLE=0.0004745550236172582, L=0.009999999906538218, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; -B2.8 : RBEND, ANGLE=0.0011021754226344192, L=0.019999998987586483, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.9 : RBEND, ANGLE=0.009954310855824459, L=0.17499927748210445, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.10 : RBEND, ANGLE=0.009961117639907237, L=0.1749992764934645, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.11 : RBEND, ANGLE=0.0005705481324769462, L=0.00999999986376448, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.12 : RBEND, ANGLE=0.0005679301385989548, L=0.009999999865747485, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.13 : RBEND, ANGLE=0.00028239427297268254, L=0.004999999985308747, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; +B2.7 : RBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; +B2.8 : RBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.9 : RBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.10 : RBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.11 : RBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.12 : RBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.13 : RBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; MACCEPB2.14 : MARKER, L=0; -B2.15 : RBEND, ANGLE=0.00028204520712228365, L=0.004999999983068528, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; -B2.16 : RBEND, ANGLE=0.0002825688058978819, L=0.004999999985990416, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.17 : RBEND, ANGLE=0.00028344147052387914, L=0.004999999985057385, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.18 : RBEND, ANGLE=0.0005689773361501514, L=0.009999999866747775, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.19 : RBEND, ANGLE=0.0031351349353574143, L=0.0549999774748554, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.20 : RBEND, ANGLE=0.007090051020376564, L=0.12499973818326669, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; +B2.15 : RBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; +B2.16 : RBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.17 : RBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.18 : RBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.19 : RBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.20 : RBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; MB2.21 : MARKER, L=0; MACCEPB2.22 : MARKER, L=0; -B2.23 : RBEND, ANGLE=0.007090051020376564, L=0.12499973818326669, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; -B2.24 : RBEND, ANGLE=0.0031351349353574143, L=0.0549999774748554, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.25 : RBEND, ANGLE=0.0005689773361501514, L=0.009999999866747775, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.26 : RBEND, ANGLE=0.00028344147052387914, L=0.004999999985057385, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.27 : RBEND, ANGLE=0.0002825688058978819, L=0.004999999985990416, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.28 : RBEND, ANGLE=0.00028204520712228365, L=0.004999999983068528, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; +B2.23 : RBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; +B2.24 : RBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; +B2.25 : RBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; +B2.26 : RBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; +B2.27 : RBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; +B2.28 : RBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; MACCEPB2.29 : MARKER, L=0; -B2.30 : RBEND, ANGLE=0.00028239427297268254, L=0.004999999985308747, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; -B2.31 : RBEND, ANGLE=0.0005679301385989548, L=0.009999999865747485, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.32 : RBEND, ANGLE=0.0005705481324769462, L=0.00999999986376448, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.33 : RBEND, ANGLE=0.009961117639907237, L=0.1749992764934645, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.34 : RBEND, ANGLE=0.009954310855824459, L=0.17499927748210445, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.35 : RBEND, ANGLE=0.0011021754226344192, L=0.019999998987586483, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.36 : RBEND, ANGLE=0.0004745550236172582, L=0.009999999906538218, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; +B2.30 : RBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; +B2.31 : RBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; +B2.32 : RBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; +B2.33 : RBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; +B2.34 : RBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; +B2.35 : RBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; +B2.36 : RBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; B2_EDGE.37 : MARKER, L=0; -B2.38 : RBEND, ANGLE=0.0005002113636215749, L=0.014999999845811081, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; -B2.39 : RBEND, ANGLE=0.0003480186528476693, L=0.019999999903006223, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.40 : RBEND, ANGLE=0.00020734511513692636, L=0.029999999950538623, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.41 : RBEND, ANGLE=7.749261878854824e-05, L=0.03200000000355965, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.42 : RBEND, ANGLE=5.9515727493006634e-05, L=0.03249999948634214, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; +B2.38 : RBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; +B2.39 : RBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; +B2.40 : RBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; +B2.41 : RBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; +B2.42 : RBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; MACCEPB2.43 : MARKER, L=0; B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius(sbend).seq similarity index 100% rename from other-simulators/MAD/sirius.seq rename to other-simulators/MAD/sirius(sbend).seq From d6095f391337eadfc87f68044ca78dd4d97d3915 Mon Sep 17 00:00:00 2001 From: vitor Date: Fri, 6 Sep 2024 19:35:42 -0300 Subject: [PATCH 4/9] add converter and delete other sequences --- other-simulators/MAD/sirius(rbend).seq | 893 ------------------ other-simulators/MAD/sirius(sbend).seq | 892 ----------------- other-simulators/MAD/sirius.seq | 773 +++++++++++++++ .../MAD/trackcpp2MADX_converter.py | 874 +++++++++++++++++ 4 files changed, 1647 insertions(+), 1785 deletions(-) delete mode 100644 other-simulators/MAD/sirius(rbend).seq delete mode 100644 other-simulators/MAD/sirius(sbend).seq create mode 100644 other-simulators/MAD/sirius.seq create mode 100644 other-simulators/MAD/trackcpp2MADX_converter.py diff --git a/other-simulators/MAD/sirius(rbend).seq b/other-simulators/MAD/sirius(rbend).seq deleted file mode 100644 index 0d8f139..0000000 --- a/other-simulators/MAD/sirius(rbend).seq +++ /dev/null @@ -1,893 +0,0 @@ -!!! SIRIUS Storage Ring Model -! Date: 06-September-2024 -! Version: SI_V25_04 - -!!! -- injection sector -- - -ACCLEN := 0;! -circum_new := 518.3899; ! [m] -circum_old := 518.3960; ! [m] -dcircum := circum_new - circum_old; -!# divide circumference difference in all 20 straight sections -dcircum_frac := dcircum/20.0/2.0; !dcircum/20/2; - -L500p: DRIFT, L=0.500 + dcircum_frac; -LKKp: DRIFT, L=1.9150 + dcircum_frac; -LPMU: DRIFT, L=0.0600; -L050: DRIFT, L=0.050; -L150: DRIFT, L=0.150; -L182: DRIFT, L=0.182; -L399: DRIFT, L=0.399; - -M_START : MARKER, L=0; ! start of the model -M_END : MARKER, L=0; ! end of the model -MIA : MARKER, L=0; ! center of long straight sections (even-numbered) -InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits -InjVCs : MARKER, L=0; ! Smaller injection vchamber limits -SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) -ScrapV : MARKER, L=0; ! vertical scraper - -!* -- pulsed magnets -- -InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker -InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet - -!*if inj_sel == 'DPK': -INJ_SEC_DPK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, - );! -!* elif inj_sel == 'DPK_END': -INJ_SEC_DPK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, - );! -!*elif inj_sel == 'NLK': -INJ_SEC_NLK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - );! -!*elif inj_sel == 'NLK_END': -INJ_SEC_NLK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - InjNLKckr);! - -SI_INJ : LINE=(INJ_SEC_NLK_END); - -!!! -- drifts -- -LIA : DRIFT, L=1.5179; -LIB : DRIFT, L=1.0879; -LIP : DRIFT, L=1.0879; -LPMD : DRIFT, L=0.4929; -LID3 : DRIFT, L=1.8679; -L144p : DRIFT, L=0.144 + dcircum_frac; -L208p : DRIFT, L=0.208 + dcircum_frac; -L350p : DRIFT, L=0.350 + dcircum_frac; -L600p : DRIFT, L=0.600 + dcircum_frac; -L800p : DRIFT, L=0.7999; -L011 : DRIFT, L=0.011; -L019 : DRIFT, L=0.019; -L049 : DRIFT, L=0.049; -L050 : DRIFT, L=0.050; -L052 : DRIFT, L=0.052; -L056 : DRIFT, L=0.056; -L063 : DRIFT, L=0.063; -L074 : DRIFT, L=0.074; -L075 : DRIFT, L=0.075; -L082 : DRIFT, L=0.082; -L090 : DRIFT, L=0.090; -L100 : DRIFT, L=0.100; -L109 : DRIFT, L=0.109; -L112 : DRIFT, L=0.112; -L119 : DRIFT, L=0.119; -L120 : DRIFT, L=0.120; -L125 : DRIFT, L=0.125; -L127 : DRIFT, L=0.127; -L133 : DRIFT, L=0.133; -L134 : DRIFT, L=0.134; -L135 : DRIFT, L=0.135; -L140 : DRIFT, L=0.140; -L150 : DRIFT, L=0.150; -L156 : DRIFT, L=0.156; -L170 : DRIFT, L=0.170; -L188 : DRIFT, L=0.188; -L200 : DRIFT, L=0.200; -L201 : DRIFT, L=0.201; -L203 : DRIFT, L=0.203; -L205 : DRIFT, L=0.205; -L216 : DRIFT, L=0.216; -L230 : DRIFT, L=0.230; -L237 : DRIFT, L=0.237; -L240 : DRIFT, L=0.240; -L260 : DRIFT, L=0.260; -L270 : DRIFT, L=0.270; -L297 : DRIFT, L=0.297; -L325 : DRIFT, L=0.325; -L329 : DRIFT, L=0.329; -L336 : DRIFT, L=0.336; -L365 : DRIFT, L=0.365; -L419 : DRIFT, L=0.419; -L474 : DRIFT, L=0.474; -L500 : DRIFT, L=0.500; -L511 : DRIFT, L=0.511; -L665 : DRIFT, L=0.665; -L715 : DRIFT, L=0.715; -L839 : DRIFT, L=0.839; - -!!! DIPOLES -OPTION, RBARC = FALSE; -!* BC -BC.0 : RBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC.1 : RBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.2 : RBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC_EDGE.3 : MARKER, L=0; -BC.4 : RBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC.5 : RBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.6 : RBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -MACCEPBC.7 : MARKER, L=0; -BC.8 : RBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -BC.9 : RBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -MACCEPBC.10 : MARKER, L=0; -BC.11 : RBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -BC.12 : RBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.13 : RBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.14 : RBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.15 : RBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.16 : RBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.17 : RBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.18 : RBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.19 : RBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -MC.20 : MARKER, L=0; -MACCEPBC.21 : MARKER, L=0; -BC.22 : RBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -BC.23 : RBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.24 : RBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.25 : RBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.26 : RBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.27 : RBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.28 : RBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.29 : RBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.30 : RBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -MACCEPBC.31 : MARKER, L=0; -BC.32 : RBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -BC.33 : RBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -MACCEPBC.34 : MARKER, L=0; -BC.35 : RBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -BC.36 : RBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.37 : RBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC_EDGE.38 : MARKER, L=0; -BC.39 : RBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC.40 : RBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.41 : RBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); - -!* B1 -MACCEPB1.0 : MARKER, L=0; -B1.1 : RBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; -B1.2 : RBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.3 : RBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.4 : RBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; -B1_EDGE.5 : MARKER, L=0; -B1.6 : RBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; -B1_SRC.7 : MARKER, L=0; -B1.8 : RBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.9 : RBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.10 : RBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.11 : RBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.12 : RBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.13 : RBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.14 : RBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.15 : RBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.16 : RBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.17 : RBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; -MB1.18 : MARKER, L=0; -MACCEPB1.19 : MARKER, L=0; -B1.20 : RBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; -B1.21 : RBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.22 : RBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.23 : RBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.24 : RBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.25 : RBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.26 : RBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.27 : RBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.28 : RBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.29 : RBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.30 : RBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; -B1_EDGE.31 : MARKER, L=0; -B1.32 : RBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; -B1.33 : RBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.34 : RBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.35 : RBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; -MACCEPB1.36 : MARKER, L=0; -B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); - -!* B2 -MACCEPB2.0 : MARKER, L=0; -B2.1 : RBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; -B2.2 : RBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.3 : RBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.4 : RBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.5 : RBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; -B2_EDGE.6 : MARKER, L=0; -B2.7 : RBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; -B2.8 : RBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.9 : RBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.10 : RBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.11 : RBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.12 : RBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.13 : RBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; -MACCEPB2.14 : MARKER, L=0; -B2.15 : RBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; -B2.16 : RBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.17 : RBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.18 : RBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.19 : RBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.20 : RBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; -MB2.21 : MARKER, L=0; -MACCEPB2.22 : MARKER, L=0; -B2.23 : RBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; -B2.24 : RBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.25 : RBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.26 : RBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.27 : RBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.28 : RBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; -MACCEPB2.29 : MARKER, L=0; -B2.30 : RBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; -B2.31 : RBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.32 : RBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.33 : RBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.34 : RBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.35 : RBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.36 : RBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; -B2_EDGE.37 : MARKER, L=0; -B2.38 : RBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; -B2.39 : RBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.40 : RBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.41 : RBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.42 : RBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; -MACCEPB2.43 : MARKER, L=0; -B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); - -!!! QUADRUPOLES -STREN.Q1 := 2.818370601288; -Q1 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q1;!, K2=0.0, K3=0.0, K4=0.0, K5=-50005.267419476964, K6=0.0, K7=0.0, K8=0.0, K9=10881051055605.57, K10=0.0, K11=0.0, K12=0.0, K13=-2.0632375498880506e+20; - -STREN.Q2 := 4.340329381668; -Q2 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q2;!, K2=0.0, K3=0.0, K4=0.0, K5=-77008.79767896177, K6=0.0, K7=0.0, K8=0.0, K9=16756967865933.416, K10=0.0, K11=0.0, K12=0.0, K13=-3.177414125398304e+20; - -STREN.Q3 := 3.218430939674; -Q3 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q3;!, K2=0.0, K3=0.0, K4=0.0, K5=-57103.38439379397, K6=0.0, K7=0.0, K8=0.0, K9=12425587805070.506, K10=0.0, K11=0.0, K12=0.0, K13=-2.3561087258794895e+20; - -STREN.Q4 := 3.950686823494; -Q4 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q4;!, K2=0.0, K3=0.0, K4=0.0, K5=-70095.51937887033, K6=0.0, K7=0.0, K8=0.0, K9=15252651660324.936, K10=0.0, K11=0.0, K12=0.0, K13=-2.8921694678321054e+20; - -STREN.QDA := -1.619540412181686; -QDA : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDA;!, K2=0.0, K3=0.0, K4=0.0, K5=25449.92076285507, K6=0.0, K7=0.0, K8=0.0, K9=-5784072900648.879, K10=0.0, K11=0.0, K12=0.0, K13=1.156814580129776e+20; - -STREN.QFA := 3.5731777226094446; -QFA : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.QFA;!, K2=0.0, K3=0.0, K4=0.0, K5=-63397.520352627485, K6=0.0, K7=0.0, K8=0.0, K9=13795179815137.729, K10=0.0, K11=0.0, K12=0.0, K13=-2.6158073201381376e+20; - -STREN.QFB := 4.115082809275146; -QFB : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFB;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; - -STREN.QFP := 4.115082809275146; -QFP : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFP;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; - -STREN.QDB1 := -2.00677456404202; -QDB1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; - -STREN.QDB2 := -3.420574744932221; -QDB2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; - -STREN.QDP1 := -2.00677456404202; -QDP1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; - -STREN.QDP2 := -3.420574744932221; -QDP2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; - -!!! SEXTUPOLES -STREN.SDA0 := -80.8337; -SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0; - -STREN.SDB0 := -64.9422; -SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0; - -STREN.SDP0 := -64.9422; -SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0; - -STREN.SFA0 := 52.5696; -SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0; - -STREN.SFB0 := 73.7401; -SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0; - -STREN.SFP0 := 73.7401; -SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0; - -STREN.SDA1 := -163.0062328090773; -SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1; - -STREN.SDA2 := -88.88255991288263; -SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2; - -STREN.SDA3 := -139.94153649641189; -SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3; - -STREN.SFA1 := 191.76738248436368; -SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1; - -STREN.SFA2 := 150.74610044115283; -SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2; - -STREN.SDB1 := -141.68687364847958; -SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1; - -STREN.SDB2 := -122.31573949946443; -SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2; - -STREN.SDB3 := -173.8347917755106; -SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3; - -STREN.SFB1 := 227.7404567527413; -SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1; - -STREN.SFB2 := 197.7495405020359; -SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2; - -STREN.SDP1 := -142.31415019209263; -SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1; - -STREN.SDP2 := -122.28457189976633; -SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2; - -STREN.SDP3 := -174.1745194336169; -SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3; - -STREN.SFP1 := 229.17648360831797; -SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1; - -STREN.SFP2 := 198.4525009917773; -SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2; - - -!!! -- slow vertical corrector -- -CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors - -!!! -- pulsed magnets -- -PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger - -!!! -- fast correctors -- -! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): -FC1 : SEXTUPOLE, L=0.084, K2=0.0; -FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward -! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): -FC2 : SEXTUPOLE, L=0.082, K2=0.0; - -!!! -- rf cavities -- -HARMONIC_NUMBER = 864; -SRFCav : RFCAVITY, L=0, VOLT=3.0, HARMON:=HARMONIC_NUMBER; -H3Cav : MARKER, L=0; ! - -!!! -- lattice markers -- -MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) -MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) -!# marker used to delimitate girders. -!# one marker at begin and another at end of girder: -GIR : MARKER, L=0; ! -!# marker for the extremities of IDs in long straight sections -MIDA : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDB : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDP : MARKER, L=0; ! -!# end of injection septum -InjSeptF : MARKER, L=0; ! - -!!! --- diagnostic components --- -BPM : MONITOR; ! -IDBPM : MONITOR; ! -DCCT : MARKER, L=0; ! # dcct to measure beam current -ScrapH : MARKER, L=0; ! # horizontal scraper -GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) -GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) -GBPM : MONITOR; ! # General BPM -BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup -BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker -BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker -BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker -TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker -TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker -TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup -TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup -SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) - -!!! --- insertion devices (half devices) --- -IDLEN.APU22 := 1.3; -IDLEN.IVU18 := 2.0; -IDLEN.DELTA52 := 1.2; -IDLEN.APU58 := 1.3; -IDLEN.WIG180 := 2.654; -IDLEN.PAPU50 := 0.984; - -!* CARNAUBA -ID06Hu : DRIFT, L:=IDLEN.APU22/2; -ID06Hd : DRIFT, L:=IDLEN.APU22/2; - -!* CATERETE -ID07Hu : DRIFT, L:=IDLEN.APU22/2; -ID07Hd : DRIFT, L:=IDLEN.APU22/2; - -!* EMA -ID08Hu : DRIFT, L:=IDLEN.IVU18/2; -ID08Hd : DRIFT, L:=IDLEN.IVU18/2; - -!* MANACA -ID09Hu : DRIFT, L:=IDLEN.APU22/2; -ID09Hd : DRIFT, L:=IDLEN.APU22/2; - -!* SABIA -ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; -ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; - -!* IPE -ID11Hu : DRIFT, L:=IDLEN.APU58/2; -ID11Hd : DRIFT, L:=IDLEN.APU58/2; - -!* PAINEIRA -ID14Hu : DRIFT, L:=IDLEN.WIG180/2; -ID14Hd : DRIFT, L:=IDLEN.WIG180/2; - -!* SAPUCAIA -ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; -ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; - -IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector -IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 -IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) -IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector - -!!! -- sectors -- -M1A : LINE=( - L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, - L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) -M1AFF : LINE=( - L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, - L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) -M1B : LINE=( - L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, - L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder -M1P : LINE=( - L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, - L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder -M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) -M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) -M2B : LINE=(-M1B);! # low beta xxM2 girder -M2P : LINE=(-M1P);! # low beta xxM2 girder - -M2B_BbBPkup : LINE=( - GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, - BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! - -! arc sector in between B1-B2 (high beta odd-numbered straight sections): -C1A : LINE=( - GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, - SDA2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1B : LINE=( - GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, - L170, SDB2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1P : LINE=( - GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, - SDP2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B2-BC (high beta odd-numbered straight sections): -C2A : LINE=( - GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2B : LINE=( - GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2P : LINE=( - GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - - -! arc sector in between BC-B2 (high beta odd-numbered straight sections): -C3A : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, - L170, SDA3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3B : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, - L170, SDB3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3P : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, - L170, SDP3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A : LINE=( - GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, - SDA1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A_BbBKckrV : LINE=( - GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, - SDA1, L237, BbBKckrV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_GBPM : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, GBPM, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_DCCT : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_TunePkupV : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L237, TunePkupV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections) -C4B_PingV : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L135, PingV, GIR, L019, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_DCCT : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_TuneShkrV : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, L237, TuneShkrV, GIR, L237, GIR);! - -!! --- insertion sectors --- -IDA : LINE=( - L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, - LIA, L500);! # high beta ID straight section - -IDB : LINE=( - L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, - L500);! # low beta ID straight section - -IDP : LINE=( - L500, LIP, L500, - MIDP, L500, L500p, MIP, L500p, L500, MIDP, - L500, LIP, L500);! # low beta ID straight section - -IDA_01_INJ : LINE=( - SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, - SI_INJ, LPMD);! # high beta INJ straight section and Scrapers - -IDB_02 : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, H3Cav, LIB, L500);! # low beta ID straight section - -IDP_03_CAV : LINE=( - L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, - LIP, L500);! # low beta RF cavity straight section - -IDB_04 : LINE=(IDB); - -IDA_05 : LINE=(IDA); - -IDB_06 : LINE=( - L500, LIB, L500, L350p, - MIDB, ID06Hu, MIB, ID06Hd, MIDB, - L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) - -IDP_07 : LINE=( - L500, LIP, L500, L350p, - MIDP, ID07Hu, MIP, ID07Hd, MIDP, - L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) - -IDB_08 : LINE=( - L500, LIB, L150, L350p, - MIDB, ID08Hu, MIB, ID08Hd, MIDB, - L350p, L150, LIB, L500);! # low beta ID straight section (EMA) - -IDA_09 : LINE=( - L500, LID3, L500p, - MIDA, ID09Hu, MIA, ID09Hd, MIDA, - L500p, LID3, L500);! # high beta ID straight section (MANACA) - -IDB_10 : LINE=( - L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, - MIDB, ID10Hu, MIB, ID10Hd, MIDB, - L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) - -IDP_11 : LINE=( - L500, LIP, L500, L350p, - MIDP, ID11Hu, MIP, ID11Hd, MIDP, - L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m - -IDB_12 : LINE=( - L500, LIB, L665, L100, L135, - MIDB, L600p, MIB, L600p, MIDB, - L135, L100, L665, LIB, L500);! # low beta ID straight section - -IDA_13 : LINE=(IDA); - -IDB_14 : LINE=( - L365, LIB, L208p, IDC3, - MIDB, ID14Hu, MIB, ID14Hd, MIDB, - IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) - -IDP_15 : LINE=(IDP); - -IDB_16 : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, BbBKckL, LIB, L500);! # low beta ID straight section - -IDA_17 : LINE=( - L500, LIA, L511, L350p, IDC2, L063, - MIDA, ID17Hu, MIA, ID17Hd, MIDA, - L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight - !# section (SAPUCAIA) - -IDB_18_TUNEPKUPH : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, TunePkupH, LIB, L500);! # low beta ID straight section - -IDB_19_GSL15 : LINE=( - L500, GSL15, LIP, L500, - MIDP, L500, L500p, MIP, L500p, L500, MIDP, - L500, LIP, L500);! # low beta ID straight section - -IDB_20_GSL07 : LINE=( - L500, GSL07, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, LIB, L500);! # low beta ID straight section - -!!! -- girders -- - -!!! straight sections -SS_S01 : LINE=(IDA_01_INJ);! # INJECTION -SS_S02 : LINE=(IDB_02);! -SS_S03 : LINE=(IDP_03_CAV);! -SS_S04 : LINE=(IDB_04);! -SS_S05 : LINE=(IDA_05);! -SS_S06 : LINE=(IDB_06);! # CARNAUBA -SS_S07 : LINE=(IDP_07);! # CATERETE -SS_S08 : LINE=(IDB_08);! # EMA -SS_S09 : LINE=(IDA_09);! # MANACA -SS_S10 : LINE=(IDB_10);! # SABIA -SS_S11 : LINE=(IDP_11);! # IPE -SS_S12 : LINE=(IDB_12);! -SS_S13 : LINE=(IDA_13);! -SS_S14 : LINE=(IDB_14);! # PAINEIRA -SS_S15 : LINE=(IDP_15);! -SS_S16 : LINE=(IDB_16);! # INGA -SS_S17 : LINE=(IDA_17);! # SAPUCAIA -SS_S18 : LINE=(IDB_18_TUNEPKUPH);! -SS_S19 : LINE=(IDB_19_GSL15);! -SS_S20 : LINE=(IDB_20_GSL07);! - -!!! down and upstream straight sections -M1_S01 : LINE=(M1AFF);! -M2_S01 : LINE=(M2AFF);! -M1_S02 : LINE=(M1B);! -M2_S02 : LINE=(M2B);! -M1_S03 : LINE=(M1P);! -M2_S03 : LINE=(M2P);! -M1_S04 : LINE=(M1B);! -M2_S04 : LINE=(M2B);! -M1_S05 : LINE=(M1A);! -M2_S05 : LINE=(M2A);! -M1_S06 : LINE=(M1B);! -M2_S06 : LINE=(M2B);! -M1_S07 : LINE=(M1P);! -M2_S07 : LINE=(M2P);! -M1_S08 : LINE=(M1B);! -M2_S08 : LINE=(M2B);! -M1_S09 : LINE=(M1A);! -M2_S09 : LINE=(M2A);! -M1_S10 : LINE=(M1B);! -M2_S10 : LINE=(M2B);! -M1_S11 : LINE=(M1P);! -M2_S11 : LINE=(M2P);! -M1_S12 : LINE=(M1B);! -M2_S12 : LINE=(M2B);! -M1_S13 : LINE=(M1A);! -M2_S13 : LINE=(M2A);! -M1_S14 : LINE=(M1B);! -M2_S14 : LINE=(M2B);! -M1_S15 : LINE=(M1P);! -M2_S15 : LINE=(M2P);! -M1_S16 : LINE=(M1B);! -M2_S16 : LINE=(M2B_BbBPkup);! -M1_S17 : LINE=(M1A);! -M2_S17 : LINE=(M2A);! -M1_S18 : LINE=(M1B);! -M2_S18 : LINE=(M2B);! -M1_S19 : LINE=(M1P);! -M2_S19 : LINE=(M2P);! -M1_S20 : LINE=(M1B);! -M2_S20 : LINE=(M2B);! - -!!! dispersive arcs -C1_S01 : LINE=(C1A);! -C2_S01 : LINE=(C2A);! -C3_S01 : LINE=(C3B);! -C4_S01 : LINE=(C4B);! -C1_S02 : LINE=(C1B);! -C2_S02 : LINE=(C2B);! -C3_S02 : LINE=(C3P);! -C4_S02 : LINE=(C4P);! -C1_S03 : LINE=(C1P);! -C2_S03 : LINE=(C2P);! -C3_S03 : LINE=(C3B);! -C4_S03 : LINE=(C4B);! -C1_S04 : LINE=(C1B);! -C2_S04 : LINE=(C2B);! -C3_S04 : LINE=(C3A);! -C4_S04 : LINE=(C4A);! -C1_S05 : LINE=(C1A);! -C2_S05 : LINE=(C2A);! -C3_S05 : LINE=(C3B);! -C4_S05 : LINE=(C4B);! -C1_S06 : LINE=(C1B);! -C2_S06 : LINE=(C2B);! -C3_S06 : LINE=(C3P);! -C4_S06 : LINE=(C4P);! -C1_S07 : LINE=(C1P);! -C2_S07 : LINE=(C2P);! -C3_S07 : LINE=(C3B);! -C4_S07 : LINE=(C4B);! -C1_S08 : LINE=(C1B);! -C2_S08 : LINE=(C2B);! -C3_S08 : LINE=(C3A);! -C4_S08 : LINE=(C4A);! -C1_S09 : LINE=(C1A);! -C2_S09 : LINE=(C2A);! -C3_S09 : LINE=(C3B);! -C4_S09 : LINE=(C4B);! -C1_S10 : LINE=(C1B);! -C2_S10 : LINE=(C2B);! -C3_S10 : LINE=(C3P);! -C4_S10 : LINE=(C4P);! -C1_S11 : LINE=(C1P);! -C2_S11 : LINE=(C2P);! -C3_S11 : LINE=(C3B);! -C4_S11 : LINE=(C4B);! -C1_S12 : LINE=(C1B);! -C2_S12 : LINE=(C2B);! -C3_S12 : LINE=(C3A);! -C4_S12 : LINE=(C4A);! -C1_S13 : LINE=(C1A);! -C2_S13 : LINE=(C2A);! -C3_S13 : LINE=(C3B);! -C4_S13 : LINE=(C4B_DCCT);! -C1_S14 : LINE=(C1B);! -C2_S14 : LINE=(C2B);! -C3_S14 : LINE=(C3P);! -C4_S14 : LINE=(C4P_DCCT);! -C1_S15 : LINE=(C1P);! -C2_S15 : LINE=(C2P);! -C3_S15 : LINE=(C3B);! -C4_S15 : LINE=(C4B_GBPM);! -C1_S16 : LINE=(C1B);! -C2_S16 : LINE=(C2B);! -C3_S16 : LINE=(C3A);! -C4_S16 : LINE=(C4A_BbBKckrV);! -C1_S17 : LINE=(C1A);! -C2_S17 : LINE=(C2A);! -C3_S17 : LINE=(C3B);! -C4_S17 : LINE=(C4B_TunePkupV);! -C1_S18 : LINE=(C1B);! -C2_S18 : LINE=(C2B);! -C3_S18 : LINE=(C3P);! -C4_S18 : LINE=(C4P_TuneShkrV);! -C1_S19 : LINE=(C1P);! -C2_S19 : LINE=(C2P);! -C3_S19 : LINE=(C3B);! -C4_S19 : LINE=(C4B_PingV);! -C1_S20 : LINE=(C1B);! -C2_S20 : LINE=(C2B);! -C3_S20 : LINE=(C3A);! -C4_S20 : LINE=(C4A);! - -!!! SECTORS # 01..20 -S01 : LINE=( - M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, - C3_S01, B2, C4_S01, B1);! -S02 : LINE=( - M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, - C3_S02, B2, C4_S02, B1);! -S03 : LINE=( - M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, - C3_S03, B2, C4_S03, B1);! -S04 : LINE=( - M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, - C3_S04, B2, C4_S04, B1);! -S05 : LINE=( - M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, - C3_S05, B2, C4_S05, B1);! -S06 : LINE=( - M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, - C3_S06, B2, C4_S06, B1);! -S07 : LINE=( - M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, - C3_S07, B2, C4_S07, B1);! -S08 : LINE=( - M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, - C3_S08, B2, C4_S08, B1);! -S09 : LINE=( - M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, - C3_S09, B2, C4_S09, B1);! -S10 : LINE=( - M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, - C3_S10, B2, C4_S10, B1);! -S11 : LINE=( - M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, - C3_S11, B2, C4_S11, B1);! -S12 : LINE=( - M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, - C3_S12, B2, C4_S12, B1);! -S13 : LINE=( - M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, - C3_S13, B2, C4_S13, B1);! -S14 : LINE=( - M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, - C3_S14, B2, C4_S14, B1);! -S15 : LINE=( - M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, - C3_S15, B2, C4_S15, B1);! -S16 : LINE=( - M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, - C3_S16, B2, C4_S16, B1);! -S17 : LINE=( - M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, - C3_S17, B2, C4_S17, B1);! -S18 : LINE=( - M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, - C3_S18, B2, C4_S18, B1);! -S19 : LINE=( - M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, - C3_S19, B2, C4_S19, B1);! -S20 : LINE=( - M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, - C3_S20, B2, C4_S20, B1);! - -!!! The ring -SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, - S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! - -BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; -USE, PERIOD=SI; -SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; -CALL, FILE=sirius-ring.temp; -REMOVEFILE, FILE=sirius-ring.temp; - -SEQEDIT, SEQUENCE=SI; -FLATTEN; -CYCLE, START=M_START; -ENDEDIT; diff --git a/other-simulators/MAD/sirius(sbend).seq b/other-simulators/MAD/sirius(sbend).seq deleted file mode 100644 index 2793694..0000000 --- a/other-simulators/MAD/sirius(sbend).seq +++ /dev/null @@ -1,892 +0,0 @@ -!!! SIRIUS Storage Ring Model -! Date: 06-September-2024 -! Version: SI_V25_04 - -!!! -- injection sector -- - -ACCLEN := 0;! -circum_new := 518.3899; ! [m] -circum_old := 518.3960; ! [m] -dcircum := circum_new - circum_old; -!# divide circumference difference in all 20 straight sections -dcircum_frac := dcircum/20.0/2.0; !dcircum/20/2; - -L500p: DRIFT, L=0.500 + dcircum_frac; -LKKp: DRIFT, L=1.9150 + dcircum_frac; -LPMU: DRIFT, L=0.0600; -L050: DRIFT, L=0.050; -L150: DRIFT, L=0.150; -L182: DRIFT, L=0.182; -L399: DRIFT, L=0.399; - -M_START : MARKER, L=0; ! start of the model -M_END : MARKER, L=0; ! end of the model -MIA : MARKER, L=0; ! center of long straight sections (even-numbered) -InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits -InjVCs : MARKER, L=0; ! Smaller injection vchamber limits -SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) -ScrapV : MARKER, L=0; ! vertical scraper - -!* -- pulsed magnets -- -InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker -InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet - -!*if inj_sel == 'DPK': -INJ_SEC_DPK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, - );! -!* elif inj_sel == 'DPK_END': -INJ_SEC_DPK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, - );! -!*elif inj_sel == 'NLK': -INJ_SEC_NLK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - );! -!*elif inj_sel == 'NLK_END': -INJ_SEC_NLK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - InjNLKckr);! - -SI_INJ : LINE=(INJ_SEC_NLK_END); - -!!! -- drifts -- -LIA : DRIFT, L=1.5179; -LIB : DRIFT, L=1.0879; -LIP : DRIFT, L=1.0879; -LPMD : DRIFT, L=0.4929; -LID3 : DRIFT, L=1.8679; -L144p : DRIFT, L=0.144 + dcircum_frac; -L208p : DRIFT, L=0.208 + dcircum_frac; -L350p : DRIFT, L=0.350 + dcircum_frac; -L600p : DRIFT, L=0.600 + dcircum_frac; -L800p : DRIFT, L=0.7999; -L011 : DRIFT, L=0.011; -L019 : DRIFT, L=0.019; -L049 : DRIFT, L=0.049; -L050 : DRIFT, L=0.050; -L052 : DRIFT, L=0.052; -L056 : DRIFT, L=0.056; -L063 : DRIFT, L=0.063; -L074 : DRIFT, L=0.074; -L075 : DRIFT, L=0.075; -L082 : DRIFT, L=0.082; -L090 : DRIFT, L=0.090; -L100 : DRIFT, L=0.100; -L109 : DRIFT, L=0.109; -L112 : DRIFT, L=0.112; -L119 : DRIFT, L=0.119; -L120 : DRIFT, L=0.120; -L125 : DRIFT, L=0.125; -L127 : DRIFT, L=0.127; -L133 : DRIFT, L=0.133; -L134 : DRIFT, L=0.134; -L135 : DRIFT, L=0.135; -L140 : DRIFT, L=0.140; -L150 : DRIFT, L=0.150; -L156 : DRIFT, L=0.156; -L170 : DRIFT, L=0.170; -L188 : DRIFT, L=0.188; -L200 : DRIFT, L=0.200; -L201 : DRIFT, L=0.201; -L203 : DRIFT, L=0.203; -L205 : DRIFT, L=0.205; -L216 : DRIFT, L=0.216; -L230 : DRIFT, L=0.230; -L237 : DRIFT, L=0.237; -L240 : DRIFT, L=0.240; -L260 : DRIFT, L=0.260; -L270 : DRIFT, L=0.270; -L297 : DRIFT, L=0.297; -L325 : DRIFT, L=0.325; -L329 : DRIFT, L=0.329; -L336 : DRIFT, L=0.336; -L365 : DRIFT, L=0.365; -L419 : DRIFT, L=0.419; -L474 : DRIFT, L=0.474; -L500 : DRIFT, L=0.500; -L511 : DRIFT, L=0.511; -L665 : DRIFT, L=0.665; -L715 : DRIFT, L=0.715; -L839 : DRIFT, L=0.839; - -!!! DIPOLES -!* BC -BC.0 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC.1 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.2 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC_EDGE.3 : MARKER, L=0; -BC.4 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC.5 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.6 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -MACCEPBC.7 : MARKER, L=0; -BC.8 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -BC.9 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -MACCEPBC.10 : MARKER, L=0; -BC.11 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -BC.12 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.13 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.14 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.15 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.16 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.17 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.18 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.19 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -MC.20 : MARKER, L=0; -MACCEPBC.21 : MARKER, L=0; -BC.22 : SBEND, ANGLE=0.00032759830059933564, L=0.001, K0=0.0, K1=-0.0032459, K2=-25.934, K3=226.55;! K4=-420410.0, K5=-1936200.0, K6=-885150000.0, K7=18066000000.0, K8=-41927000000000.0, K9=0.0, K10=1.8535e+17; -BC.23 : SBEND, ANGLE=0.0012789772758614447, L=0.004, K0=0.0, K1=-0.0080872, K2=-23.947, K3=198.96;! K4=-383120.0, K5=-1555500.0, K6=-875380000.0, K7=15588000000.0, K8=-34411000000000.0, K9=0.0, K10=1.5036e+17; -BC.24 : SBEND, ANGLE=0.0014222688074501792, L=0.005, K0=0.0, K1=-0.022156, K2=-16.636, K3=95.225;! K4=-248030.0, K5=-286670.0, K6=-620150000.0, K7=5978800000.0, K8=-11795000000000.0, K9=0.0, K10=5.3967e+16; -BC.25 : SBEND, ANGLE=0.0012067206448288794, L=0.005, K0=0.0, K1=-0.026794, K2=-9.9744, K3=40.91;! K4=-129340.0, K5=-18459.0, K6=6591200.0, K7=1843200000.0, K8=-3728200000000.0, K9=0.0, K10=1.5831e+16; -BC.26 : SBEND, ANGLE=0.0010423106292910137, L=0.005, K0=0.0, K1=-0.026704, K2=-7.1238, K3=28.365;! K4=-71836.0, K5=-179470.0, K6=250730000.0, K7=1902900000.0, K8=-3393600000000.0, K9=0.0, K10=1.2829e+16; -BC.27 : SBEND, ANGLE=0.001712866127907235, L=0.01, K0=0.0, K1=-0.025788, K2=-5.4243, K3=18.297;! K4=-36399.0, K5=-189280.0, K6=279610000.0, K7=1527000000.0, K8=-3105400000000.0, K9=0.0, K10=1.1735e+16; -BC.28 : SBEND, ANGLE=0.0013208651779093087, L=0.01, K0=0.0, K1=-0.024549, K2=-3.7961, K3=7.9939;! K4=-18270.0, K5=-90518.0, K6=232350000.0, K7=810400000.0, K8=-2465600000000.0, K9=0.0, K10=9341000000000000.0; -BC.29 : SBEND, ANGLE=0.0010044369845227366, L=0.01, K0=0.0, K1=-0.019501, K2=-2.2458, K3=2.9742;! K4=-10525.0, K5=-18749.0, K6=163390000.0, K7=298060000.0, K8=-1667300000000.0, K9=0.0, K10=6215900000000000.0; -BC.30 : SBEND, ANGLE=0.0007930776121062233, L=0.01, K0=0.0, K1=-0.0012764, K2=-0.87276, K3=-0.45371;! K4=-5583.0, K5=26585.0, K6=96483000.0, K7=1285800.0, K8=-1005300000000.0, K9=0.0, K10=3906900000000000.0; -MACCEPBC.31 : MARKER, L=0; -BC.32 : SBEND, ANGLE=0.0020746728818456595, L=0.032, K0=0.0, K1=0.012757, K2=1.1825, K3=1.8453;! K4=-4626.2, K5=24200.0, K6=73751000.0, K7=-63579000.0, K8=-780540000000.0, K9=0.0, K10=3054400000000000.0; -BC.33 : SBEND, ANGLE=0.0016964600329384882, L=0.032, K0=0.0, K1=-0.12063, K2=0.52835, K3=10.917;! K4=-3232.3, K5=-1868.3, K6=49009000.0, K7=-49946000.0, K8=-463790000000.0, K9=0.0, K10=1798800000000000.0; -MACCEPBC.34 : MARKER, L=0; -BC.35 : SBEND, ANGLE=0.010849141163321951, L=0.16, K0=0.0, K1=-0.89725, K2=0.44207, K3=32.247;! K4=1941.6, K5=-285670.0, K6=-50265000.0, K7=1402800000.0, K8=610420000000.0, K9=0.0, K10=-2557400000000000.0; -BC.36 : SBEND, ANGLE=0.010868863383869488, L=0.16, K0=0.0, K1=-0.90717, K2=0.20879, K3=-0.62815;! K4=1982.2, K5=242180.0, K6=-41507000.0, K7=-1183700000.0, K8=432760000000.0, K9=0.0, K10=-1576900000000000.0; -BC.37 : SBEND, ANGLE=0.0007415903991723907, L=0.012, K0=0.0, K1=-0.88611, K2=0.4991, K3=24.958;! K4=-9420.6, K5=-160250.0, K6=189600000.0, K7=884320000.0, K8=-1666600000000.0, K9=0.0, K10=5545300000000000.0; -BC_EDGE.38 : MARKER, L=0; -BC.39 : SBEND, ANGLE=0.0005827654372409067, L=0.014, K0=0.0, K1=-0.44684, K2=-1.875, K3=22.077;! K4=-5591.2, K5=-167480.0, K6=103270000.0, K7=932210000.0, K8=-863320000000.0, K9=0.0, K10=2755000000000000.0; -BC.40 : SBEND, ANGLE=0.00033772121026090274, L=0.016, K0=0.0, K1=-0.11215, K2=-1.9597, K3=13.313;! K4=-3542.4, K5=-163370.0, K6=63653000.0, K7=891790000.0, K8=-540440000000.0, K9=0.0, K10=1739300000000000.0; -BC.41 : SBEND, ANGLE=0.0002345722514680379, L=0.035, K0=0.0, K1=-0.019828, K2=-1.2534, K3=19.342;! K4=2808.4, K5=-295460.0, K6=-50640000.0, K7=1469400000.0, K8=409400000000.0, K9=0.0, K10=-1217200000000000.0; -BC : LINE=(BC.0, BC.1, BC.2, BC_EDGE.3, BC.4, BC.5, BC.6, MACCEPBC.7, BC.8, BC.9, MACCEPBC.10, BC.11, BC.12, BC.13, BC.14, BC.15, BC.16, BC.17, BC.18, BC.19, MC.20, MACCEPBC.21, BC.22, BC.23, BC.24, BC.25, BC.26, BC.27, BC.28, BC.29, BC.30, MACCEPBC.31, BC.32, BC.33, MACCEPBC.34, BC.35, BC.36, BC.37, BC_EDGE.38, BC.39, BC.40, BC.41); - -!* B1 -MACCEPB1.0 : MARKER, L=0; -B1.1 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; -B1.2 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.3 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.4 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; -B1_EDGE.5 : MARKER, L=0; -B1.6 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; -B1_SRC.7 : MARKER, L=0; -B1.8 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.9 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.10 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.11 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.12 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.13 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.14 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.15 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.16 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.17 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; -MB1.18 : MARKER, L=0; -MACCEPB1.19 : MARKER, L=0; -B1.20 : SBEND, ANGLE=0.00011047934165124105, L=0.002, K0=0.0, K1=-0.72541, K2=-0.54213, K3=5.4347;! K4=250.91, K5=497.72, K6=-1911300.0; -B1.21 : SBEND, ANGLE=0.00016598081186466074, L=0.003, K0=0.0, K1=-0.72968, K2=-0.45292, K3=4.3822;! K4=318.63, K5=1528.2, K6=-2338700.0; -B1.22 : SBEND, ANGLE=0.00027785641691749726, L=0.005, K0=0.0, K1=-0.74227, K2=-0.21669, K3=2.9544;! K4=293.16, K5=1463.2, K6=-2087700.0; -B1.23 : SBEND, ANGLE=0.000279776279094691, L=0.005, K0=0.0, K1=-0.75771, K2=-0.010657, K3=3.5007;! K4=295.71, K5=-1774.2, K6=-2001000.0; -B1.24 : SBEND, ANGLE=0.0002811725424962865, L=0.005, K0=0.0, K1=-0.76662, K2=0.033285, K3=4.7919;! K4=333.81, K5=-3310.9, K6=-2040200.0; -B1.25 : SBEND, ANGLE=0.0005647885459453651, L=0.01, K0=0.0, K1=-0.77081, K2=0.016451, K3=5.3028;! K4=371.19, K5=-4887.7, K6=-2059000.0; -B1.26 : SBEND, ANGLE=0.002262470309360249, L=0.04, K0=0.0, K1=-0.77247, K2=0.048673, K3=4.6505;! K4=333.06, K5=-2164.6, K6=-1586800.0; -B1.27 : SBEND, ANGLE=0.008444251986998965, L=0.15, K0=0.0, K1=-0.77332, K2=0.097601, K3=5.3336;! K4=251.26, K5=806.49, K6=-923350.0; -B1.28 : SBEND, ANGLE=0.005628163238906114, L=0.1, K0=0.0, K1=-0.77271, K2=0.11969, K3=5.6811;! K4=214.96, K5=5202.3, K6=-605180.0; -B1.29 : SBEND, ANGLE=0.0028213247358488333, L=0.05, K0=0.0, K1=-0.77203, K2=0.056224, K3=4.5293;! K4=63.908, K5=6165.1, K6=349510.0; -B1.30 : SBEND, ANGLE=0.001834166510920841, L=0.034, K0=0.0, K1=-0.77144, K2=-0.1216, K3=9.1976;! K4=-53.231, K5=9036.0, K6=727830.0; -B1_EDGE.31 : MARKER, L=0; -B1.32 : SBEND, ANGLE=0.000595855406630864, L=0.016, K0=0.0, K1=-0.45231, K2=-1.8149, K3=19.4;! K4=-228.43, K5=16525.0, K6=-40477.0; -B1.33 : SBEND, ANGLE=0.0005752605214573311, L=0.04, K0=0.0, K1=-0.086643, K2=-1.7536, K3=8.5147;! K4=-58.35, K5=4295.4, K6=-37834.0; -B1.34 : SBEND, ANGLE=0.00013508848410436112, L=0.04, K0=0.0, K1=-0.0083065, K2=-0.3899, K3=1.3183;! K4=25.814, K5=316.42, K6=-50464.0; -B1.35 : SBEND, ANGLE=6.789330790257942e-05, L=0.05, K0=0.0, K1=-0.0010742, K2=-0.098271, K3=0.050359;! K4=-10.312, K5=900.13, K6=82477.0; -MACCEPB1.36 : MARKER, L=0; -B1 : LINE=(MACCEPB1.0, B1.1, B1.2, B1.3, B1.4, B1_EDGE.5, B1.6, B1_SRC.7, B1.8, B1.9, B1.10, B1.11, B1.12, B1.13, B1.14, B1.15, B1.16, B1.17, MB1.18, MACCEPB1.19, B1.20, B1.21, B1.22, B1.23, B1.24, B1.25, B1.26, B1.27, B1.28, B1.29, B1.30, B1_EDGE.31, B1.32, B1.33, B1.34, B1.35, MACCEPB1.36); - -!* B2 -MACCEPB2.0 : MARKER, L=0; -B2.1 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; -B2.2 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.3 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.4 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.5 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; -B2_EDGE.6 : MARKER, L=0; -B2.7 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; -B2.8 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.9 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.10 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.11 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.12 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.13 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; -MACCEPB2.14 : MARKER, L=0; -B2.15 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; -B2.16 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.17 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.18 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.19 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.20 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; -MB2.21 : MARKER, L=0; -MACCEPB2.22 : MARKER, L=0; -B2.23 : SBEND, ANGLE=0.007090051020376564, L=0.125, K0=0.0, K1=-0.77535, K2=0.038504, K3=1.7048;! K4=-268.09, K5=8809.0, K6=1854100.0; -B2.24 : SBEND, ANGLE=0.0031351349353574143, L=0.055, K0=0.0, K1=-0.774, K2=0.018903, K3=1.3538;! K4=-278.71, K5=8466.7, K6=1791300.0; -B2.25 : SBEND, ANGLE=0.0005689773361501514, L=0.01, K0=0.0, K1=-0.7699, K2=-0.0073993, K3=1.4325;! K4=-370.53, K5=9009.8, K6=1881800.0; -B2.26 : SBEND, ANGLE=0.00028344147052387914, L=0.005, K0=0.0, K1=-0.76272, K2=-0.044905, K3=0.37505;! K4=-407.59, K5=10527.0, K6=1872900.0; -B2.27 : SBEND, ANGLE=0.0002825688058978819, L=0.005, K0=0.0, K1=-0.75413, K2=-0.17, K3=0.13254;! K4=-420.95, K5=12650.0, K6=1876200.0; -B2.28 : SBEND, ANGLE=0.00028204520712228365, L=0.005, K0=0.0, K1=-0.74866, K2=-0.28166, K3=0.71392;! K4=-353.86, K5=13287.0, K6=1516000.0; -MACCEPB2.29 : MARKER, L=0; -B2.30 : SBEND, ANGLE=0.00028239427297268254, L=0.005, K0=0.0, K1=-0.75218, K2=-0.21312, K3=0.38486;! K4=-390.31, K5=12889.0, K6=1707200.0; -B2.31 : SBEND, ANGLE=0.0005679301385989548, L=0.01, K0=0.0, K1=-0.76428, K2=-0.041565, K3=0.6768;! K4=-405.77, K5=10602.0, K6=1873500.0; -B2.32 : SBEND, ANGLE=0.0005705481324769462, L=0.01, K0=0.0, K1=-0.77165, K2=-0.0080002, K3=1.7812;! K4=-325.68, K5=8206.7, K6=1736500.0; -B2.33 : SBEND, ANGLE=0.009961117639907237, L=0.175, K0=0.0, K1=-0.77428, K2=0.068988, K3=4.1024;! K4=-51.871, K5=757.52, K6=599430.0; -B2.34 : SBEND, ANGLE=0.009954310855824459, L=0.175, K0=0.0, K1=-0.77352, K2=0.078447, K3=5.4514;! K4=199.75, K5=3362.1, K6=-313140.0; -B2.35 : SBEND, ANGLE=0.0011021754226344192, L=0.02, K0=0.0, K1=-0.78534, K2=-0.14538, K3=9.2976;! K4=-157.15, K5=12311.0, K6=1140800.0; -B2.36 : SBEND, ANGLE=0.0004745550236172582, L=0.01, K0=0.0, K1=-0.67626, K2=-0.31354, K3=16.05;! K4=-399.38, K5=16288.0, K6=810850.0; -B2_EDGE.37 : MARKER, L=0; -B2.38 : SBEND, ANGLE=0.0005002113636215749, L=0.015, K0=0.0, K1=-0.36034, K2=-2.3415, K3=20.402;! K4=-391.66, K5=19055.0, K6=315860.0; -B2.39 : SBEND, ANGLE=0.0003480186528476693, L=0.02, K0=0.0, K1=-0.10711, K2=-2.1654, K3=11.296;! K4=-178.16, K5=7235.7, K6=167860.0; -B2.40 : SBEND, ANGLE=0.00020734511513692636, L=0.03, K0=0.0, K1=-0.023886, K2=-0.89207, K3=3.8284;! K4=-15.146, K5=536.93, K6=78230.0; -B2.41 : SBEND, ANGLE=7.749261878854824e-05, L=0.032, K0=0.0, K1=-0.0045556, K2=-0.26166, K3=0.78754;! K4=1.5573, K5=83.579, K6=38831.0; -B2.42 : SBEND, ANGLE=5.9515727493006634e-05, L=0.0325, K0=0.0, K1=-0.0012481, K2=-0.13069, K3=0.36679;! K4=13.671, K5=-773.7, K6=-29544.0; -MACCEPB2.43 : MARKER, L=0; -B2 : LINE=(MACCEPB2.0, B2.1, B2.2, B2.3, B2.4, B2.5, B2_EDGE.6, B2.7, B2.8, B2.9, B2.10, B2.11, B2.12, B2.13, MACCEPB2.14, B2.15, B2.16, B2.17, B2.18, B2.19, B2.20, MB2.21, MACCEPB2.22, B2.23, B2.24, B2.25, B2.26, B2.27, B2.28, MACCEPB2.29, B2.30, B2.31, B2.32, B2.33, B2.34, B2.35, B2.36, B2_EDGE.37, B2.38, B2.39, B2.40, B2.41, B2.42, MACCEPB2.43); - -!!! QUADRUPOLES -STREN.Q1 := 2.818370601288; -Q1 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q1;!, K2=0.0, K3=0.0, K4=0.0, K5=-50005.267419476964, K6=0.0, K7=0.0, K8=0.0, K9=10881051055605.57, K10=0.0, K11=0.0, K12=0.0, K13=-2.0632375498880506e+20; - -STREN.Q2 := 4.340329381668; -Q2 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q2;!, K2=0.0, K3=0.0, K4=0.0, K5=-77008.79767896177, K6=0.0, K7=0.0, K8=0.0, K9=16756967865933.416, K10=0.0, K11=0.0, K12=0.0, K13=-3.177414125398304e+20; - -STREN.Q3 := 3.218430939674; -Q3 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q3;!, K2=0.0, K3=0.0, K4=0.0, K5=-57103.38439379397, K6=0.0, K7=0.0, K8=0.0, K9=12425587805070.506, K10=0.0, K11=0.0, K12=0.0, K13=-2.3561087258794895e+20; - -STREN.Q4 := 3.950686823494; -Q4 : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.Q4;!, K2=0.0, K3=0.0, K4=0.0, K5=-70095.51937887033, K6=0.0, K7=0.0, K8=0.0, K9=15252651660324.936, K10=0.0, K11=0.0, K12=0.0, K13=-2.8921694678321054e+20; - -STREN.QDA := -1.619540412181686; -QDA : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDA;!, K2=0.0, K3=0.0, K4=0.0, K5=25449.92076285507, K6=0.0, K7=0.0, K8=0.0, K9=-5784072900648.879, K10=0.0, K11=0.0, K12=0.0, K13=1.156814580129776e+20; - -STREN.QFA := 3.5731777226094446; -QFA : QUADRUPOLE, L=0.2, K0=0.0, K1:=STREN.QFA;!, K2=0.0, K3=0.0, K4=0.0, K5=-63397.520352627485, K6=0.0, K7=0.0, K8=0.0, K9=13795179815137.729, K10=0.0, K11=0.0, K12=0.0, K13=-2.6158073201381376e+20; - -STREN.QFB := 4.115082809275146; -QFB : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFB;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; - -STREN.QFP := 4.115082809275146; -QFP : QUADRUPOLE, L=0.3, K0=0.0, K1:=STREN.QFP;!, K2=0.0, K3=0.0, K4=0.0, K5=-91831.32163856114, K6=0.0, K7=0.0, K8=0.0, K9=16893497848603.229, K10=0.0, K11=0.0, K12=0.0, K13=-3.084146273898846e+20; - -STREN.QDB1 := -2.00677456404202; -QDB1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; - -STREN.QDB2 := -3.420574744932221; -QDB2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDB2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; - -STREN.QDP1 := -2.00677456404202; -QDP1 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP1;!, K2=0.0, K3=0.0, K4=0.0, K5=31535.02886351746, K6=0.0, K7=0.0, K8=0.0, K9=-7167052014435.786, K10=0.0, K11=0.0, K12=0.0, K13=1.4334104028871572e+20; - -STREN.QDP2 := -3.420574744932221; -QDP2 : QUADRUPOLE, L=0.14, K0=0.0, K1:=STREN.QDP2;!, K2=0.0, K3=0.0, K4=0.0, K5=53751.88884893491, K6=0.0, K7=0.0, K8=0.0, K9=-12216338374757.934, K10=0.0, K11=0.0, K12=0.0, K13=2.443267674951587e+20; - -!!! SEXTUPOLES -STREN.SDA0 := -80.8337; -SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0; - -STREN.SDB0 := -64.9422; -SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0; - -STREN.SDP0 := -64.9422; -SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0; - -STREN.SFA0 := 52.5696; -SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0; - -STREN.SFB0 := 73.7401; -SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0; - -STREN.SFP0 := 73.7401; -SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0; - -STREN.SDA1 := -163.0062328090773; -SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1; - -STREN.SDA2 := -88.88255991288263; -SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2; - -STREN.SDA3 := -139.94153649641189; -SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3; - -STREN.SFA1 := 191.76738248436368; -SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1; - -STREN.SFA2 := 150.74610044115283; -SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2; - -STREN.SDB1 := -141.68687364847958; -SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1; - -STREN.SDB2 := -122.31573949946443; -SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2; - -STREN.SDB3 := -173.8347917755106; -SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3; - -STREN.SFB1 := 227.7404567527413; -SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1; - -STREN.SFB2 := 197.7495405020359; -SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2; - -STREN.SDP1 := -142.31415019209263; -SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1; - -STREN.SDP2 := -122.28457189976633; -SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2; - -STREN.SDP3 := -174.1745194336169; -SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3; - -STREN.SFP1 := 229.17648360831797; -SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1; - -STREN.SFP2 := 198.4525009917773; -SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2; - - -!!! -- slow vertical corrector -- -CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors - -!!! -- pulsed magnets -- -PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger - -!!! -- fast correctors -- -! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): -FC1 : SEXTUPOLE, L=0.084, K2=0.0; -FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward -! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): -FC2 : SEXTUPOLE, L=0.082, K2=0.0; - -!!! -- rf cavities -- -HARMONIC_NUMBER = 864; -SRFCav : RFCAVITY, L=0, VOLT=3.0, HARMON:=HARMONIC_NUMBER; -H3Cav : MARKER, L=0; ! - -!!! -- lattice markers -- -MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) -MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) -!# marker used to delimitate girders. -!# one marker at begin and another at end of girder: -GIR : MARKER, L=0; ! -!# marker for the extremities of IDs in long straight sections -MIDA : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDB : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDP : MARKER, L=0; ! -!# end of injection septum -InjSeptF : MARKER, L=0; ! - -!!! --- diagnostic components --- -BPM : MONITOR; ! -IDBPM : MONITOR; ! -DCCT : MARKER, L=0; ! # dcct to measure beam current -ScrapH : MARKER, L=0; ! # horizontal scraper -GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) -GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) -GBPM : MONITOR; ! # General BPM -BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup -BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker -BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker -BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker -TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker -TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker -TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup -TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup -SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) - -!!! --- insertion devices (half devices) --- -IDLEN.APU22 := 1.3; -IDLEN.IVU18 := 2.0; -IDLEN.DELTA52 := 1.2; -IDLEN.APU58 := 1.3; -IDLEN.WIG180 := 2.654; -IDLEN.PAPU50 := 0.984; - -!* CARNAUBA -ID06Hu : DRIFT, L:=IDLEN.APU22/2; -ID06Hd : DRIFT, L:=IDLEN.APU22/2; - -!* CATERETE -ID07Hu : DRIFT, L:=IDLEN.APU22/2; -ID07Hd : DRIFT, L:=IDLEN.APU22/2; - -!* EMA -ID08Hu : DRIFT, L:=IDLEN.IVU18/2; -ID08Hd : DRIFT, L:=IDLEN.IVU18/2; - -!* MANACA -ID09Hu : DRIFT, L:=IDLEN.APU22/2; -ID09Hd : DRIFT, L:=IDLEN.APU22/2; - -!* SABIA -ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; -ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; - -!* IPE -ID11Hu : DRIFT, L:=IDLEN.APU58/2; -ID11Hd : DRIFT, L:=IDLEN.APU58/2; - -!* PAINEIRA -ID14Hu : DRIFT, L:=IDLEN.WIG180/2; -ID14Hd : DRIFT, L:=IDLEN.WIG180/2; - -!* SAPUCAIA -ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; -ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; - -IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector -IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 -IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) -IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector - -!!! -- sectors -- -M1A : LINE=( - L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, - L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) -M1AFF : LINE=( - L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, - L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) -M1B : LINE=( - L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, - L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder -M1P : LINE=( - L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, - L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder -M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) -M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) -M2B : LINE=(-M1B);! # low beta xxM2 girder -M2P : LINE=(-M1P);! # low beta xxM2 girder - -M2B_BbBPkup : LINE=( - GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, - BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! - -! arc sector in between B1-B2 (high beta odd-numbered straight sections): -C1A : LINE=( - GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, - SDA2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1B : LINE=( - GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, - L170, SDB2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1P : LINE=( - GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, - SDP2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B2-BC (high beta odd-numbered straight sections): -C2A : LINE=( - GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2B : LINE=( - GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2P : LINE=( - GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, - L201, GIR, FC2, L119, BPM, L075);! - - -! arc sector in between BC-B2 (high beta odd-numbered straight sections): -C3A : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, - L170, SDA3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3B : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, - L170, SDB3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3P : LINE=( - GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, - L170, SDP3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A : LINE=( - GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, - SDA1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A_BbBKckrV : LINE=( - GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, - SDA1, L237, BbBKckrV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_GBPM : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, GBPM, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_DCCT : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_TunePkupV : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L237, TunePkupV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections) -C4B_PingV : LINE=( - GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, - SDB1, L135, PingV, GIR, L019, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_DCCT : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_TuneShkrV : LINE=( - GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, - SDP1, L237, TuneShkrV, GIR, L237, GIR);! - -!! --- insertion sectors --- -IDA : LINE=( - L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, - LIA, L500);! # high beta ID straight section - -IDB : LINE=( - L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, - L500);! # low beta ID straight section - -IDP : LINE=( - L500, LIP, L500, - MIDP, L500, L500p, MIP, L500p, L500, MIDP, - L500, LIP, L500);! # low beta ID straight section - -IDA_01_INJ : LINE=( - SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, - SI_INJ, LPMD);! # high beta INJ straight section and Scrapers - -IDB_02 : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, H3Cav, LIB, L500);! # low beta ID straight section - -IDP_03_CAV : LINE=( - L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, - LIP, L500);! # low beta RF cavity straight section - -IDB_04 : LINE=(IDB); - -IDA_05 : LINE=(IDA); - -IDB_06 : LINE=( - L500, LIB, L500, L350p, - MIDB, ID06Hu, MIB, ID06Hd, MIDB, - L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) - -IDP_07 : LINE=( - L500, LIP, L500, L350p, - MIDP, ID07Hu, MIP, ID07Hd, MIDP, - L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) - -IDB_08 : LINE=( - L500, LIB, L150, L350p, - MIDB, ID08Hu, MIB, ID08Hd, MIDB, - L350p, L150, LIB, L500);! # low beta ID straight section (EMA) - -IDA_09 : LINE=( - L500, LID3, L500p, - MIDA, ID09Hu, MIA, ID09Hd, MIDA, - L500p, LID3, L500);! # high beta ID straight section (MANACA) - -IDB_10 : LINE=( - L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, - MIDB, ID10Hu, MIB, ID10Hd, MIDB, - L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) - -IDP_11 : LINE=( - L500, LIP, L500, L350p, - MIDP, ID11Hu, MIP, ID11Hd, MIDP, - L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m - -IDB_12 : LINE=( - L500, LIB, L665, L100, L135, - MIDB, L600p, MIB, L600p, MIDB, - L135, L100, L665, LIB, L500);! # low beta ID straight section - -IDA_13 : LINE=(IDA); - -IDB_14 : LINE=( - L365, LIB, L208p, IDC3, - MIDB, ID14Hu, MIB, ID14Hd, MIDB, - IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) - -IDP_15 : LINE=(IDP); - -IDB_16 : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, BbBKckL, LIB, L500);! # low beta ID straight section - -IDA_17 : LINE=( - L500, LIA, L511, L350p, IDC2, L063, - MIDA, ID17Hu, MIA, ID17Hd, MIDA, - L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight - !# section (SAPUCAIA) - -IDB_18_TUNEPKUPH : LINE=( - L500, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, TunePkupH, LIB, L500);! # low beta ID straight section - -IDB_19_GSL15 : LINE=( - L500, GSL15, LIP, L500, - MIDP, L500, L500p, MIP, L500p, L500, MIDP, - L500, LIP, L500);! # low beta ID straight section - -IDB_20_GSL07 : LINE=( - L500, GSL07, LIB, L500, - MIDB, L500, L500p, MIB, L500p, L500, MIDB, - L500, LIB, L500);! # low beta ID straight section - -!!! -- girders -- - -!!! straight sections -SS_S01 : LINE=(IDA_01_INJ);! # INJECTION -SS_S02 : LINE=(IDB_02);! -SS_S03 : LINE=(IDP_03_CAV);! -SS_S04 : LINE=(IDB_04);! -SS_S05 : LINE=(IDA_05);! -SS_S06 : LINE=(IDB_06);! # CARNAUBA -SS_S07 : LINE=(IDP_07);! # CATERETE -SS_S08 : LINE=(IDB_08);! # EMA -SS_S09 : LINE=(IDA_09);! # MANACA -SS_S10 : LINE=(IDB_10);! # SABIA -SS_S11 : LINE=(IDP_11);! # IPE -SS_S12 : LINE=(IDB_12);! -SS_S13 : LINE=(IDA_13);! -SS_S14 : LINE=(IDB_14);! # PAINEIRA -SS_S15 : LINE=(IDP_15);! -SS_S16 : LINE=(IDB_16);! # INGA -SS_S17 : LINE=(IDA_17);! # SAPUCAIA -SS_S18 : LINE=(IDB_18_TUNEPKUPH);! -SS_S19 : LINE=(IDB_19_GSL15);! -SS_S20 : LINE=(IDB_20_GSL07);! - -!!! down and upstream straight sections -M1_S01 : LINE=(M1AFF);! -M2_S01 : LINE=(M2AFF);! -M1_S02 : LINE=(M1B);! -M2_S02 : LINE=(M2B);! -M1_S03 : LINE=(M1P);! -M2_S03 : LINE=(M2P);! -M1_S04 : LINE=(M1B);! -M2_S04 : LINE=(M2B);! -M1_S05 : LINE=(M1A);! -M2_S05 : LINE=(M2A);! -M1_S06 : LINE=(M1B);! -M2_S06 : LINE=(M2B);! -M1_S07 : LINE=(M1P);! -M2_S07 : LINE=(M2P);! -M1_S08 : LINE=(M1B);! -M2_S08 : LINE=(M2B);! -M1_S09 : LINE=(M1A);! -M2_S09 : LINE=(M2A);! -M1_S10 : LINE=(M1B);! -M2_S10 : LINE=(M2B);! -M1_S11 : LINE=(M1P);! -M2_S11 : LINE=(M2P);! -M1_S12 : LINE=(M1B);! -M2_S12 : LINE=(M2B);! -M1_S13 : LINE=(M1A);! -M2_S13 : LINE=(M2A);! -M1_S14 : LINE=(M1B);! -M2_S14 : LINE=(M2B);! -M1_S15 : LINE=(M1P);! -M2_S15 : LINE=(M2P);! -M1_S16 : LINE=(M1B);! -M2_S16 : LINE=(M2B_BbBPkup);! -M1_S17 : LINE=(M1A);! -M2_S17 : LINE=(M2A);! -M1_S18 : LINE=(M1B);! -M2_S18 : LINE=(M2B);! -M1_S19 : LINE=(M1P);! -M2_S19 : LINE=(M2P);! -M1_S20 : LINE=(M1B);! -M2_S20 : LINE=(M2B);! - -!!! dispersive arcs -C1_S01 : LINE=(C1A);! -C2_S01 : LINE=(C2A);! -C3_S01 : LINE=(C3B);! -C4_S01 : LINE=(C4B);! -C1_S02 : LINE=(C1B);! -C2_S02 : LINE=(C2B);! -C3_S02 : LINE=(C3P);! -C4_S02 : LINE=(C4P);! -C1_S03 : LINE=(C1P);! -C2_S03 : LINE=(C2P);! -C3_S03 : LINE=(C3B);! -C4_S03 : LINE=(C4B);! -C1_S04 : LINE=(C1B);! -C2_S04 : LINE=(C2B);! -C3_S04 : LINE=(C3A);! -C4_S04 : LINE=(C4A);! -C1_S05 : LINE=(C1A);! -C2_S05 : LINE=(C2A);! -C3_S05 : LINE=(C3B);! -C4_S05 : LINE=(C4B);! -C1_S06 : LINE=(C1B);! -C2_S06 : LINE=(C2B);! -C3_S06 : LINE=(C3P);! -C4_S06 : LINE=(C4P);! -C1_S07 : LINE=(C1P);! -C2_S07 : LINE=(C2P);! -C3_S07 : LINE=(C3B);! -C4_S07 : LINE=(C4B);! -C1_S08 : LINE=(C1B);! -C2_S08 : LINE=(C2B);! -C3_S08 : LINE=(C3A);! -C4_S08 : LINE=(C4A);! -C1_S09 : LINE=(C1A);! -C2_S09 : LINE=(C2A);! -C3_S09 : LINE=(C3B);! -C4_S09 : LINE=(C4B);! -C1_S10 : LINE=(C1B);! -C2_S10 : LINE=(C2B);! -C3_S10 : LINE=(C3P);! -C4_S10 : LINE=(C4P);! -C1_S11 : LINE=(C1P);! -C2_S11 : LINE=(C2P);! -C3_S11 : LINE=(C3B);! -C4_S11 : LINE=(C4B);! -C1_S12 : LINE=(C1B);! -C2_S12 : LINE=(C2B);! -C3_S12 : LINE=(C3A);! -C4_S12 : LINE=(C4A);! -C1_S13 : LINE=(C1A);! -C2_S13 : LINE=(C2A);! -C3_S13 : LINE=(C3B);! -C4_S13 : LINE=(C4B_DCCT);! -C1_S14 : LINE=(C1B);! -C2_S14 : LINE=(C2B);! -C3_S14 : LINE=(C3P);! -C4_S14 : LINE=(C4P_DCCT);! -C1_S15 : LINE=(C1P);! -C2_S15 : LINE=(C2P);! -C3_S15 : LINE=(C3B);! -C4_S15 : LINE=(C4B_GBPM);! -C1_S16 : LINE=(C1B);! -C2_S16 : LINE=(C2B);! -C3_S16 : LINE=(C3A);! -C4_S16 : LINE=(C4A_BbBKckrV);! -C1_S17 : LINE=(C1A);! -C2_S17 : LINE=(C2A);! -C3_S17 : LINE=(C3B);! -C4_S17 : LINE=(C4B_TunePkupV);! -C1_S18 : LINE=(C1B);! -C2_S18 : LINE=(C2B);! -C3_S18 : LINE=(C3P);! -C4_S18 : LINE=(C4P_TuneShkrV);! -C1_S19 : LINE=(C1P);! -C2_S19 : LINE=(C2P);! -C3_S19 : LINE=(C3B);! -C4_S19 : LINE=(C4B_PingV);! -C1_S20 : LINE=(C1B);! -C2_S20 : LINE=(C2B);! -C3_S20 : LINE=(C3A);! -C4_S20 : LINE=(C4A);! - -!!! SECTORS # 01..20 -S01 : LINE=( - M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, - C3_S01, B2, C4_S01, B1);! -S02 : LINE=( - M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, - C3_S02, B2, C4_S02, B1);! -S03 : LINE=( - M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, - C3_S03, B2, C4_S03, B1);! -S04 : LINE=( - M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, - C3_S04, B2, C4_S04, B1);! -S05 : LINE=( - M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, - C3_S05, B2, C4_S05, B1);! -S06 : LINE=( - M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, - C3_S06, B2, C4_S06, B1);! -S07 : LINE=( - M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, - C3_S07, B2, C4_S07, B1);! -S08 : LINE=( - M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, - C3_S08, B2, C4_S08, B1);! -S09 : LINE=( - M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, - C3_S09, B2, C4_S09, B1);! -S10 : LINE=( - M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, - C3_S10, B2, C4_S10, B1);! -S11 : LINE=( - M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, - C3_S11, B2, C4_S11, B1);! -S12 : LINE=( - M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, - C3_S12, B2, C4_S12, B1);! -S13 : LINE=( - M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, - C3_S13, B2, C4_S13, B1);! -S14 : LINE=( - M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, - C3_S14, B2, C4_S14, B1);! -S15 : LINE=( - M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, - C3_S15, B2, C4_S15, B1);! -S16 : LINE=( - M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, - C3_S16, B2, C4_S16, B1);! -S17 : LINE=( - M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, - C3_S17, B2, C4_S17, B1);! -S18 : LINE=( - M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, - C3_S18, B2, C4_S18, B1);! -S19 : LINE=( - M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, - C3_S19, B2, C4_S19, B1);! -S20 : LINE=( - M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, - C3_S20, B2, C4_S20, B1);! - -!!! The ring -SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, - S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! - -BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; -USE, PERIOD=SI; -SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; -CALL, FILE=sirius-ring.temp; -REMOVEFILE, FILE=sirius-ring.temp; - -SEQEDIT, SEQUENCE=SI; -FLATTEN; -CYCLE, START=M_START; -ENDEDIT; diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius.seq new file mode 100644 index 0000000..17805b6 --- /dev/null +++ b/other-simulators/MAD/sirius.seq @@ -0,0 +1,773 @@ +!!! SIRIUS Storage Ring Model +! Date: 06-September-2024 +! Version: SI_V25_04 + +!!! -- INITIAL PARAMETERS -- + +ACCLEN := 0;! +circum_new := 518.3899; ! [m] +circum_old := 518.3960; ! [m] +dcircum := circum_new - circum_old; +dcircum_frac := dcircum/20.0/2.0; ! divide circumference difference in all 20 straight sections + +!!! -- INJECTION SECTOR -- + +L500p: DRIFT, L=0.500 + dcircum_frac; +LKKp: DRIFT, L=1.9150 + dcircum_frac; +LPMU: DRIFT, L=0.0600; +L050: DRIFT, L=0.050; +L150: DRIFT, L=0.150; +L182: DRIFT, L=0.182; +L399: DRIFT, L=0.399; + +M_START : MARKER, L=0; ! start of the model +M_END : MARKER, L=0; ! end of the model +MIA : MARKER, L=0; ! center of long straight sections (even-numbered) +InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits +InjVCs : MARKER, L=0; ! Smaller injection vchamber limits +SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) +ScrapV : MARKER, L=0; ! vertical scraper + +!* -- PULSED MAGNETS -- +InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker +InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet + +!* DPK : +INJ_SEC_DPK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, + );! + +!* DPK_END: +INJ_SEC_DPK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, + );! + +!* NLK: +INJ_SEC_NLK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + );! + +!* NLK_END : +INJ_SEC_NLK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + InjNLKckr);! + +!* INJECTION SECTOR SELECTION : NLK_END +SI_INJ : LINE=(INJ_SEC_NLK_END); + +!!! -- DRIFTS -- + +LIA : DRIFT, L=1.5179; +LIB : DRIFT, L=1.0879; +LIP : DRIFT, L=1.0879; +LPMD : DRIFT, L=0.4929; +LID3 : DRIFT, L=1.8679; +L144p : DRIFT, L=0.144 + dcircum_frac; +L208p : DRIFT, L=0.208 + dcircum_frac; +L350p : DRIFT, L=0.350 + dcircum_frac; +L600p : DRIFT, L=0.600 + dcircum_frac; +L800p : DRIFT, L=0.7999; +L011 : DRIFT, L=0.011; +L019 : DRIFT, L=0.019; +L049 : DRIFT, L=0.049; +L050 : DRIFT, L=0.050; +L052 : DRIFT, L=0.052; +L056 : DRIFT, L=0.056; +L063 : DRIFT, L=0.063; +L074 : DRIFT, L=0.074; +L075 : DRIFT, L=0.075; +L082 : DRIFT, L=0.082; +L090 : DRIFT, L=0.090; +L100 : DRIFT, L=0.100; +L109 : DRIFT, L=0.109; +L112 : DRIFT, L=0.112; +L119 : DRIFT, L=0.119; +L120 : DRIFT, L=0.120; +L125 : DRIFT, L=0.125; +L127 : DRIFT, L=0.127; +L133 : DRIFT, L=0.133; +L134 : DRIFT, L=0.134; +L135 : DRIFT, L=0.135; +L140 : DRIFT, L=0.140; +L150 : DRIFT, L=0.150; +L156 : DRIFT, L=0.156; +L170 : DRIFT, L=0.170; +L188 : DRIFT, L=0.188; +L200 : DRIFT, L=0.200; +L201 : DRIFT, L=0.201; +L203 : DRIFT, L=0.203; +L205 : DRIFT, L=0.205; +L216 : DRIFT, L=0.216; +L230 : DRIFT, L=0.230; +L237 : DRIFT, L=0.237; +L240 : DRIFT, L=0.240; +L260 : DRIFT, L=0.260; +L270 : DRIFT, L=0.270; +L297 : DRIFT, L=0.297; +L325 : DRIFT, L=0.325; +L329 : DRIFT, L=0.329; +L336 : DRIFT, L=0.336; +L365 : DRIFT, L=0.365; +L419 : DRIFT, L=0.419; +L474 : DRIFT, L=0.474; +L500 : DRIFT, L=0.500; +L511 : DRIFT, L=0.511; +L665 : DRIFT, L=0.665; +L715 : DRIFT, L=0.715; +L839 : DRIFT, L=0.839; + +!!! -- DIPOLES -- + +DIPOLES_K0_on := 0; +DIPOLES_K1_on := 1; +DIPOLES_K2_on := 1; +DIPOLES_K3_on := 1; + +OPTION, RBARC = FALSE; + +!* BC +BC_K0_on := 1*DIPOLES_K0_on; +BC_K1_on := 1*DIPOLES_K1_on; +BC_K2_on := 1*DIPOLES_K2_on; +BC_K3_on := 1*DIPOLES_K3_on; +BC.p1 : RBEND, L=0.00100, ANGLE=0.01877*PI/180, K0:=-1.4741e-05*BC_K0_on, K1:=-3.2459e-03*BC_K1_on, K2:=-2.5934e+01*BC_K2_on, K3:=+2.2655e+02*BC_K3_on; +BC.p2 : RBEND, L=0.00400, ANGLE=0.07328*PI/180, K0:=-3.5868e-06*BC_K0_on, K1:=-8.0872e-03*BC_K1_on, K2:=-2.3947e+01*BC_K2_on, K3:=+1.9896e+02*BC_K3_on; +BC.p3 : RBEND, L=0.00500, ANGLE=0.08149*PI/180, K0:=-1.5878e-06*BC_K0_on, K1:=-2.2156e-02*BC_K1_on, K2:=-1.6636e+01*BC_K2_on, K3:=+9.5225e+01*BC_K3_on; +BC.p4 : RBEND, L=0.00500, ANGLE=0.06914*PI/180, K0:=-2.2515e-06*BC_K0_on, K1:=-2.6794e-02*BC_K1_on, K2:=-9.9744e+00*BC_K2_on, K3:=+4.0910e+01*BC_K3_on; +BC.p5 : RBEND, L=0.00500, ANGLE=0.05972*PI/180, K0:=+2.4800e-07*BC_K0_on, K1:=-2.6704e-02*BC_K1_on, K2:=-7.1238e+00*BC_K2_on, K3:=+2.8365e+01*BC_K3_on; +BC.p6 : RBEND, L=0.01000, ANGLE=0.09814*PI/180, K0:=-7.2919e-07*BC_K0_on, K1:=-2.5788e-02*BC_K1_on, K2:=-5.4243e+00*BC_K2_on, K3:=+1.8297e+01*BC_K3_on; +BC.p7 : RBEND, L=0.01000, ANGLE=0.07568*PI/180, K0:=-1.8658e-06*BC_K0_on, K1:=-2.4549e-02*BC_K1_on, K2:=-3.7961e+00*BC_K2_on, K3:=+7.9939e+00*BC_K3_on; +BC.p8 : RBEND, L=0.01000, ANGLE=0.05755*PI/180, K0:=-6.9437e-07*BC_K0_on, K1:=-1.9501e-02*BC_K1_on, K2:=-2.2458e+00*BC_K2_on, K3:=+2.9742e+00*BC_K3_on; +BC.p9 : RBEND, L=0.01000, ANGLE=0.04544*PI/180, K0:=-1.2861e-07*BC_K0_on, K1:=-1.2764e-03*BC_K1_on, K2:=-8.7276e-01*BC_K2_on, K3:=-4.5371e-01*BC_K3_on; +BC.p10 : RBEND, L=0.03200, ANGLE=0.11887*PI/180, K0:=-3.6974e-08*BC_K0_on, K1:=+1.2757e-02*BC_K1_on, K2:=+1.1825e+00*BC_K2_on, K3:=+1.8453e+00*BC_K3_on; +BC.p11 : RBEND, L=0.03200, ANGLE=0.09720*PI/180, K0:=-9.0591e-07*BC_K0_on, K1:=-1.2063e-01*BC_K1_on, K2:=+5.2835e-01*BC_K2_on, K3:=+1.0917e+01*BC_K3_on; +BC.p12 : RBEND, L=0.16000, ANGLE=0.62161*PI/180, K0:=-1.1668e-06*BC_K0_on, K1:=-8.9725e-01*BC_K1_on, K2:=+4.4207e-01*BC_K2_on, K3:=+3.2247e+01*BC_K3_on; +BC.p13 : RBEND, L=0.16000, ANGLE=0.62274*PI/180, K0:=+2.8034e-07*BC_K0_on, K1:=-9.0717e-01*BC_K1_on, K2:=+2.0879e-01*BC_K2_on, K3:=-6.2815e-01*BC_K3_on; +BC.p14 : RBEND, L=0.01200, ANGLE=0.04249*PI/180, K0:=+5.4796e-07*BC_K0_on, K1:=-8.8611e-01*BC_K1_on, K2:=+4.9910e-01*BC_K2_on, K3:=+2.4958e+01*BC_K3_on; +BC.p15 : RBEND, L=0.01400, ANGLE=0.03339*PI/180, K0:=-4.4895e-07*BC_K0_on, K1:=-4.4684e-01*BC_K1_on, K2:=-1.8750e+00*BC_K2_on, K3:=+2.2077e+01*BC_K3_on; +BC.p16 : RBEND, L=0.01600, ANGLE=0.01935*PI/180, K0:=+7.1551e-07*BC_K0_on, K1:=-1.1215e-01*BC_K1_on, K2:=-1.9597e+00*BC_K2_on, K3:=+1.3313e+01*BC_K3_on; +BC.p17 : RBEND, L=0.03500, ANGLE=0.01344*PI/180, K0:=-1.7487e-07*BC_K0_on, K1:=-1.9828e-02*BC_K1_on, K2:=-1.2534e+00*BC_K2_on, K3:=+1.9342e+01*BC_K3_on; +BC.M_ACCEP : MARKER, L=0; +BC.EDGE : MARKER, L=0; +BC.MC : MARKER, L=0; +BC.halfseg : LINE=(BC.p1, BC.p2, BC.p3, BC.p4, BC.p5, BC.p6, BC.p7, BC.p8, BC.p9, BC.M_ACCEP, BC.p10, BC.p11, BC.M_ACCEP, BC.p12, BC.p13, BC.p14, BC.EDGE, BC.p15, BC.p16, BC.p17); +BC : LINE=(-BC.halfseg, BC.MC, BC.M_ACCEP, BC.halfseg); + +!* B1 +B1_K0_on := 1*DIPOLES_K0_on; +B1_K1_on := 1*DIPOLES_K1_on; +B1_K2_on := 1*DIPOLES_K2_on; +B1_K3_on := 1*DIPOLES_K3_on; +B1.p1 : RBEND, L=0.00200, ANGLE=0.00633*PI/180, K0:=-1.9696e-06*B1_K0_on, K1:=-7.2541e-01*B1_K1_on, K2:=-5.4213e-01*B1_K2_on, K3:=+5.4347e+00*B1_K3_on; +B1.p2 : RBEND, L=0.00300, ANGLE=0.00951*PI/180, K0:=-3.8061e-06*B1_K0_on, K1:=-7.2968e-01*B1_K1_on, K2:=-4.5292e-01*B1_K2_on, K3:=+4.3822e+00*B1_K3_on; +B1.p3 : RBEND, L=0.00500, ANGLE=0.01592*PI/180, K0:=-4.7568e-07*B1_K0_on, K1:=-7.4227e-01*B1_K1_on, K2:=-2.1669e-01*B1_K2_on, K3:=+2.9544e+00*B1_K3_on; +B1.p4 : RBEND, L=0.00500, ANGLE=0.01603*PI/180, K0:=-1.9480e-06*B1_K0_on, K1:=-7.5771e-01*B1_K1_on, K2:=-1.0657e-02*B1_K2_on, K3:=+3.5007e+00*B1_K3_on; +B1.p5 : RBEND, L=0.00500, ANGLE=0.01611*PI/180, K0:=-2.7633e-06*B1_K0_on, K1:=-7.6662e-01*B1_K1_on, K2:=+3.3285e-02*B1_K2_on, K3:=+4.7919e+00*B1_K3_on; +B1.p6 : RBEND, L=0.01000, ANGLE=0.03236*PI/180, K0:=-1.9098e-06*B1_K0_on, K1:=-7.7081e-01*B1_K1_on, K2:=+1.6451e-02*B1_K2_on, K3:=+5.3028e+00*B1_K3_on; +B1.p7 : RBEND, L=0.04000, ANGLE=0.12963*PI/180, K0:=-1.6309e-06*B1_K0_on, K1:=-7.7247e-01*B1_K1_on, K2:=+4.8673e-02*B1_K2_on, K3:=+4.6505e+00*B1_K3_on; +B1.p8 : RBEND, L=0.15000, ANGLE=0.48382*PI/180, K0:=-1.9888e-06*B1_K0_on, K1:=-7.7332e-01*B1_K1_on, K2:=+9.7601e-02*B1_K2_on, K3:=+5.3336e+00*B1_K3_on; +B1.p9 : RBEND, L=0.10000, ANGLE=0.32247*PI/180, K0:=-2.1025e-06*B1_K0_on, K1:=-7.7271e-01*B1_K1_on, K2:=+1.1969e-01*B1_K2_on, K3:=+5.6811e+00*B1_K3_on; +B1.p10 : RBEND, L=0.05000, ANGLE=0.16165*PI/180, K0:=-2.1257e-06*B1_K0_on, K1:=-7.7203e-01*B1_K1_on, K2:=+5.6224e-02*B1_K2_on, K3:=+4.5293e+00*B1_K3_on; +B1.p11 : RBEND, L=0.03400, ANGLE=0.10509*PI/180, K0:=-1.8623e-06*B1_K0_on, K1:=-7.7144e-01*B1_K1_on, K2:=-1.2160e-01*B1_K2_on, K3:=+9.1976e+00*B1_K3_on; +B1.p12 : RBEND, L=0.01600, ANGLE=0.03414*PI/180, K0:=-9.6169e-07*B1_K0_on, K1:=-4.5231e-01*B1_K1_on, K2:=-1.8149e+00*B1_K2_on, K3:=+1.9400e+01*B1_K3_on; +B1.p13 : RBEND, L=0.04000, ANGLE=0.03296*PI/180, K0:=-5.2504e-07*B1_K0_on, K1:=-8.6643e-02*B1_K1_on, K2:=-1.7536e+00*B1_K2_on, K3:=+8.5147e+00*B1_K3_on; +B1.p14 : RBEND, L=0.04000, ANGLE=0.00774*PI/180, K0:=-1.6259e-07*B1_K0_on, K1:=-8.3065e-03*B1_K1_on, K2:=-3.8990e-01*B1_K2_on, K3:=+1.3183e+00*B1_K3_on; +B1.p15 : RBEND, L=0.05000, ANGLE=0.00389*PI/180, K0:=-7.9445e-08*B1_K0_on, K1:=-1.0742e-03*B1_K1_on, K2:=-9.8271e-02*B1_K2_on, K3:=+5.0359e-02*B1_K3_on; +B1.M_ACCEP : MARKER, L=0; +B1.EDGE : MARKER, L=0; +B1_SRC : MARKER, L=0; +B1.MB1 : MARKER, L=0; +B1.halfseg.1 : LINE=(B1.M_ACCEP, B1.p15, B1.p14, B1.p13, B1.p12, B1.EDGE, B1.p11, B1_SRC, B1.p10, B1.p9, B1.p8, B1.p7, B1.p6, B1.p5, B1.p4, B1.p3, B1.p2, B1.p1); +B1.halfseg.2 : LINE=(B1.p1, B1.p2, B1.p3, B1.p4, B1.p5, B1.p6, B1.p7, B1.p8, B1.p9, B1.p10, B1.p11, B1.EDGE, B1.p12, B1.p13, B1.p14, B1.p15, B1.M_ACCEP); +B1 : LINE=(B1.halfseg.1, B1.MB1, B1.M_ACCEP, B1.halfseg.2); + +!* B2 +B2_K0_on := 1*DIPOLES_K0_on; +B2_K1_on := 1*DIPOLES_K1_on; +B2_K2_on := 1*DIPOLES_K2_on; +B2_K3_on := 1*DIPOLES_K3_on; +B2.p1 : RBEND, L=0.12500, ANGLE=0.40623*PI/180, K0:=+2.8141e-07*B2_K0_on, K1:=-7.7535e-01*B2_K1_on, K2:=+3.8504e-02*B2_K2_on, K3:=+1.7048e+00*B2_K3_on; +B2.p2 : RBEND, L=0.05500, ANGLE=0.17963*PI/180, K0:=+2.4869e-07*B2_K0_on, K1:=-7.7400e-01*B2_K1_on, K2:=+1.8903e-02*B2_K2_on, K3:=+1.3538e+00*B2_K3_on; +B2.p3 : RBEND, L=0.01000, ANGLE=0.03260*PI/180, K0:=-1.4532e-07*B2_K0_on, K1:=-7.6990e-01*B2_K1_on, K2:=-7.3993e-03*B2_K2_on, K3:=+1.4325e+00*B2_K3_on; +B2.p4 : RBEND, L=0.00500, ANGLE=0.01624*PI/180, K0:=-9.6976e-07*B2_K0_on, K1:=-7.6272e-01*B2_K1_on, K2:=-4.4905e-02*B2_K2_on, K3:=+3.7505e-01*B2_K3_on; +B2.p5 : RBEND, L=0.00500, ANGLE=0.01619*PI/180, K0:=-8.5112e-08*B2_K0_on, K1:=-7.5413e-01*B2_K1_on, K2:=-1.7000e-01*B2_K2_on, K3:=+1.3254e-01*B2_K3_on; +B2.p6 : RBEND, L=0.00500, ANGLE=0.01616*PI/180, K0:=+5.0825e-07*B2_K0_on, K1:=-7.4866e-01*B2_K1_on, K2:=-2.8166e-01*B2_K2_on, K3:=+7.1392e-01*B2_K3_on; +B2.p7 : RBEND, L=0.00500, ANGLE=0.01618*PI/180, K0:=+1.7001e-06*B2_K0_on, K1:=-7.5218e-01*B2_K1_on, K2:=-2.1312e-01*B2_K2_on, K3:=+3.8486e-01*B2_K3_on; +B2.p8 : RBEND, L=0.01000, ANGLE=0.03254*PI/180, K0:=+1.3585e-06*B2_K0_on, K1:=-7.6428e-01*B2_K1_on, K2:=-4.1565e-02*B2_K2_on, K3:=+6.7680e-01*B2_K3_on; +B2.p9 : RBEND, L=0.01000, ANGLE=0.03269*PI/180, K0:=+2.9027e-07*B2_K0_on, K1:=-7.7165e-01*B2_K1_on, K2:=-8.0002e-03*B2_K2_on, K3:=+1.7812e+00*B2_K3_on; +B2.p10 : RBEND, L=0.17500, ANGLE=0.57073*PI/180, K0:=-1.1637e-07*B2_K0_on, K1:=-7.7428e-01*B2_K1_on, K2:=+6.8988e-02*B2_K2_on, K3:=+4.1024e+00*B2_K3_on; +B2.p11 : RBEND, L=0.17500, ANGLE=0.57034*PI/180, K0:=-3.3225e-07*B2_K0_on, K1:=-7.7352e-01*B2_K1_on, K2:=+7.8447e-02*B2_K2_on, K3:=+5.4514e+00*B2_K3_on; +B2.p12 : RBEND, L=0.02000, ANGLE=0.06315*PI/180, K0:=+2.2577e-08*B2_K0_on, K1:=-7.8534e-01*B2_K1_on, K2:=-1.4538e-01*B2_K2_on, K3:=+9.2976e+00*B2_K3_on; +B2.p13 : RBEND, L=0.01000, ANGLE=0.02719*PI/180, K0:=+8.7645e-08*B2_K0_on, K1:=-6.7626e-01*B2_K1_on, K2:=-3.1354e-01*B2_K2_on, K3:=+1.6050e+01*B2_K3_on; +B2.p14 : RBEND, L=0.01500, ANGLE=0.02866*PI/180, K0:=+6.3204e-08*B2_K0_on, K1:=-3.6034e-01*B2_K1_on, K2:=-2.3415e+00*B2_K2_on, K3:=+2.0402e+01*B2_K3_on; +B2.p15 : RBEND, L=0.02000, ANGLE=0.01994*PI/180, K0:=+5.4460e-07*B2_K0_on, K1:=-1.0711e-01*B2_K1_on, K2:=-2.1654e+00*B2_K2_on, K3:=+1.1296e+01*B2_K3_on; +B2.p16 : RBEND, L=0.03000, ANGLE=0.01188*PI/180, K0:=+1.3393e-07*B2_K0_on, K1:=-2.3886e-02*B2_K1_on, K2:=-8.9207e-01*B2_K2_on, K3:=+3.8284e+00*B2_K3_on; +B2.p17 : RBEND, L=0.03200, ANGLE=0.00444*PI/180, K0:=-2.8999e-07*B2_K0_on, K1:=-4.5556e-03*B2_K1_on, K2:=-2.6166e-01*B2_K2_on, K3:=+7.8754e-01*B2_K3_on; +B2.p18 : RBEND, L=0.03250, ANGLE=0.00341*PI/180, K0:=-1.3468e-07*B2_K0_on, K1:=-1.2481e-03*B2_K1_on, K2:=-1.3069e-01*B2_K2_on, K3:=+3.6679e-01*B2_K3_on; +B2.M_ACCEP : MARKER, L=0; +B2.EDGE : MARKER, L=0; +B2.MB2 : MARKER, L=0; +B2.halfseg : LINE=(B2.p1, B2.p2, B2.p3, B2.p4, B2.p5, B2.p6, B2.M_ACCEP, B2.p7, B2.p8, B2.p9, B2.p10, B2.p11, B2.p12, B2.p13, B2.EDGE, B2.p14, B2.p15, B2.p16, B2.p17, B2.p18, B2.M_ACCEP); +B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg); + +!!! -- QUADRUPOLES -- + +!* Q20 +Q20.pB.1 = -4.74e+00; +Q20.pB.5 = +8.41e+04; +Q20.pB.9 = -1.83e+13; +Q20.pB.13 = +3.47e+20; + +STREN.Q1 := 2.818370601288; +RESCALE.Q1 := STREN.Q1 / Q20.pB.1; +Q1 : QUADRUPOLE, L=0.2000, K1:=STREN.Q1;!, K5:=Q20.pB.5*RESCALE.Q1, K9:=Q20.pB.9*RESCALE.Q1, K13:=Q20.pB.13*RESCALE.Q1; + +STREN.Q2 := 4.340329381668; +RESCALE.Q2 := STREN.Q2 / Q20.pB.1; +Q2 : QUADRUPOLE, L=0.2000, K1:=STREN.Q2;!, K5:=Q20.pB.5*RESCALE.Q2, K9:=Q20.pB.9*RESCALE.Q2, K13:=Q20.pB.13*RESCALE.Q2; + +STREN.Q3 := 3.218430939674; +RESCALE.Q3 := STREN.Q3 / Q20.pB.1; +Q3 : QUADRUPOLE, L=0.2000, K1:=STREN.Q3;!, K5:=Q20.pB.5*RESCALE.Q3, K9:=Q20.pB.9*RESCALE.Q3, K13:=Q20.pB.13*RESCALE.Q3; + +STREN.Q4 := 3.950686823494; +RESCALE.Q4 := STREN.Q4 / Q20.pB.1; +Q4 : QUADRUPOLE, L=0.2000, K1:=STREN.Q4;!, K5:=Q20.pB.5*RESCALE.Q4, K9:=Q20.pB.9*RESCALE.Q4, K13:=Q20.pB.13*RESCALE.Q4; + +STREN.QFA := 3.5731777226094446; +RESCALE.QFA := STREN.QFA / Q20.pB.1; +QFA : QUADRUPOLE, L=0.2000, K1:=STREN.QFA;!, K5:=Q20.pB.5*RESCALE.QFA, K9:=Q20.pB.9*RESCALE.QFA, K13:=Q20.pB.13*RESCALE.QFA; + +!* Q14 +Q14.pB.1 = -4.06e+00; +Q14.pB.5 = +6.38e+04; +Q14.pB.9 = -1.45e+13; +Q14.pB.13 = +2.90e+20; + +STREN.QDA := -1.619540412181686; +RESCALE.QDA := STREN.QDA / Q14.pB.1; +QDA : QUADRUPOLE, L=0.1400, K1:=STREN.QDA;!, K5:=Q14.pB.5*RESCALE.QDA, K9:=Q14.pB.9*RESCALE.QDA, K13:=Q14.pB.13*RESCALE.QDA; + +STREN.QDB1 := -2.00677456404202; +RESCALE.QDB1 := STREN.QDB1 / Q14.pB.1; +QDB1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB1;!, K5:=Q14.pB.5*RESCALE.QDB1, K9:=Q14.pB.9*RESCALE.QDB1, K13:=Q14.pB.13*RESCALE.QDB1; + +STREN.QDB2 := -3.420574744932221; +RESCALE.QDB2 := STREN.QDB2 / Q14.pB.1; +QDB2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB2;!, K5:=Q14.pB.5*RESCALE.QDB2, K9:=Q14.pB.9*RESCALE.QDB2, K13:=Q14.pB.13*RESCALE.QDB2; + +STREN.QDP1 := -2.00677456404202; +RESCALE.QDP1 := STREN.QDP1 / Q14.pB.1; +QDP1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP1;!, K5:=Q14.pB.5*RESCALE.QDP1, K9:=Q14.pB.9*RESCALE.QDP1, K13:=Q14.pB.13*RESCALE.QDP1; + +STREN.QDP2 := -3.420574744932221; +RESCALE.QDP2 := STREN.QDP2 / Q14.pB.1; +QDP2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP2;!, K5:=Q14.pB.5*RESCALE.QDP2, K9:=Q14.pB.9*RESCALE.QDP2, K13:=Q14.pB.13*RESCALE.QDP2; + +!* Q30 +Q30.pB.1 = -4.75e+00; +Q30.pB.5 = +1.06e+05; +Q30.pB.9 = -1.95e+13; +Q30.pB.13 = +3.56e+20; + +STREN.QFB := 4.115082809275146; +RESCALE.QFB := STREN.QFB / Q30.pB.1; +QFB : QUADRUPOLE, L=0.3000, K1:=STREN.QFB;!, K5:=Q30.pB.5*RESCALE.QFB, K9:=Q30.pB.9*RESCALE.QFB, K13:=Q30.pB.13*RESCALE.QFB; + +STREN.QFP := 4.115082809275146; +RESCALE.QFP := STREN.QFP / Q30.pB.1; +QFP : QUADRUPOLE, L=0.3000, K1:=STREN.QFP;!, K5:=Q30.pB.5*RESCALE.QFP, K9:=Q30.pB.9*RESCALE.QFP, K13:=Q30.pB.13*RESCALE.QFP; + +!!! -- SEXTUPOLES -- + +SEXTUPOLES_on := 1; + +STREN.SDA0 := -80.8337; +SDA0_on := 1*SEXTUPOLES_on; +SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0*SDA0_on; + +STREN.SDB0 := -64.9422; +SDB0_on := 1*SEXTUPOLES_on; +SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0*SDB0_on; + +STREN.SDP0 := -64.9422; +SDP0_on := 1*SEXTUPOLES_on; +SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0*SDP0_on; + +STREN.SFA0 := 52.5696; +SFA0_on := 1*SEXTUPOLES_on; +SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0*SFA0_on; + +STREN.SFB0 := 73.7401; +SFB0_on := 1*SEXTUPOLES_on; +SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0*SFB0_on; + +STREN.SFP0 := 73.7401; +SFP0_on := 1*SEXTUPOLES_on; +SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0*SFP0_on; + +STREN.SDA1 := -163.0062328090773; +SDA1_on := 1*SEXTUPOLES_on; +SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1*SDA1_on; + +STREN.SDA2 := -88.88255991288263; +SDA2_on := 1*SEXTUPOLES_on; +SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2*SDA2_on; + +STREN.SDA3 := -139.94153649641189; +SDA3_on := 1*SEXTUPOLES_on; +SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3*SDA3_on; + +STREN.SFA1 := 191.76738248436368; +SFA1_on := 1*SEXTUPOLES_on; +SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1*SFA1_on; + +STREN.SFA2 := 150.74610044115283; +SFA2_on := 1*SEXTUPOLES_on; +SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2*SFA2_on; + +STREN.SDB1 := -141.68687364847958; +SDB1_on := 1*SEXTUPOLES_on; +SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1*SDB1_on; + +STREN.SDB2 := -122.31573949946443; +SDB2_on := 1*SEXTUPOLES_on; +SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2*SDB2_on; + +STREN.SDB3 := -173.8347917755106; +SDB3_on := 1*SEXTUPOLES_on; +SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3*SDB3_on; + +STREN.SFB1 := 227.7404567527413; +SFB1_on := 1*SEXTUPOLES_on; +SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1*SFB1_on; + +STREN.SFB2 := 197.7495405020359; +SFB2_on := 1*SEXTUPOLES_on; +SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2*SFB2_on; + +STREN.SDP1 := -142.31415019209263; +SDP1_on := 1*SEXTUPOLES_on; +SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1*SDP1_on; + +STREN.SDP2 := -122.28457189976633; +SDP2_on := 1*SEXTUPOLES_on; +SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2*SDP2_on; + +STREN.SDP3 := -174.1745194336169; +SDP3_on := 1*SEXTUPOLES_on; +SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3*SDP3_on; + +STREN.SFP1 := 229.17648360831797; +SFP1_on := 1*SEXTUPOLES_on; +SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1*SFP1_on; + +STREN.SFP2 := 198.4525009917773; +SFP2_on := 1*SEXTUPOLES_on; +SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2*SFP2_on; + +!!! -- slow vertical corrector -- +CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors + +!!! -- pulsed magnets -- +PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger + +!!! -- fast correctors -- +! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): +FC1 : SEXTUPOLE, L=0.084, K2=0.0; +FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward +! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): +FC2 : SEXTUPOLE, L=0.082, K2=0.0; + +!!! -- rf cavities -- +HARMONIC_NUMBER = 864; +RF_VOLT := 3.0; ! [MV] +SRFCav : RFCAVITY, L=0, VOLT:=RF_VOLT, HARMON:=HARMONIC_NUMBER; +H3Cav : MARKER, L=0; ! + +!!! -- lattice markers -- +MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) +MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) +!# marker used to delimitate girders. +!# one marker at begin and another at end of girder: +GIR : MARKER, L=0; ! +!# marker for the extremities of IDs in long straight sections +MIDA : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDB : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDP : MARKER, L=0; ! +!# end of injection septum +InjSeptF : MARKER, L=0; ! + +!!! --- diagnostic components --- +BPM : MONITOR; ! +IDBPM : MONITOR; ! +DCCT : MARKER, L=0; ! # dcct to measure beam current +ScrapH : MARKER, L=0; ! # horizontal scraper +GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) +GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) +GBPM : MONITOR; ! # General BPM +BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup +BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker +BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker +BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker +TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker +TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker +TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup +TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup +SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) + +!!! --- insertion devices (half devices) --- +IDLEN.APU22 := 1.3; +IDLEN.IVU18 := 2.0; +IDLEN.DELTA52 := 1.2; +IDLEN.APU58 := 1.3; +IDLEN.WIG180 := 2.654; +IDLEN.PAPU50 := 0.984; + +!* CARNAUBA +ID06Hu : DRIFT, L:=IDLEN.APU22/2; +ID06Hd : DRIFT, L:=IDLEN.APU22/2; + +!* CATERETE +ID07Hu : DRIFT, L:=IDLEN.APU22/2; +ID07Hd : DRIFT, L:=IDLEN.APU22/2; + +!* EMA +ID08Hu : DRIFT, L:=IDLEN.IVU18/2; +ID08Hd : DRIFT, L:=IDLEN.IVU18/2; + +!* MANACA +ID09Hu : DRIFT, L:=IDLEN.APU22/2; +ID09Hd : DRIFT, L:=IDLEN.APU22/2; + +!* SABIA +ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; +ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; + +!* IPE +ID11Hu : DRIFT, L:=IDLEN.APU58/2; +ID11Hd : DRIFT, L:=IDLEN.APU58/2; + +!* PAINEIRA +ID14Hu : DRIFT, L:=IDLEN.WIG180/2; +ID14Hd : DRIFT, L:=IDLEN.WIG180/2; + +!* SAPUCAIA +ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; +ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; + +IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector +IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 +IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) +IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector + +!!! -- sectors -- +M1A : LINE=(L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) +M1AFF : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) +M1B : LINE=(L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder +M1P : LINE=(L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder +M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) +M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) +M2B : LINE=(-M1B);! # low beta xxM2 girder +M2P : LINE=(-M1P);! # low beta xxM2 girder + +M2B_BbBPkup : LINE=(GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! + +! arc sector in between B1-B2 (high beta odd-numbered straight sections): +C1A : LINE=(GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, SDA2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1B : LINE=(GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, L170, SDB2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1P : LINE=(GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, SDP2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B2-BC (high beta odd-numbered straight sections): +C2A : LINE=(GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2B : LINE=(GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2P : LINE=(GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between BC-B2 (high beta odd-numbered straight sections): +C3A : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, L170, SDA3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3B : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, L170, SDB3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3P : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, L170, SDP3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A_BbBKckrV : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, L237, BbBKckrV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_GBPM : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GBPM, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_DCCT : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_TunePkupV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, TunePkupV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections) +C4B_PingV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L135, PingV, GIR, L019, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_DCCT : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_TuneShkrV : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, TuneShkrV, GIR, L237, GIR);! + +!! --- insertion sectors --- +IDA : LINE=(L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, LIA, L500);! # high beta ID straight section + +IDB : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +IDP : LINE=(L500, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDA_01_INJ : LINE=(SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, SI_INJ, LPMD);! # high beta INJ straight section and Scrapers + +IDB_02 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, H3Cav, LIB, L500);! # low beta ID straight section + +IDP_03_CAV : LINE=(L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, LIP, L500);! # low beta RF cavity straight section + +IDB_04 : LINE=(IDB); + +IDA_05 : LINE=(IDA); + +IDB_06 : LINE=(L500, LIB, L500, L350p, MIDB, ID06Hu, MIB, ID06Hd, MIDB, L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) + +IDP_07 : LINE=(L500, LIP, L500, L350p, MIDP, ID07Hu, MIP, ID07Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) + +IDB_08 : LINE=(L500, LIB, L150, L350p, MIDB, ID08Hu, MIB, ID08Hd, MIDB, L350p, L150, LIB, L500);! # low beta ID straight section (EMA) + +IDA_09 : LINE=(L500, LID3, L500p, MIDA, ID09Hu, MIA, ID09Hd, MIDA, L500p, LID3, L500);! # high beta ID straight section (MANACA) + +IDB_10 : LINE=(L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, MIDB, ID10Hu, MIB, ID10Hd, MIDB, L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) + +IDP_11 : LINE=(L500, LIP, L500, L350p, MIDP, ID11Hu, MIP, ID11Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m + +IDB_12 : LINE=(L500, LIB, L665, L100, L135, MIDB, L600p, MIB, L600p, MIDB, L135, L100, L665, LIB, L500);! # low beta ID straight section + +IDA_13 : LINE=(IDA); + +IDB_14 : LINE=(L365, LIB, L208p, IDC3, MIDB, ID14Hu, MIB, ID14Hd, MIDB, IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) + +IDP_15 : LINE=(IDP); + +IDB_16 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, BbBKckL, LIB, L500);! # low beta ID straight section + +IDA_17 : LINE=(L500, LIA, L511, L350p, IDC2, L063, MIDA, ID17Hu, MIA, ID17Hd, MIDA, L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight !# section (SAPUCAIA) + +IDB_18_TUNEPKUPH : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, TunePkupH, LIB, L500);! # low beta ID straight section + +IDB_19_GSL15 : LINE=(L500, GSL15, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDB_20_GSL07 : LINE=(L500, GSL07, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +!!! -- girders -- + +!!! straight sections +SS_S01 : LINE=(IDA_01_INJ);! # INJECTION +SS_S02 : LINE=(IDB_02);! +SS_S03 : LINE=(IDP_03_CAV);! +SS_S04 : LINE=(IDB_04);! +SS_S05 : LINE=(IDA_05);! +SS_S06 : LINE=(IDB_06);! # CARNAUBA +SS_S07 : LINE=(IDP_07);! # CATERETE +SS_S08 : LINE=(IDB_08);! # EMA +SS_S09 : LINE=(IDA_09);! # MANACA +SS_S10 : LINE=(IDB_10);! # SABIA +SS_S11 : LINE=(IDP_11);! # IPE +SS_S12 : LINE=(IDB_12);! +SS_S13 : LINE=(IDA_13);! +SS_S14 : LINE=(IDB_14);! # PAINEIRA +SS_S15 : LINE=(IDP_15);! +SS_S16 : LINE=(IDB_16);! # INGA +SS_S17 : LINE=(IDA_17);! # SAPUCAIA +SS_S18 : LINE=(IDB_18_TUNEPKUPH);! +SS_S19 : LINE=(IDB_19_GSL15);! +SS_S20 : LINE=(IDB_20_GSL07);! + +!!! down and upstream straight sections +M1_S01 : LINE=(M1AFF);! +M2_S01 : LINE=(M2AFF);! +M1_S02 : LINE=(M1B);! +M2_S02 : LINE=(M2B);! +M1_S03 : LINE=(M1P);! +M2_S03 : LINE=(M2P);! +M1_S04 : LINE=(M1B);! +M2_S04 : LINE=(M2B);! +M1_S05 : LINE=(M1A);! +M2_S05 : LINE=(M2A);! +M1_S06 : LINE=(M1B);! +M2_S06 : LINE=(M2B);! +M1_S07 : LINE=(M1P);! +M2_S07 : LINE=(M2P);! +M1_S08 : LINE=(M1B);! +M2_S08 : LINE=(M2B);! +M1_S09 : LINE=(M1A);! +M2_S09 : LINE=(M2A);! +M1_S10 : LINE=(M1B);! +M2_S10 : LINE=(M2B);! +M1_S11 : LINE=(M1P);! +M2_S11 : LINE=(M2P);! +M1_S12 : LINE=(M1B);! +M2_S12 : LINE=(M2B);! +M1_S13 : LINE=(M1A);! +M2_S13 : LINE=(M2A);! +M1_S14 : LINE=(M1B);! +M2_S14 : LINE=(M2B);! +M1_S15 : LINE=(M1P);! +M2_S15 : LINE=(M2P);! +M1_S16 : LINE=(M1B);! +M2_S16 : LINE=(M2B_BbBPkup);! +M1_S17 : LINE=(M1A);! +M2_S17 : LINE=(M2A);! +M1_S18 : LINE=(M1B);! +M2_S18 : LINE=(M2B);! +M1_S19 : LINE=(M1P);! +M2_S19 : LINE=(M2P);! +M1_S20 : LINE=(M1B);! +M2_S20 : LINE=(M2B);! + +!!! dispersive arcs +C1_S01 : LINE=(C1A);! +C2_S01 : LINE=(C2A);! +C3_S01 : LINE=(C3B);! +C4_S01 : LINE=(C4B);! +C1_S02 : LINE=(C1B);! +C2_S02 : LINE=(C2B);! +C3_S02 : LINE=(C3P);! +C4_S02 : LINE=(C4P);! +C1_S03 : LINE=(C1P);! +C2_S03 : LINE=(C2P);! +C3_S03 : LINE=(C3B);! +C4_S03 : LINE=(C4B);! +C1_S04 : LINE=(C1B);! +C2_S04 : LINE=(C2B);! +C3_S04 : LINE=(C3A);! +C4_S04 : LINE=(C4A);! +C1_S05 : LINE=(C1A);! +C2_S05 : LINE=(C2A);! +C3_S05 : LINE=(C3B);! +C4_S05 : LINE=(C4B);! +C1_S06 : LINE=(C1B);! +C2_S06 : LINE=(C2B);! +C3_S06 : LINE=(C3P);! +C4_S06 : LINE=(C4P);! +C1_S07 : LINE=(C1P);! +C2_S07 : LINE=(C2P);! +C3_S07 : LINE=(C3B);! +C4_S07 : LINE=(C4B);! +C1_S08 : LINE=(C1B);! +C2_S08 : LINE=(C2B);! +C3_S08 : LINE=(C3A);! +C4_S08 : LINE=(C4A);! +C1_S09 : LINE=(C1A);! +C2_S09 : LINE=(C2A);! +C3_S09 : LINE=(C3B);! +C4_S09 : LINE=(C4B);! +C1_S10 : LINE=(C1B);! +C2_S10 : LINE=(C2B);! +C3_S10 : LINE=(C3P);! +C4_S10 : LINE=(C4P);! +C1_S11 : LINE=(C1P);! +C2_S11 : LINE=(C2P);! +C3_S11 : LINE=(C3B);! +C4_S11 : LINE=(C4B);! +C1_S12 : LINE=(C1B);! +C2_S12 : LINE=(C2B);! +C3_S12 : LINE=(C3A);! +C4_S12 : LINE=(C4A);! +C1_S13 : LINE=(C1A);! +C2_S13 : LINE=(C2A);! +C3_S13 : LINE=(C3B);! +C4_S13 : LINE=(C4B_DCCT);! +C1_S14 : LINE=(C1B);! +C2_S14 : LINE=(C2B);! +C3_S14 : LINE=(C3P);! +C4_S14 : LINE=(C4P_DCCT);! +C1_S15 : LINE=(C1P);! +C2_S15 : LINE=(C2P);! +C3_S15 : LINE=(C3B);! +C4_S15 : LINE=(C4B_GBPM);! +C1_S16 : LINE=(C1B);! +C2_S16 : LINE=(C2B);! +C3_S16 : LINE=(C3A);! +C4_S16 : LINE=(C4A_BbBKckrV);! +C1_S17 : LINE=(C1A);! +C2_S17 : LINE=(C2A);! +C3_S17 : LINE=(C3B);! +C4_S17 : LINE=(C4B_TunePkupV);! +C1_S18 : LINE=(C1B);! +C2_S18 : LINE=(C2B);! +C3_S18 : LINE=(C3P);! +C4_S18 : LINE=(C4P_TuneShkrV);! +C1_S19 : LINE=(C1P);! +C2_S19 : LINE=(C2P);! +C3_S19 : LINE=(C3B);! +C4_S19 : LINE=(C4B_PingV);! +C1_S20 : LINE=(C1B);! +C2_S20 : LINE=(C2B);! +C3_S20 : LINE=(C3A);! +C4_S20 : LINE=(C4A);! + +!!! SECTORS # 01..20 +S01 : LINE=(M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, C3_S01, B2, C4_S01, B1);! +S02 : LINE=(M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, C3_S02, B2, C4_S02, B1);! +S03 : LINE=(M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, C3_S03, B2, C4_S03, B1);! +S04 : LINE=(M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, C3_S04, B2, C4_S04, B1);! +S05 : LINE=(M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, C3_S05, B2, C4_S05, B1);! +S06 : LINE=(M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, C3_S06, B2, C4_S06, B1);! +S07 : LINE=(M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, C3_S07, B2, C4_S07, B1);! +S08 : LINE=(M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, C3_S08, B2, C4_S08, B1);! +S09 : LINE=(M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, C3_S09, B2, C4_S09, B1);! +S10 : LINE=(M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, C3_S10, B2, C4_S10, B1);! +S11 : LINE=(M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, C3_S11, B2, C4_S11, B1);! +S12 : LINE=(M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, C3_S12, B2, C4_S12, B1);! +S13 : LINE=(M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, C3_S13, B2, C4_S13, B1);! +S14 : LINE=(M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, C3_S14, B2, C4_S14, B1);! +S15 : LINE=(M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, C3_S15, B2, C4_S15, B1);! +S16 : LINE=(M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, C3_S16, B2, C4_S16, B1);! +S17 : LINE=(M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, C3_S17, B2, C4_S17, B1);! +S18 : LINE=(M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, C3_S18, B2, C4_S18, B1);! +S19 : LINE=(M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, C3_S19, B2, C4_S19, B1);! +S20 : LINE=(M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, C3_S20, B2, C4_S20, B1);! + +!!! The ring +SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! + +BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; +USE, PERIOD=SI; +SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; +CALL, FILE=sirius-ring.temp; +REMOVEFILE, FILE=sirius-ring.temp; + +SEQEDIT, SEQUENCE=SI; +FLATTEN; +CYCLE, START=M_START; +ENDEDIT; + diff --git a/other-simulators/MAD/trackcpp2MADX_converter.py b/other-simulators/MAD/trackcpp2MADX_converter.py new file mode 100644 index 0000000..9d0aa63 --- /dev/null +++ b/other-simulators/MAD/trackcpp2MADX_converter.py @@ -0,0 +1,874 @@ +from pymodels import si +from pymodels.SI_V25_04.lattice import get_optics_mode +# import numpy as np +# import pyaccel as pa +# from pymodels.SI_V25_04.segmented_models import dipole_b1, dipole_b2, dipole_bc + + +acc = si.create_accelerator() +fam = si.families.get_family_data(acc) +strengs = get_optics_mode() + +use_rbend = True # Define dipoles as RBEND instead of SBEND +if use_rbend: + bendtype = "RBEND" +else: + bendtype = "SBEND" + +stri = """!!! SIRIUS Storage Ring Model +! Date: 06-September-2024 +! Version: SI_V25_04 + +!!! -- INITIAL PARAMETERS -- + +ACCLEN := 0;! +circum_new := 518.3899; ! [m] +circum_old := 518.3960; ! [m] +dcircum := circum_new - circum_old; +dcircum_frac := dcircum/20.0/2.0; ! divide circumference difference in all 20 straight sections + +!!! -- INJECTION SECTOR -- + +L500p: DRIFT, L=0.500 + dcircum_frac; +LKKp: DRIFT, L=1.9150 + dcircum_frac; +LPMU: DRIFT, L=0.0600; +L050: DRIFT, L=0.050; +L150: DRIFT, L=0.150; +L182: DRIFT, L=0.182; +L399: DRIFT, L=0.399; + +M_START : MARKER, L=0; ! start of the model +M_END : MARKER, L=0; ! end of the model +MIA : MARKER, L=0; ! center of long straight sections (even-numbered) +InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits +InjVCs : MARKER, L=0; ! Smaller injection vchamber limits +SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) +ScrapV : MARKER, L=0; ! vertical scraper + +!* -- PULSED MAGNETS -- +InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker +InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet + +!* DPK : +INJ_SEC_DPK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, + );! + +!* DPK_END: +INJ_SEC_DPK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, + );! + +!* NLK: +INJ_SEC_NLK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + );! + +!* NLK_END : +INJ_SEC_NLK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + InjNLKckr);! + +!* INJECTION SECTOR SELECTION : NLK_END +SI_INJ : LINE=(INJ_SEC_NLK_END); + +!!! -- DRIFTS -- + +LIA : DRIFT, L=1.5179; +LIB : DRIFT, L=1.0879; +LIP : DRIFT, L=1.0879; +LPMD : DRIFT, L=0.4929; +LID3 : DRIFT, L=1.8679; +L144p : DRIFT, L=0.144 + dcircum_frac; +L208p : DRIFT, L=0.208 + dcircum_frac; +L350p : DRIFT, L=0.350 + dcircum_frac; +L600p : DRIFT, L=0.600 + dcircum_frac; +L800p : DRIFT, L=0.7999; +L011 : DRIFT, L=0.011; +L019 : DRIFT, L=0.019; +L049 : DRIFT, L=0.049; +L050 : DRIFT, L=0.050; +L052 : DRIFT, L=0.052; +L056 : DRIFT, L=0.056; +L063 : DRIFT, L=0.063; +L074 : DRIFT, L=0.074; +L075 : DRIFT, L=0.075; +L082 : DRIFT, L=0.082; +L090 : DRIFT, L=0.090; +L100 : DRIFT, L=0.100; +L109 : DRIFT, L=0.109; +L112 : DRIFT, L=0.112; +L119 : DRIFT, L=0.119; +L120 : DRIFT, L=0.120; +L125 : DRIFT, L=0.125; +L127 : DRIFT, L=0.127; +L133 : DRIFT, L=0.133; +L134 : DRIFT, L=0.134; +L135 : DRIFT, L=0.135; +L140 : DRIFT, L=0.140; +L150 : DRIFT, L=0.150; +L156 : DRIFT, L=0.156; +L170 : DRIFT, L=0.170; +L188 : DRIFT, L=0.188; +L200 : DRIFT, L=0.200; +L201 : DRIFT, L=0.201; +L203 : DRIFT, L=0.203; +L205 : DRIFT, L=0.205; +L216 : DRIFT, L=0.216; +L230 : DRIFT, L=0.230; +L237 : DRIFT, L=0.237; +L240 : DRIFT, L=0.240; +L260 : DRIFT, L=0.260; +L270 : DRIFT, L=0.270; +L297 : DRIFT, L=0.297; +L325 : DRIFT, L=0.325; +L329 : DRIFT, L=0.329; +L336 : DRIFT, L=0.336; +L365 : DRIFT, L=0.365; +L419 : DRIFT, L=0.419; +L474 : DRIFT, L=0.474; +L500 : DRIFT, L=0.500; +L511 : DRIFT, L=0.511; +L665 : DRIFT, L=0.665; +L715 : DRIFT, L=0.715; +L839 : DRIFT, L=0.839; + +""" + +st = f"""!!! -- DIPOLES -- + +DIPOLES_K0_on := 0; +DIPOLES_K1_on := 1; +DIPOLES_K2_on := 1; +DIPOLES_K3_on := 1; +""" + +if use_rbend: + st += "\nOPTION, RBARC = FALSE;\n" + +# print(st) +stri += st + '\n' + +# print("!* BC") +stri += "!* BC\n" +monomials = [0, 1, 2, 3, 4, 5, 6, 7, 8, 10] +segmodel = [ + # len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) PolyB(n=7) PolyB(n=8) PolyB(n=10) + ['BC', 0.00100, 0.01877, -1.4741e-05, -3.2459e-03, -2.5934e+01, +2.2655e+02, -4.2041e+05, -1.9362e+06, -8.8515e+08, +1.8066e+10, -4.1927e+13, +1.8535e+17], + ['BC', 0.00400, 0.07328, -3.5868e-06, -8.0872e-03, -2.3947e+01, +1.9896e+02, -3.8312e+05, -1.5555e+06, -8.7538e+08, +1.5588e+10, -3.4411e+13, +1.5036e+17], + ['BC', 0.00500, 0.08149, -1.5878e-06, -2.2156e-02, -1.6636e+01, +9.5225e+01, -2.4803e+05, -2.8667e+05, -6.2015e+08, +5.9788e+09, -1.1795e+13, +5.3967e+16], + ['BC', 0.00500, 0.06914, -2.2515e-06, -2.6794e-02, -9.9744e+00, +4.0910e+01, -1.2934e+05, -1.8459e+04, +6.5912e+06, +1.8432e+09, -3.7282e+12, +1.5831e+16], + ['BC', 0.00500, 0.05972, +2.4800e-07, -2.6704e-02, -7.1238e+00, +2.8365e+01, -7.1836e+04, -1.7947e+05, +2.5073e+08, +1.9029e+09, -3.3936e+12, +1.2829e+16], + ['BC', 0.01000, 0.09814, -7.2919e-07, -2.5788e-02, -5.4243e+00, +1.8297e+01, -3.6399e+04, -1.8928e+05, +2.7961e+08, +1.5270e+09, -3.1054e+12, +1.1735e+16], + ['BC', 0.01000, 0.07568, -1.8658e-06, -2.4549e-02, -3.7961e+00, +7.9939e+00, -1.8270e+04, -9.0518e+04, +2.3235e+08, +8.1040e+08, -2.4656e+12, +9.3410e+15], + ['BC', 0.01000, 0.05755, -6.9437e-07, -1.9501e-02, -2.2458e+00, +2.9742e+00, -1.0525e+04, -1.8749e+04, +1.6339e+08, +2.9806e+08, -1.6673e+12, +6.2159e+15], + ['BC', 0.01000, 0.04544, -1.2861e-07, -1.2764e-03, -8.7276e-01, -4.5371e-01, -5.5830e+03, +2.6585e+04, +9.6483e+07, +1.2858e+06, -1.0053e+12, +3.9069e+15], + ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['BC', 0.03200, 0.11887, -3.6974e-08, +1.2757e-02, +1.1825e+00, +1.8453e+00, -4.6262e+03, +2.4200e+04, +7.3751e+07, -6.3579e+07, -7.8054e+11, +3.0544e+15], + ['BC', 0.03200, 0.09720, -9.0591e-07, -1.2063e-01, +5.2835e-01, +1.0917e+01, -3.2323e+03, -1.8683e+03, +4.9009e+07, -4.9946e+07, -4.6379e+11, +1.7988e+15], + ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['BC', 0.16000, 0.62161, -1.1668e-06, -8.9725e-01, +4.4207e-01, +3.2247e+01, +1.9416e+03, -2.8567e+05, -5.0265e+07, +1.4028e+09, +6.1042e+11, -2.5574e+15], + ['BC', 0.16000, 0.62274, +2.8034e-07, -9.0717e-01, +2.0879e-01, -6.2815e-01, +1.9822e+03, +2.4218e+05, -4.1507e+07, -1.1837e+09, +4.3276e+11, -1.5769e+15], + ['BC', 0.01200, 0.04249, +5.4796e-07, -8.8611e-01, +4.9910e-01, +2.4958e+01, -9.4206e+03, -1.6025e+05, +1.8960e+08, +8.8432e+08, -1.6666e+12, +5.5453e+15], + ['BC_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['BC', 0.01400, 0.03339, -4.4895e-07, -4.4684e-01, -1.8750e+00, +2.2077e+01, -5.5912e+03, -1.6748e+05, +1.0327e+08, +9.3221e+08, -8.6332e+11, +2.7550e+15], + ['BC', 0.01600, 0.01935, +7.1551e-07, -1.1215e-01, -1.9597e+00, +1.3313e+01, -3.5424e+03, -1.6337e+05, +6.3653e+07, +8.9179e+08, -5.4044e+11, +1.7393e+15], + ['BC', 0.03500, 0.01344, -1.7487e-07, -1.9828e-02, -1.2534e+00, +1.9342e+01, +2.8084e+03, -2.9546e+05, -5.0640e+07, +1.4694e+09, +4.0940e+11, -1.2172e+15] +] +bcp = 0 +def bcpstr(segm, cc): + st = f"BC.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " + st += f"K0:={seg[3]:+.4e}*BC_K0_on, " + st += f"K1:={seg[4]:+.4e}*BC_K1_on, " + st += f"K2:={seg[5]:+.4e}*BC_K2_on, " + st += f"K3:={seg[6]:+.4e}*BC_K3_on;" + return st +st = "BC_K0_on := 1*DIPOLES_K0_on;\n" +\ +"BC_K1_on := 1*DIPOLES_K1_on;\n" +\ +"BC_K2_on := 1*DIPOLES_K2_on;\n" +\ +"BC_K3_on := 1*DIPOLES_K3_on;" +# print(st) +stri += st + '\n' +tst = "BC.halfseg : LINE=(" +for i,seg in enumerate(segmodel): + md = seg[0] + if md == 'BC': + bcp += 1 + st = bcpstr(seg, bcp) + tst += st[:6].replace(" ", "") + # print(st) + stri += st + "\n" + elif md == 'm_accep': + st = f"BC.M_ACCEP" + tst += st + elif md == 'BC_EDGE': + st = f"BC.EDGE" + tst += st + tst += ', ' +st = "BC.M_ACCEP : MARKER, L=0;\n" +\ +f"BC.EDGE : MARKER, L=0;\n" +\ +f"BC.MC : MARKER, L=0;" +# print(st) +stri += st + '\n' +tst = tst[:-2] +tst += ");" +# print(tst) +stri += tst + "\n" +st = f"BC : LINE=(-BC.halfseg, BC.MC, BC.M_ACCEP, BC.halfseg);\n" +# print(st) +stri += st + '\n' +# print("!* B1") +stri += "!* B1\n" +monomials = [0, 1, 2, 3, 4, 5, 6] +segmodel = [ + # type len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) + ['B1', 0.00200, 0.00633, -1.9696e-06, -7.2541e-01, -5.4213e-01, +5.4347e+00, +2.5091e+02, +4.9772e+02, -1.9113e+06], + ['B1', 0.00300, 0.00951, -3.8061e-06, -7.2968e-01, -4.5292e-01, +4.3822e+00, +3.1863e+02, +1.5282e+03, -2.3387e+06], + ['B1', 0.00500, 0.01592, -4.7568e-07, -7.4227e-01, -2.1669e-01, +2.9544e+00, +2.9316e+02, +1.4632e+03, -2.0877e+06], + ['B1', 0.00500, 0.01603, -1.9480e-06, -7.5771e-01, -1.0657e-02, +3.5007e+00, +2.9571e+02, -1.7742e+03, -2.0010e+06], + ['B1', 0.00500, 0.01611, -2.7633e-06, -7.6662e-01, +3.3285e-02, +4.7919e+00, +3.3381e+02, -3.3109e+03, -2.0402e+06], + ['B1', 0.01000, 0.03236, -1.9098e-06, -7.7081e-01, +1.6451e-02, +5.3028e+00, +3.7119e+02, -4.8877e+03, -2.0590e+06], + ['B1', 0.04000, 0.12963, -1.6309e-06, -7.7247e-01, +4.8673e-02, +4.6505e+00, +3.3306e+02, -2.1646e+03, -1.5868e+06], + ['B1', 0.15000, 0.48382, -1.9888e-06, -7.7332e-01, +9.7601e-02, +5.3336e+00, +2.5126e+02, +8.0649e+02, -9.2335e+05], + ['B1', 0.10000, 0.32247, -2.1025e-06, -7.7271e-01, +1.1969e-01, +5.6811e+00, +2.1496e+02, +5.2023e+03, -6.0518e+05], + ['B1', 0.05000, 0.16165, -2.1257e-06, -7.7203e-01, +5.6224e-02, +4.5293e+00, +6.3908e+01, +6.1651e+03, +3.4951e+05], + ['B1', 0.03400, 0.10509, -1.8623e-06, -7.7144e-01, -1.2160e-01, +9.1976e+00, -5.3231e+01, +9.0360e+03, +7.2783e+05], + ['B1_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['B1', 0.01600, 0.03414, -9.6169e-07, -4.5231e-01, -1.8149e+00, +1.9400e+01, -2.2843e+02, +1.6525e+04, -4.0477e+04], + ['B1', 0.04000, 0.03296, -5.2504e-07, -8.6643e-02, -1.7536e+00, +8.5147e+00, -5.8350e+01, +4.2954e+03, -3.7834e+04], + ['B1', 0.04000, 0.00774, -1.6259e-07, -8.3065e-03, -3.8990e-01, +1.3183e+00, +2.5814e+01, +3.1642e+02, -5.0464e+04], + ['B1', 0.05000, 0.00389, -7.9445e-08, -1.0742e-03, -9.8271e-02, +5.0359e-02, -1.0312e+01, +9.0013e+02, +8.2477e+04], + ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] +] +b1p = 0 +def b1pstr(segm, cc): + st = f"B1.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " + st += f"K0:={seg[3]:+.4e}*B1_K0_on, " + st += f"K1:={seg[4]:+.4e}*B1_K1_on, " + st += f"K2:={seg[5]:+.4e}*B1_K2_on, " + st += f"K3:={seg[6]:+.4e}*B1_K3_on;" + return st +st = "B1_K0_on := 1*DIPOLES_K0_on;\n" +\ +"B1_K1_on := 1*DIPOLES_K1_on;\n" +\ +"B1_K2_on := 1*DIPOLES_K2_on;\n" +\ +"B1_K3_on := 1*DIPOLES_K3_on;" +# print(st) +stri += st + '\n' +hseg = "B1.halfseg.2 : LINE=(" +ihsegst = "B1.halfseg.1 : LINE=(" +ihseg = [] +for i,seg in enumerate(segmodel): + md = seg[0] + if md == 'B1': + b1p += 1 + st = b1pstr(seg, b1p) + hseg += st[:6].replace(" ", "") + ihseg += [st[:6].replace(" ", "")] + # print(st) + stri += st + '\n' + elif md == 'm_accep': + st = f"B1.M_ACCEP" + hseg += st + ihseg += [st] + elif md == 'B1_EDGE': + st = f"B1.EDGE" + hseg += st + ihseg += [st] + hseg += ', ' +st = "B1.M_ACCEP : MARKER, L=0;\n" +\ +"B1.EDGE : MARKER, L=0;\n" +\ +"B1_SRC : MARKER, L=0;\n" +\ +"B1.MB1 : MARKER, L=0;" +# print(st) +stri += st + '\n' + +hseg = hseg[:-2] +hseg += ");" +ihseg = ihseg[::-1] +ihseg.insert(7, "B1_SRC") +ihseg = ihsegst + ", ".join(ihseg) + ");" + +# print(ihseg) +stri += ihseg + '\n' +# print(hseg) +stri += hseg + '\n' + +st = "B1 : LINE=(B1.halfseg.1, B1.MB1, B1.M_ACCEP, B1.halfseg.2);" +# print(st) +stri += st + '\n\n' +# print("!* B2") +stri += "!* B2\n" + +monomials = [0, 1, 2, 3, 4, 5, 6] +segmodel = [ + #type len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) + ['B2', 0.12500, 0.40623, +2.8141e-07, -7.7535e-01, +3.8504e-02, +1.7048e+00, -2.6809e+02, +8.8090e+03, +1.8541e+06], + ['B2', 0.05500, 0.17963, +2.4869e-07, -7.7400e-01, +1.8903e-02, +1.3538e+00, -2.7871e+02, +8.4667e+03, +1.7913e+06], + ['B2', 0.01000, 0.03260, -1.4532e-07, -7.6990e-01, -7.3993e-03, +1.4325e+00, -3.7053e+02, +9.0098e+03, +1.8818e+06], + ['B2', 0.00500, 0.01624, -9.6976e-07, -7.6272e-01, -4.4905e-02, +3.7505e-01, -4.0759e+02, +1.0527e+04, +1.8729e+06], + ['B2', 0.00500, 0.01619, -8.5112e-08, -7.5413e-01, -1.7000e-01, +1.3254e-01, -4.2095e+02, +1.2650e+04, +1.8762e+06], + ['B2', 0.00500, 0.01616, +5.0825e-07, -7.4866e-01, -2.8166e-01, +7.1392e-01, -3.5386e+02, +1.3287e+04, +1.5160e+06], + ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['B2', 0.00500, 0.01618, +1.7001e-06, -7.5218e-01, -2.1312e-01, +3.8486e-01, -3.9031e+02, +1.2889e+04, +1.7072e+06], + ['B2', 0.01000, 0.03254, +1.3585e-06, -7.6428e-01, -4.1565e-02, +6.7680e-01, -4.0577e+02, +1.0602e+04, +1.8735e+06], + ['B2', 0.01000, 0.03269, +2.9027e-07, -7.7165e-01, -8.0002e-03, +1.7812e+00, -3.2568e+02, +8.2067e+03, +1.7365e+06], + ['B2', 0.17500, 0.57073, -1.1637e-07, -7.7428e-01, +6.8988e-02, +4.1024e+00, -5.1871e+01, +7.5752e+02, +5.9943e+05], + ['B2', 0.17500, 0.57034, -3.3225e-07, -7.7352e-01, +7.8447e-02, +5.4514e+00, +1.9975e+02, +3.3621e+03, -3.1314e+05], + ['B2', 0.02000, 0.06315, +2.2577e-08, -7.8534e-01, -1.4538e-01, +9.2976e+00, -1.5715e+02, +1.2311e+04, +1.1408e+06], + ['B2', 0.01000, 0.02719, +8.7645e-08, -6.7626e-01, -3.1354e-01, +1.6050e+01, -3.9938e+02, +1.6288e+04, +8.1085e+05], + ['B2_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ['B2', 0.01500, 0.02866, +6.3204e-08, -3.6034e-01, -2.3415e+00, +2.0402e+01, -3.9166e+02, +1.9055e+04, +3.1586e+05], + ['B2', 0.02000, 0.01994, +5.4460e-07, -1.0711e-01, -2.1654e+00, +1.1296e+01, -1.7816e+02, +7.2357e+03, +1.6786e+05], + ['B2', 0.03000, 0.01188, +1.3393e-07, -2.3886e-02, -8.9207e-01, +3.8284e+00, -1.5146e+01, +5.3693e+02, +7.8230e+04], + ['B2', 0.03200, 0.00444, -2.8999e-07, -4.5556e-03, -2.6166e-01, +7.8754e-01, +1.5573e+00, +8.3579e+01, +3.8831e+04], + ['B2', 0.03250, 0.00341, -1.3468e-07, -1.2481e-03, -1.3069e-01, +3.6679e-01, +1.3671e+01, -7.7370e+02, -2.9544e+04], + ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] +] +b2p = 0 +maccp = 0 +def b2pstr(segm, cc): + st = f"B2.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " + st += f"K0:={seg[3]:+.4e}*B2_K0_on, " + st += f"K1:={seg[4]:+.4e}*B2_K1_on, " + st += f"K2:={seg[5]:+.4e}*B2_K2_on, " + st += f"K3:={seg[6]:+.4e}*B2_K3_on;" + return st +st = "B2_K0_on := 1*DIPOLES_K0_on;\n" +\ +"B2_K1_on := 1*DIPOLES_K1_on;\n" +\ +"B2_K2_on := 1*DIPOLES_K2_on;\n" +\ +"B2_K3_on := 1*DIPOLES_K3_on;" +# print(st) +stri += st + '\n' +tst = "B2.halfseg : LINE=(" +for i,seg in enumerate(segmodel): + md = seg[0] + if md == 'B2': + b2p += 1 + st = b2pstr(seg, b2p) + tst += st[:6].replace(" ", "") + # print(st) + stri += st + '\n' + elif md == 'm_accep': + maccp += 1 + st = f"B2.M_ACCEP" + tst += st + elif md == 'B2_EDGE': + st = f"B2.EDGE" + tst += st + tst += ', ' +st = "B2.M_ACCEP : MARKER, L=0;\n" +\ +"B2.EDGE : MARKER, L=0;\n" +\ +"B2.MB2 : MARKER, L=0;" +# print(st) +stri += st + '\n' +tst = tst[:-2] +tst += ");" +# print(tst) +stri += tst + '\n' +st = "B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg);\n" +# print(st) +stri += st + '\n' +from pymodels.SI_V25_04.segmented_models import quadrupole_q14, quadrupole_q20, quadrupole_q30 +ff={ + +"Q1": (quadrupole_q20, 20), +"Q2": (quadrupole_q20, 20), +"Q3": (quadrupole_q20, 20), +"Q4": (quadrupole_q20, 20), +"QFA": (quadrupole_q20, 20), +"QDA": (quadrupole_q14, 14), +"QDB1": (quadrupole_q14, 14), +"QDB2": (quadrupole_q14, 14), +"QDP1": (quadrupole_q14, 14), +"QDP2": (quadrupole_q14, 14), +"QFB": (quadrupole_q30, 30), +"QFP": (quadrupole_q30, 30), + +} +strq14 = """!* Q14 +Q14.pB.1 = -4.06e+00; +Q14.pB.5 = +6.38e+04; +Q14.pB.9 = -1.45e+13; +Q14.pB.13 = +2.90e+20; + +""" +strq20 = """!* Q20 +Q20.pB.1 = -4.74e+00; +Q20.pB.5 = +8.41e+04; +Q20.pB.9 = -1.83e+13; +Q20.pB.13 = +3.47e+20; + +""" +strq30 = """!* Q30 +Q30.pB.1 = -4.75e+00; +Q30.pB.5 = +1.06e+05; +Q30.pB.9 = -1.95e+13; +Q30.pB.13 = +3.56e+20; + +""" +flagq20 = True +flagq14 = True +flagq30 = True +def addquadstring(num): + global flagq14 + global flagq20 + global flagq30 + global stri + if num == 14 and flagq14: + # print(strq14) + stri += strq14 + flagq14 = False + elif num == 20 and flagq20: + # print(strq20) + flagq20 = False + stri += strq20 + elif num == 30 and flagq30: + # print(strq30) + flagq30 = False + stri += strq30 + return +# print("!!! -- QUADRUPOLES --\n") +stri += "!!! -- QUADRUPOLES --\n\n" +for t in ff.keys(): + func, num = ff[t] + b = func(t, strengs[t]) + addquadstring(num) + for j, e in enumerate(b): + # kn = ", ".join([f"K{i}={k:1.2e}" if (i!=1) else f"K{i}:=STREN.{t}" for i,k in enumerate(e.polynom_b)]) + kn = f"K1:=STREN.{t}" + kn += f";!, K5:=Q{num}.pB.5*RESCALE.{t}" + kn += f", K9:=Q{num}.pB.9*RESCALE.{t}" + kn += f", K13:=Q{num}.pB.13*RESCALE.{t}" + l = e.length + # print(f"STREN.{t} := {e.polynom_b[1]};") + # print(f"RESCALE.{t} := STREN.{t} / Q{num}.pB.1;") + # print(f"{t} : QUADRUPOLE, L={l:.4f}, {kn};\n") + stri += f"STREN.{t} := {e.polynom_b[1]};\n" + \ + f"RESCALE.{t} := STREN.{t} / Q{num}.pB.1;\n" + \ + f"{t} : QUADRUPOLE, L={l:.4f}, {kn};\n\n" +# # print('!!! -- SEXTUPOLES --\n') +stri += """!!! -- SEXTUPOLES -- + +SEXTUPOLES_on := 1; + +""" +for key in strengs.keys(): + if key.startswith('S'): + st = strengs[key] + pol='+1' + if st<0: + pol='-1' + # # print(f"STREN.{key} := {st};") + # # print(f"{key} : SEXTUPOLE, L=0.150, K2:=STREN.{key};\n") + stri += f"STREN.{key} := {st};\n" +\ + f"{key}_on := 1*SEXTUPOLES_on;\n" +\ + f"{key} : SEXTUPOLE, L=0.150, K2:=STREN.{key}*{key}_on;\n\n" +stri += """!!! -- slow vertical corrector -- +CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors + +!!! -- pulsed magnets -- +PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger + +!!! -- fast correctors -- +! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): +FC1 : SEXTUPOLE, L=0.084, K2=0.0; +FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward +! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): +FC2 : SEXTUPOLE, L=0.082, K2=0.0; + +!!! -- rf cavities -- +HARMONIC_NUMBER = 864; +RF_VOLT := 3.0; ! [MV] +SRFCav : RFCAVITY, L=0, VOLT:=RF_VOLT, HARMON:=HARMONIC_NUMBER; +H3Cav : MARKER, L=0; ! + +!!! -- lattice markers -- +MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) +MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) +!# marker used to delimitate girders. +!# one marker at begin and another at end of girder: +GIR : MARKER, L=0; ! +!# marker for the extremities of IDs in long straight sections +MIDA : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDB : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDP : MARKER, L=0; ! +!# end of injection septum +InjSeptF : MARKER, L=0; ! + +!!! --- diagnostic components --- +BPM : MONITOR; ! +IDBPM : MONITOR; ! +DCCT : MARKER, L=0; ! # dcct to measure beam current +ScrapH : MARKER, L=0; ! # horizontal scraper +GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) +GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) +GBPM : MONITOR; ! # General BPM +BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup +BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker +BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker +BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker +TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker +TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker +TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup +TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup +SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) + +!!! --- insertion devices (half devices) --- +IDLEN.APU22 := 1.3; +IDLEN.IVU18 := 2.0; +IDLEN.DELTA52 := 1.2; +IDLEN.APU58 := 1.3; +IDLEN.WIG180 := 2.654; +IDLEN.PAPU50 := 0.984; + +!* CARNAUBA +ID06Hu : DRIFT, L:=IDLEN.APU22/2; +ID06Hd : DRIFT, L:=IDLEN.APU22/2; + +!* CATERETE +ID07Hu : DRIFT, L:=IDLEN.APU22/2; +ID07Hd : DRIFT, L:=IDLEN.APU22/2; + +!* EMA +ID08Hu : DRIFT, L:=IDLEN.IVU18/2; +ID08Hd : DRIFT, L:=IDLEN.IVU18/2; + +!* MANACA +ID09Hu : DRIFT, L:=IDLEN.APU22/2; +ID09Hd : DRIFT, L:=IDLEN.APU22/2; + +!* SABIA +ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; +ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; + +!* IPE +ID11Hu : DRIFT, L:=IDLEN.APU58/2; +ID11Hd : DRIFT, L:=IDLEN.APU58/2; + +!* PAINEIRA +ID14Hu : DRIFT, L:=IDLEN.WIG180/2; +ID14Hd : DRIFT, L:=IDLEN.WIG180/2; + +!* SAPUCAIA +ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; +ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; + +IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector +IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 +IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) +IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector + +!!! -- sectors -- +M1A : LINE=(L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) +M1AFF : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) +M1B : LINE=(L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder +M1P : LINE=(L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder +M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) +M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) +M2B : LINE=(-M1B);! # low beta xxM2 girder +M2P : LINE=(-M1P);! # low beta xxM2 girder + +M2B_BbBPkup : LINE=(GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! + +! arc sector in between B1-B2 (high beta odd-numbered straight sections): +C1A : LINE=(GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, SDA2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1B : LINE=(GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, L170, SDB2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1P : LINE=(GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, SDP2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B2-BC (high beta odd-numbered straight sections): +C2A : LINE=(GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2B : LINE=(GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2P : LINE=(GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between BC-B2 (high beta odd-numbered straight sections): +C3A : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, L170, SDA3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3B : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, L170, SDB3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3P : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, L170, SDP3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A_BbBKckrV : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, L237, BbBKckrV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_GBPM : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GBPM, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_DCCT : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_TunePkupV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, TunePkupV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections) +C4B_PingV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L135, PingV, GIR, L019, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_DCCT : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_TuneShkrV : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, TuneShkrV, GIR, L237, GIR);! + +!! --- insertion sectors --- +IDA : LINE=(L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, LIA, L500);! # high beta ID straight section + +IDB : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +IDP : LINE=(L500, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDA_01_INJ : LINE=(SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, SI_INJ, LPMD);! # high beta INJ straight section and Scrapers + +IDB_02 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, H3Cav, LIB, L500);! # low beta ID straight section + +IDP_03_CAV : LINE=(L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, LIP, L500);! # low beta RF cavity straight section + +IDB_04 : LINE=(IDB); + +IDA_05 : LINE=(IDA); + +IDB_06 : LINE=(L500, LIB, L500, L350p, MIDB, ID06Hu, MIB, ID06Hd, MIDB, L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) + +IDP_07 : LINE=(L500, LIP, L500, L350p, MIDP, ID07Hu, MIP, ID07Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) + +IDB_08 : LINE=(L500, LIB, L150, L350p, MIDB, ID08Hu, MIB, ID08Hd, MIDB, L350p, L150, LIB, L500);! # low beta ID straight section (EMA) + +IDA_09 : LINE=(L500, LID3, L500p, MIDA, ID09Hu, MIA, ID09Hd, MIDA, L500p, LID3, L500);! # high beta ID straight section (MANACA) + +IDB_10 : LINE=(L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, MIDB, ID10Hu, MIB, ID10Hd, MIDB, L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) + +IDP_11 : LINE=(L500, LIP, L500, L350p, MIDP, ID11Hu, MIP, ID11Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m + +IDB_12 : LINE=(L500, LIB, L665, L100, L135, MIDB, L600p, MIB, L600p, MIDB, L135, L100, L665, LIB, L500);! # low beta ID straight section + +IDA_13 : LINE=(IDA); + +IDB_14 : LINE=(L365, LIB, L208p, IDC3, MIDB, ID14Hu, MIB, ID14Hd, MIDB, IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) + +IDP_15 : LINE=(IDP); + +IDB_16 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, BbBKckL, LIB, L500);! # low beta ID straight section + +IDA_17 : LINE=(L500, LIA, L511, L350p, IDC2, L063, MIDA, ID17Hu, MIA, ID17Hd, MIDA, L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight !# section (SAPUCAIA) + +IDB_18_TUNEPKUPH : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, TunePkupH, LIB, L500);! # low beta ID straight section + +IDB_19_GSL15 : LINE=(L500, GSL15, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDB_20_GSL07 : LINE=(L500, GSL07, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +!!! -- girders -- + +!!! straight sections +SS_S01 : LINE=(IDA_01_INJ);! # INJECTION +SS_S02 : LINE=(IDB_02);! +SS_S03 : LINE=(IDP_03_CAV);! +SS_S04 : LINE=(IDB_04);! +SS_S05 : LINE=(IDA_05);! +SS_S06 : LINE=(IDB_06);! # CARNAUBA +SS_S07 : LINE=(IDP_07);! # CATERETE +SS_S08 : LINE=(IDB_08);! # EMA +SS_S09 : LINE=(IDA_09);! # MANACA +SS_S10 : LINE=(IDB_10);! # SABIA +SS_S11 : LINE=(IDP_11);! # IPE +SS_S12 : LINE=(IDB_12);! +SS_S13 : LINE=(IDA_13);! +SS_S14 : LINE=(IDB_14);! # PAINEIRA +SS_S15 : LINE=(IDP_15);! +SS_S16 : LINE=(IDB_16);! # INGA +SS_S17 : LINE=(IDA_17);! # SAPUCAIA +SS_S18 : LINE=(IDB_18_TUNEPKUPH);! +SS_S19 : LINE=(IDB_19_GSL15);! +SS_S20 : LINE=(IDB_20_GSL07);! + +!!! down and upstream straight sections +M1_S01 : LINE=(M1AFF);! +M2_S01 : LINE=(M2AFF);! +M1_S02 : LINE=(M1B);! +M2_S02 : LINE=(M2B);! +M1_S03 : LINE=(M1P);! +M2_S03 : LINE=(M2P);! +M1_S04 : LINE=(M1B);! +M2_S04 : LINE=(M2B);! +M1_S05 : LINE=(M1A);! +M2_S05 : LINE=(M2A);! +M1_S06 : LINE=(M1B);! +M2_S06 : LINE=(M2B);! +M1_S07 : LINE=(M1P);! +M2_S07 : LINE=(M2P);! +M1_S08 : LINE=(M1B);! +M2_S08 : LINE=(M2B);! +M1_S09 : LINE=(M1A);! +M2_S09 : LINE=(M2A);! +M1_S10 : LINE=(M1B);! +M2_S10 : LINE=(M2B);! +M1_S11 : LINE=(M1P);! +M2_S11 : LINE=(M2P);! +M1_S12 : LINE=(M1B);! +M2_S12 : LINE=(M2B);! +M1_S13 : LINE=(M1A);! +M2_S13 : LINE=(M2A);! +M1_S14 : LINE=(M1B);! +M2_S14 : LINE=(M2B);! +M1_S15 : LINE=(M1P);! +M2_S15 : LINE=(M2P);! +M1_S16 : LINE=(M1B);! +M2_S16 : LINE=(M2B_BbBPkup);! +M1_S17 : LINE=(M1A);! +M2_S17 : LINE=(M2A);! +M1_S18 : LINE=(M1B);! +M2_S18 : LINE=(M2B);! +M1_S19 : LINE=(M1P);! +M2_S19 : LINE=(M2P);! +M1_S20 : LINE=(M1B);! +M2_S20 : LINE=(M2B);! + +!!! dispersive arcs +C1_S01 : LINE=(C1A);! +C2_S01 : LINE=(C2A);! +C3_S01 : LINE=(C3B);! +C4_S01 : LINE=(C4B);! +C1_S02 : LINE=(C1B);! +C2_S02 : LINE=(C2B);! +C3_S02 : LINE=(C3P);! +C4_S02 : LINE=(C4P);! +C1_S03 : LINE=(C1P);! +C2_S03 : LINE=(C2P);! +C3_S03 : LINE=(C3B);! +C4_S03 : LINE=(C4B);! +C1_S04 : LINE=(C1B);! +C2_S04 : LINE=(C2B);! +C3_S04 : LINE=(C3A);! +C4_S04 : LINE=(C4A);! +C1_S05 : LINE=(C1A);! +C2_S05 : LINE=(C2A);! +C3_S05 : LINE=(C3B);! +C4_S05 : LINE=(C4B);! +C1_S06 : LINE=(C1B);! +C2_S06 : LINE=(C2B);! +C3_S06 : LINE=(C3P);! +C4_S06 : LINE=(C4P);! +C1_S07 : LINE=(C1P);! +C2_S07 : LINE=(C2P);! +C3_S07 : LINE=(C3B);! +C4_S07 : LINE=(C4B);! +C1_S08 : LINE=(C1B);! +C2_S08 : LINE=(C2B);! +C3_S08 : LINE=(C3A);! +C4_S08 : LINE=(C4A);! +C1_S09 : LINE=(C1A);! +C2_S09 : LINE=(C2A);! +C3_S09 : LINE=(C3B);! +C4_S09 : LINE=(C4B);! +C1_S10 : LINE=(C1B);! +C2_S10 : LINE=(C2B);! +C3_S10 : LINE=(C3P);! +C4_S10 : LINE=(C4P);! +C1_S11 : LINE=(C1P);! +C2_S11 : LINE=(C2P);! +C3_S11 : LINE=(C3B);! +C4_S11 : LINE=(C4B);! +C1_S12 : LINE=(C1B);! +C2_S12 : LINE=(C2B);! +C3_S12 : LINE=(C3A);! +C4_S12 : LINE=(C4A);! +C1_S13 : LINE=(C1A);! +C2_S13 : LINE=(C2A);! +C3_S13 : LINE=(C3B);! +C4_S13 : LINE=(C4B_DCCT);! +C1_S14 : LINE=(C1B);! +C2_S14 : LINE=(C2B);! +C3_S14 : LINE=(C3P);! +C4_S14 : LINE=(C4P_DCCT);! +C1_S15 : LINE=(C1P);! +C2_S15 : LINE=(C2P);! +C3_S15 : LINE=(C3B);! +C4_S15 : LINE=(C4B_GBPM);! +C1_S16 : LINE=(C1B);! +C2_S16 : LINE=(C2B);! +C3_S16 : LINE=(C3A);! +C4_S16 : LINE=(C4A_BbBKckrV);! +C1_S17 : LINE=(C1A);! +C2_S17 : LINE=(C2A);! +C3_S17 : LINE=(C3B);! +C4_S17 : LINE=(C4B_TunePkupV);! +C1_S18 : LINE=(C1B);! +C2_S18 : LINE=(C2B);! +C3_S18 : LINE=(C3P);! +C4_S18 : LINE=(C4P_TuneShkrV);! +C1_S19 : LINE=(C1P);! +C2_S19 : LINE=(C2P);! +C3_S19 : LINE=(C3B);! +C4_S19 : LINE=(C4B_PingV);! +C1_S20 : LINE=(C1B);! +C2_S20 : LINE=(C2B);! +C3_S20 : LINE=(C3A);! +C4_S20 : LINE=(C4A);! + +!!! SECTORS # 01..20 +S01 : LINE=(M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, C3_S01, B2, C4_S01, B1);! +S02 : LINE=(M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, C3_S02, B2, C4_S02, B1);! +S03 : LINE=(M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, C3_S03, B2, C4_S03, B1);! +S04 : LINE=(M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, C3_S04, B2, C4_S04, B1);! +S05 : LINE=(M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, C3_S05, B2, C4_S05, B1);! +S06 : LINE=(M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, C3_S06, B2, C4_S06, B1);! +S07 : LINE=(M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, C3_S07, B2, C4_S07, B1);! +S08 : LINE=(M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, C3_S08, B2, C4_S08, B1);! +S09 : LINE=(M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, C3_S09, B2, C4_S09, B1);! +S10 : LINE=(M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, C3_S10, B2, C4_S10, B1);! +S11 : LINE=(M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, C3_S11, B2, C4_S11, B1);! +S12 : LINE=(M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, C3_S12, B2, C4_S12, B1);! +S13 : LINE=(M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, C3_S13, B2, C4_S13, B1);! +S14 : LINE=(M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, C3_S14, B2, C4_S14, B1);! +S15 : LINE=(M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, C3_S15, B2, C4_S15, B1);! +S16 : LINE=(M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, C3_S16, B2, C4_S16, B1);! +S17 : LINE=(M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, C3_S17, B2, C4_S17, B1);! +S18 : LINE=(M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, C3_S18, B2, C4_S18, B1);! +S19 : LINE=(M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, C3_S19, B2, C4_S19, B1);! +S20 : LINE=(M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, C3_S20, B2, C4_S20, B1);! + +!!! The ring +SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! + +BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; +USE, PERIOD=SI; +SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; +CALL, FILE=sirius-ring.temp; +REMOVEFILE, FILE=sirius-ring.temp; + +SEQEDIT, SEQUENCE=SI; +FLATTEN; +CYCLE, START=M_START; +ENDEDIT; + +""" +f = open('sirius.seq', 'w') +f.write(stri) +f.close() From 06f16422a1ba5e4b2720ffbc76fd5e96e2245ac5 Mon Sep 17 00:00:00 2001 From: vitor Date: Mon, 9 Sep 2024 08:51:55 -0300 Subject: [PATCH 5/9] use SBEND as default dipoles --- other-simulators/MAD/sirius.seq | 103 +++++++++--------- .../MAD/trackcpp2MADX_converter.py | 2 +- 2 files changed, 51 insertions(+), 54 deletions(-) diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius.seq index 17805b6..029cb1a 100644 --- a/other-simulators/MAD/sirius.seq +++ b/other-simulators/MAD/sirius.seq @@ -129,30 +129,28 @@ DIPOLES_K1_on := 1; DIPOLES_K2_on := 1; DIPOLES_K3_on := 1; -OPTION, RBARC = FALSE; - !* BC BC_K0_on := 1*DIPOLES_K0_on; BC_K1_on := 1*DIPOLES_K1_on; BC_K2_on := 1*DIPOLES_K2_on; BC_K3_on := 1*DIPOLES_K3_on; -BC.p1 : RBEND, L=0.00100, ANGLE=0.01877*PI/180, K0:=-1.4741e-05*BC_K0_on, K1:=-3.2459e-03*BC_K1_on, K2:=-2.5934e+01*BC_K2_on, K3:=+2.2655e+02*BC_K3_on; -BC.p2 : RBEND, L=0.00400, ANGLE=0.07328*PI/180, K0:=-3.5868e-06*BC_K0_on, K1:=-8.0872e-03*BC_K1_on, K2:=-2.3947e+01*BC_K2_on, K3:=+1.9896e+02*BC_K3_on; -BC.p3 : RBEND, L=0.00500, ANGLE=0.08149*PI/180, K0:=-1.5878e-06*BC_K0_on, K1:=-2.2156e-02*BC_K1_on, K2:=-1.6636e+01*BC_K2_on, K3:=+9.5225e+01*BC_K3_on; -BC.p4 : RBEND, L=0.00500, ANGLE=0.06914*PI/180, K0:=-2.2515e-06*BC_K0_on, K1:=-2.6794e-02*BC_K1_on, K2:=-9.9744e+00*BC_K2_on, K3:=+4.0910e+01*BC_K3_on; -BC.p5 : RBEND, L=0.00500, ANGLE=0.05972*PI/180, K0:=+2.4800e-07*BC_K0_on, K1:=-2.6704e-02*BC_K1_on, K2:=-7.1238e+00*BC_K2_on, K3:=+2.8365e+01*BC_K3_on; -BC.p6 : RBEND, L=0.01000, ANGLE=0.09814*PI/180, K0:=-7.2919e-07*BC_K0_on, K1:=-2.5788e-02*BC_K1_on, K2:=-5.4243e+00*BC_K2_on, K3:=+1.8297e+01*BC_K3_on; -BC.p7 : RBEND, L=0.01000, ANGLE=0.07568*PI/180, K0:=-1.8658e-06*BC_K0_on, K1:=-2.4549e-02*BC_K1_on, K2:=-3.7961e+00*BC_K2_on, K3:=+7.9939e+00*BC_K3_on; -BC.p8 : RBEND, L=0.01000, ANGLE=0.05755*PI/180, K0:=-6.9437e-07*BC_K0_on, K1:=-1.9501e-02*BC_K1_on, K2:=-2.2458e+00*BC_K2_on, K3:=+2.9742e+00*BC_K3_on; -BC.p9 : RBEND, L=0.01000, ANGLE=0.04544*PI/180, K0:=-1.2861e-07*BC_K0_on, K1:=-1.2764e-03*BC_K1_on, K2:=-8.7276e-01*BC_K2_on, K3:=-4.5371e-01*BC_K3_on; -BC.p10 : RBEND, L=0.03200, ANGLE=0.11887*PI/180, K0:=-3.6974e-08*BC_K0_on, K1:=+1.2757e-02*BC_K1_on, K2:=+1.1825e+00*BC_K2_on, K3:=+1.8453e+00*BC_K3_on; -BC.p11 : RBEND, L=0.03200, ANGLE=0.09720*PI/180, K0:=-9.0591e-07*BC_K0_on, K1:=-1.2063e-01*BC_K1_on, K2:=+5.2835e-01*BC_K2_on, K3:=+1.0917e+01*BC_K3_on; -BC.p12 : RBEND, L=0.16000, ANGLE=0.62161*PI/180, K0:=-1.1668e-06*BC_K0_on, K1:=-8.9725e-01*BC_K1_on, K2:=+4.4207e-01*BC_K2_on, K3:=+3.2247e+01*BC_K3_on; -BC.p13 : RBEND, L=0.16000, ANGLE=0.62274*PI/180, K0:=+2.8034e-07*BC_K0_on, K1:=-9.0717e-01*BC_K1_on, K2:=+2.0879e-01*BC_K2_on, K3:=-6.2815e-01*BC_K3_on; -BC.p14 : RBEND, L=0.01200, ANGLE=0.04249*PI/180, K0:=+5.4796e-07*BC_K0_on, K1:=-8.8611e-01*BC_K1_on, K2:=+4.9910e-01*BC_K2_on, K3:=+2.4958e+01*BC_K3_on; -BC.p15 : RBEND, L=0.01400, ANGLE=0.03339*PI/180, K0:=-4.4895e-07*BC_K0_on, K1:=-4.4684e-01*BC_K1_on, K2:=-1.8750e+00*BC_K2_on, K3:=+2.2077e+01*BC_K3_on; -BC.p16 : RBEND, L=0.01600, ANGLE=0.01935*PI/180, K0:=+7.1551e-07*BC_K0_on, K1:=-1.1215e-01*BC_K1_on, K2:=-1.9597e+00*BC_K2_on, K3:=+1.3313e+01*BC_K3_on; -BC.p17 : RBEND, L=0.03500, ANGLE=0.01344*PI/180, K0:=-1.7487e-07*BC_K0_on, K1:=-1.9828e-02*BC_K1_on, K2:=-1.2534e+00*BC_K2_on, K3:=+1.9342e+01*BC_K3_on; +BC.p1 : SBEND, L=0.00100, ANGLE=0.01877*PI/180, K0:=-1.4741e-05*BC_K0_on, K1:=-3.2459e-03*BC_K1_on, K2:=-2.5934e+01*BC_K2_on, K3:=+2.2655e+02*BC_K3_on; +BC.p2 : SBEND, L=0.00400, ANGLE=0.07328*PI/180, K0:=-3.5868e-06*BC_K0_on, K1:=-8.0872e-03*BC_K1_on, K2:=-2.3947e+01*BC_K2_on, K3:=+1.9896e+02*BC_K3_on; +BC.p3 : SBEND, L=0.00500, ANGLE=0.08149*PI/180, K0:=-1.5878e-06*BC_K0_on, K1:=-2.2156e-02*BC_K1_on, K2:=-1.6636e+01*BC_K2_on, K3:=+9.5225e+01*BC_K3_on; +BC.p4 : SBEND, L=0.00500, ANGLE=0.06914*PI/180, K0:=-2.2515e-06*BC_K0_on, K1:=-2.6794e-02*BC_K1_on, K2:=-9.9744e+00*BC_K2_on, K3:=+4.0910e+01*BC_K3_on; +BC.p5 : SBEND, L=0.00500, ANGLE=0.05972*PI/180, K0:=+2.4800e-07*BC_K0_on, K1:=-2.6704e-02*BC_K1_on, K2:=-7.1238e+00*BC_K2_on, K3:=+2.8365e+01*BC_K3_on; +BC.p6 : SBEND, L=0.01000, ANGLE=0.09814*PI/180, K0:=-7.2919e-07*BC_K0_on, K1:=-2.5788e-02*BC_K1_on, K2:=-5.4243e+00*BC_K2_on, K3:=+1.8297e+01*BC_K3_on; +BC.p7 : SBEND, L=0.01000, ANGLE=0.07568*PI/180, K0:=-1.8658e-06*BC_K0_on, K1:=-2.4549e-02*BC_K1_on, K2:=-3.7961e+00*BC_K2_on, K3:=+7.9939e+00*BC_K3_on; +BC.p8 : SBEND, L=0.01000, ANGLE=0.05755*PI/180, K0:=-6.9437e-07*BC_K0_on, K1:=-1.9501e-02*BC_K1_on, K2:=-2.2458e+00*BC_K2_on, K3:=+2.9742e+00*BC_K3_on; +BC.p9 : SBEND, L=0.01000, ANGLE=0.04544*PI/180, K0:=-1.2861e-07*BC_K0_on, K1:=-1.2764e-03*BC_K1_on, K2:=-8.7276e-01*BC_K2_on, K3:=-4.5371e-01*BC_K3_on; +BC.p10 : SBEND, L=0.03200, ANGLE=0.11887*PI/180, K0:=-3.6974e-08*BC_K0_on, K1:=+1.2757e-02*BC_K1_on, K2:=+1.1825e+00*BC_K2_on, K3:=+1.8453e+00*BC_K3_on; +BC.p11 : SBEND, L=0.03200, ANGLE=0.09720*PI/180, K0:=-9.0591e-07*BC_K0_on, K1:=-1.2063e-01*BC_K1_on, K2:=+5.2835e-01*BC_K2_on, K3:=+1.0917e+01*BC_K3_on; +BC.p12 : SBEND, L=0.16000, ANGLE=0.62161*PI/180, K0:=-1.1668e-06*BC_K0_on, K1:=-8.9725e-01*BC_K1_on, K2:=+4.4207e-01*BC_K2_on, K3:=+3.2247e+01*BC_K3_on; +BC.p13 : SBEND, L=0.16000, ANGLE=0.62274*PI/180, K0:=+2.8034e-07*BC_K0_on, K1:=-9.0717e-01*BC_K1_on, K2:=+2.0879e-01*BC_K2_on, K3:=-6.2815e-01*BC_K3_on; +BC.p14 : SBEND, L=0.01200, ANGLE=0.04249*PI/180, K0:=+5.4796e-07*BC_K0_on, K1:=-8.8611e-01*BC_K1_on, K2:=+4.9910e-01*BC_K2_on, K3:=+2.4958e+01*BC_K3_on; +BC.p15 : SBEND, L=0.01400, ANGLE=0.03339*PI/180, K0:=-4.4895e-07*BC_K0_on, K1:=-4.4684e-01*BC_K1_on, K2:=-1.8750e+00*BC_K2_on, K3:=+2.2077e+01*BC_K3_on; +BC.p16 : SBEND, L=0.01600, ANGLE=0.01935*PI/180, K0:=+7.1551e-07*BC_K0_on, K1:=-1.1215e-01*BC_K1_on, K2:=-1.9597e+00*BC_K2_on, K3:=+1.3313e+01*BC_K3_on; +BC.p17 : SBEND, L=0.03500, ANGLE=0.01344*PI/180, K0:=-1.7487e-07*BC_K0_on, K1:=-1.9828e-02*BC_K1_on, K2:=-1.2534e+00*BC_K2_on, K3:=+1.9342e+01*BC_K3_on; BC.M_ACCEP : MARKER, L=0; BC.EDGE : MARKER, L=0; BC.MC : MARKER, L=0; @@ -164,21 +162,21 @@ B1_K0_on := 1*DIPOLES_K0_on; B1_K1_on := 1*DIPOLES_K1_on; B1_K2_on := 1*DIPOLES_K2_on; B1_K3_on := 1*DIPOLES_K3_on; -B1.p1 : RBEND, L=0.00200, ANGLE=0.00633*PI/180, K0:=-1.9696e-06*B1_K0_on, K1:=-7.2541e-01*B1_K1_on, K2:=-5.4213e-01*B1_K2_on, K3:=+5.4347e+00*B1_K3_on; -B1.p2 : RBEND, L=0.00300, ANGLE=0.00951*PI/180, K0:=-3.8061e-06*B1_K0_on, K1:=-7.2968e-01*B1_K1_on, K2:=-4.5292e-01*B1_K2_on, K3:=+4.3822e+00*B1_K3_on; -B1.p3 : RBEND, L=0.00500, ANGLE=0.01592*PI/180, K0:=-4.7568e-07*B1_K0_on, K1:=-7.4227e-01*B1_K1_on, K2:=-2.1669e-01*B1_K2_on, K3:=+2.9544e+00*B1_K3_on; -B1.p4 : RBEND, L=0.00500, ANGLE=0.01603*PI/180, K0:=-1.9480e-06*B1_K0_on, K1:=-7.5771e-01*B1_K1_on, K2:=-1.0657e-02*B1_K2_on, K3:=+3.5007e+00*B1_K3_on; -B1.p5 : RBEND, L=0.00500, ANGLE=0.01611*PI/180, K0:=-2.7633e-06*B1_K0_on, K1:=-7.6662e-01*B1_K1_on, K2:=+3.3285e-02*B1_K2_on, K3:=+4.7919e+00*B1_K3_on; -B1.p6 : RBEND, L=0.01000, ANGLE=0.03236*PI/180, K0:=-1.9098e-06*B1_K0_on, K1:=-7.7081e-01*B1_K1_on, K2:=+1.6451e-02*B1_K2_on, K3:=+5.3028e+00*B1_K3_on; -B1.p7 : RBEND, L=0.04000, ANGLE=0.12963*PI/180, K0:=-1.6309e-06*B1_K0_on, K1:=-7.7247e-01*B1_K1_on, K2:=+4.8673e-02*B1_K2_on, K3:=+4.6505e+00*B1_K3_on; -B1.p8 : RBEND, L=0.15000, ANGLE=0.48382*PI/180, K0:=-1.9888e-06*B1_K0_on, K1:=-7.7332e-01*B1_K1_on, K2:=+9.7601e-02*B1_K2_on, K3:=+5.3336e+00*B1_K3_on; -B1.p9 : RBEND, L=0.10000, ANGLE=0.32247*PI/180, K0:=-2.1025e-06*B1_K0_on, K1:=-7.7271e-01*B1_K1_on, K2:=+1.1969e-01*B1_K2_on, K3:=+5.6811e+00*B1_K3_on; -B1.p10 : RBEND, L=0.05000, ANGLE=0.16165*PI/180, K0:=-2.1257e-06*B1_K0_on, K1:=-7.7203e-01*B1_K1_on, K2:=+5.6224e-02*B1_K2_on, K3:=+4.5293e+00*B1_K3_on; -B1.p11 : RBEND, L=0.03400, ANGLE=0.10509*PI/180, K0:=-1.8623e-06*B1_K0_on, K1:=-7.7144e-01*B1_K1_on, K2:=-1.2160e-01*B1_K2_on, K3:=+9.1976e+00*B1_K3_on; -B1.p12 : RBEND, L=0.01600, ANGLE=0.03414*PI/180, K0:=-9.6169e-07*B1_K0_on, K1:=-4.5231e-01*B1_K1_on, K2:=-1.8149e+00*B1_K2_on, K3:=+1.9400e+01*B1_K3_on; -B1.p13 : RBEND, L=0.04000, ANGLE=0.03296*PI/180, K0:=-5.2504e-07*B1_K0_on, K1:=-8.6643e-02*B1_K1_on, K2:=-1.7536e+00*B1_K2_on, K3:=+8.5147e+00*B1_K3_on; -B1.p14 : RBEND, L=0.04000, ANGLE=0.00774*PI/180, K0:=-1.6259e-07*B1_K0_on, K1:=-8.3065e-03*B1_K1_on, K2:=-3.8990e-01*B1_K2_on, K3:=+1.3183e+00*B1_K3_on; -B1.p15 : RBEND, L=0.05000, ANGLE=0.00389*PI/180, K0:=-7.9445e-08*B1_K0_on, K1:=-1.0742e-03*B1_K1_on, K2:=-9.8271e-02*B1_K2_on, K3:=+5.0359e-02*B1_K3_on; +B1.p1 : SBEND, L=0.00200, ANGLE=0.00633*PI/180, K0:=-1.9696e-06*B1_K0_on, K1:=-7.2541e-01*B1_K1_on, K2:=-5.4213e-01*B1_K2_on, K3:=+5.4347e+00*B1_K3_on; +B1.p2 : SBEND, L=0.00300, ANGLE=0.00951*PI/180, K0:=-3.8061e-06*B1_K0_on, K1:=-7.2968e-01*B1_K1_on, K2:=-4.5292e-01*B1_K2_on, K3:=+4.3822e+00*B1_K3_on; +B1.p3 : SBEND, L=0.00500, ANGLE=0.01592*PI/180, K0:=-4.7568e-07*B1_K0_on, K1:=-7.4227e-01*B1_K1_on, K2:=-2.1669e-01*B1_K2_on, K3:=+2.9544e+00*B1_K3_on; +B1.p4 : SBEND, L=0.00500, ANGLE=0.01603*PI/180, K0:=-1.9480e-06*B1_K0_on, K1:=-7.5771e-01*B1_K1_on, K2:=-1.0657e-02*B1_K2_on, K3:=+3.5007e+00*B1_K3_on; +B1.p5 : SBEND, L=0.00500, ANGLE=0.01611*PI/180, K0:=-2.7633e-06*B1_K0_on, K1:=-7.6662e-01*B1_K1_on, K2:=+3.3285e-02*B1_K2_on, K3:=+4.7919e+00*B1_K3_on; +B1.p6 : SBEND, L=0.01000, ANGLE=0.03236*PI/180, K0:=-1.9098e-06*B1_K0_on, K1:=-7.7081e-01*B1_K1_on, K2:=+1.6451e-02*B1_K2_on, K3:=+5.3028e+00*B1_K3_on; +B1.p7 : SBEND, L=0.04000, ANGLE=0.12963*PI/180, K0:=-1.6309e-06*B1_K0_on, K1:=-7.7247e-01*B1_K1_on, K2:=+4.8673e-02*B1_K2_on, K3:=+4.6505e+00*B1_K3_on; +B1.p8 : SBEND, L=0.15000, ANGLE=0.48382*PI/180, K0:=-1.9888e-06*B1_K0_on, K1:=-7.7332e-01*B1_K1_on, K2:=+9.7601e-02*B1_K2_on, K3:=+5.3336e+00*B1_K3_on; +B1.p9 : SBEND, L=0.10000, ANGLE=0.32247*PI/180, K0:=-2.1025e-06*B1_K0_on, K1:=-7.7271e-01*B1_K1_on, K2:=+1.1969e-01*B1_K2_on, K3:=+5.6811e+00*B1_K3_on; +B1.p10 : SBEND, L=0.05000, ANGLE=0.16165*PI/180, K0:=-2.1257e-06*B1_K0_on, K1:=-7.7203e-01*B1_K1_on, K2:=+5.6224e-02*B1_K2_on, K3:=+4.5293e+00*B1_K3_on; +B1.p11 : SBEND, L=0.03400, ANGLE=0.10509*PI/180, K0:=-1.8623e-06*B1_K0_on, K1:=-7.7144e-01*B1_K1_on, K2:=-1.2160e-01*B1_K2_on, K3:=+9.1976e+00*B1_K3_on; +B1.p12 : SBEND, L=0.01600, ANGLE=0.03414*PI/180, K0:=-9.6169e-07*B1_K0_on, K1:=-4.5231e-01*B1_K1_on, K2:=-1.8149e+00*B1_K2_on, K3:=+1.9400e+01*B1_K3_on; +B1.p13 : SBEND, L=0.04000, ANGLE=0.03296*PI/180, K0:=-5.2504e-07*B1_K0_on, K1:=-8.6643e-02*B1_K1_on, K2:=-1.7536e+00*B1_K2_on, K3:=+8.5147e+00*B1_K3_on; +B1.p14 : SBEND, L=0.04000, ANGLE=0.00774*PI/180, K0:=-1.6259e-07*B1_K0_on, K1:=-8.3065e-03*B1_K1_on, K2:=-3.8990e-01*B1_K2_on, K3:=+1.3183e+00*B1_K3_on; +B1.p15 : SBEND, L=0.05000, ANGLE=0.00389*PI/180, K0:=-7.9445e-08*B1_K0_on, K1:=-1.0742e-03*B1_K1_on, K2:=-9.8271e-02*B1_K2_on, K3:=+5.0359e-02*B1_K3_on; B1.M_ACCEP : MARKER, L=0; B1.EDGE : MARKER, L=0; B1_SRC : MARKER, L=0; @@ -192,24 +190,24 @@ B2_K0_on := 1*DIPOLES_K0_on; B2_K1_on := 1*DIPOLES_K1_on; B2_K2_on := 1*DIPOLES_K2_on; B2_K3_on := 1*DIPOLES_K3_on; -B2.p1 : RBEND, L=0.12500, ANGLE=0.40623*PI/180, K0:=+2.8141e-07*B2_K0_on, K1:=-7.7535e-01*B2_K1_on, K2:=+3.8504e-02*B2_K2_on, K3:=+1.7048e+00*B2_K3_on; -B2.p2 : RBEND, L=0.05500, ANGLE=0.17963*PI/180, K0:=+2.4869e-07*B2_K0_on, K1:=-7.7400e-01*B2_K1_on, K2:=+1.8903e-02*B2_K2_on, K3:=+1.3538e+00*B2_K3_on; -B2.p3 : RBEND, L=0.01000, ANGLE=0.03260*PI/180, K0:=-1.4532e-07*B2_K0_on, K1:=-7.6990e-01*B2_K1_on, K2:=-7.3993e-03*B2_K2_on, K3:=+1.4325e+00*B2_K3_on; -B2.p4 : RBEND, L=0.00500, ANGLE=0.01624*PI/180, K0:=-9.6976e-07*B2_K0_on, K1:=-7.6272e-01*B2_K1_on, K2:=-4.4905e-02*B2_K2_on, K3:=+3.7505e-01*B2_K3_on; -B2.p5 : RBEND, L=0.00500, ANGLE=0.01619*PI/180, K0:=-8.5112e-08*B2_K0_on, K1:=-7.5413e-01*B2_K1_on, K2:=-1.7000e-01*B2_K2_on, K3:=+1.3254e-01*B2_K3_on; -B2.p6 : RBEND, L=0.00500, ANGLE=0.01616*PI/180, K0:=+5.0825e-07*B2_K0_on, K1:=-7.4866e-01*B2_K1_on, K2:=-2.8166e-01*B2_K2_on, K3:=+7.1392e-01*B2_K3_on; -B2.p7 : RBEND, L=0.00500, ANGLE=0.01618*PI/180, K0:=+1.7001e-06*B2_K0_on, K1:=-7.5218e-01*B2_K1_on, K2:=-2.1312e-01*B2_K2_on, K3:=+3.8486e-01*B2_K3_on; -B2.p8 : RBEND, L=0.01000, ANGLE=0.03254*PI/180, K0:=+1.3585e-06*B2_K0_on, K1:=-7.6428e-01*B2_K1_on, K2:=-4.1565e-02*B2_K2_on, K3:=+6.7680e-01*B2_K3_on; -B2.p9 : RBEND, L=0.01000, ANGLE=0.03269*PI/180, K0:=+2.9027e-07*B2_K0_on, K1:=-7.7165e-01*B2_K1_on, K2:=-8.0002e-03*B2_K2_on, K3:=+1.7812e+00*B2_K3_on; -B2.p10 : RBEND, L=0.17500, ANGLE=0.57073*PI/180, K0:=-1.1637e-07*B2_K0_on, K1:=-7.7428e-01*B2_K1_on, K2:=+6.8988e-02*B2_K2_on, K3:=+4.1024e+00*B2_K3_on; -B2.p11 : RBEND, L=0.17500, ANGLE=0.57034*PI/180, K0:=-3.3225e-07*B2_K0_on, K1:=-7.7352e-01*B2_K1_on, K2:=+7.8447e-02*B2_K2_on, K3:=+5.4514e+00*B2_K3_on; -B2.p12 : RBEND, L=0.02000, ANGLE=0.06315*PI/180, K0:=+2.2577e-08*B2_K0_on, K1:=-7.8534e-01*B2_K1_on, K2:=-1.4538e-01*B2_K2_on, K3:=+9.2976e+00*B2_K3_on; -B2.p13 : RBEND, L=0.01000, ANGLE=0.02719*PI/180, K0:=+8.7645e-08*B2_K0_on, K1:=-6.7626e-01*B2_K1_on, K2:=-3.1354e-01*B2_K2_on, K3:=+1.6050e+01*B2_K3_on; -B2.p14 : RBEND, L=0.01500, ANGLE=0.02866*PI/180, K0:=+6.3204e-08*B2_K0_on, K1:=-3.6034e-01*B2_K1_on, K2:=-2.3415e+00*B2_K2_on, K3:=+2.0402e+01*B2_K3_on; -B2.p15 : RBEND, L=0.02000, ANGLE=0.01994*PI/180, K0:=+5.4460e-07*B2_K0_on, K1:=-1.0711e-01*B2_K1_on, K2:=-2.1654e+00*B2_K2_on, K3:=+1.1296e+01*B2_K3_on; -B2.p16 : RBEND, L=0.03000, ANGLE=0.01188*PI/180, K0:=+1.3393e-07*B2_K0_on, K1:=-2.3886e-02*B2_K1_on, K2:=-8.9207e-01*B2_K2_on, K3:=+3.8284e+00*B2_K3_on; -B2.p17 : RBEND, L=0.03200, ANGLE=0.00444*PI/180, K0:=-2.8999e-07*B2_K0_on, K1:=-4.5556e-03*B2_K1_on, K2:=-2.6166e-01*B2_K2_on, K3:=+7.8754e-01*B2_K3_on; -B2.p18 : RBEND, L=0.03250, ANGLE=0.00341*PI/180, K0:=-1.3468e-07*B2_K0_on, K1:=-1.2481e-03*B2_K1_on, K2:=-1.3069e-01*B2_K2_on, K3:=+3.6679e-01*B2_K3_on; +B2.p1 : SBEND, L=0.12500, ANGLE=0.40623*PI/180, K0:=+2.8141e-07*B2_K0_on, K1:=-7.7535e-01*B2_K1_on, K2:=+3.8504e-02*B2_K2_on, K3:=+1.7048e+00*B2_K3_on; +B2.p2 : SBEND, L=0.05500, ANGLE=0.17963*PI/180, K0:=+2.4869e-07*B2_K0_on, K1:=-7.7400e-01*B2_K1_on, K2:=+1.8903e-02*B2_K2_on, K3:=+1.3538e+00*B2_K3_on; +B2.p3 : SBEND, L=0.01000, ANGLE=0.03260*PI/180, K0:=-1.4532e-07*B2_K0_on, K1:=-7.6990e-01*B2_K1_on, K2:=-7.3993e-03*B2_K2_on, K3:=+1.4325e+00*B2_K3_on; +B2.p4 : SBEND, L=0.00500, ANGLE=0.01624*PI/180, K0:=-9.6976e-07*B2_K0_on, K1:=-7.6272e-01*B2_K1_on, K2:=-4.4905e-02*B2_K2_on, K3:=+3.7505e-01*B2_K3_on; +B2.p5 : SBEND, L=0.00500, ANGLE=0.01619*PI/180, K0:=-8.5112e-08*B2_K0_on, K1:=-7.5413e-01*B2_K1_on, K2:=-1.7000e-01*B2_K2_on, K3:=+1.3254e-01*B2_K3_on; +B2.p6 : SBEND, L=0.00500, ANGLE=0.01616*PI/180, K0:=+5.0825e-07*B2_K0_on, K1:=-7.4866e-01*B2_K1_on, K2:=-2.8166e-01*B2_K2_on, K3:=+7.1392e-01*B2_K3_on; +B2.p7 : SBEND, L=0.00500, ANGLE=0.01618*PI/180, K0:=+1.7001e-06*B2_K0_on, K1:=-7.5218e-01*B2_K1_on, K2:=-2.1312e-01*B2_K2_on, K3:=+3.8486e-01*B2_K3_on; +B2.p8 : SBEND, L=0.01000, ANGLE=0.03254*PI/180, K0:=+1.3585e-06*B2_K0_on, K1:=-7.6428e-01*B2_K1_on, K2:=-4.1565e-02*B2_K2_on, K3:=+6.7680e-01*B2_K3_on; +B2.p9 : SBEND, L=0.01000, ANGLE=0.03269*PI/180, K0:=+2.9027e-07*B2_K0_on, K1:=-7.7165e-01*B2_K1_on, K2:=-8.0002e-03*B2_K2_on, K3:=+1.7812e+00*B2_K3_on; +B2.p10 : SBEND, L=0.17500, ANGLE=0.57073*PI/180, K0:=-1.1637e-07*B2_K0_on, K1:=-7.7428e-01*B2_K1_on, K2:=+6.8988e-02*B2_K2_on, K3:=+4.1024e+00*B2_K3_on; +B2.p11 : SBEND, L=0.17500, ANGLE=0.57034*PI/180, K0:=-3.3225e-07*B2_K0_on, K1:=-7.7352e-01*B2_K1_on, K2:=+7.8447e-02*B2_K2_on, K3:=+5.4514e+00*B2_K3_on; +B2.p12 : SBEND, L=0.02000, ANGLE=0.06315*PI/180, K0:=+2.2577e-08*B2_K0_on, K1:=-7.8534e-01*B2_K1_on, K2:=-1.4538e-01*B2_K2_on, K3:=+9.2976e+00*B2_K3_on; +B2.p13 : SBEND, L=0.01000, ANGLE=0.02719*PI/180, K0:=+8.7645e-08*B2_K0_on, K1:=-6.7626e-01*B2_K1_on, K2:=-3.1354e-01*B2_K2_on, K3:=+1.6050e+01*B2_K3_on; +B2.p14 : SBEND, L=0.01500, ANGLE=0.02866*PI/180, K0:=+6.3204e-08*B2_K0_on, K1:=-3.6034e-01*B2_K1_on, K2:=-2.3415e+00*B2_K2_on, K3:=+2.0402e+01*B2_K3_on; +B2.p15 : SBEND, L=0.02000, ANGLE=0.01994*PI/180, K0:=+5.4460e-07*B2_K0_on, K1:=-1.0711e-01*B2_K1_on, K2:=-2.1654e+00*B2_K2_on, K3:=+1.1296e+01*B2_K3_on; +B2.p16 : SBEND, L=0.03000, ANGLE=0.01188*PI/180, K0:=+1.3393e-07*B2_K0_on, K1:=-2.3886e-02*B2_K1_on, K2:=-8.9207e-01*B2_K2_on, K3:=+3.8284e+00*B2_K3_on; +B2.p17 : SBEND, L=0.03200, ANGLE=0.00444*PI/180, K0:=-2.8999e-07*B2_K0_on, K1:=-4.5556e-03*B2_K1_on, K2:=-2.6166e-01*B2_K2_on, K3:=+7.8754e-01*B2_K3_on; +B2.p18 : SBEND, L=0.03250, ANGLE=0.00341*PI/180, K0:=-1.3468e-07*B2_K0_on, K1:=-1.2481e-03*B2_K1_on, K2:=-1.3069e-01*B2_K2_on, K3:=+3.6679e-01*B2_K3_on; B2.M_ACCEP : MARKER, L=0; B2.EDGE : MARKER, L=0; B2.MB2 : MARKER, L=0; @@ -770,4 +768,3 @@ SEQEDIT, SEQUENCE=SI; FLATTEN; CYCLE, START=M_START; ENDEDIT; - diff --git a/other-simulators/MAD/trackcpp2MADX_converter.py b/other-simulators/MAD/trackcpp2MADX_converter.py index 9d0aa63..6805ec1 100644 --- a/other-simulators/MAD/trackcpp2MADX_converter.py +++ b/other-simulators/MAD/trackcpp2MADX_converter.py @@ -9,7 +9,7 @@ fam = si.families.get_family_data(acc) strengs = get_optics_mode() -use_rbend = True # Define dipoles as RBEND instead of SBEND +use_rbend = False # Define dipoles as RBEND instead of SBEND if use_rbend: bendtype = "RBEND" else: From 153fc24353860d13588818f796e773840d46989c Mon Sep 17 00:00:00 2001 From: vitor Date: Mon, 9 Sep 2024 15:32:45 -0300 Subject: [PATCH 6/9] rename and organize --- other-simulators/MAD/sirius_SI_V25_04.seq | 785 ++++++++++++++++++ .../MAD/trackcpp2MADX_converter.py | 535 +++++++----- 2 files changed, 1113 insertions(+), 207 deletions(-) create mode 100644 other-simulators/MAD/sirius_SI_V25_04.seq diff --git a/other-simulators/MAD/sirius_SI_V25_04.seq b/other-simulators/MAD/sirius_SI_V25_04.seq new file mode 100644 index 0000000..aed417e --- /dev/null +++ b/other-simulators/MAD/sirius_SI_V25_04.seq @@ -0,0 +1,785 @@ +!!! SIRIUS Storage Ring Model +! Date: 09-September-2024 +! Version: SI_V25_04 + + +!!! -- INITIAL PARAMETERS -- + +circum_new := 518.3899; ! [m] +circum_old := 518.3960; ! [m] +dcircum := circum_new - circum_old; +dcircum_frac := dcircum/20.0/2.0; ! divide circumference difference in all 20 straight sections + + +!!! -- INJECTION SECTOR -- + +L500p: DRIFT, L=0.500 + dcircum_frac; +LKKp: DRIFT, L=1.9150 + dcircum_frac; +LPMU: DRIFT, L=0.0600; +L050: DRIFT, L=0.050; +L150: DRIFT, L=0.150; +L182: DRIFT, L=0.182; +L399: DRIFT, L=0.399; + +M_START : MARKER, L=0; ! start of the model +M_END : MARKER, L=0; ! end of the model +MIA : MARKER, L=0; ! center of long straight sections (even-numbered) +InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits +InjVCs : MARKER, L=0; ! Smaller injection vchamber limits +SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) +ScrapV : MARKER, L=0; ! vertical scraper + +!* -- PULSED MAGNETS -- +InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker +InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet + +!* DPK : +INJ_SEC_DPK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, + );! + +!* DPK_END: +INJ_SEC_DPK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, + );! + +!* NLK: +INJ_SEC_NLK : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + );! + +!* NLK_END : +INJ_SEC_NLK_END : LINE=( + InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, + M_START, MIA, LKKp, InjDpKckr, InjVCs, + SVVC, LPMU, L050, ScrapV, L150, SVVC, + InjNLKckr);! + +!* INJECTION SECTOR SELECTION : NLK_END +SI_INJ : LINE=(INJ_SEC_NLK_END); + + +!!! -- DRIFTS -- + +LIA : DRIFT, L=1.5179; +LIB : DRIFT, L=1.0879; +LIP : DRIFT, L=1.0879; +LPMD : DRIFT, L=0.4929; +LID3 : DRIFT, L=1.8679; +L144p : DRIFT, L=0.144 + dcircum_frac; +L208p : DRIFT, L=0.208 + dcircum_frac; +L350p : DRIFT, L=0.350 + dcircum_frac; +L600p : DRIFT, L=0.600 + dcircum_frac; +L800p : DRIFT, L=0.7999; +L011 : DRIFT, L=0.011; +L019 : DRIFT, L=0.019; +L049 : DRIFT, L=0.049; +L050 : DRIFT, L=0.050; +L052 : DRIFT, L=0.052; +L056 : DRIFT, L=0.056; +L063 : DRIFT, L=0.063; +L074 : DRIFT, L=0.074; +L075 : DRIFT, L=0.075; +L082 : DRIFT, L=0.082; +L090 : DRIFT, L=0.090; +L100 : DRIFT, L=0.100; +L109 : DRIFT, L=0.109; +L112 : DRIFT, L=0.112; +L119 : DRIFT, L=0.119; +L120 : DRIFT, L=0.120; +L125 : DRIFT, L=0.125; +L127 : DRIFT, L=0.127; +L133 : DRIFT, L=0.133; +L134 : DRIFT, L=0.134; +L135 : DRIFT, L=0.135; +L140 : DRIFT, L=0.140; +L150 : DRIFT, L=0.150; +L156 : DRIFT, L=0.156; +L170 : DRIFT, L=0.170; +L188 : DRIFT, L=0.188; +L200 : DRIFT, L=0.200; +L201 : DRIFT, L=0.201; +L203 : DRIFT, L=0.203; +L205 : DRIFT, L=0.205; +L216 : DRIFT, L=0.216; +L230 : DRIFT, L=0.230; +L237 : DRIFT, L=0.237; +L240 : DRIFT, L=0.240; +L260 : DRIFT, L=0.260; +L270 : DRIFT, L=0.270; +L297 : DRIFT, L=0.297; +L325 : DRIFT, L=0.325; +L329 : DRIFT, L=0.329; +L336 : DRIFT, L=0.336; +L365 : DRIFT, L=0.365; +L419 : DRIFT, L=0.419; +L474 : DRIFT, L=0.474; +L500 : DRIFT, L=0.500; +L511 : DRIFT, L=0.511; +L665 : DRIFT, L=0.665; +L715 : DRIFT, L=0.715; +L839 : DRIFT, L=0.839; + + +!!! -- DIPOLES -- + +DIPOLES_K0_on := 0; +DIPOLES_K1_on := 1; +DIPOLES_K2_on := 1; +DIPOLES_K3_on := 1; + +!* BC +BC_K0_on := 1*DIPOLES_K0_on; +BC_K1_on := 1*DIPOLES_K1_on; +BC_K2_on := 1*DIPOLES_K2_on; +BC_K3_on := 1*DIPOLES_K3_on; +BC.p1 : SBEND, L=0.00100, ANGLE=0.01877*PI/180, K0:=-1.4741e-05*BC_K0_on, K1:=-3.2459e-03*BC_K1_on, K2:=-2.5934e+01*BC_K2_on, K3:=+2.2655e+02*BC_K3_on; +BC.p2 : SBEND, L=0.00400, ANGLE=0.07328*PI/180, K0:=-3.5868e-06*BC_K0_on, K1:=-8.0872e-03*BC_K1_on, K2:=-2.3947e+01*BC_K2_on, K3:=+1.9896e+02*BC_K3_on; +BC.p3 : SBEND, L=0.00500, ANGLE=0.08149*PI/180, K0:=-1.5878e-06*BC_K0_on, K1:=-2.2156e-02*BC_K1_on, K2:=-1.6636e+01*BC_K2_on, K3:=+9.5225e+01*BC_K3_on; +BC.p4 : SBEND, L=0.00500, ANGLE=0.06914*PI/180, K0:=-2.2515e-06*BC_K0_on, K1:=-2.6794e-02*BC_K1_on, K2:=-9.9744e+00*BC_K2_on, K3:=+4.0910e+01*BC_K3_on; +BC.p5 : SBEND, L=0.00500, ANGLE=0.05972*PI/180, K0:=+2.4800e-07*BC_K0_on, K1:=-2.6704e-02*BC_K1_on, K2:=-7.1238e+00*BC_K2_on, K3:=+2.8365e+01*BC_K3_on; +BC.p6 : SBEND, L=0.01000, ANGLE=0.09814*PI/180, K0:=-7.2919e-07*BC_K0_on, K1:=-2.5788e-02*BC_K1_on, K2:=-5.4243e+00*BC_K2_on, K3:=+1.8297e+01*BC_K3_on; +BC.p7 : SBEND, L=0.01000, ANGLE=0.07568*PI/180, K0:=-1.8658e-06*BC_K0_on, K1:=-2.4549e-02*BC_K1_on, K2:=-3.7961e+00*BC_K2_on, K3:=+7.9939e+00*BC_K3_on; +BC.p8 : SBEND, L=0.01000, ANGLE=0.05755*PI/180, K0:=-6.9437e-07*BC_K0_on, K1:=-1.9501e-02*BC_K1_on, K2:=-2.2458e+00*BC_K2_on, K3:=+2.9742e+00*BC_K3_on; +BC.p9 : SBEND, L=0.01000, ANGLE=0.04544*PI/180, K0:=-1.2861e-07*BC_K0_on, K1:=-1.2764e-03*BC_K1_on, K2:=-8.7276e-01*BC_K2_on, K3:=-4.5371e-01*BC_K3_on; +BC.p10 : SBEND, L=0.03200, ANGLE=0.11887*PI/180, K0:=-3.6974e-08*BC_K0_on, K1:=+1.2757e-02*BC_K1_on, K2:=+1.1825e+00*BC_K2_on, K3:=+1.8453e+00*BC_K3_on; +BC.p11 : SBEND, L=0.03200, ANGLE=0.09720*PI/180, K0:=-9.0591e-07*BC_K0_on, K1:=-1.2063e-01*BC_K1_on, K2:=+5.2835e-01*BC_K2_on, K3:=+1.0917e+01*BC_K3_on; +BC.p12 : SBEND, L=0.16000, ANGLE=0.62161*PI/180, K0:=-1.1668e-06*BC_K0_on, K1:=-8.9725e-01*BC_K1_on, K2:=+4.4207e-01*BC_K2_on, K3:=+3.2247e+01*BC_K3_on; +BC.p13 : SBEND, L=0.16000, ANGLE=0.62274*PI/180, K0:=+2.8034e-07*BC_K0_on, K1:=-9.0717e-01*BC_K1_on, K2:=+2.0879e-01*BC_K2_on, K3:=-6.2815e-01*BC_K3_on; +BC.p14 : SBEND, L=0.01200, ANGLE=0.04249*PI/180, K0:=+5.4796e-07*BC_K0_on, K1:=-8.8611e-01*BC_K1_on, K2:=+4.9910e-01*BC_K2_on, K3:=+2.4958e+01*BC_K3_on; +BC.p15 : SBEND, L=0.01400, ANGLE=0.03339*PI/180, K0:=-4.4895e-07*BC_K0_on, K1:=-4.4684e-01*BC_K1_on, K2:=-1.8750e+00*BC_K2_on, K3:=+2.2077e+01*BC_K3_on; +BC.p16 : SBEND, L=0.01600, ANGLE=0.01935*PI/180, K0:=+7.1551e-07*BC_K0_on, K1:=-1.1215e-01*BC_K1_on, K2:=-1.9597e+00*BC_K2_on, K3:=+1.3313e+01*BC_K3_on; +BC.p17 : SBEND, L=0.03500, ANGLE=0.01344*PI/180, K0:=-1.7487e-07*BC_K0_on, K1:=-1.9828e-02*BC_K1_on, K2:=-1.2534e+00*BC_K2_on, K3:=+1.9342e+01*BC_K3_on; +BC.M_ACCEP : MARKER, L=0; +BC.EDGE : MARKER, L=0; +BC.MC : MARKER, L=0; +BC.halfseg : LINE=(BC.p1, BC.p2, BC.p3, BC.p4, BC.p5, BC.p6, BC.p7, BC.p8, BC.p9, BC.M_ACCEP, BC.p10, BC.p11, BC.M_ACCEP, BC.p12, BC.p13, BC.p14, BC.EDGE, BC.p15, BC.p16, BC.p17); +BC : LINE=(-BC.halfseg, BC.MC, BC.M_ACCEP, BC.halfseg); + +!* B1 +B1_K0_on := 1*DIPOLES_K0_on; +B1_K1_on := 1*DIPOLES_K1_on; +B1_K2_on := 1*DIPOLES_K2_on; +B1_K3_on := 1*DIPOLES_K3_on; +B1.p1 : SBEND, L=0.00200, ANGLE=0.00633*PI/180, K0:=-1.9696e-06*B1_K0_on, K1:=-7.2541e-01*B1_K1_on, K2:=-5.4213e-01*B1_K2_on, K3:=+5.4347e+00*B1_K3_on; +B1.p2 : SBEND, L=0.00300, ANGLE=0.00951*PI/180, K0:=-3.8061e-06*B1_K0_on, K1:=-7.2968e-01*B1_K1_on, K2:=-4.5292e-01*B1_K2_on, K3:=+4.3822e+00*B1_K3_on; +B1.p3 : SBEND, L=0.00500, ANGLE=0.01592*PI/180, K0:=-4.7568e-07*B1_K0_on, K1:=-7.4227e-01*B1_K1_on, K2:=-2.1669e-01*B1_K2_on, K3:=+2.9544e+00*B1_K3_on; +B1.p4 : SBEND, L=0.00500, ANGLE=0.01603*PI/180, K0:=-1.9480e-06*B1_K0_on, K1:=-7.5771e-01*B1_K1_on, K2:=-1.0657e-02*B1_K2_on, K3:=+3.5007e+00*B1_K3_on; +B1.p5 : SBEND, L=0.00500, ANGLE=0.01611*PI/180, K0:=-2.7633e-06*B1_K0_on, K1:=-7.6662e-01*B1_K1_on, K2:=+3.3285e-02*B1_K2_on, K3:=+4.7919e+00*B1_K3_on; +B1.p6 : SBEND, L=0.01000, ANGLE=0.03236*PI/180, K0:=-1.9098e-06*B1_K0_on, K1:=-7.7081e-01*B1_K1_on, K2:=+1.6451e-02*B1_K2_on, K3:=+5.3028e+00*B1_K3_on; +B1.p7 : SBEND, L=0.04000, ANGLE=0.12963*PI/180, K0:=-1.6309e-06*B1_K0_on, K1:=-7.7247e-01*B1_K1_on, K2:=+4.8673e-02*B1_K2_on, K3:=+4.6505e+00*B1_K3_on; +B1.p8 : SBEND, L=0.15000, ANGLE=0.48382*PI/180, K0:=-1.9888e-06*B1_K0_on, K1:=-7.7332e-01*B1_K1_on, K2:=+9.7601e-02*B1_K2_on, K3:=+5.3336e+00*B1_K3_on; +B1.p9 : SBEND, L=0.10000, ANGLE=0.32247*PI/180, K0:=-2.1025e-06*B1_K0_on, K1:=-7.7271e-01*B1_K1_on, K2:=+1.1969e-01*B1_K2_on, K3:=+5.6811e+00*B1_K3_on; +B1.p10 : SBEND, L=0.05000, ANGLE=0.16165*PI/180, K0:=-2.1257e-06*B1_K0_on, K1:=-7.7203e-01*B1_K1_on, K2:=+5.6224e-02*B1_K2_on, K3:=+4.5293e+00*B1_K3_on; +B1.p11 : SBEND, L=0.03400, ANGLE=0.10509*PI/180, K0:=-1.8623e-06*B1_K0_on, K1:=-7.7144e-01*B1_K1_on, K2:=-1.2160e-01*B1_K2_on, K3:=+9.1976e+00*B1_K3_on; +B1.p12 : SBEND, L=0.01600, ANGLE=0.03414*PI/180, K0:=-9.6169e-07*B1_K0_on, K1:=-4.5231e-01*B1_K1_on, K2:=-1.8149e+00*B1_K2_on, K3:=+1.9400e+01*B1_K3_on; +B1.p13 : SBEND, L=0.04000, ANGLE=0.03296*PI/180, K0:=-5.2504e-07*B1_K0_on, K1:=-8.6643e-02*B1_K1_on, K2:=-1.7536e+00*B1_K2_on, K3:=+8.5147e+00*B1_K3_on; +B1.p14 : SBEND, L=0.04000, ANGLE=0.00774*PI/180, K0:=-1.6259e-07*B1_K0_on, K1:=-8.3065e-03*B1_K1_on, K2:=-3.8990e-01*B1_K2_on, K3:=+1.3183e+00*B1_K3_on; +B1.p15 : SBEND, L=0.05000, ANGLE=0.00389*PI/180, K0:=-7.9445e-08*B1_K0_on, K1:=-1.0742e-03*B1_K1_on, K2:=-9.8271e-02*B1_K2_on, K3:=+5.0359e-02*B1_K3_on; +B1.M_ACCEP : MARKER, L=0; +B1.EDGE : MARKER, L=0; +B1_SRC : MARKER, L=0; +B1.MB1 : MARKER, L=0; +B1.halfseg.1 : LINE=(B1.M_ACCEP, B1.p15, B1.p14, B1.p13, B1.p12, B1.EDGE, B1.p11, B1_SRC, B1.p10, B1.p9, B1.p8, B1.p7, B1.p6, B1.p5, B1.p4, B1.p3, B1.p2, B1.p1); +B1.halfseg.2 : LINE=(B1.p1, B1.p2, B1.p3, B1.p4, B1.p5, B1.p6, B1.p7, B1.p8, B1.p9, B1.p10, B1.p11, B1.EDGE, B1.p12, B1.p13, B1.p14, B1.p15, B1.M_ACCEP); +B1 : LINE=(B1.halfseg.1, B1.MB1, B1.M_ACCEP, B1.halfseg.2); + +!* B2 +B2_K0_on := 1*DIPOLES_K0_on; +B2_K1_on := 1*DIPOLES_K1_on; +B2_K2_on := 1*DIPOLES_K2_on; +B2_K3_on := 1*DIPOLES_K3_on; +B2.p1 : SBEND, L=0.12500, ANGLE=0.40623*PI/180, K0:=+2.8141e-07*B2_K0_on, K1:=-7.7535e-01*B2_K1_on, K2:=+3.8504e-02*B2_K2_on, K3:=+1.7048e+00*B2_K3_on; +B2.p2 : SBEND, L=0.05500, ANGLE=0.17963*PI/180, K0:=+2.4869e-07*B2_K0_on, K1:=-7.7400e-01*B2_K1_on, K2:=+1.8903e-02*B2_K2_on, K3:=+1.3538e+00*B2_K3_on; +B2.p3 : SBEND, L=0.01000, ANGLE=0.03260*PI/180, K0:=-1.4532e-07*B2_K0_on, K1:=-7.6990e-01*B2_K1_on, K2:=-7.3993e-03*B2_K2_on, K3:=+1.4325e+00*B2_K3_on; +B2.p4 : SBEND, L=0.00500, ANGLE=0.01624*PI/180, K0:=-9.6976e-07*B2_K0_on, K1:=-7.6272e-01*B2_K1_on, K2:=-4.4905e-02*B2_K2_on, K3:=+3.7505e-01*B2_K3_on; +B2.p5 : SBEND, L=0.00500, ANGLE=0.01619*PI/180, K0:=-8.5112e-08*B2_K0_on, K1:=-7.5413e-01*B2_K1_on, K2:=-1.7000e-01*B2_K2_on, K3:=+1.3254e-01*B2_K3_on; +B2.p6 : SBEND, L=0.00500, ANGLE=0.01616*PI/180, K0:=+5.0825e-07*B2_K0_on, K1:=-7.4866e-01*B2_K1_on, K2:=-2.8166e-01*B2_K2_on, K3:=+7.1392e-01*B2_K3_on; +B2.p7 : SBEND, L=0.00500, ANGLE=0.01618*PI/180, K0:=+1.7001e-06*B2_K0_on, K1:=-7.5218e-01*B2_K1_on, K2:=-2.1312e-01*B2_K2_on, K3:=+3.8486e-01*B2_K3_on; +B2.p8 : SBEND, L=0.01000, ANGLE=0.03254*PI/180, K0:=+1.3585e-06*B2_K0_on, K1:=-7.6428e-01*B2_K1_on, K2:=-4.1565e-02*B2_K2_on, K3:=+6.7680e-01*B2_K3_on; +B2.p9 : SBEND, L=0.01000, ANGLE=0.03269*PI/180, K0:=+2.9027e-07*B2_K0_on, K1:=-7.7165e-01*B2_K1_on, K2:=-8.0002e-03*B2_K2_on, K3:=+1.7812e+00*B2_K3_on; +B2.p10 : SBEND, L=0.17500, ANGLE=0.57073*PI/180, K0:=-1.1637e-07*B2_K0_on, K1:=-7.7428e-01*B2_K1_on, K2:=+6.8988e-02*B2_K2_on, K3:=+4.1024e+00*B2_K3_on; +B2.p11 : SBEND, L=0.17500, ANGLE=0.57034*PI/180, K0:=-3.3225e-07*B2_K0_on, K1:=-7.7352e-01*B2_K1_on, K2:=+7.8447e-02*B2_K2_on, K3:=+5.4514e+00*B2_K3_on; +B2.p12 : SBEND, L=0.02000, ANGLE=0.06315*PI/180, K0:=+2.2577e-08*B2_K0_on, K1:=-7.8534e-01*B2_K1_on, K2:=-1.4538e-01*B2_K2_on, K3:=+9.2976e+00*B2_K3_on; +B2.p13 : SBEND, L=0.01000, ANGLE=0.02719*PI/180, K0:=+8.7645e-08*B2_K0_on, K1:=-6.7626e-01*B2_K1_on, K2:=-3.1354e-01*B2_K2_on, K3:=+1.6050e+01*B2_K3_on; +B2.p14 : SBEND, L=0.01500, ANGLE=0.02866*PI/180, K0:=+6.3204e-08*B2_K0_on, K1:=-3.6034e-01*B2_K1_on, K2:=-2.3415e+00*B2_K2_on, K3:=+2.0402e+01*B2_K3_on; +B2.p15 : SBEND, L=0.02000, ANGLE=0.01994*PI/180, K0:=+5.4460e-07*B2_K0_on, K1:=-1.0711e-01*B2_K1_on, K2:=-2.1654e+00*B2_K2_on, K3:=+1.1296e+01*B2_K3_on; +B2.p16 : SBEND, L=0.03000, ANGLE=0.01188*PI/180, K0:=+1.3393e-07*B2_K0_on, K1:=-2.3886e-02*B2_K1_on, K2:=-8.9207e-01*B2_K2_on, K3:=+3.8284e+00*B2_K3_on; +B2.p17 : SBEND, L=0.03200, ANGLE=0.00444*PI/180, K0:=-2.8999e-07*B2_K0_on, K1:=-4.5556e-03*B2_K1_on, K2:=-2.6166e-01*B2_K2_on, K3:=+7.8754e-01*B2_K3_on; +B2.p18 : SBEND, L=0.03250, ANGLE=0.00341*PI/180, K0:=-1.3468e-07*B2_K0_on, K1:=-1.2481e-03*B2_K1_on, K2:=-1.3069e-01*B2_K2_on, K3:=+3.6679e-01*B2_K3_on; +B2.M_ACCEP : MARKER, L=0; +B2.EDGE : MARKER, L=0; +B2.MB2 : MARKER, L=0; +B2.halfseg : LINE=(B2.p1, B2.p2, B2.p3, B2.p4, B2.p5, B2.p6, B2.M_ACCEP, B2.p7, B2.p8, B2.p9, B2.p10, B2.p11, B2.p12, B2.p13, B2.EDGE, B2.p14, B2.p15, B2.p16, B2.p17, B2.p18, B2.M_ACCEP); +B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg); + + +!!! -- QUADRUPOLES -- + +!* Q20 +Q20.pB.1 = -4.74e+00; +Q20.pB.5 = +8.41e+04; +Q20.pB.9 = -1.83e+13; +Q20.pB.13 = +3.47e+20; + +STREN.Q1 := 2.818370601288; +RESCALE.Q1 := STREN.Q1 / Q20.pB.1; +Q1 : QUADRUPOLE, L=0.2000, K1:=STREN.Q1;!, K5:=Q20.pB.5*RESCALE.Q1, K9:=Q20.pB.9*RESCALE.Q1, K13:=Q20.pB.13*RESCALE.Q1; + +STREN.Q2 := 4.340329381668; +RESCALE.Q2 := STREN.Q2 / Q20.pB.1; +Q2 : QUADRUPOLE, L=0.2000, K1:=STREN.Q2;!, K5:=Q20.pB.5*RESCALE.Q2, K9:=Q20.pB.9*RESCALE.Q2, K13:=Q20.pB.13*RESCALE.Q2; + +STREN.Q3 := 3.218430939674; +RESCALE.Q3 := STREN.Q3 / Q20.pB.1; +Q3 : QUADRUPOLE, L=0.2000, K1:=STREN.Q3;!, K5:=Q20.pB.5*RESCALE.Q3, K9:=Q20.pB.9*RESCALE.Q3, K13:=Q20.pB.13*RESCALE.Q3; + +STREN.Q4 := 3.950686823494; +RESCALE.Q4 := STREN.Q4 / Q20.pB.1; +Q4 : QUADRUPOLE, L=0.2000, K1:=STREN.Q4;!, K5:=Q20.pB.5*RESCALE.Q4, K9:=Q20.pB.9*RESCALE.Q4, K13:=Q20.pB.13*RESCALE.Q4; + +STREN.QFA := 3.5731777226094446; +RESCALE.QFA := STREN.QFA / Q20.pB.1; +QFA : QUADRUPOLE, L=0.2000, K1:=STREN.QFA;!, K5:=Q20.pB.5*RESCALE.QFA, K9:=Q20.pB.9*RESCALE.QFA, K13:=Q20.pB.13*RESCALE.QFA; + +!* Q14 +Q14.pB.1 = -4.06e+00; +Q14.pB.5 = +6.38e+04; +Q14.pB.9 = -1.45e+13; +Q14.pB.13 = +2.90e+20; + +STREN.QDA := -1.619540412181686; +RESCALE.QDA := STREN.QDA / Q14.pB.1; +QDA : QUADRUPOLE, L=0.1400, K1:=STREN.QDA;!, K5:=Q14.pB.5*RESCALE.QDA, K9:=Q14.pB.9*RESCALE.QDA, K13:=Q14.pB.13*RESCALE.QDA; + +STREN.QDB1 := -2.00677456404202; +RESCALE.QDB1 := STREN.QDB1 / Q14.pB.1; +QDB1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB1;!, K5:=Q14.pB.5*RESCALE.QDB1, K9:=Q14.pB.9*RESCALE.QDB1, K13:=Q14.pB.13*RESCALE.QDB1; + +STREN.QDB2 := -3.420574744932221; +RESCALE.QDB2 := STREN.QDB2 / Q14.pB.1; +QDB2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB2;!, K5:=Q14.pB.5*RESCALE.QDB2, K9:=Q14.pB.9*RESCALE.QDB2, K13:=Q14.pB.13*RESCALE.QDB2; + +STREN.QDP1 := -2.00677456404202; +RESCALE.QDP1 := STREN.QDP1 / Q14.pB.1; +QDP1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP1;!, K5:=Q14.pB.5*RESCALE.QDP1, K9:=Q14.pB.9*RESCALE.QDP1, K13:=Q14.pB.13*RESCALE.QDP1; + +STREN.QDP2 := -3.420574744932221; +RESCALE.QDP2 := STREN.QDP2 / Q14.pB.1; +QDP2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP2;!, K5:=Q14.pB.5*RESCALE.QDP2, K9:=Q14.pB.9*RESCALE.QDP2, K13:=Q14.pB.13*RESCALE.QDP2; + +!* Q30 +Q30.pB.1 = -4.75e+00; +Q30.pB.5 = +1.06e+05; +Q30.pB.9 = -1.95e+13; +Q30.pB.13 = +3.56e+20; + +STREN.QFB := 4.115082809275146; +RESCALE.QFB := STREN.QFB / Q30.pB.1; +QFB : QUADRUPOLE, L=0.3000, K1:=STREN.QFB;!, K5:=Q30.pB.5*RESCALE.QFB, K9:=Q30.pB.9*RESCALE.QFB, K13:=Q30.pB.13*RESCALE.QFB; + +STREN.QFP := 4.115082809275146; +RESCALE.QFP := STREN.QFP / Q30.pB.1; +QFP : QUADRUPOLE, L=0.3000, K1:=STREN.QFP;!, K5:=Q30.pB.5*RESCALE.QFP, K9:=Q30.pB.9*RESCALE.QFP, K13:=Q30.pB.13*RESCALE.QFP; + + +!!! -- SEXTUPOLES -- + +SEXTUPOLES_on := 1; + +STREN.SDA0 := -80.8337; +SDA0_on := 1*SEXTUPOLES_on; +SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0*SDA0_on; + +STREN.SDB0 := -64.9422; +SDB0_on := 1*SEXTUPOLES_on; +SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0*SDB0_on; + +STREN.SDP0 := -64.9422; +SDP0_on := 1*SEXTUPOLES_on; +SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0*SDP0_on; + +STREN.SFA0 := 52.5696; +SFA0_on := 1*SEXTUPOLES_on; +SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0*SFA0_on; + +STREN.SFB0 := 73.7401; +SFB0_on := 1*SEXTUPOLES_on; +SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0*SFB0_on; + +STREN.SFP0 := 73.7401; +SFP0_on := 1*SEXTUPOLES_on; +SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0*SFP0_on; + +STREN.SDA1 := -163.0062328090773; +SDA1_on := 1*SEXTUPOLES_on; +SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1*SDA1_on; + +STREN.SDA2 := -88.88255991288263; +SDA2_on := 1*SEXTUPOLES_on; +SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2*SDA2_on; + +STREN.SDA3 := -139.94153649641189; +SDA3_on := 1*SEXTUPOLES_on; +SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3*SDA3_on; + +STREN.SFA1 := 191.76738248436368; +SFA1_on := 1*SEXTUPOLES_on; +SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1*SFA1_on; + +STREN.SFA2 := 150.74610044115283; +SFA2_on := 1*SEXTUPOLES_on; +SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2*SFA2_on; + +STREN.SDB1 := -141.68687364847958; +SDB1_on := 1*SEXTUPOLES_on; +SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1*SDB1_on; + +STREN.SDB2 := -122.31573949946443; +SDB2_on := 1*SEXTUPOLES_on; +SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2*SDB2_on; + +STREN.SDB3 := -173.8347917755106; +SDB3_on := 1*SEXTUPOLES_on; +SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3*SDB3_on; + +STREN.SFB1 := 227.7404567527413; +SFB1_on := 1*SEXTUPOLES_on; +SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1*SFB1_on; + +STREN.SFB2 := 197.7495405020359; +SFB2_on := 1*SEXTUPOLES_on; +SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2*SFB2_on; + +STREN.SDP1 := -142.31415019209263; +SDP1_on := 1*SEXTUPOLES_on; +SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1*SDP1_on; + +STREN.SDP2 := -122.28457189976633; +SDP2_on := 1*SEXTUPOLES_on; +SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2*SDP2_on; + +STREN.SDP3 := -174.1745194336169; +SDP3_on := 1*SEXTUPOLES_on; +SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3*SDP3_on; + +STREN.SFP1 := 229.17648360831797; +SFP1_on := 1*SEXTUPOLES_on; +SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1*SFP1_on; + +STREN.SFP2 := 198.4525009917773; +SFP2_on := 1*SEXTUPOLES_on; +SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2*SFP2_on; + + +!!! -- SLOW VERTICAL CORRECTOR -- +CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors + + +!!! -- PULSED MAGNETS -- +PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger + + +!!! -- FAST CORRECTORS -- +! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): +FC1 : SEXTUPOLE, L=0.084, K2=0.0; +FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward +! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): +FC2 : SEXTUPOLE, L=0.082, K2=0.0; + + +!!! -- RF CAVITY -- +HARMONIC_NUMBER = 864; +RF_VOLT := 3.0; ! [MV] +SRFCav : RFCAVITY, L=0, VOLT:=RF_VOLT, HARMON:=HARMONIC_NUMBER; +H3Cav : MARKER, L=0; ! + + +!!! -- LATTICE MARKERS -- +MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) +MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) +!# marker used to delimitate girders. +!# one marker at begin and another at end of girder: +GIR : MARKER, L=0; ! +!# marker for the extremities of IDs in long straight sections +MIDA : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDB : MARKER, L=0; ! +!# marker for the extremities of IDs in short straight sections +MIDP : MARKER, L=0; ! +!# end of injection septum +InjSeptF : MARKER, L=0; ! + + +!!! --- DIAGNOSTICS COMPONENTS --- +BPM : MONITOR; ! +IDBPM : MONITOR; ! +DCCT : MARKER, L=0; ! # dcct to measure beam current +ScrapH : MARKER, L=0; ! # horizontal scraper +GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) +GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) +GBPM : MONITOR; ! # General BPM +BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup +BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker +BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker +BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker +TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker +TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker +TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup +TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup +SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) + + +!!! --- INSERTION DEVICES (half devices) --- +IDLEN.APU22 := 1.3; +IDLEN.IVU18 := 2.0; +IDLEN.DELTA52 := 1.2; +IDLEN.APU58 := 1.3; +IDLEN.WIG180 := 2.654; +IDLEN.PAPU50 := 0.984; + +!* CARNAUBA +ID06Hu : DRIFT, L:=IDLEN.APU22/2; +ID06Hd : DRIFT, L:=IDLEN.APU22/2; + +!* CATERETE +ID07Hu : DRIFT, L:=IDLEN.APU22/2; +ID07Hd : DRIFT, L:=IDLEN.APU22/2; + +!* EMA +ID08Hu : DRIFT, L:=IDLEN.IVU18/2; +ID08Hd : DRIFT, L:=IDLEN.IVU18/2; + +!* MANACA +ID09Hu : DRIFT, L:=IDLEN.APU22/2; +ID09Hd : DRIFT, L:=IDLEN.APU22/2; + +!* SABIA +ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; +ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; + +!* IPE +ID11Hu : DRIFT, L:=IDLEN.APU58/2; +ID11Hd : DRIFT, L:=IDLEN.APU58/2; + +!* PAINEIRA +ID14Hu : DRIFT, L:=IDLEN.WIG180/2; +ID14Hd : DRIFT, L:=IDLEN.WIG180/2; + +!* SAPUCAIA +ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; +ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; + +IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector +IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 +IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) +IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector + + +!!! -- SECTORS -- +M1A : LINE=(L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) +M1AFF : LINE=( + L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, + L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) +M1B : LINE=(L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder +M1P : LINE=(L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder +M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) +M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) +M2B : LINE=(-M1B);! # low beta xxM2 girder +M2P : LINE=(-M1P);! # low beta xxM2 girder + +M2B_BbBPkup : LINE=(GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! + +! arc sector in between B1-B2 (high beta odd-numbered straight sections): +C1A : LINE=(GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, SDA2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1B : LINE=(GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, L170, SDB2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B1-B2 (low beta even-numbered straight sections): +C1P : LINE=(GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, SDP2, GIR, L205, GIR, BPM, L011);! + +! arc sector in between B2-BC (high beta odd-numbered straight sections): +C2A : LINE=(GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2B : LINE=(GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between B2-BC (low beta even-numbered straight sections): +C2P : LINE=(GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! + +! arc sector in between BC-B2 (high beta odd-numbered straight sections): +C3A : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, L170, SDA3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3B : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, L170, SDB3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between BC-B2 (low beta even-numbered straight sections): +C3P : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, L170, SDP3, GIR, L325, GIR, BPM, L011);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (high beta odd-numbered straight sections): +C4A_BbBKckrV : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, L237, BbBKckrV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_GBPM : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GBPM, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_DCCT : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4B_TunePkupV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, TunePkupV, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections) +C4B_PingV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L135, PingV, GIR, L019, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, GIR, L474, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_DCCT : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, DCCT, GIR, L237, GIR);! + +! arc sector in between B2-B1 (low beta even-numbered straight sections): +C4P_TuneShkrV : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, TuneShkrV, GIR, L237, GIR);! + +!! --- insertion sectors --- +IDA : LINE=(L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, LIA, L500);! # high beta ID straight section + +IDB : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +IDP : LINE=(L500, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDA_01_INJ : LINE=(SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, SI_INJ, LPMD);! # high beta INJ straight section and Scrapers + +IDB_02 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, H3Cav, LIB, L500);! # low beta ID straight section + +IDP_03_CAV : LINE=(L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, LIP, L500);! # low beta RF cavity straight section + +IDB_04 : LINE=(IDB); + +IDA_05 : LINE=(IDA); + +IDB_06 : LINE=(L500, LIB, L500, L350p, MIDB, ID06Hu, MIB, ID06Hd, MIDB, L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) + +IDP_07 : LINE=(L500, LIP, L500, L350p, MIDP, ID07Hu, MIP, ID07Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) + +IDB_08 : LINE=(L500, LIB, L150, L350p, MIDB, ID08Hu, MIB, ID08Hd, MIDB, L350p, L150, LIB, L500);! # low beta ID straight section (EMA) + +IDA_09 : LINE=(L500, LID3, L500p, MIDA, ID09Hu, MIA, ID09Hd, MIDA, L500p, LID3, L500);! # high beta ID straight section (MANACA) + +IDB_10 : LINE=(L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, MIDB, ID10Hu, MIB, ID10Hd, MIDB, L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) + +IDP_11 : LINE=(L500, LIP, L500, L350p, MIDP, ID11Hu, MIP, ID11Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m + +IDB_12 : LINE=(L500, LIB, L665, L100, L135, MIDB, L600p, MIB, L600p, MIDB, L135, L100, L665, LIB, L500);! # low beta ID straight section + +IDA_13 : LINE=(IDA); + +IDB_14 : LINE=(L365, LIB, L208p, IDC3, MIDB, ID14Hu, MIB, ID14Hd, MIDB, IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) + +IDP_15 : LINE=(IDP); + +IDB_16 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, BbBKckL, LIB, L500);! # low beta ID straight section + +IDA_17 : LINE=(L500, LIA, L511, L350p, IDC2, L063, MIDA, ID17Hu, MIA, ID17Hd, MIDA, L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight !# section (SAPUCAIA) + +IDB_18_TUNEPKUPH : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, TunePkupH, LIB, L500);! # low beta ID straight section + +IDB_19_GSL15 : LINE=(L500, GSL15, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section + +IDB_20_GSL07 : LINE=(L500, GSL07, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section + +! -- GIRDERS -- + +!!! -- STRAIGHT SECTIONS -- +SS_S01 : LINE=(IDA_01_INJ);! # INJECTION +SS_S02 : LINE=(IDB_02);! +SS_S03 : LINE=(IDP_03_CAV);! +SS_S04 : LINE=(IDB_04);! +SS_S05 : LINE=(IDA_05);! +SS_S06 : LINE=(IDB_06);! # CARNAUBA +SS_S07 : LINE=(IDP_07);! # CATERETE +SS_S08 : LINE=(IDB_08);! # EMA +SS_S09 : LINE=(IDA_09);! # MANACA +SS_S10 : LINE=(IDB_10);! # SABIA +SS_S11 : LINE=(IDP_11);! # IPE +SS_S12 : LINE=(IDB_12);! +SS_S13 : LINE=(IDA_13);! +SS_S14 : LINE=(IDB_14);! # PAINEIRA +SS_S15 : LINE=(IDP_15);! +SS_S16 : LINE=(IDB_16);! # INGA +SS_S17 : LINE=(IDA_17);! # SAPUCAIA +SS_S18 : LINE=(IDB_18_TUNEPKUPH);! +SS_S19 : LINE=(IDB_19_GSL15);! +SS_S20 : LINE=(IDB_20_GSL07);! + +!!! -- DOWN and UPSTREAM (straight sections) +M1_S01 : LINE=(M1AFF);! +M2_S01 : LINE=(M2AFF);! +M1_S02 : LINE=(M1B);! +M2_S02 : LINE=(M2B);! +M1_S03 : LINE=(M1P);! +M2_S03 : LINE=(M2P);! +M1_S04 : LINE=(M1B);! +M2_S04 : LINE=(M2B);! +M1_S05 : LINE=(M1A);! +M2_S05 : LINE=(M2A);! +M1_S06 : LINE=(M1B);! +M2_S06 : LINE=(M2B);! +M1_S07 : LINE=(M1P);! +M2_S07 : LINE=(M2P);! +M1_S08 : LINE=(M1B);! +M2_S08 : LINE=(M2B);! +M1_S09 : LINE=(M1A);! +M2_S09 : LINE=(M2A);! +M1_S10 : LINE=(M1B);! +M2_S10 : LINE=(M2B);! +M1_S11 : LINE=(M1P);! +M2_S11 : LINE=(M2P);! +M1_S12 : LINE=(M1B);! +M2_S12 : LINE=(M2B);! +M1_S13 : LINE=(M1A);! +M2_S13 : LINE=(M2A);! +M1_S14 : LINE=(M1B);! +M2_S14 : LINE=(M2B);! +M1_S15 : LINE=(M1P);! +M2_S15 : LINE=(M2P);! +M1_S16 : LINE=(M1B);! +M2_S16 : LINE=(M2B_BbBPkup);! +M1_S17 : LINE=(M1A);! +M2_S17 : LINE=(M2A);! +M1_S18 : LINE=(M1B);! +M2_S18 : LINE=(M2B);! +M1_S19 : LINE=(M1P);! +M2_S19 : LINE=(M2P);! +M1_S20 : LINE=(M1B);! +M2_S20 : LINE=(M2B);! + +!!! -- DISPERSIVE ARCS -- +C1_S01 : LINE=(C1A);! +C2_S01 : LINE=(C2A);! +C3_S01 : LINE=(C3B);! +C4_S01 : LINE=(C4B);! +C1_S02 : LINE=(C1B);! +C2_S02 : LINE=(C2B);! +C3_S02 : LINE=(C3P);! +C4_S02 : LINE=(C4P);! +C1_S03 : LINE=(C1P);! +C2_S03 : LINE=(C2P);! +C3_S03 : LINE=(C3B);! +C4_S03 : LINE=(C4B);! +C1_S04 : LINE=(C1B);! +C2_S04 : LINE=(C2B);! +C3_S04 : LINE=(C3A);! +C4_S04 : LINE=(C4A);! +C1_S05 : LINE=(C1A);! +C2_S05 : LINE=(C2A);! +C3_S05 : LINE=(C3B);! +C4_S05 : LINE=(C4B);! +C1_S06 : LINE=(C1B);! +C2_S06 : LINE=(C2B);! +C3_S06 : LINE=(C3P);! +C4_S06 : LINE=(C4P);! +C1_S07 : LINE=(C1P);! +C2_S07 : LINE=(C2P);! +C3_S07 : LINE=(C3B);! +C4_S07 : LINE=(C4B);! +C1_S08 : LINE=(C1B);! +C2_S08 : LINE=(C2B);! +C3_S08 : LINE=(C3A);! +C4_S08 : LINE=(C4A);! +C1_S09 : LINE=(C1A);! +C2_S09 : LINE=(C2A);! +C3_S09 : LINE=(C3B);! +C4_S09 : LINE=(C4B);! +C1_S10 : LINE=(C1B);! +C2_S10 : LINE=(C2B);! +C3_S10 : LINE=(C3P);! +C4_S10 : LINE=(C4P);! +C1_S11 : LINE=(C1P);! +C2_S11 : LINE=(C2P);! +C3_S11 : LINE=(C3B);! +C4_S11 : LINE=(C4B);! +C1_S12 : LINE=(C1B);! +C2_S12 : LINE=(C2B);! +C3_S12 : LINE=(C3A);! +C4_S12 : LINE=(C4A);! +C1_S13 : LINE=(C1A);! +C2_S13 : LINE=(C2A);! +C3_S13 : LINE=(C3B);! +C4_S13 : LINE=(C4B_DCCT);! +C1_S14 : LINE=(C1B);! +C2_S14 : LINE=(C2B);! +C3_S14 : LINE=(C3P);! +C4_S14 : LINE=(C4P_DCCT);! +C1_S15 : LINE=(C1P);! +C2_S15 : LINE=(C2P);! +C3_S15 : LINE=(C3B);! +C4_S15 : LINE=(C4B_GBPM);! +C1_S16 : LINE=(C1B);! +C2_S16 : LINE=(C2B);! +C3_S16 : LINE=(C3A);! +C4_S16 : LINE=(C4A_BbBKckrV);! +C1_S17 : LINE=(C1A);! +C2_S17 : LINE=(C2A);! +C3_S17 : LINE=(C3B);! +C4_S17 : LINE=(C4B_TunePkupV);! +C1_S18 : LINE=(C1B);! +C2_S18 : LINE=(C2B);! +C3_S18 : LINE=(C3P);! +C4_S18 : LINE=(C4P_TuneShkrV);! +C1_S19 : LINE=(C1P);! +C2_S19 : LINE=(C2P);! +C3_S19 : LINE=(C3B);! +C4_S19 : LINE=(C4B_PingV);! +C1_S20 : LINE=(C1B);! +C2_S20 : LINE=(C2B);! +C3_S20 : LINE=(C3A);! +C4_S20 : LINE=(C4A);! + +!!! -- SECTORS 01..20 -- +S01 : LINE=(M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, C3_S01, B2, C4_S01, B1);! +S02 : LINE=(M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, C3_S02, B2, C4_S02, B1);! +S03 : LINE=(M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, C3_S03, B2, C4_S03, B1);! +S04 : LINE=(M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, C3_S04, B2, C4_S04, B1);! +S05 : LINE=(M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, C3_S05, B2, C4_S05, B1);! +S06 : LINE=(M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, C3_S06, B2, C4_S06, B1);! +S07 : LINE=(M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, C3_S07, B2, C4_S07, B1);! +S08 : LINE=(M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, C3_S08, B2, C4_S08, B1);! +S09 : LINE=(M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, C3_S09, B2, C4_S09, B1);! +S10 : LINE=(M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, C3_S10, B2, C4_S10, B1);! +S11 : LINE=(M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, C3_S11, B2, C4_S11, B1);! +S12 : LINE=(M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, C3_S12, B2, C4_S12, B1);! +S13 : LINE=(M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, C3_S13, B2, C4_S13, B1);! +S14 : LINE=(M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, C3_S14, B2, C4_S14, B1);! +S15 : LINE=(M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, C3_S15, B2, C4_S15, B1);! +S16 : LINE=(M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, C3_S16, B2, C4_S16, B1);! +S17 : LINE=(M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, C3_S17, B2, C4_S17, B1);! +S18 : LINE=(M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, C3_S18, B2, C4_S18, B1);! +S19 : LINE=(M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, C3_S19, B2, C4_S19, B1);! +S20 : LINE=(M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, C3_S20, B2, C4_S20, B1);! + +!!! -- The ring -- +SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! + +! LINE <-> SEQUENCE "creator/converter" +BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; +USE, PERIOD=SI; +SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; +CALL, FILE=sirius-ring.temp; +REMOVEFILE, FILE=sirius-ring.temp; + +! SEQUENCE definition +SEQEDIT, SEQUENCE=SI; +FLATTEN; +CYCLE, START=M_START; +ENDEDIT; diff --git a/other-simulators/MAD/trackcpp2MADX_converter.py b/other-simulators/MAD/trackcpp2MADX_converter.py index 6805ec1..1339187 100644 --- a/other-simulators/MAD/trackcpp2MADX_converter.py +++ b/other-simulators/MAD/trackcpp2MADX_converter.py @@ -1,32 +1,34 @@ -from pymodels import si -from pymodels.SI_V25_04.lattice import get_optics_mode -# import numpy as np -# import pyaccel as pa -# from pymodels.SI_V25_04.segmented_models import dipole_b1, dipole_b2, dipole_bc +"""MAD-X SIRIUS Storage Ring Model 'sequence' constructor.""" + +# > Updated: 09/09/2024 ~ 14h40 +# > VERSION: SI_V25_04 ~ from pymodels +# > Based on the files: +# - pymodels/SI_V25_04/segmented_models.py +# - pymodels/SI_V25_04/lattice.py +from pymodels.SI_V25_04.lattice import get_optics_mode -acc = si.create_accelerator() -fam = si.families.get_family_data(acc) -strengs = get_optics_mode() +strengs = get_optics_mode() # Quadrupoles and Sextupoles strengths -use_rbend = False # Define dipoles as RBEND instead of SBEND +use_rbend = False # Define dipoles as RBEND instead of SBEND if use_rbend: - bendtype = "RBEND" + bendtype = "RBEND" # Rectangular bending magnets else: - bendtype = "SBEND" + bendtype = "SBEND" # Sector bending magnets stri = """!!! SIRIUS Storage Ring Model -! Date: 06-September-2024 +! Date: 09-September-2024 ! Version: SI_V25_04 + !!! -- INITIAL PARAMETERS -- -ACCLEN := 0;! circum_new := 518.3899; ! [m] circum_old := 518.3960; ! [m] dcircum := circum_new - circum_old; dcircum_frac := dcircum/20.0/2.0; ! divide circumference difference in all 20 straight sections + !!! -- INJECTION SECTOR -- L500p: DRIFT, L=0.500 + dcircum_frac; @@ -78,6 +80,7 @@ !* INJECTION SECTOR SELECTION : NLK_END SI_INJ : LINE=(INJ_SEC_NLK_END); + !!! -- DRIFTS -- LIA : DRIFT, L=1.5179; @@ -141,7 +144,8 @@ """ -st = f"""!!! -- DIPOLES -- +st = f""" +!!! -- DIPOLES -- DIPOLES_K0_on := 0; DIPOLES_K1_on := 1; @@ -152,36 +156,69 @@ if use_rbend: st += "\nOPTION, RBARC = FALSE;\n" -# print(st) -stri += st + '\n' - -# print("!* BC") +stri += st + "\n" stri += "!* BC\n" + monomials = [0, 1, 2, 3, 4, 5, 6, 7, 8, 10] segmodel = [ - # len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) PolyB(n=7) PolyB(n=8) PolyB(n=10) - ['BC', 0.00100, 0.01877, -1.4741e-05, -3.2459e-03, -2.5934e+01, +2.2655e+02, -4.2041e+05, -1.9362e+06, -8.8515e+08, +1.8066e+10, -4.1927e+13, +1.8535e+17], - ['BC', 0.00400, 0.07328, -3.5868e-06, -8.0872e-03, -2.3947e+01, +1.9896e+02, -3.8312e+05, -1.5555e+06, -8.7538e+08, +1.5588e+10, -3.4411e+13, +1.5036e+17], - ['BC', 0.00500, 0.08149, -1.5878e-06, -2.2156e-02, -1.6636e+01, +9.5225e+01, -2.4803e+05, -2.8667e+05, -6.2015e+08, +5.9788e+09, -1.1795e+13, +5.3967e+16], - ['BC', 0.00500, 0.06914, -2.2515e-06, -2.6794e-02, -9.9744e+00, +4.0910e+01, -1.2934e+05, -1.8459e+04, +6.5912e+06, +1.8432e+09, -3.7282e+12, +1.5831e+16], - ['BC', 0.00500, 0.05972, +2.4800e-07, -2.6704e-02, -7.1238e+00, +2.8365e+01, -7.1836e+04, -1.7947e+05, +2.5073e+08, +1.9029e+09, -3.3936e+12, +1.2829e+16], - ['BC', 0.01000, 0.09814, -7.2919e-07, -2.5788e-02, -5.4243e+00, +1.8297e+01, -3.6399e+04, -1.8928e+05, +2.7961e+08, +1.5270e+09, -3.1054e+12, +1.1735e+16], - ['BC', 0.01000, 0.07568, -1.8658e-06, -2.4549e-02, -3.7961e+00, +7.9939e+00, -1.8270e+04, -9.0518e+04, +2.3235e+08, +8.1040e+08, -2.4656e+12, +9.3410e+15], - ['BC', 0.01000, 0.05755, -6.9437e-07, -1.9501e-02, -2.2458e+00, +2.9742e+00, -1.0525e+04, -1.8749e+04, +1.6339e+08, +2.9806e+08, -1.6673e+12, +6.2159e+15], - ['BC', 0.01000, 0.04544, -1.2861e-07, -1.2764e-03, -8.7276e-01, -4.5371e-01, -5.5830e+03, +2.6585e+04, +9.6483e+07, +1.2858e+06, -1.0053e+12, +3.9069e+15], - ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['BC', 0.03200, 0.11887, -3.6974e-08, +1.2757e-02, +1.1825e+00, +1.8453e+00, -4.6262e+03, +2.4200e+04, +7.3751e+07, -6.3579e+07, -7.8054e+11, +3.0544e+15], - ['BC', 0.03200, 0.09720, -9.0591e-07, -1.2063e-01, +5.2835e-01, +1.0917e+01, -3.2323e+03, -1.8683e+03, +4.9009e+07, -4.9946e+07, -4.6379e+11, +1.7988e+15], - ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['BC', 0.16000, 0.62161, -1.1668e-06, -8.9725e-01, +4.4207e-01, +3.2247e+01, +1.9416e+03, -2.8567e+05, -5.0265e+07, +1.4028e+09, +6.1042e+11, -2.5574e+15], - ['BC', 0.16000, 0.62274, +2.8034e-07, -9.0717e-01, +2.0879e-01, -6.2815e-01, +1.9822e+03, +2.4218e+05, -4.1507e+07, -1.1837e+09, +4.3276e+11, -1.5769e+15], - ['BC', 0.01200, 0.04249, +5.4796e-07, -8.8611e-01, +4.9910e-01, +2.4958e+01, -9.4206e+03, -1.6025e+05, +1.8960e+08, +8.8432e+08, -1.6666e+12, +5.5453e+15], - ['BC_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['BC', 0.01400, 0.03339, -4.4895e-07, -4.4684e-01, -1.8750e+00, +2.2077e+01, -5.5912e+03, -1.6748e+05, +1.0327e+08, +9.3221e+08, -8.6332e+11, +2.7550e+15], - ['BC', 0.01600, 0.01935, +7.1551e-07, -1.1215e-01, -1.9597e+00, +1.3313e+01, -3.5424e+03, -1.6337e+05, +6.3653e+07, +8.9179e+08, -5.4044e+11, +1.7393e+15], - ['BC', 0.03500, 0.01344, -1.7487e-07, -1.9828e-02, -1.2534e+00, +1.9342e+01, +2.8084e+03, -2.9546e+05, -5.0640e+07, +1.4694e+09, +4.0940e+11, -1.2172e+15] + # len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) PolyB(n=7) PolyB(n=8) PolyB(n=10) + ["BC", + 0.00100, 0.01877, -1.4741e-05, -3.2459e-03, -2.5934e01, +2.2655e02, -4.2041e05, -1.9362e06, -8.8515e08, +1.8066e10, -4.1927e13, +1.8535e17, + ], + ["BC", + 0.00400, 0.07328, -3.5868e-06, -8.0872e-03, -2.3947e01, +1.9896e02, -3.8312e05, -1.5555e06, -8.7538e08, +1.5588e10, -3.4411e13, +1.5036e17, + ], + ["BC", + 0.00500, 0.08149, -1.5878e-06, -2.2156e-02, -1.6636e01, +9.5225e01, -2.4803e05, -2.8667e05, -6.2015e08, +5.9788e09, -1.1795e13, +5.3967e16, + ], + ["BC", + 0.00500, 0.06914, -2.2515e-06, -2.6794e-02, -9.9744e00, +4.0910e01, -1.2934e05, -1.8459e04, +6.5912e06, +1.8432e09, -3.7282e12, +1.5831e16, + ], + ["BC", + 0.00500, 0.05972, +2.4800e-07, -2.6704e-02, -7.1238e00, +2.8365e01, -7.1836e04, -1.7947e05, +2.5073e08, +1.9029e09, -3.3936e12, +1.2829e16, + ], + ["BC", + 0.01000, 0.09814, -7.2919e-07, -2.5788e-02, -5.4243e00, +1.8297e01, -3.6399e04, -1.8928e05, +2.7961e08, +1.5270e09, -3.1054e12, +1.1735e16, + ], + ["BC", + 0.01000, 0.07568, -1.8658e-06, -2.4549e-02, -3.7961e00, +7.9939e00, -1.8270e04, -9.0518e04, +2.3235e08, +8.1040e08, -2.4656e12, +9.3410e15, + ], + ["BC", + 0.01000, 0.05755, -6.9437e-07, -1.9501e-02, -2.2458e00, +2.9742e00, -1.0525e04, -1.8749e04, +1.6339e08, +2.9806e08, -1.6673e12, +6.2159e15, + ], + ["BC", + 0.01000, 0.04544, -1.2861e-07, -1.2764e-03, -8.7276e-01, -4.5371e-01, -5.5830e03, +2.6585e04, +9.6483e07, +1.2858e06, -1.0053e12, +3.9069e15, + ], + ["m_accep", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["BC", + 0.03200, 0.11887, -3.6974e-08, +1.2757e-02, +1.1825e00, +1.8453e00, -4.6262e03, +2.4200e04, +7.3751e07, -6.3579e07, -7.8054e11, +3.0544e15, + ], + ["BC", + 0.03200, 0.09720, -9.0591e-07, -1.2063e-01, +5.2835e-01, +1.0917e01, -3.2323e03, -1.8683e03, +4.9009e07, -4.9946e07, -4.6379e11, +1.7988e15, + ], + ["m_accep", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["BC", + 0.16000, 0.62161, -1.1668e-06, -8.9725e-01, +4.4207e-01, +3.2247e01, +1.9416e03, -2.8567e05, -5.0265e07, +1.4028e09, +6.1042e11, -2.5574e15, + ], + ["BC", + 0.16000, 0.62274, +2.8034e-07, -9.0717e-01, +2.0879e-01, -6.2815e-01, +1.9822e03, +2.4218e05, -4.1507e07, -1.1837e09, +4.3276e11, -1.5769e15, + ], + ["BC", + 0.01200, 0.04249, +5.4796e-07, -8.8611e-01, +4.9910e-01, +2.4958e01, -9.4206e03, -1.6025e05, +1.8960e08, +8.8432e08, -1.6666e12, +5.5453e15, + ], + ["BC_EDGE", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["BC", + 0.01400, 0.03339, -4.4895e-07, -4.4684e-01, -1.8750e00, +2.2077e01, -5.5912e03, -1.6748e05, +1.0327e08, +9.3221e08, -8.6332e11, +2.7550e15, + ], + ["BC", + 0.01600, 0.01935, +7.1551e-07, -1.1215e-01, -1.9597e00, +1.3313e01, -3.5424e03, -1.6337e05, +6.3653e07, +8.9179e08, -5.4044e11, +1.7393e15, + ], + ["BC", + 0.03500, 0.01344, -1.7487e-07, -1.9828e-02, -1.2534e00, +1.9342e01, +2.8084e03, -2.9546e05, -5.0640e07, +1.4694e09, +4.0940e11, -1.2172e15, + ], ] -bcp = 0 +bcp = 0 + def bcpstr(segm, cc): st = f"BC.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " st += f"K0:={seg[3]:+.4e}*BC_K0_on, " @@ -189,64 +226,97 @@ def bcpstr(segm, cc): st += f"K2:={seg[5]:+.4e}*BC_K2_on, " st += f"K3:={seg[6]:+.4e}*BC_K3_on;" return st -st = "BC_K0_on := 1*DIPOLES_K0_on;\n" +\ -"BC_K1_on := 1*DIPOLES_K1_on;\n" +\ -"BC_K2_on := 1*DIPOLES_K2_on;\n" +\ -"BC_K3_on := 1*DIPOLES_K3_on;" -# print(st) -stri += st + '\n' + +st = ( + "BC_K0_on := 1*DIPOLES_K0_on;\n" + + "BC_K1_on := 1*DIPOLES_K1_on;\n" + + "BC_K2_on := 1*DIPOLES_K2_on;\n" + + "BC_K3_on := 1*DIPOLES_K3_on;" +) + +stri += st + "\n" tst = "BC.halfseg : LINE=(" -for i,seg in enumerate(segmodel): +for i, seg in enumerate(segmodel): md = seg[0] - if md == 'BC': + if md == "BC": bcp += 1 st = bcpstr(seg, bcp) tst += st[:6].replace(" ", "") - # print(st) stri += st + "\n" - elif md == 'm_accep': + elif md == "m_accep": st = f"BC.M_ACCEP" tst += st - elif md == 'BC_EDGE': + elif md == "BC_EDGE": st = f"BC.EDGE" tst += st - tst += ', ' -st = "BC.M_ACCEP : MARKER, L=0;\n" +\ -f"BC.EDGE : MARKER, L=0;\n" +\ -f"BC.MC : MARKER, L=0;" -# print(st) -stri += st + '\n' + tst += ", " +st = ( + "BC.M_ACCEP : MARKER, L=0;\n" + + f"BC.EDGE : MARKER, L=0;\n" + + f"BC.MC : MARKER, L=0;" +) + +stri += st + "\n" tst = tst[:-2] tst += ");" -# print(tst) stri += tst + "\n" st = f"BC : LINE=(-BC.halfseg, BC.MC, BC.M_ACCEP, BC.halfseg);\n" -# print(st) -stri += st + '\n' -# print("!* B1") +stri += st + "\n" + stri += "!* B1\n" monomials = [0, 1, 2, 3, 4, 5, 6] segmodel = [ # type len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) - ['B1', 0.00200, 0.00633, -1.9696e-06, -7.2541e-01, -5.4213e-01, +5.4347e+00, +2.5091e+02, +4.9772e+02, -1.9113e+06], - ['B1', 0.00300, 0.00951, -3.8061e-06, -7.2968e-01, -4.5292e-01, +4.3822e+00, +3.1863e+02, +1.5282e+03, -2.3387e+06], - ['B1', 0.00500, 0.01592, -4.7568e-07, -7.4227e-01, -2.1669e-01, +2.9544e+00, +2.9316e+02, +1.4632e+03, -2.0877e+06], - ['B1', 0.00500, 0.01603, -1.9480e-06, -7.5771e-01, -1.0657e-02, +3.5007e+00, +2.9571e+02, -1.7742e+03, -2.0010e+06], - ['B1', 0.00500, 0.01611, -2.7633e-06, -7.6662e-01, +3.3285e-02, +4.7919e+00, +3.3381e+02, -3.3109e+03, -2.0402e+06], - ['B1', 0.01000, 0.03236, -1.9098e-06, -7.7081e-01, +1.6451e-02, +5.3028e+00, +3.7119e+02, -4.8877e+03, -2.0590e+06], - ['B1', 0.04000, 0.12963, -1.6309e-06, -7.7247e-01, +4.8673e-02, +4.6505e+00, +3.3306e+02, -2.1646e+03, -1.5868e+06], - ['B1', 0.15000, 0.48382, -1.9888e-06, -7.7332e-01, +9.7601e-02, +5.3336e+00, +2.5126e+02, +8.0649e+02, -9.2335e+05], - ['B1', 0.10000, 0.32247, -2.1025e-06, -7.7271e-01, +1.1969e-01, +5.6811e+00, +2.1496e+02, +5.2023e+03, -6.0518e+05], - ['B1', 0.05000, 0.16165, -2.1257e-06, -7.7203e-01, +5.6224e-02, +4.5293e+00, +6.3908e+01, +6.1651e+03, +3.4951e+05], - ['B1', 0.03400, 0.10509, -1.8623e-06, -7.7144e-01, -1.2160e-01, +9.1976e+00, -5.3231e+01, +9.0360e+03, +7.2783e+05], - ['B1_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['B1', 0.01600, 0.03414, -9.6169e-07, -4.5231e-01, -1.8149e+00, +1.9400e+01, -2.2843e+02, +1.6525e+04, -4.0477e+04], - ['B1', 0.04000, 0.03296, -5.2504e-07, -8.6643e-02, -1.7536e+00, +8.5147e+00, -5.8350e+01, +4.2954e+03, -3.7834e+04], - ['B1', 0.04000, 0.00774, -1.6259e-07, -8.3065e-03, -3.8990e-01, +1.3183e+00, +2.5814e+01, +3.1642e+02, -5.0464e+04], - ['B1', 0.05000, 0.00389, -7.9445e-08, -1.0742e-03, -9.8271e-02, +5.0359e-02, -1.0312e+01, +9.0013e+02, +8.2477e+04], - ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] + ["B1", + 0.00200, 0.00633, -1.9696e-06, -7.2541e-01, -5.4213e-01, +5.4347e00, +2.5091e02, +4.9772e02, -1.9113e06, + ], + ["B1", + 0.00300, 0.00951, -3.8061e-06, -7.2968e-01, -4.5292e-01, +4.3822e00, +3.1863e02, +1.5282e03, -2.3387e06, + ], + ["B1", + 0.00500, 0.01592, -4.7568e-07, -7.4227e-01, -2.1669e-01, +2.9544e00, +2.9316e02, +1.4632e03, -2.0877e06, + ], + ["B1", + 0.00500, 0.01603, -1.9480e-06, -7.5771e-01, -1.0657e-02, +3.5007e00, +2.9571e02, -1.7742e03, -2.0010e06, + ], + ["B1", + 0.00500, 0.01611, -2.7633e-06, -7.6662e-01, +3.3285e-02, +4.7919e00, +3.3381e02, -3.3109e03, -2.0402e06, + ], + ["B1", + 0.01000, 0.03236, -1.9098e-06, -7.7081e-01, +1.6451e-02, +5.3028e00, +3.7119e02, -4.8877e03, -2.0590e06, + ], + ["B1", + 0.04000, 0.12963, -1.6309e-06, -7.7247e-01, +4.8673e-02, +4.6505e00, +3.3306e02, -2.1646e03, -1.5868e06, + ], + ["B1", + 0.15000, 0.48382, -1.9888e-06, -7.7332e-01, +9.7601e-02, +5.3336e00, +2.5126e02, +8.0649e02, -9.2335e05, + ], + ["B1", + 0.10000, 0.32247, -2.1025e-06, -7.7271e-01, +1.1969e-01, +5.6811e00, +2.1496e02, +5.2023e03, -6.0518e05, + ], + ["B1", + 0.05000, 0.16165, -2.1257e-06, -7.7203e-01, +5.6224e-02, +4.5293e00, +6.3908e01, +6.1651e03, +3.4951e05, + ], + ["B1", + 0.03400, 0.10509, -1.8623e-06, -7.7144e-01, -1.2160e-01, +9.1976e00, -5.3231e01, +9.0360e03, +7.2783e05, + ], + ["B1_EDGE", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["B1", + 0.01600, 0.03414, -9.6169e-07, -4.5231e-01, -1.8149e00, +1.9400e01, -2.2843e02, +1.6525e04, -4.0477e04, + ], + ["B1", + 0.04000, 0.03296, -5.2504e-07, -8.6643e-02, -1.7536e00, +8.5147e00, -5.8350e01, +4.2954e03, -3.7834e04, + ], + ["B1", + 0.04000, 0.00774, -1.6259e-07, -8.3065e-03, -3.8990e-01, +1.3183e00, +2.5814e01, +3.1642e02, -5.0464e04, + ], + ["B1", + 0.05000, 0.00389, -7.9445e-08, -1.0742e-03, -9.8271e-02, +5.0359e-02, -1.0312e01, +9.0013e02, +8.2477e04, + ], + ["m_accep", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], ] -b1p = 0 + +b1p = 0 def b1pstr(segm, cc): st = f"B1.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " st += f"K0:={seg[3]:+.4e}*B1_K0_on, " @@ -254,39 +324,44 @@ def b1pstr(segm, cc): st += f"K2:={seg[5]:+.4e}*B1_K2_on, " st += f"K3:={seg[6]:+.4e}*B1_K3_on;" return st -st = "B1_K0_on := 1*DIPOLES_K0_on;\n" +\ -"B1_K1_on := 1*DIPOLES_K1_on;\n" +\ -"B1_K2_on := 1*DIPOLES_K2_on;\n" +\ -"B1_K3_on := 1*DIPOLES_K3_on;" -# print(st) -stri += st + '\n' + +st = ( + "B1_K0_on := 1*DIPOLES_K0_on;\n" + + "B1_K1_on := 1*DIPOLES_K1_on;\n" + + "B1_K2_on := 1*DIPOLES_K2_on;\n" + + "B1_K3_on := 1*DIPOLES_K3_on;" +) +stri += st + "\n" + hseg = "B1.halfseg.2 : LINE=(" ihsegst = "B1.halfseg.1 : LINE=(" ihseg = [] -for i,seg in enumerate(segmodel): + +for i, seg in enumerate(segmodel): md = seg[0] - if md == 'B1': + if md == "B1": b1p += 1 st = b1pstr(seg, b1p) hseg += st[:6].replace(" ", "") ihseg += [st[:6].replace(" ", "")] - # print(st) - stri += st + '\n' - elif md == 'm_accep': + stri += st + "\n" + elif md == "m_accep": st = f"B1.M_ACCEP" hseg += st ihseg += [st] - elif md == 'B1_EDGE': + elif md == "B1_EDGE": st = f"B1.EDGE" hseg += st ihseg += [st] - hseg += ', ' -st = "B1.M_ACCEP : MARKER, L=0;\n" +\ -"B1.EDGE : MARKER, L=0;\n" +\ -"B1_SRC : MARKER, L=0;\n" +\ -"B1.MB1 : MARKER, L=0;" -# print(st) -stri += st + '\n' + hseg += ", " + +st = ( + "B1.M_ACCEP : MARKER, L=0;\n" + + "B1.EDGE : MARKER, L=0;\n" + + "B1_SRC : MARKER, L=0;\n" + + "B1.MB1 : MARKER, L=0;" +) +stri += st + "\n" hseg = hseg[:-2] hseg += ");" @@ -294,43 +369,77 @@ def b1pstr(segm, cc): ihseg.insert(7, "B1_SRC") ihseg = ihsegst + ", ".join(ihseg) + ");" -# print(ihseg) -stri += ihseg + '\n' -# print(hseg) -stri += hseg + '\n' + +stri += ihseg + "\n" +stri += hseg + "\n" st = "B1 : LINE=(B1.halfseg.1, B1.MB1, B1.M_ACCEP, B1.halfseg.2);" -# print(st) -stri += st + '\n\n' -# print("!* B2") -stri += "!* B2\n" +stri += st + "\n\n" +stri += "!* B2\n" monomials = [0, 1, 2, 3, 4, 5, 6] segmodel = [ - #type len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) - ['B2', 0.12500, 0.40623, +2.8141e-07, -7.7535e-01, +3.8504e-02, +1.7048e+00, -2.6809e+02, +8.8090e+03, +1.8541e+06], - ['B2', 0.05500, 0.17963, +2.4869e-07, -7.7400e-01, +1.8903e-02, +1.3538e+00, -2.7871e+02, +8.4667e+03, +1.7913e+06], - ['B2', 0.01000, 0.03260, -1.4532e-07, -7.6990e-01, -7.3993e-03, +1.4325e+00, -3.7053e+02, +9.0098e+03, +1.8818e+06], - ['B2', 0.00500, 0.01624, -9.6976e-07, -7.6272e-01, -4.4905e-02, +3.7505e-01, -4.0759e+02, +1.0527e+04, +1.8729e+06], - ['B2', 0.00500, 0.01619, -8.5112e-08, -7.5413e-01, -1.7000e-01, +1.3254e-01, -4.2095e+02, +1.2650e+04, +1.8762e+06], - ['B2', 0.00500, 0.01616, +5.0825e-07, -7.4866e-01, -2.8166e-01, +7.1392e-01, -3.5386e+02, +1.3287e+04, +1.5160e+06], - ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['B2', 0.00500, 0.01618, +1.7001e-06, -7.5218e-01, -2.1312e-01, +3.8486e-01, -3.9031e+02, +1.2889e+04, +1.7072e+06], - ['B2', 0.01000, 0.03254, +1.3585e-06, -7.6428e-01, -4.1565e-02, +6.7680e-01, -4.0577e+02, +1.0602e+04, +1.8735e+06], - ['B2', 0.01000, 0.03269, +2.9027e-07, -7.7165e-01, -8.0002e-03, +1.7812e+00, -3.2568e+02, +8.2067e+03, +1.7365e+06], - ['B2', 0.17500, 0.57073, -1.1637e-07, -7.7428e-01, +6.8988e-02, +4.1024e+00, -5.1871e+01, +7.5752e+02, +5.9943e+05], - ['B2', 0.17500, 0.57034, -3.3225e-07, -7.7352e-01, +7.8447e-02, +5.4514e+00, +1.9975e+02, +3.3621e+03, -3.1314e+05], - ['B2', 0.02000, 0.06315, +2.2577e-08, -7.8534e-01, -1.4538e-01, +9.2976e+00, -1.5715e+02, +1.2311e+04, +1.1408e+06], - ['B2', 0.01000, 0.02719, +8.7645e-08, -6.7626e-01, -3.1354e-01, +1.6050e+01, -3.9938e+02, +1.6288e+04, +8.1085e+05], - ['B2_EDGE', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], - ['B2', 0.01500, 0.02866, +6.3204e-08, -3.6034e-01, -2.3415e+00, +2.0402e+01, -3.9166e+02, +1.9055e+04, +3.1586e+05], - ['B2', 0.02000, 0.01994, +5.4460e-07, -1.0711e-01, -2.1654e+00, +1.1296e+01, -1.7816e+02, +7.2357e+03, +1.6786e+05], - ['B2', 0.03000, 0.01188, +1.3393e-07, -2.3886e-02, -8.9207e-01, +3.8284e+00, -1.5146e+01, +5.3693e+02, +7.8230e+04], - ['B2', 0.03200, 0.00444, -2.8999e-07, -4.5556e-03, -2.6166e-01, +7.8754e-01, +1.5573e+00, +8.3579e+01, +3.8831e+04], - ['B2', 0.03250, 0.00341, -1.3468e-07, -1.2481e-03, -1.3069e-01, +3.6679e-01, +1.3671e+01, -7.7370e+02, -2.9544e+04], - ['m_accep', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] + # type len[m] angle[deg] PolyB(n=0) PolyB(n=1) PolyB(n=2) PolyB(n=3) PolyB(n=4) PolyB(n=5) PolyB(n=6) + ["B2", + 0.12500, 0.40623, +2.8141e-07, -7.7535e-01, +3.8504e-02, +1.7048e00, -2.6809e02, +8.8090e03, +1.8541e06, + ], + ["B2", + 0.05500, 0.17963, +2.4869e-07, -7.7400e-01, +1.8903e-02, +1.3538e00, -2.7871e02, +8.4667e03, +1.7913e06, + ], + ["B2", + 0.01000, 0.03260, -1.4532e-07, -7.6990e-01, -7.3993e-03, +1.4325e00, -3.7053e02, +9.0098e03, +1.8818e06, + ], + ["B2", + 0.00500, 0.01624, -9.6976e-07, -7.6272e-01, -4.4905e-02, +3.7505e-01, -4.0759e02, +1.0527e04, +1.8729e06, + ], + ["B2", + 0.00500, 0.01619, -8.5112e-08, -7.5413e-01, -1.7000e-01, +1.3254e-01, -4.2095e02, +1.2650e04, +1.8762e06, + ], + ["B2", + 0.00500, 0.01616, +5.0825e-07, -7.4866e-01, -2.8166e-01, +7.1392e-01, -3.5386e02, +1.3287e04, +1.5160e06, + ], + ["m_accep", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["B2", + 0.00500, 0.01618, +1.7001e-06, -7.5218e-01, -2.1312e-01, +3.8486e-01, -3.9031e02, +1.2889e04, +1.7072e06, + ], + ["B2", + 0.01000, 0.03254, +1.3585e-06, -7.6428e-01, -4.1565e-02, +6.7680e-01, -4.0577e02, +1.0602e04, +1.8735e06, + ], + ["B2", + 0.01000, 0.03269, +2.9027e-07, -7.7165e-01, -8.0002e-03, +1.7812e00, -3.2568e02, +8.2067e03, +1.7365e06, + ], + ["B2", + 0.17500, 0.57073, -1.1637e-07, -7.7428e-01, +6.8988e-02, +4.1024e00, -5.1871e01, +7.5752e02, +5.9943e05, + ], + ["B2", + 0.17500, 0.57034, -3.3225e-07, -7.7352e-01, +7.8447e-02, +5.4514e00, +1.9975e02, +3.3621e03, -3.1314e05, + ], + ["B2", + 0.02000, 0.06315, +2.2577e-08, -7.8534e-01, -1.4538e-01, +9.2976e00, -1.5715e02, +1.2311e04, +1.1408e06, + ], + ["B2", + 0.01000, 0.02719, +8.7645e-08, -6.7626e-01, -3.1354e-01, +1.6050e01, -3.9938e02, +1.6288e04, +8.1085e05, + ], + ["B2_EDGE", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], + ["B2", + 0.01500, 0.02866, +6.3204e-08, -3.6034e-01, -2.3415e00, +2.0402e01, -3.9166e02, +1.9055e04, +3.1586e05, + ], + ["B2", + 0.02000, 0.01994, +5.4460e-07, -1.0711e-01, -2.1654e00, +1.1296e01, -1.7816e02, +7.2357e03, +1.6786e05, + ], + ["B2", + 0.03000, 0.01188, +1.3393e-07, -2.3886e-02, -8.9207e-01, +3.8284e00, -1.5146e01, +5.3693e02, +7.8230e04, + ], + ["B2", + 0.03200, 0.00444, -2.8999e-07, -4.5556e-03, -2.6166e-01, +7.8754e-01, +1.5573e00, +8.3579e01, +3.8831e04, + ], + ["B2", + 0.03250, 0.00341, -1.3468e-07, -1.2481e-03, -1.3069e-01, +3.6679e-01, +1.3671e01, -7.7370e02, -2.9544e04, + ], + ["m_accep", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], ] -b2p = 0 + +b2p = 0 maccp = 0 def b2pstr(segm, cc): st = f"B2.p{cc} : {bendtype}, L={segm[1]:.5f}, ANGLE={seg[2]:.5f}*PI/180, " @@ -339,57 +448,62 @@ def b2pstr(segm, cc): st += f"K2:={seg[5]:+.4e}*B2_K2_on, " st += f"K3:={seg[6]:+.4e}*B2_K3_on;" return st -st = "B2_K0_on := 1*DIPOLES_K0_on;\n" +\ -"B2_K1_on := 1*DIPOLES_K1_on;\n" +\ -"B2_K2_on := 1*DIPOLES_K2_on;\n" +\ -"B2_K3_on := 1*DIPOLES_K3_on;" -# print(st) -stri += st + '\n' + +st = ( + "B2_K0_on := 1*DIPOLES_K0_on;\n" + + "B2_K1_on := 1*DIPOLES_K1_on;\n" + + "B2_K2_on := 1*DIPOLES_K2_on;\n" + + "B2_K3_on := 1*DIPOLES_K3_on;" +) +stri += st + "\n" tst = "B2.halfseg : LINE=(" -for i,seg in enumerate(segmodel): + +for i, seg in enumerate(segmodel): md = seg[0] - if md == 'B2': + if md == "B2": b2p += 1 st = b2pstr(seg, b2p) tst += st[:6].replace(" ", "") - # print(st) - stri += st + '\n' - elif md == 'm_accep': + stri += st + "\n" + elif md == "m_accep": maccp += 1 st = f"B2.M_ACCEP" tst += st - elif md == 'B2_EDGE': + elif md == "B2_EDGE": st = f"B2.EDGE" tst += st - tst += ', ' -st = "B2.M_ACCEP : MARKER, L=0;\n" +\ -"B2.EDGE : MARKER, L=0;\n" +\ -"B2.MB2 : MARKER, L=0;" -# print(st) -stri += st + '\n' + tst += ", " + +st = ( + "B2.M_ACCEP : MARKER, L=0;\n" + "B2.EDGE : MARKER, L=0;\n" + "B2.MB2 : MARKER, L=0;" +) +stri += st + "\n" tst = tst[:-2] tst += ");" -# print(tst) -stri += tst + '\n' -st = "B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg);\n" -# print(st) -stri += st + '\n' -from pymodels.SI_V25_04.segmented_models import quadrupole_q14, quadrupole_q20, quadrupole_q30 -ff={ - -"Q1": (quadrupole_q20, 20), -"Q2": (quadrupole_q20, 20), -"Q3": (quadrupole_q20, 20), -"Q4": (quadrupole_q20, 20), -"QFA": (quadrupole_q20, 20), -"QDA": (quadrupole_q14, 14), -"QDB1": (quadrupole_q14, 14), -"QDB2": (quadrupole_q14, 14), -"QDP1": (quadrupole_q14, 14), -"QDP2": (quadrupole_q14, 14), -"QFB": (quadrupole_q30, 30), -"QFP": (quadrupole_q30, 30), +stri += tst + "\n" +st = "B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg);\n" +stri += st + "\n" + +from pymodels.SI_V25_04.segmented_models import ( + quadrupole_q14, + quadrupole_q20, + quadrupole_q30, +) + +func_len = { + "Q1": (quadrupole_q20, 20), + "Q2": (quadrupole_q20, 20), + "Q3": (quadrupole_q20, 20), + "Q4": (quadrupole_q20, 20), + "QFA": (quadrupole_q20, 20), + "QDA": (quadrupole_q14, 14), + "QDB1": (quadrupole_q14, 14), + "QDB2": (quadrupole_q14, 14), + "QDP1": (quadrupole_q14, 14), + "QDP2": (quadrupole_q14, 14), + "QFB": (quadrupole_q30, 30), + "QFP": (quadrupole_q30, 30), } strq14 = """!* Q14 Q14.pB.1 = -4.06e+00; @@ -412,6 +526,7 @@ def b2pstr(segm, cc): Q30.pB.13 = +3.56e+20; """ + flagq20 = True flagq14 = True flagq30 = True @@ -421,74 +536,73 @@ def addquadstring(num): global flagq30 global stri if num == 14 and flagq14: - # print(strq14) stri += strq14 flagq14 = False elif num == 20 and flagq20: - # print(strq20) flagq20 = False stri += strq20 elif num == 30 and flagq30: - # print(strq30) flagq30 = False stri += strq30 return -# print("!!! -- QUADRUPOLES --\n") -stri += "!!! -- QUADRUPOLES --\n\n" -for t in ff.keys(): - func, num = ff[t] + +stri += "\n!!! -- QUADRUPOLES --\n\n" +for t in func_len.keys(): + func, num = func_len[t] b = func(t, strengs[t]) addquadstring(num) for j, e in enumerate(b): - # kn = ", ".join([f"K{i}={k:1.2e}" if (i!=1) else f"K{i}:=STREN.{t}" for i,k in enumerate(e.polynom_b)]) kn = f"K1:=STREN.{t}" kn += f";!, K5:=Q{num}.pB.5*RESCALE.{t}" kn += f", K9:=Q{num}.pB.9*RESCALE.{t}" kn += f", K13:=Q{num}.pB.13*RESCALE.{t}" l = e.length - # print(f"STREN.{t} := {e.polynom_b[1]};") - # print(f"RESCALE.{t} := STREN.{t} / Q{num}.pB.1;") - # print(f"{t} : QUADRUPOLE, L={l:.4f}, {kn};\n") - stri += f"STREN.{t} := {e.polynom_b[1]};\n" + \ - f"RESCALE.{t} := STREN.{t} / Q{num}.pB.1;\n" + \ - f"{t} : QUADRUPOLE, L={l:.4f}, {kn};\n\n" -# # print('!!! -- SEXTUPOLES --\n') -stri += """!!! -- SEXTUPOLES -- + stri += ( + f"STREN.{t} := {e.polynom_b[1]};\n" + + f"RESCALE.{t} := STREN.{t} / Q{num}.pB.1;\n" + + f"{t} : QUADRUPOLE, L={l:.4f}, {kn};\n\n" + ) + +stri += """ +!!! -- SEXTUPOLES -- SEXTUPOLES_on := 1; """ for key in strengs.keys(): - if key.startswith('S'): + if key.startswith("S"): st = strengs[key] - pol='+1' - if st<0: - pol='-1' - # # print(f"STREN.{key} := {st};") - # # print(f"{key} : SEXTUPOLE, L=0.150, K2:=STREN.{key};\n") - stri += f"STREN.{key} := {st};\n" +\ - f"{key}_on := 1*SEXTUPOLES_on;\n" +\ - f"{key} : SEXTUPOLE, L=0.150, K2:=STREN.{key}*{key}_on;\n\n" -stri += """!!! -- slow vertical corrector -- + stri += ( + f"STREN.{key} := {st};\n" + + f"{key}_on := 1*SEXTUPOLES_on;\n" + + f"{key} : SEXTUPOLE, L=0.150, K2:=STREN.{key}*{key}_on;\n\n" + ) + +stri += """ +!!! -- SLOW VERTICAL CORRECTOR -- CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors -!!! -- pulsed magnets -- + +!!! -- PULSED MAGNETS -- PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger -!!! -- fast correctors -- + +!!! -- FAST CORRECTORS -- ! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): FC1 : SEXTUPOLE, L=0.084, K2=0.0; FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward ! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): FC2 : SEXTUPOLE, L=0.082, K2=0.0; -!!! -- rf cavities -- + +!!! -- RF CAVITY -- HARMONIC_NUMBER = 864; RF_VOLT := 3.0; ! [MV] SRFCav : RFCAVITY, L=0, VOLT:=RF_VOLT, HARMON:=HARMONIC_NUMBER; H3Cav : MARKER, L=0; ! -!!! -- lattice markers -- + +!!! -- LATTICE MARKERS -- MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) !# marker used to delimitate girders. @@ -503,7 +617,8 @@ def addquadstring(num): !# end of injection septum InjSeptF : MARKER, L=0; ! -!!! --- diagnostic components --- + +!!! --- DIAGNOSTICS COMPONENTS --- BPM : MONITOR; ! IDBPM : MONITOR; ! DCCT : MARKER, L=0; ! # dcct to measure beam current @@ -521,7 +636,8 @@ def addquadstring(num): TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) -!!! --- insertion devices (half devices) --- + +!!! --- INSERTION DEVICES (half devices) --- IDLEN.APU22 := 1.3; IDLEN.IVU18 := 2.0; IDLEN.DELTA52 := 1.2; @@ -566,7 +682,8 @@ def addquadstring(num): IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector -!!! -- sectors -- + +!!! -- SECTORS -- M1A : LINE=(L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) M1AFF : LINE=( L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, @@ -684,9 +801,9 @@ def addquadstring(num): IDB_20_GSL07 : LINE=(L500, GSL07, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section -!!! -- girders -- +! -- GIRDERS -- -!!! straight sections +!!! -- STRAIGHT SECTIONS -- SS_S01 : LINE=(IDA_01_INJ);! # INJECTION SS_S02 : LINE=(IDB_02);! SS_S03 : LINE=(IDP_03_CAV);! @@ -708,7 +825,7 @@ def addquadstring(num): SS_S19 : LINE=(IDB_19_GSL15);! SS_S20 : LINE=(IDB_20_GSL07);! -!!! down and upstream straight sections +!!! -- DOWN and UPSTREAM (straight sections) M1_S01 : LINE=(M1AFF);! M2_S01 : LINE=(M2AFF);! M1_S02 : LINE=(M1B);! @@ -750,7 +867,7 @@ def addquadstring(num): M1_S20 : LINE=(M1B);! M2_S20 : LINE=(M2B);! -!!! dispersive arcs +!!! -- DISPERSIVE ARCS -- C1_S01 : LINE=(C1A);! C2_S01 : LINE=(C2A);! C3_S01 : LINE=(C3B);! @@ -832,7 +949,7 @@ def addquadstring(num): C3_S20 : LINE=(C3A);! C4_S20 : LINE=(C4A);! -!!! SECTORS # 01..20 +!!! -- SECTORS 01..20 -- S01 : LINE=(M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, C3_S01, B2, C4_S01, B1);! S02 : LINE=(M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, C3_S02, B2, C4_S02, B1);! S03 : LINE=(M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, C3_S03, B2, C4_S03, B1);! @@ -854,21 +971,25 @@ def addquadstring(num): S19 : LINE=(M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, C3_S19, B2, C4_S19, B1);! S20 : LINE=(M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, C3_S20, B2, C4_S20, B1);! -!!! The ring +!!! -- The ring -- SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! +! LINE <-> SEQUENCE "creator/converter" BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; USE, PERIOD=SI; SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; CALL, FILE=sirius-ring.temp; REMOVEFILE, FILE=sirius-ring.temp; +! SEQUENCE definition SEQEDIT, SEQUENCE=SI; FLATTEN; CYCLE, START=M_START; ENDEDIT; """ -f = open('sirius.seq', 'w') + +# write MAD-X SIRIUS sequence output +f = open("sirius_SI_V25_04.seq", "w") f.write(stri) f.close() From 6394863334adb7941dbe51299f5ed3aca369a73e Mon Sep 17 00:00:00 2001 From: vitor Date: Mon, 9 Sep 2024 15:56:24 -0300 Subject: [PATCH 7/9] rm sirius.seq --- other-simulators/MAD/sirius.seq | 770 -------------------------------- 1 file changed, 770 deletions(-) delete mode 100644 other-simulators/MAD/sirius.seq diff --git a/other-simulators/MAD/sirius.seq b/other-simulators/MAD/sirius.seq deleted file mode 100644 index 029cb1a..0000000 --- a/other-simulators/MAD/sirius.seq +++ /dev/null @@ -1,770 +0,0 @@ -!!! SIRIUS Storage Ring Model -! Date: 06-September-2024 -! Version: SI_V25_04 - -!!! -- INITIAL PARAMETERS -- - -ACCLEN := 0;! -circum_new := 518.3899; ! [m] -circum_old := 518.3960; ! [m] -dcircum := circum_new - circum_old; -dcircum_frac := dcircum/20.0/2.0; ! divide circumference difference in all 20 straight sections - -!!! -- INJECTION SECTOR -- - -L500p: DRIFT, L=0.500 + dcircum_frac; -LKKp: DRIFT, L=1.9150 + dcircum_frac; -LPMU: DRIFT, L=0.0600; -L050: DRIFT, L=0.050; -L150: DRIFT, L=0.150; -L182: DRIFT, L=0.182; -L399: DRIFT, L=0.399; - -M_START : MARKER, L=0; ! start of the model -M_END : MARKER, L=0; ! end of the model -MIA : MARKER, L=0; ! center of long straight sections (even-numbered) -InjVCb : MARKER, L=0; ! Bigger injection vaccum chamber limits -InjVCs : MARKER, L=0; ! Smaller injection vchamber limits -SVVC : MARKER, L=0; ! VScrap vchamber limits (drawing: len = 398 mm) -ScrapV : MARKER, L=0; ! vertical scraper - -!* -- PULSED MAGNETS -- -InjDpKckr : SEXTUPOLE, L=0.400, K2=0.0; ! injection kicker -InjNLKckr : SEXTUPOLE, L=0.450, K2=0.0; ! pulsed multipole magnet - -!* DPK : -INJ_SEC_DPK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, - );! - -!* DPK_END: -INJ_SEC_DPK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, - );! - -!* NLK: -INJ_SEC_NLK : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - );! - -!* NLK_END : -INJ_SEC_NLK_END : LINE=( - InjVCb, L399, InjVCb, InjVCs, L182, L500p, M_END, - M_START, MIA, LKKp, InjDpKckr, InjVCs, - SVVC, LPMU, L050, ScrapV, L150, SVVC, - InjNLKckr);! - -!* INJECTION SECTOR SELECTION : NLK_END -SI_INJ : LINE=(INJ_SEC_NLK_END); - -!!! -- DRIFTS -- - -LIA : DRIFT, L=1.5179; -LIB : DRIFT, L=1.0879; -LIP : DRIFT, L=1.0879; -LPMD : DRIFT, L=0.4929; -LID3 : DRIFT, L=1.8679; -L144p : DRIFT, L=0.144 + dcircum_frac; -L208p : DRIFT, L=0.208 + dcircum_frac; -L350p : DRIFT, L=0.350 + dcircum_frac; -L600p : DRIFT, L=0.600 + dcircum_frac; -L800p : DRIFT, L=0.7999; -L011 : DRIFT, L=0.011; -L019 : DRIFT, L=0.019; -L049 : DRIFT, L=0.049; -L050 : DRIFT, L=0.050; -L052 : DRIFT, L=0.052; -L056 : DRIFT, L=0.056; -L063 : DRIFT, L=0.063; -L074 : DRIFT, L=0.074; -L075 : DRIFT, L=0.075; -L082 : DRIFT, L=0.082; -L090 : DRIFT, L=0.090; -L100 : DRIFT, L=0.100; -L109 : DRIFT, L=0.109; -L112 : DRIFT, L=0.112; -L119 : DRIFT, L=0.119; -L120 : DRIFT, L=0.120; -L125 : DRIFT, L=0.125; -L127 : DRIFT, L=0.127; -L133 : DRIFT, L=0.133; -L134 : DRIFT, L=0.134; -L135 : DRIFT, L=0.135; -L140 : DRIFT, L=0.140; -L150 : DRIFT, L=0.150; -L156 : DRIFT, L=0.156; -L170 : DRIFT, L=0.170; -L188 : DRIFT, L=0.188; -L200 : DRIFT, L=0.200; -L201 : DRIFT, L=0.201; -L203 : DRIFT, L=0.203; -L205 : DRIFT, L=0.205; -L216 : DRIFT, L=0.216; -L230 : DRIFT, L=0.230; -L237 : DRIFT, L=0.237; -L240 : DRIFT, L=0.240; -L260 : DRIFT, L=0.260; -L270 : DRIFT, L=0.270; -L297 : DRIFT, L=0.297; -L325 : DRIFT, L=0.325; -L329 : DRIFT, L=0.329; -L336 : DRIFT, L=0.336; -L365 : DRIFT, L=0.365; -L419 : DRIFT, L=0.419; -L474 : DRIFT, L=0.474; -L500 : DRIFT, L=0.500; -L511 : DRIFT, L=0.511; -L665 : DRIFT, L=0.665; -L715 : DRIFT, L=0.715; -L839 : DRIFT, L=0.839; - -!!! -- DIPOLES -- - -DIPOLES_K0_on := 0; -DIPOLES_K1_on := 1; -DIPOLES_K2_on := 1; -DIPOLES_K3_on := 1; - -!* BC -BC_K0_on := 1*DIPOLES_K0_on; -BC_K1_on := 1*DIPOLES_K1_on; -BC_K2_on := 1*DIPOLES_K2_on; -BC_K3_on := 1*DIPOLES_K3_on; -BC.p1 : SBEND, L=0.00100, ANGLE=0.01877*PI/180, K0:=-1.4741e-05*BC_K0_on, K1:=-3.2459e-03*BC_K1_on, K2:=-2.5934e+01*BC_K2_on, K3:=+2.2655e+02*BC_K3_on; -BC.p2 : SBEND, L=0.00400, ANGLE=0.07328*PI/180, K0:=-3.5868e-06*BC_K0_on, K1:=-8.0872e-03*BC_K1_on, K2:=-2.3947e+01*BC_K2_on, K3:=+1.9896e+02*BC_K3_on; -BC.p3 : SBEND, L=0.00500, ANGLE=0.08149*PI/180, K0:=-1.5878e-06*BC_K0_on, K1:=-2.2156e-02*BC_K1_on, K2:=-1.6636e+01*BC_K2_on, K3:=+9.5225e+01*BC_K3_on; -BC.p4 : SBEND, L=0.00500, ANGLE=0.06914*PI/180, K0:=-2.2515e-06*BC_K0_on, K1:=-2.6794e-02*BC_K1_on, K2:=-9.9744e+00*BC_K2_on, K3:=+4.0910e+01*BC_K3_on; -BC.p5 : SBEND, L=0.00500, ANGLE=0.05972*PI/180, K0:=+2.4800e-07*BC_K0_on, K1:=-2.6704e-02*BC_K1_on, K2:=-7.1238e+00*BC_K2_on, K3:=+2.8365e+01*BC_K3_on; -BC.p6 : SBEND, L=0.01000, ANGLE=0.09814*PI/180, K0:=-7.2919e-07*BC_K0_on, K1:=-2.5788e-02*BC_K1_on, K2:=-5.4243e+00*BC_K2_on, K3:=+1.8297e+01*BC_K3_on; -BC.p7 : SBEND, L=0.01000, ANGLE=0.07568*PI/180, K0:=-1.8658e-06*BC_K0_on, K1:=-2.4549e-02*BC_K1_on, K2:=-3.7961e+00*BC_K2_on, K3:=+7.9939e+00*BC_K3_on; -BC.p8 : SBEND, L=0.01000, ANGLE=0.05755*PI/180, K0:=-6.9437e-07*BC_K0_on, K1:=-1.9501e-02*BC_K1_on, K2:=-2.2458e+00*BC_K2_on, K3:=+2.9742e+00*BC_K3_on; -BC.p9 : SBEND, L=0.01000, ANGLE=0.04544*PI/180, K0:=-1.2861e-07*BC_K0_on, K1:=-1.2764e-03*BC_K1_on, K2:=-8.7276e-01*BC_K2_on, K3:=-4.5371e-01*BC_K3_on; -BC.p10 : SBEND, L=0.03200, ANGLE=0.11887*PI/180, K0:=-3.6974e-08*BC_K0_on, K1:=+1.2757e-02*BC_K1_on, K2:=+1.1825e+00*BC_K2_on, K3:=+1.8453e+00*BC_K3_on; -BC.p11 : SBEND, L=0.03200, ANGLE=0.09720*PI/180, K0:=-9.0591e-07*BC_K0_on, K1:=-1.2063e-01*BC_K1_on, K2:=+5.2835e-01*BC_K2_on, K3:=+1.0917e+01*BC_K3_on; -BC.p12 : SBEND, L=0.16000, ANGLE=0.62161*PI/180, K0:=-1.1668e-06*BC_K0_on, K1:=-8.9725e-01*BC_K1_on, K2:=+4.4207e-01*BC_K2_on, K3:=+3.2247e+01*BC_K3_on; -BC.p13 : SBEND, L=0.16000, ANGLE=0.62274*PI/180, K0:=+2.8034e-07*BC_K0_on, K1:=-9.0717e-01*BC_K1_on, K2:=+2.0879e-01*BC_K2_on, K3:=-6.2815e-01*BC_K3_on; -BC.p14 : SBEND, L=0.01200, ANGLE=0.04249*PI/180, K0:=+5.4796e-07*BC_K0_on, K1:=-8.8611e-01*BC_K1_on, K2:=+4.9910e-01*BC_K2_on, K3:=+2.4958e+01*BC_K3_on; -BC.p15 : SBEND, L=0.01400, ANGLE=0.03339*PI/180, K0:=-4.4895e-07*BC_K0_on, K1:=-4.4684e-01*BC_K1_on, K2:=-1.8750e+00*BC_K2_on, K3:=+2.2077e+01*BC_K3_on; -BC.p16 : SBEND, L=0.01600, ANGLE=0.01935*PI/180, K0:=+7.1551e-07*BC_K0_on, K1:=-1.1215e-01*BC_K1_on, K2:=-1.9597e+00*BC_K2_on, K3:=+1.3313e+01*BC_K3_on; -BC.p17 : SBEND, L=0.03500, ANGLE=0.01344*PI/180, K0:=-1.7487e-07*BC_K0_on, K1:=-1.9828e-02*BC_K1_on, K2:=-1.2534e+00*BC_K2_on, K3:=+1.9342e+01*BC_K3_on; -BC.M_ACCEP : MARKER, L=0; -BC.EDGE : MARKER, L=0; -BC.MC : MARKER, L=0; -BC.halfseg : LINE=(BC.p1, BC.p2, BC.p3, BC.p4, BC.p5, BC.p6, BC.p7, BC.p8, BC.p9, BC.M_ACCEP, BC.p10, BC.p11, BC.M_ACCEP, BC.p12, BC.p13, BC.p14, BC.EDGE, BC.p15, BC.p16, BC.p17); -BC : LINE=(-BC.halfseg, BC.MC, BC.M_ACCEP, BC.halfseg); - -!* B1 -B1_K0_on := 1*DIPOLES_K0_on; -B1_K1_on := 1*DIPOLES_K1_on; -B1_K2_on := 1*DIPOLES_K2_on; -B1_K3_on := 1*DIPOLES_K3_on; -B1.p1 : SBEND, L=0.00200, ANGLE=0.00633*PI/180, K0:=-1.9696e-06*B1_K0_on, K1:=-7.2541e-01*B1_K1_on, K2:=-5.4213e-01*B1_K2_on, K3:=+5.4347e+00*B1_K3_on; -B1.p2 : SBEND, L=0.00300, ANGLE=0.00951*PI/180, K0:=-3.8061e-06*B1_K0_on, K1:=-7.2968e-01*B1_K1_on, K2:=-4.5292e-01*B1_K2_on, K3:=+4.3822e+00*B1_K3_on; -B1.p3 : SBEND, L=0.00500, ANGLE=0.01592*PI/180, K0:=-4.7568e-07*B1_K0_on, K1:=-7.4227e-01*B1_K1_on, K2:=-2.1669e-01*B1_K2_on, K3:=+2.9544e+00*B1_K3_on; -B1.p4 : SBEND, L=0.00500, ANGLE=0.01603*PI/180, K0:=-1.9480e-06*B1_K0_on, K1:=-7.5771e-01*B1_K1_on, K2:=-1.0657e-02*B1_K2_on, K3:=+3.5007e+00*B1_K3_on; -B1.p5 : SBEND, L=0.00500, ANGLE=0.01611*PI/180, K0:=-2.7633e-06*B1_K0_on, K1:=-7.6662e-01*B1_K1_on, K2:=+3.3285e-02*B1_K2_on, K3:=+4.7919e+00*B1_K3_on; -B1.p6 : SBEND, L=0.01000, ANGLE=0.03236*PI/180, K0:=-1.9098e-06*B1_K0_on, K1:=-7.7081e-01*B1_K1_on, K2:=+1.6451e-02*B1_K2_on, K3:=+5.3028e+00*B1_K3_on; -B1.p7 : SBEND, L=0.04000, ANGLE=0.12963*PI/180, K0:=-1.6309e-06*B1_K0_on, K1:=-7.7247e-01*B1_K1_on, K2:=+4.8673e-02*B1_K2_on, K3:=+4.6505e+00*B1_K3_on; -B1.p8 : SBEND, L=0.15000, ANGLE=0.48382*PI/180, K0:=-1.9888e-06*B1_K0_on, K1:=-7.7332e-01*B1_K1_on, K2:=+9.7601e-02*B1_K2_on, K3:=+5.3336e+00*B1_K3_on; -B1.p9 : SBEND, L=0.10000, ANGLE=0.32247*PI/180, K0:=-2.1025e-06*B1_K0_on, K1:=-7.7271e-01*B1_K1_on, K2:=+1.1969e-01*B1_K2_on, K3:=+5.6811e+00*B1_K3_on; -B1.p10 : SBEND, L=0.05000, ANGLE=0.16165*PI/180, K0:=-2.1257e-06*B1_K0_on, K1:=-7.7203e-01*B1_K1_on, K2:=+5.6224e-02*B1_K2_on, K3:=+4.5293e+00*B1_K3_on; -B1.p11 : SBEND, L=0.03400, ANGLE=0.10509*PI/180, K0:=-1.8623e-06*B1_K0_on, K1:=-7.7144e-01*B1_K1_on, K2:=-1.2160e-01*B1_K2_on, K3:=+9.1976e+00*B1_K3_on; -B1.p12 : SBEND, L=0.01600, ANGLE=0.03414*PI/180, K0:=-9.6169e-07*B1_K0_on, K1:=-4.5231e-01*B1_K1_on, K2:=-1.8149e+00*B1_K2_on, K3:=+1.9400e+01*B1_K3_on; -B1.p13 : SBEND, L=0.04000, ANGLE=0.03296*PI/180, K0:=-5.2504e-07*B1_K0_on, K1:=-8.6643e-02*B1_K1_on, K2:=-1.7536e+00*B1_K2_on, K3:=+8.5147e+00*B1_K3_on; -B1.p14 : SBEND, L=0.04000, ANGLE=0.00774*PI/180, K0:=-1.6259e-07*B1_K0_on, K1:=-8.3065e-03*B1_K1_on, K2:=-3.8990e-01*B1_K2_on, K3:=+1.3183e+00*B1_K3_on; -B1.p15 : SBEND, L=0.05000, ANGLE=0.00389*PI/180, K0:=-7.9445e-08*B1_K0_on, K1:=-1.0742e-03*B1_K1_on, K2:=-9.8271e-02*B1_K2_on, K3:=+5.0359e-02*B1_K3_on; -B1.M_ACCEP : MARKER, L=0; -B1.EDGE : MARKER, L=0; -B1_SRC : MARKER, L=0; -B1.MB1 : MARKER, L=0; -B1.halfseg.1 : LINE=(B1.M_ACCEP, B1.p15, B1.p14, B1.p13, B1.p12, B1.EDGE, B1.p11, B1_SRC, B1.p10, B1.p9, B1.p8, B1.p7, B1.p6, B1.p5, B1.p4, B1.p3, B1.p2, B1.p1); -B1.halfseg.2 : LINE=(B1.p1, B1.p2, B1.p3, B1.p4, B1.p5, B1.p6, B1.p7, B1.p8, B1.p9, B1.p10, B1.p11, B1.EDGE, B1.p12, B1.p13, B1.p14, B1.p15, B1.M_ACCEP); -B1 : LINE=(B1.halfseg.1, B1.MB1, B1.M_ACCEP, B1.halfseg.2); - -!* B2 -B2_K0_on := 1*DIPOLES_K0_on; -B2_K1_on := 1*DIPOLES_K1_on; -B2_K2_on := 1*DIPOLES_K2_on; -B2_K3_on := 1*DIPOLES_K3_on; -B2.p1 : SBEND, L=0.12500, ANGLE=0.40623*PI/180, K0:=+2.8141e-07*B2_K0_on, K1:=-7.7535e-01*B2_K1_on, K2:=+3.8504e-02*B2_K2_on, K3:=+1.7048e+00*B2_K3_on; -B2.p2 : SBEND, L=0.05500, ANGLE=0.17963*PI/180, K0:=+2.4869e-07*B2_K0_on, K1:=-7.7400e-01*B2_K1_on, K2:=+1.8903e-02*B2_K2_on, K3:=+1.3538e+00*B2_K3_on; -B2.p3 : SBEND, L=0.01000, ANGLE=0.03260*PI/180, K0:=-1.4532e-07*B2_K0_on, K1:=-7.6990e-01*B2_K1_on, K2:=-7.3993e-03*B2_K2_on, K3:=+1.4325e+00*B2_K3_on; -B2.p4 : SBEND, L=0.00500, ANGLE=0.01624*PI/180, K0:=-9.6976e-07*B2_K0_on, K1:=-7.6272e-01*B2_K1_on, K2:=-4.4905e-02*B2_K2_on, K3:=+3.7505e-01*B2_K3_on; -B2.p5 : SBEND, L=0.00500, ANGLE=0.01619*PI/180, K0:=-8.5112e-08*B2_K0_on, K1:=-7.5413e-01*B2_K1_on, K2:=-1.7000e-01*B2_K2_on, K3:=+1.3254e-01*B2_K3_on; -B2.p6 : SBEND, L=0.00500, ANGLE=0.01616*PI/180, K0:=+5.0825e-07*B2_K0_on, K1:=-7.4866e-01*B2_K1_on, K2:=-2.8166e-01*B2_K2_on, K3:=+7.1392e-01*B2_K3_on; -B2.p7 : SBEND, L=0.00500, ANGLE=0.01618*PI/180, K0:=+1.7001e-06*B2_K0_on, K1:=-7.5218e-01*B2_K1_on, K2:=-2.1312e-01*B2_K2_on, K3:=+3.8486e-01*B2_K3_on; -B2.p8 : SBEND, L=0.01000, ANGLE=0.03254*PI/180, K0:=+1.3585e-06*B2_K0_on, K1:=-7.6428e-01*B2_K1_on, K2:=-4.1565e-02*B2_K2_on, K3:=+6.7680e-01*B2_K3_on; -B2.p9 : SBEND, L=0.01000, ANGLE=0.03269*PI/180, K0:=+2.9027e-07*B2_K0_on, K1:=-7.7165e-01*B2_K1_on, K2:=-8.0002e-03*B2_K2_on, K3:=+1.7812e+00*B2_K3_on; -B2.p10 : SBEND, L=0.17500, ANGLE=0.57073*PI/180, K0:=-1.1637e-07*B2_K0_on, K1:=-7.7428e-01*B2_K1_on, K2:=+6.8988e-02*B2_K2_on, K3:=+4.1024e+00*B2_K3_on; -B2.p11 : SBEND, L=0.17500, ANGLE=0.57034*PI/180, K0:=-3.3225e-07*B2_K0_on, K1:=-7.7352e-01*B2_K1_on, K2:=+7.8447e-02*B2_K2_on, K3:=+5.4514e+00*B2_K3_on; -B2.p12 : SBEND, L=0.02000, ANGLE=0.06315*PI/180, K0:=+2.2577e-08*B2_K0_on, K1:=-7.8534e-01*B2_K1_on, K2:=-1.4538e-01*B2_K2_on, K3:=+9.2976e+00*B2_K3_on; -B2.p13 : SBEND, L=0.01000, ANGLE=0.02719*PI/180, K0:=+8.7645e-08*B2_K0_on, K1:=-6.7626e-01*B2_K1_on, K2:=-3.1354e-01*B2_K2_on, K3:=+1.6050e+01*B2_K3_on; -B2.p14 : SBEND, L=0.01500, ANGLE=0.02866*PI/180, K0:=+6.3204e-08*B2_K0_on, K1:=-3.6034e-01*B2_K1_on, K2:=-2.3415e+00*B2_K2_on, K3:=+2.0402e+01*B2_K3_on; -B2.p15 : SBEND, L=0.02000, ANGLE=0.01994*PI/180, K0:=+5.4460e-07*B2_K0_on, K1:=-1.0711e-01*B2_K1_on, K2:=-2.1654e+00*B2_K2_on, K3:=+1.1296e+01*B2_K3_on; -B2.p16 : SBEND, L=0.03000, ANGLE=0.01188*PI/180, K0:=+1.3393e-07*B2_K0_on, K1:=-2.3886e-02*B2_K1_on, K2:=-8.9207e-01*B2_K2_on, K3:=+3.8284e+00*B2_K3_on; -B2.p17 : SBEND, L=0.03200, ANGLE=0.00444*PI/180, K0:=-2.8999e-07*B2_K0_on, K1:=-4.5556e-03*B2_K1_on, K2:=-2.6166e-01*B2_K2_on, K3:=+7.8754e-01*B2_K3_on; -B2.p18 : SBEND, L=0.03250, ANGLE=0.00341*PI/180, K0:=-1.3468e-07*B2_K0_on, K1:=-1.2481e-03*B2_K1_on, K2:=-1.3069e-01*B2_K2_on, K3:=+3.6679e-01*B2_K3_on; -B2.M_ACCEP : MARKER, L=0; -B2.EDGE : MARKER, L=0; -B2.MB2 : MARKER, L=0; -B2.halfseg : LINE=(B2.p1, B2.p2, B2.p3, B2.p4, B2.p5, B2.p6, B2.M_ACCEP, B2.p7, B2.p8, B2.p9, B2.p10, B2.p11, B2.p12, B2.p13, B2.EDGE, B2.p14, B2.p15, B2.p16, B2.p17, B2.p18, B2.M_ACCEP); -B2 : LINE=(-B2.halfseg, B2.MB2, B2.M_ACCEP, B2.halfseg); - -!!! -- QUADRUPOLES -- - -!* Q20 -Q20.pB.1 = -4.74e+00; -Q20.pB.5 = +8.41e+04; -Q20.pB.9 = -1.83e+13; -Q20.pB.13 = +3.47e+20; - -STREN.Q1 := 2.818370601288; -RESCALE.Q1 := STREN.Q1 / Q20.pB.1; -Q1 : QUADRUPOLE, L=0.2000, K1:=STREN.Q1;!, K5:=Q20.pB.5*RESCALE.Q1, K9:=Q20.pB.9*RESCALE.Q1, K13:=Q20.pB.13*RESCALE.Q1; - -STREN.Q2 := 4.340329381668; -RESCALE.Q2 := STREN.Q2 / Q20.pB.1; -Q2 : QUADRUPOLE, L=0.2000, K1:=STREN.Q2;!, K5:=Q20.pB.5*RESCALE.Q2, K9:=Q20.pB.9*RESCALE.Q2, K13:=Q20.pB.13*RESCALE.Q2; - -STREN.Q3 := 3.218430939674; -RESCALE.Q3 := STREN.Q3 / Q20.pB.1; -Q3 : QUADRUPOLE, L=0.2000, K1:=STREN.Q3;!, K5:=Q20.pB.5*RESCALE.Q3, K9:=Q20.pB.9*RESCALE.Q3, K13:=Q20.pB.13*RESCALE.Q3; - -STREN.Q4 := 3.950686823494; -RESCALE.Q4 := STREN.Q4 / Q20.pB.1; -Q4 : QUADRUPOLE, L=0.2000, K1:=STREN.Q4;!, K5:=Q20.pB.5*RESCALE.Q4, K9:=Q20.pB.9*RESCALE.Q4, K13:=Q20.pB.13*RESCALE.Q4; - -STREN.QFA := 3.5731777226094446; -RESCALE.QFA := STREN.QFA / Q20.pB.1; -QFA : QUADRUPOLE, L=0.2000, K1:=STREN.QFA;!, K5:=Q20.pB.5*RESCALE.QFA, K9:=Q20.pB.9*RESCALE.QFA, K13:=Q20.pB.13*RESCALE.QFA; - -!* Q14 -Q14.pB.1 = -4.06e+00; -Q14.pB.5 = +6.38e+04; -Q14.pB.9 = -1.45e+13; -Q14.pB.13 = +2.90e+20; - -STREN.QDA := -1.619540412181686; -RESCALE.QDA := STREN.QDA / Q14.pB.1; -QDA : QUADRUPOLE, L=0.1400, K1:=STREN.QDA;!, K5:=Q14.pB.5*RESCALE.QDA, K9:=Q14.pB.9*RESCALE.QDA, K13:=Q14.pB.13*RESCALE.QDA; - -STREN.QDB1 := -2.00677456404202; -RESCALE.QDB1 := STREN.QDB1 / Q14.pB.1; -QDB1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB1;!, K5:=Q14.pB.5*RESCALE.QDB1, K9:=Q14.pB.9*RESCALE.QDB1, K13:=Q14.pB.13*RESCALE.QDB1; - -STREN.QDB2 := -3.420574744932221; -RESCALE.QDB2 := STREN.QDB2 / Q14.pB.1; -QDB2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDB2;!, K5:=Q14.pB.5*RESCALE.QDB2, K9:=Q14.pB.9*RESCALE.QDB2, K13:=Q14.pB.13*RESCALE.QDB2; - -STREN.QDP1 := -2.00677456404202; -RESCALE.QDP1 := STREN.QDP1 / Q14.pB.1; -QDP1 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP1;!, K5:=Q14.pB.5*RESCALE.QDP1, K9:=Q14.pB.9*RESCALE.QDP1, K13:=Q14.pB.13*RESCALE.QDP1; - -STREN.QDP2 := -3.420574744932221; -RESCALE.QDP2 := STREN.QDP2 / Q14.pB.1; -QDP2 : QUADRUPOLE, L=0.1400, K1:=STREN.QDP2;!, K5:=Q14.pB.5*RESCALE.QDP2, K9:=Q14.pB.9*RESCALE.QDP2, K13:=Q14.pB.13*RESCALE.QDP2; - -!* Q30 -Q30.pB.1 = -4.75e+00; -Q30.pB.5 = +1.06e+05; -Q30.pB.9 = -1.95e+13; -Q30.pB.13 = +3.56e+20; - -STREN.QFB := 4.115082809275146; -RESCALE.QFB := STREN.QFB / Q30.pB.1; -QFB : QUADRUPOLE, L=0.3000, K1:=STREN.QFB;!, K5:=Q30.pB.5*RESCALE.QFB, K9:=Q30.pB.9*RESCALE.QFB, K13:=Q30.pB.13*RESCALE.QFB; - -STREN.QFP := 4.115082809275146; -RESCALE.QFP := STREN.QFP / Q30.pB.1; -QFP : QUADRUPOLE, L=0.3000, K1:=STREN.QFP;!, K5:=Q30.pB.5*RESCALE.QFP, K9:=Q30.pB.9*RESCALE.QFP, K13:=Q30.pB.13*RESCALE.QFP; - -!!! -- SEXTUPOLES -- - -SEXTUPOLES_on := 1; - -STREN.SDA0 := -80.8337; -SDA0_on := 1*SEXTUPOLES_on; -SDA0 : SEXTUPOLE, L=0.150, K2:=STREN.SDA0*SDA0_on; - -STREN.SDB0 := -64.9422; -SDB0_on := 1*SEXTUPOLES_on; -SDB0 : SEXTUPOLE, L=0.150, K2:=STREN.SDB0*SDB0_on; - -STREN.SDP0 := -64.9422; -SDP0_on := 1*SEXTUPOLES_on; -SDP0 : SEXTUPOLE, L=0.150, K2:=STREN.SDP0*SDP0_on; - -STREN.SFA0 := 52.5696; -SFA0_on := 1*SEXTUPOLES_on; -SFA0 : SEXTUPOLE, L=0.150, K2:=STREN.SFA0*SFA0_on; - -STREN.SFB0 := 73.7401; -SFB0_on := 1*SEXTUPOLES_on; -SFB0 : SEXTUPOLE, L=0.150, K2:=STREN.SFB0*SFB0_on; - -STREN.SFP0 := 73.7401; -SFP0_on := 1*SEXTUPOLES_on; -SFP0 : SEXTUPOLE, L=0.150, K2:=STREN.SFP0*SFP0_on; - -STREN.SDA1 := -163.0062328090773; -SDA1_on := 1*SEXTUPOLES_on; -SDA1 : SEXTUPOLE, L=0.150, K2:=STREN.SDA1*SDA1_on; - -STREN.SDA2 := -88.88255991288263; -SDA2_on := 1*SEXTUPOLES_on; -SDA2 : SEXTUPOLE, L=0.150, K2:=STREN.SDA2*SDA2_on; - -STREN.SDA3 := -139.94153649641189; -SDA3_on := 1*SEXTUPOLES_on; -SDA3 : SEXTUPOLE, L=0.150, K2:=STREN.SDA3*SDA3_on; - -STREN.SFA1 := 191.76738248436368; -SFA1_on := 1*SEXTUPOLES_on; -SFA1 : SEXTUPOLE, L=0.150, K2:=STREN.SFA1*SFA1_on; - -STREN.SFA2 := 150.74610044115283; -SFA2_on := 1*SEXTUPOLES_on; -SFA2 : SEXTUPOLE, L=0.150, K2:=STREN.SFA2*SFA2_on; - -STREN.SDB1 := -141.68687364847958; -SDB1_on := 1*SEXTUPOLES_on; -SDB1 : SEXTUPOLE, L=0.150, K2:=STREN.SDB1*SDB1_on; - -STREN.SDB2 := -122.31573949946443; -SDB2_on := 1*SEXTUPOLES_on; -SDB2 : SEXTUPOLE, L=0.150, K2:=STREN.SDB2*SDB2_on; - -STREN.SDB3 := -173.8347917755106; -SDB3_on := 1*SEXTUPOLES_on; -SDB3 : SEXTUPOLE, L=0.150, K2:=STREN.SDB3*SDB3_on; - -STREN.SFB1 := 227.7404567527413; -SFB1_on := 1*SEXTUPOLES_on; -SFB1 : SEXTUPOLE, L=0.150, K2:=STREN.SFB1*SFB1_on; - -STREN.SFB2 := 197.7495405020359; -SFB2_on := 1*SEXTUPOLES_on; -SFB2 : SEXTUPOLE, L=0.150, K2:=STREN.SFB2*SFB2_on; - -STREN.SDP1 := -142.31415019209263; -SDP1_on := 1*SEXTUPOLES_on; -SDP1 : SEXTUPOLE, L=0.150, K2:=STREN.SDP1*SDP1_on; - -STREN.SDP2 := -122.28457189976633; -SDP2_on := 1*SEXTUPOLES_on; -SDP2 : SEXTUPOLE, L=0.150, K2:=STREN.SDP2*SDP2_on; - -STREN.SDP3 := -174.1745194336169; -SDP3_on := 1*SEXTUPOLES_on; -SDP3 : SEXTUPOLE, L=0.150, K2:=STREN.SDP3*SDP3_on; - -STREN.SFP1 := 229.17648360831797; -SFP1_on := 1*SEXTUPOLES_on; -SFP1 : SEXTUPOLE, L=0.150, K2:=STREN.SFP1*SFP1_on; - -STREN.SFP2 := 198.4525009917773; -SFP2_on := 1*SEXTUPOLES_on; -SFP2 : SEXTUPOLE, L=0.150, K2:=STREN.SFP2*SFP2_on; - -!!! -- slow vertical corrector -- -CV : SEXTUPOLE, L=0.150, K2=0.0; ! same model as BO correctors - -!!! -- pulsed magnets -- -PingV : SEXTUPOLE, L=0.32, K2=0.0; ! Vertical Pinger - -!!! -- fast correctors -- -! 60 magnets: normal quad poles (CH+CV and CH+CV+QS): -FC1 : SEXTUPOLE, L=0.084, K2=0.0; -FC1FF : SEXTUPOLE, L=0.084, K2=0.0; ! feedforward -! 20 magnets: skew quad poles (CH+CV and CH+CV+QS): -FC2 : SEXTUPOLE, L=0.082, K2=0.0; - -!!! -- rf cavities -- -HARMONIC_NUMBER = 864; -RF_VOLT := 3.0; ! [MV] -SRFCav : RFCAVITY, L=0, VOLT:=RF_VOLT, HARMON:=HARMONIC_NUMBER; -H3Cav : MARKER, L=0; ! - -!!! -- lattice markers -- -MIB : MARKER, L=0; ! # center of short straight sections (odd-numbered) -MIP : MARKER, L=0; ! # center of short straight sections (odd-numbered) -!# marker used to delimitate girders. -!# one marker at begin and another at end of girder: -GIR : MARKER, L=0; ! -!# marker for the extremities of IDs in long straight sections -MIDA : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDB : MARKER, L=0; ! -!# marker for the extremities of IDs in short straight sections -MIDP : MARKER, L=0; ! -!# end of injection septum -InjSeptF : MARKER, L=0; ! - -!!! --- diagnostic components --- -BPM : MONITOR; ! -IDBPM : MONITOR; ! -DCCT : MARKER, L=0; ! # dcct to measure beam current -ScrapH : MARKER, L=0; ! # horizontal scraper -GSL15 : MARKER, L=0; ! # Generic Stripline (lambda/4) -GSL07 : MARKER, L=0; ! # Generic Stripline (lambda/8) -GBPM : MONITOR; ! # General BPM -BbBPkup : MARKER, L=0; ! # Bunch-by-Bunch Pickup -BbBKckrH : MARKER, L=0; ! # Horizontal Bunch-by-Bunch Shaker -BbBKckrV : MARKER, L=0; ! # Vertical Bunch-by-Bunch Shaker -BbBKckL : MARKER, L=0; ! # Longitudinal Bunch-by-Bunch Shaker -TuneShkrH : MARKER, L=0; ! # Horizontal Tune Shaker -TuneShkrV : MARKER, L=0; ! # Vertical Tune Shaker -TunePkupH : MARKER, L=0; ! # Horizontal Tune Pickup -TunePkupV : MARKER, L=0; ! # Vertical Tune Pickup -SHVC : MARKER, L=0; ! # HScrap vchamber limits (drawing: len = 313 mm) - -!!! --- insertion devices (half devices) --- -IDLEN.APU22 := 1.3; -IDLEN.IVU18 := 2.0; -IDLEN.DELTA52 := 1.2; -IDLEN.APU58 := 1.3; -IDLEN.WIG180 := 2.654; -IDLEN.PAPU50 := 0.984; - -!* CARNAUBA -ID06Hu : DRIFT, L:=IDLEN.APU22/2; -ID06Hd : DRIFT, L:=IDLEN.APU22/2; - -!* CATERETE -ID07Hu : DRIFT, L:=IDLEN.APU22/2; -ID07Hd : DRIFT, L:=IDLEN.APU22/2; - -!* EMA -ID08Hu : DRIFT, L:=IDLEN.IVU18/2; -ID08Hd : DRIFT, L:=IDLEN.IVU18/2; - -!* MANACA -ID09Hu : DRIFT, L:=IDLEN.APU22/2; -ID09Hd : DRIFT, L:=IDLEN.APU22/2; - -!* SABIA -ID10Hu : DRIFT, L:=IDLEN.DELTA52/2; -ID10Hd : DRIFT, L:=IDLEN.DELTA52/2; - -!* IPE -ID11Hu : DRIFT, L:=IDLEN.APU58/2; -ID11Hd : DRIFT, L:=IDLEN.APU58/2; - -!* PAINEIRA -ID14Hu : DRIFT, L:=IDLEN.WIG180/2; -ID14Hd : DRIFT, L:=IDLEN.WIG180/2; - -!* SAPUCAIA -ID17Hu : DRIFT, L:=IDLEN.PAPU50/2; -ID17Hd : DRIFT, L:=IDLEN.PAPU50/2; - -IDC1 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector -IDC2 : SEXTUPOLE, L=0.084, K2=0.0; ! # ID corrector used in PAPU50 -IDC3 : SEXTUPOLE, L=0.100, K2=0.0; ! # ID corrector (only IDCH) -IDQS : SEXTUPOLE, L=0.200, K2=0.0; ! # ID quadskew corrector - -!!! -- sectors -- -M1A : LINE=(L134, QDA, L150, SDA0, GIR, L074, GIR, FC1, L082, QFA, L150, SFA0, L135, BPM, GIR);! # high beta xxM1 girder (with fast corrector) -M1AFF : LINE=( - L134, QDA, L150, SDA0, GIR, L074, GIR, FC1FF, L082, QFA, L150, SFA0, - L135, BPM, GIR);! # high beta xxM1 girder (with ff corrector) -M1B : LINE=(L134, QDB1, L150, SDB0, GIR, L240, GIR, QFB, L150, SFB0, L049, FC1, L052, QDB2, L140, BPM, GIR);! # low beta xxM1 girder -M1P : LINE=(L134, QDP1, L150, SDP0, GIR, L240, GIR, QFP, L150, SFP0, L049, FC1, L052, QDP2, L140, BPM, GIR);! # low beta xxM1 girder -M2A : LINE=(-M1A);! # high beta xxM2 girder (with fast correctors) -M2AFF : LINE=(-M1AFF);! # high beta xxM2 girder (with ff correctors) -M2B : LINE=(-M1B);! # low beta xxM2 girder -M2P : LINE=(-M1P);! # low beta xxM2 girder - -M2B_BbBPkup : LINE=(GIR, BPM, L140, QDB2, L052, FC1, L049, SFB0, L150, QFB, GIR, L120, BbBPkup, L120, GIR, SDB0, L150, QDB1, L134);! - -! arc sector in between B1-B2 (high beta odd-numbered straight sections): -C1A : LINE=(GIR, L474, GIR, SDA1, L170, Q1, L135, BPM, L125, SFA1, L230, Q2, L170, SDA2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1B : LINE=(GIR, L474, GIR, SDB1, L170, Q1, L135, BPM, L125, SFB1, L230, Q2, L170, SDB2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B1-B2 (low beta even-numbered straight sections): -C1P : LINE=(GIR, L474, GIR, SDP1, L170, Q1, L135, BPM, L125, SFP1, L230, Q2, L170, SDP2, GIR, L205, GIR, BPM, L011);! - -! arc sector in between B2-BC (high beta odd-numbered straight sections): -C2A : LINE=(GIR, L336, GIR, SDA3, L170, Q3, L230, SFA2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2B : LINE=(GIR, L336, GIR, SDB3, L170, Q3, L230, SFB2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between B2-BC (low beta even-numbered straight sections): -C2P : LINE=(GIR, L336, GIR, SDP3, L170, Q3, L230, SFP2, L260, Q4, L200, CV, GIR, L201, GIR, FC2, L119, BPM, L075);! - -! arc sector in between BC-B2 (high beta odd-numbered straight sections): -C3A : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFA2, L056, FC1, L090, Q3, L170, SDA3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3B : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFB2, L056, FC1, L090, Q3, L170, SDB3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between BC-B2 (low beta even-numbered straight sections): -C3P : LINE=(GIR, L715, GIR, L112, Q4, L133, BPM, L127, SFP2, L056, FC1, L090, Q3, L170, SDP3, GIR, L325, GIR, BPM, L011);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (high beta odd-numbered straight sections): -C4A_BbBKckrV : LINE=(GIR, L216, GIR, SDA2, L170, Q2, L230, SFA1, L125, BPM, L135, Q1, L170, SDA1, L237, BbBKckrV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_GBPM : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, GBPM, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_DCCT : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4B_TunePkupV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L237, TunePkupV, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections) -C4B_PingV : LINE=(GIR, L216, GIR, SDB2, L170, Q2, L230, SFB1, L125, BPM, L135, Q1, L170, SDB1, L135, PingV, GIR, L019, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, GIR, L474, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_DCCT : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, DCCT, GIR, L237, GIR);! - -! arc sector in between B2-B1 (low beta even-numbered straight sections): -C4P_TuneShkrV : LINE=(GIR, L216, GIR, SDP2, L170, Q2, L230, SFP1, L125, BPM, L135, Q1, L170, SDP1, L237, TuneShkrV, GIR, L237, GIR);! - -!! --- insertion sectors --- -IDA : LINE=(L500, LIA, L500, MIDA, L500, L500p, MIA, L500p, L500, MIDA, L500, LIA, L500);! # high beta ID straight section - -IDB : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section - -IDP : LINE=(L500, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section - -IDA_01_INJ : LINE=(SHVC, L156, ScrapH, L156, SHVC, L188, TuneShkrH, LIA, L419, InjSeptF, SI_INJ, LPMD);! # high beta INJ straight section and Scrapers - -IDB_02 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, H3Cav, LIB, L500);! # low beta ID straight section - -IDP_03_CAV : LINE=(L500, LIP, L500, L500, L500p, MIP, SRFCav, L500p, L500, L500, LIP, L500);! # low beta RF cavity straight section - -IDB_04 : LINE=(IDB); - -IDA_05 : LINE=(IDA); - -IDB_06 : LINE=(L500, LIB, L500, L350p, MIDB, ID06Hu, MIB, ID06Hd, MIDB, L350p, L500, LIB, L500);! # low beta ID straight section (CARNAUBA) - -IDP_07 : LINE=(L500, LIP, L500, L350p, MIDP, ID07Hu, MIP, ID07Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (CATERETE) - -IDB_08 : LINE=(L500, LIB, L150, L350p, MIDB, ID08Hu, MIB, ID08Hd, MIDB, L350p, L150, LIB, L500);! # low beta ID straight section (EMA) - -IDA_09 : LINE=(L500, LID3, L500p, MIDA, ID09Hu, MIA, ID09Hd, MIDA, L500p, LID3, L500);! # high beta ID straight section (MANACA) - -IDB_10 : LINE=(L839, L800p, IDQS, L270, IDBPM, L135, IDC1, L144p, MIDB, ID10Hu, MIB, ID10Hd, MIDB, L144p, IDC1, L135, IDBPM, L270, IDQS, L800p, L839);! # low beta (SABIA) - -IDP_11 : LINE=(L500, LIP, L500, L350p, MIDP, ID11Hu, MIP, ID11Hd, MIDP, L350p, L500, LIP, L500);! # low beta ID straight section (IPE) L=1.3m - -IDB_12 : LINE=(L500, LIB, L665, L100, L135, MIDB, L600p, MIB, L600p, MIDB, L135, L100, L665, LIB, L500);! # low beta ID straight section - -IDA_13 : LINE=(IDA); - -IDB_14 : LINE=(L365, LIB, L208p, IDC3, MIDB, ID14Hu, MIB, ID14Hd, MIDB, IDC3, L208p, LIB, L365);! # low beta ID straight section (PAINEIRA) - -IDP_15 : LINE=(IDP); - -IDB_16 : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, BbBKckL, LIB, L500);! # low beta ID straight section - -IDA_17 : LINE=(L500, LIA, L511, L350p, IDC2, L063, MIDA, ID17Hu, MIA, ID17Hd, MIDA, L063, IDC2, L350p, L511, BbBKckrH, LIA, L500);! # high beta ID straight !# section (SAPUCAIA) - -IDB_18_TUNEPKUPH : LINE=(L500, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, TunePkupH, LIB, L500);! # low beta ID straight section - -IDB_19_GSL15 : LINE=(L500, GSL15, LIP, L500, MIDP, L500, L500p, MIP, L500p, L500, MIDP, L500, LIP, L500);! # low beta ID straight section - -IDB_20_GSL07 : LINE=(L500, GSL07, LIB, L500, MIDB, L500, L500p, MIB, L500p, L500, MIDB, L500, LIB, L500);! # low beta ID straight section - -!!! -- girders -- - -!!! straight sections -SS_S01 : LINE=(IDA_01_INJ);! # INJECTION -SS_S02 : LINE=(IDB_02);! -SS_S03 : LINE=(IDP_03_CAV);! -SS_S04 : LINE=(IDB_04);! -SS_S05 : LINE=(IDA_05);! -SS_S06 : LINE=(IDB_06);! # CARNAUBA -SS_S07 : LINE=(IDP_07);! # CATERETE -SS_S08 : LINE=(IDB_08);! # EMA -SS_S09 : LINE=(IDA_09);! # MANACA -SS_S10 : LINE=(IDB_10);! # SABIA -SS_S11 : LINE=(IDP_11);! # IPE -SS_S12 : LINE=(IDB_12);! -SS_S13 : LINE=(IDA_13);! -SS_S14 : LINE=(IDB_14);! # PAINEIRA -SS_S15 : LINE=(IDP_15);! -SS_S16 : LINE=(IDB_16);! # INGA -SS_S17 : LINE=(IDA_17);! # SAPUCAIA -SS_S18 : LINE=(IDB_18_TUNEPKUPH);! -SS_S19 : LINE=(IDB_19_GSL15);! -SS_S20 : LINE=(IDB_20_GSL07);! - -!!! down and upstream straight sections -M1_S01 : LINE=(M1AFF);! -M2_S01 : LINE=(M2AFF);! -M1_S02 : LINE=(M1B);! -M2_S02 : LINE=(M2B);! -M1_S03 : LINE=(M1P);! -M2_S03 : LINE=(M2P);! -M1_S04 : LINE=(M1B);! -M2_S04 : LINE=(M2B);! -M1_S05 : LINE=(M1A);! -M2_S05 : LINE=(M2A);! -M1_S06 : LINE=(M1B);! -M2_S06 : LINE=(M2B);! -M1_S07 : LINE=(M1P);! -M2_S07 : LINE=(M2P);! -M1_S08 : LINE=(M1B);! -M2_S08 : LINE=(M2B);! -M1_S09 : LINE=(M1A);! -M2_S09 : LINE=(M2A);! -M1_S10 : LINE=(M1B);! -M2_S10 : LINE=(M2B);! -M1_S11 : LINE=(M1P);! -M2_S11 : LINE=(M2P);! -M1_S12 : LINE=(M1B);! -M2_S12 : LINE=(M2B);! -M1_S13 : LINE=(M1A);! -M2_S13 : LINE=(M2A);! -M1_S14 : LINE=(M1B);! -M2_S14 : LINE=(M2B);! -M1_S15 : LINE=(M1P);! -M2_S15 : LINE=(M2P);! -M1_S16 : LINE=(M1B);! -M2_S16 : LINE=(M2B_BbBPkup);! -M1_S17 : LINE=(M1A);! -M2_S17 : LINE=(M2A);! -M1_S18 : LINE=(M1B);! -M2_S18 : LINE=(M2B);! -M1_S19 : LINE=(M1P);! -M2_S19 : LINE=(M2P);! -M1_S20 : LINE=(M1B);! -M2_S20 : LINE=(M2B);! - -!!! dispersive arcs -C1_S01 : LINE=(C1A);! -C2_S01 : LINE=(C2A);! -C3_S01 : LINE=(C3B);! -C4_S01 : LINE=(C4B);! -C1_S02 : LINE=(C1B);! -C2_S02 : LINE=(C2B);! -C3_S02 : LINE=(C3P);! -C4_S02 : LINE=(C4P);! -C1_S03 : LINE=(C1P);! -C2_S03 : LINE=(C2P);! -C3_S03 : LINE=(C3B);! -C4_S03 : LINE=(C4B);! -C1_S04 : LINE=(C1B);! -C2_S04 : LINE=(C2B);! -C3_S04 : LINE=(C3A);! -C4_S04 : LINE=(C4A);! -C1_S05 : LINE=(C1A);! -C2_S05 : LINE=(C2A);! -C3_S05 : LINE=(C3B);! -C4_S05 : LINE=(C4B);! -C1_S06 : LINE=(C1B);! -C2_S06 : LINE=(C2B);! -C3_S06 : LINE=(C3P);! -C4_S06 : LINE=(C4P);! -C1_S07 : LINE=(C1P);! -C2_S07 : LINE=(C2P);! -C3_S07 : LINE=(C3B);! -C4_S07 : LINE=(C4B);! -C1_S08 : LINE=(C1B);! -C2_S08 : LINE=(C2B);! -C3_S08 : LINE=(C3A);! -C4_S08 : LINE=(C4A);! -C1_S09 : LINE=(C1A);! -C2_S09 : LINE=(C2A);! -C3_S09 : LINE=(C3B);! -C4_S09 : LINE=(C4B);! -C1_S10 : LINE=(C1B);! -C2_S10 : LINE=(C2B);! -C3_S10 : LINE=(C3P);! -C4_S10 : LINE=(C4P);! -C1_S11 : LINE=(C1P);! -C2_S11 : LINE=(C2P);! -C3_S11 : LINE=(C3B);! -C4_S11 : LINE=(C4B);! -C1_S12 : LINE=(C1B);! -C2_S12 : LINE=(C2B);! -C3_S12 : LINE=(C3A);! -C4_S12 : LINE=(C4A);! -C1_S13 : LINE=(C1A);! -C2_S13 : LINE=(C2A);! -C3_S13 : LINE=(C3B);! -C4_S13 : LINE=(C4B_DCCT);! -C1_S14 : LINE=(C1B);! -C2_S14 : LINE=(C2B);! -C3_S14 : LINE=(C3P);! -C4_S14 : LINE=(C4P_DCCT);! -C1_S15 : LINE=(C1P);! -C2_S15 : LINE=(C2P);! -C3_S15 : LINE=(C3B);! -C4_S15 : LINE=(C4B_GBPM);! -C1_S16 : LINE=(C1B);! -C2_S16 : LINE=(C2B);! -C3_S16 : LINE=(C3A);! -C4_S16 : LINE=(C4A_BbBKckrV);! -C1_S17 : LINE=(C1A);! -C2_S17 : LINE=(C2A);! -C3_S17 : LINE=(C3B);! -C4_S17 : LINE=(C4B_TunePkupV);! -C1_S18 : LINE=(C1B);! -C2_S18 : LINE=(C2B);! -C3_S18 : LINE=(C3P);! -C4_S18 : LINE=(C4P_TuneShkrV);! -C1_S19 : LINE=(C1P);! -C2_S19 : LINE=(C2P);! -C3_S19 : LINE=(C3B);! -C4_S19 : LINE=(C4B_PingV);! -C1_S20 : LINE=(C1B);! -C2_S20 : LINE=(C2B);! -C3_S20 : LINE=(C3A);! -C4_S20 : LINE=(C4A);! - -!!! SECTORS # 01..20 -S01 : LINE=(M1_S01, SS_S01, M2_S01, B1, C1_S01, B2, C2_S01, BC, C3_S01, B2, C4_S01, B1);! -S02 : LINE=(M1_S02, SS_S02, M2_S02, B1, C1_S02, B2, C2_S02, BC, C3_S02, B2, C4_S02, B1);! -S03 : LINE=(M1_S03, SS_S03, M2_S03, B1, C1_S03, B2, C2_S03, BC, C3_S03, B2, C4_S03, B1);! -S04 : LINE=(M1_S04, SS_S04, M2_S04, B1, C1_S04, B2, C2_S04, BC, C3_S04, B2, C4_S04, B1);! -S05 : LINE=(M1_S05, SS_S05, M2_S05, B1, C1_S05, B2, C2_S05, BC, C3_S05, B2, C4_S05, B1);! -S06 : LINE=(M1_S06, SS_S06, M2_S06, B1, C1_S06, B2, C2_S06, BC, C3_S06, B2, C4_S06, B1);! -S07 : LINE=(M1_S07, SS_S07, M2_S07, B1, C1_S07, B2, C2_S07, BC, C3_S07, B2, C4_S07, B1);! -S08 : LINE=(M1_S08, SS_S08, M2_S08, B1, C1_S08, B2, C2_S08, BC, C3_S08, B2, C4_S08, B1);! -S09 : LINE=(M1_S09, SS_S09, M2_S09, B1, C1_S09, B2, C2_S09, BC, C3_S09, B2, C4_S09, B1);! -S10 : LINE=(M1_S10, SS_S10, M2_S10, B1, C1_S10, B2, C2_S10, BC, C3_S10, B2, C4_S10, B1);! -S11 : LINE=(M1_S11, SS_S11, M2_S11, B1, C1_S11, B2, C2_S11, BC, C3_S11, B2, C4_S11, B1);! -S12 : LINE=(M1_S12, SS_S12, M2_S12, B1, C1_S12, B2, C2_S12, BC, C3_S12, B2, C4_S12, B1);! -S13 : LINE=(M1_S13, SS_S13, M2_S13, B1, C1_S13, B2, C2_S13, BC, C3_S13, B2, C4_S13, B1);! -S14 : LINE=(M1_S14, SS_S14, M2_S14, B1, C1_S14, B2, C2_S14, BC, C3_S14, B2, C4_S14, B1);! -S15 : LINE=(M1_S15, SS_S15, M2_S15, B1, C1_S15, B2, C2_S15, BC, C3_S15, B2, C4_S15, B1);! -S16 : LINE=(M1_S16, SS_S16, M2_S16, B1, C1_S16, B2, C2_S16, BC, C3_S16, B2, C4_S16, B1);! -S17 : LINE=(M1_S17, SS_S17, M2_S17, B1, C1_S17, B2, C2_S17, BC, C3_S17, B2, C4_S17, B1);! -S18 : LINE=(M1_S18, SS_S18, M2_S18, B1, C1_S18, B2, C2_S18, BC, C3_S18, B2, C4_S18, B1);! -S19 : LINE=(M1_S19, SS_S19, M2_S19, B1, C1_S19, B2, C2_S19, BC, C3_S19, B2, C4_S19, B1);! -S20 : LINE=(M1_S20, SS_S20, M2_S20, B1, C1_S20, B2, C2_S20, BC, C3_S20, B2, C4_S20, B1);! - -!!! The ring -SI : LINE=(S01, S02, S03, S04, S05, S06, S07, S08, S09, S10, S11, S12, S13, S14, S15, S16, S17, S18, S19, S20);! - -BEAM, PARTICLE=ELECTRON, RADIATE=TRUE, ENERGY=3.0; -USE, PERIOD=SI; -SAVE, SEQUENCE=SI, FILE=sirius-ring.temp, BARE; -CALL, FILE=sirius-ring.temp; -REMOVEFILE, FILE=sirius-ring.temp; - -SEQEDIT, SEQUENCE=SI; -FLATTEN; -CYCLE, START=M_START; -ENDEDIT; From f86992d0b4ac0fb17fa5e7cf08d66334216b2871 Mon Sep 17 00:00:00 2001 From: vitor Date: Mon, 9 Sep 2024 16:13:22 -0300 Subject: [PATCH 8/9] rename constructor --- .../{trackcpp2MADX_converter.py => MADX_SI_V25_04_constructor.py} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename other-simulators/MAD/{trackcpp2MADX_converter.py => MADX_SI_V25_04_constructor.py} (100%) diff --git a/other-simulators/MAD/trackcpp2MADX_converter.py b/other-simulators/MAD/MADX_SI_V25_04_constructor.py similarity index 100% rename from other-simulators/MAD/trackcpp2MADX_converter.py rename to other-simulators/MAD/MADX_SI_V25_04_constructor.py From 232d2a100dbd1cf10163947f190a5cc488271a94 Mon Sep 17 00:00:00 2001 From: vitor Date: Fri, 6 Dec 2024 10:09:10 -0300 Subject: [PATCH 9/9] save madx si model --- ...MADX_SI_V25_04_constructor.py => madx_sirius_constructor.py} | 2 +- other-simulators/MAD/{sirius_SI_V25_04.seq => sirius.seq} | 0 2 files changed, 1 insertion(+), 1 deletion(-) rename other-simulators/MAD/{MADX_SI_V25_04_constructor.py => madx_sirius_constructor.py} (99%) rename other-simulators/MAD/{sirius_SI_V25_04.seq => sirius.seq} (100%) diff --git a/other-simulators/MAD/MADX_SI_V25_04_constructor.py b/other-simulators/MAD/madx_sirius_constructor.py similarity index 99% rename from other-simulators/MAD/MADX_SI_V25_04_constructor.py rename to other-simulators/MAD/madx_sirius_constructor.py index 1339187..20c2ac0 100644 --- a/other-simulators/MAD/MADX_SI_V25_04_constructor.py +++ b/other-simulators/MAD/madx_sirius_constructor.py @@ -990,6 +990,6 @@ def addquadstring(num): """ # write MAD-X SIRIUS sequence output -f = open("sirius_SI_V25_04.seq", "w") +f = open("sirius.seq", "w") f.write(stri) f.close() diff --git a/other-simulators/MAD/sirius_SI_V25_04.seq b/other-simulators/MAD/sirius.seq similarity index 100% rename from other-simulators/MAD/sirius_SI_V25_04.seq rename to other-simulators/MAD/sirius.seq