From a377742e362b81c85cb5877e9c58cef0faed1ee7 Mon Sep 17 00:00:00 2001
From: "Reyesrivera, Jose" <reyesriv@msu.edu>
Date: Fri, 11 Oct 2019 13:15:06 -0400
Subject: [PATCH] 2jets plots

---
 .DS_Store                               |   Bin 6148 -> 6148 bytes
 plots/2jets/kt3_100/ggHgg_++++.png      |   Bin 0 -> 12975 bytes
 plots/2jets/kt3_100/ggHgg_++++_S34.png  |   Bin 0 -> 13306 bytes
 plots/2jets/kt3_100/ggHgg_+++-.png      |   Bin 0 -> 12774 bytes
 plots/2jets/kt3_100/ggHgg_+++-_S34.png  |   Bin 0 -> 13244 bytes
 plots/2jets/kt3_100/ggHgg_++-+.png      |   Bin 0 -> 12819 bytes
 plots/2jets/kt3_100/ggHgg_++-+_S34.png  |   Bin 0 -> 13387 bytes
 plots/2jets/kt3_100/ggHgg_++--.png      |   Bin 0 -> 12305 bytes
 plots/2jets/kt3_100/ggHgg_++--_S34.png  |   Bin 0 -> 12776 bytes
 plots/2jets/kt3_100/ggHgg_+-++.png      |   Bin 0 -> 14635 bytes
 plots/2jets/kt3_100/ggHgg_+-++_S34.png  |   Bin 0 -> 15444 bytes
 plots/2jets/kt3_100/ggHgg_+-+-.png      |   Bin 0 -> 12510 bytes
 plots/2jets/kt3_100/ggHgg_+-+-_S34.png  |   Bin 0 -> 13435 bytes
 plots/2jets/kt3_100/ggHgg_+---.png      |   Bin 0 -> 14046 bytes
 plots/2jets/kt3_100/ggHgg_+---_S34.png  |   Bin 0 -> 14808 bytes
 plots/2jets/{ => kt3_20}/ggHgg_++++.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_+++-.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_++-+.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_++--.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_+-++.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_+-+-.png |   Bin
 plots/2jets/{ => kt3_20}/ggHgg_+---.png |   Bin
 pvcoefficients/.DS_Store                |   Bin 6148 -> 6148 bytes
 python/log.py                           |    33 +
 scripts/plot.nb                         | 38308 +++++++++++++++++++++-
 25 files changed, 38251 insertions(+), 90 deletions(-)
 create mode 100644 plots/2jets/kt3_100/ggHgg_++++.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_++++_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+++-.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+++-_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_++-+.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_++-+_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_++--.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_++--_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+-++.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+-++_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+-+-.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+-+-_S34.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+---.png
 create mode 100644 plots/2jets/kt3_100/ggHgg_+---_S34.png
 rename plots/2jets/{ => kt3_20}/ggHgg_++++.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_+++-.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_++-+.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_++--.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_+-++.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_+-+-.png (100%)
 rename plots/2jets/{ => kt3_20}/ggHgg_+---.png (100%)
 create mode 100644 python/log.py

diff --git a/.DS_Store b/.DS_Store
index 112f53856e5e95f31fafc1537fb8a0d062809d01..ffd73e419682d5bd8769b990263934d1efb82104 100644
GIT binary patch
delta 20
bcmZoMXffCj$Ii$&IiB5^kzw;>_Cf&wJ|G2q

delta 20
bcmZoMXffCj$Ii$wIiB5^k#X~6_Cf&wJ{kpk

diff --git a/plots/2jets/kt3_100/ggHgg_++++.png b/plots/2jets/kt3_100/ggHgg_++++.png
new file mode 100644
index 0000000000000000000000000000000000000000..1ce8b1e8c70538e8ad2c4317315d15166adfe4b7
GIT binary patch
literal 12975
zcmbVy2|UzqyZ$I;D2y$Vm_d{*VURsz--YZ;))1!bJ2A2~B+0&JNmAK&vP8D*%D$6*
z-<LU$df)T^z306D_q^xK=VQ#wcYmJyzMt#5?khx1MV6R|mIwlY5X;L+sY4*=bRZBs
z8R$9ii{KrX6Ywv`LsQ2|-NY6C!~tz-ZEFE{a(`k0w{Wwzgh1Se9;nn2pX0uK<VqwX
z*V|~{EO=csgqVhb07mY^{L!M>?&zRwD6i|tHZoDik1*f#0Ku~oV9#HXm0;nM*>DOA
z2$w=%&U?a?-<TcC(!&vQi4|_vJj$W6LafgHnGV8Pkr>d;{3EAh;)&yho|jG}NrRz@
z>grq<-oB1%v!i=pxZdGva>Qq^xotFV$5s7KK!5JsFEqGm!Y6XNju6NtinBjFNPHp<
z_|ecwTE|HPZRzA{;$Q)hbg(dSvM`6cT02?6ovbY2+Gtx#2NOHEl8OBzXOl-3a7(lU
zT*JxP+``_;5zYZuvv6=k+nd<JA2?dTRqbuv;X-g%S65EgKgV&Jq3z_xJ)*#c5N8+q
zeST}SJzUe;&H}=7hg(pH`;HJdH=LVSh#M)y!}lPKrUn9mL*%6-G~E(cMm=>j9{G!}
z3kbZr$JwC#_IW~dzEOU9ScKm4MGhT>tEE4RV<z`B?=@%lYCRgt9z_kW6qeZku+A<l
z7J6IKn@M7Ny`s`ae^`jO752y?izpP8iLWNr4JSBP9=UZit)v<e#C(z5L3q5=xTU3K
zQu)QfTy>aLJPWvA)Q#Cu*Kz~Xd^b938yg#kyL6@FKAyI=A8=n6S5{UQ7egZ=I=_8e
z$Jv0LlSf{=2LuFM6R`h~lXJB>Q0#cUK_gp5H*dg?GPkxC_cPxt#d}xx-p7j&$V7{>
zgpRSXxOGp);h{%D2Y>kEQO~t%LPA0eEI#Y#@UV<@aAmiyPGXg8ZN5F0+pOi)jp>``
zA&@VzUgJoG-tCR)=1Z3@iJxruQn0Fg(8;g2LY^LU`mV06mFnfS#c-jmtZ1%Yb)Sip
zo$E}&E#`h|`uf$d+Jo=L4U5qVXNAmHp519_X}(9LzDE(bebU`;alDUcX=z(qTbrCn
zz-6S4YGi))^zhuh8=I7rl#t-L{p&s|xZfu8=KF#I9xkr62;bxBFs>RMP0j6W@ski(
z&-i#sbo5TsHMCr2PeTx?<ENjaquvLbvyqXJtE;QI+MkAOOIBCy3kO9+L`J}-=_X=^
zPCN(%>c93F(;R-iaCilG_z7oII*cAEd%8Lzh?3LOi&tV%R8ngH_Dzi~S})JV%`Fy&
z>fJs**!pU^u>$5|cUgCrQ6<}PZ*`Q3iK(HXq0(gq%t`HhvZvVLueXzvli(>0D_uBr
zK2Icju9nXV?v1({ua94XKwzo01PJN-*(yoz-@S|Fu^>Xs)SfQYhSQ4*dG6YVNYy8P
zxu(EI9x^mE#G)ME2gbsAv2TrwHCjtkQ-}RcjImF7LBT6Q9bMgn(%KX3@bW^NAcz8q
z^*y(vHsjM*Z{9Rzz!5VaD_23}fT1N1k;1?t<r*s`pgDPY-lqri1Q#z75fQmjN6RrU
zEG&#Lu|+Fn_hNVGAP~P07TR&lp>hI$_5M_tLM9I<XSm?zRtoNTUL1FjAs=<_K>?U|
zuali0*Z6IreHXwu%3SLlaYqH~uwM!LYD>f;TVg-zvCxz0N7-hD)Y8^2ELH{QCFJ=|
zi-17xIng}A!a$A*!J&ANdtERL_-qA5fl)!?gY8gSf3OvwSON-x_&1HGiNRaj+TyMW
zyRIe%FM%k;Z^hsvB=FBc?qTlr-uy57KZoOkVUUEKgZQN?_r1FhfdqSi$?-kxO{q#L
zwCZNW%1|V3zUY*?fZ&aWMS;W9e`YGi#K*_4RxELH&C6v@8co-WfSaLVjcP%<u8w^8
z@Ij5bk?R)|KE&_o;;&zFii($<Zyg7M3xV&8iwg4cgy8#)*KqR~@e8=gj?0u)QFs^u
z-hDcf=5ODE4LC`iC61|9y<;KWSQo*ZEW?uID2Gwgjw)wH?o&lnW0~7Vy3r?6=UeCC
zG<+zWZ%$wXy84M56`ni8x}{1Nl~qh3ZaX|TMSRfLgJ8wMVXY!jtCW-s^{&ZyPr$a&
zNMvCAGuCE^iiC?9^=YE^jysi!`eoy?6?l<e9w-TQx9+7*%(MDk8wri~P-*!xNcvOZ
z8Uo`U49jV=wqRf^%Ef&`lc7FPM{rXwpno=v6dRp}t*DRw3W9R$)Z|#;-sR0Rx9Bmn
z#}H0LgolUEw#5{>1_cGVu8ob3jIc*5M7?^&Z~OCQVj^Ar)PagruT$zrDw5g-kjJV<
zbG19Wy9FD&Lytd+;*Phtxw+d%4-XHSWW#O8ssuSXR|81Jo(LsbSXk8E{5XD2m&ts*
za&yz6oe2{%r<jS=zt4pEmd)|V#u5WtN$;3Bioc3O=y%GO?6PPzR(|kqw+j@DdBWy0
z5|k0|#A>lQJ2eu79PA90GA)_W?B(1=fP?fjVF+80Gv^6NkVvF0NbkA!IG4&KSbY{8
zA;o@WcxAVyMyy!R(7?cJwl%to%Eh(|No3NYIFuhZnYq&Ku@S2o_1&oB=?S~%@POm1
zqaZiZ7U!@*#TN4U&)h6OIOa~NRweV}9+yQnRrmc$v}8Cug2b(zi_m8)dX3V#&lXK8
zvhJsscRCfuW%)f(&|^wUMMcHfczhULo7cM#8X9WZnSA|ydN`Fo42AZxZtl3uMc6!R
zmXZI|xs7I8v=NI$1@k`^^^EcK+%~)-;1@@J4nvr)LwD_3LQKpa7jBbFR8+JolE>TI
zySlm>)H<Vb2Ma^P(N8`*xvi}VNh;L!=Z;7upc3^7toOj|hTmH8`cU-rwvAaRlEJK9
zBLhn+;5P_PN{W>!v>hzqs@bofd;-e4|4~=6sHc(J<b^yfVNjML<z}3OBp-asCz^S9
zRqNXk)Q~eqhke(<e4B9Mf^sioWN@`I)MV{d!nl%gPxy;P*6H1k8$vTP6<?D*hGGw=
zIF6tV?heU&q-<F<9#7kF({IJ!!ERa>9`tJ)W5dEcXQQ>tyfHx}*Li5Me+ue_-!BCF
zOsv$fZ{E_6PqnzyBe3@ITDIT3eLE~HY-xG<cp`xGqd|FrdCMzV25(LFD?j@B`uh8G
zG~f61^t^cSLXBE*q`$9kdw17<q%0C<illw~`0;fT&$_7$Ve(=5sru^X6^^_->!@f_
zu4PrZE&f2iVeNU(rOX%>h4I^VlM`<v#Dts|DIJf>=aUsxROY-%WPR1jJL)m+()XZ<
znJ>@IH%Bl;V6oNU-U<r~^R$-2uM6wx>+|yPfV@am&#5^|6&m=U8<mi7ZE;g30fWH=
zUZQq!a(bfi5~i+m_PTrLPO4U}<b#rp$g0iO+jzCV>H-MDLPO8_=o-`AeR3~P3q4kK
zFw+txDJcn_9W3U}^?{dg2PwFNt~5!Zq}8F~$HqPfvs<0wT;w5O74eu)a($kW7&+A*
z$J^iEAH}L_RAn_eiyN*fT-<72Q%Opo*WQ{f-J;s@J=Tvfq|`PNnO=_T)%N_PT1-cq
zzg=c45IY~*SP)rf&)Q!%Le=K`MT~N<fgt0(b%{Nbqc-0j?p78DMTo^yaWA+}iz1^g
zyJLd9aG?GDkr$?c_T9>*(qvj`xRW(soGNZx6-=XI45zY!f{^d2$eQD~qg0i6WQfoS
z{n08}q*J3qoX|;fuY<0bwM1j}F~r8&`d}tX)d)P0b#IpU@kaB-fJyM2V1?}zJF<0j
z+={-ft*)WryOV32XIy(4F1)(Gg7&R6{Yo^p$G4AeeSOQN(i@EUTZYg^svqfg;`QKw
z_x(0O4JL(yu`)JME!)e5olT96>_%1lU_DpQK?(~C-@0{6TpTx17oe5<AWaRw{AFZ1
zPG&sF(}lgfL;60;`;8yt#|I6Ku?r!i!kO{g^7(|+1Vu^b#qTHyG^_ofR$V=m{9#v>
z?YWS<CFa00!sd7iP(=)vu}irDHK&12*^@LWMr%8}SsxMt0s?o2zH-NT2Vn`qwEM#5
ziDKR!0AyXie%+?{5QG^;h*Vx)USMFLUf#gNJADHK-;+i4vwJNpEy+>a9^U%;!{DwZ
z4HvC=-8X0W9uHtDDDf!lj>uHvcrrhITI&!Pr=y{91NaNn+8GDIEl;(#-9@FPVN&UR
zeVV9XB^C{~Xi8}WR965ymUuL?>RQUKa5tN!WJ!QUw??oZt=-tN+#bgkXVyj5i`HgV
zO5jip#XdgC{fb~UlNTn(KAUd=BT7jmt*Y8NF)`81;9F(UcBOEz{e;e_$}MtF;)Vce
zV!q+2_^u6D?2y^MnpUGhmWAaxIW4C7+uPgBEG%!{yov9yv^?*Gm65zp=@}zR-m{6q
z53a|FZ)|Mnm)ITv*!cea`(&R(>!5}@y3#>go8qAbrvkIMWf#xJVhaK~f#Wh!FW<*}
zrN)aXJkotVG3F&r$+bd^F_#6cxe?6#j@aDUVTNDiuTP$GTT90;T-~HsG|;}p>nHu$
zdR|&Vp_R+`Kyhvtto{HXQ4(F)bBv9R1))ifDoaW|!RT;Zf28tq>55||srAs;lMS++
zG#UzusH7xAb#)#Qk>kRYlMl7E#%XGI){;9cHF7kU4N<|P_S!j`2o5eOKdU8cH;{y&
z6v#l+tcCdbweqwcBjXDnbqdjigZIUq!=j=h-bdf>(uIR}D<o~E`qf27f@^3ytGV0J
zy4!J;s}_u-E^C{bnSEqT^kiXH%0oR@1xXF*6=0pGx8yzddv+oR_iB<i8a^~-@iOKY
z*;#osEoTmW*tw765D~Mpv!kM-A_;1+DK`3zy#x0ImCnkSn!9#ayMDG|k#1V2g^%46
z*=xk!8cXv9qmef_I98gl*EnO^Z25bUd75k*8XBr8V#-i!TU#ahvln-q5~cLc-d=)I
z7D&y&if^#hbh|@Li#eF80=+!Fyxqwl1{GyxQ2?AkREz*z9v7#pr?==({ysOiGf_~o
z*GXPJWcd5ouj!H@S(&^WP5R6);!>V$nl}uNVN%3urJ3J=^0l4&sit7iHdiaJwX?I<
zWo2m1XRk6moCGVgwcV@wxOnJgRYmY;071aeT_z=c^yrcJ?oTt7?5I7#8E>^})wKoj
z>V}mWia;>|_x|s{?D?GU(g6Uuyt-PVmnVMM9pT{UDC<iCvQUlsYQ1661%#QE)lGi>
zH=gDI=Ib96>g73<i-gY8Y-FWA)&4x=jdoyN+!&~KI=a5-BxD``rp0`jY|Qgg^3N5Q
z_^fiXMHycbZ!g~J;{rr7H4ipRjgFS~Rog6i2u8Htb4kWm4NoK_8AoGKMahg=uQ5pX
z@w<#BiqCfUtP1gX>$xuzrErjPH6t}bhIESIL~whfW5$J{hm&<O!*Gpy9DR;=TbX0)
zZO{RYRk~Gh2L~=9;xzS~n}4Um_QU|WTfpV=^BeBxh24955L4@?7tqO08=?Rug%;L4
z>w5kZ;znk-1r2QKja5A;T61lqlPxA?q~04p%;I?G6y`2z`?Hl1MTXBgG)G26TuS)5
z^7&N+qb2<EdvDZqX8-G{59lvcUpd}EYQD&d)UV6bxh)=RC>;<mGpzeS+~2c1xT7U*
zkQKxWeu<rMq%(1Q`>@LCG_c?`?2X8SE8eye7U6Iv#Nk8(End|Ne|e+gsMIaeCVM)L
zcU5x)47@!ZV_zXA7a3ZiU-B+&%G804$Ma^F*w9qYoLpC1hOGsOTp}^Q0wVP8ZVr*T
z_1=tqNkx_(6VuA*SRc#Na|X&1e&DsV$xZ23-hLkod$NBykcsR1GnxzM>yQ;KCLhku
z5qFdu9uqlIyOcQ^eJ!PCJ~Ji=mWhz+ElRoVb>Mr!-yI{-l)Ly8M{qbsM&s{r{>7A;
z%%*zK@ZZlXAm-h!xJK%3leZ(PaN;ZX*<Hl@a9dUEfcf_A$0OQu^74Y94!^#oaeV9I
z9GS{pRmZWGj^W&NCRqB#HHxL2^A1jTU<^Zs<r^)tH@K?BXL5=M_HORr5L^vma`(>P
z9kFRZDj$`P?L;!kzKV)EVSf(u4NyX=UNYL6s~YxDaVR9d{tS+9#Pe!@V72vxZIAoE
zpCr~beqgk7>ElOEmqI1Zd>!^kIcD+@O}6M3bFjRzu*k4P9gOpogOni^KVEN*zWw8)
zp?<B8x3V&J)ZX`KrF5<4Xf@?{hIMCW2f)a-Hyp#I=<$QC`4qP)!phN_CzGgrovKHj
z$**3$3Lqe@0gxVW^ZCvchO1WxK|M=y9c%HN(ohw32Jkv7D=RTE@$78U($ZKgHi6&n
zaI=kz(EpBFmFAI1hkHa^;wWG<N5<E$KZCGyt$Z|Jc3(I_sOA;d$mZZkpDJ5Hwp1PW
zZa7ZX2Lc}5-E7GD<C|+)bDV*>d@U0onWh`RVqb)W$SW#N+cyBA;Ad}dZ&%m)nCF_^
zU_oYe^@%TT&leOSckpD2nLVFsPvg_yfr497Qc_S*u(`SEyfhFEB!lg37^<SOQdUOh
zqj4?$wQIvYJ)673=(V5uOdK58y+(jJJClU>)+ZYXNa)<ws`mh1_c>WI{$x~rxW;9&
zog4UcU43N>IiJ+Uxf)C}=8#(FO9&xrZm!xseVIL=H~zK{7gTkbixH1_qB|SA3-pc%
zqj6_cZ&B}p(_K1Hp6yG8Wu6Kp0dNEA?yLjW{y_64CBPz80fU2s>N%R9esJj)NTsPM
z#UmF$aSjOy0U*$I<Y|yru5-BoNzmK!a(BR67$bkJR<50{H;|TVKUC)s6+Hnc@okD6
zRJX)d*T7&zl2mjXELqC{I2`S*q3!K0lf&S2tPC+iTLlw4{hcZ1s)aj=looli95DEP
zRnfp<N`aWzjD;JSqh%_+gXd7}ICo@l&M|gv!9HJm+Ft%-qnV+!sOU@v0HM_O?HiDM
zbc=2JCmVtUY=5o~K1$j6_+@m?cAKKbRoL+sWhiU1+f=tKgJH4F15;B*M=}2=iC)Hw
z?Y(N$s~RFF$ny}ydj1j;P8!%xYTxZD!@!Ce@!lIn*BoTkJp>%l+S+>D=V;~er)n)-
z-E!}vT>xc@^*V&d+bGKCU&q9thf7vsYL934R3loiFS0_>&jWUPp3aq_QWC0c=5=II
zo^c95skmG?nE3MLml2<(yi%<^Jw6a4F-9KN=H@dyKaBS_LJWW=<1rP&N_*|vAXBXD
z-HXqXCjI2eAdu2V;zFQPiLHM*4`wAz&1<uTwMIO0C(QVG3J{o+UvDGI2<|g&Ki9Ti
zI!Ql1YHGK3Wy?A~zX%jh3I02GzSvP;r^xQLE*zYinkpmM*jXWdBXk}D6_{3$KtXwn
z1AM!B2RUQHggt`3_QA`&6WSrVAyPc6uL3z%b=26MFG66^BLpVO%F2d@NeY>492_0r
zzCDb%hHV-e(hF+Hx9o@?88Mif7_0U)Gc~36_?7nXwd>T=1j*T`!t(RN-MIu1nD<EE
zK|G)#*RI{ZeLIHJP|wh?gPwtoZln}#48~VickuM&h~r9Fzs+d1=N^#x0(2$_n~_0!
zT=YxmpE4Bbzd=Jk=g<o_IOLwDg9ekWon6QG?<xRIb#{uot*7?eJh(}Tc?rr;l1fZm
zoIJF9X$K$?y*#ZP&AHjx3zdBoA;WYwwVOZW4=V3pz=s5zs)wduym;~F5x{+xg@Sy1
z(J;oSme&e5r0*-i07S&fG$dwqTipze7x(qi(;G^Y3}U~cD5t=1(<ok2QvVJF5^L4-
z{P}YrW$yYseVUI-dl*AsI=r&HPZx-)`|z`g4nQ)ak8SNt<`|qN(dsWX<=w)c2S9nc
zn{hFq?%|y$r1vQ;khEKyn|gYBNLs9VPLU2fc?k238(+<N?o&$l7PXk`Rl4NGEIs$#
zf0`yp3Ay)qWSeYmW(GiNZB5NCBtV2HXwLihJxe<PvxAbSUus`GXbV`+vQh9UT87F&
zXO{vTCGwHotXOZ>;o#RxN1-I7vZt}D$g%dDNsg<McPj<W;(#13v9XWsy!`U%7UsU=
zCKDODg@&W#-Z==2O#m$6ex>G0P({!MNW0MmpK-xY*MLFpeM?VE>XjYwk=RKj_kSRX
z2YEPEVq$8K>3<n_+AAFEBY_Hb>9*wXz(3n!gE66ccG;&E{##<}mksuj07{qgJ#UPX
zG5ioHd47ubB!WlJ_ARm^L5*#4>u>?ZSSD=FmZsWE>761_*GyRB3ECbWfSWDL3?Zrq
za?R=+4C0wdIt21Wv0Eep)*yuknRt_4{-2*Xpxo+|5J(gAki$79X>e|(bi2NrGNI>y
zqAaBkGtB@p+za_4KJ1@QA%43+Y=h8n#Lts~haFLG6u_F+fM52Rrp(T7-2loG1DUuD
z<=;LrU}CvIVxI=@XWeg)0V=4klo!m@!VUsimqo700u}LzV(i&J|0^2-7GV4FWWLNV
zhw?^K0qz#|78ddld-u7<I%W?bB~tE@0b;44t(~o&qoAk=DE!Z9nYZ~RB?CYa(Jf>V
z5GXAz1#4(EV02|GCBtWFmZOn<F}o{PiWCBQHkHNlV`OCH=TD%_mOCx<EH2vY?gNHY
z<9!59*Vfv)yEcx_*Qo)*YGY%g-EfI=9M9~xNG6HfNS5yNkb9|Rg!Kah1Ix?H85tSJ
z$HxHj=JvPJtt~G0EI7r*#T8n1fFJ`21y<Y|pfj7Anr11*^^A^QFG87-ivn>p^mY2X
zXV36<eZ0J?25kWpzk&H?&XcJwfB!Wq4UUQZOG4?@cnKnA&V+=Maokz`x|sL3$6&Ox
zvU>OF)1x(NYU<mRMA^M9BgMljHpTJfd1^Q5NC-R)GS$gYfHv)}jvh5qsIu#P_VYAc
zWv=&A&HVCbAag)w(Oe#pq?EpjZK|rOdh_NAR_3iH8>lW)jDKem-AFs0xB&n}w6$IL
z*C&DGys+aj=FA-d1Yk!0g!^v=1qFfJ19%KlIp+0i7z)q~z<*6lOzz+B9>~+T<JXsv
zkN|@KP)vuV=QLITiU4gCuG(XVmx^FMCRoXMxt<_%``KdJ%C|0D1q30>I!<YBHhp$>
z_8kbWds6Fnsgkb3r{@UO+l>eye!re+o`(cmGI9RM-dW*Dnv2UJbmfv4c1RB>ulBHh
z&RiDeAD9<Rh+@yZ2$>)hSkdC@fMY(p8X~<XNb@i+n=Vz)EB{ESscsr!!HiTMmvqNe
zxNS^*`vzT0)no%msNV`n9%5c^tkfl~l=x7W4+6W(&>Jr3j_bZM_mLA3UhSU~WQs0z
zieI~7@BcY7(*n>D*RBO8Av%&sxz{gWruHsmDJNw0+no4HFT<m|r|(yZKUSI_?>Q5+
zBkuS~TJE>KM?mrJLCPlQ&4!Ad;?WiOtUNu=v{^E8(73qxiCr#Ghs#CnONT+H$HUW;
z3ov%j$-v4)0ZRVnO_nBG^Ii`fiL8>+3%$H6AyPm}Iow|0<KuIjYcHRrU{y`_S{*3|
z(YtXn+RbPwjw-k3)}UtA(ISSVhsD@esV)sS$Ga%i=bMz<jv@1PW_G8{*vvs61;|(6
zU=gt3K701;`}gnY+LK)%Pk|p*R8>=e#I~=e?CIfQYG!tHbd=(;n4@jvZh<>JDfJ4?
zZXubz!ma%F>>`Xq`xP7ZL?Yuo;mUVcQ)x=5w#Q~m%k9XnQxxloJ^~7>;~WtC;+3+V
zKfegZ4B%Cu?!SJG40llkI_Ben58#UAC_v12LBGhL!l~uq9iVy!roRJwg65TRjhFk@
zTt}zqUSdihL&vlT%J(5XXiIE#eU^v1cioBd`T;(4-)P*4<!HBawr&6NGO1kDS7x)l
z4}Z7lXzdWewNlnXTaQRp$=;g!8U|1@kYp`NOypElPU}d0VARy}7CnN!$oS~!8<BEA
zp#gw->u~7|X9@s5(U~j?&|Pzd^ODv_gSgn(pF=~3eHyAKlcc_G%lXZmh83?96TME4
z51>}G7a*|UFZ{Nf6&tZ%9Q8|?@ZOIdsIo<8WuLwD^9Dfg>$dhsBp+YCF!hFueMDH8
zKFIk(JwC(?kP5*fxipXmB+X>rM=F3qYiRWLs){Q^0U8CZ!!zA&+<iVt)N>ceH3dtC
z1ZBq*PwzwgZZ<uhnaN7R5huLOJ`9u}IzRz%nj&@<B^Vg!CL)nDPwpCUQt#1$K9=EU
z={&9Grlx_uK2RhksB8DXp2e?f$|->A9SH(!0<{NNtz2(_A`1%&NUjSxtxwc3;P#s-
z?%RT9kl(eM&Ic1&*U>)p?R^+E=jp&igEN>cmi(dLMtpxFpg&i8+_6)1xWvvA;4$m?
z@Q@JD;Chgw*(tL1qT5O{w;w=kTYdtUReT8sFpH1r3_YsstK55|em?IYAm)ubG`;II
zEu9ETrVGUv&@Qa2tMh9&aJp?e2g(CJCgOqU_&nQ_$_>T}6W$M>Z^=OcucC<YXZAna
z{$luUR_2kI_OlolxtibrF%%>iWz<x-uhYL(tw_pv9jvm9{rgRYFY?|~`#4g;C+Y>D
z`J?!d7yLEF0?h&*6!?r@y%&a+A&>@*eJon!(tD3D6g3jTD=ZNFwr2X8rxB0vCWyx2
zjV=@r|EbK5UJX(PT0sPy#Retn*pMPm3A$3jVm0h-@>Sn;<~c;Lw-zUA*OO##k}DSL
zE_E{!!Me{CuxIbli$TQG;x9n(=FFI~*V-J?gGgB@!Oflf()=uGr080&k0gYGKmywR
zrLED%UY7EcMkuDECM(j)>%4G2J1Yi(kH9?7mY^^yXl;`;V$pIGPIpUEAL%vV9O@k#
z4_1AH`_KLGUq$foas{wdnMcP2RVjU#bCKE*$}G!1DPK_UbZ*nZaSDjZ{y-mlay9s`
z-F6uRw_;6Ta(VbpUF<>47p4t5*5r%IZY^wFr0#J#9V@|8&I(UenG&s~YH)`3UYkY_
zXY8c}!fhBl_TlM)YukiSLDjsN8m{$k)$uV1e=*BHSKS?3ZB1?(4eZ~mZNqkUyD#L7
z@{ORlANGqCIik!_z3;jXc<SP`M>o8m$xaEXh!DrGzj|Oqzggpv5u<WzcQv@}#+6Z_
zEWJT_2!xF2%nP7U-N?Fj!D0NWQRU;inpf_xoPVg?*UIyb>^X<3IF1mpmBpHGJWEPz
zS>hBwNTbo*bougN+;BzX-MPm}f><x@9mHF$6L>Ocf#hi+#ZEs(ZKj&cRksDazG2_c
z>ACUw#U<#oX4*8M8C4#2@z&isLnSPjuKiu>t^6GarAs0*doT$uGkAG4t5N0cJyG-m
zQgy_03U`@6^XMM*e<TJY|D<{1=*b5q!R?)0fV}eOzJEgG+hN1OJrNBC-_IX8{2qMt
z>wE&*r(hi_FE7u}&j-A@F@yrN6S%6@&pCQMdGchu#v3>eoP?5qR?zwVyO`JhXO--u
z1y$cez(wiBeX3GZ;bnnAkhR`9Z-3qzx@PR2$|hUbGMW+<9MO>>w!3Wl{JbC62)+sE
z$+)<<sH>~{_?&{?N1j&h8Cr32c3yC*Xm3|S1si=rKYpxV?vM#O@ptL?6R^WNL==zG
z_pBv{F5vBnj+g8mc?)=>S-$r4L-3e0Z`wS3=vU3az<}mY0Dz7V!4s#Hqp42$6+dmz
zcEAeRZcU4Qp8gK#8+$<SIG9T~fBt-g$R>2JVp&BAU*p!f&?92G&#L+}(*r%RDeU$e
zJ`j@y8$ZY^P~Q4}{3zT5%_l0Nz}^M()u9y^z(Ys0Zc>s21&DrB&w(QTLBcljSh%q(
z1g(Wk`4A?rm3^mY&@iK}!E2!S^rp%Cn<6?TLbP(f`~1YE{}p69`YyZ%Dk@w+ASP=8
z;7y!jK!@8^qapEmWmQwvhEgNSiT)n1<!$e|NL&BRT)cCQ$~`mx4rKxO>CC3^;6Xo7
zql)xa8c4;LeXZYR8J-XiLlFaE%}|71+G^`k^+{CRWDvUg-Hcf_mxl}9xo^rah0LC2
zde3&7;?`LQOX%g{$wzl+Vh>Z4SeP&w+1a(*J&HiPz{?>aN7;(9qANK1;4>Y((<K3;
z$!~(u)i?RGRE!}|XoOuvJLIZ>>dVa(@^?Tm{pK7NR{?hvR*S(xNBHyGU%RbBh`2`O
zU>0{8@ZkIPk3;wndt~$<9ye5IeOaP!5*NJ(!)W&eH>%qWc$ky~I}A70l>aPsUokyC
zriMEmp2HuPIvHc<;+j{vfzhA(j@aT!xeQEJx4rh5whL^XH2JTlF~J~k=K5UgzGjQJ
z4PFTv4A@m-R00j;-g=-m%tMze)|1vXp?95BnqkkKbSTRSa1tsbiC-4g59@Pi$-m#z
z9vd5<gs~b81a1^`3NQKt`w`jMc5*7mC)@nlBWkt_$WJa7_>UBwaIQ7ileU5T!E2HV
zGp7CBsj}l1dJWAr+<PawklP|-&04mpW{YEh2oC}!0K15h&}<a!?G5+)TBuIjsY>3}
zoi&p=Om-27Mk@)Ar%O{p;2A777FXw*I9TuFdtE19J!C(tPW@b#X*T?wefiwyC0*ur
zkFU1yYEX=bDaOEln3a6aCR1TtB%hA0k)NBIseHk#LwykfPsg~?BhU#Ka6uJrIX+}6
zFE&b^Y*k<DjNw$$+yM|>E;vEPeVBcpf!?Sj`>L!AXf5Bl1V)ZL@Gi9cygZA?%*;Ly
zxiwH8Mp1MalY);lC4vC6e1H)k2B^+M{JQG>Wd5J+<2UP*xHNtOY#|VTi1OQi;S2fW
z^Jq9TYQT`~XLM0Q^0yg8FW5CD)llWVbxhuThC!(gFFHw%ZfX+(F6MTbJ_gkF${em9
zq%xE&M5-#Fib*Uz-epI?mI?HG=$SB9g#!`OjDRCf&(&BLWo6C9JxX@p_)0xIJY3$4
zm6-;psTMRo%$mdV2~?AWc0e03e615mv=!CF;7;iNQY#&R{{_^_<qd!+fLav|uyu6w
z%6RR#X+8`ETG1P)M{AV^A2&|i%kA@rhru=LCRw2R`ud=U3@jC!TU)|HLLanlJ67f9
zD*o>MeUIl;{Pd%=xVYTlBS2;B0I7Pdq+?*fNirmzKy_#U+z#>XOHDW-aIz+8h5LP9
zzCb+1#l*&J`LnaK$Wi7zaq2l4Hx<&<V5oM>LYcQFD!o=nO6lu@4glg=_P>AN?Ce~%
z<iJYi5vPFojUfmtF5*GpQW?a=#6TEcKAD;_4Ma^k3B^^qR2t@K@s@%j*f9Ap0z3)O
z!_9#ZDH}l#nl0d+kLL2Sa}{PhxNXPU+fy;y-O{FhG4m?9tE2<CKYvM^J2Yj$)R=a&
z)d~qHNpVrp?<Saaz78|Fyn;e#i+TFZ&@Ahy7EJ?#Dwh>K)VHp#mvYRZSnSS*s*m1y
z4bJKkB4Y!^g_r>Z;KCsg79jhr9or#5dfwgL4GkrV&r(!SfFd3|c;Hc8^ZE1VckiqK
z;N?%q1IrTdOo)mmojJ#FK&s@>Eof{OAMCN78>@*qvn9dJrP`~$bbrvwHQ;0rC2Cr5
z>OpcuwNx1tRaK2B_Wr7?;6Ec&fDcgcff$4$A}AK)@ObQ#;XAGyG5w0XP=qZ*T8cLC
zE3L~y-yoxczwU9?5_6=3C?UCH3LKF5#76)@`lXtP|BhiK_UsE_ZvVm&we@@Joilcf
zPyByNkH31W{_2(bbK$?8`p<QM3kFQnpPja7FaUP1JdMw?j!*s!vI&A8eI!;7h*d>}
zP_)7WV3q^WnO=YvTU=aB5@gm9&j&CA=p*1x*KprOiXPVa19JwFMjD7oP&xsLpMMug
z+@~5tfQgFQ$nBY+*xkEj=<yotH36Zd?<>QlfRebnxB#cX0+5<nF*l=IQ?CGj8XPu)
z!~z}P^3fyK8#iX>=Uttgbn>+3+_bf0RI=OJ+Y|X7zxfRpfI9>bfcfu9*XZd7Y>MkR
zfJg2gMDA87Ee*}XwdUsLgpRqtHpFjH5}|_s3J=D{#sD!$=-3?|KXn1E2(U0RcwS#+
zMk!^2g7W#szaf)=CIh!CXifmpsDl`VVSqrS@c(xUJ%Cc*lZ0KrhEf?C8iK|^ng=K~
zpg>uE2JKuGPft&2Y2d!OapMN&<@@(+)kem^P@<_>1o&e@hnAWeFlJSG>?}qAOCqRV
zz)%X1AgRkBNS0%kP2{bv--|V{1`4nKy|D>6kVLe?SJCXMD!Q{MgOQ1R<ZC?>CGl_J
zZdFl&VjB$CF$H(=H<RA;vx<GM>+>1Gg3`vz{HqxL?dp5(jybFCe^j~WS-_?DPpp4`
z4NsFZ1`ee?<6M5JY1TkY#J5Yg!5DRMvi29X4LGWQ)c+7ys=`bnaTSaW4FZaIZ>{ay
zz>f;vnc_aPPkFDmfel}v61~9Amhq?DQv1VSFI}npUAeswR<!-?`m#`yBWQpz*cI|7
zIBUVr_;r#*uspaNZ0;X&L*ybr>JFZXS=L66-)HlJ!K_a?%If|f^5M)P>bfQdjEqK~
za2pZ6BEZ!7km?#3iaR5H(1ib4m~R8dPwUd*agU|EtGt$8z{V-T&JSYxVOb8@Uo(P1
z#0|_V8wh8)zb6GV=GV?4*atBCJiX$@?S)>@;_C%T!6^(vdAyNQ+Hi`7mX;@>1IT>;
zsld1ASQhHO?Y>jWM@uYyA6T{aYH=q5<6giGdXNIv1cWE(j6kOUc_Jv?Bu7#HSsrpV
z-ve_+dU`r=4+`+{UBCO}A&BQ?=duJcQ??5b2!`W-l@kfc$@csSgb2`h3d3S&jqoQ4
z08gt^W-$3TGr|jZvIk1d3DBf~zSZ!Y_;14?!kKS*rqGwmF;880J=5sh%z1XdO-!UJ
zWKJb(7#W41IasCeBNRVyGf9t%NVNJAaa{n@&j@{^18V)>oTq=PDGM94t*xzGgYYao
zDE^?EKOp7*ScU)CTL1eR@dy9>4GjGs7ZUn_F7Vi*D!oYMUJ5OG5EH2m<4C=KErz>-
z<rEb8c1eZI&Eg+Mmt-Qrqn>M4hVcss2ms5AmR9oJr|A_Hhk?{a55q}GNLB$+oNmGb
z)AZ5q3g~YF%#hK$z>GPb6R3^jHj`1i1pMDHsC~T5zXgOq(F6Q&ch@DT;VGC=g3=if
zjd<|?FZ;_>y9q`7iRf%=ByDIq6u}v@<a;{rOYgN_2O?DMH7L+uxc*B&iB^OV@sDsP
zSCb9(4G8}k>I?oCF1h`fRbgz@1j{8<U;V75L{k=YGZeTO-QC?eI5=prGC7)h>_AHe
z3Zp4c+|AH*>mhTVJj2R2u%4ekW22&&u52afkolaI+L6m|00Xl|qd&cSmug*+k%57!
zKX{P&V+lC!fg=zYt8EGgfpZ)91PBqMqoY78lzn;W41C^XRE;_Zh%=Dh0JNR{XIghz
zBQ5W}rVfe>ieffUcJ8g4gz$kQ|G{?sPf&?_;#vCyj*nwd+g|zU^k6~}3^PPtT1Dz3
I>Y@LC0E1RW_W%F@

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_++++_S34.png b/plots/2jets/kt3_100/ggHgg_++++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..177cb468323c93c4d5f46c19302d0d2c3f71f34a
GIT binary patch
literal 13306
zcmbt*1z1$?zV#;5L23x;m_Y>$Qc92-LO?)DKvIxyX(WZAq(nfFloF9H=|)0YL_)f|
zJHHqG-}{|&?m5pn_xt8~gkkocz2Cj}FV<SWWuSumL;R~$S0M<(mzEM&f*?$F2*Qwr
zVS-QYvpb%GUzsme)a{k@oDep))<&ilh6sBX8$*Plv#AjTIS)UPugAyaz&m!jDk;_1
zWYuz?Rxl8sg8mAe*yBd7VT<MQVcBp_&#^^#yt)@of&L+qbJfR+r{ZIrp+|b-8QdpS
z+!`;(=6XR>MhxS3mOxx4#PgO>7Wq|tC60U=h_xc#r}xG{X6J;B-KFnu><JQvUdJmb
zv0X}yjA*x{d7{11>7;keZKblKGj7RN{fSp|4s*d8EE>l~>Zu(B;gVeZ!+>JrDZq!?
z_7dv$%GO5qPI|V6keIEZp1q*~!pYR$1YvJth)}b(FtXLNM9At{89V418zPLXZ4t`$
z4hDu+_I3ysgo2^1owb#o1>%XFA>y%>g$sfo;pF7R>h$M(tk112rN&=IfD<7vPW1cu
zrq)&n6;n$?h?AY;K0gOLKL-bb;~qZ;7e6QWlVpk-2tq*8;-V_f@vEb*S}G0=!W-)&
zF_ba)Nig}BY?OODa4E_Um>;cvc*PJK_mqugdiPP&)|1MiFM@m6{nJIaOTP3MnF_ww
z7FT1Bb{ya?v2_Z$#5=^mPW+alJTN7d#>(z_*Ls+8M&C%29xMC&_L=!y`+egYJFmlz
zeaFxMJqqxk5h_al^Ny9;cgb8|e5k14&+31<-O20k?@w5(p{=c*lamu39v&DN*eFZ|
zL0$sF->SyO#zLrh-$g~ay!fy`=9>5MW3vJ0VVcJ1=qS_U#0M{TK0OY-3_%lJVcz+L
zg|;h$1yNB^MnywG&snr9>^ovO&~QJ!T%GD~=iy)V7gtwjqn*c$zD3^Jp6lFBApkd!
zcg8<g(N9n4bf+&qKAuqcWaCGsa_P8->ysz_!smzGYim{!ZIOwII@;QTe0<L1?)#mI
zg2#vRNnrs2W%i3o78WZN4$F};H_tzuo}Shoc3OKJ{~EWwY1|c`nVYLq>v4*2i3JvD
zEnEzvrlNZ3>Z+`)e2<e;KAuk$#_?X3OOE{7HA5q#v(t4?&!fc*J3G7c%`i_ms-m(o
zA|j&HdYm;%CXD8OgRuU?hb_Li<d?5p5#Z-%)vhq$i34wfC8z7^M8KvJ^8vpyd<YVO
zPI?#~xNN0;)jwQ6KeG<{YP&jIl2>~c3n!+hXNzb{Nl76lA&HVnmrSLkpg^G6@$R|q
zSrn+dfk)xF+pjhvYQghM)4H0QkB^U?J>PYIt+loF=A(Bjze=s2J^N5w>$$%+dh6D$
zNAK>Iukp0MW5GQs2R9Pqh!tiUo12+=>+W3|VUGt$gY~g$Ci(cX*>{>Zh;b@kHL56u
zOa1uqgUfMc(9h2ghlKIOhA*=?KR-V&Z+*x(iRJcfecYheuZ7M}>^w^66~16V5X@_R
zYE}3ANX^adL7X@Gjlf!2YHn_BZLRJNVj`3{LwF+=O3KCMQ2DW7e_vljLc*$zLZJBD
zH*f0L6f;#ca`q%k!BIAN!<}%KcrAx_cKROQiTV~00Q)l2#+2l?)yC8kO1qpDo51g|
z6vS5Jd@$+n?jQoL#&|3{fe9V(Rlh*JBORfsq@^`7HntXF_T<SET0R>ub9WHU2Z7Nn
zC=jPT6NW)>5Zqh{7zQNL14o1RCNQuC&V`Kx*FfbBwqoOp!XU_d&e{KE5;HUNGy1B{
zX6iFOA@KdYgPSlM2C$DLj(rFw<n;mh&yN#ZYXmlnv{KX1oU{m^adh~MIR3IEl{icj
z8rxKZ7e2x%2*898=#tXXf&Tu{7cI1n_XAX@W*8}d5`n`;<6Um-cz+KBm5+9~UOfd^
zn)Bkx;r8a{W_|8gn~RgyJpw6MP*8C3_a!D+c~CeeE>jbRd;nHF{0bkk3)53RTXlJ2
z;)50|;l}b24OmZ|RMViP{iv1QylJ^3E4O)qR4`!{QASRVTt?reN-`n#*b2$&;~J9I
zYQLiAbvk$ItSx7f;CW6>IFwyF!J|J<XP3#t&T75Ay&pY1A1{eb808jVqje2%wOMrb
zaM~qM{?)d&L<>&9wsh}ACN!nGiYGqWjt)_*kppS~LEO-)qd&2qUX_QUXI=DNXoDk{
zgPe!;iFm-_RBZx1d+_LpjwlQ%Zf$n{<Hy;p%Dl|gv~7&egbe8|Kd1(a;_dc)cSc4=
zQP`^E@mRI%`EH&kIAVxok=1BLT3Xs2wcM)Hy<eT3oys3&pVoS~i;H6;4Qy;Se93iU
z1f13yd~tm=PU!>OVmcN|u0Svhx}UWU4h~<Nn)1U+Erzy!C_nb~^(8{Z#>VQn@Ah}b
z@rF^}n`84le59>CYS%4T>a?yCE>&#S|9L>i)$(X(acF1={bp-xEA?U67}$QD3Fbb;
zFw><iDvALfVz3#VhC@|zyk{HJN5Z}0Arq`)6}w*~RK>VH86b&zlEwP_`>A=Y;(07%
zzv?5=`M0EClr%J?f#Q;>9Jg=ZW@7SR<<u^-N!G~uqLE`%^z<T&sHmvqlZ4!tb4o97
zhVY3EFhgYlf~>1$H8Rl&?;4RwG4cTca7l4-z2RRpQ|}V4_w6cTkfRq6_^jzl<+igj
zB^sx_59#INcslhan?UhguUO9Yxk9K@VSkH*g9Drr&gpS-kfoMab1)SoC@8o;>ZEIJ
zy<WLqbKE0F2ombjx_g-y0vjHm+%&c!or&H^ySCO0^XDU1$xUc~BAuJCoK^9Pyh;Cs
zv$M02(VXY$fTx3_BY#JvskwO^NL*T{k>0+(ZBUcXLBU(!Tm5zG_3Pl^5m1*wjw>lC
zfx4Hcz)VF=t*M~_>Lpm?^wgC1K`0*#<prM)8;p1?OCH!nH`j1r)``V!PK!iqigR?N
z)^8}1mOQKX4ih?RH7gnOI9}B{<Q;cYR#e;^d>&@X6&q(=^YktmApt?n(NY$uh?JC+
zc#UX(|L*tq{5$2}%Q8l{8*)C~7;6c`W`GUVJTDkrRl=_vU7O5EZkaqS+>RO~u#cuj
zS1s4*#=luU>vU7=(sa#83?JC;7ntkn(`iYpEXJK_5DHiSEIsxtsYFM7B{BNi)zvUG
zyn!8WpVwxzmXf|=yGtO+^XxDnAmDhtHtCM+<Hy$4)}C|kjc07jN3C?rZ4C_!W(p14
zWn^SR>4kH9P1dUSb#hM!zJE{YH){!_Uk_VysgEv_ynoWhNfwk|R^~iZXt?s^>Hg|3
zHD%?-vxR}$vl5LQkJH@&YHDf{5)yik1HCAj+3jz^%%Eu>@2?9xt&PmIMX2RyaO*Xo
zKY#wbwPl;tU!ngMJOw<I)YGR=B_w=h(!X_gKbDonbBsDQ2N_hoKbDn~6A~QU(b<`B
z&$ug7IfH<fzv*met#Un)*E;coJPbK=usKcdc~UTH1v;^(kms3OMBB`U@K)n^hjx2}
zHUDy9=0jNcW7*o|TPy?xyteNOikO;=7LVV5;ko~D`?K`n7_acP_68gzcsS-ivrSD+
zUFH*<SaquStjDUj&40pf5VU{$R#8#GV>KcbFT{mugBo++9|bi5H0Aq|zgG7W6X`-E
z8`)OY*9i#;_g!e+T5COLqgk~taLcdZ;j*&Rxj5^K8@i{Dy>eHxT&u?N*OzM7eL4Zh
z6>uSY=I-8WsbNB|U%!3{dP{qIdl<cNjqU8W@87=zTr+I(B|*UH<HwJQ!k#r>zI^%g
zX#oW16#|;UDi^!_tQB2uZf;sy+VgGUbGyBjA&^xc)6(3IS4+W_tW4bqkyO^zW&1<|
zju+MFPe@Kirc>kQGLWkcHa`rbn>`ORFf@#M_f9A#{hqc^WuE<c+05f8rMUKwiM!v_
z=yXh)niH|s(D4ElF1oWnp7xRp9QQw;5p?S0_Lb;<E#1Y4KA9x+1a;2J%xvjSUX_xr
zuCU!)$FqUq^{)8)+n|GXBnrmCr%r^4y-40BBxpZ<x~RoU7DTJ`2F}@_{N~`;15Nl~
zqt3E)6r{q?UgcN)a+^u-QLBr9$tfMX9WDiu($3bFiz-AXkByCOU)fMHRMV>bCMzrJ
z-Mbbi2b<TfT>~viBZueKtw4B6-y$faHJ~5^7_qRhke!_kE;~+^(HBLuqH)|C!|_}-
zPluL>D7kMjSF2o~Cr(pSGvjfR4p=vUIO$45gM-YUNQjAuHfJIpOG-#k;$04xYGTJb
z7Di=W|4w`q=JxWg&KRj!U<&^j0v-HhZ1`uY^y{jrErr5QlqWwYKLrRHkKkmg$&-cK
z;fe7dt4yXO7KNxW6%Pc5s0{vC1|4=fOqh<0j0ap`k#V=58~i(0wbS}o(&>t^TCNrn
z&36*Ev$uD70v!y>^w-zdgoG{fv8O!HySuv<K^s$FgRc6f6crVfmhPYKkB?V4Wc8XD
zSj);PlFIdYeC}usfBO~%yAKYYbheWL0@%hn$<6a}u;le$A*=wV%G{LeOFk{{c64xb
z0%xt(%p15v`WgVH7t_r|s4pNitw#Bi6X4)}fnunm<1y6~I5T6=fTvS4s4uYnJzZ76
z^eiQVEq%H}Fa5Og6<JirusOaRA7-4(2}gq>scV-9AM$*m%+NL%wclsX@=++Olb`wi
z$?DF>vFqEFoqBqDD`q^eQ)1)de6$VE^(p2OoW|NZI;s{w#tkCu59mR~j%c54xQ`Sf
z>NyV?92`{Baq)Er&<eoo90lfV)jP;03m*Ry2$@w;@$&ra)O;XUPFnhKzxKSd#vKLl
z7=U$GeH)C5UfeV*;dkc7f3vr@H-3J$4??~@nvDs4vR7I=>!G5kNJK=0EG9w0%FSJ@
zURt!^-b^|zN>ef_+Hvr(TuaaKQ7P+Sh{hYfTpLHPM@eelET<?dYdi3x?}jxj#MkML
zYPNczfwZDxZ#qucY)<x4?wBa-{fDK)4~y@99Pwtq+j-PN_ttzqR<;0nPQC@;D@bH3
zKrBGUg7WY=GxNnkPr&QfQ$kNVjO<#I;7PEBPqqO1>**!;n{mIF1v|YC2?+@bI^Jq$
z!$Fpmlpt-Cvz9-9`gAZ&e_m$V$N0sRf|}Z#ox&t`ZEcN*0*{1AJ~%84Bw%pAnV{Vq
zo`j-II_Kb%y}X}4e@5%PT$~4VMcZlgCUIbg(YEK=yyutFQc%G_Ss5HupNxm^G5qL1
zra$V|6*N1UayZ&nTjdFw(MaI&wyL6%gPB&53G!4qX*oZBn55y>{`}`cu>AI*rme?4
zp5>f4CA!|U2b?_1EOJ|Zio;uW8JU@jiy27(L|8m5P|6%R&MeW{{Gd)WG?YO_K1Pi!
zl9cMyO}KA2TNJ${p9BkuLprm+m}-i;qxM<lcDWX7xD;qkjptIJ9Y`qZy6;Byo1HFY
z<)O~d2jX65#)BLUZ4pe5lY~yejisfakdl*=la*D;>i0Zor1#j((p4ng4bnYfV2{Ef
zs~pu)RW;&?158OC2Dqck-jFdMQ9(gLokn(!j*hajvIYhQ;1fMPWFxzai%WfO;rJ<N
zCq`^Mo1jD!qrO-S71}R;*RFJYdiPySOw7)XJxGvYCbZ^8o%{jKqt=;?H1fSYBG=)S
z1>6@uxMi&P&0>zW<`+NPEc)QC^aeh%&5#>&I9NBbo0*E2c-|5ciL>Cr>9RF5RAel?
zKVpY|bAAwZ9>ebdE`AiObG)+8!sz8}BtNS4dsCjU)%)+pQ7s{h@#3}pr-rKwt5<7S
z6XaWr;*>I1mY3s%+$+G99MC_lbX)};etdK^Au^H+G%&<~GuOuP7LGAlkgp!aSvAd-
z%a>6Hac2%g7Ce4>2j-9D7)f{=rMy-gkL&6n*W{O~0SWLkGvS88%JWl!7JLTcRl&=F
zG05?-!=dZev`(5B`;%)Yyd=YS$%54HzLW86{X%yXTYU(5My0tZfMh8Yj#9!QQeG#R
z<g=eU5oXxv?x!Y31LRh=#-?lhupEX|y8Wv19izXDyVecjuss*nSM}~$`MoRz#&6?z
z(RQ%J$uKMg{2)hU+qYZGYWkp_mUvt1B&2!=PkOBG{AK-AZbsjLvy=(Gcp37{jHr;X
zhZXyk9R;QV?%{x&=ybQ*pz`Q|b8ES8Ckl&bM09}Ji~c^ZG7PyDDEuV&9H*h1Udv<K
z#!DRg%E5JLqhNW@`*!pB4FlDK5H799nf{j<YTF|#6-jLsTYDI=H#j`*ycx%R?I$&X
zpZ=<Ka$JO{mQhp`j(OlEcBcoB1<g>M9-=8f;&5LrQUYwG7h#$CB{M5mln-l9_)LYJ
z*~p}A?~kW)u<HyAhX+XrS}`mSUr5JRn2h=R$R4)UXCcl4pMW3P4lC=S)w1T}yt4zH
z64aI-Jlz(tl#eq$;+`{zi^IeyP~zB&d@{)ru!)<+m|~ar6O0zh7hbvP^T&lUFkI~$
zYql0IeB3+mO^?DTMlG1?j0gspKv|RZ>V3Co<yDb5&6r|=)^@$Lf&4l$U-{8D2MVjK
z^h}C{08$e^nD7DhJumD--y*>Hf*vRNtQA3I$U3JHZOk9ZzVo)G2#r_B4kURwjXvyN
zlMC<JG`nq^<VSxlT2t*Z92^{aw+#$eUb^)k0|Q0T`t<VLlACHcUXyl|9v{C%fT#Vd
zdBi2QcCH)zbiJESoTfqpmP1|26Yl=`uqOU=nnU{_c-#cnhMzx7YwJZ(^yq2pY-#Dw
zpQ>w@{oMe$W(b$ML7b^_JEAR3$y8lEMwXG<qkHD;^myELy*h}T?E=s=`r#WI8j=Og
z&PMCj0JKZ*G86vo+c(hGF5!|zzI&G_=;{b04zR;dP3vnxUtRZB+S=O%+zvM0u>i!c
z(UmADz{gi++?{yQH3<ZSjuuic<e99jM~@!4&V)a-wX-ufH^0yaHe2XPu#vD3u_Pw#
z(m2bp`)K+kErICTXg96TnX5OBQv))cQjyH+79#v77#n@PqZG+WM;g|Vjl2)K%I)Sa
zU%njQ4w&S`{=uvTt8LmiNf1yF2JbUAHZ)94PapCkmR46+S5~rfbH{*Q^D{>?E-vnT
zE4ubV3;@)kNagnFR1lj<Y-m`RwV9a)Ae^G2^?=9x%+nno8j^-BE-X;c&{P4|1-Ouy
zSYta|?a9${UQ0`hz=|_Kf$#4b)7`h70YnfKi*KEsr?uzDwO@nCJ@?7{TyA4Xl6!20
z)AOz$G(@Owuwi@~50Y`Gi9prUMlXIk+~oPOvb)w`yYL+CBWT$ut6c7w+rD*yToRoO
zD4GFV%u&tiH!D!jmIne+U7gpc73eQrsn(z$AM&hZW@aj7s$}#5j{7)SA(&QRZ@9!<
zQBe`7VgNJtns7N*j+&MH92j8JDpR;YJPMHbdi6ftIn3ho%^Nr3AGmyXd5CKDzJ$xb
zz@VC=0gC+T(#lZL6+*h~ygcK52{>xOuC(hF%Vew*!DLJAIhHUR3;DSq=t)`#{3@Qv
z{3@&D_V9LU+Uq-oXADHY4z{hFqRUbPzv}0104!x~Vgl$V8>?<jd`t{bw#rO;Q?5S@
zeQ>hT2%xe99|{DYKP?V&g)aq_tPbv8EVnrsiw5bnYhSIx5a^y3>ux~0?Pj$ix(p9C
zH@Cl!?wfdt*z(#gb~J{0%kK!z+oD<l+BpO#S=xOW*GWcCf4*8eZZ%Yx{^^s+d{@GY
z7cb08hV@(t1-43WF*6SqJZ}M*daH3QhWl!Aiyk6>In|q9zaz_mfKF8z^3tUYY36v|
zoFC@7UpdaAQEW2T@xJ@PcE`lT1ORe=W!H7(<T}AE2Cs5r&r{)|M>s_Oa8d%SS0{V%
zPEH;+2YdJsMk8U7Y2U{jt#YN?QMXB76AB$XTM)1XXd!(*$<t%J#{C3U3`3GSn_%9y
zr{oA46LBR#80_rqY#d8i2Xq?Ui|Yh9>ICJ+Ai})SgB@u;pCWh#E>k5hih@-ZHx~4a
z{&cKN5O(!%{DL@q9=C%1G*EoXp%d~86wc}!ap5=WrAG5!Vszfc^ir&IfCC-(iHgc6
zmCq+9CrwS_xmAEGR#lCdmE@`yFkHXx!!lCq>8Y+h`1wf|rlKySrmWV3jSc0M!y1l`
zj)sSafpn>yArAz&XF$KTZ~;8m)O4{qgxZqlS66}nKvy@3+iKj8g^pK>IyyS)RH?B$
zldnfsXAy{!z@e%s1{ff)V6W8F)S|*d0(v0}&iABOFCo)PN}go(Gv2&OgtF(?R#uLX
zOjW!cB_#@D_YYNgTZJJf0&T=beq01(aLvWQAg$LVI4I~ky48R)T}ir+iyAGN8lJ-J
zc<*(JN$f>2a&tQYn&m)EP0fcNbl45aY^3eKFzWo%fH(ux>5=W(_UJpLSJ%EzgT@_~
zl&Ziyc;`#O?Cq#;jW5bIiHWlr(Ry|ZxDpSUp@TOnc>~M4FFlCl`hZgM{{4G=e0)-g
zTT$O?YJ>vCiT?tKMikA@*t2!2hZ|oIc}$2AxF<90@rNwHE<w6B9Fj5b-u)aI(Nb4$
zWtY{_p+f>)OFW}*c4lT~ZjOwcJg#$YWo0EMhQjf9ay<BI-Mt-OOt15@>cZeQgSYLo
zT}b1iAqu}ux6v0`PcQp5x;S97?&3ga(|cIH35aR^D;eB}P|a)=KV}39qs~)HOW-o1
zj7IGt&__wU;gU3G%m_(rjJoljZXD6M2WS5ML=ar+tOB3p7*aNxsHmuQOQ0pXfi}5l
ztgl2M*j>*O7||<s@vebKxcY{Wh!?vgOw^A^6oRn^6QSPdiNhgpTv6~5w>JdWf}vnE
zT8PV#B*KkYbb?QplW~w66RI<ygdwyzFFy9XqzAOK^LJ<nn?xMrnRo*~_=YU}k{1!|
zIU3FvgSZM^hkL`_2#drpo{`owksi<)`D4~Gdp}K`aE+n83Z=sSdn*7O|F!k_LQ(yo
zNBdjft&psDRcFM2kWiA=gy7u>$P4ZTzW&!c1opb#du#{|*@t-V=gVS3D99UL<sW2%
zB?7BE{Vnz8hyGTGBMgCj-!t+Bw(3}^zQVvb^r$dUJZ0Gm2MIlz!$8cGpK0B>b0_Q5
zCxuLv!^1-WcC}nURJgd5_nT=K=u1dSN~)<1fackqAixXY=aVc|xfph&LcbqW|JDV9
zxv*;30-_1HhJ=I!5IKZxCLp!3U%x<;j7>@cqlzP-FzoH_y6^Np1eF^|7!<-DC!5nP
zSn8HA_}%wcyxz?JeGYXc30rf%AKU^BJx4VTz*6@k`vm!cA3yBdSxWCdExhrE#RCoF
zRnC2E%y%7FBCQeMxkmf?8U@3Gg8}acRS^w;FZ)sDwrQ*?GbtLL+AF0<T1hFP$R!7a
zSrQaT?EMVkQ`62^?)p!{2jqW_p{k~)rmAY&9nGejtH5l*Lw)>1zu;59*<JxEIbQ?R
zJDGF_w2GSA`gpA;zy?77Iho!fC(^(5b;0-MHU!^Fds(fMH?SRK5}W(^^S6!;3lozM
z%rcoO;PRz!yakNOr(UFwtC9V(kKXQ5Kae3FhSCfbn?}fI*zvJ85CXCO5_yqi-}mo;
z>*C_#Qu+bNaUC5Q8M$Cz0R~AUBO_B&`b9(W2??~<u08o53<XQe6)69D#0ATk2|y?;
z*Xq(`Yb_kIz-t6mh42asGqcFWOhNKe>2m524kxSQ8+~bR2tpI2Q9&XL)WyGqvn_;N
z&#vmhh{EHhQ^~p?M^2<XL&LF?>n5+7LC9cwkLcW8U9LSl;m_t3vaqMILPIWjfD6{w
zi~6H7RjBCb<P{^u88*!md@$+Vy#4Nc!ax)I8`0}Yjh04_T8{MSYsqL~>j8`bI=xtO
zr%{nc4nw#Jn5b#wI0D&#D#YmE+8kphU-!e!ssVgUPwlg-C`Vf4$Btl|P&EZHIA*ZC
z1-8eLq2_#44RVc>#VWXctD{3UdKTccrT#3S99mjh0_t~7LJ>?Lz)L3mdnLbS&d>aO
z_7V*i;=sFP?P<~x0O%QY#Jm`#Z3&^?-yP6>C?VmpU(sbFj1rA7pD(l&^#&^szHPC^
zT}%;SA1*F__VkxfB#effQiz8$p89%KvKk&PE)ZKr%3e$xb;S?$^?`@B1v+!$eLExY
zApp4~jItZK1I0x}_Z~c`s;oQ)a<=<g`8)yL1Lslg5f;Y{stU<V_-YDR6cSpYhy97m
zTlwwT(!Cb+nbu6LpZb?5?|~(9q-JHcKVt_m7bKnnl#Q~ovV{c`wj&m9s?MFoK0s#W
zVD~{%0(ly|c3++X^k*8|)!trdGYQ5B<cZExffrq)F|QV@bQ$K4wG2vwo3Hr^hhuYN
z41G)T5V==oGEW?k!*bHoXTPUETCt?i*VnhISo{bET7*GeL%F>G><5b5f`A1}viSAI
z5@3e5wl)BW0Wj<WIFgK2i{jd~{=vb6h19UKRcp`6^Rr{Hoag%b7by8^g(MgPnbR@4
zz5GB+ve`$fJux65mHr)l@xqR1`_bF`Vsq*%nB1;)Nf0<$ff=aO<HyE%s^HQbS7N^E
zKP|P=mX+-Yro0Dm_tMgm$7YZ&90lMa8i$0=dE%9tuDe5bq97<PBfGioTArRXq!3hP
zlNutt8WV7-h>4i!@Z;`MaT$lGF4ZRmW=6SKF4ONfPys_0YwPQ!Ao3~`YD2^sCUx^A
za#X?GI65jSJuR(j=li2LF!BKV=4w|Ob;j-jQPzwr7U*3!nV2qSI)Z=<_z(&$gqd9j
zch!5*kIK`7YJ2+%kRqbn{mTj@Q!j*JGB%wmgSNM{0*()Mdc=T~@9P^C9i64}S@&!!
z8WdUp-^@y=LL|p?6A%>Fu_4%1HY!ii#XY=t7s!Co%g4v3y1H8EY5Bt2TJJaRUVPZl
z1lnxcy10=aOasqR)7I!lFn05*#oP2|Gda0L4hDmD##RevN!TH^;TWP6-ZqbMyddhA
z^GsBp*Wp48V(_(F7;tv6+F@?+0hu>D_GBV4gu%YEDIBiOMXXxsBLHiFqg`d7gKh^`
z(cZ)ROA{VwBy2wt+DJ|w-+(0~rIO~}#eycNn$NK@wNoKTcvZ(R2!e>8TzCO&#gs)j
z&d4z@Mwa8EBnmO$%|u`$Y=}2UP4EFlx@BrI7skV3{IEKIum$x(EWBB8qA+<+i`<o_
zo3M*2*T#-9qdAmvQrcyd5y3C)3xO7fx<c;IH`P3HpY7}*bNghFdg@xzX-LSs3CU@A
zoY%q$DQv_K=UK6>)#Rq|Ph+{)bT|dPq_2W$xG?G|HPBG17m%mt$rAY=WM_;|MW{KM
zG~%bz_b;n$Dq|+&!04U@!=E*6_WXE$WzvtB2S?+ZOHuN}SSRghf_)tuy6Zb{#7=k@
zvczd*&cNPaz(e$Ee6HwTM{+GU@z@PgAu*=aNxqSmifsx#NND+{{^s|cwnu$TmA{@b
ztC>!AcW&A+cl#B>G37*_mE)r-M_C<rTk0LtU;pmI5Ub1De74{~IxWeho|A`i_jXf6
z`eH;hF`G}*<C;g`*3F}ep1t)a(-aHZlw1yDL^#*~ThKfGE$WVS?Wv=k-FD<HWkB@k
zi6$3o$wgX6xDT}U?Otoq)R$+HW75xRu~y)*H+QWJdcF*>CMkMWXU^)K4>0CG%nj~o
z{^{ryFQz5qI=|S>cLA{+FddVU;TAgAm68FSV=x5=8Z(xri&uEp;r3{9{d{4PU43?-
zenG2P-W<$g2|vPL+<xfcl1p<omi;SlV{oE^0uCT;^7HfGxwE`6*~l0novZ*yX=rMe
zXjp;?8xkN&u$={PyBt-`9Mz(sj`h2j;GEGRwe*vxd3^hJw(rUH6?w(A7}f^Q8!fpL
zj-@VIm~+ajGD=B9@TkOYq?=Y`Wca(%QBs<6QGp2^49WRkHdEz0SLfyAUXwKD*Q3EH
z%&{K<k9P+Zj$GHRAR}YG=6G$IK3Y>oDnAyE?RQSOYFiv;zTvAboM9~&MBV5+0*Z;&
z{bRxDg-j#D;}jeiulR-4<muBkLERd+a)1_wELN0*zNV;V4YdF!YgS?lkoapjF(qX=
z;N6df4gp-Ad2gIJ8S1lvB|2G(*_~Ls)kx?ZBJ6};)3ZFk6ZmzT1P3{yhTY+faUKr1
zU$ss*TZ(DL=g+tA-788?ewD%uCJzGxOyN@c&!6L8#**v9Yox&Q>(5fF{rkD$m1RNn
zgJ!GLWk);S;cI~f3x?u0yyu2L(@d<WJ*Ekhx_Hs6*R?GkpX3)F&SITAzV}?($QST@
z%g&jne>F8ADC|dZaq-;TTtfrOPY(={VaS^|Z}KOwGBGjn@|KpB4O;LR8ymMYHQm+x
zk`1m3OxLJF=Ehvt@$E-1`Q-i@)voq|>zfHk!+L=V?ik_)C)EDHU>oK^C4AB|u}$Ul
zR{L9G^ujJm3<?cGM9QS^k9*esCJ8H~6jpVQ^9G7mh2P6c!lb37oWTI{==ivoX6KIG
z{35-eBs>%kpQV{Taic=SIy4MrosoC4aKkff{1Vl{ZPA4nzuKDR-@GXB`SF50?L%!_
ziQUi_#4%r46vo-JYibKUm#CVSd@0T%De*A8lb#iul72ACxsJAZj;_xQ?b#Gq&Y!3s
zr}@}{IIp9Jqf@=4?)KlX771H`)vsrh1WG*4mZTmHqhW2kJVAJN^zw;<LY=M*49<CA
zK70^{@hoynEeO60^9c~n8Mm|k-cyPlDrT&mpM?cA`sVg3g2MG}a!HwPE?U>=(T$t!
zlMg-=5g;NFu!pabuTTdG2h1Ky@(hfA-+tt;E?ZG0Kz#huYDW#aU=B8<6fg4&Mzqs<
zgIEM>?O{!g4(p*!H6_%i*C4<#5Hy$k=q$363H7y|9(A*=veJ!|koxp{)95RAkB){9
zhFCBB*Kx{vhbYC8UU-ax;}lmq+YBh#KV6Ft)tO0eWL+^YmlYtC6LfNVI29U*!wDgA
zMER~_zql1OAMHp^xTf)%wLPJ)x4g-&OS(yazOrvKX-juN43w|YaCXtl2$jP-uptSw
zy0|FHN)jjO{~o>TW}=;yX~i__$v3{Vg!zwjYoXW(5%q@)PDu9D8Od_<TNQVm<R8ux
zci%6Klyw~QJ&!!EFj>Oz!m<xJN`RPXDjtzX&vq>?XieRp*IGl-47*efNNiz1^xi$|
z?2|qB=I!lSH{<PCokWK*>flJ&DFF$AKjHl=(3uZnM<5u50R<Z*-}51YpgP<?j+&9M
z-&E-W9EtSwa05S~w;uu<f<yu0{HNBLY|yA7(cc{y&h^J%Gr30M(ejV36*~fm-Mj2m
z;mfa8{eqx9hDLTY9E>Rx78EdPDy*D<6$KRlBtWEiL>2OaV|vk-tx>VuxpO=V>>Qw?
z^78U-w`YC+ocMAn6PO_q9=N={lbxCAa<bWSs@d7wG2${j`y7HOZ~&@ycXtQi7Yvtx
z{f3Z+uP$nTZ|~i^cXRXedAhY{6ZJk|2lN{-`>F=BPRB|?n<sRZGsESq^jJ`x)Wm;C
z!3;`&?XL_)BqoM>C=z~py3AE7nA~Fsc(!+J3F}}#2DpOo|Cox=14kF&a=j@MfC>?`
z%(5|%9w=S?ZA=hh=Ym1(4ANOyS%96E&x0|X8Z#+RT!=f+3V)b!AFC%TsOPBWj#!m?
zZq#4FC1-u`VhRmrSm38l-hAl2*A3P^R_FPJ<;h?9Sgbmx4g-nRlmQ|^s7UX=6cnz5
zA-Uw#o;(32IUX)91=4ht+s8*oH;APzEVApLeK3vHqwuNEcRSny1(gH^YK{bhB2Y))
zj5XM}s}H$th+`qs0AfKJm>$hM8vrIO%$BcPf&WRRWV&(j`fbGvqZ8x@BbU0LBgRx3
z!6z+`Z~%4_5fNXh5HSY5kTqJM+q>Xz=^KTFcB=oK*g-NRa)$1ds~E&9_SaSKmyX`S
zL9}Vfj(U-Q+6IN*MV)~#u9;=dT?$mM;&SJFDUJc5aqiu?h;YDjE_`HvMg0YU`<K?T
zKWXq+p#O>b3p3B(`_KMouKcAv{C_3XAH&+n<>XN-r>9-)c#Z5HS%4yoh?LV^zx(eM
z3tYCUx-;gRHw^*DfAxtI5aac-|5)+^;ze^P?QtCzAsiJcV<>V5xH>0rSt}&}R_pth
zI>is*f>F(?Jv&-{^$H_Il4LLzJd6Xce<}7AqmmJ5iV(@yDTAHNuR)gwQJ;~~V!=~;
zyjEE{_Hr2*ZOW!ME|i8#5EQKb9gv`J-(=Pfw`SX~UG?oWdY+_lm#jpiQwWG1s##zl
znyIopkY}94c;iOZ?oZ7Vg!loVV4o2EK=rFm)D`cu2gJk3$Vf~K>tf(rn3wmMA-t)%
znF{Z6>_<vJ4hlTrtnyeb835eY1vo=WzkF$KZoa%M2uzI5onH;!|0jWd0SR=foPit+
z?2tvjR;hU`VD_WHIq4@iW2N}vcZ+8TZ%rOCD&oMq9?@3z7EJ7;WWJ7n{O|#~2uk+b
zWz|2K1w@;_5-7E3(<p%&4aBsYKQHvGKYqwE`rlI7+QSPMq+hP$KXpg`ZFK&nt^Kwx
zen>V4Jn=6J<=^h~w@yj*KZka>s2nB>RN(fDZmR{^km{}QR9KakZx@3>PHc(%jpq9p
z5FGBdK=MzkdL0n?IGhq44}pyv4T(zqRd&7LAIu{aihdHI$~YRHsa*k8M5c*7xSQ}>
z4x)(xbRmk#zY^*B@AF&v^jMWv-ZiFZPUh_&eFq-K^`zz8-onDd*RQWe$wVb3CB?+F
zMuD;h7$y)suH8`uQ))asyo(^v^*k++&u|6Bl1VlO{>khjB>jTO{-d^WVV45V-_dms
zUc+yZ&s#z-<qw0i*G#5J08t_)HkOK(HX$m?;b21#%-j^1VaR{<*O-}^fx*WP7`Cyh
z=ZmEFVpptz12i&zG_6R;sI470;riTfh6<2nRK6X>C07&&2r<Zp7E*~`E=w+|^Me*)
z4`7a}JwIIsx#6?N2)<l(GY3rTva@Fr*>r2Pk`(|D-OK!{uO}7`Px<ZoP|H=yY-nfz
zgE%11EH5nqCzw45X1f-kNW&l90@2j;_J4(}LFoorifRQ?dt+nc;T6%}Sv8>_%+A7+
zQ(j)4pZ`WLrmE@zN=jNfP(Gs_s3e`8EUc_Nah<?|34DuA<L>)FdIYkKWq~@K$HAn?
z04-R?;E0ZXrvYc%tnCFhu)0vj!`lqBq^+&<WYVXsl@%1c$UvY6U$tT@Xzn6)_zh_N
zNdW|*kgy2^3f|v&f;)9Z)&F2okV2f39)A<M{|e6haTNc_ivO0M|E=xV?@w0zl_LLd
z+1F_aA6|8go(0t%Z@TmdJXY+;e;?AM<m65c4h6zs{-pWE0!KUwR28=t2{;%84*dK{
zcJ11Q^}6mARvfRjQM;?FD;UWFt<I!q$Z>7teQfLzu!sUX1F98xE$@SX_EMz*Sdd)H
zK7@yd2N>rhA3iiTG)xfo95di7nEkI%HU&;v{)7uJIzPWgRzD9fFGw+9I2Fj}2AR8o
zaZ9cb7*R*ITU(`4dnw4tfr+rqKqmd|M^j%EaOG2lkV+K9DUwR`aUq+mN-w;JHS>wC
zAV9qpJuhV2@V}Rz2MHekwkBouuRQlf>6K`d+eXPqz`#T_TqYez&%g0flhQ?%DEQy$
z&geH_>Q!9KRWMi(bZru>J=Hs?jT3mCfFl_gi}4y~W@m{|z}X4rR`T-lR#sLoUH}-<
z)zuXm7>GpM+uH-jH&a~{_%9M0*TO3$Uj4=@LE;SlwsD=!?7^~(+crJk-k2Bg<e7?%
zYasU@d~#NCn;O*aiAiGfe?%OARq#IpkUw>~bM->sf{+L2hfge%h9Zvrz+aHGguHkz
I>Y4Zd0idt^*8l(j

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+++-.png b/plots/2jets/kt3_100/ggHgg_+++-.png
new file mode 100644
index 0000000000000000000000000000000000000000..d22b98cc56208c9431c3b5372384ef4e90fb1fed
GIT binary patch
literal 12774
zcmbt)2RxkJ_U=oB(PD%|^iiS{M2|YrB3ckc^d2>O?;}cxh=_<5od}`@qj#bO(V_<t
z(R&|v%XiQJeCM89&b@bjVq|8&``z!}Ydz~(&sq`cstUveR0I$N5#Ljk)qo&uT?oPw
zgJFYD<i6G@fVX^aEnQa)6A#2wXGhB?b`}U%ucsCW3(qH(5ajv&p=uK`HXqT62Z6le
zP^&|SD6K>U@eO)B_*H-AB8v|DlcTEdg<ntXVv}_P@k>mP82Hyh9E8w0Nf!RuEf{#n
z3t2~^!lz6nt+{Vm2Du{$SrKL(Q{1X+#2S2`XdoVRa>xMlXnybPQ<uwwFI}&sj7KJG
zXxzG-`8uxKp5~#!X0M0IiJ*hluHlURt-3tn$3L-uIf6ywKUI9>0zrgi7yq!JcgZ)v
zhX$^4x~`gzmaZNq&KA&JXA2Wo3v-0W6IW}5tF;9}$I;Hx*~A{9Y~o<$W@2T5uyk}r
zXu7(YTR6D7Ah;3g7S1k?4kmVphb|TfH3vH{gc!oZ!-L1;uj_cs9PJfnyyL))7%pz~
zXZ|OS4hXF$_7)I7FQ2FwAFmi6AA;|;7@vR`zi>^l*DDA@K=)*2v^<m7rhK$Ct?H#P
ztf-eb$d~uoMDSse+%~a%6(SEy;`Q=qQqal8eIhQFtB)8v%tl4#N5zI`U_*~=KlGJb
zMK67{*vNFLCC{h(u4!B6yHb9QxMHk5kByZ1i%L3fIDWO&IcBWePpF#Ip?d9LrMTB}
zBP9h^>&KI3wZj(42-d8B?anGGPXZ?kizRtNz4Kz^ltaL3Nym@*c?BnQ()9H7{{H^L
z!a{O#a)}W!1O*ByH&aHpM^g)rjEubaF?habbe^qUz<s?t&!K0kv9VFd$j@ziq06b7
z3QTVQ7E$|j4(aWE97;&>QG1202%~nstH#dGj)F&K93LN#&6JMY$!Esab?n^u{A4Jn
zH%Zu$`~X}z8`e<tATpyb<&KV_A!ghvO;A99ORropTO&m(z~9)o(X@n1_tX25l7VGc
z%x<m}HyfMh-mnhY)vMm#-sA*rXt$MCQ@#_8kdTmo<DoRefHODC{^0^0YHI4yVxx^E
zU>AWAKa1tYCMWF#sN$6@oSe4C%dGGju0L-x=GA)mF#h#x->o)^iAqPK&vxSpM*jC;
zls9g?mGIdwGN>^%GgC_zX{uM%(b4hns2o~e{r&s*@^Xn@p@D&ccips|kcXSw-ob$n
z-CfwSd9}~MI*vas1T~sq^iW2Ad-1)NC-d~@)@9?zCnv>54XUuNzP{@)oc#QJQBhIT
z5)pRxE;}JIBwHj08(VlpgcmpvaMyPI*14y(=a>`K+#x%mhJ$IJuCA{82|N<6zg~{p
z(b3TOZqywR5E3Tv82oncX*io`SevMfsqW0W7iZ|boQ;112M=B2i<{nLtX?pD$9=W4
zr-vCuBl2{1b-e7hWzX!+(Jq#Q<~=WQLt9&0u#YY-I}2TL=LeTf%{*4eO!yN&6ciME
z`0y*`;lqbB{wLfuw%>N%&YWWo<`0ChAgFd{T<~~r)X2)pYKUDC=5@TBTdZHrFCx-8
zzXf9ur|Y*5fotgK9MsI5tv7|>Sy)&&=*;gNY33-KY{V)uQ&Li5V!$+St!uY9@@8ti
zcJ|jM+Dx60NbI_$MQ{Q~iwQ$RLmi99sF%;4J=>^1acFr)Jntq0o@zkri%)~PGI$Zi
z1@ER#)p&TgyT9n(d&u!nMTL0i7zcuGP|S}og7<LQf4swxz|I747$E2=RWR5a5n>q_
z1SLO1fKjS<;Q$MBFSElqIXOdiz(|NG`1(JGa(l|?K6(^!1wbcE7(>@{r+(W1WbJ+3
zbqJCU{3-~L^<U;;fMG#_LvR$ZfhT|6_8aNN{OK<)?h7XS^)negk6!o3y#5v%x~)ES
z3Cv?1ya_(6J0E}}`)tMV89Ko#VDVp--&7aXY`9Sa4CzFYp^h{)>KwpuoJZDZ`Q>``
zC@`^fXQ*9iPcu@K5loM~;`Zmhc}y42)pFJLpNsfkJv;562mSqL(SJS6&)YBqo`lge
za=8cO*E(atcFgtrj9S~<+xz*|$uj2W<#l#-nd}#6eL$ndYNqN<+aiDb_yORfC5)u9
zyj(d&%x(C?!#GwoNnoscg*hbCXtx4omYuz3`87UUj}Ts$RP*C6TYmS!%t1R>Q7S4b
zRM9yfK72?|PtVD*ocL_N>z_H`xzHI4pht}6MV-$9NBo!DR()AHISyl=(u<1LcbA83
zM~mvbc7FaIE?9IHWnjK}vu(71s-k0e$&dl{R!@=<g&@R&5L&ga(KZ!&*&2y&-e~LT
zd7tdtKW{^BI66A^cXoDmcX#*qCv-0s78U}Z&_%mG(bw0vw6xUGN$9m)SzmXr*5~Ht
z*2sU|zjWgL5G;Mv9vC13tl7Ixl8-MI&IpIKnwB&f8}HxG*6@DJ5l=<*thu@Q_3PJf
z-n@yC!c=|yxH?_u!x;N(9oXsm<aoW`$?WX=Vx4Q2eLHA?v2b%kw7eW+Y|GsHN_!z{
z+Q?o1nyJ3k1Vv`l%l7tmu%qYO2@PCaT+AroxM7m-%gV}1N=mA#-d1zfgump;ZoC1`
z50#vN=;`az&eytm^JZ^vuSUKW*YzZ27Rj_?bv9SAlqTc%Y)ZL9g^$W|>gzGB5o7>*
zbMP)de*E}gW5(#=!$nsyp9?6xd{XM*hI+NkNg4!}=4=@JDK9Utu+YBa1ueN;p+U_X
zxbx<$OtrqDp<%t<cqw?K$Au%MrKR7#ef$1huV5H$JIaF$S7s?FD(dU+FD@z)O6pb0
zekCzQ4h&d)Ycdj>^7?Z*Hu7yx@yfF+VIdi8LDI7;kwQt)8Eon5ozstio5fpzu|!Au
zrYg)=y`&i2-##1%*46HM!Bb>VH%Gt${EKsm$NX{U{y!Ffca-ga<KcgKrn<r(&ldw8
zHY?y7ec_t_?y`UPmcP5y|Kkmgh>*a{+@yd<$sLIf?to_r{IpnSTmJd;=lXg>##k*a
zEf9HmPXLG+7^F-&7?qgHIXO8wI&RFhggw^N%TY~1+YEo`ies&zg@5$Gf*@WcL%siU
zo!|MnsUPz5P4=my+nE$zfZ0A8HDFpuqy!R`t@@Jhsi^qPM+@`czO9xfx#lGep8;FY
zXzhuQEYvR0;usnnRJwoPai-qBMEBR(+S(d`XD=_WqoX6|>e`A5xArJX5PG7YKkx48
z0nu+;98tA#8G?*kYjM&Ii`A5snNctt>=Io&-WzYvfVWJ)QOd>*N&obT_vX#)?Ciz)
z7%3i3&K+?Cn<H4b@osGtX{0P;Sc{C~gq@HW`SO{2P0IMKSVb5^baZqW2|Z@<R=^`&
zUC-sgoBfw=tTG~B1L&20yLlBgK0eM7{~;?YtGfCTM|@<PX<S$9(#|!4P}SVqH;BmP
zmR-?;wj<w0N7F={Om}|vI#(yde|SMBr7$Ugr+5E<4BC<&5!V%b3K%gYAGuWUv){A?
z7K)^cS^7LP_f(zyCLHE#FtCCZA0Kahfyy_wt6SeGGH?4MS9uFciG9Fj(ua-z4#=s0
zS>w`QA;K0o%Ks!Z{oOwQg7&+AU|Ww|lKscuf{F9~=ZQ+BUlMTM>lxgz{`@=BC-lS&
z3$;0#J__gY=#c50hHl^In5*gF{2yFJDQj+^*Coq_Muiv_o;z-oyY9w?rH6CjK(imM
zVMuq*Pj9b10WrsCn6^jAq~h}UuPE6SI24$a!2laCl*oOqS6Lf)uVVQTy92&Lz&%*{
zV-yPRPZTp{5qUAkYeiz@etE(vd%m(}%ybKi(r04lzENGiH7z#uRADptB@ZJ_0waOD
z5u4Z8GwLVaC3j=H9+Y3ff~r^;S71}$pSos6i<OUw{`Okro8|y0R~^1e<+egddvdw%
z^Oa@J%w0HyK+9>s(H4WU3vm<ib^A?V=LI6(B6fSS@FQ>T$MePDLWtjTJwvRgS{-UM
z?hTw0F+Xc_c0iy__R&oRyAaF6rH2ZNYKcCnGDh(J86GMLyF?R~ROKXd?%SK$#7qSR
z{(>KiA<wzF-KUi&!ML$|%Fl{sqQOIk>!%kp?G7zbI>ZSjGW#!OcK4{d#$iLU<zGFb
zkC%6dCQL*tH|2%dA?bx}O4J4UZtqUkh|IVkNilxRau0kZ1HK8*74+X`CNswla?pSR
z^X4RAfRwGQtlYeMPfkuwRrN}lQMShL@bLKB{xwc*atex}J0$dyG!zt-Hp3jq&h)!s
z-)scy0#-%}`4jEP56Dr?M<sVJ?&%7A=06IrN|I>-zrLnFr?~az_3N)4leJzhd%uS-
z+~?J+SNxIG1bTC)o?CXGGjhoxMDV`?M-07`Ly4{|BPl~xU7Z9I6Vt6*F>uC&ZV+DL
zUcCa;JT6!$sj#MIV$r#xyu2szwv}s2w#glyUxeBgm!NQK!(jE|Q7a1zQX~#`kS>?d
z4I)?g?>+B)EhT!UcqL-oyD~B|?(X}!Y5q3+i7<wP^(nFlS&xlrL8@ql7&^bTicyfk
zBz6xjk_kwuWxyt!WTZ|%ez~A_Fc&a4^HourE8Y{9Wj9$^_)pf{@01xa##W`|sk7~`
zj^A|z<WWdSh<`qudA5T$bmzhf(!n#9dg3>)uG+;bJ=D+`oSfu}S86jY=`#PZb3_n|
z%pIa6!i~&u6`Oh|XgjHDXKz2%5D)+o36LEuFF#--&#cMaq^H=uM5crVF+NW~aB*<h
z*xF8%nBmDi0L0}cibmX1ohJdjZaw~N2cAf~pyK1ls6^5)uQdRF5|ol^K%>9g330|N
z?YnBKHlcu7z?w5xuq7UGT?dh}h$0I-RAdI&uwqUyE;0j!WbgrdxF{l-E~&vwW(8wd
zc|-A1aeezT6s|2v_<I?j-%vH2){^gCRaF(=)B|#v3;Q^H{&tB}J`d2)y<0tox@;s}
zJLFi9u`a9`VUiI1wd~%^(Jy|wO+r8h(gTRd6y7I+tq~8!@F`CQjb}lS3CtjqVRl4C
z31)KeI%5=k`4)LDj=Zv6CZ50l0>kNs=QU=lr0#?T@ixIx>2p?I8kQ%2Aq^SPO>9V+
z*){rEs+C$ks~BRymH^^i|H?=tQJFdjFr{Zf11+aWr>$>X#11u9-Gx89?5>tS@orvO
z+VtWR+0E*aUx%i2^5Kk;4_dxtLl7C38;bPO&7+II3^HR|b?!;Z0K76ThoeZ@1C%&4
ztvh4p(%oPXuMMm@ymg&rkL&IQpdp^Znibnp^&>|ZpvF7~7*lH62t%DeHB~qS`6FPN
zL8BuKHk()wb`aRCYn5^~>LDZ$FV{Cxd208SmlD;l9S|8{V;YIk@|lzu1D}N=qMY-Z
z@Ssf+na*o}{vi0<9}Is!K_M0xzs+8Pc-0j;A6$I$KK;eZmDAB#G9r3x>2km{4nH<^
zY%)Mkv4Y{x8W%L6S*kRdU(VI0rl#Ttn&fh@xh>CCCiX~Rll4~uJFj*wXauX{1X};!
z!G{r^G-`WT?DWUP9d6n)9D^JPeyz6r=-s<_0#qsw9}a7(Nj%ilY*`fs-u8k9kbm6<
z|FbZ9e{23kuIt?=8w~;LlcGj=ILj)Hs7JbNM(53|p`p&+6&h-;(y5vrwL1fgF27&Q
zPSZk-BAbJZ-)t(BviZ5W3(L!Q54Yw49b~>riu^t?ahsoidwUzk@P~2;va{dgx}E@_
zh}D};U0ogCdVo#VX@BMbEaJkNV*Bp{h&cZEkqa3vjetLI!wm_#f~+&V6|b~xmZg#3
zWX#6K*4fvG*&R|_ZckgnTJ0WmLkYarkY(H-V~}aP49ODSl3}|VL30JK&c1B?Dj8Yg
zKUj#k+O7-KeCyr&AJ|aFv;UM>x39IDkObzTA_@N>+J8oz`4g4p>HD>mvT}2MB%ln#
zz-}+IYnp(lh@)5g<JwF~2|`mB1OG{s4N3Aoev}<$Q{a8#Vc?O5-*$9asx$4C(h?(s
z`P4SHIRk{kPrJOgi$i&fwe?Ebjowdq(ylud$->?$SdE-H64yV(>%#STA56a4VbRUS
zg=!ytGH&vi@neO<R^4l~IL>0u4@ta3ub=O)Px+i3@139apVOQWBVZ=jC6B`{uJ9H0
z-u*S0eSgjUWWurGZ1DcA%U4nL?R)Y~-Cy|0vPw%|87RSM$UDUZb+d2-%K$!U<TIm0
zXkGwu<@~o!0}we5m(>Ek4-O(>UOT<Q^Z}<^larIIsh$~`X5#0vvtB4TcKt|xldNW7
zp1Dxcp0|WV{Hy8PA|h;YU2lH`8=W7I0yX0X4b5vs<_lTC&Tf_3v6jzgf3@NKY~y5q
z?PMqI{B(c9v0(W3P_9~TcDBU%=}wy8{<z3A9a^42pteYJUNjx|ZUjWyYg&>w{2Pc~
zV`I8O(v8YtB@=5Pxl)F&f3H|cv`Y0l+Z$C&6|c4)U_^F;@WT<Sh&gFE2XPFfSzDg9
zVBy=_&Lz6O2kQowTW_3#5U8(&<{9kIu3|Cv0e!66WeJ6x8&Z>6YbX_$l#~<{bX)36
z0r}a*zMgimrU8}9x-VJuR^9F(5Y1H6BnyX@4gL0pi;9X`TU(EImhPme7LyRr(Bd$l
zNTtYB#?}3>;22z7-1@^G&lTvr%-1KYdoJ0A?e*Q+=t&lJnW^^!;ba`hDIm|Jxzdp;
z;Zs^xmgaxFJUFO<3|C|ZQrY#hz%Zw|viJVJ>F?>}!zh`UNowxlGqi<n7t{6SJOYdk
zL5|hjGdnxGlor4f*A*EV*{(r*INNl|vd$K%7!c5)#X;Ng89~gAgxR)Sx#{hmXzEWa
zZ7rJ8x3kpG%EBUfv=C?ZG1e*<!C*d^b<eCua08Bl^VMFtS!x0Xidfs(m5<xCwYAMp
zyCxx;2$AS;IBgcMyMOA{)!Y(AcqBx&F;e)LmX;Q<k?RDZ>GcWHKs#Z4Rh)}MMjtJQ
zVw8s8Ai}NC1Nz)5NSf4Vx?%5a$r)3NLnmPcC7sVq<N_mRovW#+sOY>FVu8{adTc0<
zD+3#7w>67Bgvk+cVn-!#>J;e~YNKf+OA#=Jcf{0@H?(nXP}J4c=@q&+1z#o=5a^VK
zW9vjY>5@w1LG{3b9qW%+goTA~-@g6rfS(G6oXv>6!kK}0t&t>J{w^$0!pA+&(fl>g
zedfnQBDI;Gs;H@{0T!1b_uSNsNl+c6oxH8O-s%+|ySv{V4Sh6YW8r?kR0r}kb8~WY
z!@v?rK%yxbU4$23*Snj8wqTZFx|$Izp9xU@^5x6v^|5>r-`;RZZ(be@`F`?L@M&?3
zPS)k=@Z`-(99~?o@Yrc~rRS?Pc(7|m5_v;q8nyd5rMF)Z_cK0&f&3nbp)M{iOlZy5
zfEeB2tfbQ_uFGGIVh$2yeDDo6w+eI=kV6gLkpr4lApQa;(>*9!Q3%C|x>jcx05U0H
zjD$GBV6R2MwxFaD(Tc$p8Vp?3`bA)0<kQt<t&eJ1aTugMoAmPGKZ}eS94hn(2?_7|
zG0o$G=b9t5%|=!MRkg}#zCBJ&k}|?J@;F!w8Q2*JrdeQ%w6U}6>FiWzBL~O5g(`Xw
z*ck%8V0M_UJ(_I_$xZd<_$JKX2L#RT#mI<=tx2^9<P4~ed14=C2nTOODHOp=6|GZj
z$j!w?{=5y$;q>$WNTMHey{Vk`zF#o>b78@5?2`;*ERC3}VxjgBp5qkyAxqrlc@?Pf
zE?K3v&C6*BbrY>AASfsZEC3uorWVIUQ!`FJGylT}8*A&l{QU9H_SAJV)&g{*&gS#&
z(O1IEHm2*8vbO=<MW#OmZjX0`M#Sy+w=eOWj?=Z(-g`FH`l_&d_wM2UevB2E-tJVW
zWyy++P5S=*`>ywyOTPrgZ|X!ipsxkPK>R8%FCQEnobQNv%ym6hQ5N>(ANmy&s&jFB
zWJJ4A`>~;6>g(6#o?AbFDwotdGBvg4T&<_4_p>LlWoakm%mHewEcqB8IjzM*O+!=b
zd$j%WQ5o~qdwClcNWkao4AbJ{<zS>R9Mh69W8SYad7~@Y8ti^iS{#Bmh<fObyMeMD
zA)8U-u|XBxo~aO1zyIBKYimo!_Z9@t+tT}qTbHl@ba^m4D~lO@jXWMm1B%SfA~d_7
zdoAxPE1U06thrk@$TFJj1GfY7{KdZMzk-Y&ps&7ukN%q?rmXbW*a+V!i^QZxA5GGi
zq(HOU+uh}QREm;N;Q#U;GjgCv@fg)7CnXgOSd$aT0Vl+qod7XAS=CBSE#`4LelrQ;
zN0g4^hqMkp+(o}ew!~gb04FX#m2>X!a(Ll4XJljmVTSgOyE=J=`<foI6G+&L&KHtM
zsYSQ@#<YEfUiX(T=KSN^i``O(vmxA%KPzSrsw4@4xUjgi1S$ndy_VS;U8xQPP^<%2
zUB3S_>M5${)*{d1fsk^K`IQ2_p8&Au5>Hoy_pHy`7|97FCYt}m`TfXw%d$iRZPT)G
zwn*p4ez~QkSGkc8kMXN0@l}?aC~}G~4c=o<lUdSQ1=yA-P7wi0A4Xe7xNjluQorcz
zL<}vvf|`I{srfxuVZ4a6U~li>s01?cRM}N+eM$-n;r$8hK$xIiOYC9M?tzrrwal0%
z0TGcr?E<Ubch~mV6+g97LCVR}bRCMi<Lz`#=4N=zlwH4=_?=zZB9DJ2Ic8}r1M&5)
z->s%V1Wuswj-c?cT1#w{?{4gSQc*o&$LVh?djk@huP^j<hU>;Hu|&f5@%H*uv6DUB
z7z_r$F7OCez3wH6IWH6h&zVFzWo5>g+eIr%c~Q1uEk6|jxXq%L+LQm}+>?$0l1)Vj
zFkbo?v8#z8jqvgUl2AhTUMraz>R3LQz#tQXOSG4eQYspvxpP|jIu(2F7iv!o43v0o
znYstjP#|Dffn@UE!*}Bn>aP!NHP9*=zWPe6>+a!UEAS44XBJjgwbs2BN>CCI=~ZKL
z&U(IFWwD^R<E)R%rI3&SP?aN|LrO~O&Ye4(Wf{0&n6YONm&*E^Sf<|lp9hF_U!`AT
z!m>0`Q0QoTPT}J0Y}uDg`PGWl?Lz)H`@zbj@H)X<9G7d{$QyTV)F_}=Ts9n-+R5=T
z7?_xrCKY)=M|&~02@Y0PaxvfdvKI+HKE7&hTpg>Z=ure~s-lt-RjvnRtS=8*qW*0d
zX+}6UWE^#>oPnPvnn%hE3JR>)(cjHR)^SaKig)eC%T!Tbh*ZC7<iV%MF2!)9GB-Ub
z@?|KHg_QZy>#<DN95(-m&p7EMNN`Q@1Q;&^KQ4NJzC~^ZRs+8ZzCebXA1lcsfbJp-
zrUJqplI>3+q)UqoXr?Iq|1P|OGx)DU$KO@cKlPRC*DvpZ=^Oy0J$9_SdHwkr%}#;Q
z83*ta>q-HcU<#BgDMKV11ThAy<|c`{{EP`WomZdfME%jXJe>fa1Jy|N89Cm~^UW|R
zoH>gZ^imhnGols_;WXz-?9cv|OjwiA|4n2xfkk&cS+n`KWxM}*`bh$PkY=tbw_bT?
zz^Jt=P|2ki_-tZI=*OBdgQG$xyhzxNfZa-+eB6HClF%8l<)7E?CNLed?zp^7(`?^l
zl7}()`T2p`n^~=*?5rtVTU$FL&7Er#>&1gv`uC#^9<B3gzZK8n9ohXRhRxs4Dq_|c
z)VlWlbf2mo&9q=#ot)fEtsO0u57c0MLi8njz6vZN@m(!plO<DVx9(-v(t}OUT9A>W
zP$<Cos;WdR13+y;PmgNu+1J-<QBHenFK<oLem|i<nIKuiyRm&ja<sIO_P}QqlW>c=
zq9f|h0fTbKV4BY&rrN$||J-k0z~xg#P0*RbNI$*l&rebY`pU32-}`SLEtvUCe+{!d
z->5V^6L-wYJ(QGquZb<mg}r{RMnOT=Y*v4*Qz~(y@-zK6JohgzceAGeiyTo0#Sxo|
zV^Dp#;OblR9sOxi0U$R>O-+4V>0n`HRg(hLpD6jvB?~56ipMC(q^)pV*sdlz8ng4I
z92b=+_X2Ni`g0f!i<he)_}R&5R!H4MpKWGOHOTR#sy?c+mCZdAm3XN+78d*b*|*R;
zezey~4{mw6#@8=Rke<brGzjkEHTJXbh{pu{Oth-SAVg_i;E~Yn9vmF(?YX(S>esld
z6bye^-0n`e1^9lKIe+fZ5$0q=SWvL7y*(#8+a3gWmN>6EEoLMfJ8D?5!!tZ)PV5J!
z;gDfXXn&@u1jCS8|LW6m@0eP<yN}Z67{?U4BX&tOl2!7NgfLD8U!}KGQgydsGOF0u
zsi~8IMJ6XJtC6{h&=fadj?H2uMrLMazJLGiDz+SW+Uw{a7a#9-xH*SLqxV)u@%+zt
zJ2Kg94qJ!QIDs$7T=W8D%5yIGy#<c*)7BSVT)Y8x7c8CvhC?p*P)Fx{D<*&$Ri$54
zUtfQ#;j|RIy?>8jU|;}3m5`7-$Qbw&qa;3x*xaf=G&M1q%TY;^_X{;T{Xwy~xF~fp
z-Y@TQ-1-@os75oyY5XI~HG|e`490}Y;+ky3@S7Z~{mRF4nDD>y{C=95&sguZq&(yA
z_V`1Fh>!jp`;}u8PRmkRODbQBe~jngz=FZeK^|pP=Pf89;WyVDDj^}Uyu7?y2~-FT
zO--GTx}c2SpDY^p=1q<kN1N#uK)E$nF(CX64h=1@Yo@D<pmlQDY@$?3M-6>cIO1O%
zyShdrbqU3XvD2)DU03Y|$}rDfjCpM|5<T7Rv#)yLxtoiHBjfD64Jhd~f;Pa9uXE`>
z1%<nP<wUR;P-g^*$wiw$VR7;KW(x@j>|nsx(a}**F`k&17#aEbR0JgSpsE30V2wAg
z;>UFC>_i%}$A1AS+XY_*+9LDSc%{9=`55{;?#kI3_TS5a-GFX~gPDMHF!$7F`w1X&
zh?un#)ft|HxL1F&UIS2zC2qMf=n^QAT)K4WBGoE?G6cS>_Si6t>w5j_)%Jh_{iDK>
zw6j&Kl#~>y<AIp<nTB%!Y9a9LAJ1<w!Waawxn8~t*P^B}$V{~R!P+G+w$p51bp?R}
zdDcbdRG?G*+ZEkG=M!~S*l@Py2&$p?m6YD`nc>ECxQNiW-sb}(R7z@Q(HZm{1e~8;
zthY`+6SN~>2N{EOD~?4)36#ba72yP-B_-=lOymSp-r6-aHAY^G@j%q+>FEKT0vlje
zTOIVH)&j)D#CJT_^=m!13X1E|jx&<T&Vft?K`M~F^n-`96G}2Hrl+A1po#`MG6?T>
zHa2=_*X81XGusM1zvJCyKus^sqpV-@an;kg#qNX)**7kZkbr>4uoj4{s;S};2o%0R
zd+@q6!6o@vo78At{%47V{w%3419Klhs7sP*=aVk|DWWdz%dVho%6|ebr{K{)OlUZ5
zTXucd`_rQPP1mCHegq#MA8025FJO?YsJF^2b%wz4q<DG1PEAROhyZC!+-N;a>U0h)
zeA2xyNjRo|$;#4Fa;N9EIGq|x9N4j?#YNE2U_V|O+A$CKT48?vGANxz#>AxYTYSlk
zk^CZA2M8<=kHeSO?AM=zL5n|szDY=U-u43!-|uVgNJStQ`|X?`7oQ(b`)mOCJO4q^
z5RO5(R_lZ1`R{-A8_Kk9a{)SU&(i#n6UdL6-k?d{^l){*a`z+)JLL-<KMI(xzgA@u
zfCwUPXps4A+!U-Pb*6=YgBo_p!G$KAkRau`iQwaN8hg(C=fy@&U>P&z;31aca485o
zsBuT%lJ&&sC_BN>dnv^u)n~mLFwpXf3hqax=KZM>By{4xmY1J6I9R6jIhX=-0*yKq
z1qGa7M$GBat`fF#%WfNmQL><|wyEil2r||TQBd(81!xawv-p$2EVq>r(6KR9?E+eg
z&VV`%%Ei<D0hpb)Z*KrWTt~;MasoL11ATp(-;b{-*i?9fVF70=Mu2a8*fC0}M~bpx
z29Gp<c8V$fCd0!RdARIE)3+X+F>fgOHm1C(?-+izD~~JLEiO)N0t^t8moqDMiu6T6
zW(4w|<74j#S&at|V&mfGk1kR6Ob`Zu5f@hK>w60Fr+B5C{sAFC_5+DQR(5vVipQmU
zGDZn|R6YW9F$(88&yGl<C)yiMyBkh_3O9h-r;3si=-K(w-+#X57;q;5a|-Z#VZq!|
zP;37@%v0PD6c>O<qatiC$2d^<xN@um%qnrRS_Wziz1`i<e<JLF%Cx?Y0m_o^?{E14
z*MaHyZ8qV#EcHF)hzByn6C0a%z<^?z6oecme?1ie`WdLJf(|95-{@TS&cxjSpL5RU
zc@VM1`Y;%>-WY9_Q5cJq-|P<OqtGR4wBRYKy5YpBIqdw`LpQ5<^9tOtCzPHt9*0@q
z*(O2vL|&dX5G7DALFF?ihb3BG69}_kzp86$mf24TRnm7pDzgkde$%1|x_E$)gaK6P
zmn#}<C16yu2f`xPx%C7<?rB`lD6y&lTV7qw622%HIqk1LLMno8s5jh?0i6G-;DBns
zv9WaKz^}byfV?0x29=7JlJyxG!Ek<H87BuDWJuLyk%5^RptUBRTNu{3M|&B>b(Nd6
z;9i~TXG)gz^9BX0w0_~F-rZkCs<|g%&#6J;0lFWkg&j7JPNSltYHP)j;rcv|_V%Ec
z3-*02l*EY1izo8<WG==smvUGlF1okk0GDh?Hsn#nrILk-UC&1yAz61wSR_vJ*ttEL
zCUacQt<#j`2cO)-=KS@-8sIS~R)d2ELWyaK?!TtY)Y0;l^olqP69Ai*dXqc=rvy|B
zoU>Sp>L~^{3>0Z;(1g{8hn|)`!0UlMmRa`lQ$-ioZbzOknJK>$=yG9|djR@bQibfP
z&dS@Y{plFaFz078=XKT9UcK)G0YmIzzL~G}ePkqObR}_+EMLop_eQX97z25y;`Hb<
zdi=v8FG`PZ5^?zHxON#hLD6u=9<EogchUP*SV?Sh4-kp<&dviNO?QZ0DfI(W-spdw
zm^kTVih(2Dfx_o7CHD91yec!ZWetzNwUXKr(CT<j9c7jw(21d`scGancli{99o;eS
zx823c5_gaJ>ekWefWaK-;p-8x7VwB36mp!NoSv=+hWp_IhxZ7aq1C2>g@px_<1J%)
zE#nlK(`$N-H>v#V<+qOuGx{CFQ+s}${Y-6^Y4f#ummsE@SLe!YG1q@{NJnGobFMjY
zJGCiJ90e)zkdiPve~m4~W#@RM`1Zu!-X6$dKthWdv@FZc$w8k<KbyVY0`mN1jeNk@
z3dilHK`IS|WKqlsp+ox^SzjtKd2h%L*ks>>DGz)Gayg(7f`EH3dk_@NK;aYo20<Vc
znLe~kgxk{C7zj+OiNqiN`!QXBA-#pMU6BPXzd3WvqdZ}r_Ui3%%E(9Ag9<r2riWdc
zsb4scrBW^-b=qGA1qHn@+%fAv3((xQG^qDYgl7y`kKJw!gqv3AUBt+~KGlTo;emm4
zbvB@#78};tR8D~39H4KIKXHP@JkL?I*4)Ypkk1-@o;pLd2d|ep+CpcHU@syJY+sYU
zx;fHgxpQZu7ElqOxz)HX53;8DZXfThfLbN(jT@ln2zWDS^b-ZJ0RktG$r898H5VmC
z=o=Cac72U+oP4v#csFc)@);2xE-vW81B!RURpg{((MH2LCWJ(?%J1Z}7ROZileh_A
z+q~jpDX;A;aCBYf)IxUf2w6Z6fDV?;X0!Ia0yssg)XVhxMPAd&3DCv2R#e3EyluOg
z@D`{cyUZO>AQ|6<yc7amdvq2zQEz)K_h&zVP9(N3{okfx&8m{#e%_V~{Q-xU`*!A?
zPsD?I7oCAr;!gkKPibP+Yx)p615!LWLFlT}dp68jsCop34_QeL$m`j_mi{5@4_<qb
z$`0pJ!oj+tC!&#~+ox5V3X?G)j#S1Hd1HjBC8edRHcto{!qU<e7u|l|Z{AJg#q+$L
zMfULtJ~YeVX^^=qkD$%+B<lU-ON_ax>=Wcb@nh%`1XCXyCM~5Gk^UM?`NftZZ=zgH
z>lOq>DUP{CqobXjP94$3R#!`Er0aNQLAHuTP=la3ZVd8DuS@*uY)eD(<T9FOH%pxe
zg9SxB7`vRlbb6%--<*IAEsX`W-ygfo5HT%?_LT^mT6^1=8;A`xj)j`R<>O4!x>R8%
zOFurHrG-mFfm@-7Wa-tPDH~R$!tjRBKt)L?5dT_lKNC?r6iM?;JZvg}6LcrBXo1Db
zXFMPmt&%7wDKiGC^ksugGeI;XUZqtjSx+z)1S7?nV~ci-y`%>^uhN4NG(iJ}E}%bb
zj!5PPn~|pUg9VT}48Tz>jbft^G{8+m-$E`qrglf^ErtwDkQ%jyzX1klH`n<x9`>`C
zH!zM=<3i!yCR2h`r&eU>x_|ti7A4~&lwPbC{!K1`;TJY24%<kEd|h;IYi;#h&+Q=h
z5}*F0@WS9}s>-jWAQBu+upJpG2Z)a#2`nxKU1`^@T?1{aJ^uen1MEt4r@dFW3$>Ht
z;>tiEh>&&u^_8JQPldkLZACj#S?Em?p{feq8_=6M%YRE|?Ay1j0c+6k2c#Yw8yi5i
z<v0E+FOF9^Wwy+X)p!(Z<cqufj8bQt1S(C?B|Oy>u?pwKFMx;?8P@6XB#<FBG&I`%
z1IR`ZX6U<oa2V8RVTcx}&@0r)SH6FrlbgE^xJjF7`axx7rIoq)0?3S(mb(9;l>!|4
zODhE-Y0U2P`nm(~`N2WPc%>s>|EHj!@O3IZ=S>Wd=U<1`T+OL_S^AU$^j8MjniAu-
zgy509Ee0HQ&)ZL1`#OUx0v_IG8q$Qg8UbVQt~2C_9}K&ftr61HxSHNj>#>mv$}T<!
zMFZC2pmb(iTz8$GzF$9){U&pI0n6@fc3e`hc9jy)`2;wxaXkj)eq4X*l4sd}l+&zA
z&>lGDV6}gr`Ko2iuuZ%oGeM{+V0pV(AjJTe0i5iK@1XNH`^dg4#SU7JtJvMQegHY@
zmgNTj4Wj>`U&`FV0wAHNu&_?%02_HE==MH4Ina6d5R`OMQ|UsHd@qE>(C?ZX3+6#*
zYf`Q98}|RGok5u;j@zjI6hPKksm1d@kfjMu&EMbO&8=eGPMafsbveh3!c!%E)Jhhv
z)o}?56qX#Ns?g;^roS|}r3lg;ayfh)Y|EH&JJ71#lkkr|LCJ#BQs*dx%vB31iG<@_
zA}OSz{xQwt{>okV=5h)RinE)CgrBiM$Jovzbv3n@Th7RjC+w>Lm0H`{qR&2ym)H_?
zea)de>1H5Nq&kj*1^@PhpiTJ5{g2fqrWeY}?K@$Tv=N_L)V6=wfFA)YET}O?kpTH@
zY0$POA$2Ych66!T7wQ%5T$L8w+rXQ64iADd;k9@>@*_-MV4Ij&7V=4ftQL#?Z;i%(
z@8)VEZ2s~^X`cxn=xfa~n*_ffT=auov{n2Ms+!)*5vt3ehfVEVYU#wnm4)(V2ACbX
MC#Nb~gftHRZ=t^Z0ssI2

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+++-_S34.png b/plots/2jets/kt3_100/ggHgg_+++-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..9ae2db51141d6b4cf64cec9d9f01163afa062dd0
GIT binary patch
literal 13244
zcmbt)2RN30+y71Ej&K`M=51tTi?Zb=dt?+LviHcy-YbNZnH7@A2+7DUBxEH-X7<e9
z{-=Jw|9d>o`#k^SdEevT(eLQ~UDthI*LR)g=W~8OXZS5uIYN9Yd;|hPs30$+fk0sE
zAP`t0NNl)rv-^V_{FCRYrQ@Pu<c4;1axk~DHAB02IGUl&+^x(J2=^biRT~Mh`OY7>
z;mgYReX?&ArWFq-yhx9SBK2i1GHbOv*sJ_e*nMCdo2uh~uEcncfqyy3{#x~`6f@tP
zkH@H>Xc>p|g^o-mpK_B}dbz?0SkWe}Ke<$w2{riM(jd62Q-gY#2l6_{9i4G|pSTdE
z4Mn7CXz<`>$31Jeqq%)=t<%luK+s-m(_qYwr}p)Ay&3E|2N?7@NBO(X2m}Gy>3>*=
z=cyOr;yss}Ixd<H<}PkVPG$&cCo>}#GgGvim5U|X#nKF|?O<!}WMqd{HnO*HHL@^6
zn>#q6HC<dy&Fo#A(Ol?TW=_ry_C~ho+s<ZaHG5kRv<TYG&5hgbuitT-IM~ULc|L;|
zF`T~W&-1Mu?9p0Qc4i2EUOr(FK3)+%J~ZD|5k3JCejyH&=@|q9jZl!0(sEB-{^_N!
zX^}3u#(It+JQzI?_zZR9?IdpOH{;qD7r3GyFIT4ZN4x4)>zV3*aQ%_7{9U!#)jZca
zw{M_5EzgeD$4W0p-qkYqyJxb9T_c9$$0H=JRF-}SDFe>uqr+n%Q43@H5sdxp#xaMO
zu&{7=h+4*~N8PL=TLdEv*!F_J5(PzMNc(iO(SUZbfgn{>U#?n)fK~5B1N-a`A3o&d
zTow}(<Kug9=mlebLHNv3xA5V{Oy}jxmrVw@yjE*-wXV2|{7fS1xMOHIrfulsy1!{v
zu|$YK_+L{-`5tWz@bU2(`W=-U6w`kk^;>_IAtNJ$!mveDJI_XMX`T&|deg5PGw5K#
zB`oZ5e7I*KbQXq1sUI)P9&v?(qrJ29XsN6VJ|%MA)lgS|FwqoJS0|CCT4C9fm7jm5
zZ0K;%Bqk>(XL+RRDl_xTH*b_!o{1lA_A$nO_S6mv3aUT&xoY5d<ZAx%)vH(e`PNe{
zQQYsb5QrqpBJ<#_tu5WcJDImk&CJpy{nAlcee(iTDn>>|4<Bw*8hZa;Z|5mCsNHYp
zsb>z}+}i3)zG|_v@>5DmDpxhFbX3jD%S%o!Y{=H$!C`e_p?7g>d3o8o+|$zXb!}~J
zMa6(GHAX%q{_EGT=MITrJ(~49k@fov96^n1DPxB%_jxzBx4-xIlVE;131@W0JbtXK
ztV|v*1Fx5smJUWmWcBv;R_d>8&i57H`_QuV$&{Z~%)Q(88ZjXut&k&HOw7AK|F&EV
z9W50V6%CD;<M<6v&;9({Z*1T1#hmQMNQV*ei6)DAtY7UCyJ}<zf&DhI5B<$jKrzSZ
zV0-z&g9pJ+cE<cp4)->$ns<!<cHcaEO-VtRMpaW&6Gr0Wa}>v}dAxU4N@}>mf&Svf
z!4eZWBO?ZJ9UUF_y>+w2-q%Ohifh&*4kTD$awe)u*<;=tQTp7unom%rF7v%_w2O&|
zh@6CIFvzfvB_21B>|9(&#V7m4$H&L<9NIsYqFSdeGc)VNJZhdC9Ml;YhJ9BSi2gve
zkl}Z{muTpFmzgvqIJldMr)I5*fTspUMmCjjM23O0P=B!UK_%r{l}#A@#$-Out%iv^
zv3;7KT|Q=Ms4Tazu#@Yc`1NZxZf<k)4ET!u#QRGOFi1(K;m0ThqJf?PiG}d*M+L)Y
zYa|ANxG#tU_uo<l!d)FgDI@|>Fq4VqWMf<FpoYWp7~lLKzS@OrBqfD~{}O>1x6%KZ
zG*CP0F-sd$O9>A{W(q(`EeJ*9AP{$?QLyH3{`FOxB&XLiV@}`I=`3ZLtvsZgyP%-*
zNI#W(>pLHe*PRvF9#@EWtgC{oy7f~QDMf*e@UL*UC{a$!Z=EoKZxC;&qF%Ach<Kle
zQ5cP~NA;H9N@aq#7H|A8PHvvpkU_&^X!rljvs><TLZM0pFqMBZo`0OW&!2hDoj&P~
zv=#a32(3`MoD^YG<TusH1)p-kBfK-FdMy<c6g)htbU43ub*U*Uo3?OVxuU3~6eT<L
zT+pVpw6yxehscNsDr#zol<J4eKiD;2(TIC$<!SX&*Y8e7_Vo089n~3j#Ehx4KT6?A
z-+t{SNeb)tSs2;$<HwJMg@vZ3rY~Q<OioVP4ZrW1(k<ME<Ck*X;aajXoLx;e^4YIx
zk&hpbytC4@vYH<%v)EW)FEXsJv;QfQr=^GtfAq+4yXZ$K*+OX|lHp7gJqhMX2&@zr
zkzzI>At8PU<CQB{SXpOhI#Wc_qUjv0tiq$BRA5djD)EXrDk>@v5jy48w;dfF_4W0=
zygoGEpPQR|tHT);6-62z+&U%frR^h^^RX4Sf^G(l?6-Ecv}9ul?wXC1VT_Xf_*jXV
zbiYJ~vBy$ietw>Wgam#^?|1n7OFW0eSREHRzNo0E!_Vq1NHD}iL?T|=QX}4BF|f8`
z9a2_WY~;_CS@ugB@4t|arMpfQ)lsR#$r7w}`}Tzk7sP*mB7;W;KdJTF>7{;GUVi)b
zZ8I}7z7OU0j4$=r9i!n?)qIsgeVJa5h=^EPTH4?D43}Xf4L^JKth-pcGK*%O7FASe
z7F)bxx$n{b`ue(NuB!OS;l`#yBV@>rVZ@Xa6wf<nii)_CmCbAQQY0|H-^q~#z~Z?Q
z1@d0KT2@u%0b4+Rb9#E31QSgo%owle?CcEKQESmfS8Gu3H2vlC=g&`{lEP=N9ea$t
zi_2y-t*C~krrXjWpMb#2TWkf1DG&m?EYT{OXzAR(b2!*UVJ27Y`IFfqCO7uJZd>wR
zWQ!n0;(QOn#l@{Gg)_d3&P~)I!w-ozL<w}<9tsQ!YIT)4UHssGJ=K-;45zWY^4F>F
zW&3Y|{jb6KcYH|vNd$4S|1mX${`Jkj<M@9W@q{_*r}-vV%Cba<CR!81DlU?1`8v#H
z?QXPEHsC5OtZ|8uq@*MtU+ksRG{(gRux#_apzX_-g_RZVD_5*-ZBs>D7k-r6<SHi{
zmj&cX;6m_R6iy=f{{8zMZEe^>Zk@L;Dl3yN4Oo}AM$@);b&XX%m<pr!72@S}Tp6i?
z9g;kpAO;Yy=t?giYY3u;h`-NCg9F$Tgvopq5%Hz1t;%ELm1=HwtDdf|v5ASMh6e0m
zj)s+{X5ZsWSML<+UZA0&p`;ub9ks6yu#hBxA-onwV#;*^kQ9*<8+(kg^4UGSQxGt|
zoU!tNte&2pfc_>XQ?2xVHBQrt2ZUnlBrx-quZ_Z(%v+ZH$#bn|g93<ddX88M@J|_+
zB%w6md~0cKej-zQnVV}^?b7CZCe)RTL6;rgCMSf%ROuV2tH-9L-7_@giIs<lYiK~k
zv_5Myy%MjO-E)gPM<efhv7w=Xf$ze%yx9ytgDdf*n5FA)N4c7aA(cG|LU(j@*xK8V
z*7=CuRQK@k2!6sO7cHODJ2EoT|3-Uts7$VSpjf|(pP#?<<x833fz{F46ci~fZLLWw
z(IR11cDDGT5llfga;jif?cbc`Ime*DK<o}k#0_}DwV$5fVskkRd|_1d<=WCI)2Ta?
zr~}06pTNRV^3O>e`GXLDpO=43(tq&jACK{0SVH($@~+gxd90LNTCUpv>^Z7R=$^<@
zWmyy!q6R62G|_%#E50^hjrkn1a1Dbbb0BKHXZzR%2f@>1eCeWWa;fWyoc5Qv!fmzw
zJWtu<!3lI)G-duU(P8<I3B6Nv#$l+O6nU*d#wZ6jUzEAHP}BmthV`;l8k1>V>sQ*B
zJ7{|K@j+Nn-nm$poVY_K+O*rZun;WBK$L!3P8snP>d3wvqOva&l}9gpL_{7Nq{`v=
zhfh_ZU#1{?WF~C%yBbnE_eMUm(DKRQAc&>u8HTI4eMx7X>(22v2{R)6KfDn5^6(>t
zq__jKvy7G^R>M71aDXjyz(m00tk4h*!<8JwxB;@sUvRx)&GEPM`GT14I*o{PjEKj0
z`^Ym1Wkha%7JV^~61))?Sv!z+xE-5KcxuO0Au2g8F!iL|w{d3?EeI+1#2X?fzYbVW
zS~{vVB60)}ysC3dHIXsJ-{_Y!+{YyMuKVgJo<U3nOEi7hbrL4=n@oF98`q+Qhl}t%
zlhgC}H972f4a7yRKcQZ!k7uLE9>EywC`7Z!#U3&F+nwxzclvDEw2WbT;XV<}<^DSw
zJfr`Bt8<N6Sy|)b<K;F3q?l+r@qDc-^S^<r@`;Fe2F8qKJa)F8Y%jZ=5va(HcpMRg
zE+{N4gjCMSSx`{G$<00b-i}(lsNXt<R`k8chWWF$cMf9`A(+Og-|(#c<%%(L3yZ#C
z{d!-YpVh7!d2uLG5|W9Mn2CcCe!<^EL-}2$$+FqX_=xR)P87l(>n~MvAw35_Nk~W-
z92|^`BgZ__x?*Q-jZZ*87A~WVPjx;tI+`f5xp#0dDK?gbw^^g2;oB#Ug4~{9RGb1<
zLwXQe>rMaf-@k)V5*a+C;Q~~Iw87Tpx{R^i!}83eQL@hx5?B)3C4t%p1Ylu4FArCQ
zV2ms*a__tm_dVQwQ(Pxv)yr&N;c|e}$#dsPHRabe4}z;vvWwyfp<ifZ2qv@5G>e}4
zd}w#~E%U##%iv51f3htE^ybw2_wS*am=R+%GTXiT@sdQbbTT=D#t9YdR8^Ce#V9KJ
zp{~w=G4_#67QCG<hV@yS)|GhK>`XSr9F0Q5`q7yXAPr%}^sv$bDV_K3-Q!R0V4`ny
z7(bukmI(_+1jGgs&CJXU3|x~uJ~2@aDeUwM)~K_y^IomzR=T*?rsomxgX9aD${fw#
z@_>c^GhpswpRN;K*b2eB+`f4n>;Tt#bf+o5I(hT#M%r@EecoH-mr=+9JOX@t9Rn)d
zj3&;>%fVttj#MktI1T2i)C=>t{6q!-pUswk!zUTB&kmxY;qrI?oNhN_guqA=WkX}9
z?~b1fZp9w%{c|Is=MV&nSUQ9iM%ZYa(@*Df)crqHvOUW(#Ya7Pt8;do`|FpNgcaWm
z+4YiJ%?Uyb2>cuT(Kv6X3zWZznUltjGc)?10FP{7PvOryI_sKG_e}}wkQUgq>d@v-
zwaA#)np<m?sl~@6USiyMO3H9A5Y=#DvCeCTFYOT|k-1NJNQ7#!;DSL%Cu9h$fKM~e
zb8y^#V6RC7NxdlQGI<6E0g&C&JVDyW!#&pY4b@<XMq-UH2{JrQCm_X8>3LD>dGQJ2
ztPudw-?{(gWkvs)sKVM!bnWxAWzq;k$fJ(b)ylfBY|R2uM;8!v#8Sv{^Y0v%1qU3C
zlc<L4K;TEZst-`CL|EQ5Kq`0xQqzQFP}sXfKme3E56Hqcf2Q4H!CfO^i^6ut)?LN&
zrhrLEcY6|#r$C939{Sx2kr9Z-SrZ83u;hi2P~b55Qw|otXoSJ)!8Z(o-jrhPV#DLy
z$%?+59e0JPtx4#|6E;NNqQYG}S9yinzXB%ZP4GPq+dZid{Z5BdpL@VJHH+;}Z8iEd
zi;XU3*7gkI;sr_@MQZ!JP73^R<hX2f(A$?UU)I#<b5hLC&a$$w@J|7Sglbtf`$6Y(
z!Mk_wZr)c{S9f$=11gbb2es6=qxEilY5aX!LVrEsq>cXn0iAf!H%~+-rgP`cjO`g>
zAEZB`T<Bi)?_B2u^H0N)Tg}sY2a?qquWYvt)v<6c;$3YD4LuuzA-QlN{@F9<^<N5U
zs;uPr=NP!SxJpV&*xA{GQF&TFzI`L7pkN^lFD)yZr~KgnS!JfN3mcV`l*bU$zPCW%
z7Un8|Seg7oyuH1}{)>1^<7Mg=Cde~yULy^c$?kcXlhZc6t|oaDmwq_paKBcsI_62}
z9ejUvqwjI5kueP-REQmjaZF~nDSuB4;aO=Q@mK8ysFEL)=-8fMD5=qhh!)}j^D~a3
zc(cf9Cl3{ss2<CLyu4U>W=IASv}}Lpf%(Nn;MJ1*Ju$WhLV)Yz6o7MTlBw@`m*v`e
z+d9x+sjweM1zj>SH#c{7-q>CqW{>#N-p&+EBkUw|B_7g3kwL9zSGu@ot?%@gcqorH
zx0Q2cl$9TUBt$eUcN=4kbJJ8Wccnv?MdEBP`?EX?&tj9vShbBIy3WSNcEgJNK4Toa
zp50d}{&Zg<!n;Ub&RoK+P3%i}JV>e;V}XzMfYYXuf~K&uySU~OGld)_=ywS0fJF)d
za;3&ZF5P!?A6Dz8Huhw*)fr<CS5J<4d_pJ&V5HjG+B>b1#}5wiAhMAtZe31CajLZk
ztuge5<<{{%mfo{zZs{H~$+0+@WgDI*<M;dLaM;<{-r8Tr@jn;1*yEo8oE|?U5M|7t
zY(HAF_v@M3tDGG1?LiYLih`e1jC$H^FAV|i?fi5zw0R?XLfvwN#KI<v$Qc(64GsNf
zEm#}(l<pD@&Ex23^XCNVKHEc(L!oSnXr7cj+3Ny1#&7o{{Y*#l#>$6PIuVz-@&N-c
z7*w3%G!%x}Sy{e^Q}lk@Ll*X8Vvs7ZzspDD$jc<%5=m3d(|Z5z9S$z;?>%pG;m19e
z=kf84106x*A(q%3Uo5Wo-QS$QtdxMlNE~fymgpQN)*m(-mjs7|JP=BS$Ql{ZkCp#6
zG}NYF)64~d9MIMLMI%)rIJ|FQK>N-e78Ejp``$uznRo9?h1l5G4-c2~i;GX1d3=Aj
zv1V}IEoEk6no71v-`ig-hP{8Ik@s+AWN37hj*6<<aRO5|w6rE0U=oDJxla(*tZ~+p
ztD$y(f4>guXRnnii_sd74nmu-a=(*f(4}DBmW$sDyChEzGo{0nS^7q6y{4V^dUKSV
zot%&in9Q}7DC$i@x{)R;=~}PMOuB~LZo6F~GCq!b5ytF~`+!pbJEo(hO-oJ|PG4y_
zKK7mQ90-0gI%*IuGucvwCcKJ4Tx*(_P7*RN+iMCT$jr<<RgZ+ceiee?!|$<fYM~d6
z7l`ujmv!1lg(I_pxtsA`1TA1h!Zih*&Jop1d<%`crotVO^VoF$SI(v1kE9(ZU{qs1
zJ3mX!+M7Opto7k!3W4GZ{i#T2ftO_dnv624@lup*w$_!|j^rshc6rE$2<ne4jEb+u
zpEMii6%^FWrh7eo_6&ZR4GV>6Eg<_H*<RsDN}~V4b1UDVICpsBhyY}r&_>SJ5AN`r
zk^Xf%HVqUCYAPxUE?s66vIc$)IN(pxs37CmV#<H7#+?sR5jXeO;Z}YMz>SNvsWLd!
z{r&yHPlTOk+z)QF0Gmdb2>f{V2ym<FqI-39_4DV?6FBdZlK(0W2!uH}#>BcX_RhVj
zWS~6b-)1V}JfjR!f~;(4MU2_fX~nt1_w?B#fyD=l_*WQkD37;!;PEs>tXy23!+8AM
z$0E;g5gCH(GB59r;YZxx$~&1`S=rvnV(YArp+k5l`!M!i=rOX%)$v(4=rDJNDhbLn
z$QSVR8aRo(6G<{Jqj)KM(&yT(t*txE%jzj_TER>JgsS8-m|QCN$;o64v+ukq2Gs-(
z8|0E@lLu#j0wBEG-@Z|MKz4q$REHB}mJ~4$Cv)>x6*0}?yr2t>@!NVavOF5St*xCq
zu-MnvSL=he4}uA=S$$MR%@@fqXIX$&dbI4|_u=IDz>Gf`erb2QZzs22*}4iznZ7U;
z>0yfy@jI@$#in2Bm<jjO{@mwXQsJF@%ASy<nz}epytA{zqw}_57;n;CHK^OT#IZ{M
z;DP7awh713pQMl!Lzll-NCZ84Q&|;z=S^W=o`RYhWw^|!1jTh{n&AIXM)%IUIMg3K
z1fA8`c=DA>$|vLBJ=t>cikEADNAlENq@`UBC&of7O?j$BmB9{@w1#HA&d<+>s`=$h
zW(WGnga3_A1sNM6-}B^Xrz=%>V=g<!;Gg+*PYgDq;8UFPy;La~hhrhZ>(}4(FND!~
zeui_v@INNn)|Qr^J39#p2=w0D-nFvI`v=A9(xppcbX|QJXAy(egI6C3kgK-d2h0bu
zS!Uiz8reK5k#KI}KVc~^(`HPC!x#mANLpGN=yAKhr;6+L7hWnn6WhIu@L!g7chw|U
zm79i)0}A#gCmR~Hfd8uL83Y94F8wWKnagf^*6MI3w3&MCtmIs`w6S@UpATZ6@x%6a
zq@*rn*bO*k^%28Jf?Un4Psp1#SK{;Eys>GHxbWSE`OM=WbX@y1u$ZBtA&~C@=9x(e
z&!1m&7fV)trI80^!%g)o@zzKCTTn}A7wIb~D&`jz!Mpw&Kfkt|fRse6C8%FeJ@+d7
zgco!vtt%E^Q`_RsoOv1)>IuLO;i{=At*&KYU|?;%Ai7$^^hfFH$^g`v%~;&pzrb<l
z*RNlPYafZ}z1JE$Q?6eoZA;+N1L+c^H;6hwFLM0mP(tb?pR7y>TD)hEn5ww6N?rJE
za>GI85lQ0)9ne2F=u>mNnTtr;4fNZSwLi$d$Po=H|J{oCi|5ZqWC7RTdILc{UKUzw
zP8d{|O09Hf=(Se9QX+SuP6^{%c)(3*@!A_LjRZ?8GPZsC0G49MAF&Z@7gL(@BCWDM
z-oA#F90_g+NdMmp?qX#G;+(1uFQTk{2s>FQ&zKj&s!{S7#K|-Fy;9lOE^)_(l-Upv
zt44Nd+s5wDrPTds-xY+NL5`b+r-F8BX$DI)FXb|8q|(*Na||8rKG$f$4FL`CITUxV
zmp8UgH4J|~<C(~1NlUrX?=7LkMRJ14%6<pKW3WDS?&DYxMziC-pf}s|<}>DtFK)dy
zNagq4=)5j2F3xeM;H^C&(j6EzqB5Y2aRJF1x!q`0wjYYp$X!V8cCodzw6wFk_ulr>
z8;vLTWswNpp1C$gGIJB|oZh6sd@t5$T3T94ZvCX|4(a;b^e3Z-ry$Tk&~jI?Jb^P!
z>}$Nx&!0a*INcfbTJ1=_+UkArnBY{I<8iE|bJfz6ePtK)AhSBkH!`-Sro4P>*r8qp
zWNr(5QV?SNdEU0&blQoF<$e>rCgS)`<aUe?>U88CD#4bXwZ~u6M6X(WRaQ}<ZJju{
z{^tj!F|r3|{V2)gL`3a^gM*Vg%@<?W*4Dts;Nj%#h>}}zJB5Vt)+O!9T`iL=!v^C^
zdLUo#M=OFd3<50R8v>I0Evnkc_Y=X@OP4X9Z%oMrqf8kPHyWlq4-npwb=keA)&Noq
z+4KQ9IU{;%4FuqW7}5QgHE^F8CzI=MEq5v4k1YCpHt_9>7yk1sApWh907UOA{n1YG
z6|+HJ`+qqjp`o4#gyW6EJM~A~!;G<(Vxk`FZLCa;j3ch{WS^X+<gb%tg<~Tcc;JWv
zGm%*T%rq+T<XqUPYU(%+l6!b~_^1TF8jw~5HlDMI9cD}+idu&AmHLs;x>VTk<A)hc
z9$)mdCF?vkW+0u^u79Ts75#R`-|vO=R~F#{rcZ;zrgQsWhr{N58~H9xdJT}WD$H}f
zY^Bc-eYiAO<(x|`;or3peu=^OY3OReUw>8W5+enQixN@x-8Viyn8^!hiLs@_;guek
zK5=teFJ6^gHKtBk4LI(RAaEF|G`f~jC?`at3i`jiygZyWM@QbPqd$MrUbrAQD!oJI
zJ0igss^lKCoIjTC9d9xE*(Brhv&6ftJG?X3*UO7lhaIzK+bKQ2yw7Vl$U1pJEZ}RJ
z7Wi@hXGMF9qq~WFeCw#?`AypRZNpv28V)0;=#{6HF6nnX6(cF(vHmNBfD$|qAQko_
zl?;jPg@!f)R0sR}whuuxwv`prG;`s}NCF!Pg?UHF`fjVW<?iVD=r(k)4Cko$f^+bg
zHRh?GNHu&&H#6Xma1OrX@N1uD!abrkuyQXrwfqvKD?D0zTmIzzg9C`$)sd>cA3r>o
zf0RRUmZ#+jCCKa7uL12$TBCj7TvJ3|=Hy(O&&^O(Pyq8m*k$e(Nd8Vv>%iWmF&HER
zP(mQxFqP5u>Gsx#g9ZV>rq1p7<?bNo_ttSKOMZF&pyXe+*lwHH9T{xHJ`lAfJ~2_3
z`t@||!(dC#_}!Gm$8*yU9ex=foE$9F_3OwTJnAC(aW?ZRu=|NWe>VBmpS5iQQ&!86
z0CTk>FE1}QS1wQMc(MN222i{?k}?J~tg(}$G4PxsqN1QqumDH06BsDijii|4{ek*?
zt$a9BQENUvpFVLXG!jB8^NuJZ>vCHe5%xPi{75X>F}uMY@uS3~)xmdz8uO^xxC*RH
zu(`o+W~7U;5TFVR4FxS2$>3BaCM2{Q<99eUQgyl(3yX_DWbak!OSmq4Q}0A(crN5^
zZf<hvy??wXZ8!Lq;rjKRSwN0K1BsHWm>KF;D?fyvQJ*H?>oNp_l=8F}AmF}XId%Vh
zbxG!cg6A7M{}2%BouM`YW|@?f1QT>~b#4Cisax$q)d)-jV9$GRIuXPsz&$1=>Fl0U
zC^|J_y!T2Q@9Vs`P1Y^+g{lgc<fJw$%lO@@s`@vfTvNd9d>O_|8|~^;xc8YTt>k7?
zwG+&Go7H$8el5A<?!H^?x@gKj1hEVB*kxlzWig%~bVPs#y=oULKfjad_QX>K5!{^;
z9dDqBkj9EZU<7U?AOHsQ@zJUuSZebtD{x*)?%G@>1;dS<eIE7*KLo=`p{=FWkuHAl
zDVz*&9O%lWix<1C%khZm^y|F$-rEgJz&tKpHGkc|0L9^Am*257`0))54F{|BW8jGo
z3{<!-eussv+4`;rRuuKci;o^X+67_-3L1QS1H?Q$I`<d3xwET&C!!3$@^aHLC~O?g
zF$K}E+?}PaZHAK?j;mKUo~cQ|DN@hVf|du179hfa^vBR`5E>Gqk|B}SJ`FyY<k7qu
z9C?sR?Ck80j*bW@I01P2!RD_uD7=#x9}jd*EnQ4lKtO<*Sq6>5!5wOe0wA{^L<hUL
zxYTU+Dm6DZgU`ZKf4DyJF%0Y$*syzd?^f9i6q&UrK;Obfccygkld0AisI*~+FSD{z
zpFdl!D=sATy5HKy#^!WjdU_wM`|~X_eC|M=5cj%v<;nuo<iFv<d-vay9NI+!f`TDo
zVYxXuJ_pMc{K-quHGstUBaHmi<IgFInvcq+a%z`ca!Yb7N-Xl%UURPjf;k7r%e+jO
zl{M^=;X6xpJ-uO$;u=O2l9Qsn%XhmB@Cgi~-OsU1Fz8caSz&(<#FpCMu}pG|jEv@8
z=|6{uhX)1*dV2VTge=F*q>#y?ZuU-2rJdu@RNx_Ipszm?L@e=n!Vzo|NHgFdfgD_6
z|MSa)Bh+j#HA+q$UaQ`hfQS%c1N+lJ>KYpx&z(C5uI$GNX7IvhW+G&=zJ68B?vY2v
zwojjG((CPp$LkFNXPm0MKZX*Hp2KAKd<F?rT!}JLm?j!8<}(2&1wmrFD__%(Rik&*
zIH5)-TXxqjUfXW59ZW4F;+iQbyH9P`G*OR7byJ=Dc#Af=vN`K!<Y|d7kwH&E(Q<x$
z?~suCS^-o>_4OH-)a2#er{lHH;^DEXJU6WkgInFiru>(#S_)8gnwNEk-w0!GIIrth
zZISL_esX+7EWX+Oy-+VDB}KbHr^Ib_6dE3iii*I9T};$d<GX#O9|!`h98@2`P~;62
z{F9R;w!Ucs8OJ9i6n9;SqYQjoR^~iVbnk=PDn+;qFqPukZ7T8f^z`H1sTc^KxP%0%
zs1`w+@6fs8al9thV0*0|m<&{qkSn3_B3;yNrBJVeh+e`Q0%UJvRuX=w&z(p(CJl{C
zAo+m@2NE;9LDcL^9B^+kR@Lq<iT%0kjoB_9D1CW&C?lKq_Vxlij|>ldIaB<6(o}b5
zs70wA@}@OeX2ny#u6__Z9&}E4$kb64?g+^7^y$;l(NT!I`|v;d+&dNZM}@N448iiu
zPeHC3K6$RZ$>0&Gay`A%p)uH(*jvI67(FOJ+mOxl7hPTsy?hb*vpVSz{1K6@<fRIa
zHHVXJhx+~gVn!yWk4;TKhKE5B&j95Ez>$T8B{VGT>h*}yV?#WmFs8)zMDBZvYIY%*
zi74vp1r^~D5xRBW9u^iBii#1rL8tO&7!fU0eNe;L|BMI^-vbdw3P}<!^RJx+F3-&U
zp@e{5o|6s9lZ_)#Id&()AP1b1{2Gr9p!A@vz~Ln$B^_K7PZf3J=I3{U<OsSd1WIRn
z`-cZpvgYP9aHfz9Pz#lpm&3+{goMP$$3rd{es8z2&7g)%@h!L+NpZAcc%tT~+<Q{K
z<i#{^v)3iOm689-?~dnX(K@SOukFTn&Mn3zadB}4y5-g_k1xSvU_gH0sl%%J9W5F<
z3(?TU$RSJi1d|1A5-Oq}X5Dq08akm+-rRX>+V(V0Gq>6;qo^nM2+05$Z1YTxhJvJ!
z-?112GY5waC`S6++HB;cnCB@eKro=t>bKs4lR-vC7DFS9amdKXP(wl!k&~JlF~cvo
z0i8|Y=kAS#K>Ffa73Jl9Yt_dxxpzQPq*G!H;Rt2*HF0-%Zg+P#@E3?|u!G>kKbb<%
zDY7w0;;Aen^J#x;5g5cv4J$RZu7(DG#T?I-s#)+SW;;`MVCgs9#jbf1LpR2wm>7`!
zq9Y?Ycz9TY-@SVW{aj#ngOV67ll3o>vfK$3P7<ILfc5tGqnpD%KT&q}R<UwwMA4RG
zYL!wwP3ij_iPWOMB451=4<g)HvD)*B?5n@ET{3H9HTwgAA^FLZ?*4wWYbnqWrKF?;
zpa=&GgTX-7vjfw}R|Q)TxwyE<V^AZ1eSrjH>r3!XcUi`d7_{W$Z)pQ})x_a=K&z5P
z=kuI?YeUcZ%L5fe>0%zGN9ddCny-`<R8?QCzMq>uAbIHK22ux<lWt=^*O{1@`1zmC
z<AT8Ka+`Ur`*I!pIfF;U2{37C`RK0r<yd*xs(x!h>bkJaO&5&(UvBy#<OMPeXj-dP
zvvioxkU7$Q_pQoxRWbr*|2E=r3{ck8syJ?159cc#GL|m#;ug=bSKl7urqLi2Ft{B2
zXs@iiWn3bNH`oCk9K1$&Mi%R+iKHdHe%z@F)Y(&&4m1*=`4Eph_o_{=rIhR1-M-yl
z<va^rB(NeiKA*`jZ~A|@Obs1UynFw?bi&Iq>f?kr6bEO{oWW#1DWZ66L=2jtxaR!U
zdVUWqXfH7-DJi%IyU@hfL*RvEfPO$u3a`~}mOFq(8ONKsV4BI%dC0u!=g-hB9)SG>
z29e-R40_kin>W?Oe&f(a6xSb%Y-oXXFE9THOg=w>i|0X{92Nd@u3<#|kwibG%;&4~
zzlK%k+50z}6{1)cPE>cPJ4O_|v;A#mloG>aNJ#|6Hy_@UUspR4-%bS#TS*mm-d-K^
z1N9e-)?Uh%Q@#wTM>tB>WW#2%pDB$Ef*q6jHZyYqGCh!iAMdPS=l3hnuzQ4KALSo!
z1jlaesq$ploz{f_{Yn^lC8bDZmjBzC01{cARzCgFoZP5*%{gE->n+p{hwb%;?P`Ae
znnYn_R8&`D<zXMq1*o9?k0oC5?z(tfV&cg(kDtf!-t0X2x5X`<+D#2Ty_9BSD?7XR
zHdF8_U%hIv6!`w_8(5|TxTrC?F)b<RvKn>_tSiP&3#9+nRW%|Qg2Iq6{!0F(nOk9V
zS(nMs2D$R>W?L@L6IPZtLIjM7hsXPANRRb`&zI|olYW`ZZS4b;ysxN$OcRmCqVn7Y
zr1l^@Vp5EVh{&$DueWziXK{E1u?MCjP1J3^H-~|N!CS%*jau9DP8kcFo3n%nrkhEl
z-mw4iZa(VzC@Ng$y8Vcd=jL2@H;A}<Fe8XIM`->8^;#dgEp$qns$(xdso9%JfyCKC
zl|Od8T>+{SSPrX;i%JR#ZCzcnPE}YZ;-DfK9xZ5l)}|lR0mpy_BX#KXfDY84MijJY
zKx)dorSnfZPJTs<C#NloU+|Ohr1R1PX68W;?dI6~U6`&bGfoz?C13aXt(kG5{`YkA
z+3b*$?k^etPT^V7Ucn6|pyc+35`+9^b8D+4bY)RQngRHOcmXUClH<KfN27c9(*9Z+
zY+7L_=4;m;?yXP537DzyzdaUYvHOX3p<K7nb*t;t#ho@Tw0i-aoTcfTZ#TT4)ePvt
z_nX9EkD-u<?=qf(gLVFFYlqoN;m6d4DMdfqTAGGq!?7937=P0eo%3gdwvxvi8>Iqn
z-1nh-L^u{CelUjp(3hC(6KfHti8E2hv7#8K(ME=#XgwZxqK)SMPAe|Ia)qeRDg!lC
z(6L?vRduhEj_M_-j~DnBr!H;VS=;W?Edh|gXp+#jhnfVuQnvXopqDO0`QXw<LFa{>
zGpl0s{u%2o^b9EuEuT6_*C=_>!Uch(k>Pb2SB`&Tc_$<uAcunXI1~)Y2>i&-gf3oT
zOY_^EJ-cSc7UlV9%TU2b?(#AJzThH(!POJLsVsbaMBRC*IR>awJGNryC0~r^7O?I>
zjep{eeft*TBpAJk+UH?9R@@i#WVHM?Qc87Tu|tyo0^y4<H7C5wG2dR0$S<t_{g)$G
zhddPnqM?-m8IWW9G$!xif`j(Z$U>Jdm$GArew|FTEb@<2eXaEFC$AliR}RNjcaQk?
zNqMi?7=79)lHSF_IS+npq>!!a3%P;>ezWKMddI(C_PhRkOK}!`0~&6yN8T0^DZk}o
zV6B|3^Q-$suie_Bd(r<!NG}^sX>5gvPFSkSxDf>sHHZpESr%wFj`)-(mb??W50}<Z
z!Q(rrg(u8zhOLM~BE&c<5OtW+zLgOltK_S;Qe?-7jn!}#uEms1=KkF8+QTVVL0lyI
z!P?MO$>#f`_+)eP0k(hrje}rGqh(scd&*d}6p};RM~DXZ7Xk~{b-d)H2Q+U4{yO9T
zTMD&LxINO-Z9XZwM2<q-7fU^x*=#)FRJ9Eqog^3`ny+v50=-IpMTc&a87gC8-Ny(M
zH364fUw10eNd@>%O8WfxzcJ2vm+Fc!-w&CY4A2)2#K*W~cdjQ}G3V*%ZZoAJ*mT>U
z!tUcGaGoj2*e(4PbjH6z=zr1H`Jd(TCTuKWvQqY7k<{I@zwq!7^dMe?mqU(!Q%g%r
zRrPDzGgeoTv|DV<r##_POUtX5FHxry1Nb8ZmA$>aj?N$$PQXII@`Vm=$e*^h9iKl#
z4|Mvmz_`N_L1xkkmVX$omB8~;A8dAQ%@M>;dV010>T2tjdVS~3WzuuC$$y$WJCH|H
zz{mbwM@koj2Vo)klIhs-gd;9$#t$*BAO-LRJ@JAY8%!}`jO6$#EM!O7jrWm+ggNvC
zA*c1s<H%-XbLcjMf0C8oyR8~{2K{MK$%i%`^Dd-h*G68Qbl5UI=UpruL>;H)5X>im
ztBkJKQsDnz8;9N%y$t+E6$eCe5_?Q+!Px%V!a{OM$;m?_BQ-t;4<oVw@R1C1(KNA&
zIaO6vP;iWvS;QC=8&)})0W$>|<**Tt-u7qpZN^yJp;8c!I0Xe=p$`$3A3vnYvx?n4
z-D01JR#ik!a8H_n98nV~y@UIsZ{7tvprP9EiTU51pdFt9A>^5jeF4(RZ$g{sqV@%H
zaya5f%2Xs6MvB#kB-e^KUUR3rZc~UG)-{+K0EW*~>>7<B5e*!v*S_@;n9|gsKW|_D
z&MuEUM?^$-V$`@B^>$&dI&fkCuEjG|<zqxc%s8nH^pG`9{kcdPAm=zkj5x#ze6p-x
zJnV8*5ZUnY7hDMGa}Hi<79g2a&LpPV5C(Z0F<yn1!NErO6F1#sg7)(N&`@4=+ED(s
z?lN?z`tz)f#GC!;JC#8G)e!m*4St={17MdS)>KaDH|}6&`ab1mLZ=`?;ijrg5$1m2
F{{d&E=`H{O

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_++-+.png b/plots/2jets/kt3_100/ggHgg_++-+.png
new file mode 100644
index 0000000000000000000000000000000000000000..6149697d1b32175ebf4a05bf1de403e8a51da584
GIT binary patch
literal 12819
zcmbVy2{@Et+xDZVvDJhUB{Pyx5kd$VYsemDO}4U(eP=99goq?$3rUeZ*-7?2B*|XZ
z?EB7lsrP;V_dWja|BwIw<~Y(A&)m;_-_L!W*Lhv%8K9yhOHIK@fglL=4LK<_1UYaU
zK}dvA2jCOwFD0_@-#a&r+YV}m&KMgzYtsjoCKv}-8xxF)%L7vcartpesgn8t57m}4
zg^XNhHNH-WNi=}^B=cc34S_Y&q|Rz<qwq(@mo3Y%*xTOZIrlcOyfY8+0>y7)Ob97e
zyXc1@Qr1)%HfM9HQ=`~AE(K7Y#~9W1Us9T(R^!P&jc^smK5S?0e%CT&V^7u*>To2k
zCoon`jhig_d3cl6>05g9EzX8p{CJIJ{Xr}4vbTadV+SUzVbbI_a(C<zgpzju9|`g@
z_9T3$=OBICLEYNa!P(Hx1d+5eF?297#yCH4xQ}tTZ-UXXwluXfw8AJF;>{cl%}g++
z)^-?m2S;NQyn{XF5=O<u&fXetXo<OHZ-P<ATe@O|G0x7;T+V;L$7N(~B{%364mZN?
z-{{Zy53KPRjR#gH2=8ScAz_}&!aO_}9zJ27E5f`&y7U?m2!cUwNJ(h8#Lo1)-&S{y
z7oWF2fF&mqOH_PNzVgzgLyuN`1M@$am``2pjjo#%`|%)bA=;_WX&RrZGby|@eLHS8
zuQz&p@=J)0*^k-B+L2;q0Y8ehGrlnCkX(|lr9|O;(bz+F=f>CSHddCSPWkAz3JJ}1
z8~97ols7yq-yoC=l1r<SBFOdk_v$=}O{34`Q^H*)De1Yco({Q_XIfKNr~GpgkMA$;
z>hF(>jg5_rq~A^_L69%CH?HROZ09BHOb=B)gs&6~5=v51YRvPM(hO(){QbrEwwG#a
zYeP$ajKtz6U6*#gbzTxZ{Sm&3vxvo9b6>TTk*V#;GqV!tW!2wtAKcQHm#4rIliv0g
zSm#xk6!f;3=Iy2CCEQX`QPI>C2oNAPPQHjQWB%aT?qolA*s30fc)uOax+1Uob+R)x
zJuNNdv`|N1U#Z<_<C`~cxXah?xww2c&*w5I-|j22H!?C3-)w&>FE8&j+ZP=g`ekr1
zAv}EPtGY5rg#4;Pa7f5*Z^ce;dRBR3Uy;kg&m#NrkCr_@Q%U06ett=5l~`Q~bnQ7U
za0q5!WAHRPIl0PGAo9hF7m<+(S8aXK_wu!GvZ-5H&AjBdP>R2{@iT~9Y<s>cRVj{z
zNOkmRTb#&RgqD6laPZDZxbpX`&febM?ruQ=fp73;aL_uh$Iab6SSGpV-sH>-6C)!F
zvCp`DY9+pn;+GjZD(S&H{VWpX`j_n$6zr;fN&jxT!A>K-;3ze<Ua>;}I;qRtg!hiQ
zxw*c6yxP03_ph7?dW6QQYTURHpuri(Z}ClV(4(sKap&ZA*4}1TP7Y5{O|J9Yz{tpm
z{~5Q5ioLChODCEpCME{T+{asDv~JzXw;mK5<G69-hWO5;a)10vGhZ8VMiPbUCoBCb
zbo<Js<NXr*o6m=WMJp&Yg)oWa=H{ZXbEQkI0kr35%hm>>qE2p-;MH%OqiN_$*W%;l
z6&4nrEgFxXBV4zfhU;ZyWb_Feqd$IVZ<@lkbsKoKa0QnycPQYg=RHo0Yc@B@kRCv!
z7!p$2xhuBS(z`l1<WP6=&AT2^(#y!oo}(ehO0k3$>Y;IrjEuV*340r@aUw^r&3pHz
z*Hl+4#s~y^%BHB9n3`@{$BySgOyU%1(#TfYMA!O)xXa&aaMIGyOo+7YAJR7Qgs`w<
z&$`bOuLuezh<g#HzGWo3Ng#-K!~5rJyEwIX8k{C-q2+n*YqK$e)_x-^F)v^Ko|=jt
zI1gbXM|>}ff-si)Wu0?KKMp@xNu`E(vwLG=soWwNaP{<7f(->1F2I$KaRM^zocNMv
zo9{FTf}-)Y;mvNMLau+k{=nfM?>@a(MG!Rqa~XKrUs>pg{QUf38!!`u*7pn+K^`-*
zH4%{$-3Jkr)`)LtW=Q!$?Wtp10bxEhD+uCyq6qV(9QC^BQl>2W0D_{dMLm4<=MR27
zpYIyliXz^xuqes9HKmqP7{vQ};uXOCBtHxUzp5mB!TYV@lgrE5<!6xV*U?0*-wKTR
z*|+2V<KcNX1TmCA`<?u@e``wl<bVDVLnZn?>o9^w|DCZ7mAZ=|2N{C24WE2-`Lh~~
zzbpCR%9HHpF!~;vXh=+<Ly&F%JIViihoR!Wn1UcfLVpK96JaOK*@I<{e4{&n%!jsN
z9Ex<+-bL=RNUIXj0a8E5!^-0?nBG=LA)k~79?k>un6<{LzSHRH>T-2;ZQg;%_wzgC
zUzJ1H*<4(-OYhRw(n{@|TwGlIi0@BRdsn{sJAG$stwc97;)0ggV*S}LH~IrZAK#!Q
zU_@H|O{<xi87nKR{QP`{NUn^mEVJ2|ma&6}k7#IVS@-0Qeo2%(d-iN_aIjsGM|Y;4
ze9GcPd-92((KzRUjRs}HVuu2E+%?z5Zy7qrJkEOf^FM;sj-<%G?VOZXQ0VOF;Jk1_
zd~@P#dRLkXI||$1-ya<v{pisnV(9erbh=j7Z-?TvG|pfdbyd~&FJCTuZZ5xne=%C|
zTYtZvj!wE}`q>@43zY>039{axfMyJ??d#LUJyv8>=Zs(r4>*ELZm&0v(asQvR%~Y4
zYyucHC~=yp4?9coD5<=Bx4UB3k#z7ea`z^jq@%9nxJS5Q2jNMJlK%LpsQNzVtEZbi
zBjjuPa(XN|Bjnk_Q(nKmw$#i=6EGrJv2oMF!s5XLj-}k?N!lyN@SkQ5@yU@OE}s?9
z=J`Kh(*a`~930+unWv};@$%Bp(uRkJclPu=;EiSv{5?J0S7>X5$KzoT0)e2Tqobr0
zqM4rGI|G{uJL%$bRZJ{?Cl@7t$TSolyMH7`H`lmfWvbhG`n!bc*Rhrua_n6B7T(Fp
z>DH~Ts-xni?rZp%meo%OkG@V#&C)5r@9pludbQHKdOuoq-oKKrnen5@{yg^e>(|C(
z&C$mQd^jJ5*YGf~iQQywx!M_aMX_c2p<@oh9D&aojGLK)YLYZKqq&)m)P4VcQuKZO
z+js9Io`zN~qsXz!85blVI&A94eccLJw`R$6W|a+7F<2?K@EjwWYleq75X9?l5I_Fz
z{yXKnXRqvs@G{DkBprS)^u>&v(Nsqe8&rzwY*EIWq3m-A!a{^kSAQKshS2iKeO2ZV
zC`YjW`bGykgu3>KZ#EoePXxjVVV26g5?BVP;O(!%2p{|-Ua_csocJ3wDBS*SN&ldP
zFB(ClsCC{i9BE}EMIN(~Vk?F$Azh**A3Qg(5x^qXiCEMInHeo0>`D3LZQnd{5`;w&
zG6pGu%6^vg;{fD2{mMyTPZ;x)XZHc3>LfPH5KfMis3}p2CCsJ+Sw?LH>8r0x_qISz
z2HYDi76O#W@z_`-5{a<!>+9>y&CL%FA3e1A9^ic^+AN;@#z8c3`w@f%hGq_u#QdL^
z0(aT+a;Ng)#pmeOWhwL`J;c8E+j`^Njt(^(B(3S+zkhsqpnl^<!&Aa?@&&C-G;Vj^
zU%WY*@4UFU*YM{@qN0fxpTUAGYD%Y5zeQZU5WV@enC8i`1KzJx=}anm;gK%&C+uyH
zr=+AvOG}IIZM5yJ*NFo;+1-NV2kfBt#}5e2wdo#7RSn2zIYxDmuAV)629$#4^GCy6
zs;rEt$Y2yHB9Y9VR#v8$+9?#Lw7RpgG)_-P_oX|lbg}VwSGs}cN*4?Y$U=h?+g&$`
zkY5qsTN3ArR7h@@V|}*0y$#WwqV}$Pis^_fO6M^kulHqh3yTr}tL=@Y@Mq7yuSLk8
zvu9#vPI&pU*rGc#BqYRZ-QR0{zUrt}rf$*QO5fB3!sc{OUR?;&6ogfgy_vPO^}TyP
zb4{Ay&aXQ{Z(TV?#QAp7A()E?4;~bb%PcMRXnfA$b8WXpa4=TXeYM<k>!bDHZl8VI
zOm9Kkq(k}Y4-4%Kr>?YH5fKqY^dp?@%#ZxfpFgYc(@3zNyqZXkkf!G6-%9V=RIUV4
z<y)krpul&MYT41q=vSPGGlcpixA?|Lcw!<pUz_Q3Ifgpig!CXB{p+`>4pqTD%-Z5b
zC$;XXg}!+HoNkeh6@??IgaeO05vLRx7Z(>A`pHqU)~Dm`-60|yWRkp|_uW$$I5`XP
z_3JiNZ~}<~kn%S-H)kvM2$`pN#ZFhTYD7s;Af?i(fXdxZ82AeDa@SQDkFz#o$Plp-
z$Eg=x<}EEPqs3T~N@E6z&ybIY@=gij6{C5j6IE>bL%lI5GIGE#?*d(}?v@xqdpkQA
z;?+Ng82CLm=PVqz)@OgTo0^=?SLN;ZEnB0XRLH!nva&J|7hT=cfB!Il+4c~!{xIq7
zz`%fz{TK{Q{^?}mkm3Hdbwfk1T1;tG^q#Mi<06|zSHz@M@fP!<%nZ@eo7bzV8IYl;
zz$V_Lq%@4$!MaEW6p{}gJ#)=|?1_9zT4rWzQ<KrGAP|5nSAdBF7Dh%!>STN?E*6G;
zi;OIAoYIVtmqsz1I@OzJ)|Mn4G+Q!Pjw&O!wU4>_Z~=!5sldq~5X8DOqE2#)eqLQ&
z{rK_Yj~_o$6e7QMck`{am@fGoJe-!EUSQc{H}NGgEG(?HR;Ea|+@hN+Ma^}2LUq%S
z*<)V9%*@PK`{;+`OSuKtgd>$I{}%yI)p0At(<6@+yu2!UEL$5Je->kDf1N`)3hO<1
z@IYHz+r-2~ODhs`!W@)IW~Qbm;C1}CiJ6%}nOlSyUNyO0LqkKi+#?#@(cZqWpPwpy
z$&Pu_&R=>$e*p0p77>A9(asqAJ8ZDbSx?gE|IBtpZKb05+E%>LQ6kHcrg<A}Ub{=-
z%3=+Bl7dOcYbi;*C6kkrJ5!a%i;vTenLJTRRJj_bwD|*Hz&FmqNk`#dRoSQYPNSJA
zrsa*=JD`ws6pxfrOKgAnwcn5BF*@X)EHs8t_)-^E)!HYD`caW!cuyax`}FA(pjMNk
zBwO?UIPtYYq~~j2+D{+w;G-3533rGF#)X$Y)X_*HkEzP^nIU<;cv1WJCR}%NM>bcc
zM4YByv70ZAwGcy{2R#KvL`u@qeh>RI17R;{F?ApEIo#3N*`1+N;I+34A(!6u+p72D
zgDZ@i$MJoIVbReXg$o@MzXXf{a=hoEuuy-a7$*Oy;9CE9WvOQREkGz%nu0B*)bJ#B
zC+oI*IqVVgd*YDR4~c%RH*zBqLjhJXC=!e!d*J3o@>A2c_)CTPwAF1VEXqUL9tS&m
zH5PK9bSw8)@C1M$y^He;4ztP_Y}Xu$g@=LhSavIuNj`SJLe8Z|H|q37p1;!o_M=;H
z?-`nSZ}?;Nyn{kp%v`~}H3kF~Up0L4^l3UgI_V1MiRlF#4%PS?L318@DDjH&{QZez
zfvCK59Qz;P4n4$*it0UvPjOa)qz6sZ5ENG8D4OQEObz+|FA*Znvrj@oD1=e%XX!Ye
z-yp%TF1vZ+a0fikWL(FhYFd{*QE14MU~F(%LC@q~$V_&g&u(WNbeR=<D9?eA){olt
z7dt9E?oG>)=0Y9wDXkI9{+y>4sMmvhiuCaziEN4p3#)XL^!07vwTXm6&A}iPO>;Kl
zl`{$<oTTyt$SaUsBRwpEayHbGZx<m&_LkjtzP?j0!b@kPi9;cJ9MW@W!~;l|q@*O}
ziHk$U*h(DQS9yZzfHyO&_YV&PV7ZG$RWdIhA^AlAurf3(Y}l1hGK4{4F$6dNtBds4
zW2p{Fs;VCA&OninVo4h<=0XS3=$NFC9G+;!6G74w3X=~|xTwno{Oi``gN+`PRsINz
z;pLMwe_jB7C=AMw_j{S-MNv{T_F?5^lSaBsonwqB9O?vH<blW3WqCgUV&KC2a8uF)
zvATgm{7Ac@jg5_^rQ(E0IuDwNmfv;vpVnoaxOf2dqVldBaJ-<PU&Yu&pU(4`YLA;-
zCgVRFvaEF{8CXurlcL|;XT-2x^*r#o&dQF%aFpeg9}Nky2465(?pgBsHF3(1NF|?)
zmYE*FiqMl|9iE1|P@SV$c*NqTByoFlYs=`~JvDXpI<L3aVM2D_i{whF&$+!&OcrC!
zW+Fj_!2Ok#Bjr<c1zC;J#81>&k^z=1(FVVY44C|bNl?VfyX+S)juanHBw|QIHaMd<
z=Po|GPcFUcM7n$)`D6yX6khFD)cr6hpQEKO6nC1l0(?~*E^OpxC6_Z&`I=rn`CLBb
z4>s)&K_E9KP{*MCkBiokMZdXMk9G+Wa|@W#B%bs|yR=xCg{`Bc_o@P853_b6;=g=P
z@{)=Hk*KKf8Yp#zDORJ2n3KQ!k`fH1`>B78UlOgB<>x=Z&@lTuB99Q*TllIs6gxgl
z{mE%-)vBcbjLAVFsRZf(f4iad-V*-6v{Y^d)yT{B39^u)w-Bf<H?J0$Uv7N;=>nXe
z<aTyCip*0q_fR-=>2<&3L2pt9%qJH-xI_}_UE<`}UVI;1bevhGE6{(X6YB0Mf<G+E
zg7UFf{g}siPy*Fnt7T>@gAeTXW+ic8>0j*VF4(?Sqs;w<{`n0btyrb;p`oGock<v|
zOkh#imqm^zJa4Htz_<ma4qGp>EDBQBC&@O=uSrDHxftEO>y3W)2ib5(Q<c3>7MXMu
z{@azLok|6~4??*qFOx%1U%GTjK!Bn|nI<raW!?x{8)zRSyjD^89PxQu)9!XJVO)Jm
zKJ*cq0hmxzON;aaI;3!TyxK_YVi@tQS-!Tvzkjmb8!BM#s7G0}Px}Ruv2S1EPC`f)
z78bsK%?ev`0w}YOZEyT@QICnD;nP~dM0Ux!_iSNuu$<d~c0~Vv5#y}fyH&A_D2NFa
zUEOBK3!lj(P#DYdRrKR9`RtzuaDSUjGE)c^ZY4#M)g*p7^$<=vtNT0~TWwvPeSfHp
z1bWf;j`R0#-51+9)my%Qa@4v0{Xnex!;8dE(o?PGRHWFo=HjZ_PHr?#CbLu-C2;~L
zw;rwja99%6_x=0#PoJ(!NRR;GIGZ3bVOR88?cKPi8;O|vY-sOUj=&`L#wq*C3pxgT
zTZ|H@#Ge*Q)P6^?Ho*P3A}?$n`DL<nhWP(YD;$?6+QZK)7wcw1;hdJ1CRavj7;YBP
z?kTbPvbXm7hs8YB1VFfQ1}eX=U%$TXyAwP-T9#i>P>`SB_3fL0pkQ}*_ugV;#p}7h
z)${hWnYg`hTvo-d+k*#_3%}|{?KU#?N(NlV<C0~cX5Psg`}I_uuuww}QBByHGT^?G
z%gR|`MlDoK`IrZX63nXd$CpX^st`*iS2kl~PXjdR>-(ytc1FB-0R-xnrY2#zT~;$a
zLd-9xq(p>|FE2Yg6#XnN&U5AWtvDrUXr;8@=j7ysJg=Fhzu$s0H8m~P1)kH>-R+N|
z3N^1i#CCwk_R!}RtvU46LghZ*eSSn)gqL%HLOHoTDkeq&71m%ZpVDE>+b(hc3S*Z!
z|IW#O5fF|)FX%B^SL}S0N#@|>3>-QYKofQKVAycJbG_ej`s?NWcP<GDMFXxyMq)JB
z=^)vbf9#zJ2ncBQ{7*K5!UA=1bac$g$!QbYdarXcTFfuNFPz<@vYO%XWrL}OoFEP~
z4${bT4)r8QGk(8F%vbaLn>TM-e0x7RF`<&)C7)tvY|P5W#&-UEYF=KaF|R6JS5Hro
z?JwvU^nLsG4Jr{JgRqh5UBy7pfByVA=e4&LpC@ySU|Ie<0Z(hD!uAL??|AyG6VGv>
zz$8d6H*S!_5ftH;C^T+(Hr1Uq_dN%AFOX+i+<@m=KlCr)ocJ>nT-Ij$1!87=4xa%4
zHYmXN@9u0BSPy1urWaWCu5OGctgWn2Q&GiUbA5)+ebD(vI_QM->dZW2xH%DRu%f(L
z%^-gCAc}VS9>qS9h-o>|52;J+=ve-K&EA(MJN=&}`_A4;Ri@^q*;-dWW-Ke0kx$v4
z#inrLQ2W=2ij_^_hpF*qZvKQbhtOipC$ZS-?uJjKi6>LI^oqas_j~T`tU-KcFBM%O
z#$$eslAlSxQG2uU?Fj$OgvFavW_+=y+RJ1O>P#-)72PTk7u&vgx_T2g)K^#%1(}AY
zg3WwlWwW_i5l$m{d#McXNa;6$o(HmhW+fgCZmZ72sV_Gqd6)cu9ocow<gO0I+OUTP
zycy{YIqOIBsCC$e>d2ASc+r?CKdA%0HmCKgp7xg+r84cvX$s;4mXriNXBY@R#OU5l
z92LU>=Jn|Nfua^kewBA02Lv2z(6%8>6rY}6(Cgjinu!WEI-o3OGAvcqM*sdjvOCY;
z{`_v+%lnDlQ_y#n%C)%S`-Q1wyT0{|c>c|{4@PQ%o=mK8A>p3?J#Y7KXd=tp<ciyZ
zWuPynG)QM7EKZbQ9)ndB5zo#&Kx){RDAk-bTmcUwsODKjM2({)3#o()eZk_{vU^yK
z{FWh}01=npu48PFaFomaXnL-VccUFnxW3BDQqItnT?kvoqlv`q#>DswCs;arW7wbH
zkU*CnIY%?NWT7H48c<#?w%~A>+&8pO@5s$N3-XPDTI<Z5?BTvcq`Vb=)W<b4zgvE+
ztgQT7U)4*X-8lRySQJ#)$c7jBEBs#hHXd{<6XW7iVg(KuMv2>8CO?D!z_v`S3zsBH
zl0|4iYn_jeFL}3`{9`>Cc97-ErOU)qXV}AWSIBdH<<Wtawne%y#Bb%Fj%PbM-i~u!
z@@=IOH&JsyOBAwcOVniFo2NSTuxXU0;Y2c3*dfCYvmHP0ut^_2mQ-7KTtfizI!ev}
zKTsMCOi;`~j!KG=h-0Q-uE}T)a=n7i@MX~a+JCvDPA>7~Z@>LgQD3!%J|*A^>X8`N
z#Nm?ti!g_1nKY|;)XMvc9h-mx*|&)TE9iiMq}G4=`h2>^h>rP3?%rIzYbc<h?(XIW
zjDOTlsGB<AiY-|pszj=MtUZ){27NGl<M+kZ`kNB`UDVR5qN1WTH8r||#DgppxUja<
zhLJY{u4pzhlRXaCG2>C}(inC+O?~KL)o^|5iQ9RSI4Oyf8GO<QtGU99J?TixB+)r&
zO?9$<Tj;?wHa9={L+DPURnan2itV3r{H1r6k4WFXe&{Z#`px6`y7pn4zEW5FhG*yC
zj;B~CKC{Pj2&)1ueEU-7!fL`*A6@@d4&92ahN%1e{OciSwMcrpx{jYZbs>%R{C6oj
zqSR@)_ej3;<Fp5K^R!yc30DQGijMWW?`BPEQFf_MSWDk@+Dv<MsK?fUvi`9n3rAqF
z-Kac)P_DsAJ#&HbQK2vTnyb@uo>Uo|sCi7e{lu)eZ8_D@W=Y-QJv#e368AmVEb66B
zQ@b^5Q*XVFdP=LhFi)mvC1Y#rx%&G0Wg!1+%k18r=Z7)}uw!56H8FZ+g-^(ufAzEc
zp5<9Q*DBKgOD{64B#lf$^ik+s2yc{>Q-^cyOnmO(Mdr<y;S*PRNf@3f8DoN>ZB5Uu
z-`vy$y;+G0qePmyN!lR=jJ-Ju$HT(*qw6g3US=OlW5yJBLat4p#by!Kl>%G+eJ{V;
zFU&ia@73%B@1DtT^^dzA9Gu)A)Z_d!kC<}Hva&L+$RN+utgJTkd_WJ8iM8{0fg;s<
zX?y{Wbd?;}YQcu9^YH#yZaU@_TKHsR*-MZZ`uup-e4@bdh^Wjne?W4l7ZY%^*|38p
zaY)rwlVK?vE<g|N)!17kEm_nT@W_;V8Z<|e^AWD6zU<}SQkQ3Ud7gdm=}uyfmrsxK
z+LHRVSN8B$Y+1;$XV#q|Xf-kJttIP&i|-uIMG7B|p4Qdmb!<wu@7JG)=Ce~toTn^T
zB)4v%ibmbMTi_TEE-dTSQS!Mm$*1C7?RTiKtIW*rdwrZ%P*YlQT6tA{ob%Iu8ynw<
z#i=8i1hc~59|*Nq`xzNL4EXAmUXN3Xtq(mU5Mu93+oJ<L$UN^CS?e@z&iU;Kxqo|u
z4y66OJ9Wvh_Gr{rTC_MTpVve>V?+8U%0y(zE~)2+Z${^4bL-GJDcSe#<>R6Fvthep
zx_1M{Fx3>BUlx}JgS%Ukbl4X&)asO-cj|uIy?O8QXira6KU&Iwk7yJdyUgFed#B~;
z-r~TBsjCMA7WMf$OvCNP6O4w(%`4~L?{TY0#E}+M44_>MX^i8(X*oT6yvDy{cAnsR
zfUZSCZr<Piwad<)?<-$n+x4m7f&<M;G?V3T5(uf03$LKN_IcPQdk#9EkQi^q3G-(^
z#R^NiqH!Z+cO=gJ3?eD$II-(S`(b~`Ws$Nchg06X2?-9)nY(@Q1r+O`g0{s7Dzk*S
zh)GjHJtjk&@oJM<^GPFCrrF95v-Og&85b`OB;iiHV7~TDG@ltOO+%^c5^kfG2wXpm
z4^P(BmYuXmEk&fXkHKCiQF<9CB@N}ZXHTw4s&ayoq9Wb6j0FleR4e6we8(C?6W!G^
z>|NCI=`aHW!_s)0xYw?Sot+)XxZN!QS4goo+@Xfj2DCHV(`lot=G*Uc?>SM;OA!dW
zKxysmmwx11nD8>drR=2G`Jk+STq?&f^u%7Afg!rIdivy002$?p(;`mqQ&LRYlcaSE
z&L!DwlFt7qq@8&@r<Z>q!S+mj&LNVqQPv|LsaMPnUA_UNDTtn1%yrS&$?4<UBa=0g
zv=});+B;)kzE;m*DJ2%}^S0TSDiu|S!ascY0DaD^^3Al|T(xUt9qbo_e_C7RkP~WM
zk<?kTsL1fE-%s#K`xpcU1-ZMs!wJrY2J8Ye)A6KBs2onp?+2o7XDwLm)LexE9$N9J
z)2*LlV|(-A!!nfjpu+HXH61(Ae*T9qIz9I;4erly0za+k@1BO;(#}`~sks<Ljn`@%
z-7Vx7TT9lUe~;hy0+ieriHh`m!Qp9YNlIWxu0Mz7fNaR=qO}2cv*xHuN1e}HKir77
zBghc+wIbd4@Nji4EkVcM8sc%EZ^j5nS032DPl@xrbq7HbhwO?zXwN)5r_k7#<iRSk
z8B~EFm&pb3eYXp3452CK<t5&2Mb5pi8o0D~b=}g{1%2OnciT0xsm9U%GYV8OWR^XU
zH(HS~*t9iP2&AsYhzq&}>`$ss5|>S_FF#mE9ukjUKDoZkl3Y<CE-D&_W{GSH3JL;U
zJ45qAcQ6G#-uH67fl2G$Ih)?yp+T_%X3Y4^`1aCK8u+i2M1p2>PT5%OQ)VVthNgmn
za)OwsnAk3GZ_V^BO99!TRN32ftsr@LV;r5FpnKTfO%w3??c2ARnX?%M1EAeNs}b~{
zl&zq4i6<$bp3Xn*Kg&vVaCR0s9Wv)R=f1bVycZT1*Z<|qC&OMGSE)#ojs8Ir1Q9TZ
z@qlXLSKU+b)$c~YEl2HUpr1b88rSR`6B9G&wYLNIhYam}P9C22yO;ai=gPv&?Y=)M
zxYFqH^H}daY6M~Xy*kqion}x1Mch}XK>=9#L(0D&y$$je^x;mOI>in4gI~;hF0gsJ
z{QRf))f;pP2=B7Yp38~;XEs6j(Bq2K(OZV0ytaA=&v?vN_Ln$A*R^7IbIPqOzUrIb
z>3uy1g?;_ug9c~B#}6M0$*|ZFSUuyJGn(vl7c}2PZ_vdhDqY6!plL8Tcd$gcl#a&6
zMpzpy4rqDQRzpJrT(&-A?Ij{0V48D#tToOZRBnI(yY3Ej(C)s>iq}ak=}%0hyutcR
zu0ZiBd*D4W=C-FzOSFf?Yj+-z3T$r$XM@UrRDAm~R2DouVV)H*HuNDuc!w&cs;a8)
zDf8UaR1-9U)8Z13x9nG|u&VAKKVCk6z6?%_(Xp|CLfc=;UYp_2f4OjBYvHNa#Rz#&
z)1fef_9`?wo0^)6@Vw0VA3khP!gXzX+se4dy>%w}+Ec%OI|%FP>kojqdW-XTckpQB
z*w|Q=|IyCwQv#MSnuyE%5G+W8^A^-jV1yXwW-Xu|i-9W=#5{$?#0XV>)F1$@ubm<R
zkN~lRiHS+SLLoI-COKNn(+y;w{d($GqyXc<L2UJVk!!$e^JXt^jlrP+`C)asM_pT6
zKFh7A!fOwDVf*fdrbuomdjA`R_%we)g`b}vtX_7mU~0pbUqGO7bWyLwi6f#BDqg$(
z+XF>TGe00O2@636+dt_mqC}kW05YJBf*YbEMPX`cDxi*=wR>hX5=0>A@b6Al>`oay
z6?IylHw;XgpA+PL!EMl*8RW(fP8x886jbb7;=M^xa36)+)YuHWFn3D1;#2Eq20l|L
z(W|SgZ(lqC`ndx%)kV7B-w6*3%emj41Pl0YTJu%Tm6BYMQ*gqx%RPkjoENtXVe4I8
zi)51Dy?tBgvB3+|ikqFCg;oma3g5rqhCcnjN!%sH#m%O9y?<v9<tCh(%*;%fgV$!N
z7vrf@RTYEvkAs4sZNs$2vwZ0FiJ)`585HR-a~*@c?kUg?mzS3Z_jcF7n6d}`+dhzX
zn?@H43$NlHYiFD}b4GwM*gXFwA^VTkeGD(u#w6l&k&6ot%GGjYJTtxh;e>cCs6BZB
zwenmcJR`aE;Jt&%4YqK20`c)@3Jl~jdz-jrk{3oA!pGYZ#2r8ak@TORi?m)`TDrx#
zZ!_6%i%LnN8}k}V^*iI;XNw~B-6lWz9E39ei2uX#2YEdpejTSEv#-M!7(EWMx_ftM
zXKk>px%ryyPh!>ZRronx_eW1(U%plb#siRh^kG(jplz{2$tvuzO6PYjf&30`l2ytE
zJ%tT+F0RZE9~_|14>C6B?K!<O>uXIHXabCPw>R|k^q{K)De!hXnwZ9LN=>u$naccq
zsFyVO1TL=u*6fR#G&uG^$XB3&o9A!FSeM&gJw52LbQ6?wB_$;@v(yG-K#key=~!V$
zPG@UhXF7_S+Tc@AC;t5P>m1Du50BFEx`>z<5Jcrs4=gO28XAU+8@BJ|_2|0{KY|57
zPbfY<9$E((n(hlfrTwdH;b*>fTzvd2tidsSLpr_d2sL$)E*EH?s?W#k9(h&7DuDUH
zJRi3C=#*yMG4w#03`4AC4&cy$$5IQRcTH`r*zy-iNZjQPlO2Gxg4eF;-oAZXPw!HM
zymIW-g&wnn9?OsU7Tubfnlgotd@o<Sw!PTI-I*uTFP7=!;{%osXGh0(|CBv4Pc?Ca
zFXVxx<%iyx$;nB$#VvNam6a9X<gfqeC?EsJSA^;cM#}>3oU$%$@9nk7*9J^(2iM5<
z)+k6AZX@+!AOQobvhRP<5HyB)4JI*Y>E!|4I+3E*;4%4+R>U#uml#)qE<WLWHY^*e
zWRNuba{hV@W~rH9F+)4YuIL&Yn_tmGuL_Uk&dDFWz5CKyk#4J_4jYG^gq*?MDJ#VL
z{!hE25N2^W55+daxXfPO8(}&sPeFBlET;C(0kpC6%JEQADBQd`S}YXq!$S^PLEg=+
zSTlX+cY4-Di{QS_fFPBe92^WxOvfkm`Swi#s28|Ib`Fk>u^4M&VK>u$F2P~Axw(ae
zHm0&F_Qkb*3y?QDRE`x~f75ewbJNo!#g}Lw?tl74PEiq5V<!cLplpF(GT?)_Uf&!m
zq@JO<x02;`{7X5|LAV7&fK)D+<|->C3{tli(SPo7BSj6`bNZz&IY10T>%<qTX|u{!
zwJ(b=EYvX%0*Jm&I8zj70>&s-JA3<J86$Odb!q9ELfI#(bjOXER={;aZGUx?_0_(;
zDp3$%00^6UsuCH&)DF6cgL^xJ$}s{~fa>t`C67_9AN45|7TRENjN(PzKf<m+awW%B
zY>#qNQcytJC;)E)EU^?q5sZ18O$NJ*Ll2Lhpr;=n8Tq2uEWSN_)PAhFp{>mT*paew
z8yMH%z+7|u{grup=rH(m-gr&WDqr*YvoYavte|f~-!H*)HCib(@AgHbK|A3%r;`3W
z`tRM{Yu}BY>Xo^zKurnEcn-{U6BGBr|ANO4z%i}~qEB%78Q{6K>bW_Y3RVbx9i84e
z!dl7Lm}yBr{tBb4tZa*^y}SF?zH<VEzS)7Yn54JhH#DjXaddECJ$H^t$gX<W=EKL2
zkcT2c{7kU!D_ro}Tl4bt^aO)a*oEMZ!z%m73JHUj(MCzdRtZ=qbipntRvlvnctS=-
zh8Kineed2q0BGooUJ8?go`S!h9|a{P%oMtITw!t)6clh;0Y4d;nZ>Pse1Hs_n^11r
z@)EEgs+2n!ngLSJ5)urc#j3%%;#O8Qj3M67*WN@=C+se#f@7}BJpZZq?p37(1o5^B
zlVb(D6Wke|X5!JOti&h5!O<;a;BsoK<C9g$ZF@(6{Q$sf*_x~H+FG6I&NA3HF<E4l
zIRP`<-6a$hy|cBoZFV#>gWp9UW75*nMqbhp5D<_-1qAQxy<4lMRi>k-hxR*RvEh8w
z#e)bkd@f9`k1fyG*f_gFf%#U;>Dx0-3*iadBg{Y!;neXn-UO{2JXd*bVkMS6yl(1(
zW3NnCU4d#!rFUg&=R<+;44tIH4n6Byf}*ze59oNNc27}KQYP;a!5fDzZf^$@+8<LF
z%y@7AWO45;LVB^?T%LrYUGan)P#m@NuIb%#Mmw7;up{emT)*sFYs!P3J~hisy&3Zj
z>|DCKmI5&bF2iKvV0XMBFTYrNL-i|o7S&Z$=IhTsMZe$wh9PVtGhuzWzWy;T5gu-I
z-vv<7?<BW>F<{wu1i65!=j$pQ?n_Gf8-5-6YY@U+3V!M6Z{^vt_@1}x3AJtk_=rdq
zLnZEiV-kob_@H_1Mm=$;T!06*o1rPH`>EIho>>5m@!u2(8>#plqmb-yiOz@!Yc8#~
z%8@a+o6HaPz2mWBK&g}1>UjVSyjAx7Qr>U>@9w01q)Hm&Ljn8k-lCH(vXc3=Di@gK
zAxaM;SeMRSv<G(|pIPf$jkMptf0veC8zaD@l9YsA)$Iy`C$Nz&^NjTL&PfL_{_O+&
zI}O>VXGC2WUpI|%a&u>;r3HR10qay0>;K68(4Lr>2v5lc5;3q3aku3OC|XGeVbY(B
zUC41DDrjrJeDOl_&K+oB0X?1E`j?vza!XH7k5-m`*QCSf=qO|Go1~<li=$0IsT$5F
zfG0}v=FMB25fG<gp4|K1&Jz~A(X)L;RUY84w!Fe<Z*NbIg_7%?#!E%EM>q)-&tJL|
z^)GAR^FJ?OvEaGZNp7b*e%y8;1V&=RtnOQa+Tu;h2_s>$;A!Zbd|d%K5cv6WJ}%Mb
zKRkYcXfWl1Ka&2`sjca}w%XbOexxC`TFQn7PR6{9C9FeQnr!PugE6$0wDU}F%F6m{
zXJ~RpfHca(!y_al1oj;;9wxnQZEX!cB?xpJRE4qeagc#VM@DXEd;_}?gre8p)?lQ3
ze^4e$9F7W>`|y%*Tq`hYz-cwQeAlJ1q@*Ol0hhCXT@BR%wEKwKVyaW(WMyJ93Z4s)
z5P(vCHD7^eQ4V<@D1DPL@1~;w;L-hdmd#=?D(oMpYa>fUH}D=rHl3ph==DtPyrD`L
z?nFfYG53K|uwUlRhquxGo+Rhhk4I1KKDSke<L+IMUBkF<uKjD9`*Se=-4*+PILH5K
z&|B}jcWETMn;q@|mcD)8-2ZOK`+ptz9}`JchPk~RUWPP}&aWpkoClQ<`g*RK(I8i4
z_Clejio5*Zgf9+vIo!n3vt{2ij`(7uFwe~*T+6`Ghw>vPv1j(8*})nId3;B__I_WK
TUN8?tGlJZZR+7rZ-Sz!1J}Y7~

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_++-+_S34.png b/plots/2jets/kt3_100/ggHgg_++-+_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..105f0c5b46d224ae5ce7e7b813f1727d9a70bb70
GIT binary patch
literal 13387
zcmbWe2RPOL|2KX}Iw~9^WaJ!VXRpj0S!GkmijZWl%&en~tYok3WQBx`L}=KOY-N)@
zvfa<~`Fwx({r}zf^}p`x|3BB2&h<X;^M0-8cs!qv#|hKYP$oS~e-?p2kgBR&*Fhi%
z4G;(dNhBd$QS7NxhW`q^^$gr}%pakhTpX<**jb_7yqv7iR-O;65eU!WTN)op2?fs|
zJUXkS(*Mb!{VJ187%3g|85HGXwo<Eh`-8oj;gX&MyVx{?0FrWxJ&e$Du!Gq9{8X#Q
zc`e7N;Hc}4=S!Se%Rdz)vG-jGJI8^(*FJVdW0_P(@C_q^?|oWuFWX>Y=cJSC>An~@
zvh<<wG#wrO(>X8VzS%S0GFj_<WPTv(ptof@Vb9<2O5A9caNZFnP2!|t=!!s`qr(3q
zK%}J6!9^1{MFTfoM{Bo7<}OwU1s5xGH!Dl@qX%v_Xg3=xw7#RAwTrnuTFu<yzPtH-
zE3~zv3tHFB-O|dz%@utGt!3rn>gZr@hrZ=%h1PVi^Fm9aA3b`+_vqj6@!fN@SDEmR
zgMl#kf&O{^14jq6-UE9pgph#XRY^esNkKuhps=K%h@`N9bkCR*0)a-TUYFPNOj{oF
z@ziw>k~`My%U2y1SxBcD&ewlKm`96xax*Z9W;p=OHx*nuX(OL8V6Nx;BR%$gu`tW|
zDcP=-4gucBhKw&#)tK~b%-w3Mqt4m~U|AElGPWp(MIMxP?j1Qlc4d#t%}QkB_~P~9
zSn_J;Ok7<4>f;sZ@N6VZS3hLp?<J4A^zOOnUxj6+4YpNxm^~*0KY#u#C_SnQOMLk7
zp`D$bwe{?7CMg0D;E{>zU)ny|;6HJh{v0bPz5SH=v4NSHqfm02p1}R1qocX5^rF(z
zov)ShoL9{z-p%zt+1$3bqa{KF_4x&@_2u1ERaH&oGZ9Mdyyv;Ye7yG5+1VL~3eR2{
ztDD<pjcCmtT#}I+UDv*P^{VS^$3=yU=(p)*jw3$C&f2|=e`^R0k%)Vfg%4h2zuKJZ
zPE1V9l=iA9Ep_<S98y(PMayscXLVIPSq(lr*%@(s`s7K5_hRAU;i3J=J4HoBcX#)^
zyu60B=5rS1Ki3P1&z$k!`)0N>TorNEb$PhT@xzfv%M;Q|XD9bL5gg)r4N>jq&gvNQ
zo<|U|YKk`J=d(AMni(4#>*#C@=$lbs)!5@S3W|!0jVmm_Bn#hvyi=KZ#jNr0&rl^U
z=J@#dqOf)S!Ajk)U%xms(wuxVqN1X@y1KHmvfxc=DPQH#Xm4-UfNiAGJ!NHOGc#sP
z?pWZR5)Z!@<YfdzmG#d&tJ@I>*6Bhe&y~@u5v?1{C+o~K5qV{0t8I}CI8?1M9}4+<
zYD!pGxYeRuja`^N62Flfo11&S$EV1posRb1XI1UQM$Rz%3W$hUiqQXE8Dn5zIQV%l
z+Hb2@St-Za$;oMTyy5ie(=#(O2RqC6E>TiZZT^nnmy}tYNi^FTQVc*V=@U4<^4=8s
zt<6LfAV?>MbeA;o^E>)cVx+61gT(kBPBDMjUo66p!OQ!sF}Pn#=Th_|cvx<3Zhn4#
z7!}9y(dp)vYKJjf0lIPTrIN2-Z|qxIS<TFROJqt_n(*CJFCeUuJ=;`r`gCFFH3VIy
zd8*Qf<Nb%V#u^1^jAd`OqJEhv6C>mFx+e~GDSFQB8nW>9>-|Chqrt$yK&x*FS7nS0
z3=EW%o=jZ~yZ$^a?N6;!X*2|}HNK2$_V4(~$sG)Jf3k4a)1&sA-5xaaKiVFQd;YwB
z;}93~{{4F%{ZhN(w_l7j!5;(?k~dZ|L%ZiT_tehz-S_zOvv+)aC4R1~q(sJT9;JIg
z1kXKNHh?5RAcA_25)Dov`R0~J1VX71N@Vg#Oo*w?6O@Z~ug0-hEg_=mRM|EKArWCg
zh_wMP34-Vx5e7%iD{=~v6Oylu<T9`!Mkt-jQ6fMD^!JEBAWoYtK#$fq=lGk#RPO3&
zvBGE?Eq5;>os-PS5gB{@$b}!ha)-ajANwdGI?B!j9Bi1OSO`C!q|FYpA_<x<>?1KR
z%pc1jMrr@oyC4*HG$=^#IvU{_kgttEOo|X;5C|vwAQS>2LF$KV!Xz1!BT7-YrVIEt
z4p|SVYY0;ZPX!nuv6E-jO3xswVRFWSU$zmGG(ji{qPQg(DdnG8zagb^qRxlZK{_Hp
zKx@u@8X<tc7gtD)Xu5_X{P&80Ep-i2mkSXPh$f0^);o)M2}9t=mWNfQJ%Kr41xio>
z;CR@&v97tgLVg`;MdYt_&r2&;NAD33QsrMDbV@!zOGCs7IY-MzsS2KKZO!i5`0m}i
z*RQ|YR+ZkVdYzm5$x>)}yuqkY&)VABVfd{oORVqTu}5dfFTEXEK1a*vd$`_yw9SWT
zYkhDB6NC!T9sNE+&%kiutRfiWXss(bljNtg!KLk|<jke7Uj2My-qM?+OiHZa?p~$E
zIojw~XTV!pSSUyzi8uLw%zke+^?p~{!ph3d6axXBlo}7wq>#8MHc!XU*f=dFM(g(N
zoxQotR5kWkmFvg{_V(%;8eN^8mvP`1<BfhW(S*drZ<ZB(eSNQAzy9;*&x;q-f!BJ5
zhwm5~a>d^`I&wg?5%r%XsOeBg*;Wm2ZMk7Xuc1*9t&-_cWZ071-z-!0xCa*8Ixg<d
zHu(Hqfi-MQtH!Fh&G%$gPdpxpb|kuMjNjSHQKBprwu&LUt@2iju&5~OE~Ap$v-Q_m
z%)630t;4RfKp6S`+w}3C)urgaT~ezeA|lkZw8EM<S7qf}2uD$$1%jwyyNI%k`M?iM
zDlAoXb>sB7FGREw2V;17d9Pei&(m3OlMK&>`3zS*?C<Yqpr@~>sGvTpc;`-vF<-R-
zFLAIuC-u(XzsgEVlCoEt$%6=$VhEigQ_*QMK09M|k03tW(Eh%^y+ndJL&m70u6~7|
z->lJhFN#U3!+NvA>KjBR{bB>>waJfHjNYl_^>wC-!`>-I&_HC5L_N>Ul(YIuE%)JK
zz<LW(2T}T~cazX0S&cnQYhJ=E#=3HdGn^7h)NwJVmy;$UIrVmtyNylg%56)#(HaU-
zEb^>cWDIJfIoy{BbL}&O2ev`?`Oy)<uP$<DHF^B5J3Uhkm<*!GMHmNP{((p{C*ndB
z+{K9Cz3DrWK>DNJ*?^d*Xd*fqa0Vv=aE>Q4BJn}3&k+HuXe7atkk%T48iaZdq6KgN
zeBc_MLEs}8a=3(OdT@NMIg&wK(%~9J6%_JtP$awx+zXBPZ+?Qt2LlBZ1hxVUgr9(Z
z6b}DgBo;pj-g06Aou8>FG#h-TMC3z7h~pNCBz%V4VJAY~LSh3bK91uMS!ZE9)}RIw
z0_=t8Y)-lQ^OdVa3FE|wfPkPe4#@8PJ<9+1q%1Z-y9I|u@LPD#drDv8Ieje>b=Pg4
zB!u?DvQIQm*I;$I31h%ZasT7PSFc_rB_#n~n4X?yRgQW#t^MI(Y!z=zWz-0Hq=00S
z7IM-((|1GFAOAW@b!^=0yU8CpjWK0h2!kzSQsX3AqX@jFWo)d5EFZG#?Cf0nQSz<3
z+kdgJz+vpYB69C&)nCqUf2+8-7_#iUDz8dGV*HaKH=7y6%JKX6o#WZ)RYnS6sTB>6
zdwY6NoBf%G(;Tg>tzKSUa(iDikLUc4Ii#fz2R|HdKf5Rlc4=rh)Riv975=)cOwN5#
zPghr0O|9cg97ltJ*!ctkx~hMYQ2<3Y=j-xv?Lxg_JF)i7kdP2SC0pxttBrM@>%UFv
zJZ|ah^BdQI<+Re8sjxklJ6h26s54=YTlcJo$!=`8lp7S^E-JZQM0+z7e}2q5oYaq2
z$FD%93=4CX<_A-pg00)#-CZ8378eyg+LSxlyr1d!&goZkc6N56srLdPrUH$0okG2l
zclJy3^Py2u8RCxPu*S^QDjIbnOjFHW?$ZHhWMpJ+<W=P6S~lZISZhx*WPI{9(%(By
zG=jI(Lkfh1TsdU7`r)L}n9uC3jkclTMa*?J%CTBk4sr28qmb(;!e>l7)`V-tSy}RY
zi9Q-1BWU@B+DS-A=p&!VmX?-YqN9Vc^BprJoU_ZyG`Zuw%lT9wHwBcpfJu{!(04)%
zf-xm$@88vlp`oIh+NNd$!&`5{fBfQxm94EUB;b+Lwd8oi#E(T6Wm=|RGysUqj&}MO
zatRa_69Yy1Qc_aPUegrs&bj#id_vOn5FdV&wDnwFH>bbE4e@;reffa8NeX|pcWlgF
zD7mk{AAj}koAUvW?t*9L<mFkxHn7BoE(bkB2BH4F*SdNHUj2Q2KlwhZfM@-C^~b<~
zRpk)7M%rf&d8M=R$Vt%-i%~k!Q^r4j{78U+OhNJSKOb1(ufjBxmD{%#@B?zbj7Bwm
z6R;(&DXy*_v=cj{UB|hO!g<t<EqjG$r_D~*jrYsNZ9xK4>O>?~RabMcu^~gS@6HLG
zT}f4nX1wb1tNC=;bscT(*yQ9dX%JdVUcaumQ&M!hgqw>?Fj=kc(dupP_~hi|R5APK
zDr~qIfR5=>kGfJsAA(st_NGDvetPiz{QkK>T}eqvh_^raTIXvDDa6FYxT(Xxe*IeO
zI(JFZE%a*H;1W5rtg*Isxp~Wz9OY>G^G_BRZL_p${0=<I4UBbl6(*K<*QdDSzslvE
zL8^gYi5I8I7fg;%g-3+%G_+p;i1U+=Hoy_^^TPH%Yzr(x(jiEzP>+U|7MArQK3-H@
z95UU$FVqVzE-nrZ4yLB2wzi94*9*%uRzijk9xOn}Cc&tytK%^rEZS^>=-NxHKgKEi
zM&9quJ)OcAa9mNT=<l{wTQpjPf!BCxmfR#~r8jqSbqX~K?sfHuZ+jmdA01@+AMZ6y
zxSeW}>oG&72}wvKrKfj#a4B`FGyktVXTGCI9d`Y8QT$c@Sd}DU>q<kGSiM`fAlv2X
z4E6P857=^OX8ft?VXP!L{gH6A>0;DT2rfn@Q|x6W3L8IQyS%XAwf6B0ob#(%5^Sxp
zsgY5g<(KDB0~G3U(?kF;0MH59?M7bTf*ZABq2BANhlBYA1>%6Tt*p4H!{5Gr+uRIa
z)Id@oiLhB(Xp{s#@zsQ7SVeycL2Z1ub%!Tlv4kV1FN%uGOZe>kfdhwt7oYuVdufmg
zOU5V>lag}B)D+U-29uOWQs*q7-OKFkr3U4{CqD)oy|atGk(Vm&nDE7NOBjY@<KQ@B
z;?EVZD&bDUg2ZgS8dxNuVqe?)C@$moGtx_)Jx+@gP_)LJy%>X{c2t$jKgm$$LkE--
z+N?x;_iS;v7~0#@tVql!E$VH+E}H3*qVuyFDDs=dq}6^(o;8~aE2%+<0GR*q{{Fri
zyKamakwu9%LeAOvIm1y1$^s5gjs0AoxAvOoEFqDU8XvAF=XOzC9QbW39pt9NPG_t+
zU1s%MKQXW5Dfv#@s-2x3Vn<XqIOIgqakGHzs<9t~JOdZe)kr0(Tq+KmR}_SA0!*K|
zeLnsxIAX&ZGMU$F17IN7`8UxOgKwlL!XBlwS(sN+ND@f91~@StB*Cdur-Fln<(Y8!
z?~>T(qW-{UL-1)}wvWN02;X!+hzp0R)P_CeF2$ea>`$5MIa@1K1~#Nk@%`)<k{rlC
zHak>9?R#db!ZzxV76)Ysd6N769pB-mG-=n`(>&$!=%s~)@{wgIX6<M#jRg#d(Ql@$
zKJ~lHV?UR?Yc#U=dqt0J>a!7n>Q*Cl<unuEio511s-kyVO5Vxtv%P+TO8RcQovRuL
zKI;klLP%Db$WMiXZy}&G_Ve=tj0;b$ha^vM_Lc(Di9S*Zjr!EuT5b}v4r?Id(<8;i
zJP=9A&1D-r8VM!~LZN%IY>|PgIla>}Gvy{{`2l4R5x`wN^KOzky>x$c7XT~-ybOGe
zAtHmly?}qUddSy9mPV;*i2^+6wP9CFYVzQ!KLwY3wM2<LdU=XEQ$!<{gFMf`0GwX0
z=(&yFDtMd?LpJu0j7R}c{KHcu2$PiWupfvS8b*a7WwU#2EbiT7WnuZr7y9V#Uy^{y
z**l_^cPq`-Vzn00Y(M=7(IPbt9;?W)r;~~_5i{crK6`t6cC?=!LhXQJNs3HkFKEAd
z+2V~Gb4Hn?!re2Ckbd60c>`JUU_w*{@Dw&umxcJ|-(P$CVt-T^sYU43Ei70vyYJVb
zO@q-yNJG{I+4E`F>$4W!rL7yJ1sEfh;!;z;!MaFbUB9ItF%xUBNUo@)B~nOsI$+xF
z3ecT@qD9Z80P8TG%sPnqXu%?663k!xxgbJ$kW8EF{59BpUYeVEI`7W?RtLmIM$&ZM
z?GL@Lx#D9}C28-or!F>ZQ;y`V2|;N^8;PN4*_B?MWig@nZbRB}vE2b1l+oOzpslB`
zuP-l8Fmiewe_uhQG{u7`QAO<Mr2A3=7vz<<T!myp%zei*G#LoZ(d0eQ5xHM(fGrM=
zfh7lsJ-?oNmCrz7^wz~M6NG&WP3vU-vVUbZaaRikseWfOp6V_~*szi^!c5uYAj-i^
ztzf3RXIM3_KhceMt~pf=(KjNzkI6NPuL;IT5{BDRn0FQQaN3BKT6Pwb<vK^cC}WFf
zyX()5t1)vDsn{IRG&lm9if`7H+dDh5YfY!%oDN{0oS4;E`sR(@?A91vMaU9^rXB6G
z?(<dmEVcALBt)Mx{NCTMfK*jcxm$-GZ_nZUO3ts~C?o%7OY9nFcDsMn>u4ujjvd~i
zzMnIxqx_gjPfrg4g@(@<@^F2(zkDc?D4^Fxs%9(X!ro`>i4<ToZ*NI_)p_`JxvOO>
zRM#>~E?F%f+AJ}Q|C}6Z(m0W9bwzkZru43#vz|t;jR*w=g`l7y%$Ngaj3SzUd$3u%
zT6gel>tct{7KgW$=%wg(4|!h}H?bFl0X^?tqPN#6#p_PeYDX*ZeXH@*?*ye_TrMs`
zaJCl!=%a0F#&p6nj00b1t#1AOo2r(twTuRogFy0W^dAa_wvj`iadUICv}A)*zCeTt
z;P9RibiJQ0U=?M#Vf*eI;mO?^c@ZMRdHbyQ|7^SfZ^K5?&LOmOT1qrYFrS+d(~_aY
z+t^juki~_CFJHcx*P&%a{@lG-H@31Pt*EWxx|Y78s{P$5`ZSVnwo9_Q9i^2<+}pE_
zeU`qSkdbkzZtRkG>bj(h8SDS|g8BRR?`c<E+Z?JBU%Yscn0T;cg4o3gSdp2~=0*=)
zIqx}nhacjfRfo^zAXW$=%*@P}E`9BM>R^kDjEp=Rl3h{Z0%hn^GA4_zrS1Ker{wy2
zdUikG{F?90Ar8)Z|NagqwZlZC2`|my_wQTV+kWe<w2;5XE39s+tCKchd9JNJS2Ja*
zo*a9X7Vms+T(Qn3!1Xn4-;~PVOZxRkCwy5R5|?bNByk)XJ)^jKokCtdJ`EKWP9C0v
z!_97WcB%%_d;f($_%LjuqT4&mBLIu*>y6pt;u8{X-@0|hw0;+#*fccWjVxP~*Hl&t
zvkh{c(TG(u?YxdA?jn+?UMe@A3txY!e>?T6D?1$H6><4j1GZ4ql3@M|lt?10?v&_p
z=dH5F-*A^?a(&Wxkrw}g<iGXnDf3rL7*blUkpeN%+?4!sQu4)%CkcJ!S^BplA|tKp
z(2X<fNJW;|PV1cLD>OIV+(cZ*ZL5UlE>n`Yw%Li@WTV7>o}8Qn|8Hq&G4q<aP#|Vy
z&A}ejnS@4OB~6n@5ev09oL>;`$UP8FG@`kX$4aKGQgT}}NdTj#fBRm||4+Cg68Gh;
z>s;4^{(PDBPgK5*uB)t2r-zKNYqbXo<Cw>NcHG~_5)0+qh9>k0=5XGCL^C&6X@bgh
zrNUL-?{0(^1at+t!tZ=|EQ6VD3OrR<SO|T^Z;AX9<@cTr*_pnxGqkYy9e#m_?2>ei
z)i;_#z4u<5voNH)hsVy=7FgaBR0RMa!%FMDzsrbc6jYCKsA~0>TY<HeQEM%vUp0+a
z5d_F9c~iZEgZIT!6@0j5?EeecxRp?h*olQ_6A==)w%Le;w_0@b2S<8gP!hMd)1nsE
zSaH|cE*QS&>u=Y-$}>fK{B=RqySuSVk92IDfUpNLNqd5hl7{X1J2#%XPPIh>{8zr@
zg<B5V9ety#Fi#-laA{H~b-IxYIjN~Zn(9#GZQWTNRrTIKjrZiQKj~N()2Hd?yVJFK
z)J6>NTSLOA-fCsAk}&>y=g@9>!Bv>0Fw`rwcJtxWDam%bIJG^B<PBExezqhroxzm6
z?r|2+cBd<OKZkqpz;k&yUDBN!4DSpPhKQN`%bc^eNc-z?yOC>46H#*#Rt&Xf-OR$Z
zC|B;F*rg;L;vZaAHX<o+-Uvi>oK{9*W7gArOP3Q`Zf)bJtR*i`&{>>^J73(pSvd9M
z$(CeZl7&1{yJ!HAOX<{!0%Z^?DB#|O9@mZ9AIqNwZZ(u&&ZH{PR~CNY<UBgu<D9PJ
z#z=|%ZY%nTMo}Jxed+p|a9n&Zjk1d;P@J({pQELtE}%(SnW-TW6TBcXefM;ESy{J@
zNPcea8xxe=f4<Szf1z#S^}>~oqQ4n_W94bc=E>h#Q!%Az7j7~r_VRQdARSd#iR6(4
z?S+B8RU^@3(+p$@86+Mp?u>mB1E#}6LtoMt(fFr1Gd*2+H^PrFUr6qm{OLS@M}8XX
zQ#fR|0=p*bCkea847)~CJtc6e^6Y##AIGqY!YN((tsYbQ=NGP5-C=@)E;fux<m5D_
z;ed$d&Z%zf-7%W;mq{;YjNDYH2>RLE8=IEKxFMw>@o#VSN<kVj;fWTxzzdNrPY3?X
z7?GC{ABzSSV<y4|0dfYaJLp@J;O`hEyF4JyM79`kMyP^7RG#T6eI(rJY8j?Y9EAEw
zy}?r{Ar^P%eW}6w(wDY$gwpybraJPL-TKMJ>voQgnm2B^jGBd>gFb9NYMx^2*#q{f
z#XCu3=~$tS+Al2u^zB~(5wYk{5A^naEL_iqF76vHB5$JA2nY57p6CZBG&nkWDhugo
z{=Czzoc${+4iT+F&cCk%4sb+b?;0YvkWoZRJviy^v8N*K+WAyeY=Jc4_V)H+VPV*;
z7%+5(Ak^X0sR8t}m%j+xR}>^Eq`bFUB84soez(1$t!HF3^7cXh&nv_{DBL8+&-c-R
z6e7k=Y%G{huA+k1hzD&%=!*tYQs_Acbp5fYpiJB$qBqu6Dv0=23(8~SK`0x7cu+)K
zoP&cy`TF(U<qM|(P#&^Pp9zf$UqaHizs8Vk6I@T5`5rz0Zs0|mn(CIOKGbOTj*gi!
zKJQjdSz<8AkD4_C*WBJdDWZp6M7_mCQ;wZd-~IK;A?Ku@epB7dY_s=W3MH10d)RN-
zV|a9w@zSNPLM9Hzb<XgOmT&k@-_2rz^G_G9UB<@(!7RF1J<gb~>t(@49Y1+~uT2E&
z!)4X{Vhq{B{L^QQs-nHx8n(}>xg)3*2flxYuC0q}?s<7Y)yQ_aB{fc=-!%0Ryt#s+
za^7V;auF$qx%c=eC-g4MXsWu!$I(~5;!H=mC=5tFF^1zUD=PB&Q{Mi`V*S-OdP=A%
zwg`TsCL8BJY)38U8JE)Um(I?)Q>ZEiCGoaDW9(LL`%bYyqg`!Z;Luwu(JTQi>;lb9
z4K+1hZf<&`s|pBPs0+T9H@uJ^RFQZd>OE7geL3?XS>(Iup5aF$OY%!udO7<j<q?m4
z=xGk}{+XYDGqN0YUlP1cQZnI+QQJqat@A{fU8456E}w{p12GgEVe>mD2<46oXj3NK
zi~)iBBI}m7&!41+F{~u5UVCw3#c99XHlP7R6VbZ<Op6nuHG9FkU+y7jqE**JswZ6~
z>zj-uS&5;SerGC?Tbs`uk%@~9MBGwkXHu5XcuLj^d=@tJUU&8gJ*Ec#r6rjINnvI_
z?)z4U&1U6B87P706f9Y>p$@te&UE*i8s!I{Z8=2ePf0M5FMOV6(Q%pv!}EJZv9Ix&
zBYVnU8zXT2^Ps4Tqx&@%#vqh0p&zc1=5^TT^pk8~li>5qMRO)l?M%{mhkc$o$!6?#
zPMdNY-ML|0@7W6oA_Hpjix)4(v8&TN_6A=}03OGoV@0ExMEL2=>-*1s{V0I&9+(!Y
zM&$C&Y^Y@?tz+)y+;2Yy{jt({24-eC5s_(6$TE;6tnc5arKVo<tY4>=^~_R2qHL9J
zDYFp>6NX4dW{>~&@*0RWYg$=Z0S3a-+M0%%dbgrJ@Ep`36-rg~7neE<=<GVOp}+yg
z5}spu|9+(j4GlE7(3X+81229J``$P-GW?`u!h7S!4Q^iEdY73Sz{eUJGmf;bivuK;
zu(ad3U1#!On3mwnjJZ(YWSRfbLru-@7IHaW6!Irugc($qHJ{xv<$}DIX217_UbOqz
zWnGC+F@l25KZ*_Q5?jmO0I!AmJ+K^Uto%EMqSz~vh?EFAiok9pi#uK_5L-};L?Mm?
z^|>SN1%J#Ad<l&xU|WlepGlGC((#^}3ergLnUaX_d{7*z>({kJ@L;95g`aXMUp@6l
zZ?E(A;;ofGTA^rM`91c>y}?Io9K3q9T^k<fRR)<N+8AT#c<GVN&CTHv5#1RwJc-|?
zrlyAYqU6v>^FJNw?osVXY^igJR9_k)r5{e7gNsX*FVP>Eotue#Gn-I1w$Gt(0v<`b
zryXiZRjS>;{&FB(vhGN724gj<c2LidPF}9q1ruqDI-UwSnIXVNYjLXGyg35>N~piv
zbh(VH9ZV*>dz4YlHJ%2nbcmpoF^9x&Gk|F_ggHKq_+US*(;^UUFQKhC+mQ@yIujEU
z*tKdXDiD)O(3XV2C?qUgW?XAgJpwZ)haE>WT~ySTOxIwKQ_qwgvk@78?;f#Cxu<oF
z2vdn*X#XYI<HTfBLndN;rrD;<PY8ja%*Sg1+7#y(7jLMkvEh&*&49#2#l%w7*yR#G
zIuf!V+pW)kxOnftYGW?va1;C3NBQ`0=eOjuy%55^zDUy2mR++~wY7$PiT&+ELqoB#
zvHGRP3#+S--lsl{EA&rT-r{>ke;R?f&mGUr&mS$D&$$Q)6Yjy_K3i7MntEcy#jC5U
zA5Ap+L5sTc%a@@y<_gd>!C2bZ*Z`|vY2A6}y&G3*9&;YLl!6cu5H0Zo3GDI6&!06e
zGhc5N-Im$vQDFAlqQFdl3ZsI`<zz4OL=}0}|5)0ud#XLUNRK-qT-u{?%#Seg0F)+H
zHIV_(16k-V7%Vnqr9Qjtaqtev9QzTa6O}@}<CRAre0GNJua4FVL+>A`Ug-UMcz7r&
zD{p$%pX`^NfH&~+@I17&9sc0|!I-bRtBb6ZKFcvxDVZnAJ_+P3Kj4HH7Z>rw81ze9
zBWNLOLqkkJE?wGd<7+&R+`%8=NTtoOM-wtfTm85gsCfXx9xdvBpr@nr1omO;f3_Qe
zl-n6^rwchc_;6CkY&yHyEeGsWEi;~|Rl3PbBL|hSwzf9#{08-&>(IUn!D1@E+87xb
zVX@5{GvDSqQwwwo8+U(4JbzA^r3D;RBCjC}^;yj{iQb{1!oej)7H!}lfFQYXBV3LB
z-e2`d#(g}?gTjJa?D;<S^J}<w27{SCfENB_F!}z$!95EL8eW5I$le9F4||=Cz-A~T
zvpBhhgeu;=aRSyHrUT^)CpGb4ej}YIu**19^W5gQuU|DXWz~^f{QUR3x-;cIG&CG_
zicjR$kw=7w1AT`_=Zq3gi{H7D)pl~2k2qyy(i>fG-n<D--5WQ~O0Al!`AQi)`So4d
zrs|H&;fHIqVeM0US$BCWMwT@mzL!e>^~arVnF-tCC+Fv2`c!ZfBceq;v)BK(*Zs|q
zo!rS@cT02gxYrz00rSxEPGBHGvf7V{3IF}A1t<mba&ym<ktr!Dc{k8KZo@`umD~mf
z;|LB2xW=)uF{wu@x%en44aWuX=hm%Tz~c?PzIFNX<zxN~=JTYae!IV(o(*9U6Z6>H
zm;t`#%9Sf8aAZZjHsHCNTm71#jo>qW3h_8v?syl<74VdYKZ=tjoGnaD#>(%t&u5mJ
zHh6cXT~&@^tabVobe*N})vM1P9hTKivcDynzb*8Gy5xUr%-hipag>^UcnpG=#>PhG
z!^t!7$X}a#ASZdJQNW4=wz9;i`u$_|pL`W%5}j?X`!u^-lDMZ&`={hg{6EcYE;v9d
zBOyKA#LP_2ycvg5k^g-n+q^VbwhGD=!`B6Qd6&7k7ODnKeU_^RAMds>Fa96J^~dhk
z&1mSLfV9Ny@HZ{gUCPmy@;DcvPYjL=vWsem@%o{kKk2jv<;$dhKrIJ-hr!G}pfc9i
z*MSx*133q<H;PCg4Z1+VvM})!^eZC&ol5w;bQ+1$*eo}eJNoYgLW_r&AM{L_uewZ^
zw_iGF<$t^mLW?53*Koq%Vv9v(jXT2+`5SiuFD^W6_K5ZS>@1eCRNXW<XnuUS7qy)2
zpq?%{U{UUSa`e~K-~INk6w-0DX1znWTj17lLPEm){5*rW16`yN*vs&6N?KZ4YHBLT
ze^OGs4|eS3XuIWr!v0Ze!f@e2d`imj$jCzhIxy$wmv26Q{@l7V#eH+Ov#FL0x-rXp
z;^(Vn2QvIymJD~nm1K8*-h)OF7Z(>36B8~5QhI1;Xj@y`+L{xvcY53r5fN0Bl)$E>
zq^2sk7q;ZxOe{67?X#^)>9htp%KidR{8w=5WVPFO?s#v`s=xcT!~+Cos_4Unk9X<l
z>9fle?CkykZv(9%&;@i_yY8pFF)=lJU~9WSo9Y-I9zLI{F+td1y1KN4g6hO=*Q<uS
z0a4g%v*k^2*gYY?I~}J9xIsX?uCDG3F)`5Lz=1?F%asn;=IL-9u@>sxs1C<vbo}#z
zei%eO*f8h=W@*t;P{<>JBmiAjpeqw3Q-|n=?3XXme0=y)-T!zqGx3U%5)vc~KWwYK
z8y*8oDDE)YV_VhR+lxa5UPIGFC~W`5T)y0DTXnpV_yK@yrjS+mQbBhb$uIuXncdxA
zzuMZ^{H%JY53(p<-+HB-i}dt;OWTk-{Z<=5Z&Ww8C2C&xS@vT`TaG?2D^9}i-0<))
z;j|=>B&uxBi}cGXZUN2g^?m*cDZ_m5vuDr9Wp^hF3o?KR+qxLhO8MFkgNp%<;N*A}
z&uZ>WMaz{AE+s#*7fa2_$$_vLV0^~>D<gEzlJAwtoq+J+V7;9gLVM-b2jx1CWsApd
zpbdNViZiuSY2vK`?^b4T3^j<LK<D7QH<Jir15eOGLG3vE_oJQI)3wAPl#YRc#J#p>
zFc@@f%b**v{<{?y1Nq~_##bK6^e!-9TUEcj*ROA|QF6t9O-P_Axh>_jVHvA3y?Z4z
zI+{FYscCBc?74F%t0%|&JUl!YOkjzH=jm?^oga>t9RcLr{6`J~QT66c-9kOd^wJL>
z%<^>9Q$)hXe($L~e7NKToA-%Iv)H)ydHa;2vhvNmJ_rX!B|qSAL4H1QmwU|rvr!hW
zX1YAa@c~%l%;T*BeKWs!4f)EU!!`!Tx7F1n%R3;HdHYtR*7))AuxQbMH~jsF#A+}K
zK>QM6{<ht(sj2B`V}r(V;(03(Fkvd|O0RDTSHLBtFGV+!iHeFc`>qjSaw{u!(Wu;l
z0x3UyG}El<!bdYUc6OMNii%3iw;2EwByCW1l?(e>^yjO?Ix-A+8zH7BGy8!A4U&8W
ze`8W?>^dmu{NMnrEBByd#>d06sW5c7TK(au1e<l2J*NI>XT-K@KTcB?AWU~>XUVHq
zlbd@Of2Kbk2b%u-x|Ks}W=}tT`cw^)vgVL;0|Nsz5tjkb!jLSnAb?RAEH%mDv_0D2
z?zppyQOeU{l5lFW6cXGlPm?{$$jAsjLoOyR4%-T(<eA<erW_YI<TwsZ9qRaujN?C*
z-NVZ}U;tY?J7nk27lRFq*L#6$IN^QQl3CJe@|ugw25|FWhW*v(m!-j9EG5AN9zTBU
z;UN~$O2^?5)Dvb}_Q-AxBn{Mxrw5yfOwC2;nRsMI>&bv3wh<9xV#A^0zOYfBRd_6$
z*YC?as5!AP$jUaf>=Dt*LK&7M3>+3V3$LoX+7hxf`E}a}B{3*ps0Z|}?EZWXzG$y_
z7JCvDBiqzBf<R<_a;Wat&9d%F`{H5P_Srw!3Ka-fpLWmDUbv7B)f(soWo0v#e?L>?
z6t6gi2w;X|`#Q6++IZ0AP+e(~P!5C<qRDe+ZjPLcjCkRWFkV_h2khyK%uIjS$h*e$
zRCvjjX-snRMFs|+y$vg%fo<`3tr1>|76-W|s2Z(X*Y1MQ3xQb0OBE#DZGp>jy3!Vj
zzf_hC!9$Px2*O^F&6p@&hvrEd-R?7=_0-$PXKZDKA?Y7Xtxg%1TT`<OQX)Xwpk{FG
zmic>puo^vgA=7I%8ICS$?-#FQ3p_E4Lq^7=XaG;vCnStND&q{#ZX1f)2j>>3^Nb>Z
zDj6~9Cv4pTwuvWLKR=4&<KsIn@ZT?hNCQ%XGN=%sPJlP;xbHuH$O3}ZEzpSnHiOrN
zA~7dBjwcCmag`RW;d`5NW)0r%U{(;@j&`S_0qOPvLI?Fi@2!rBljFbr1)2~JQ?9yN
zL$3sQZ)WfLEY&!6nZ4<_Er&#0%v^>KNCXjx@%E{8KqFMNw0}Wl$sG@kREaHdvD8jz
zNB<y%3LW6ED@0;^MMy&<2CgS63Vbps72%;~5YlSrGDfN$C(IxsYs&6j&(b=a75`9J
zR8(oe3-VDXC#|wUaWOGGZCu$cJ5qk{jH34T_BN<UK!On-7IxKZBNsX=Ha5HaOJ#po
zCnoy(Hb59tRasg2{{65&aG}K12Hp&a09Gi<9<K#6kG^+b0*ZKRwl4~TnyZUTnnqW$
zFbBZz%a^UdZKN;p3kpKtj~@yMU;rR&z!eUTg7R`_z}`@ZK&7plujcH#3+b4Jg+)k6
zNR6E;x*f16R3fwykX(jst0=M4E>{~;*C9OAJX$raH9m&q5A-2e*M&>biIDE&;)DeR
zuB}$6BL7V?kg`kv-rt#Y8+F>vOEevZf{is=8nj{w0MKL)*IEE8A2&5!)7MYz|M@*M
z6gg{<rvnv6Nlp%{q@*`^w1R>HE@o}*L~c97XQdWS6GCmKgfn5V6-cY9J*6}H?<N4j
z+Me0xLnbUmF2!`X+b(y!py^M~%*-G61ymOs8yluxGw}dkdn4WpGEhr77<WvqPrK}8
zD@FijKw=;o0W^>L3tX7Nd$+<nB_IJL4P{y+Kp>>)K-Idr2Rap$3#3XsBAt^vsl8p)
z+10f&KYzEP=a!jSrXII@v6;~Ak~`b5AH}8(^rGN!NH^Hl4rhSM09&E_gi3|MvHln4
zGzkV6uTl=K@DzZwpf`kcsUZ*zQqQ1s(e02FyU!B`tFXZ_GK>h1)_du)$MuR+fR~_r
zL2uNy>BN4Tg#G&|1fm^Z!~P>ny<R45y;4k--+`w{JPZ+tLsI$A?*9TQB<6`xCM7l|
z1kogFLq8)4OxMUg1S0Ah$^}n({rkS3bFkMwYaYa`T^kdW54Q-Q>-v8v&hX*k|5e?F
z4;23qtlIxXLodvsTbFv~EnQ^43|Bb)N;&A*1KW<i3jObxy=(Bt58!+ZOMXCg8vo)&
zl3G4U4FRtKR8mhB1N@Pak|KP+>*w+gphS>s`8S+HAOZwkbXlRtqQ^-cA0H2y3$Ofj
zH7y%tmi4X4&b9!dDqw3-y7Q29uvt#vso=OEbp~BF*zV7IuT5yMfvb6Ydmrv9!Q9%K
z)ls0W0f36b;XtM{J8K>H<$9*$e<?yczkLJ#tHJN!9WYv4T(Ms)A*cW?1`F+$JMo3e
z3y_ro@5-M)TdO``H*{4_=^Ek!0!^b)k&y$oRSOFX{{d_6lIbdJEI26502EHBbH^`&
zfabiPFa$k5J_j3{dFTqg_+kmFIJ<gQSgAG=uaf6CdH-qjG00>8<)j?%@B-Yn**9RL
zH2iNmQ7rNzBjad;&m&LIU7oUf%1g)OOfelAYD7{XE56o*<cDhO$`yC%y#58-hYz8^
z?fd?nE&c|G(?8xto;&wnU?(b@GyX=E$1*5dx1KzCQe4a%f{jf`uog=80G+%2@LP@y
z&!Fx{4sMFO1c+-0mrB91PHQPpwSvHg6VERBnVOE{e>nhbCAeQ%<No3|{tqIlo#b+d
zPKJht(ER!sd<NnLh*D=eQ$b6<bgw;%gotq83qY^<!yml+p1|<n^A_@2%Ze8Kb^(XQ
zM7O(2I^t!b7JX4D3lVyl^;{w}dlA>}(tAAh_6~TKdIl#Yhi8DmTi(3+ME^f+@;^f6
z|GNpNoCG<+$WaVhU=>6`=7|QIlEwJaoB;W+5EMVB|E|yeS0nv@fAoLk+;y7p<N|Yi
z)SSd~9J`sOULB)`9BRp|$@MAA6)-F(k@@F7APl-c$Rh<u_g|obc!>~B=Yp-U3AL47
z%YvZH#-g6^0;b0Q{9rOvS(|#q3SlPCj6pQ{9r@>326?eH_iw{E2vtRm>!sMcLH`34
C$0%X|

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_++--.png b/plots/2jets/kt3_100/ggHgg_++--.png
new file mode 100644
index 0000000000000000000000000000000000000000..ad62062d7e5d2edd98c6429d8e823f883e582a9c
GIT binary patch
literal 12305
zcma)i1z1(xw)RE=HzKkH6hvZ!N()Fg(jn3%64D{vB`9n}x<o`uKtM!5M7ji|OG-pi
zy1Vlqc+P#E^W1yxx&MB?4`Hu0=bCe_5%2qs5u~grLvWG&A_9RRkdu{EMIg>;BM?{u
z$aC<G)Q<`o_$S*_UE5jJ&<$<xXlG_=ZHjjGus21Ux?7qd5bnP<6l)32-Mw_^c2Qck
z_q%NqKc#RG0U7lL6p_!ZJkutd!~N3VxjzoAqY|~B;T0I|({L>N+wzoWCYbtU)SsaI
z!zJx5<=WpY_@4EKuIEk=K0VsFY2=RLGJ)#d&lCvO@<jjcTLal0<MvKCJ(13rlLmtm
zRaMz=(qF~2*-&Wct#!B=9&+2NZ|RTOuvLBFeKd1!&JGrhXD|EE34y>TKKmaF@ivhR
zzSMJ;(sov}Gjnz`bTmasIGP$do0_2AES)XT&K9O<Ejw#7M?)L5f}yRsi=nwG+RV-o
zt>)}vVruK`gua7THg$Bevo*9vYdD#rm29m&&;n>TH#b(de~e=_wzH8P^NfK9(VRW#
z@BEf_wrF)r8&d=a`(1v4yX*pY@1pN=3f$!q;N<8Tt<*&z&<Ht6F?ILE<q<D+67yu<
zwXEmWV!Z^8c(*#Z-x;A|laXRl=gGN4$s<;CIBi`AmaYV?nlz1kH;Ea1>CkB%D#-5@
zog{p>rLmi{%-ujJUboLA(LI16DuMPL@@3iwt{&H3t@2S(D>cR(Hm(P5T5bcon_4a^
z{X!%6d_9sqlMR9xf@xvR;#avBuDDhR)6&+3WZ7C;7U<;0&?|+9hwn@{hYPx`Z0+nc
zHZ_@>nueVY!tEC6w-WX9Py6$IitNTj*pd&Fd=J!&jni99Ha;5aN=Qi1D<<-J?|oKE
zCO{yb@yMf+`JL$a`S;u7In4?OL(EV2yL?3q>#)U<QY!xb{!45RS*}&-ukNc&Pfd}K
zl6rOH!b5n63BpuKTsEd!f`fzeYfj4Z@@!Xz%ZiGMvXoM&$jLe46$;I}^78YkuV3G9
zVDnK?R{m_-_WI46H$x?MSs59*dKH?iafK;X?(TbIC(C1_K8H4DT><!{3yX^bxsPV^
zwcsh^SZ-p!Mo04o7P-m8Y9I5tF8vxVb9z7*qnMSGmv_=;aN;=C9K}24U06`CzPCP!
zgM$OxyM6oi^z<~f_gbx%!P6q6hKn;E2L}f)0t02FrQw&fv@~_5{%_x&Y39JJPoF;R
z?(TMQaNxBaejFYV8X6iBa)XTQ@s6a7OjA?S;pFyt#ItW@_;tkeirOr%$4+)iu7ymG
zR(Zv->d|6MOiW%jOkgmWPoG%Ibn{fRL#1!hVA4ML`T4zk`LZR3-k{Pw%7ZAOqu979
zJSyr+diP$p40S_Olj!kQZ;H=BcDDru71haHdPJsDioS|Ufzzzw%&XGU(uNSy)zPYi
zK~9_BUvJ-ky?4?N%NQ@aB%Y)=@atEpWp8F*pSpN+6Sc4R(yszWwM<EA>7EPrnbE<L
zX`P*&Q&UqrJ3E2YK6_bqsH;Vmy>$MypFK8b78a~L&0So!_cvz;CDP%w31ne~d%^4U
z?wmG>U#&S6xp~uHQB1tK(qmIcM+eSKiuMYP<Silx9wZGnH}~lV+o|K}$+1+(HHYLo
z92^{+oH120smkx)zu#L4fO*^{rgCt$*{b&@?0hzFl<86t6HBam>`%uT`0RuEn4}1a
z(!9^h%S%l)JU-a2_7sOPcABk%zG-k?FOhUO^TI>LHpX3k*CT%a{w?ga!(OEXx1_8+
zj6i`ylI(wyK_U>SU=#-avOvOc6c;uP0)Zs=gX`D?VsO>(1sWTH5W`nSX=-TT%-q02
zAVTpx|NDTqZRoE<%Zj^dBn^y8RwYAV9K#gwDAd=)u{UmG)lah&lT;Z<Vq;?;K781I
z0;_rZmOQ7w+<Skcr$^Ou);#4YU6ib5p6>htjC%HN`n}9AxM_G;S5Hq*RrQN`7nNC!
ze*Rd6o1LlYbh*po&gz&QJDCDqZ#bo(VzSWu!ZSn_tQKL%k5?BSemP7!=FOW@`#*Kb
z$y6~dlB=uB%Maw_S~@y9+S=4|`je89j*pKW%PK1?hx@Tci{!=}?8o=o4#NFMlP-g&
z@Y74A>*VqX3n!sy!9X3$6tiMlOtyS7ROP7C)tOub^u)x(q@^3-Maa3GP!O)AiNV<4
zG5JK|m$WWl5ho$ma^L&{%MqHqg*4@e?=VX*xpVElwKYrOm{k$S;nj-)lR>tZALnPE
zj{6hpayNSyhF6819dwN&5$5{!>)`p|b<4}k@)@eEaW^i#Xl`!)`t|F|ifxjjjEcIO
z+wMYt4nKXl=(h)Z1#)U3^VR68<^B-JW^1ov&@4<$3kwUszgiMYsXY1li3a1n(L!%k
zRGyY*)DnFgOoB6^Bjnm0d3pJ?2+|<QEon!`FTLj*F)QcZ+Wmytx+!5LzQkoZo8}zx
z?^PLz9WNzxNUOZkW^vsPRV4iI@#Dtlzm_B0IdFwYd=8I8QSqgtM{wW;*fKWZEA8`O
zF%qbA@FHoDScrQ+{)d6-jQf55_%T?|6oMw24BNJY`dZ(4#648q4~Bnhe*Zd|-|=fX
zIPFq7HUwf%N%=x*_2j#qsT>TdK2~C?DPaH}zNf5A7zTUcAAz{H7W?k9xTRG=uMMou
z0B`sQgPw)6Lcq_t0%hHsu+dYz9i8;xAZFBac=MuS!d!q7#_j&IH!Ki6q4*#OH;RyQ
zh`lUNhY^G{oLs^G{EZm%_u>hvuSj}O*^LB&IHLLWB<xG-3T$srxA{^Sys5qOf4%IE
z$!jJ1#}B~m_9SI-X?~KxvE^f?elYy=Hxrc6-;46Hm&5++H(Z+9x8SX7QOX43mlbGn
z5QtTb1j>kr5n{$2`xw)YA3x4Hri%p1y@!PrDSzZ%2<9q!vw}}_cJH&h7XwpO{*KBI
zkU&LWppP<|xCA3v75pNf2XP`0>~u5_A2t#wBx1qMcqM4bZEggDEXMu@`Lse}?KV8w
zzRMK#dwJ(2lKxmKI1Ncd8)eaVbHDDNSIJ^G(ZeNnW7%q1Bp0PjO-(g5uNBr57Z+z{
zHd+<28dO(){n}^3QFVH9NJ&Wv5n*v4UyFeRLb#=|@y(}e%=wkkuU?V7B>i)4)|2M!
zlqmS;TZ)Q{d3brXw6x-0y;>S93>?fKSlnG1dGzpMne9mV@!>AGNqr#U{fwU6M<uP(
z8#iUbQQ~J0v+DmCr|&tR5vTu_-B5g7KajIjA7VwiW6#Z{xw#(}TtPuW_@t~y6CrF0
zbTJBaH!*+#GT*<SnwcRI@3V3-H#e7&k&%)Lkk4RZX3ojZF3@J-wHt+ir<JG6$if0?
z?$TC{N93fqmo5hw)Ma|H5B*lXy}fueMg`ieaf{9Z0>~nrT-EIN5h_fv0!iV65~541
zt8pzRCAK3yi`y42Q@C$-@TRAy$7h+6l5ZQ7abNBfKYUkZ@)CoK7!Qd-ziKhzNeCM)
z)@CUvC}{V|>2F<v18b)$9Q>rr(9_d1`gB+C;Momc+rEK;xYw^alx}=pb82u1GK@4)
zVyEXq-23I^7{-3{=44#}zGlug{QPHN!HsEo_4@VCk&)cq`4=x<lvh+xdrU=bZEa;{
z(uvDDIXOY%GB=;ie30--GpEI*{OO@9eDlp9T#!(gF7#zjvUk7zbR@VRc;pdxFp327
z!+2~Am7$7?ik8*@jAIDaDKsOXnTk;oQOW7QdiCo4*DQm@HVK2)`d=+nR8@O=GVZ%U
zdUlwU&QL8gtjCR&kBy5f@z^v=@BYwj@vHZNKh|Niq4EQUh7qt$_giTLI068ORI^`I
z=|=*_VhAP*X=tZP?`DW=ix0dO5|GA_t==k<1My`yRfWflD;mXN*!c*vYN&eV@8cnD
zINMv;*Xijc9h3~S&@_^?QK2;tPa0P!iNxJ&Bm*nV!Lx1;%YX6+Z%KYW$;K(@ks|4T
z<`-DkBs04Ah}2^&*d1^Y=x>;zn<k|xlEmZB<<EQt$&O7!L#Ur-Jc}}a7rp1(*H=Ie
z*<|mk-x^jTg^__sU&(6Guq|5Tq7*OXgTEtgVbhQb2L3u9i#hrl{k=ljL^aHvN9iiD
zIpQ8N*=wb2zBkM6*XP<rbN8J=b7m$cpZzuiPdCqTzsNjpa`hZMnFc*mhr^=?1BdIu
ziEY7(^-9sY&50{!{JzS$2Nw`)#KCF0xfZ)W66~s5Ue)c0kNdHIrH!mzK}UCsM}@P}
zt+gL-zX(77o#qI+KQFUlCVh#n6QZ^S*W0C~C8ya=OD^&Nag|4p1YH*T{4Wsx{Q1)s
zmh+f>Zu@{z(6v29^t5O|f2hXy^cADpSDodZ<)PEVn$rqMtB={ekJg*2s;U4(f?W=O
zHmrxMV_vJm{<Z9ebr^}j%kdpE1}7VFaM67th#nUg_vB!phDaRt&3`E@y!J!t9Q*2)
z*Uv%GfE1%1CJxK~59!&ZVI&Al7=XV6*UOqY8n=j~{(c-*e!6YWbO1zk=}H#P&d#pc
z@33=S{>=^Ro|%~`FE59f@H#fuX7G#YY-bWC^8AI%T)eyhOa$ran~Vx9ihlq3V_2m>
z_WQTz{>C)yGYg{8K+TDZvGHVgx(qQfF)5q=(e{8rS3GAH%wJf@DI!w+?%g;<B1=ol
zKtgJ1lxK@2LywpCNGa{m@#v}WD9w=&UZHXstoRu-Sh$U)WtrD5tNCf@bxub|M?S%j
zkdT`<Z>p)OrFd`1MajN;^~xFiV0d^Kl6Tk*UI3qoiHWe3=;-LVxw-cCcDWe30wp#!
zwm8{a@$vC=F><$vOwG-;)YY4(Hy)MPcJIo!Ha9Eh^kX7tQ+!X-BShfOGsC%p5&0I*
ztjMc)@T04d+$V25ng)SM%+bnE7WEYo78Vv2HK2`pDM_2&O?Le{W0Y*-wGESt4`n2e
z)K{kiNcH#D>IqXk7qVeZt}ZTjv_FrJxQ$i$o}MfZl?)9H4Q3TS@pg4{vm5-9k)O}T
z!{hq%(?i%8M&tHY*=%xKS64(>*zrP6J_=La)FNeY`x@)@bN4LD;Pn7<=I6cXnAlHC
z6f}23h`q#P-1?|q6#hHz6}^4y)(7>E)z#I2(tJ;5eUrJLXu`+aTS#s7?bA3UoLE%U
zUAxgr;5kI%CLDwPIa-5Fx9I3P!7P8~J}N6KV_g;b^QhK!HwZQDEW%X&0)fKdUbqlJ
zDaZqM5kyQMemV%K{3b2!oT3RtD?p(;`KJf@I=MSQES47+Cx;K8F9SW1&xjtWF<~*N
zJ{mMn(JL^*@x-KJ<_#u1X%N_er8Kp)vNUs^M*CqR=jJTT1UWei^YU2XRPzUF4i<83
zRU=VEq@=T@F=-!wMexznn}Zo*<1a{%<dL4c$Nt3Dws>ecARr)}TELYyYOc%oq_FmJ
zWQ$3nM^>_^#G^+E@)>E=6D!0tK~KXX^MVBIk4*J#<FF9l9Ke==pa5}6e2VXu5)u@&
z&WdBHaFJ*WDWU#(M4Jrp%&cU{ckfT&r%#`NFjNmsFv6u+qlsWlS&f#0?(;`v=kBe6
zb+IRO0N?ZGHMw+-6r-V`;asM&cIQ&exqFf9<YB<h-U_%dc?lb=N#u4%1{$g&kVJRx
z+<{!Qq~TA4C6WFIQU4zCO)yt;sJEB%>4Ec3-A?2)^d;s*LsfC4v^*A?{q5VgkV=h=
zXvYYybGDNcFel1qX}b|3o;yr7669*$AK=92N7mWb=h+6k>>^MI*NUo)jA?ic8Vn@f
zB@H*o$O+8fC|^Wi{pjxpM7^=Gv1j`-?#Inbf4@C}JfQRF5xr6}ORW69ZAcsnV;Fv&
zk&^F(qcDbwqoIQt@%Tsp(l8BJg*WeaFQj<t<FU?2Ny$_<Bx2H>CjksO>p=of@|ToK
z3DiX#uQz=TWi+0Fi17e`9q|gU<KtW0BpPwV7|=_28FQ59zVQ(d5*m~_n$EPxE82P8
z5QlSfPE{e%!N;}r4BT3fa7JN0R?p4Ng+!aHxj7QKE}pCM-0`>I`#9}){zyc6x$mhD
z;CP515_#|5-n<lckur;nfG+ObGkRA2N}%>{qND5FB)kz~NW!hlcgsi+(k>7lMn^~K
zQ@o>BU+m%fp{Sm<WFXi-zJC3>udh$}Q~olEAF33j5qVTFLfqvH9F^FDzdnPzFZrQ#
z9s33UnS#hTa8U07^SsZ<XlQ6yA3>$yEjLh)+qK{E9o(+K+qaA+ql{#jB|xJ9p_F^=
zt{6uMH^O4@gvHm8B|f{$n_E6jS4pwcGZB9l0Zl+S0%L%Kg@Yew+$oZnFlxXt?|X$N
z!K!P9xB<`t*ap0@2pVMV4OT7P&(aSl*>0zq5!{<gV_1M01_uX0I)FFbgu<}v=l#8G
zgnbq5tXJXM@t7U6GU7IJFIQy^D=R&7s`h@6?MxC8hW4I);m|Tf=Jt+`*cKBQy{r6$
z#JjyeL$XdkcFq$!78c;w1%cttwYK+iF|YuG#}*_<FDZkQL*Gq&p}mLtGH88f-a;N<
zBx(Ot-0^vi#(cZ(f_*jaDwbcMX3j|UQ!i)dt+l_O>9)9<lY=LncYRNHeMLdk(SJKD
zffOGPBxGYw8$gZ|j*N`#@9&3@vYkM<+t}Q6a&+9YjjBN-pZiXheX>}|=XIt)lRdy$
zD@smI2AAB~aSf7;PD<)<b2>tbA!|)P#a->-tueQ$xbZ;h-nmdYB_$<LQ*3N<rPG66
zB4<4lk>W@zs?c}W23K}ZN|znEVtXBK5$*^^MIpi=vK<~A0O0oY6d1EvXQRP2)X=#4
z(=qgdf!({DE9&zSqBmT)Vn-aDD~HL(8Tt1JC<rUPo}a}K&`3Z=7%Vgokxc7WLYf|J
zxz0Cidnbwb92NT>v89ah{-9qrw+#`~E@^&OLf`JeOg9^k=QOISpwp5_`{0gIF|Y5H
zF6#ulpAG_1K!eHiC;%C1j5$O)X%QTxe)B!{OU0VR)EFoMvXs3Q{r&rQ!1rcZEhd0|
zvG!K5=)P0YU`kX3!>5*1W^%Uf<peSx&xhZnF?Hq=s5*G5qKPE5v9SS`0i<?IBE7p5
z6d=fqA3l75skRpf=x^U%9}=e)M~U-IDpc(|9L{0*?HndrW2C|^X=zc9C>fd-AMg2L
zdA|pbtgI9gIq?ltA}1$b8Lg_Y87c;612gOI>-+SmBz)}JLFCIchErj|Rbw;)@oi?|
z;^O%Dc!6=#YgRp`Yaw2qo}(VKNn^(=Zg=nA-O^fISP(fq+Juw~x%BDd$M0%td|O{J
zVp$jY?w80kS5B5z6QsW6>}*--Ip$N4H=;YCE+=gs%oI#&|7@jhP0m@N5iR7uqTCZ`
zh`Q>|%g5)wHP;Qkd5fMNm`-1R|807DPDWWIBNG!j1%>x)lAEfk>T8yVM2d{E>|7Ve
zac3RV>3cQx9vGUkZQ4^fH<(I|Yk7MgebmSSW)M!nPee^E%E#9nUS3;U3j!yLex>`#
z(LN|L2ldn^%6fVo$&$niK+#9-9k#no#hzU-Tl}0aDJ@w*YKO*u4#Y<a(8NAK(FP+2
zU~-4|eUB!o4ZN1QW97L`TS=m1O$rD1tlo>FkyuB~8q(3!=c9!Qn!F1yiy?)ALqpqJ
zTIT2Hf%t%~(SEYGx5w`^b9Ay>16t-?@-ScnKnsM5duQuJk;|@vS$rsSLSa3IC9Tl#
z3sNfWhm(7*{MGg2xW}#q66+_^5?5%&eRSKN<B(bJ9TL2MGLXj@+X~n%p(9f@`<KB-
zFo_QzN+Gs_*kaJJnPPugykevpploJlCYX8AlYz{vEQ1PHn}Iw%(10NN`EK(15?{Fj
zDEE<?nsJd%9Gii@j!vsvjK2zizdXGPc-xfX$k}Be9U$uY02kEM{CTjwc=aOASQr7T
zi;K$z!jn~_qpQrCpy;j+m8|w<t6dC8`|^c@nR)Sd(UXcD-K83CUum<cR@2S7+t<h#
zO(}%j*QQ!xAmlM?egX=*ceu?Q)6)0jM`TJ$zG`-!ZrQ}vo6ibjby}wJ-#+B$*MQzw
z1K9cr7bH@0@#dA03Toe@^^OGI63~i@ix;*Js=Rgq9_2yE2Tc*z|M@E2g(QgF%fn^8
zwk5>k6k~b+jUBIz{CelKz0eOD?tk%P9vht}Po4nngH3^6mMrXr+{E8+e4R(r&%J1}
zG43bTIU$v5X=f+uG}C^=uCl;!x)peVDoH?%!D%YP0tm|B6QHLjgP}oG-?vq{7vO{f
ziM-(BM<x!A9t*A>Ew_q_ing}4n3$NeEr2WlISs%s0AKLTBAt=J!4^3DkP+L{N$S&P
zb#iC#3P|1Z_wQ>kX@FSp=+TX_WdZ@97DPc9)<&ARHbDUaF7gLPMicNv@Xjqy;aSq?
zBR&E7n9OTVR+V`2fUzNrLNK+qUIK9eq*gyzZ<+Ia&q#$^NN_MMEv*U1L$Wc?AKCU)
z<Y9ozF-J|lM>1YshoG}vxNspuHCvLF2E!2B3cxN`Ge@0i-al48LosWzu&j1=t~;G5
z$fVW}2YiYa!&j}>PF3lpI8x>`n;J+(i?JRlcUk@o0>JCM3AQsiaUUWUe@*1~^-i^O
zRCN7TMS!Jn{r>=F#lyqv653SYJ3cOFYMZs1|CmreoH$`<oTpy}a_GT#VkOLC^X!K@
zexxPH!bWy>t1u`hCnr~vxvJNir>U{A)r7+=qQR*4HfwQ(+bWfSvjzBiQ#fUzPA>dZ
z%T`Y;3Gq1JVa7QsEMr%5%v1Pup)dQ*8#1$=vIZkLS=sR;@t&b}p|@wmHw)jsELD=W
z+ky*JMDSJMaoz{>S?5o87wb!DJ1=sSvUSh47}_e*be?!vSz7-2<V{9JRSneL(D2XA
z2%(8hUUqei6N*a2yR@XF<ja@nG=?C_G+^%X)1b*i<-~n`q5<g5|ByEKZ5>fjpt#=P
z5E5b`3Q9{)ryR@st4d@7F$G5V^($9(0)=k78L+;D({<|8yWHH{;FAC&0EqmHe9FPd
z7_^Ds;(=>vwXW3vEudr=WRUdi>=xUSCq+8JX%u6uS-v$QODb2!8m`W=%Q@0)a!^+m
za_zGAQc=vzkkIEiKpBD_d7G#O6pZ-D$ngW2D<@}QZ>0O)HJt>o^Rvpp!D2oH%3S>_
z9oD$hk+I{E=jSf~=y7y%I%9dXv=Fbq*bMO$4pv%pr`a=Qiuha%@JoKd%f;oqxAtdZ
z!ssl(=#)FpgJT0B{-DmpYyIonnH#7x9YYDJ8ibdS22jPgymqYP6@K>jpVc9P(|~G8
zApabRJ0?FDR#@N*YK)0Ed{(8c6j~&sp;Nvkeq1oXb0XR%+sEd!jvpks;oJ6Q=Xkzm
z>-C4An9WV%gHLf*$xQMf2`5-;^O~p0inxo5Hdhr*xqGUMgfVwkW~DF*iMpH5Us&OI
zpsP-|u}4BbJ!0OOIA2P9^vF4();PEO&!0cQdUpOxfB~H<jiErBVl6Y^R#QpHrq8*A
z5nEpJu%)+Qz*w1LzYJ7)Y~XUVF};+KQkzIyV?4f1t#41>#kg`~KGQy@<=X9VGP$=E
zvHa~qMEo>%{7!GSy05-y<5s!iD*p0T*^dq5mgF~y=1AtNzl!wrY@8Gg<1j92DnFkd
zCQ&u+cdz+`q3S#=UNy>z!I4VPGcg^FVN*MLS48^RN=iz8R*OW@#<cJ?xo_Z>uTp-Y
zI_blAa1oVSEti=TYH(S#dPNn>(%Q(cK+az$Vm-C<Pyh#yhH&R=<4`()9VxopjrVCR
z>z~$GJl0O5Rqk&&Q1M(M)gy0jQM=vlQ1yU<%8x!03z7Q#IKKJ%$;Rieyo;%%q=}6#
z!Hc!`2q#<9>-oAHzP3J<+~>&?5(-^5ncTiVa^3^5RA$cL&=T7fagl?{c$8!LzH}4!
za!})9_|R72-M}m2bM%H!Y-}j6UpHJ03J&%JM#t}Bg25F-qKx>8D(90{?t2|h`1O`5
zI`mdJ_WR@$-gqMEL8hf|A8WPr?ItTxxDW2kef|Z$8A~=7!qD;uqRyA<Qd4QnKHljt
zD$uQTcj$R92hi0oSDo}^0Eva&rbK#FDHt%jTbD9SPeEg{+;eWHzGvP_U=2ybzfj6N
zu-ZK&=ddBT8@jdg$xjB!d}T1OK*`+Bsk-fV22QxxoVtO*7ywFY&p8@Tu_|6Wv6p8W
zKHsd>kLW^St2zhOFiQ74qRzYhNSbt>7kthV!d&1B6W@aX(1AN(?cm=9A>NOtv(3>K
zm;O4Og4mn5c>CF=ZwXp&MDp2_EWdr<!b>DG7BzA0jL&l|U*7v6!4&)P>({M{)#@h}
z77Q#b6vvn~Kd7pRk!=%EKK-T5);4WQ=N@gpG)Z~Bt0a4d5&#TDw#lXl2%Hd9aAy*5
z@t^>Pi70Sg)y<&1Aoz!GXp5Je`_IcETir-m1%;!*E+5yGVSdmk6BFCroX%Z<8d++S
z)`%caCn7UJ?0(Z%{0+>eF4Ts`#~<6+Ec@Z$Q;-@4=6rkbI+d5*6c<rB=`5ZZxT!YW
zC3pSQB*xyTWGI4KR8gf5iiFr4L0tC2;*w}Ys8wG}yvXY4m4Wkb>PP^b=;|JI@Qy*8
zR7l_nTb;o^_d*)$nR)UjRySgIs!k=EyxI4NKwZ`pz*bNwh13cuZ{Ie24C*gvRAX=d
zq(Z0UE-M0%Bi)0y&QM#<O7?6mxM%xD40Y~V&EChHSw8-lcV4r;U<7WkL9d;qM1H3_
zuUKJ_-@RKb_x3;L1b)MR4|PR=3wG7}GaJ)wP{p09;P=6xv7b4tn<T~%=vAT8lo`z0
z->laYiUNLZYT!S8{sIe*G&DXZ!z-_mzmqe!8x(TuvtEGietbP3jv%EUogA*tcBKF!
zYyl>84$hQn-K4#@gO6TJi_OH6>utJB1Ze+VZ|?f97VqJ}l61+rkA4kDIEl|i%iiKN
z?-cSma<{Uwl9#_Y*0C-O4?HsYM0%9ydWiD*L(k9e0fx0@brE!7Hz)5)Vo0>}WaYTb
zk7eQ)M@L5|CnpfWQ{TVGz~p3BVds!hz2!-XI!WM{dA66@WMZECf{Hoja|kr7rM-Qs
z;!ZV2CmkXF9N&jsktx;+GAIE7ft;KiU>|SZCUZdLXk_X51(B$PgrR`}x1FUyfNud0
z%C2M6-1}wJ<z0&-x`r1e%LO0`c2@ki*tb4HF?J7i4s%tD(?Ce~&jt36Aj{O%)j{DO
zY7yU?nl?u$sLyU7<aKk@-fidd!}l4#3CP;HEFK5{8b<8z?9IlW&sSDeL*SYOC`vLB
zR5n&tOe`$0=E(pwHqvHE|1l%;Y~pCfwQpMAjqd8%(m{d$PayS71^*=Y3Q{=FtTyyl
zcF}!&_7lA4QIK#fd)`B#U%AGE%@2kC{<-4WRP94{=M$PE^kXWor2;rTK-V3~!h+6P
zYCr+RFU>X<hZjCZoO@C2v05_bbEAiMRSJcRvm;A7X7k+P&k@7Zy%^Kv;9i_tZ*b06
z28V@Z*o`ItA56<(RDSY`TJgydvG`BcJKyMa*6d@f6ie`OZ0Yq9do^+u3D5U*a88QS
zBbmm0PpdR@l0<#0wOM8=?ijz&Nk5rBnd~WOJk40a^8SjGOfO2eQy>21H*weiWeNZN
z-Ctu96`KQdo<9@SUe<eGQ(Ez@Sc$jX6Mp_qRa<*+xn%4FWKN(1-X*5(;+7VD{il<d
z)l@01Fd9}7fsx_91QGnB+6TU!G1SC|*?gxJe8;X^5z+fC<@`y<_ZQ`)l#inCp`a20
z9{^g5OH1Bc-7@>OoxiZXP~qfETZW0J!^f}UjF)*!_ivf<<*pM}PqeH?kY>Mzu$Hx6
zK3UwG;iYi?jUa`C;%*)-!@bWz5fLeOjitf#fX!j>i1%ze$*^5e<=Ldu&IzTI&uEjU
zr}-+}^7KOvBkn7>k`XHTnArOG@(DXCsoHcpZ$o@kENStVNJ>okG|7m4Rg5Oo#N3?l
z(k1Y0GeCtjU%#+_@c+?KGrQ#bA;|o^@)BEF>wVtAdBffCr>wL7?Hx_GL;JP8rmPdk
zs1+lI>(!l#mS6O$i3s(5r+60p4uyLWAHU{srJ^@WsVjlEtDfV1d*Xv?O<G)7<o@cL
zO-m^uvS+l$?f3I5+`czlxL*ELpUj2tcRkhqhtpSU+s1V|NF--eR8*l^#{smTsA_5L
z0>XtX9qQQ%y4VeJ^6y3k{Z<-Gv8Vefr)9u3RJuG@t9DuS%C`bVj|`7&E;pj5LY+N`
zn9?ub^GJ@%`_j9)LMhVRX#A;H``7Skv#j!onjiCbln=mrOUrqK(}Mx<r_MzF-WV1k
z`|)qRN}@JJI-+~y{-pZuwK3?eKfgue#4JjNl8Td0Mwc#s%DGup&qzJpaN%{r>56d6
zeXYUkUsK*2eyb0-t=P3)DMR&jtpfWGJr7SYB%bd<#L%z9%ESaQDLL`>wGeJ{0-En;
zg(Ia7=}>}zHVx1PY7R$MLH;kc8#@{GTD^Yh1s*XSg@AK&V6IE`JD>lnRU)Qk3u2|4
zv$Kh*X|6$yeyZ{rA`c4-+p5j4+>lpQC92ZX(3t)sP)A6}efPAxi^&~RZF25U)4b|B
zg$qTmT8hS+tiIW~&5WM;1!7Uxp9N_Y=vz?Efp_>Q_a{j0AQKm8w>zg<^CW1qWS(~f
zgb6$uqMW<CcB*pa$-!dV>pO?r`Myc<@%vCRg<MitT)g8?DB^yyKRf0=83q{~(0#s6
zQL9nG*P^2RCl>It2!vNS188i50!@C^4*6#E&dSJPj=^!OSz*=gs26$I3{<J2<THT4
z9`8*?L{RX5F=_~Ii(`YC<a0HN#VZp;LZn;_t@}c}t&QI{o<oSqrYb`XswOvgd7>c%
z63DDK==#|}KQl|lJQs68DBS?Z7V+L&17eCt18p-I;;DNnr~A|uBhX(YNvq=O>I#Kj
zUDg_x#n=5-+lGQk*oHDPfzs)63JSW=KtgKZZO9Qn_wX~&O-4pW*aQakm!g7N2_?={
z)$G>RR!BT7*V=%KFS{PbGHZcXfU0ztH6A0N^fR~OqUbLEeRd2I<w$$;CN)G%XfPrR
zlTPSpTq@CKaV$&pAfu#Aij4g1viKAFjB1XDYK}KkPK6*1L-+@~`~$sY5XhHTRz|;=
z-ZwBX02ce{VWG6Nw70t)t9(}PNR4lb2L&~C{{K>SCRF=Bs?O$StzpsKt+{wdo2(@G
z_7N^40yi|<urR_=vfsnc^NJj;)i+UjS%Xpt6!3kMlnu`ifUJc7QGS`%k5`iH9~b}_
z^1`FidJq(o#;M{4qacX!C8iwLdv6qJvjFiKH0DXTdQnP8=Qm7qpW1%1F$_`+bOO!9
z2RwY@{E1@r;`#{fEVT8MJuC@dJCA4t^(lTC4C~~?$MbOQPyO!dm^sH>PJVT{+iJ3E
z_LiYR<TZ`6@{nfZXh!e6)srWnFo32HBwd%4m+TTm87R|%J`2_Nv=1vQE1(HyWo7Yl
zb3+A<mzNis=v-V~SAG}el$U#&m`p*f67H|I$w6T|Vc9CpxPB=!C{aZDAlS+2a4a1h
zI`cn<#>70qfH(#nN(nqRX$)2!Z@Dp%N+SD`xtdUu1HxwlyvnT5qdQFsu)+N}))A0s
z8pCeH%1^%_xS`IZp|3v*>@`d}T{_)Ri5G_uXGoVu>E~xJ{oQ-x{-X#~qV8zK4-*c#
z4Amw--oLzRhcXM;=;2$C;!+vpflPI6c<*DEGJ2CgTa^{k{`GA%)9xKv@BlX!!h)5w
zui|4I`PByDfFwT*ijY*%k6EFlW!*DX)YeV0Q9p-RsvZlSh;1Ci{f_^qhJ(xQC0?b8
zES)55tvv)<7mf5Mh3*T%j9+eD?{?jvwms~0yOrF(fQ>-j5W9jYt($r^$#p-=t;^mC
zU;23;d{0Jr;?J(G*}3kgrWL?f;f0$pP?C67w7>UxkFf5sK0m2-;;68HX>|sPmCHFq
zXz(feQgN(PYF+&!_B2g;#4|6}fhz~s)GYeut;GMf=2T<n$;_FF341bu4ogZM#|oV;
z$UFbBHRoSDh5n`O=<7F}Gc{bz0eW%Jve;6&D$op64Yh#(*5~%W4F5N6aR30JY3>6z
zGy(a&NQLSC*WS7RJSX5ysJN&8{M+~hsQ%xzOZ}rCuj8!e#x?7ZF*uDO*lDV{`DFt1
zIwAaCZ%z{*?kq!%{*`#@hfkl{TU(8G20$L~>(kEt2}KL&2<Z_NJzU}plKkR0EwA;r
zP3sQ5a2?zOv<J$~puwEA2Oe&F9z(g4nVA{7MoU0M^{;)*5f6=`4jWT)S{JbAq~Lk(
zZE`4AXJ_aU0Dpwq>(18J8wEN~UpqTHsPWj^+Un~k>*TJ0P6I72ZP3Oxop%{Iya*%L
z<X<UfRrsEYZ1RbS=;!o<5=$%&DPEU#VBVP{J`|PKZxt(l`{^6i?7n$ts7Hcg3^Dum
z$i9;h`bR$Way<@BgO=8=ME-gq{bJBT=n4m|w<JOuh;H1tZ`WqR@z2JX#92pQM8yw=
z)?7Hw$d}Ny10Unno_XhgQHK6QV_nzu2?9e6ra?nrC=L1`BrYDC-;yeQZ@Hf!X&|cv
z>Ez~p_@Mp8q@~zq2t=qfsgScO{UkJaRz)QyE^WbXpS`>7STxi1*MI4z$o{E|EG=A5
zqEgn-2%v(FFKn8)62mn5W<Guzt5<@&VV*GT-rBt&Xt(<RvZjC3YL^_r6cM#(`;ak}
zhj2)KsQ+k2|Jv61KTY$W2K^7~CL;%j`!}6@&l6bc9lop|WUM@|Y{&5T_InpW-_NrY
zw9ugYae7w*9!*w)9ZEbh;LL4(UPy!Hz<1V)hh+EhV`t;6o#%mlK3nJHl8*?OAcuok
z3omKm01f2Ia~L7m_m9V(`6!Bu<pY@Ozgfe7i~__eBn@si;8ff<Pq8liT2GKBXqA9J
O5pq(Bl6m5f{r(?(#Y05^

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_++--_S34.png b/plots/2jets/kt3_100/ggHgg_++--_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..959074efc2e7c64f624345ab05c0d68442ee222c
GIT binary patch
literal 12776
zcmb_?cRbhs*Z0RrMj~WHRwa98k55Jj*&=(d@DU%`o2*btHX$V0nVCt*CNnErcJ{uH
zZ`b2~T-Wcq?)(1zaeF)}z31zFUgtc|^E}T9Q&pBD#J`4*Kp+V3%gd-E5STg$1cnGM
zCLFof^H~o5$@S3GL93g%(mOh#EN$#8=+W+u7W5WwHkJs4+o+auBOxZwr6X5-S^562
z4lTmh#lr|G=`IqJ_}nb8Xt6&!s2t7jIkJ11tmB7QY<j@JyBg>qP@SD*;gi*LN*ov^
zgSwROc%%4hPCQc|M;O6vdb5^s4&_xsb)F&`1ZQ<}VDHVL+|DUS=L>x=(3ew2!jsk2
zxh`bBj%l~2(K6WRbTv8RchKB6oV4eveJ`jtkGY6~MdLZjKXOJO2uRQWU?38cDdC_2
z`koG217(SJHF2^)NIO}Wpe@YlU2V|T^k{1fdTo@QrIU$0y^@K8m5Yg$1-&K8iCzQk
zVs7DpcBbc`SG90*Mmd<+(Q7$d(5pDuxzmf#ySln^y8gY7(+p)VKj{$zFJd@<(Lc|(
zK{?QC+Spqlc)59mMR>SHczEb}_(XW_i16|DP1NWk5cG)qGLo8Z$*be;IvQ3P$PGdN
z7uY356m~int~L{XP}S7z`H*FMGSVBhnldVSZ<(*wrC_vbRjGM*B1$pG86{d<);`d}
zxz@h;Nh7aZL`&5%m!46I43EB*QB4YSr1jwBNp_Bnz@w71^#!7|*}2(`dBnkCL5Q>(
z83qDjoY!!X)`T~qQh$wJ*?Z@=R$wEy?T`0UQ&W;PV^VT*avB;MIyyS)>U}-kI0(dD
z&%0l82Yyc;&kG*yt<!zYMV=jRg@@zkKNNi*{^<Ab-y+WQ9mQrX$xZ@bhEc45jj<}{
z-rnAYu9W^IbfC}?sfySYT3Th?bmrd^wVv}veakzxWz}an3it1~b#>9oT!-6e9DndD
zsA)cV@<dXyQE<{r<KaUA@5AlBzP?hc?x!v;Hf5u^8aam5=-k4>^`)FNT0w`gBvc(0
z2}$3?1T6){-WLKc++e9Kjh*f7<IQMauZ0xX_*Wl3d{B(z%-1RYqP2brfp|+tbHT*k
zK3_M#tE1zG^_?8$ltc;d>W6t+xtjOx-Mg)lD&}*%|1FZ5jg?h7O+wsZtg@h>AUQet
z`1m*)dAh&Yn;AjDW!cpa%j)m%9~v6!>m#A0WR6u36%~zDut1?uii(Pkj*iyW*3Qm+
z&R%!#-i2SStZr+N(9qD3lh23m5g`!l3(UCP$-<dK%V%52GmXNb$$H<j!=2@z7ePVT
zw9yn-uDpEx`X(8EmbwiJ#l;Ym@&3uow<lF&YMHVIpPxnwhxJ;I)p>gw85yBa>*e-8
zzkK;Z>wCNj=XQ2?cel6gewN#R3BtQ@;ezPX6=Oq^Yu7|j6E)(VyWF>CTB6gCzI9uZ
z;s``h>Nve-uIAONSC@whqa!141$k{YQ-DpbiF=^$-bHx(HEXJ04$;uornr9HKu=H9
zZn!9|PSSV^mdbyv^BEy^czF2YmyC>z_BgI2*T}ll!)5ZTMV#Pajv}99EV|N=X)j*f
z&7o&7|Mr|pyU=iTY3Y}vP!RFu5VK7`VyFF$UuXN#XNzlVsiLk0%_EqYm?Wg6or*Gy
zYD!Aaw<d5Ahz4WF<g&Luor(PQXD92yQYP~9xCVc|vlZ6BU*KZO!bpa9A3uJqsqq^4
zpw%V9aDL0f?>{B3#I?^kC6K*SEVmmml_0QWR!~&jTN`ixBmt{S{$j%+1wLmq`-vRx
z@Z*vq2I$LUz{NoL4G;&xGi-6;yfHsEoGrQ*K#V}>bUu)*bedDx^SS{yU`R%sA0w26
zC4PKHkBvY)ETs-&ifOYHzNbe1GbT|fyRJ^+;zf9e8^=$<`SE&R-~0E&<ZrUFvnwem
zn0^N@A)=G8<EA9%(0!ehq)4$gQ7g*KY~A+i*6wAvYeQE+H)vpBAT~A@{8Ct0*mG~q
z;`@N@PM!A=J^_LDN1Z2A4H%KKnFF>Js7XV8eY<spU@aajt+C`vkW-ZyA0HntuTxjD
zFd-qKZvGoil&x)eSlIms4<0Bg#<ZEcxVYHc+e@W$BaxF67;Bz%b$2<CKim(mmL0#y
zVFP0zi+lM$XtK`C%-}JI(W)?$!GHYk-i=edNpeUTCX=C_3sDmH;>E_!kWqgmav5uE
zo5{;x*GK-*F)M?N^A;|H%pKF>oX23Apy5kW{&$V<Tw7}Ks5N9K=bOU`^k<<6lNsbf
zJNg|Y9ztXdQ^oGxsus1FkG=xtH~b<?%yjeS>o;%a7Z!#F2NiCTq^rK~wFU>7o}MPd
z4_3&^U{*+1W!Ee3m=2C2GB(*ym}#->x0gIDwqnCVATCi$#>d8L85!04oOpz1yx}rZ
z#vQ40&QW4wV`h#=`kubw&_j!i159ORWGv1I(_B8G7ZDkq$GGdWLNGAS0uRd+#zjnt
z3+)ab+mz`_q;&_;G+EzKCu^SBTuJGj$6(VgFn2$9f|{6Bm!KeGkAUZq6xgHQ_mL3a
zhz;6dQ^J375b6KsV`~IoV%fA4*Gm9nrwGR?=7|V?V;~v`(jSxkKku!yc*UjGPV{TA
z4uR+jrr)NrJz%id%nKs!?7T7CqBntsXdq61{KIN-?e&NkAfL29Tys2ZmlTbGFlHVb
z;#WZ336C7aiCiOSrer|)Ihz!!88Kcfrn~~5t-pBf0=V>lU-5sAigKMTtKlRv#FRgA
zkPm@p3?^dxVzulE`7YB1#3B)P`sA01cL>CZf9?N1w!;6ryGW1)(SY?|zHpAzZ|>PY
zAy?kyB#kf@Mn{%he?yIlXlKA3x!g{O;WyXA|NW_s11^F+gdUq+5c_;-U$BgoSrGez
z*bG7e!dZx^y)nT@mUG`@x1VNCNpt6rA&zNxuU(MaFCIbbz4+%+7Ib95jd%@wgb$G<
zF42^mGD~(J!mkh>HD$s|h}g$iVaEy#$-RS^x=0+v?KYfBh&V=6%bIM^C}lMcGa&Zy
zKTBGlCr#?rd*K<l3^bP){N*sIhm#coi=`184CR52XQwB(Zrx&h`M#)#n}sEeg^Pnj
z+-tw6(OBn`wVH!N!Na_h#mwkgCwEA#AGGph7<&s0KC`m2E(ZGUeV&9!ubO$_7gtOv
zDnpFvCs^A1Di6}n$B*o+tl!((Mn1c8X}}})R)1>i=v10Ehhts5Y<(xutR-sm;P^q3
z0ABDHfOk?U$XdndrM|MqL-2F~F|jf4b*vh^Z<jF|LWZrce4qQ%(b3V`+A8cke|)m;
zJ7imi>F-C}_u~f{DQQe%q5|&AfAGPns^;z6yR5PEb92`vymTN*RXMkq^N!cJ^WC^{
zgPy)&d>yAIu(nwG5)Gyw1)z>X7O#XvD)E<@%^<0Ch|oaQTuq4F|A32ll0zFky`;PJ
z*7o*Vc>@=TXvZp_m^nIfJL_&m$`+3&PL|S&Zuk022MPL3mR<?M^lz}f(-*ztQLDpl
z`JE64OM{anES@Aq`8G)yfWU<3y7-~r{QNwm_qq9b-kf{;#mTk)(kSI?bc84bB{8*G
z5FQ?$mX;PyVETs-3XCs-9Q=cqGyj1gz+2Rr$%v50j$U5J5Qn%70JcCs02(133Q}Iu
z%`dO573bvaT18!~iR<*27O}Y_7|k4Eq}5L3{@(VfNecoYP}IxV@%{UU!a{%=@q22J
z2yX|ij8$nc#atyL>wr|-{)R&&#bIr%N=;3TfSi38*i5y{@=cPq-vfD&-*t6IA&+`^
zdIDf~<|JVb(+F+<ImoI!z(G(uF1q*+e$wSg>lQTPlIOb?Np^43O)UFeMTIsq8L!HY
z2fWZrV)9rEz({6@S;y><7LVaqzd*m_qE<?lp%xXw@xo_<-%EJB0*1ua2P9i$H-oS*
zTp+B~Z6F!!ltEFy;Y-^IRK?y<1hf+CF!jmp>{3U`)1wrv5su_`kvJ309?Fq%O79!L
zQXzbU$r;=zmb=uK1v2EWg~khEO%)OcO}Vg(C~}arR!8)SS1nFGq()5j!_ifClJ{HN
zY#nin-!l50dnc&kgLa?sD8f^*8TJud0vY$PdOa2$9IIMsEWL4-Z}2?EX$VX8Jw3o9
zW%_7X>(OK7wmV`)fRFEU&~9{jZElS~%A-*2BU2DV$y&yWFK1$Xj~IPtDF?Gi)A6N2
z;f1**1Y(~iJYyx_dOatST98-Igec%BfcOe-m+8b^xZ%U&y``V+OIT?8xI2FWI~tK`
z7Y_UB-gVyRiRZ_fVoXR#XlrYu;4*~BAPbYp%F2SE5=Sqp+Sn|?KJj0R)XkrO)cf&K
zsiEg;8N}UlT5;W6O`rW=A!mEOXK`t1g}v5w`_mEG+1U`XF3W@YhP8)HM98sfmps`_
zJR%~b(`=}6&e0r~@5tELF`&THr%z93=+5Ya#DGl$;HC|A>))Ksv44ej?Mf2o<m(pb
zZOt;DRliu9OFoG?6O1_N9U79G>}oXTb`(l(IRCjD@p)&w%6VZx+i3hV6eM;l>%M14
zD##P`%5X7wvxS94l7Rj9_IA&$PC?g|VM$zJw+&-B>gnmJpb&0YsLdKHE-nsSyt?`j
z@;MNWbC%oARj;q6_GJ2N7@&mv*1R{|-Jkv7GteIc0|OnM;mRj7ocfi-6cq4G9@tT8
z&nkIbwQ{5E_JiU_-`29}=&bZwa%MF7()a^6r4TJZZajB>4}5lA*L|&$EW~r`R&xe7
zFlKssdI5o_^BoB^mv6JO{ysf9%FWFM6a?$dI0~__u)u<V`!qH-hJ}UQkc+zG>+a*@
zqpGTEYMSvdZ_ZH&HVsIwRC-ZaS!|uQx|CFa64Q;K8rTP5z>4zn=U#LrXlmi3Ye9N{
z)LG9B@;1Rx$|g4kKeGyl@oKLFCoeBA4-XGjRpOAQrPWnJTwGjy{F17dw@Y90#~t<i
zaB<ac_uWqO`ZH`6ov&9>P*>-(yE3v~yJrYBAXpJ<iG%jey?sq)GF07xrJ`bl4tpxE
zg@Tb09na5O+XoA2Dk>@z5zTVZwD*WHBXsVNhotIJa$!5ZEiT^tGuKWoc%vkB;L9(^
zMQSnb3il$njl#3T!upd{)D1?)cj`9469FOW&yMO<5_oTcMcCP&kF1X#b6x?HF))|_
zuZG%-AqW>cK(E3ffsT}lO8D{M$HBqDA3rodyQVpEj(KAq$2PBMJg30ySpzTm{UaAj
zwJ1s+(?zRg;NwnJ=o=;QSwN0`_nYWmE6i>DYSPoyWnVinUV|MW3Hw^(-3Ixqx3pX0
zv)iWWCtQqY*x-(X&t=UXJxWkwa#p}6kqQV5OlW~!0_R#<TCy!W1fO(y5fJpEr$=>J
zDm()~?#-)LC62$O0xs+zx&pv0WGyVR+RVSVwz_SkW3~KptULV87Abp!7?*uMW%uk7
zKR>^E?rWd$&ngI^mhNx3RsJbCMw?T$ya=)PnVFdd1rB}h?$1{^x>mn<@uD${KJva~
z06BwS=`p(SlEd2rTkkuB{#r^*{ebW<UcV;0etmVRdYeKw2%&uATCtGnVOnTg>+7km
z;06JwD*c>(K#i{ct5k@+3%|a{vMsI3VjL$m*9H&#kzQoF@Mdv!wbtk4aJbm4b7;#Q
zxx$Y>W&Y;ph%qZm(YJv-?Pk;BgAbBveg$fXh0G)QdpF4SCJC_`j96m7KYR8JKrNoj
zZVwOG6U7%zb>nEj>sIrU)>e5HZSw~1$7Bt`+_7Xj8C6w}ay9#o5)Np<#`**r_Z!y}
zl(O@*3op}2=-(u9ujUN&r^j}@sC4TB@}ZGY;eajFp<)IvC8dU#{X}6c`)rxLItB*f
zwm+C9($<%%FOdWgH#~@6trAtK|3U^B`0Lr#ss33fVTPOh`~&c{V(3WB$|QHe+`3wQ
z=dI9^eJylM09W4<x~#0s41DW*c^Yj981*yH_&Xe}%(@d^gV1b-{fxxKYyNj%#K$i#
zg<ryhcVI0#s6*xOr-lAUMO=Trbby-l#uY#oLDWRDn0ra*&xu3gy$cMrz03l-SjNM4
z*ZLyZdPK0-wG9k7Udo&ECgia3Y7T=TVm>B43!)Ac&YC)@{`~nWe)Er94Q~f&{>K22
z8)93{SLfSTc^q*Kmq*JUzkK<UhleM%Ae59I7o!HVv@+m$nEWQC5H`vMco+b20-u#f
zHDedpY=aYc-^4mVd2w-ZU1fdw1K5kg8Dr(#f>jb8s+XZtlCJ9$P!XkwdzR<0P2Yjj
zTo$D^p?W%gEx;j~o1255J%fiS&-{!)B94C|Q5&L8VLNd@%8rWc1uKmnKVF8|YI#mI
zvlK2w3QjiBb(sAOJ0)w10d9x5FfAVLzxsp;o57FBc>eVtI*+f0RxBh}^z*B#s`B#K
zZr^T!)4Xt+tGF0(CMPfB$P%6b>cy*=n83h5aRZ9mz{dA!lTxxS-DIqkGBeAR&D<RS
zye`s^&itKl^4Wy-YvW9Qgq21+(TJjqY-?!Fi%@PdrkEvgSs*nK@jGaPWFpT<%zc4~
zU(%nhG+qS&%o<vji=tUt3a`Yj28YLn1%0)?V_5Iw{o}owq@-kOL4;yu;bStWmIb8?
zSuO>u=N@k~5y6T)0X0257#SIHo@9nCq<V4!&Ad9`%m|))JUBHPitQ?mErrW~AIvB&
z?mbcC4gmN7pz!|vO?0IG1xehgGo06<XI|lJ8iS9mt>qOIKIG>U;^QkQEAOIR^l>F|
z8yHXS%RIYh_R<mSWyHt6o}L#eDF(W_iIA!14!3-gVTS~+$uOR7@rbBBnt=qv!NI}!
zl37AxqTl5SM<K4eWh_JcFOeR{>(*;km$&OCuJj88tNf&S^~ZewQ|ETziz_N4o?)^+
zs(<|+YNzeMuIVBD3M?TXy3pI4=Q0>bH{RYSknM1I<i1t7-6Ou-MeoChv)4Y`rCqf^
zUA20>YO9c9$fRd7)Mo&>j^;5fzISI-=_}H(mCyIPjM=ibBH#y9W=U0xq(hCO^}SP<
z=BWAa+yNGLPgeHZ*RMUdfS%^%wNG<HQLZ+f8jIT%3?Nd}S$*`HmId7t_5oGjVHaRK
z9;Sf1BzA&dt?n)L-~nMs6BW`&jNz*}uQw<*3*Bjg2}<g@+rbou@(&)YuB?m|o5^{5
zdn+h>55LMLB?TJ+|3lTE?7q7nW7(NFx8%x=00X)qn6B6yhtM)mC<m$hR9abgRVa-Q
zQ;<)cpTE*kw}}T3d~k4JVqy~X;_&bgxGlxitHB{5zB>cjpP#OJ%tQ)C(TZOqCEfbd
z&gHw&coD+Hd7%qrq=UIQ{9seS=hTAJhRUas;v#z(h??-)+6VuUf-Vq{Z@AR}Ho8uF
z@8wraWc+k@s`7%o&-U=+`6nzd=Y9C#G5b;ui1Q8d2w|G8qxE_uP!cFwehd!!KwbxS
z-xNY57qM}><7!J6FTy8!qIEteN;M?q{rN^eA551U1IF<+j1(deq#_^^keuKbG^8up
z=aieXF)Fk|j&FhEv#{j8ed|X|LQU<tK2eK2SyCAv9|s!sNjLv=rL^1UWZ5Y0%^Q#H
z{7X3HI#>wp;wagc%;%E5r0%b<(QiDy0|kqsL!L$$9cR3IcM~YhuP?#qgVmoERr+g1
zCQX23Tt;;@sL8s{B*Ak5B@cu~b`FjQ^78Ks3)Ak{sJpvY$=~$&({|h2y7$62T#N>-
zj*Ao=vQ+l-8Gy`_hRV?_j0EFcY;4QG&BQ!+*`r$&&t)XkSf!e}`X4aAVpbohgP;-C
z)z#G>&vB75DYbTXW-+r03Aq8017igd(?+)}Y`Kf2E=;uef!5V9{?Td@^Z_c($U{1-
z<lk$r8F0tBfRo+2m6e_@$@sD-S2jt+#n#z*Yq_w#YhmjFQ@@6a_*HW9a^uE;6j9ey
zp(j$Tv783guWiow1q8sIzkd7XvH0N9GplM@LY%<BGp-)3KS#HcK^QX~VvHaeGz{^l
zouZ@N@83IGe*1<_oxI*Q12;}OAcIflM%-|RRDJ#BJK-5LXWIr(u3w|3ZvXxrG(<Ww
zvQIYsOc8~ks;#X#<Z9X)4)^zy($K7o*;b}q)D6nd&j*@2TH{`-%Dl3;=ytSPvGfO$
zuGm%wA5i%aB02%eOA+K8-#a^9e0Rp)f`Gi$jV%25@e%<+5{N<IBGlB>$dm2<^78VP
zl@+U0_h;>MCBH<_X!OcN?a_Q^5_p<XiFq4r=J)U4FJC`gU|ngBps=#CTA!@1fA>!2
zCJC4&ac^Lsba_XI9O<3^@Tgagu5IqmyLa!j@*alCFsf*e+`4utb9W+nGD|%=vhsw|
z<<X?iK}vVG4O(9+REF_Uy-)2<T3Alr3M+ZuCi^MAKKlA6U3+(TcMp$hP1aiXt?V5P
zea<1q3wR7ZF9N=vh_>rP6sEXN^xBqf_ka8LZE<n&Z_U3Ob~{xyZ{TQmm5rTUzu2_d
zAM4_sYmrHL3$!5i0#KrAcOHVw4u_e;N1-AGSP-xqRt4GLz@YQh^2Tb#q^yk0@j<t5
zRAi+1lWA;**};6hM~@zDuQ%;)&g4PHVq=R44|j5M+Fcu8UOKGCucck~Jzem{WdINu
zM4tSMDB)RM#|aIG-Sx?{uQ7^4oW$DWkv4<!cW?|t)N28eVBP1{QxI_kk`yczyg1;t
zZMIyGsjYu8JcHA)hLVJY7djM6{W;wUd@U?FJ6G2(e}OU`d9+fh6jNVZtj10b6?iR_
z#;mad{QS*dzrF(okOc&@q`F!}P`g|FOH)%EhaNcz31du~h^Q#kbW-W9-QCeqQK=At
z0IG@wO`z}7fsp?8?c3qu;Wux{rR2dRP;Y=HU~K$WmHBo19F&ScJb-lDSX&#Pp3Pdp
z>URK2u3f@OQ3e+K(f1JKS3yBo2Ph{4KYqAX*A@I3bMAhSc&Ck-YEtfrP>}8N6~(|R
z?fQ|Am0m)SIIZvK9w(e%r>>{xxjEhZ{Q0HB+-4(x-TbG`E|tJLfm@W8lvL^$+@;@`
z(IXn2T`TC#Nj)5?3%-8+I$)JZ${Miq_SV+W&`{&-Sx{YK73SuDS6v)$9vT=Zv;SFM
zQ&TfBVJMLX!6bwGQvT-7&W=LXE5acY=o19JND@SyuA+QB=M$`O8Q_sb;@iXw=1}u-
z)ocW)=f0Dh0@zSxhGqfCGNmq0FGTF<bar-vqtEX(M*C7#>N|idxVs+|NXPy%=`+c+
zG_>cXS{7X|Yi)m=2obWs^TCDOmnpTNL{X>k+hc9bueh<cRbj+m7SskNYZ?i-UD77+
zDt+_2Y}RfdZM8{+{Mq6#b+mI{Jws^<p>#E(nbX6_u&b$57Q}B!q`Z<6v_OvfRgm`F
zl#3*_hU<l93_&kI5IQ@VJnQ`aUANLPT{quyqD(o5G@=<4u3JOD`mz)uBb*Kt`rHed
z7G1At^2!CgzIhWkPanuBwRC5(&w_*P$0|2x+hRmr*OCQMsm&^B2i`qPXrJTuySNEL
zPo}~Dkq5IeTL!-law%G#DBv+f%S@g+yX*Wc<Kj3~64UKxNRQLz&6DdeTPdVK`^!o<
zhwY*Ge~<pgWYn#QQPxs<q5SBWkm0Lw{FNV1$E-WDDU#pok?udEk37aX7?F4y<Zhc1
z4BZlo(`;+t(5`D^ZBQeD(qM3qU7HvZxDiMsA+Ms6CgJS?-l>27lPr}EVjI~#7P4@Q
z_BZb39-JWOZLfV^mjF=Pj`A`s)?s`JXkq^~^a_ZA?QLx)Z7$3#EW#e!i;4V?&3UO9
zWODlLhl_qqo~}-snwdeaN=Z&;Cy#&vbZcwt@#Dw0NWxT^x6!c%Urfc{?5H3mBu=4D
zf&%=nYL;41sJMu(Mjrnng8DNoGBT^Msp==uz)+-*liQAgy*zym*Z#MkjKB1^{)zBc
z?lq6r85+)u5)fuM4BNlz;0ubeD&1Wpjgok#xRiTTVJh`bd;ObIl#QKgaPS8Dmy|uO
zijgZ)Owwunq4s`dtLW};GiN*n6sqtZG0uexoyo#{jEts>+6}H%r~~X1KSP;f+kp>f
zr|W0r_`y)_L&=~G7q^*v0B0g4B~?igarrZQKSf#4bJx!IdeO;LAQ3AYTf&8#XFEn`
z1EZrJ8&i!S=KT2a<I5K*&bZ~hp+<AwliiB?fhF{|OK5obXpxCDv@oHb-uCd;)cgUG
zE;eQ(a8V#H%;CCqUhY6xa~`jf02zX2DD+_-MO$q4*F!TWRoruNzyNBy^3<vYx~^35
zqfWs|RkEvebZ2=+C*OhC?XT&%it6%<teN2nev=!wnN|`}W7B$^`}Muwf)7tj`>)FB
z@`l}~O~oT8tz!IRg{4sy=|Z|lUa9wO;Z@^S(=;f`C#7rws>ug!1NZwpcMMD>`LnGr
z9Sd!qoW-eIp!~1y<}D)&hfN>kKTLAnr;L;h&+vL|hM5DkE<b9!XiFqsDH|}uGDcb|
z6x5cj1E2cTzJE4<a(bwV3o8FwLzD!`m|B&#b9!j|!IGK65JdygBA>4olppaQJ&aAO
zgu9a&nMH1JFP&|=V;l}{b^QGC`x2%^ccY#x{%)E!^w<2v(WISTlT=7zvXn-G2jvuI
z<mnDvec@~lM%ri`M`3R!Rt}y3V$)OfD0YJ0<SVWw^2dm&fyI;IAAh733W=ncCTR9P
zj<yT5*b8k96HGbju6;mF)OCC9*jbbwG;V7wvwtioSX(}N<SD|<?KoUyaymLWp#to8
z0|PBTywXjx*qKTjIx!V_$^3Z_^pJ>c<Vst`4k!7pR$ScXEMODK4=l>di%9TN>|fr2
z;Gq_FGKY*jNpyEO5ITR8#>HBK2RxeWYZg4Od88u5mQ`K}KW2`?Lq=pzyzNcNBB%A<
zR$Kn^=FJ-d3eNWfwjPovJ@sYXjnH**6~SdiAc&>UX94{5gtHpu6ki5kjvyoSeh#l(
z?nvN+R5LO%!fr>AaS!@3y68W>k9JPxzBTgiJKb*W2<*2UC4|nCCM$sP$?4I0dwYAr
z`1mju^d+af1`Sfkw;s`$C3-j{U0{t>$WcmgI^4D?)=5rG{N1-cXMf)5R5tGYCEQb>
zyoHmNLynY@m6iC@dIN;e*9uucmDdXWa-g_I;Mnx=>5olLE$0LU1%da*zIg*K`xCjw
zKTMZ80<EqFSDu5RGfSgzcC@Ul7();(`}V8h(l&G66bbLdjQ3Q0mPO_yES8a&2(bow
z%g=7o+6!-?SM38-4X7z}E%wj`V;BaR2*lH?+GCcl*8NKjIw<(|AO3knj2|3xTZNO8
zGYWnpBX^)YybRyB5re^h>Qz0mprfSJ(faZRmtoC5h;#>YgvFibja*zRw;7bIYz^{O
zTG{sYHrxy5S4tA-tk)j7fs5g{+Hs?YmM(F1nq8k$5Qz0pRDCUU*+Z|~5Hq+=ao!MC
z+;RSsb8jY^@JcIjm<;J{<>Ox=bQzhM($do62G_ME;gV$`2h5V9&4s(Brqe)(fvh3{
z{rvn8D%vf#z`PCQM0S`ZRd9i&<$M_FZGe~C%E^mM)s@)LR6b6dVWJm5AdN(N1_T5!
zsib-xZZ84xh>xd)`w!s$sS2D?Y-~?>soZl)$-?ZZt%KBpsF-u|PLz(fhz6+*L<{8c
zhP1MBRL=6WIcO+|<BN%YoS>ZUjJr-+SXweMF?m#TcFoq2GcXb(^e;ZREBHd;T;Jy4
z;);eT4m`X~v`aD$*nVmYq7HRb(l;O1gN;7Ny}wS|5zo_vDo=tB_Cv81RGw7u39{q&
zVxzBI4&ihEGYgi1OW$Q>xmSyvi!F#WbCeMAgS*-UmoIm<wpN1Xr=+B$qZ6N#H-mj1
zcj5v^Qkhc01kM^){2hqt=u}XGd;r17VTWf|UFmQT^=kT0j$&?T*VT_%pWJ%)R@B1W
ze0yidpvtKkL=sGp7#ggG?Ql(ndTzLh(bkT`(>s8fiy5Ra{IkZQc(NEq0&iw9?1KeK
zXuE)NT!UVERXABg0gfZlP|Xoa#WP_Hp9RJPUr!cs`LJG)-2f4}@3$PTJpV-V{YLPG
znHK>Qes%8aK)z68Mf#1?(mjmWjzOuJ(Winr#+*!4t@)?%79>h|OwDdri*=MHYXqTB
zC#S7pT&RXnoKG84a-~V6Co)fQo+q+f^PS%(uO$DRZKD2MP}KLdMm;x~|1o)V%NE)I
zr^8z^6c@YDwD(6Tl@Cja>b!>A_sS4$G2sb~vK{4liq1xfv=g~ARMUil`!Q}!LZk6M
z<aU_)C@C!!H;BWK9(s>lwyH>-Y4WN?_0*gW+PIdNBuG4WPh=!0bEiGjva{@+G7AW=
zdL}JLggyF`pA3nK`Zlu(w?h)t($*IA+ILjZwlXFTsx!Zv@U^2P6PdG8`*qWVNGz<D
zb%fnjEqnCw&)&9{A4U`J%_S;3`@6izp9ND<ZSwI>dmo-*D4R^&6aG4Eb|__EPLEYd
zvuq%Z_w>Qm70?dAJ=nRphzJM>h=}&kE;tCuMZQBSyGvW$dthtN7Ey_gP3={!Hp{BO
zK#o`Q{<n5Bq9lfobMKwl8)8(aG}erX91rgvJT9CYq9Zr+86=92u<5;9aS+MPyyy(_
z81xakQ$z(H53<wgJ_>~{_sJyzSzS}?tzT<zRoXU9qUvo66$IMt$#rvPuoUI%Gowyl
z@E7{R989S|l84=8q-j}*i?6PalIj&bVXJivGsrUs+DPF){gwv9{6Ad5`Ml0f_N=;7
zQ+Ui|krfOU*&p0&Z!re+SZ(tSQz{(`of4JJG|~7D7{=PY`N{rCx#i-Uc<ly}-=QP7
zg*2?PPj5^&t!AYhgz!>dDi~QXeznk3n0gRR!m{`o1{$&fmH*7Pm6Vjo(Rsga_ujDG
zfjOr)adBI2Vu6kHFXd1F#MQGuDw*{!9EHZ=&hpTt@7YQE5S8SjgftDqvQ^Qens-P!
z5s8k*zgFy&TBcl92@8Cm+0N0|RdbpB%<Z~NY4q^#40N*v%~zC=+ilQplah|2eUE3p
z1QP(buBnjIin(oUw$MS_^Sl63<f{FVMvtC;b@88;x7}ds>BKytj;CBem4DR6$ZT-h
z%<c#C(y{8E!_q?Jt-*^$RrW)4yW}^AXWusU4{VffQJWSE2@38(3IoFd9mmJV|J|ME
zCT0kL!~lF-Ku{3Gq}aH)Xj<_@5P)D5>;RNSplKg^t)WzlrV*b0Iy!17SLu6p`sx+Q
zOL<K|kk_xjz6K?RR>Eu8n44Yq6EoCVc>_M%y>d`<v9Q>{3=rc>Ye>>i=59CEAC0fW
zaMEInj@*9ROSX=)x?&pqF*C=55N1p(wY&jX89(JE8yg$QbYis8HZoL^vb5217iV9y
zXpD}ILi<HUB^q>@lbs<7PW^pQS#C2i6+9}nY>B!Ky281kBDm`Izfq$gZ+1ZqwbYm8
zQCpXt{Y}dt695>PF*LKz+iiPm-m7Ip@fDwdSD%m3$!0zQtqV%YNuMKV?@ofgL1E<e
z<amD*RE0_Ci^G$66P^=K>-Ae1*uTBug$Nu>JKi!bB^s8#NdnVQdD+?Xz-QyQjLP?a
zgTyNrdF>t&WY#S(_@w(n3c&k=G>H`AKQNvXA(K&mx>Lv$bDuTVNho=Cb~YdYGhKCf
zbkvrcGFeB3T9P@g9oo;()nDjH*xIW<Gsqk0D>Y6^Of)q$RoBqKW8h5y4yDW)M?pp=
zpVbGoB<LZ_JBLsr0Y`)nw=_53Z?um{!JVO-V#G?^H7y+pF_L#o@$>WJfj$DQcy&d^
zko6tjIT!#sZ(W0c4E-(8Y&7-sj=0YLa2a{;3~Vp;!_1PQ$5IxEh$)~grK{E)%qM|d
zVOs3={WS|nn94M-2%rdsinn76Ml7<_sUUmc{@QedYqQjQCEshZ-Xg*Cj)w`dTumjs
zlTZ2i59o<Mm6v}Q_#JqW2nHi~goNUS`AWx`O_rlFDbF@s49nWO{IYA`{v;KPX!;f3
z;*SO0zP5NCv!~EQbr=_^Hi9|9y1fZc;3<5T9r1itml<T}iJ>x$aEKMYH<hIr*OemL
zB4z~j=3RPYC%wX<h-TBnV)$J*6F&DQ3C}H&6y=*Fpo`SPW41AXtHp5|fEZ=b)zP(q
zRsZYtlCp9x&a;z-?qqS#H|{i4R3n3fvPg-iD>|;Of-#byo!9!F)yXhEIo$4O0PEM(
zh;1>(DriA<k(Oqpr^ohE9!4&p&5Vm18WEwvOvV};p1~X}Rctp>vcJC%?WUWzZ)-n%
z_^r7a+|v7SDF^%#%(=R{3cZ1@d^W#}glK831*uaEQ63g~0>ZM|s~f~4lsEprjyCLz
zL@T*|`9y&bEb^pg%756tu$3=Z!*f2?kTCh=19*s62h2ihkToxCbs7cFkxpI2aWxw8
zPxVSXIU-JwE+uMsw8HtmqQc15`0boxhsF!yzV6@{ghWW{ntAQslB!g%M;C!}+@+)!
zz6j+IjzI*@H?N|e!+DvLn$pZbfwa!g=JaR4fFyCbx#t6e=R2g;Ae%WoerqqW_0Op>
zgrs#_-e9;t1@9!aKe4H|>m#YqnGR3mr0!`>D#VmJ?w7R9S7oMCbL_jaj>O>teCz)9
z5-YWcDdqDsE4n-z_Xg9gCH`1(ZS~A!ZP3Ee#=&83G9~83h2+i-=_H~C&tU_(Mg0!h
z%!&F$Vl!aiAE)cc)A!`)3D2}HB8;z&J)-@84u1iO`me)@e+Log>*)2XoNkrQFvA>R
zT!SI7=?2?>XO!!o0muJ5%=mZm3r51u-viCg^C?GYOZ-nS{X6~me;*ZtK`a<2Yx;K<
z^f%wU(IC60_PY5c_~_-o<B;WXDl7j<YGt~0i)Zd%wB0NM=;2)lvDmzg#PjdyB{jzv
z81n(i7SaGr@z#3o@y^+nc}&)M2L}g3t3k+d%1<^E^wXaeC@xOUa#z2k3GDL`(h*##
zD*e=i1S;sKTXiKrdxn$$P%%#MUxmf$@^XQ6)%dhD)H-6X7AF7vB=P>w_=JazDHRGm
zZTXwqCL}Orq7FT0P6mcwpsr_A`wm{LJQ|1D!Aq+Df+^hBBDXba4Y|l8mRdl5Gv?-=
zV|>{<tsh0iJ!wt$GarUl<8V8m^lNYD<5JJn1hYWb20FO#4rVgjJBfh8m6bxlQt9fs
z%;7Ne1S3hMLUA)##6B>07;M*Z4f6B9Il;8ONpm^Ghxqz+`z=^1qOiHRVqPV0;Lm{<
z(=4TI=F1Fb+Gwlw=K@4J;E2!$h3BtKJPS*uH=DWOPgLpLkM-}5NB;Hlzy0{m3Tkkn
z4V*Q-<ERu1*r9)GNb>&>C(mkS&j)>rh9FLgu0iATf13JDJYs6sVJ@ijHt0=wL&;+w
z(4paSKG~^6Os+jPv1@UQVb;!qj{*A;i~y%jClvGonLQt_M2vOtNyfjSG}+<-cSv&2
ze*F6Hh$X@;xrM1+DT!Vh8x!Hz@?V1sW+MKlq2vD^lmB@}83vxj49*=r`rxcvCni_2
SiFD?CSMJ|amMM@j4)|ZuAQ+(l

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+-++.png b/plots/2jets/kt3_100/ggHgg_+-++.png
new file mode 100644
index 0000000000000000000000000000000000000000..77be7d3d74926b46a96ad21678f60c3c92e34265
GIT binary patch
literal 14635
zcmb_@cRbeb|L;wFy6xM}h}+1Btca9#8_8Z-*|Y4uSGtRANj4!NBnjCiGa(^l6WJqs
zpO?PhbI$j79_MlXIOp7ty3^ZxT<`08jpyt6dR|X7)NYXw(i0*O2$I{1a#{!ku08^R
zBaXy{Bl6#BZ^1u>emeRdTISwp7dK~{`wrG<4__B+w6)KD8wA4V=N+|AB)Edahu(w=
ziha#aZPzbKJR!Njd>%y+#Qw&*&GB&m!_Sg$hYs=S`XK~m7W*thD-WHn)x1ix4$Av{
zf_fMu=S*DU!dBLtpUm<7$`c|^v}N1a6}1%-Ey1^p2)>&1hrR5Bg<X>_?)cy1JV-N!
zBht0B`0;a}C3HG6-Z5V9@-{ydanji`nQ-K<FA%*uhdb{KgC=lMG;l{Ch$zqg;viDf
zFTg=#4|#nLZD$(~Z*w<mgshvjxrenC+WWr8J+#L?YqXxTgN>WHBU;7W$=1`{)*5Z&
z?1t9%@U*ga@^D9AL2FpMxjQ?VJD~5lTcg#T9DLE@Xm4+CKJR~B$7kv6s5s%501sk0
zd(hwe-*<LG>)dy=MhFQAUKbY>5Em3g3tkl$6c)cKs64nbhd`hax8-DXe9~9O0`;|R
zQ>E59r4?~mrtXw+)D>uK;Op4AzSoL$)HHCsSes!mSZ`Ow>Y0DliKpAEhRyMJP3652
zsaJZX_N`tcWjAJ`3bt=~zv{z`xV|@Z6|cnC>DLkF!o`GBQ2tTsUW>izKbI_e?soU}
z>%R~8c^K8361YYsciks?*mAidVAzUxzF%Bh_p2u$AfWVF=*w5H9a~MgYWwQtOO?q5
z$;Xc$zcHy#jgQyV*T1k|go8kQTSZM3>n@Q6tv@_>o>XNrFZg)Lw5qD=24f5X$=AX5
z_V(Xd!Q<b*QzYu0Lm*y^v7j==TrIx8yv?bW?joK+>9ZZY7Z%+9^(#A8gUWNJHTs+A
z;lzwvb+Inbu}^ChT_nww)Q@Kihe0ON=W#6#m0602h%g5qZFD4Xt~H*XR905<H|$wh
zSv60&jCxN5=Bs7UGcX*U>^7Pj8Xo-V<j;Tgij<Uear;0u?OLJE<sIedn3$8n;N!ui
z(nhA~k^KqxxvweO`D%{ib=R9j2@nXBN&(%}BO=;jU3*_&Uu)~xsn1~qETmzdEy{$2
zg?UXIj@skd`0Li276*!AnIx2ubaZswJUk=S?zUQ5-)}JoHV0)iG&G!?oRpQ7!4IE4
z$za+=o<DeibLyY2W@~DiHSAD1vJw~=DC#^OHDwDgM?qt!u($s^tJdgE*733}U((WC
zSK9CH3^weq-@iL&{}dM&H#K1rmGTDcR=jSoU~>w-fB%lfVqs-6CH$ZJlE=1fuGX%_
zL`M&=?0Ap+a<Z|_Oq{Gt>?{v|9*xV)JlX0~KO8N$8+bi&vQy<%8|dM&mEk>}0s}}D
zvA5V^K_Egr@JX;Vk$Ls?fo(AtwO^^QV2|cR8?OiKtrr`VQ&3VaFa#*wwiYt*_TGJY
zJAu#WgUg_?_wg|U`=ynkvd=c<^?TEiBqStTEm<d9`H~aer<q_arHv=_g_;ONc;Sn}
z-o~R@{{8)Z4=Q#n@7>Dft%bha++3lQC=_c#M*tHFlbV)xIwN&5^P}W0k8bh0Z$)!+
zb7*MjH`$HGTP3=`=jLLTj$yK*B6$r-wtFOYM~V3BUT76+X=^X=j8r*KGz1>P$a4N1
zVB-=v)q^&>MDJEQJo!NcflTG4w&Xg|C3g4-XvQ_Xvmbl|f8=MkM}GcHO-)T6=0qT*
zb>tiskg)!-IoH_mV9d9WSn$pJ|L1Q;{HB^3ai<1y1mfcdv$N};wi=_0i;6zip%4fx
zN53z&cl*a(XV;y27<&`8p9`Ff9v5c(-`|Gcr02K&&Y9$Mefj<Cm6<n;7HK+Zkpk|-
zC>3N>qC5EG2MrC4(BRon)6&MAc7Imb^YHLoByC$At0nnI*4%vR`IWo<cH7Ruha)>X
zUI%l`r+aPJuU|K+18WX>LMXttytufyyzFrAo_?K=tF|_!`<PwD>O^B>Wu@2VT-SLr
zruV}RSFT(ke3VmGrkSTzQCUfWX*k{)SqohAAE|VNKX+|xIK0=uh0QRyc$kNuG)zn~
zGct^gjmP@>W?aPPm-I?ay1KfqT)upno4a?xV{B~fpNHA+-f0yL=-#=LAr(A6>$bhS
z>t8<}Ny~31oZ8$h=QKfdHfQ*X(WzZ?b#*r};YNIVg*r5m@`XCz2Sw;f0%H|&%k+7_
zQXh0K4VLmGegPLM8aOyPTx<OEg@>D)`)lXB+J#<im~&imH0pAqQf!;7lvlOU{rmU7
zdRC2e8R-=be5KCsE7UF8_B&>9u9KN?S@~H3&VEN%SBO7y@;qEgg%(N8$_k$QN>?=!
z2;b2Pxmtw|*U~;ueOuaA$nCW#i;9Z65Zzj+oj*4_>*?Wv!ie9vvF#TKju3P4#;8-(
z=cx;fjQva7>5Ugnbw6iM<&Km*mc?lV6G95G6&DnI2-yDvXL3dS{NT#QVzoA2FP`z{
z)hnCr#erI{6*ut=u=e(j4uf)=E->N6r6m#iF7Sa0L&w{<J0kfT?p2L+c6JWWzN&jm
zPnr@dp^hvwJ_>1QI?*z&i)kyvL4-)R2c+WCk%q};YqVPlWi2tqhUIWo8+99%jjUWw
zjM)D^>!wMSr@=MU^SY>LhF8Q+gwbs$OGm}v*RoUx_G3R?EQPL|O2!6P;6sZqta5S)
z1UFI5!Zl+w<s`xF26gjWG8jcSH@9D(Qw4T-1uFIg=W5`*CPFMb3qiRoIEhiF<R=o_
z(~idAsckF1v4yKEmK>4G`Dhd_Lh<<!ZZ@24^Yd1llvkW(a7ROQ$17G=_)WATZnipm
zt)-6Tgo1|LIRx6=0*RFz$d)YsXqG(kIM&IQk5!crffgCP_*q9!uWj6jBjQS+BvH^z
zptuD0RxmLFq4jYrDsD`2N-8Y!S7P7~{I)}nEQiZKh;R_>kFxsjc|>0OY(z_ZOt?jv
z%aDzOklx$7o-MgJtmwH>Q+#L|dDBTg*%}`a^5Jt&l)#_sMp1JA{_ov^d&w0UjFb-8
ze-I%To(%3h8A^P=CwH&E8v?^!qkk~nN`@LYV90()RGo6+<xgq;{)Wk!WIKMc7@w(r
z2Z6|GQ<n|Iit*f+Ss_M*%(u+avrN66*GV2Ifgp2bgC6PofDqu;h76jR_Oc=lLXMlS
zNa0_{G%^4E7(rpLOLiy~Li*V>H|mc`QRv@Grub0b$F?X}Ij9Uv2-h^};9;yz^ozOv
z&z-SYnnWDL^k9Oz<aOuqx{|w9YJ1ez9ELQswKvsIx6~>9{YI%ek*{^}sb3-xy%<d@
zdCmB`CZ5u|cW$#^2&5#OaI<TCjOV^*6kcWOGO9_~rAvO1BZLSMdzO@R7N0F;WIok+
zE@k>mKbfAM_FVcwj`{iX=W6}#_;9)H@87?JcZO}Taal*dIIr4#)d!;v+#T~i*jgAg
z4L+Xl&22m!Tho1GbltX_vEJmgmBAT>3EJ;8?asL2{qz0(-BEXSXJ=>dEx6we&&B>W
zCjaFJ=b2tKF2D=XskaC<72c7-=SF<=@x95klLR=0fS^jX_2BR@EBIvp)vH(B+OHrt
z6RpAZqt)&=Zro7Myg58Hq<`nmHlTsE;qoxl9|$4dUS0qTx|0Pz&$^{_&Gq(b77hFy
z7}#E^n(*@UEHSKDyd`y@>F<BYnHBIfBcmSXCRXaiXW@I^#fujqx<S&<%gZwj+Rrm7
zb-sW9Nxn1}SJRU(5Kz1~rd!HwduojMc3So~fA_#6es{}9(p=);P)iY-g_nuzu!8Um
z$(Q%?WxIR#3Q9|pI;>!_<`)+YAwVlBDZvzvc~5i&9sHT?Oh`x|A|zxa4O8JryXI)9
zsv517M}OghOYImo?&v5WL+uvQ_h2D^!uNN^(a{kJ!!<NY0q4w~LaPJz-TeLi4Gau)
zb!iU$l$0V)yWFbNgFa^RN^X9=>fCs|^O;P_$ka4=|Icg~liz%_==cX%(8<Y3z&}Ik
z>S}5>ObpSjNv1*7rKS8=t~ho)y<}-=iH&>tvQfSsX2z{M{W?Tj=D;m-T=SP2GK2_J
zRNun#{5%(=lgpP0y<$~35<0B5&dm`Xerh~fYCJh?JoVSreXd)yva|#-+!u@`iPu0&
zUq3lMK3l6WAX8qdyQjyr(!s#fQ-npXP{*Xk<4K^pm)FiiGD$H30Sz4;_Q<!ooGPB4
zo|-pfH8dbh<jbO2*gacw4R#w_*L)!B=9ZV2mzI{+)TCa_<1q8^5N2VKDb%6B@Bw(M
zoj6{VI^C4&ve^U#a(Hl%tUtd7aEm^=)mHFnrPs<&n8M<_ReXHv1+-K;akvP)UmHGr
z#x=qK6p^{`q)V3`#e`zx0Ga^I=mre-DHOj)>NFsnOA&cnU41t;luBMTMX1F}Na9aB
z8+#1>B0kZXui+S1yUBATENmalHx#RI9DZg#F)JT_retklG2Lu3b+o@}Sn~XY!XB#`
za^~d03b}$(Qo$Bwi!lIk*nGt)@t>?SEJAMie5>j%N!T7!yIAu~G7ciA)25t+j0{|F
zQzGsL<yMpc6Oqu2>sJIqb8uv&NVn*!kPw`lfuBL{S3e#ycr5y8v+=57V!_6TJlmTw
zbO`jKpTGaY56>y0n`}2-CO>Y>v<=vKIyyR<o3psrmz0!LR}Zgvl^WMpzI*q5%4K=H
ze#A_GiiXB%_?>)-E+wY5wbdkWdjM=ka&Ph>IjNeUHF;kOiXT5^L(B#u-@B0&n{wZi
zqx}Ffc3vDCEWn10j0^yafCZfF>@42gE%|YLxC=nXX}oTK^3%g>X(f4i^4S`~*RH+R
zdHv&u?m^|m>B%lk$mNHW{R$)I5p9C!5OR8erL_v9BI~#a#Mp!{5YNue4i66x3=A*_
z?PY(SdQmHSR;{F^DX)>f=v%0%Jwr?2KDtFEuV33aIdNbC#7>n$#S)57lq1sM!`mM9
z_r99J!KcRFW7NKfXi-2r<-_SoNw<*kowJt{zgU!gd+^QSn!Pan0aLVsWto05&sGxP
zi{O*r!I^%Gg_V`pPLr&?`ywmyzcE*`;3Ep@7#J8B8I9g^IsJGHcgxf2V0=F1Rt*R~
zd1-5PY|FF4u*=9*Jj1S{rn=goP=}uQF^}Gx<gU5tX$$ce-(ON5T_`}~BM9i}>2tX3
zpmc&+G{X6T+}zykNxwehRSVy_z4vr3CwAGmi!s6y-xD_EeI6fAp4%%15wxzZE+&Q)
zqiAcJZ&I2i6@2o}x)Tg))~y<oZFY@3i5F}<1doK6*vi)S>hGIK(~t+cIyy!T0lrWO
zP{})veuziC^IkK_P}9@aF8AABG_Li!p3zOsqx<XEFQ^S{0C;b2Z_`KHEd3}^$vsKr
z(Q|Wm&sRxln!Q1e{_i(`J3@lxpI@N-3sUy@J^gMnMdS>XOVo}r`SobCF7|O^KGU-x
z6u->R&!6E}2uEBJ5*ce{Sf2U*#Npo~y97byV>c9JxMd;wD}LEt8l)z~_vcificDjC
zgEaF(B638<#Ke66{PMY<{(=SNh6g@}#(((mA^7c-Kh+G|Rv)L_xwC_QG?6V+F3p-V
zc&g!?{gHnzurXSZ{k=RnHI;tq_JdK%QG#s?RhDVAKLS<%>C>kVX`~c5uN36dF*>xR
zoi(Q-axw_irHC9TaR3*AbA2G-Ln*O8;`*}1k5C+LZx8RBjcB9Go_wv47l)y;KcGdt
z1o*93qT6O^TRn-(5-&|zqkf<_>P&-RXI0zGkqar*<c?E3JC7}h7WqWL7MsKQ=<H?@
zEf%iTMo6pxX^#3SZpcew5|TVfb1z@6OT;~y{EGu{Y6;2+I3;lq;r6n!vfu&%u@<3w
z&IPv!E}b3p=1AaPt-N5pZpzCxO?n_OMG1h%ro!+d>8*4=6a@<&=9$Ly*|BTF!Y_3$
z57>!JoJ&EUL|SWLo~R=b(}qU;f6oe~_%b4eL)DFt4iHRHX=!PJ$4ujqBOg3yqC<r9
zd)1EFl(%e0#hr>^%w(sC5zVv-9qdV+6^2*feqwkSbD6&f{T^s=By7OoW$kqIHN?&#
zHXu@h>uyLygd;6%>C9voP>5!tsu2kxA&NmFtQ_)2r!?}+1z4`8s6e`h)C(@asu)dp
z2AiZORXDV5Y-}tnSSQXsK}J|(&w?%51zvi5GY9X1M*CS>!pv>^b=j07aapu-n;t=U
zMG2J;FK_#mzk9dGr1%nr#P7-vrK-4!Kr?bA+%6j6;N*m0s>p(BB>`X;@*>>wL7Z8%
zK+FrTe-PM*IR#Tw=6FpTg+)cV{)^@oXGpNgb?L{Iq|Qq*(&3K}K0NqIhd_}gbi9Q6
zR7(pUK?PT5P7YxZC}b}$iUO}m>=De`q#l4B85x|3-0+we_E?ir(MivU9IgmLSKGIo
z7^-ZSe-J)aRU>V!t>9AoOo|?OndD4jE|Ys3GY~F-`*`~{u6q2(j~}C>%U-pEZ;bC6
z7%aGmd995*3S1y0BC2v2&e1KB+W(c%BYF6BX*+1QcEY&MM^JAK<3^=T)9Wr1dNzvD
z^>r8EE}n5~!$>{wlF0!Ad3t$)J@A^;eJCt^Qteb>xVtuCdiQRv@8;aY^JG6ADxW{6
zd4%a58Y<8#G`xE^EG$gwX#MlbNR`xfzqYEXD&Pdh2J-uw;4elsS0Ov6D0{Q=6CxO4
z5do37243L58zOyA;KG;APDs~9MMeI8evG8&1CN1MsjjY;mzTeE=@L{*wY89KbaZv?
zDt^9x{TcujFgi{X4H7&&opu#ppxhz8ESCg`^~Z5(ujV&9G2sA@+5wmFH5r@`_V7Zj
z$9O7GVA>pfFt0XxqgBXD6RB1Bvh=^kZ>2n~(m_#CQD(`255>hQ!lwo(F|cz)(oLqG
zt~60)Wo4NAemo>rDewEt#<y5wK0QN2diSvvud9RLF77Q09<K-N4q|`2F|GxY1){=L
z+wNzHiGuu{tFLaUn^Wymbwe#At&-AZgHeQ18Z0#x@jyUIs<EWR5x^HMpV7B_!jN8U
z$^j-WZu>z%FVp9W5TcKU(zmCxb7_7)8NlD)7{0c;8U&CUu&1>+|7)$nA*f_&*|^ei
z5PT^rueP?fUb1g^OyK))Qd3hW@tcm9S)P~IWDs>?$1ac6>gD$h^!FE=)cb+8sO7u2
zL{I}3wf|8(T;*&U7+9~6J6z)lm;vxx;6h#!l4WAQ+dCpMvO18TVzzvSn0^HZ{YtL9
zg^TUp?a0ql8eCK-O9B5`Z!ULab<Qd&Dz5MMV2q6~+F%*Yeh?9`aB<;>6y$O(2A}Q*
zLp8hYCoy69B=rT!wo;yuS%tEe7R3!h3QU03i;j*Ci&UXDTH&APq*bD$qCSi{#djfH
zi4zJYv4lV*O-)Tbdq$PDuU_}LUsdNwz2M_h7KB`UyEqb<8jBfs489>T4mv`Gqwj0V
z)qN)UXDlL@ZS;lkLbw2i0O2&9Mm~-86a4)5st&8CowHwQEOQ=EF18Sd!6T`jIFvg6
z^8+bQdiKBf$toNfYHhn*Ib;tsE}sRf_;sI~Y;0^mo6Pv5d&4Z~3Z)^c$yxaLB!}C>
zmAKhDFTiVA&4p5gAbwF&g5_+%5U7XJ7!a&14fU0DNGwGYRkv9^3eo!LERsy!?|TLD
zFj?A8C*rLM5;5bpIj0)i#`c4bg?=%w-M0RJ8g&~BPDose3P*)uiOyxXv&xHXlZc_E
zM_AO$+c;=p&DDx7xJyod%hJ2mU{&Kf()(J74{YRmUr=}$>AUy{tPMmxF96^)V1d*+
z(MlI%1n@$>K?HSkd$+gq(*~?GM&Q?Q+0M9o>(tZG;=E0{50Px)As=Xw1h_1F>jpw{
z=%@<ImHM@#h6L0f`QIWKqy-BSDw@k&T$BD(f>;sE2NH1}F|Teh#&y9E=?_MHku9Ng
zEQ&}tsH+tx--Ex<c0~Hm$E*%3B^8yg?d_BPXu)P<^h=;}RJj7aKAl?cUHK~i^0p<m
z`_a2WWSJE*)B+~+>QzdL=5$FpSqZ$n<agnjL=+yn&ELQKigV1Fcc8GXRzj+&!cW#T
zn`yLiQB<VGlbJnFS#Vj_?HwGJTca7E4xRQ#mpzh3W>0=3jDbt=S{$xvQ(c<Y^#eK%
zi|<H13UAl!$FkmOC3L^S5a^R#X$ztUsHW+1lW^ht%L2-e_4)C}0k+Qm`n4_*kt~bG
zzI{;=>JLYQo*W98Tocr5#&}G@-OC1%%7pJ?Ds~%=W!lPiOqjy(p0cif_8Asn!@6!d
z7fHVorup}(J+Oq74JDL?L{t(9$+m#gi6eFUvlzYPI|5(*rbd`O1Zd+q@SVbgz_#cY
z%~^-e>%Ms5QOBWyKhvlCz)mY%<Sz<=0;X+O`a?)RmmDE}-i*kD%NJhWeqdSUH0D-q
zq{T&d35i8rr+OAM*jzIQ_v3@N$a{JAS(iZZp-~trypjC0x6dhj8PeDHoZn0Eow!n^
zXoZVE@j!hK{RdMz$ly}z8j*u!5lZ15$^goM>e6b-7nTcNsn6Ki&Al!V`{%9@+)Ns6
zI3yOzLwUkG{R?$55-=jk7{y$U_FO9rjql#QtFPZ~<ZN$m@8kq{0XW!_;$jam##-;S
zYZr(gJ$eL;EfnHVa@>kx-0-VUOiTp2->9AlMd+1EB`++QBj#+`rnxmH+do$0**WE+
zXsd9+Z2Sjcet<pSzP<I?n11z&W3FbvZmcml*wJwXCWegZ=DqS^LqkI<LU~KeT%|la
zN5^_dV`nfE=#d|TgH@H4sVW?#6G$X}pZA*kkOYg|m)~Q3o0a_HrS+SK-SgL4a@Ux0
zoB+Y)X%!CGHJopXM_m0+8uWN7j9HwKv?lw{|HxigREFB%*cc>YJ3G7ghK_gc+;Ml`
zJV$nOy<b~>c5cqE-Xu|JU}Azlo{0*HTzTwJmR6Phf-1+!#YJPw7WEDv3Eq00pFbAG
zn$&sca$<``_POj~hadNZw<MrgwI~zNo9Dm!_XGGK2>LGe6+fRor8s*H@}DFr9`{sw
z^ayn|lvuesaJUotaajm1AfboQHj~W^jfVH{h39IZFnd!pU^f@hxA2m)7osC9gqo6)
zA5`TDPo4Z-{cP#zQ<p9&hORtb7J9B~uOwQ+9qp-a5jN6{H;iW!CK=4HwP%mZ{1;Fw
z1}Y?HWlj9}Q3-@65iQ?6VfsWR>+)d;g4=%ez4zYh^HRyvMYjTU|NWOqRY|*6QeLiI
zItbk&J<~u>AQPZC_dYICAU|SPgJ()EeCvvR-r{G|s+MrTY1w$PeDU|k+w!Y9_+(BN
zx5VZItB==OPL)sd_il28XKXmTxCnr`h=?SvJ#gWaM*rV)uTrN+n<pnh2^}84+Q~8P
zl<GIjT&6Hi6Qsygs-GmodD(T0qEb?`{N+Mwm$hi(LnC@4PfIm6R;+C`Z_BI<X4NN*
zl}Dm5eleNHlO8|UZ(&g*EoA9~>chlqeX$9gSIkV>ejAZ5Jvx5#$@wU&DM)34PHj1A
zKOaFJ_w(;MB|Lo!oZY007!@J@7=OE!NYU%pmw9-&BXY=iySuwjrpSVU7QS<tn&lT*
zUeMlD*mcI6%{*n54F5PR%(x}S7{?12?Ufxx?GmtTYM-R0X!-d~u06Q2(W>{=()QF;
zpI=%qcAj8*;xsj!cT(Fam{E7x%BhuID}*b89;(&1W}h;gspBC(e~KAjH`r&xe$zyu
z16Y2N+-B@1O)+>8d`;+S>;AgngI_yjo0X`%c4IlenD3@B*3S~AV&~f;xT!Pm>MgV_
z);8W+J<06(eY#t`FgbXlUVZGUUzTtYy}*+!N7xq4AUf)_`>P{ip9z`&wuOHEp|J-2
zV7crL@7t%;n--}=+Xgw7lJEPc+mihQF#Vy^o~FSH^CFnLI}z&qulfx7{=EOWue@g7
z#<0`YePYjAjLJ(6Q2*GrJfavk<m(?o>`g)EXHJo0ZDxj+kTA~HfN-bAg2L^Y_PClF
zQvOkpzeVPLf%>gE$Fk<74#27U;fCvz9GGk5nDLVrGikjM&I&w87VcJaEe+Sz)+h?c
zAK&99k}gs`l-N1_9xU*y5<zE!yTfj-$|%cjNRDRnI6m+!R6P&55-Ia>n5CR98WCLj
zC>g(%kCvYO)c1Qn|0TI_i`c78e31f=E_@ZEd@EDlFs06#yVubCWyOn(jI1Y9A`Q%!
z<N*p#ZZfSGX+`7Xf8rkB6Gqcr^l1JaI$dWs%A4Z$DL2pfdFA*2WXK)V3E^5vL!Aqy
z5ydEZRIRjPQf5vX3PV&zM>16x^LUKtQzvg6IqT`|(4HfVS!_z$uz50u-K-;nvP6b6
zp39u%77!k=2$y`kP~HzvQ1nD5@ey(C#gFW+{0gE`)Ngzy`%8+As^+|@2Is}c3HL~@
zJ&CHris-H>32;R$uB|1RnLI;_5Mo*llH@;5ipnN+k4m3%*WSo{Xn?+PF}2zwzlT>K
z0=JuV;UTY27Wy$;`fc_n#n{AZndX!MK&E1hF+khG+AyI}p)XnrI$8C*6D}SNC3BM}
z^|56QsWUrK_pQxuGRePv<o#YrKkwUM@8Dokd^}56g9{!eoGiYF^mB*ryDN9&svKmP
z4)vr&$2N$wJh((Bo*gq?=i!@GV82uxzw6mNuPWbLVLv$U9>$J*fSPWF7&g=8`wwxD
zV9;F|)fbGyH9q`sw%Da&_IC}Wtb0##TP&alC2l-=>ZnGH%hH_nO=9mW9Z}^nHD#yo
zpTo|KV;-Rhc|l6Hp=m8AxzbYEc?MjgYPU<kU0nB2w?iRW`0$rL*=CiwG}!tCec`H)
zAG)H|bu(!<-4=<l&#+Ro^16Vr3cMIPE-sNGh(ORjKGOoALUIZ+Gc)O~+BC1;MKZ#3
zFX?udPZu#PomM)|-IM?RQTeNc{IB*vI@-VfZTF>bgr*qP{ht2<i?a~z+_HwoMcPrM
z`?ls=7*1o*m{S$dgSSq!TnS0GQKF$&_Kd9@(|pO6qVOGGhYp?Wj0WuE%PX}`kS?+{
z9piT?KltkNDD$EcyFGo3&oJtvnZUe9jTtBDZ5;YVnQyE5D@_39D$K??=As@=*AX8`
z^<$g6s%h$I+p*mGOWDHZugs@|WJ6p|2!L0D=NnJo>R=TiJlb4XWY7!CIt^uZZ^gZ`
zswVNPUfRa!NI9BaUz;-ff+G?oP;oMBn^isLv_oAxc2?#<Qk$<!*~3aBkC0*mSB(UN
z$H$d9`lo2uy9I9WVRbv1Ooz&4`}^he*cou~R7z;6siUK#%SyQtmF}-{e10sA93{vv
ziai#KxEPduxG}?OPtV^}Sjd8mm=PT(!NEOIe(ol(f&_ddOF7ixP*9)b%Q!~bXm*j-
z^_fUC|0kQUTMZ3vWxE_QUxbw~&Pc?RG#bkl>B3n)UH4VrdvBliC0=JL1zt-#Ui!s%
z1nW^macD5fP_9+0R#j*Jw@<NV_)F~1xwW~AHQw2VVNrexintlBGI1jK-7F}~OO61)
zhb}>V_-_iU>zVi!L_|WzlsFaxP9iDcR#vJHXzvw-Ju&<J4$t53GaeqlzUeQ@GR0@_
zUSY<SIJ`nLTt7X=XipN;FR~bYqB%V~sTr@RjX|;|qx!;h`;U#F+7ClY9IryHRm*%C
zT>dH4L|#g7X@smwo;`Pyt(i1pIh=aAU03L2)TYki5~Vgy`KxSEXSQTs%oe~x4RgMe
zc%OD(1wQ>B{lWIJ8ww)*wdIe>eHorpu+*TCpJ=ZV5eILmv#$DB@$3{o$w8%6m6>ys
zvxZ3{tIT_Fc?=qL<=*bm8sj{)n3u2*|E2w6hT38C8bttiJesR%4<_In#Wz9ziu<bE
zp%WJ$mD{RPE!nd##V9{H;nwaSlomrFFI`Tj&^Q=8AM_B*-=8VcTU3feF`g-cw=IHV
z!ozSA>f%$r#iMGyly2#9ba(qY)5~P+P&r4lRs1CL^|w$TVOI6=*)k|Jx<|_z6jJLS
z_EJ0a&{J5w3x9!>{HDQAJ*D?aItnW(em;ja{eb=&FAuJaoz50+H?AiB=Nnt3ZfuiQ
z@puFg`nu0}@i2l!*NEh(i50(He8~Eo`V!Ftjjxy<TpV_y&WMjR!YCkLu~@v*B`SGx
zjFpf<_ziG8Bfi*iv^nDt599nJD8_hsFq6_glOG?<w8a(;EJEuHq#bj90FB+<%STpB
zYP}q-t@A!l4b}TseKO<X<sE%z9cfs?fh8s;20nasv|2k)%XN!m@^mlVb+Pd_H3IwC
zTAqLqg{%c3!i^gY^z>@b@#^p2O2|6GHvEgYIeo}{^l@h6XqvW>i=Y1#<RH{%Sa`-c
zXfqAiBk1{LNcej}>LCq#IO2^HJX3Bib<7sctQhj-)4LowU_PLm4?X%DH{c-$&@=+f
zu9Wu_<pw?M(b3VI99B%YTK>}NDxi44Uxp=>K-E-Nr=Z+mywFd9mO<J~6^pBiO)Dqu
zm$d>!GkcS@yp_fyUTL&&S{LYSu&962Gej4WK-4MZX0P?$6Q+rLRE-I~jr3hEYYPqJ
ztjW%NoY}->kuM84R9>D~x;Wa~fSgX}0TJr|gluV%veN63<XIl`bGJIzbMZgsaoK1H
z+W(Rdk^a8~tnN~N+_K_S(jlxJFX-PSOF6GyYJcU%_x}PpQ}oP4^`v>x7YWe;l$|f$
zF|(z8A)y<io$r});i4iujhox>;fk=RBKWzobHhuie_((`gkIh`_}ix=2VU+BC1yGt
z#75I8qcBEs_U1(iHg@c{(^~7GueS5wQ--R+zhth7ybitA--j=RlNtBxkZOy_?Vkk=
zge&s7%$4p=xoe63Ll#$@&YrI%N!QP1qkSBFU5t@5i`NXunQOSR=qQE)QvA47mqpF6
z6aKVC?KCCl!l}(rDAxFrI)CS=<@50KL(4GcU~dK=*L+kO=I2XmnkvcOT??SNB(Gv>
z$4<ILCm650{elLp9v4+v!1*TX_xc<)$xeRHzD7l=*DwzUBan``jhBr0277aFQBqPS
zUAarMUX0&6!-rzUi=i!t9^3HyS5%+K5Eji&RcF0s?=eq3U*GE!mQxR?9tPK~oBnei
z5ssgzw4JdQ@EiK4_4V}uv5(Fpu}v*%8<v_VgvI3>H~fDT8<+-eCyqJ&_UAQ{EsL7m
zd%0J}g+z>UadR)Mt(`6wm4c#5vZ1Ys8<^`2DFa#-6ygI*LI(|>(cVISmPxhSBguz~
zta0?zG{qn>iWR2s0>WuzWaM~+M4tG8hW=YVB;p9vFt^pzBm)nGC(ccg0{0y1DFdu8
z2GayRrx+#)Luh=aq;%}Md<c=|LN4Rdo!zUELpAl~AT&!4mS#JXl&AD1R<&}0k^Ooi
z^ihGfJ)qZjC1b*y$v(+~k_>@VH84nNu@Iz>4j{u4jdmf+%2fosM>%N`A(odDU%!0$
z3)-CG8ERW?+As7U2Xn>YAaE}8@j;abq9C9|1j9ryC)v{fAn>>Z1<OEb28<*$;^7lO
z#`ze9+@C5BBqp>%NQb;q%ScT~=<DreS*^E0A$=zs1BoZta1ls{@jBnEpo0Y{>^Rjk
zzwYW=;M-$we%uj6p!lKiH8(f+_rD=(yR(7&AntrY3{HrckpIqdZ*Q-15+4v>`Z9LU
z{&hG<=d!YrQa2#rq$JKSx`eB01^LV`(ohKWYE*PI$dVR4YQBHhYG|VfyjSo$Mm>)U
zAzi1aqLO~Ydlj10*8>l>`ulYn!YHlv*?u8+G|z>6cr~~L?N5k{e|b3Q3MJ+sP-|bl
ze1Vo{SXj#r1M!16wgM{r5TB&P#Js^JSU@=QS+?D?v!e*|<Qv{j%F3P4)cW)1&mNO<
zKN{tB{;&W?x=vYD^$H&!EbUf*p*C3RK9iaUT7>>?+fV<AlNaX(1QBR@pn(}djkq)7
z3^(mJQ@9{Iq)mlrzQvaWv9=ay?-wtm3w8cTq;s8hawN8&E^;(KsYRd~)75^LS+?Px
zkjrZVPkW|rn~9a;3$4Tm_qS=>mZ6cLW&b<qzP>(7feTO>o;xYjD!l2xQ`}_(yp)Cp
zHz8u9C_g{{{d*56t65gB2cH~)I!=s1E9!+lN9FVGKF6T<#NZ9nYU=9hK|w*`3@|DG
zoIihfcz7L7I+N~5BS55h=3e0pVBKIwH^jy3O!#ecBk;NZ!OU?HCtnB%A#XZ=fgr$d
z^zFzBP`BR8ROu4_m3<3!J{zo}xe?^t|1{~#uAvdlwSZ?`c4ELAGDYll_4JbZ7JixO
z2sWvsqt;J7>Q0jcnh{OctwVRKde+XjAMW{{9<epUKg`nD>Ej79QD(D`_?WQI<`ss4
zd}>*e#(7#9*WDjK)NDb%R>&o;e~3WiN=Qf)>6TbDydPOvYdCb$)6;|A3n&Lb9tT~z
zc`0C}lR<R>iqx}J+uHKTY-NZa%GBsN3<hCg$Q3!|-G7;|ic}DA-(Jf@pNh#d#ayRB
zdNK?eI6J#V|F!zx8$Q>Z$G--xKB44<WdcG6RU6-?=3tBc%4wpf$C>fiFI|odx>^=x
zjN%^iMWqdXtJS|>sipz<`b_CktriCh%cohlF%W}Yxv~;}i>W&3xTc2(+65Kw-;b8f
zV3OnLqb1XYAe>(k5%D}e*aoQ^xYvE?ng`!30zH}QOlwc@$tEP;fg-)0RFTe8YS4^`
zi;J(;Eb#$vIW?4vxRVRwsHEiN0u3%Epa($7o2J5%+uKfx6?Gcj1B29iV^j_N8#L`3
z_UF>hojZ5J?*?!i)TVH*yV&}?G#V6a7-UC#dqF|LUSHM;lz>MAr9mP>LO@8_cBNiQ
z=(x!gd)f!K|GOt^0;sNQY1Q;@9^q0V(7~XjpuiYqcRsQb8pbw0ny1C*j<AqqK8@`>
zrF@K9-6NwI65HFyuY@3^XW|Q;9_ug9xWBf5)-F#usbS}*J@k)2s0#Q(+<0=r6B<GQ
z5<uMRxBlt;%)Dtu^11B6rLl5b^;@@Y`S~5d^n!oFEBzVwUo&nD3hd31KRxO>O^=KF
z_8;vr28V?0Z*sx&W+3c=rQF@jI!#ASZ@OM*j2Wx-W*~mt)YNq4Ze_t4#mB=7!R)5T
zJnGm7xJD2ni~m<?ME0qaV$gYB;V{yR;$F-8N=jcq6$Q;K%Z*JUNr>RWw%zH_Cd>+s
z{>w>;02iyItW0!F2)zS)M@I?o)zRhQa?9)A?@?@$jf1=pG)$0^2H-vB=4>$Spane3
zHPey&nNq<GMMco<`d>AhlzV)V(GN8l>IFvYeBB|WY$=4EFzYERM`E(?IXLJP>OgW1
zAk%dL`HGIFX4#pNbEFbTRY)fPrN6g#{P355U6b2X(<4ewwYshE${=>y%a#q}iil|G
z;orMk?KTT)s&gm37eN6dm#x98|8^1%xIRNuyQ6ve_}&y1DXXY}<9TR}+!F?!O#lcL
zfCIb<VF!%V-Q7JhA_9!mL);j&U3d*dhc9H}FN%ZmHF&$o6tqr(9^)OSGdVq%`|K)!
zDFuW2?Ozw_4(tExmsQPqgFG!d;>R#G%gbkC*33*Mz|NawPuDgGm2cf@%aM=t^Ya5q
zMbOa<b8K{U%k*#BBh?J?#4#l)9Ptc3e*QJ!H=L?&q#qWZQg(<&<9R=L`{qr|%*k0C
zNKa1}oe0<jpK>=a7zR!Xh+;Q4Ar`sZUa-gHE}Lit*@@!bd%QHAcnzK3eQSUSO?sv_
z_WqTQm2a=Q<UafL>-*VZOgW8Pryr7eC{MPU9q-+1cen<+mey8<1F80{-~!NFDCI4#
ztZeU}@7VQu1kDF#077Zb4cC3vLGp6ma%+=F@SWMGP|$VrHy#P4uX{}d?w+;!A&Ns5
zpPPfmFFM_MBhvI}8hWkf&1{$C2s!(uKr#p7TSo^65Ez)9_)mL?_kI5kfyTXM)=kyt
ziSo1Phafrv^^^~|4jHo~G>YN7c)%`Dl5g&uhj@lQdTaM!sq|`WEVEQ*YU-E%p8&;+
zi+Qtx<8Bgbetepc01Z2c8bCNMEiLJl7*gkEnT9`t=0Qs&?ODq-H`fvnfOp;L@$N+a
zX~cxzQi*M*@7zWkbK{J5j@Uygcf0p_d9#hDhm8a*RPvWNIqfS9qZQnDmJL923*Q-P
z`GZR!ylt_7-aa51Q0UJ3x8njF7%VlFy8rzpbo^3Oo<Ds$ed-EIf&VGOm6(vFp~>&t
zKicdut@Y|!+TPjO0jWRe;2`sU7+Zz!d%~&d>5T9$0b~aHe>OKk6S;7v1-L4&dBRK^
z6ojvq+Y4Rpz3+L-AW-y7K2P&y7VOLo6W%tnu(04e{e%<Tw(<0Mt*`Co@t>r|GqCag
zejmj2%<=JiOly=Q^$K)#4rMk~BNIV~E7{rEFf(_GbjQweMR$fj%*rhVg@}j<J9~Qw
ziloevNBL669Sa_kTi;}%alsfXzz1el2cGURP|(w6EtImeGBViL2R-0Qr!i<O?=uy@
z1ub}8ULGtdG@l$mcU7o!O+@4@1LhQf!9IWXZ0{6YxE&XxPI_=~z)0Gb8!KsOVDKbs
z!pBM|1*%M7;URp&T<|7zIDw`Ij6OA09ON=lQN)<`r<au9m^Qu{u!C?qV7ILve9(7`
z$@kZp1`@Q0?mZG!wmq4kH>eu-TLScZmLA`gmqQNOuU`x7nRNq&_Zha23W&2H#l8n<
z2P<~Q;6TScnO}m5OkUHqiW6meB*mB2LpfAuQaa|OuBvMN1`3Qvm`|(zpU+=tnx8KK
zMUt~0jQIm>0Rg>M*yG3Zjl5}H@Om#bxK<&ji<7^z>Ue6K6}SUBN}uEH!MlcrCr7`f
zz(>>p6qM-Z=jHj<o0RAtg7vL|QvUSh_;RA1nVA`cJ}P;69#lkiY}_0rJ^_nlqsP;y
z9Di8C8=gpBIE^K0Y?f72R5SyvbGTOFR`q#iGo;|bK0Y6qYtpl`5B38m<S8DWqO!7$
zrbk4lfA~-TfFn*pF=GmR`PH7AvdjVI!t~IXpM`xN@87?_r2HIktGwXD&|q0gmIDqy
z1j3{aboC$)9f#Bv7$}iJyX|w+xo$%tDCkU=HIMf}tFX>vK}%Cp^L+z1?v&i*mN6pa
z-acf3<Thw=eWg=}&irz{gXF<{ZknhwNa+hoUs<{avC54C=s+_{I?999mKAW%I4LNC
z3~k28#E+1xO9X>J#FGch21bRyd%}c}4vnM7M<8y?p5^%e-M8$qn4;HR5d?x<7L>@9
zcg}&_Nia);*;sPq^@bP)h@e@8`@@P}q9dUZ>rnI$0u6ec$3!EqL2pEXJ0)gzcI}4D
zA>97I>~{Fioe%&1*?Wa@t5V2yP&f8i9tY7(a-$O)diIkXSz)in+eR)B5VD{iH;rpk
z9Y*3J!nMBj7Yr_`Dk4!F+!3tUcB^+N@0u~EY9pq4nLq#hJ;mhz3&CPR@b_kSL#~?w
zlC-t8m6iQG-4dAw+eMaii#)-wDk>^q2_UY%=(4fDe_xY}3YbTzxhg6WQEssJ1{BX@
zQ!XyMq_FdY6@^BDvhP1L7{_bldOs0S(JH`KFJH>#_j!7sL69$BluC5(-nrv>a^#C?
zuXg_pji8Te>1X>w44$@FRC_MbY<emvJRWxF?(Ag4w$Hjjm#s`6B0fv=zl4d`{)aFT
z8wdL7s4!93sU@I!8~k6~bsBGTn=SSx#8z<2<2=x6C@beO^CT+$$A*d9{HVv$qWyi-
zW%;m)MUJ}=*qqm|BLX`t%HCI0Tmcm=*gt)=LY@|EWrD37^(M~3^jBzz<TVv?T>-EH
zR0EZC-z(Ln<z?6yk=;lc$_&HT2zlKLaj-Lqe{HA?L{t#CC@?##V?})n&?40>HL15B
z<je1?wrGif=p<tQV|k>iw4uQyx7T5;Ceatam>g=7y13rJ2PYth#$>OP-T$jR@k)C!
z=G17JFZWk(0^1R!Wf&G0a8nTKihlwl#18Q3hO8M7(pn!zJZ|urB{{-|#!n`>RiF4q
x03$z?_F-6lM*_PHWFoEEiR`hkgXhmFPD6wW^|zf!F<3gpZFx1hHyE?f{|0v2$%g;{

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+-++_S34.png b/plots/2jets/kt3_100/ggHgg_+-++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..32e251b86437baa23bc3e9314129eca963d63280
GIT binary patch
literal 15444
zcmbum1yoe;yEZ%^=n%pXO2ZH$BHbYfLyAbNh_rN<bTf2_A_`Ih0-^!}3P^`2sr1mG
zNJ}V4$9LoJf4=kn-}A*f=bg1&>YhD&KXJ!(U-$JyYiX#QC8j4vAP{G-sVeFq5cv8C
z1fCQUAFe3%)TqE;g}!?F9y(@TXcsqUD_aLkw1<z2CEC*4)(U~}9=)m2bQWKbbl;0u
zS+)P8(`QL0ndq~$EN4)ZfgHt_pB?vit451@_8lIk>jx8+n(wj-t%Ny=Rp+N!2IjRK
zp~4arok@#a*h@baq;U4}Mw47b-}^kltFdxcNAN8pg0DI~td|2<*gfsyPS}^|L6$KR
zldhw~Pni2Ssne11rqO!0m)X9klisHBlp}xLOYysN_zTW3Xd)NYJMIVs3DwCTJjAnf
zTDWNBp``Dj>ulxWW#(pyP;j#}^RTo)d)a!}pgn9X(YKu)tlZ2T(duSS*7wb<Ezwra
zZfISP`xcf?9`0yfw3eltyR(y-1Nx@BC0f(T!3Qmc_VV)L^ZMs^eD|CkRi}KD;6<z_
zFZ%m@TW2S<o~@%LLP$VRQc6%jN>C6jC@du?A|)(%9k()vK%f!V6y^22(^n?^{F82G
zUR_UmXZuL(#==>HYrbK(xO?!=HL)e9={`RdDzPB+GwQXYC5}lsgz0mZ-b89?&YOKV
z&k1?ssswhmOJz*_xkWU$2zaGlI@*w&rS2oidn)qIw$Ctae*3fVhJ$+F-Dg)cGk<IZ
z{!;O6oBd(i@BCGAYE2S9CI^W?$W_HKZZm5X=yFl-tq;t9&8i$*ai8moPDt4L_RVQ;
zZ%;}}>ihTaLPA3MM-DK@cdl&dy*390L3;(SUU9Qz?mY-PxEBym*J}Q&@ZRd_GiMrh
zzQ;a$M&EFS0q%B8m)jY<ZE_<^_V9H{eVIX#?3I1^!OYH%HwLMsE$%c<yZ<F~yL7}s
zIrm|`jNjJJyz5W*dd?sa!Gdw3qH5X$i~R+$v9VY87IMq2zfSthXWYMk-z0E%c6$1G
ztNDkS1nDms(&9owZpVk)^K)~u`#;MC1qJKs>bR4azD2S;QOhgV6uolgU~KAWt1;x%
zz1sBo0D1<7uNl&}4Gg4O#fcCIfoG-4SYBRU<y^t5R~z2GUH{RZghj=+nhVf&bavh@
zF+SX#&$_z%BZ)!GLE`=rHLHb-ivU0W8eDx47k9AULT;2*@cQ-g-k)W5c6K8pBX~PD
z(VnlmrbcG%-g|?Z>grA3x)F!fr6qb=TI94SOin;-C~7^Hzy9rr!|`6pv0eGd>C>nA
z46Edj*REfuidG~dBBG<C(<#);)=KHNI$5d@A3k8RUB0AC-nen2D@lSe0cY&zXkqcu
zL5xM#UxJTsmF4&si%HPo{W-G!{2P8h9;%G5mIog0RZjYLI*5^zlf!M^O`(Jg;!dQ)
zN-%_VQ9HB<E$N>>fA+Ulu3x*ximlz9OS`C<Sv&jWE*l%$f^=2hBVvNkp`jtzgUWaB
z#y$FP9B<=4d<gdor>bjSJ@oMLk(}5W(AE4<2g?eJ)v&)Rtsak$kdup-65acQGbzZ+
z>(x#~m6^B3Y|MX!QIHVeW1{5HE;aJV!s6niS^gkN5s`PED+ZO;u~AW~nwl&%mov8?
zwp+Bfw<q~t1rthQTfZ%TIP>7@(T^lewY<KR6xwRbwaGfa?bQs~fNGP>ER@^U&ylr;
z<G}eZ8ArYt_>BqoY~9s|T3pn`sa&d+Kc^awN8j5A`W#hPS9f%%S#83uPtyc4P(Zj_
ze>kO#g`fCi<-i-v&W4~6h-P|xRs;eoN&wG7+9Tm>)DQ}Zhd{q6rABskbPW5z*TL7C
zqW<3N7xMPa8`7DRd&TZ$s4SS2)bDZImk@$w$*0g0B7)yW{4b9leHqfT=;7;Fz}2zx
zBfobQhJre%z1XRD^Ja#myE11|^5e%A78U|4VCRE_gPt`38*|;^;o;|FXQ!LO=;Jxr
z+3&$Tg;IYORZhMtDJfVx;6MJ&f9={ehgx_R!o-J;LQGuz_2AO)-@ijcLt(!86E-5u
z(w=W#ym;~M-R91(8P24_{Cs7e^SAZ%RP*{qM-4D-;C8DuYxNT~Ua+*%va*?V+jy`@
zRQw@YxxGK;=Pz<{o<Dc){rmTKc+OYX<>s<WN=jb7eEH%<l|sFWiV8cCXU)x+a7?M)
z;Hy{~{!xdDWn77L#+S~g{GGGEqoR<WQzQsP;|rfu`oZNtg@uJ!)I(K{WVN%W!xY)F
z$7bCm16V#7ItkFGoZsur%w&#M?3<Wy6rrC2ho8^%<CBtl=3{`f^BtfD<4RnoL|&kb
zZu$1ydCZ|=cvwGw!l_btMJP4Sw$z|VC{;aAr|#f)=O$CJQH|&7_y-u-oGrxx#9So2
z|Hk#}_6`p3##Z9v<J~?Oawk7i=ZtO5(J6dqP}F2f%g8uj_g>igi~5Zljy5)E?8`yB
zWVON3(Q4-@*_sKbQhi@Pznk3WmYvUphHJa$91j@h&V8(kM<B+33$YoNS+oznzP-IN
zrlLKNz$A@iRY_pf=1y*HZH3@5+z`|-Xa{3*)Y0kt6wmO0S*F_hEAt1#dV3sSIObte
z(#B@LW?J{$!GS-{Ll=2jxtr*4@gkBnzcYvp+g4T?H-tnqN`~CkMz@%kMzxxU$W0He
zx=3)vP(~}N$BsBawCj2*mKLAGRjU7U?`2t;ka~OsNA4W<&)yx^4jo+MP>>xz(+ZMR
zuw4AY`0jU`_*|J&2!y@zgh!f2;;-Mqs@suO%JLXhJ-vZ}8p2wEQM6`y+2d%R?~n8D
ziI}G#5$X5VHi?ijL(A4i&cbGK_20z4Y>Y~b3L_A2PlurV=kF(~Bw0HDinGg%&pk^e
zc!wDAMjnlIjiY!{OZJ<yb%Ra-F7YU!v88bgPihkmI9pf#xpZ%hHXp`|>$cR=`9$Jm
z79D=uBg6cDniC-cNwB4iEuN)HIr<(ecnj~;$7PSpx6b0BU8+*)TQ_M;)C11-RMOlJ
z;5`^2K;X4@6a9fZDei1N!AhI_5IA^yRfYs%7M@1IdU1wy`qEZ`H6Hqn%M($lKMo2=
zs-1Eo1U~UBRb!YQ_1Bv%=rsYvIuhTkYQ~70cuk5FA)k<DL5F0ny{`1lC=w6d=6Xwu
zTt3u`uC{hr06`$>M7+f6z0P+o+>7aSFgj8cGi`F3|KxW~q#-D8@@p>;0_Tv}MrTzv
z!r)7oA+B|XN2++HF(_onRH7m=LKj=8JuS}h5WkU{6%|n?(9R}Lc?qFT=ogY$oUbCv
zYTqmt%c0(U6|qA?yrgi;J2Q~6;u}kF1GE2n6Cug@pQG<P=dFk91N>ZFe@z`uOzm#D
zaCBndtatr=&YBjrlJ<aJ=C=>?nRhFlGQN_lph@qP{p9`Cne`yG?o#0H#y4RB;;-xE
zDEi+U8$rL5vR)JvIFFRghMZw;`|@S7%#wulMRD<J#h6o?w3m~C!DvBNpc-;_uq03v
zQgu9o_@wJ+Ccq3=U8Wlgbqgi~_gC&O4|S)BYyRVc*u<&hqiu-%U%R?${|w!gmX^MI
z_pWozN=2%$^`zfg-R0ZGFHAO@&afz!sdJIE@KC~95b#E}eA~-AiQYj1v^9{!s5Gx=
z-?@|e=+SRT0Y~4+gHo;r)dQCB+j3A+YJGL{b!NcU2+kxZ1NHlh^xDh8rOC<3k#g%X
z2eCTit5>c#h|s5{rSTh84~&o3!sD`z59T55u>>8snwx*GzP~IB=wi0>sW@b!ii%II
zt+R7;fg9c8+{v%<^TDh!H)tb*g3(^Pzi0FFIl(_it6aV{!wYIA+!y=uC@3f{UAhD_
zp+*uw7(R9C)SWwbW@l$%g(#2&fLffKocOr7q7o7`G&LI_#~QKJ`~F#a`SRuFrblcm
z8wx2TEDRVYPsi5Ft8&8WBKAdI-lb$UOdI=yD{edM-`>4@w=!1Aj>1GKfOS+B8`l|_
zm}EVD`ZO_ddX$-oX~oC-p{nAP3lq=DL?X$U_Ie)#zO(+C`TBOr<b9kGf5XA=o*pe{
zXXoqJW0zZUb8=F~42rf!tg}{@mSW=LjVc^Q+S-t;974ZKwAWxW(#4&P9UOi}vIIuS
zA+t%ripK%EojrRNKnTn&cR~e?LK5Kbo$mkcJHvAHjV16`tO*AP2N!iradB~adirN(
zKZlVrOMo!0uC6+T11s8_D=>?5mv2#@J4b=xplnaReA{p>DJ7-Ks{7gM>gt;}JWbT@
z_c>oeCIx4#KhpJEM5!X9!Aie<q4}^vE?1@fdJwRcl9E!fcE_2PmKIF57TZG<23BKl
zYs~q$;duLa)A#VropMO>Df$bxrlxXyPiuIU`^20lYXkPTc<)wBV||g9;EL0UE#Io#
zW;@a)-ScS)iCBAkdp)Q*uweXIGJc+uwLY=ud40b}U;GpmicPfb&-YQ5kIB)|(eaR)
znDCmqp`}HheHIpl(azbK21&r3+|i(U8HJn-Iu1x`=Xj_J;K|=F0@5HiHSyl{Hx&Qu
z+wFG-js^zLoJ;Kt0io*pNKg?H5ijkwzLe|@vMbSc4_!`JKgWkg*sF8u1_cEf7|`RG
z=vb7owIKv;mzoI)Om(fT3m{d+#?Dl;&oJCqT=0;ptMGFop7+u86w+=v>)D&mW+;ac
zyYK1Qm$%&XbwBFut5-{1slr03koq~;*~4s0UcY`_TwF1>k|yrV$HVhZpXUrY^MH*A
zY?QRu>f?3`Y~sU*4{40O&3=7vwI6z8ws-@31~NxJC4wkXwh;yqKjJX7{D*{w??*K|
z)ptw9;qmb|w_bO4c9IYib6>uk>Y3Z?{d2hV(W6IweSI^ZAEc@0LoraQZ>X)!nyhAT
zZ@*Ymw>{}+Q1m2YGBSC6TygAy3m%?+|KQ+-hpOI!{A#rcNKyJ5fq{YM=H}Yky=Peb
zO-uC`mf{l<5`O%!@byCE>5PnyzUsA!iH$u+eB%7CUcV+{1^gbg+i7y1*WlytF(j30
z@ZYuYG;9bw%ujQA=DUlQt|h?K8D~9vriP@5Rs^Fo73c}kD#3Nmy6wrjeHb?t5a8W>
zs+{{PUVPGfAv<zuY3WMV(EDf1qT!8_Kjn#0Xh8P>?XN%mZH3o-9sO99qsxp=ER9!8
z?1^oG*INFVr4U`e`FjIPp*#2QzgJ}IwGmlaS@Ertm6lE;dnrP270KL&CPb#!*UQG_
z<ZEVqxv#?6(MfM+U|?|XUhagGvxCFq&RH0kg%E(OWVO6OyR)ZTpw7AV8jzutot>S6
z!YNk8qFb-^UWJp;6zi9=adIkiP)4_!TT!_Nn}(6<1UD|Ou4<^OTYT|B1{zCMTeLrd
z7_d54`5@;dle8xalfWpMqsI+4B<?W$Ht0C;^<cH<$|wLsh~>;Oz8+sQW!yga<BE;c
zvjhG7{M_8!)YOR6)(A|$C&CIyOiWA^&z^2_9_YWwb3Rs|XUlNOLxPc7=|jR+m(|9w
zUnXU`EMC(Ydn_VE0E({ptH-;=HLK6W9O-cZsV}u7i@Ri}R>{|CR}vTq@j_8Ts(AR>
z1qCWR=WAAf&>eUSN0OklXwmpPO3uz}adg5vIuh~<XaYIPOTkl{TU%e!#2+jhtCMMD
zAx<s@(UP8yZEenNCZgAPX-)nGL2Mw=#@xsc0PUW+dA_#}dfx>jb6sHfe3wh2Ot1+&
z;kT27s(@$*y?Q;N<UasGk(ywgPDwi;AOJ$Qp_fG;3VA2AU7WdzLoApas#!-d1{M`;
z8@(kF=hO~<(lDZaad|nZ-NOG3j|$p?oV&`W$&r#_N+_7<`(iCu(*Rd6gSz>to!|x%
zECD+PA)fN_^m<5>Db#sTMzEedAZZYXqoJarVq)sPuj1cijDGQYF|6Sk%1<No^1&5^
zx}u4RiMcr&u5O)zcqs@$7dB0Nl^j9!qJPo5vX$#pyU^9(GB20#tTVyU0`&3cW5WyJ
zRUtiRg-$n}3uH!c=9H9ZvOR3G5Gt1b&d$+!fcTFuLUDg@q=Nq^FMmBnX^p7uTl5$i
z88O^$_JYw-g?^+%lyq5@w_AMw6NQ3J{O5{?RE8>t4i~kd*T?_7ZGjLIBG(8Lh%D3&
zCX)Y78hl$SgHKd688(Q>^9f!G7l#gBRq5DDSXfxCF`8re&gsT8sw{-h7d@o1wP<N*
zKHpc#C(zABB!z8iBO){kVjnzs5EV6D&8{12K^NREzsH48DCqwcVEh=3!dE}vr-Ek#
zBt;1>QV#ubfUEHbI)FMjAGe&LVU5Ay<Cs#p2{6IeTI%f)SX72affiRzPEOTon;t6)
ze}^nu81)5nFC@`49%ag%C~?XxHs|HhQ6NEc`=!g5bM2S#FsCW4(GHN{MjR@7kXWvl
zXV#fcuE1am_2~cZ)Byq(L>HC_smWR{rwZlZ0U<p1mXx$~e}Dgn)$pLWYURHnS@#5W
z(QY%Ygdnod!Y#7k8f|T=Zf-(2reEZ1?9H!Uy@CRx&7usVWLz9+ejOyu>grLaN=Q^6
z-oEWIFJ-*q4P_UUfj`GT=yE0n9Q^v66}VT}zgP>!5HT_FurCc_oT`8)?{g>tykTi?
ze;<OAu8vOCYE+Q-f4=}6Jvurfm)$Xi+K*gjQ_IqF7Vto<GePjZe?yBYG~qq@{fm^8
zl->cfC71tawc)3aAAe5Nh_kXb*@zGm;8)V=1t(tYoP6Xm9}6#2?v94sAODQXa2tt6
zV=n1NcxRlHjGL}4Y!6krlj%uMM=N3~|2=3!`IDz}^Y-nmD?UQ}{QMS2`iK;2i*7j^
zcL_#-V}M$~cAX*qM=O4Jkyse}SI`EgOT9*&^PT}@Fm=w{V|%Eyp=^aGKq&6&?7Wxx
zPxwbQkC$1YkgOjU{`g{4{r#`NJ~Hr!2=MY26&E}GSsH}o^RG%WA4=VSMeb8d+6G0Q
zV-=22?Sf^crl#7xH^|d@Ur|xNHERD=cArOvpF3I2DC>L^c{4$o75d$xM>T*ACFKZ>
zKN(NGpp^Wd25;hUHgWOoRO?Ju>^MMjaPgn@G{MiOD<()^{bc=!?K+<ur>$%7uMj>D
zt3<67t;m+&>L6A_cH|(Irp4v4e=i%b7&`{3(B;d@N-**Qh0hh^yFKBxv9SU5FD~F$
znl{N2l;Jpsr(oSUE>)y!8h(6C3~?T-aHHPy4rWXj<gN)P@=^-c1T%ajno$#vHNT<Z
zs+82I<3WoTZ8aW2;xat@1=P?y=kZIz^$A&lenG!on7O27h|HER=<iMyj$Ah0q03js
z8xC&8An~lqeZ0LTHkGjw+04Ob^?9(U=lzR{Y!v0K`fZIwe-I9hceYUY7>5$a(?du+
z{m}BCA!`u7bP9h|(;P+0AsfXwz93j6855eCP6{ZO35sKdGE&4C1O@+rsVPm2J^T{L
zpT8F%<O1^vXb!yU*vyVP*zslA8Cl}Gx(Yf7myB}BGV3Ht+J}dSu(yU@9B2Vi;zl}{
zi3uqwDG+p8OcXiKnS+I|>Z7TZx3Wg<2hyjDr4hLhbb+H_d+0LpFj!7r24S7jieZZr
zv7Ka1VGlPw_sGvt_~c0!{z*_A8fW@LC3TP(*7QpX5OqTFh`G@zsp_2NBk75W5P|Ut
z@8lxJ-N&M-8Q#ik^)7m7Yinm$;>1qDQgR7MKa6m{(Ym<zg=F+7eG@xNf^ku}enh-N
zhzXTLq8!HUxSKDcGK<%)9ArL2{m$E?XC){V@Luq!hT5dqk3vqLodC&ac30O`er)ZJ
zm`kTsIUVWgI3!-M3|xGelqvUsaB*zh^E53)e^@C#zJ%oj0@Q!huZ>j;f11IcQ=hn`
zu;<NV_-*#tvG~4<Q6s&kuyNmKX2P4bGG!IzW#kem|AsRT2RrVCw#ek>=Q;h0e?byI
zJ_)1=dG0IZg)Vn5DWZQ2wY9YYTygp^d%jqjQa}63DB*NX!>Y7G)X^ptP$hj?fowmh
ztPO9UDb;C{tTWcs)<Zt+>la`nKzf?p)M|P|-KV|YlSQv}tBv(<ssQ`JF%j{=tU`^d
z&gt=(Jm;Bstb&w0$lSaB=Y7jsp(f7DZK6;B68F=`k3Zh$$0uXQ1e?-i5}woN`C(|o
z@@bhEay>J$MS<Ip2I;rSNlH9IGaC7;x;Y9JEN)1`y&&0#`of+U8Jrb_3;f_7e59gv
zqp7&QzJ7RkSW6}jcaC@o&zoIuUR7nx-ftIwmeBDk6Fw2A>K&TjU=71*^Z|bcZ&MKB
z<#TP$sV>%4s9cY6%|OSah{+BM@!Vhhe9pzKE@X)WH`(EOJg53uBgS>YYbAD1Bb3Q{
zSV%;~qI?8Q2dx_3$GBMK=g4pJ+^}BGXF>C<I?0^sogM%rOeY@zB*VerB-b+;+!^jB
z{Q70+ha=t-Y)-SUeUYR}L2`=Qe@>~L_Ah}s;gp`kbwcIRu4F>Oqdqr!H~AC+5l&L)
z?%H<6<l3%;$cxYZGn0|%=*LO`uOPP0RMYVMVn)7x^$KWg_M~<-H8p4}q-;UKwzOnd
zGg0reF$Y{-Y^&S)w0yjB(!+<P?(-U{>bLIR-3PKA=)~sc=I`IlD<%o$Qq1R6S0X&`
zu6cQ|n^c%F@ZRwdQDw92?&(QvH7ClV$bRa2*WJC`pokB`ITshyl@_D%$}^?+KEqqp
zu3vw^a@9#F6)^Qjb5|v$a6Rs#q9P_*+MSK8<63)MF?1pZhK80rq|Q$v<x+AsR4v7w
z4;wgT9a_XZ%NA@B6+03D#uw^wC$(3tBCprR{XZ2gp&fsVmLE{uVxn{k9UL78ZA5?y
zBn~$pe03AZUEmD-q0)GilmvFD$6XhA=$kU|9O07SwJ2P_@;rh=#}hzn!~q?)7~b&5
zH^9MxhgFe-@>-rwSX1M>lO$MS$R|!qs!nof>F@7vY&;3R!Qfn*t;Ge<{RAa67EreI
z|H+W?rP`Q%k#IMs@&~i4j(X?()cboj3npgCmlUAjIw4bk;l4iVw#p4-11@ze)iYK7
z(>wj5TfQinD_8v2r<>rpP}K7X{XV0qvBsmIU@0RPOb`^!DsxF~DzhlP!d&|m`HUov
zLr2Q%({fMGOUb5mhpx|$4K)6Objn-onEz?Qyu<V4q#%W=e0$vef%OnqC<}rlG$>)<
zzK(~of1Gpqvo1#42a}2gUwPt=e0P5Kayt6E8B#Ot#_@i3sGCY^Fv8o5D9wv8*39Fl
zaFs%FPQaQ12!RiT|1IQ#8}c?;WNukmS!wCRzh%;oA3tjMmR_snl~q;kKr<*SU@LXd
zu5P)wCMG5ZIDp<<m9f#$A8xzAFV`RKEmK|85KxhjU2i-EHGjVI)8u48oo@>vt#Kk0
zZ<ugBDsVlD&D5Z>e6o#XC3o)n<Ky#ydFB0x^HEMc`_*c`8~*o~Wa6IHtBUX@B_x<J
zP&dHafgZZ+T$j9@@b>d{^b05mfzmbLSN)r-KQQY<lFrjv9Oe%LcNGGL7eb#?Jn(w+
zOWQTeaW>!ZXQPsyb@Xl+Ph|wPT1;I}C$k!$<#dG!dQAm*_2wu6Dlyy+m&rXp@W693
zVyuIO)nc3riTJr;VBR*kDqOHEJ$3k<aswWd^Y!^Qo($?8!{|lt<ClxE3m>$s@;yQq
zqGuZ>kG`ebAwRc5G#*~rq7$})6}@E^D;k`r<lJI4klu65i*hU5k6YGH6e|?bj?i{D
z|7kj;VC9uU$xgt2yXa0hiJooFd0do|2{CS*4ky~|+VY}kTY63?!o~3C>T0H#<1>Ap
zxoY+|7&HOWm2p*8fuFegmKw*6q)DTc*_ODM^M+jI>(`FX$J;%#4)R$kDSV-@(r@*V
z|BE&UkCzYf@F|{q+QE9mg1|Ku6;5!!OjkjX^E7_GzRivjCm_B#WWFacyo2~_2%7a{
zB$vdf;me<M`{OwVUtH!D?YNa^=sAg4ztdIrx%SHTNUf&7g3;|gAhmki_Swaza%_Kp
zADS_p5I3R6gW}VF{brpJ`Q?^I8U@RYf@d7=1+DMM*YdGU(Q{aouVY`N;7fZ$j||<6
zX^vO#=NZ@B9HCeZ$C%NsBE{^6UIqycZniNIP8$YuU%v91omTegwVk1xUz-;6mPD@H
z;O6T~NzX7f*1h7jnht%03I{qIlNp0w2#OVjR^6#9`|c5NF+lFo-I}kb<nyzN&8&1}
zUTo;?pY94=Y_B>@-{IhPd?(Kv$rZCV9Y#L)B_l00wf(-ya0FCvZ)Zw6Vgw_CMW!k=
z_w9oWbKaAig#{W}87{Ou`u5RBBS%93$N5sn!D+n8tW+PUu&R~Q7f+V2SC9Mhr}!Y<
zlBXB1jtd%cX#Qc<*zsz22~Bw}@z9U~N6qjBM-3fN08-86e2joe{BPLVNH`s^>kcc9
zB`vRh+q6q3f5NZDXY%}t(NsG@b3LB0j5_IN`;DaT_rDApzFJAtLVHkug>!}&DlmaB
zufEw_4<>CO#jD%uFe$v?z(<#0Kc0a{`(`D;PJq_V9-_BVC!;v^Ef`)f>ZzNIm5ohw
z>e!lUErsaXaH~TJInmM1e22YJZczEPi<UZn_Bk5;vc$y1jDafxw&M4U`|p!X8jNy&
z9YLwvua2=Y(7cn+o43uoALva)q<@ercu%(hC*f9RAra9&w06d6^>NNiXo3MFta(`I
zO$;qW<Zi=-#y8mvV?rOFerNaSYErKJlzssV5vp^u%I4;g<|%qHLwAdV_~E_p2n2n}
zi58%qeB9=G#52!;Y0N&shoVawZyl!ieF|h`WUR_1d3n1lBO?)8_^d{{4~TSvpMU2i
zv})gOxqe<bXvL>_DrVTgXVU?LPs@Aoh+SArYV-piUEi9FT<bYmQ|0-YFBy9m*7S0F
zxsp42H5iG{{3OI+<$|XLoro9U8D+XN-yP!J?x;H)M|$Mmdl{BlNox50bW$6A&nBvp
zTj6x1a9(D<gqIrUmg5qzwTp|pz%c)Kz_)P@77D|{w6)Ok;1h3%%N=|}%}QF)@QA(J
zj0#LaheC~!^wosH2(u@oMkS~1VK6B_#|v@Mv(P*qaH_1SNa>zSbFROWt+i8Gd2oVA
z%f=%Dy4p#N;~(NH9LriRT~6uq^X22C^;G(Gw$4Ho*{%`qm2v6pE7$DXRH@Q`q)OA1
zlSPGuzK=q6*z7J&cN>s-wiR3QS{zY+urF^N`2xjx2e-6KXERBkmBx#CNqsW8_${46
z_%zT3D2gaBgwE`UAgYCSo$~}ir@O0$Q+3F$!7~oT9`1a`%3zRn`U@M*o?jKtMt53V
z3i|ru!j<;tz<hiWLez>B?$A6p`JS29+v6|Wdr8i(L%qX>X6V7#OUzs74F?C+uAcvd
z^f<T|Cw6CPOx<>R>v8JiULl)>uykZZL^hJ}55gbw;I{83=htI%-lGrM>`&~)8k}wO
z@FsLWoiVmnyLwz45aZs7!k*Lvr|zj^-Oe3fi5JsVJE}0-9H!{~LqM8!@%Ew9yCiV|
zU3xXR3sw6mDrlUU<HsPaZ64L7cc#{wsqN+!7w?Z1rDa|^dqhc+f`pl)MYk}fJ!C4i
z`N=}0e@YSs@0qP*<!)!z-0%0kZH{LQ`HLU}ZHP>#=FAklFsZKi!t3(v;uDcg(QPT+
z7)lc37J61WmtRt-A4&%dVcPD^_bYXj2R4=b-$*M)D@DQNq4d}{H|g0Dj+d`OEihD0
zsL^d^`_?j`6O7D%?Ru>sBTu%w@xs@DQWB%Ukchsue!(HK-5Tpc93{z*-gPo4!mMk*
zgeFK7MvBixSd>0n9?iz-Vneh2UCNa2N?06~H6a9dN-LFBryA8*5w6!Ff2r4ad*5?P
zIq0*{pfEoj)ub!C5Z230W~(ntYNh%F&-AWpev7)2fP>%?|GhOlhA&gIrVzCoDRCaO
zb8+K|*CO%6Y0<xtP&f`Z#^EbSFr79O6x}gyVf}qQj2OnlU>M7Wfve+Ht37j)CNVCw
z9Li_0f2A|N75%z}_#vioexoa%4^@9OXyC8YZd^~a&7OhgNH{sJTHz}mTL-ViybS8r
zf49>ghk|Cfk+$})gN?7(^K_m}63D%E>yDMrA&3(+iE$$#^P$@i{cpGYRdsdyLr$IH
zIZxuZhCoMs=#F~g)X~B(p<gfeVU2~Dc``-%u4MN{5Wg20W1!~Y^6}BqyUJQ!B*A~7
zeFU|O{{I94lo$}Vybaj*#6{}{3wTu5Z$JU2f%BSsaZw<?xDqeLrHaSPD*JPm3Nq5+
zw~**7+_J8&E)nbhJLiK<g!ZA=yW8e=OGF(@tS>%rM#<I+()b7pL`3tjn3sw4{D1L1
zm+RytP6H!PRotIV^X@Q(EIgX_-foX*8YhOUQLTK+hX`wHYYP$#pwFFbZ6E%Nmse6$
zd<mt(Eqei4u9!Z%_rUI4|Em*d>*~^bJ;<FLb2xd5;9Ln&4&&AtZ|iXfdU`jzgU;*d
z{{vyb9Nk-Gq#2SZXPW;W%}l?5{gO(qQ>j&{{zvmt>wn?FCq&P>=Ugvec-u;ktyKuJ
zGZoXg`$W3jLzlVoFr-IdYc5a3w?zztyp<auY$q?1fu5Pgd$>w2Ux&sDTb=1m-z4Bf
znJZHtw2G!hBt#iW<>HhS_r$Dj1O)RAA^al=v`yoeofN53MK1(NU+ztAHFr%TjEjr=
zsB8+MvR)yS%f*~6HVPIp^J+Y3M8wj%i?j>%=H};Bl#~cxl=wqYIW4Uoi63d`wV5Au
zU^tV5V`&4SL`^)h+iGKbD(D#MyA!R4d1*?x(;3!uEph?dt`cUPi2^MNMqvHhnLexX
z45|CvY;2$;I%oXV0O=!<LSyP?*vSEg8oP6bwb4N=Xm7DVe8NLFFi;j3@C`ONC>SUM
znjdd3B97RS)tnm+w_rOxJtJm@@?qRbVFB-0IWBN=PP%pSP6h54jX2Cz^E*JpA%$yC
zod|;rFh|TOv3`Vd0JvKC^%DT&Kv0=t7V?_-2XR1w>#4~tK#vz-KjcJPXXp89{u88{
zg5o)gkx1;E1tDEwNy#>kIH?)DkSa7!9!Ukl8DMCjX+B@g{!?CFrV-mimCZ$mO}t1=
zOv7v7u{2N!OA7+I;+mF|ELB?d<YJA}782DAbV#vIVg3GU4J=(`OR4YA8}Uz)lLhxX
z5$mD$p<Ro;<V|=;86O{?(_!+j2i+zp#NLXtef%QSDD6ZfL`#O*NmR>&*TcJSb0@O~
zT_JpAiBJwFphH>%MF@?*?(S~jv8KV^1h_fc<Rn0m)z;YwJ;TnfuDJO4*=lJ#P)SXb
z5eXsQK?9%j!Ua(gk#Ud!7;aw(2Dla2_@~F``%0X1@Y^!erch1UU1+IVe~P1n@3r8m
z>!*h0Pd6rGvZ0!MSyEy>-zBR7?EV3Q(gHEwl_Blr?Y+~Hd>O`|1-WeflxiZL3;RQ0
z&fT6pd#0nSt5Ehhw2o?Nk>MpL0b)7>Mhx1eJe}0Ew9fk`2jq}Xu?GUWkC*Ea1Q}6L
zQM()SLD0r8x9X0Gj{a6H9T*{sK{(`{7LZL=J4ZuPaO?F4Aod{Fp>?TEF(8)$E`NVt
zVMQ1+Q?NR;HLj_uY8C2%Q~>DXuZg0>Cl{liT@4BZ4IXsI?CiLK24w)17zWvN%ML+B
zK}D66kr8lounViBtf=TR!F1d>z=bV@3Ow>?Ab5Z_xc%7)_1|`)w*ppi%2W~g4apFL
zzoX7U*$tY+qFV(81=l$!i)&_1Fj{p!^B@*Q>hhhhvFgpOWzgZ(9nmOh1HzT|-F&H*
zN56l~39Nd$L>eeGY%ch*FOO;>C$T_GMTJ<rvaY`V!k?fEl-D4ZLO*}lHGyV1Duq7W
z1uLQ*><W$wLI-H7Imhkm7Y$vw{^adY9zwp16k9k;@;EQ;H;NEXxqoQr$&)8ypO|2I
zpjIg{Y4~FB6rbQkC0Dz!v{b#ApZ2LL%#bfj)c%%&LRkNzMbYgL6m>|VWExx7H>n;M
zCYvfU5yLahtx5uE-C+1L#p^IpoZWlldjHf6V?tFeSU=C_o+#7M(a}-PGB0%yAMsX>
z_l=J`yf?VBa5H#a0=2h(@sV@T&C*>iPvfZfULWVON@wby%u`ThdohI`FnyC!pVj7R
zNSw#do^WDeWb~*>>t9S4wSS_=?dag};_k5I%uoaD-#7gCVF)VR&`<?1EqfLHi~e99
z4M%(S1^tCuT+D$x-`>1=1FaB{k{m7#zCID0zO(KB;64u`g>wuH`^_Z$JjS)&-OohF
zw}N!={V+0|pppyipuI2wC|%g9>$&sQjV@u(N9N*?Aan`Zu9-Sqy4?`-;6V`RQ$Z(l
z+$H?=L}m$4VR@*ir1rO(hDL%RU!_42^eIF|MX&C*Ywnywo|0y>DE7W{hmLqD#9bnS
zx$$yXlgsyy(I+A7*Jl<`(}<+1Q$}OkA4BIJ0uVHrSy{8Is!}qAjLNNUI5@lk7RR6n
zKLiar)s@PrdXL4v9Hm%^fXnqK_DI1fh&O#xUA?QqaV#e{_e9$Y+N(;!=AS=*-bfQ;
zx*AwpSt-uWo(oSzL6gdD=2JY4iNC9j&BD?CS^?LqygW-Va{Q3sn(c47QP!D05#djF
zp{N9nTVpc`9-`5LD7+c09Ngg6ty`0xV~*f4py=$9&B@5fh>ng1H5?ZY4>fW4@!`~Q
zo&T;|sXkA#8fa~K&&OT`NiDQtKrBjy0r7D}WF$1UsEG*+)@&)g(?vnF9!O0?Qwi-6
zXrgpEDtdzk=R^z(s$4NKPoNe-Cu?Ex!>eI`0tPLQ%;w^jlJfo591e6_S63G(|L{ZP
zI4E7WWjW*13bkt{WItKvY<TTR)Mru`^k1ST{%k`uwk$9r9T(5P96A%YUEs~M!`5?^
z++SXMV0h{fVH63?#eY<ZQWq|S+tz{#8K|Hw5W+$)zM$V{t!^7sM2_QCzuF$MgUqND
zlU=n|zn_xRa{VbEQ8<QkF@gp^O|--1#uMn*7r%VzeY86d@*fkEDH8r#xk`Thx6=hz
z4{bs30!o4jr>R<>4V#+GjR{y%mg60j_XbR`0A?)_AOonVtULxq)WYK8oobIo&7eJ9
zXs?ptvP(+-ZoL2QZ;-@PI8FHW-w@9LTJvKx)#kAih;v}oZr;3U{Usg5wihm307FU&
zAetMO$F#LDxQ7X!ug=eY`s4`^WmN&&yyrWc!p?v$Ls|I~=&eEMfHNYC%FoY-R%S>@
z$e43O0GKl-dmYzs^uEayjcuF#4U!w5K=rCsx95<~s?M`k1rXy0Fp;syj!#V;cbXja
z6-_L9kb$P?hBp~Gxr&NPO$9_DhyiyXU_*pxU?O3x2zmsOpNvuBL<7P<Ha1qEnN<(M
zUy!LD?|i;0Mj!t<f$1`+uXuT70uQR%EzCdo{e;Z2wzRa@?Hs6UXy|{i;~JBb07^^m
zU*AE!w)ed?7Sf!V8<Q+pJr;`%+OG@(_4Dq|%mX6U+r@@=$}ETuHxi#d#r?aoCBU1g
za#X(I{zQo^*e76upyTbJi`aD8fYFT_6J1^Q^Rbt?xnJnmIy&;=4$mSB`tRJl`5x3}
zQwMY65KrFUdd);nzqGjM1I=6z*&c$r3xye%<uvq?3<fEjOwq0DQ(Fhr1bb3%K&%Ju
zmAQh+?r|Ua%1ca%`Dp$N{1-6vbKLUbWF^8(8f9GNVg`|>E3u)jPDV^@t2vy+svIh5
z4-XHHix;h-hx_9Pl>0+Nx1Q8|PT1MmaU82?{rC|sLF+rI{l%aixSLGC-ezkojY+My
zpn7o&gxxY2F;I_>A3rWG=EJDMw&>~Uxx2etSiI2V2L5b!cNg3jR9KFVj$KolRP(+=
zrahU`Co(RG9D=qBnNtCK>JtCA64-5GO3r6G<ji?~V+Wzs1&c$V#H*^Rz!g2bygq;a
zEX_z(`G5!(>@lR7hJ#stb&Aljf<_yW(|b}~>5@s8^0wo33PFqurVBwWtL?C`A+;k`
z10<55x`xkBSUaP)rg;6sI2;K0EZ!STdC$ay#7OfWX-~rsH%Xbxl)lhufDb4-KnP!J
zH^^N+0_{(b!Xa5f@B*O&rXNa30v#!SlllXYLW4s;LG|Hq1-RvS<$C~Q4{0p_lYVC@
zZuw2v0hK9VX9nH7jT~&^<HyuB6Gtb<3_xlwKILCN@0Dds^o`{-DEL!TM|yfdA{hd^
z04A52nfdS`1qh`8>OD2~T?8qx6AM*w4I}D5)ki7)P7|_(5G-q}$Uu!oNgO@}$x5+#
zjLB;pV1}^c=(~l51u#SK!06hKL5H}Y!;P!Q8;||ekn<M@z;pY=`}+G${8rxYuQg=t
zk~CYDhc6i*S%1Lrj(4+;KS2Bh!S|Srh|t=o-TP0UKB;j$68Jy{bf(|_N@dVic~)-_
zGn0f%@NNk}7GTRI7|Hgor*$hIOQrA_50F8GlL1B^$nlYf>?%V=cjvbztOJ?f+_Fa=
z3!pIP`3zH@KJ{AY$p#NDx?5Rn_~8+%3`BR(M(8pXs0vV*Sh0Pscl$P=op|N`$;o2e
za(Q_<v?7)Z(5$Q>G&oivp|a=Cr-6Wn_IYtwR&VXb7imZg(6$GK{Zj4&S&(iHxw3r!
zOu_N_bvGo_4$z<?S)q{yeRT+@?+wD51SBLt!3|Na-EkZLMQ-j)-c#dhh}~k2qZ}xt
z`MrCyZa%uYNua*6v(w>DhPVI;<YXbQ!hr*cLrD;nYhL;F@x47RUBem#cxrjjJo<P2
zxZA{Ru*-FY?Ss{V{CqJH5fo;?PE>dFoH-!2Oc_7uZV}+)1uy|K3A-VRY5TK`Q)1J$
zvwJo68N1AP<|8=n?Kk?csqB=|P}8Y$xb0JOT)6OSRtlmhDELphM9_Dqy7E?wgK~C$
zo(jWArgHc0*eUWWiD_wm04(}HUpYM5ZpZ>;YGpMC=K@AY7QYHxNVL&kz=DEg1Lpil
zEf0d5&vH>E2z&te!1)j`56#RgyC4I-Q#4ewS`96SsPOvIwdC8zptV%TYcB~pTn4t!
zYtqLW9OUxl*Dqcua#2Sd+;@@6XxM4xe{<_{029E2%)q@xFp+_QfnkRV(2@a=2V3gs
z==k(WIVQ*R=P)SSTke;f!n_`2mUM$D3fL|<O$B6Vcx^890#N-&0M9&lNwecA9PQ~<
zVbP{ee)epyJnOJ)(Supa<7Gobkd2KEq?pbpyfrT0LjPI09<V#;o#EcxnQ@UAmnA%?
zCX>nlEe$lH&F8vO0c_%jOoMa5KR|H_@GL4emL1D;x8e<G&a$;g$;mq{$_g@lm%!bR
zcE1LJUmigk06@45mH&y2fdKb6AT|z8&f>e3t5A8Bk2uiq8y`G4-g!{y^(akl;ggL>
zwZ;y(MoiAm%?FD#R^=o2d#EyTO^Y7Sx~;52uqgABO5L>$r(2zu?H9N`5qJgjsDJU@
zhy&m^TRLXu^RcbPpIahY?yvvYy)@l>AEaVMMMcmt-PC;FZV?j~M;+S=@kCfA=R~J_
z?}1DOIMJyyWU$-^YsW`xfKVa$UPx*OV_szEKal_*?r*b5d#ZCMdwQK5=Sa)p3L<QN
zK5ReWIKnO@#O2#6TgkG#UP}h~MHG^YVGyqdfeH7*MAhFB?*6{(%#Folk5!HdOJ8Ly
z4!ihO6YoK>0we+rjW5H(QXrRw^GWB<ojVa-LKZv*P<T?jpQvUxdsR-lSKvJQuLn;~
zV*!RKEiHw8W1yq^HKQfL7&M4M-s4_q&@*Aju3tWn-<Yis3C)Q8z2%a%k@Cn)n)?!r
zpjdVTwRz0B%M16}q7`An$<Ra%s^h|E#Zsr&lQc?$om_C278EQkD2S{#($y6f5&3BG
z2@rfF0BKNju65?f*L4sJ+^K!}{7f*B+iUVvF-HURqp)EHioSxu8E<1GmoKvIGgO4r
z#Gj#Z4E!8R?2AA$|JM^c|8^J%q+ydYi<x!^6oikEska662z83Fiv#6bZYa+2Exj2a
z8ya=tuE5S~n$JO=<@X9NSQDz*g9w>H#9!tA_TL{7c3gx5DQ}?qM9Ap_=kUKB6Z+Rn
zw>mB^I9h7mBG--VR>Et1@V1<Eom7m55OLf*!1b?x0pXD8I-y0K7K`6F0OzitYaNc^
zH+%H2_WVqyXN?gD<!(t5;`j{Q6CC72j{V<|pSs`w0yW*u%(7d}CB4_5E9bViwGDr8
z2iY+@7V<Tm7rJtMu%T1<I8PkU?DWaQSpLtsM+Cx@7`QrU_-AEhrKIRX{Wmo9N%8%E
zG|%6pr!)SC=$Dv;<R8&5pK+}!@&m~5w^qiCE^5G8rO-Ps;P?(by?K2?Y;6C3Ib_6&
z1@+bkLyf5$d`}rjPv?gpJwmwwP<LDBJURV!&Ib+(fy>A2?m;woqRK%Q8FmDuQ|qTs
zeU*@uCY-EC|E2F;By1M!A^aoq&sn4>!}oCJ>E>(0G}6-wMn)4*H{LZc_~G_Jk6ScV
z9nJ<oE_yu(vbC6;cLpm^Z~>3OKu-^n|3SO=Cl!1$>YtNI?es?f^V36rNkW(g>+@xN
znSYwabbX9uXOy&yEki*xHLey76&@&D;0#o}ftKdQHg6xf7yAlY{K$|9qY5}oGd$+O
z&?r7^$pFV;{NgchTlmHhC@mxw_493~7=mEnWxEif=@fL}P!h*1HG=v?es|g67$E|2
NO-Vzs7-Jgxe*pvhR_Oo$

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+-+-.png b/plots/2jets/kt3_100/ggHgg_+-+-.png
new file mode 100644
index 0000000000000000000000000000000000000000..a27b5222b15b049b4196c4e203c3732573b8da27
GIT binary patch
literal 12510
zcmaia2RPNy|NqCzC33S#+-qfJ@7*=CT_a>?h3u6*u8hbE*;z@pG9oiGE0GbBO=QdF
zfAszT{?G6EKmYN0p2EGK&*z-;KIgp8`!%ApG?a)5X$c_+BEGLIkA@&@0|>&BhGBzG
ze%?FQ20w~@bqzew7TyRKH)os2j@Af|r!LkAYoEt95ajbiPos?(n~&(!n@~}Cq{FFO
z?6y=CF*O4|oHUTR+`9Y8>2dv!vahF(37H1L1XY&DNd7-zPQnduGOPm&KVQJZUdTHW
zmANogbrii~{dPC%`W?ih?wPw9e~8h1m2?nyLuS}8^LX*VFBf;bZ}A>CvL>T5(P$pL
z{Fh06Pw4bawg<c|PKBIw_f2P?@HD*@dAN+d>I^zf;G%5k4nfz+uKr;`>6z5vLlX}L
z0}mZ%8xL;_H)}}F&Dz4l+6v+Q*uxItVP}na;OuDQX7L1}X5nP(X<=)PuyJ-n=y-Tq
zSvz^SBkm%!tliw5oh%#?dhXT;O((~v2yukBw>P)<f1cxh<orZ=);9?>guH6#-}@gs
zJ0Wx*Ke2}RdHKY|`FO?o_z-*o;(UVQ0zzsH?3WOPfbPrR)Ah;xGvnu?GoFRN&7@k*
z{4ix3hl%EXN-V*RxNY99Vgg(uOaxAv<A|e*ZSZ3%<94qeC*=&U=K_Kwyag2nGggn^
z5U8W5V2`J*s>u`0e+mzsU`<Tma;XxqN;+~mu9r0i8FO%tr^K_E%=i^<t;EG}^^SLo
z2+QQm9%s!aXpt*`UMD8U98}G2Y2Lpd^$TS?lzreM+1c6o`0?XmlJ%2=b>WP=0s`+}
zzeb#tU_lVByJr9T`uf8<rx|<(e|TH?Prt3Et}ex*5t<~6gTH_2rTu-jem3!aq=g_^
z-b38>hK7de>FI_B@zg$wwi^1Nvz^jXE)+~bTS`hQcb4u%N<l$^MCQx|_Yvp{bxLEg
zc68ngIx)1N;qhV1<@wRhLY(x8T|mHj)uV1-Kff%E6{a{zx0C(HIYWp20z;DfU*$4{
zpQvbRws`$XAGSNI3py1^R_Xk-+S=O66Lj2Xc6l<6Y<3ad0-gW$V@7sjY;0_N`~e#M
zZFbh|;ltC_{5bI}jm8;M6O*Q(%Zq^1zfHSeIAddDBW~RGUCoUEZT9u`tqf!wcFSD2
z4rNQtUi_`Y8UN_E^rf{mcxa{3Z7EufwQpeH{A9fXr$VI=ouxrF=r_N2jswXiHr|4f
zFi3BBH3scGH>;o71aYgWttCb6?(HqPJ@xYPx_2)`rSO}5&5ejKI7)j|jzsEZVj|ku
z*#F|}xK-hk>DH8U%b&etx*Od&7yCv1{r$E%0bWzJPeMdusQKn2WX|RSX7{!(FSd4$
zHnAYY+6)24tFfu7%5|YD*0(7ezI$=HH9j`>f<eZVBl(-Nd2*r(bE0Z0_tNrmZB5P6
z($Y**rdlny`{Lpv)zr7Rp&>nRcSYt>Y`x^!9z6sFi`J9<)W{S~$jQ-Ex`*n?6muWU
zmXhG*MI<Q0kfc$VgJ3vXM`tf7=WOxspQ-1RcP&kHIg--{mcN>bW*&k$bx|jse0Fkq
zHgtJ5ITZK?UHoliWX;ypXD*z|)CVadBBIYE5qRb!C-?bBjl(0)d!WrW#z_fH*!_PO
zf&9Ibw7U;$c^ypiw9U*~+*bx$H^BA|X1X~D19M6$hY>)5KRbeDVGwkmI0Oz>G%Yp~
zf|!MH!57N*Fbo96kHW#th~g^Ew{cPL-f^6?F<c%gahH=o5S%j;7ZnNz4>N|0vi+YQ
zL&C8kS+pDi7YZ(T_Wy3D{<jbzl&ekd`75U8`?vGgVh&DG_Zbtmr5J;m!)0NuaX7Z6
zTbp8<FtN#R3b5i=*+YksP$D@xA3C$E@gO;-hUQ~RWDWH6C`6Ot&^5oWnL>+?ph$sC
zCGhM=7FLw9d2IaF9K_61dJ}tFjxj-3ZK(Sj0@?xtJc=MhL-e4t+awePkR<9m8+564
zkFb>q1mYq$lss5TIrhK4L*Pax!72Fq3DMDc_L|;#F4quF;1%=C{n6CqgHQ*}*nj^6
z8!4NKF}xYpP7^FDXHSmMXfKVlXd?FegH;dW0l#DMSNBm<*<X)4DMVPJ;UJ6=tE68=
zq#fT%&D_`4#eLA4h=j&@nQ(t;?X$clNq@gO#DXDTv9+|tlkIn<fUSLoxl)rci;ekn
zhsyRC^B2JGrIRC;UFeZe#H+oJJu0$ks?VJLC*VHP)s=)$7*dE3{-|GkNNgmA*{f+J
zo)zyGHt1puu_;x|_fg`<Xo&kY=w(-Z$zH)o!FqPO5uem0_PhI7mbe0_U~2O>a?kTk
zsfh3$4sM=qVliF~0jJ+%HM(=*0e4#KL7GbGH9@=Y#Be@bRIqZTjd}m#V)!7vxL@xY
zWI$|}H(P`i{{aMxu`NABp+%ihg^dj_k{WcN{?+?d{l0<Ly|R=|+ZL(tZQl+_LY4nC
zz`e}1Jx6fTx(9~e?)Y}#_C_Oq<V2S2>fxyl`q_lay*dJ$H~QCF1SVFnnS;&W%jV=n
z%PFW?fx%Hz(jXVZNTfx5_um?onKt=)-n)12SIx=ENqRbMT=(8$k|x-cQ)?bhGYvIO
zO--*~oB#PyV_$R9pC%yTwXuDA4sz%!nWkjhtT$F`vibYg9lXgi4J<j?baHb8w2_ff
zdPYV`NeM`F-kZ}jKDiYY&g11KB@Zf0-`fmq&NQB$o*r(_lxVRDJO3<27lVzy;v)Jp
z=<<9k=<-zN@_2}ZUef3M#FM^-IM~4Ac4kLuSAlJaK-W45C*p%4LMJldaG2pbUc8Uh
zpFe+CSXjiw#I93upY4xmW@!|mi<vPKj>1_QB3>H?sK_?+dXF`<pP!$#b)kMq+1s~o
zi;HOlY+_6+Qu~&KGs+qojPi%K&zm6m$h6A>*i#;5vA6NIA#Igk46A0~=Ddd9-gUiJ
zjF_G!w`3LTx~VnUiJ6((kxyu2yPWFqvvXxO*494yAMegyUU(OxKZ1mkY8IH*?Tmw<
z?cX*Zn>|m`fGxe&w*1o=v{w-ulB%VIBb&sYtWq(q8uZJnQGlO+wHxH@g&o}N2PNM_
zY>l~7jmlE`mJAIIWlo0Um`Qs%D?WW29o0pnN$a@-=#j)q{2>rtNvOs0^>D2lv@Bys
z+DbUQuefAnTAG^!e|~!U<O%4UVj=qA@KCi7oj+_>Ww7BTp`cCq-1>NTi8ZMhT$PoT
zA3sjo2`;a!G|p^ZTm*)rhNq@7Qc}7;afdR%h)bx{Dmh*$711)2M)?#4=jOh+20{TY
zC8h4J*jwz;Mm6>nNUPJof3Ah)R#&^NeJgxe>*)H?7^G}kF}KBP>priIi7JcF*J2gl
z2cG+u=}XuSW~yfh-$c=aa}b;mJ7;AO5vk>lvkL{0yVJ|J+Q<p7&nYi5FbVfMH{glU
zm~uLI@hrk{%Wch;@%2JB74B60Y*$e_j%1GQ-0p>)WB>hXOIeWEY%r~<$S?+EN9njh
z!^Zvs&B6iL6F<*aR5?@Clt+80P=D42TW|aLgkBsSOR$eDe!3Okzv=kaR-w9)r*ERn
z_LX)#oH4a8&4Lthfm)PIOXex<l+mZSKdm$%vwYj!GbZ1ei8V5w`Ku+dJbQoU9f6}N
z%F7N@JTj@V+oF?h$$`Npl<|&m*ge5eJejd)_%;@c@ojNA!`B~1not@@V=xi2uy%^1
z%sZiGqNt7P_&3VD5||E<CE7zXi{Q8qr8_p@qNH|5BBcx*(Rr4;a*?vIGr2(>yU@D~
zmR>O9qqDsss=G!7`XvNNr#ipQ>5pI+ezmVTJnzuXR|ExsjjgSc7=(-Zh2@sb7&?!R
z3`<N*OuC~<iYnE2u(n<T8*IGnq4(@iwBCXbE-I32QBr}hvk<O%Ev(H>@Wfvl)pJ!2
zJejI}Dw&<k`Jnt^T{&1v=O+i}=jQ<d0nRPwf6tEh9vvv$goViUJY}UOPepZ{oSxpk
zfxkzSrk0YBfJ{~)K&}ks@UXMzvi;6*ZcY<(Uw)@oQf|`tcejrxM<ys6jy5&D=pfUi
zlL_?STOOdGpa7NDkJ=}<u#qrwx9lk5&O%;eas`uS|Bq#5Wi2f^2WWkL{ijdGW(o@H
z>yKJPaLfXam%N+zvcj)Z*$bw}$y`i0)$tg8h=k|qa%g5tih&jP`}c3+Tf)lBiFtW>
z)Hg^&;CbPhw%<^$?3iU2QBbx7u8)<0#h0e`=EDcUF%r37a>csuhV9;{XVf~3mruU8
z)yx!i9V<1oukpRSI0qYr=hJrkMAf5IZj+O-ht5)eCm!7rc3fRujhqv`2`ZMJr`Y$v
z%SWfC{1$r>K79B9`d0no4xz=#{u)p7(R?%oXL@@2Sh>kVBO{Jvl{=vJah>nD%5y_f
zhsIuBwfZGZZcBtT%cjra%vJ9iEC}foBgdu)m<$G!rl<PF&5G7O`L67IVIkAfdnIYG
zB5^HrK4#|xoCbI@*LvR+6|HQ~eg63Iqkv8S>jzj&3wy`L+z${hZV(X_6cpe(ytvI*
zZi9h^5Ioakh|IiGi7_-**$P(FQgZ|qx46fumZ_;JD9vA9J}*SGy9?7?^t&0v(}uqe
z&6<0Wc?Uz8SHG|I`GLnEWH=)KeSF;eXxjqRqXFbGw{TJQN|l{5%QTyB_b^{k<f;6Z
z7V_%q^B@I8kT4AP_h<4wdKP&R!3bw<<Q0)5diqQvlmQcVY)hsPS-3v<o4@4EHO?=V
zD|^Q;=%ql2PRg7EI9XW2x8{g&uq~>uyYD#r-xFqJkbiddh;|}^cnXGmD@4H)ou`p4
zx#l4bYG{!odG8RiNf#t5<HNIs$CdF~sL@g0OPJi4uE!u)atFV^M@L7$O7-Z%!nWYI
z9K^0V!uPj0uS^IU#OrM`)FDqN%=vEL<TBR|PPWft{HS0!EJ>l#5J7nv%u~uxYaU>)
zWyj$Hphb~pPPX9VMAM3v%SJqc5Z;7v9qi~%8F-|*q0TZ9+*XDlc4SS`YvWa$Ikkur
z-Rz?%I&2HZ>+f-2wqRis-8IN%uU)wwJ-by=Qle9=3r;NmI2H~Vh9JC#3Y+CM0^LTa
zF6TI;q!rT=bhf|%cHQ2}P~4lSbT|UeN<L-^dl`(vhPnGmr;sjed@EGV%F1$I?#~_4
zCIv<5@bxOH`AKI@BpX(E2Pv0Bbhglr2dLMdJ$nYyz{ZASb2ljt43kG?$%CsRi`>EO
zOV6`apBANi0l-vydwXaoHn`&!xTD(`CQm`coDB0FGiT>hk<O_oFXv`rdi3QbJLs=X
zJt1a40V5g{#nkU%$M>igSC2RTL;Hqd*hxCu`2xeGizprFHq`@>;jb?AxomtRxtx@7
z-CXcscKM-n_<>N*>!0J`Y<yf}v@)2**(Gg{L<n)*K>k%QUfnP}9M$c|#==JJmlEik
zg_X}9dV=)R)zt-t01zJN;3F7j9&TyY5w<LUnu{A*=JMO&>w(0FkdP2ixbQvdVpa<w
zBE!xV<qcB6-+KPb*%)FZvn-LmH@=1Nm!1W1Pmp$Cu{Y_M{`ws_ES%Fof#|OS)FE$W
z(vsxDzO%nJ0#fVWjmaoo#Al2woAKL7tjHqX#=s=zsTkL}_V9|9i-x>BRIb*x6lFOA
zPDsUJ2_2E<t$U-NbglmWE$+Q(Y-l(cd6Vgg{(1yxfJI*X<!lHRb24u#DVd*uqO<eX
z&O-O|=g(smnPwl&QDWy-B5o5R1c#lw;0sp6OK!I%ywr+D)L-$2Y*o432+=Z#zkvs@
zhY3Hz^t>iT;flHz^vUb!=%}iy;_)+UAmN19g<;r{%KJ3BjGv;I6tqEVxtf6Gfu!C<
zMn&dM5q7K66uz*Ba#+D^@|pLD;mT|302S3ZjB{{ske0?7!C)B4M>R3IK?zqaHS!9)
zl{YUG0aNqdfa|^O(3qVdT>t?V3b9C2VoiiX$j%dF-D3%5ZxRDTefV$+Y#DbqH%m`-
zZCS)3)?a0axvcF;uBCx5nX6U-+q<f&o!zBAfC$C2xObg3GnvU1I?wX<Eikwde0bV^
z4M`UZFW}XdJ3dIRIGo_umGAJe9oR7N_ok25sz>7XJZZ(*NKyLSX>h}9-{)L1#Xa8@
z6%~E@<PWl}vA+a%#2)NvuoNi-r&YRhUr12Ur^$3#z_g;Sq(rsk`(TEMW|_YG{vQ|}
zI$yGto&YcbFkzk>hVHW3<eb-)ohb#WiFz|%fU#Y5T(+Zq`jhA)!{o>t_2(;Eo!B9~
z8U{2$8wpVGYIx7<`M8a3B)qHl*LkRa91J2Q*5HU$v&^n$lP#T=iemzxkrlUH)M9yE
z8-W8M=#*pK@YLn8AbG5icuqS;LI^>4_0jWC2+9kV?V;cz#D*f<vqs-uaU?X1Y~Q3{
zuWsXCYf0KX`LcviAozD9f(hfl-G;9eN3U1%9Td*oY;3Sk`etTkIywtGKH2`ez2K;l
z$QmqrSXWzDM@3FvYSNgpsRFX8X~4nvZ{NNh@2%|pRfmxZ??X@|N(HPMcXxMBPtT`M
zj|a0PaCr6)4nR%s05YV*Sm|VwpLbBu<<BNR3c}9ifeby4@67?Ht91dpy>}>|hv!sX
zCsEL@DUz5ys>}tTjH=rgurd9;Kc=QsRaD&E+$gz?kJgHE0P#_Xz7MOKbQI5W0>vK&
z9@gdp3d6sD|9<(RQl|e<TU%R4M-KMb!9l|FH+lLv-s=D&5aXVP#zu8kGNe3rYKbmK
z<BSG=`{t%otfE}Y{rusHKYv>V_9H+QvekULNfNjn2DW?KI5FLQ<-|2*Ryq+92qDg2
zh^7(E{_@Am*2?N@T(U}G_X2@rg?<UnP`xpCjgg6tPQEV3)YMd&zJs^-Ar6V8EWWPM
zF0Kq~W(6*Iy!!0y47~N}-f~S%&0|5@WR>r;vpmTvv5NVfmQ_=K$Q2B^QkMEsGt}OI
z3#82DWt;qAQP1C_XJ`JXNO0n^k-L4&+}dIxC095wnV9=6p8GYmFwXBy%ac3j1}0}F
zDCNr3P`%zfG&v;eVP$P?ef#$9TOv*cZ1&&Z>0#pkOx4{YdiLeZmqOK4r^)KhCAYgq
zAMC(V?@PHm1ya{D;#(kl0rsrM=xzW($@h07Yx}-ZIkQRyC)^vW#ePw6{;yTto(H3?
zOPXul`z39rUwmAS;~&TsvVr(2ug(KPtyqignx@AmQyvBF{>kjmb6Ul^xjaUCdMt~h
zZ0?k+8{%_Ewi8Kj)&tJHNi!bfslu2T`OVO2RGfSCHX3wkQVLatq>!vJD4dI~TRrnJ
z>~d1{on>S5?>96znp+52p~zQReawKA&*fo?k?rxnpU6n;FOFQ)HGA4OS4W6$aa`kK
z98Hf#yPq`!z9rHKEjVMNf%Uy}*3&bq{xoqm)v%ep68`pUGJlaTCcceFj3#IEw>aNd
z>xaUYB1kK=k(_&D%F7Gp!P(moB+tZ-jdUkehH0<%Ve3d)|NKlt!c9_o%*XIv+DiI{
zl@7&8b!awD$J3Q_yy)k34=)d!g@gc0N_YPz%;a!zu6m_e@j~qT_5QPVr684GBkGv_
z(c1-Pw8>d*G4*Zs_F#RBCNjeLi-HLQ(&QN}2F{*^AFTD)_w=WWSJ2&w@rjy5LczQ&
zjtHwKaAs{aEPS&xJyvn6v6p%}VgKu^vg?Whcvb|%T7nZBU%z{zz(TNTyTKX>`0<3w
zkoX#I>dyp*k<aqlY$6B)CV#ckmF$3q1xbbB)nj;%e3p1`MOWL~JJI`aZ<D5wU_lrr
z`Vg1xJR`bhHqINJ+g~h%$*l)&q=nG*ML<yd%{bYfKK20ZlxNSH-EfH&w2eXTQ8UIv
zok*e@7VI3l2fpp+;}x5E)jv0q@R-I!>EqMf!=oTi#fD&H4?^N6JsP?4xes&Hd&;dB
zZ?=Dr`fJIq42oMQ*rkI>C_Tq_xXq`3hHAbXEm+%^$;OQb!CwG0QP|A2?cBuw1}~Fq
zS})qIu0LuX2mpbdOmMdctu%E!<d$3JFSS5lS}VZan}nhZf5Y3SC8(u9!#oDzHW;`~
zMEgZ;Rv5$kpU)Un;T4z}Ery2{o3~@=qg9c$?J+JG_%aFgp4|9%o&Dm`((ckaZE}_b
z<;`0>hCE2GP<W&Syz5Deyp<n*J_cYPqP@dV4AtD?BpFW5AeT53roLHBV1L1Hc5JqJ
z%6;$b7iYv#UjIat4}m19H$rWLRuzDmqfopSUM4!E?ys8x;f<cQU@d>`4D{ccf_=PI
zg6dFRR_&j-FC#GR6GctHhuoCynF%Dw1+l5D{D$mriG9_^(+^9%X!T}JEHVtY3F%Ek
zJrF<QTYrLy&u(xJtDu{I{*z3CDLNIoTXm!myd5P0cdIiC-5zBW0#FM3Iwz-#Gvec|
zGcZ_>Me~bo-k_hMQZ|9g+PamT_@{XonyY8qcB_;d+AG0u-5U79QYniqP_B>NKviql
z*9H1uaMcGYma$p;ws{r;QVFK#|JxIdO<}`w|9N7Bkby*!;mBLkV4LhsTT9F5*i>d^
zY0CQ#s3~3XQ5v03{!Ll>MCbrEdkfEde=^Qp0+}NPg#0I>lsJ}5783$wzZqvo4`4~D
zb*KN{P$cLqjJi9)rImK*lBd|bjn~)hmg-Tsz(QI^a4m$F&GdiX(oNw{*|YE#_eEnt
z3Che%vq~J?fEB`<`?_8btMab`@8um!O6rF<nN8MwqU0Syqq^HZRk19Nc!yu>EVS%U
zvFk3gmEsL&3$?yrxR)oy*Rf#!bE3WB!BIOqxAl4R994{W*p$3EB^%pKE;UkSqi}Wq
zV(qHTW==t{#Y$&I&cga6G^XSsZ%m4vf-zCf5jN8MQVsSLKVUy};D%v~^O3?lp1@p=
z^d?QHv7O}{%dpC`lg7Vak~srga*kt+xrYV@)OTk+cJNSq+2F1He#)EY0dmV}RAJ5%
zoBoNvc!$Mx+e?d!d;fR|<m~u1F)6+9UrbO!qtTWZGg0A3*cRBC&3zKfQdZ~97TtI}
ziA4dD81`#XW4WX@&#8E9q(=V92v>z@Z_*w2{U+GIK6X@xN!PYdyN0CGYFL=S+o^2w
zg!(atzP<ouj>O%Tuo2DxCxg->N>SYQ#*X?h>18dQ&(}8+f?q{)S-crv_Y^mAci$^D
zd@oA-suc-umjYiu$K50+%;N=UbV%m%Q)8n9CuhQg@X&h*%xf@$dt>CX8;UX1x#R0R
z#`ORu4jvl#08ac~xS`JH{&Yq*>_}Z#*PRd?d~k4%+6w{1BjSpS`k=R95}8hGGe)i&
z1u-TkB_*Y$J>8k_EY>O7l}hm;Q$lns3+ED~2z8<vgM9!6AS5iTkuG?jl}yPllET%$
z&aQ-2u&w$Hu4<HpTs97-%T7>ONXW2kti2rtFu;R(7zW&7WuOv6v`dE&L>G@b3Y#_i
z(}ZY6e$`j!VtlBgHb}(L&>IX<P*Q@*Xtu%Ap(FApKrewEuJp(s@1k^HsYWdZW`&ZG
zUfpGFWo2b+>+Rvetk)ZJG{_WFw&++wDPqCR(vZ0O)!ZWq%YuWA&CbawTk@&f?uR)_
zCHt2WcHj<V3MoOpj?1o~sDcO$oHeZN>({R?OJ69$+FB0{=9wpPklUdYIPH!u>6suB
zuB@qjpq87NoQwk8u#APUC`(LXM@Kdn_I976FoT#|$C4X6IUyJ!2@HeaLege7gsM>*
z-b;XoMls0>y1Bbk5QY!faB^_W`*H1nX=o>1Mq5S>P~(y*f%Bc2G^y9B#^@#t%ZJjE
zJpnTvb2HfF3`*cjQv>|y{cm9sG&uhmdj_8}m;{?O^^<zrlPNDoMQmIv8yg!ds|m+i
zAi%`~=%G;`65ps1V^@*_p=`B!dA)ZU%d=_g&)DaDI&Tgr+yh{Z4I7zLzupm9YfoUa
z{p{1+=Dc@+JL|S+KZVj5b0Y6N%O1<}qr{iQ9<ra*SVur9nv^^9;~zC0;m9a^Dbap5
zl6;^MoyQhEpNECzokcyYfA=X^&iT}Os3F*zCZWG?B!$v4b7G)p&oRqhm82iz-WL!U
z7yBA<0f7;l_bdvCvtMB(fH`=le?=>sXlcQH%9@*--@NHs*pWP5OacJLOFRqcV^5r&
zdDz$t8okPl%6`^4&$fl(p9fxUOupyj<a{K-zbVd_S7zi!sO_5sHhp-xhXLn{{`<_F
zra$*c7x=EugY@U2Y_HVbfZYieYSdPUi|QDtucxPtO-usLj&`ynya9D4Q)srjzCH!O
zRfFd`kl6qMW{5`b9<StZl1BrgqUG}96mX>(BF;ZA&u1^sH*95+R0?@o&fEZ{s-dAl
zq|{|{NAZIm4nG_B4e!nbu_&v~K0i}SNsXXi5~RH&cHD%Fs2nXH0Pp?*`gWutV6=gv
zrJ*s{9)4Zsd|wAtc)A<}NZ}0iqLJ9!5-D&?UTSWWhS8rtO$`l;zuSYwV{dQ2JeYMF
z#&9NEG;(|%2<qJL-zlbKBQ;`LpYuMTOG{GL|76wN;d?8<)wG!>81`28U1la-#z4xi
zkjlo!DJ%Y)s71GrDuvZke>@Nyo0|Y5?q>+n#?CmANXiAhO1`?5_KtywD^;eSL6ocz
zzZj~{h#y2f{{))16r_Fl@ZlZJ?95irK~S-;9r&)1OgniiDqcG`DAx6r%x>KS6TBVM
zx0F|B02nOCnFc-9r1S2evj{aWO)L(;eXDaR@dLp1yv^Ls(eV=?@_G`O0HS|jb$on$
zaBu*^<KW;hVkgLv{H~?Nj3XKF;LkfP>!#SFs|~pNQh7wu)YR40!^6V|1_l)Khu1us
zPkxt>-O)Hp4LVM3)60hi0?}W#SQkjf-@r0+LvV3&uCK06)Vl(NU7}ych;f{4o-yau
z)z=5H^#J8LcdEm1o&w18#<h-<FK$Z+J5IbFwi~N33p(1KD=#kxRX&}hPdvODD7@dk
zp#xiJK=CV<KkNf&T#yx6?Y(qS6_*lO8sR9uql|suCUS+|rQKG68xeAa=<sH{e*`xK
zMYa9$3IcEp2q?5d_T+#;=*S9}YLK;wOtsz^6F7_w#l|e>Z7&+1K@f@9l@|blZmO!Q
z-xjieIbfqYDocI(f)`s}gi31i+reh`9{!-gG5rlFxQ9Bn3s4(Bwhs5C;2O*d2rD6~
zC0Aw$vV57Ex^m!KVba)jC@Y#k4(dZK@&N@b=ox4H?Ik}%Cj9Ff+4OC6*m52OY4g*@
z5)%^xUduSMx|IhD54AaHf^ye}g4qBAkR=^(0yf0(`T@wpUAW{EhAZ4VqNEUHp3n#A
zfz6VN=6OFv)t%R}J(91kMT|laEVj*Dx#x#AR-xiY32y>`oKxRUYJ=BiHUhk6<>567
zCdU9lu4PXSJOqPwf~FtcSlX)due4cs`KM2kIYZtDzxA5&NmY&U+JQj3oN%SuLRS1~
zrWKl%SqH{tH|O^WpkRy@FZE!i7@$oH(Cpw0i^ZtNqRI9A8unsIZUG(ho02*fB)h-6
zyUP}>Qn2wh_?_aT=hCjBaJTBh=kU;4ehA`2CiSjn9po#;E&Fj*B~%KaGDWeV)|(Ap
zqbqwmQt=bN#NcRh&&Gow=h5<(nUj_(b@TZSFs2u)2Pg7hUhHPlE|m`pYh(gLf%0oF
zLB8sINqm%k{*$ZMAP5!ncSehKqO>KxxZ9J*)?z^&k%KS1JUzjisef50_DBYc1WXIy
z{`*FeBYAmgY0^>n-zk*WDTko@#2u+P1>*NekQOl8a|gcG{H|La3rL}893L!*G+3i3
zNtu}d%qS9WX#$53Sh&^s{v^yslKr->5Dz44$x9mxHWq!H5_jsJR7%ed9QL2jzpi<p
zi}yigbbQSCvm~YR?if(b9oX5~K_DpoyaaOxnL45X&~vrnPb)WV`t8+tOs~91`dji}
zc;L2xvj*(CS-^pwg#{8sUJF&I=sJ%J$!6YXCJk#t{NAubf%yh8fCsTAtpTnAbag94
zUU~WtWZ-gj<C(RsE#M0>284mm2ae7t3?W9;6&pfa0L`k`s@kZGkr+deOp6CWrXYcD
zZf-U=OM@jraHZo%jsdEUpP#=}pK}%`3inFj?~n})l)n0fnJ1~&17zz>r=2Gz|5SQv
zWlhbY-rlv1jYU7iXQ13bP!+H+IKQ7f3zV6~p`rixO5(7#UpqcvuwM>kpW$CQ2P~O{
zggp0GhXIMQ6+%Svua%fd$Iair-98%olUPxA+=jVsl0w0+V`zm`a<w8$te%xnIslf;
zn4t^fo(dMX0%O9ff#nx3Uf|RF1aDPgRHs*NR)ft2%mcqnEG#S>9M%uk$CX~t^&T3u
zGj5Ku4Vqv>@N}SVG?@miePaOw=621I4*B;oAbzf{4(9_h#l9wet7<x@9tZjF{?|ZA
zx?lJWXh!<Fy4zAIr)1v$ww5wuLJW-n5IX&uOq;vig8pqVKQdOec$Gqna&pC%%e(2E
zkrKe80MUVR7m$b7&$H*}Eep|Ni>l~ikLh|>pyhyk>-JHyLqS|ZqDU<b7&gduv|7$~
z`vBolTU*;Befug_&&=OX0>R`tAbjClK;1){-UgyZ=W{BcoUm$U)6G92S5OdR5=>KL
z2s(4^$a!%!3v!hPTqA&-7qHdncmVpOQ>0N=QX)W2G&wnW7;qUExX<*w(`{#7AskiZ
zI9WZ@=<NW6Bj5l6lQJZI>S$sz1EL3%$&Wz&0TOblK~?)7FU<_$yDTh)fF6JM?)TSR
zIgr<E-h%}z1`dOTIGGe>W^fb$r3qZV7so4Clzqj+I*`!af#2yaC#T=vNn0Qo{g|GP
z5dv$C8f9y18yNUO==kZ=r#A18ft)l)H{rLptPa*0pq7DD1yp08<E5me1nv(j>6d_G
z4{(}5P4fTGn~dJusO#zJ>F6XGbGHPZHvl~}?h|00jVjICK!gr_&+p{;f18-7x9Uv<
zoH?jTnlDb)_fubqy5<eooNjuz09k!c1`}WR)A#z7zlFN}fmwhxFLhqa;D^T}XMsTL
zIvp7qDMUa1^%O|8)?diSNEben$f&{isENSzkw!6#h#ZcUJp^&Z!NCDx{%&6r*fP7Y
z13KBCBV)#xAPJ<gt)@fzJwnwKE+ppFfKAcJW8n;-bj`Nx4N8Cq>Ej{-KLgqrG?Wu~
zvIcZI<9Zhh-~_nO$5e1D2PNo2k{{tmEj9hQ-nDTCH0hC``U*fNoBmgPK^JH9^YeT}
z*TU|xKGN*MHsfPia`HLZ{!B9U;|DD*t@PQpT+8g%-Z3SYL8a{weamc%_m=4x1uzrg
z#DS_y^6Bm(5JXn8{kSVL?+0lErQWhLdMjYd?>Z${YYbR_6Q%kk!*(%qcmn^f2!CL+
z0hRR$)?ROG5QE=FmD&042LQ2{R*1;RTmo+Us(SPEJOC%#WBxRdN(^!+e6B1AGKbUd
zAZ60f(0~DJ3|;%Fqo;R}F?+UrFmBeOQ%?2}Fs=kU7B3$>zohVCkllaK3gxw6UxS}h
z@CL6|z|W!f{Z1;gtD@nc;PYI4z^Rx2HQotOMB>B+olebWOZlbby}dlCxb)rWq>}Sb
z8DDSmTpx?)0V_rgRH%7uI|DHGXmOV=+Etz}F~A!LCj)v>|EArIh=o6Ovrdm6C-hnY
z#{^jMv6sE1hKAmn`arar*3pz=N$P#6vUFuhgXgd$tJE0%`L%M@rqhoPYry?>9Vw6M
z+?0G+0Nii5+#NJe{}n02aaV4%Gf)H*mrj6!G61Yu04e<eI?cH}v#l6!v>8bEArdK=
zs&f|D%lkZk;A_JDz}Hti>W_4L>v`F`ck`Q)?ZDmhI&O{y(@$Mt2DG3T&2Zp%qo$^w
z0F`_Klai_bjzW{^mWMddDc_@6Sy(#%cpdKV1NbJn(?K@tzegOGPaG*qNQ$!JH+-$D
z<gb@68V1g@+5+?%Fqys4$T|T*g#$snq}OAp%?nVlpp^3cQ!{==m|um0K_<H>!42gf
z;^Gwbcqx(KKX#K~0bumXE7D@SqPg!HdF(FUZ=4zYp)xx%;tp^v*nG~D)rB8E?2`l?
z;WYV4Sw!-{zuCge{p{^K_x*LhfMX?EqbLK2z5saKrM&K-cr+-nwGSBarCp#0sWOvl
z)0LA;@94$;Or71b-RvkR33-J~I=Dtns-PW`@$BDrfc^3oyP)JTJp-P=qQXKxzb^o^
z4W<jNKWI5g9$Il1r2`hc*!$fybINaJuP_2o@;yB~$SEkw4BxX#Nj3d{k<qeW5BB$o
zi6dauI|d<P!u+DYF%B~0)%kp~^O9Ys`LJngj{XLfN$Kp5ANIV|`sK!Hsi|PMGO#AG
zgZ%(32Bq0N{{TSpu<m0*L)1B64cLcS8i$Ru=P%%HfXoKHFabCW7>)+gg&MuLHn+BB
z8@($~xf7qBzE>&yQRmDsyFl^w3bakt4s0Egp<GCq%xjE*a*-1R@+|mor<<W$DyEgn
z%zqA;Ai=A_h6Lm}$suoc3YQ_;z(90Sm4F8Ce&_%Um=QD&hk+bT8r5O*e$Ar+@aUu{
zqHCW4#}1SW0RL)?o&dL~x;imvm9b^^5=@NbZVwXx>MUUVimmoF02qI$txX@W$<i4A
z@gv$#)EGE9LBg=Jw@(L)O24GWsH{H1RY&*g>NsSZ=g76e_%{7q*g4xxZMmAR?$}%7
zGc#qwcB`rX3n%rgo8$d{KO_yxbCXJQtaIe11#Y=nOW^6>C#ii0n~ht6pwO?6xVgHy
zc>(;S+@_z70A!p6$6S{bt_I6!Ogua>E$#RVXT`>BOAshj05-jm*$5&6k}|ruAO{TE
zK$m(0_;ju|@A6O%aHg*B_}Du*0G4QT&IM203DgvIvw^2+w%Kh`bmgO?qaZ5MVDR7o
zJ6|`uYyg(2X}Mn-r~%kj0%wr+e+B%cy1>~rZ1=%{3wT27>c%arV(6uQSn&%93Ee~i
z%h#hR11UbX<S#%eSy^6wQ&<Qpx#`b6pLV)#0rxB8l_@KKIMR<A>;0q}1G&pW7x5V#
z_PFJwgJAFor32D{D+Np?Ktg5urxhT-0i#lFtrs|%0K{qw#RI4F72pF93zQK;|J0C(
zjSfOg{Li01fz>psoVF8;1Yo?&C7vMQ6AEm(1b)`sNyjemG1%Zu$IBVgIYWQE0HmQj
zgo`F?g~SW<^2Vp6P#%3<KR}arI;M9!a$TQmm5PxyGh-022CExuS}u~rwe;qV^;H%d
za^_3Pm{$ZXVxPmoH)HJ-VBTCvkkTDDVI-MV&5bLPNQ|_1o~7@_xik(C8@P-q`gHa5
zI=6k=^;Hk!;{b5Y>-ZkSTkC)U1|@7;`1~phs6>&j1&V76DcBAee-eD)K#dT^Mh5JY
zrd$K%|1zn)oD>ALy8L&`XxC@jxk|5Y(1c5Lglyyt5DgG?k_C!Y62M`L35$^JnZ6l!
z^=T^)Jv!fF^F=qB5#%8(k`UhhnH>WaU^^9sZ~i6VVgWW(I+zIDlKmzG&CAv|DGuA+
zy7~=Fbw3ZSXcTX41Rv;iN2cf?6E46fkuKvP9YXWaf49YA>BZ(H6M?&Og0YcCy+FY@
zBVZGX)(6-K9wa#gOI!PD=}sv{#cam{y1diwj<9+o_kfGO#jO|jLn0Ow>@zP0=ht~n
zCGIySB}Abb2A<QDthkx?UKoP5pRdp$#T~$dEj~9e7WCh)gJIpodXfXIz>zXnW%qwM
za)CPmlt>{9PeBK9ujB9iv)Eo0vHy4b?tg-sq($C&cxCMO*}H_}R7FhvdNm9Fg6=D5
K$d{wcL;nZS>O?UB

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+-+-_S34.png b/plots/2jets/kt3_100/ggHgg_+-+-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..ffc896a63af2caa875854499e7dd957a55f78d93
GIT binary patch
literal 13435
zcmbWecQ}^u|2BTvHyO7Pvbv43$u1+@W+;1Pk4UmYX7-&ulNFg!l9fdEOp=5|Br76B
zR<_?u-|y!+zR&NE=Xj3iK91<V#{0V7>-9Qc=Xr|Oxu!-z#zcl72*nk3WjzGJH$f1*
z%P4#}@?CLP7k-ua8<=?M+4x}GJ=`2_Ioo5r{M_v^_P)0q5X5)P@LC%Mz6klg51Fd^
zP^WA6C04m;3dXY}Xqq6da{F$V{oT5;vQPWY$=N0$q*b=N?4m2-u9Ee|S@uCi9Y^T!
z1Z6k!GI!3Z&ZimY2L+=~abxVdCj_spQ0R$NvLHhB+2I3RBPD%P?w&-0NnVtXzs6+i
z=?N1RK1}I#VKKB=>+`YMmvA-Mw48JiZh9tVHjlsH1}{zOu72GUK~B-0{KG>YWi!G-
z3ojKDFMT%$FCQBZdql~@-p0%R2FB->mm|i@(H>*$=Ir2M<ATw$alLuh=B7Qy!Oa7s
z?{)Wvy{nfeMi8T8@8Rj@YU7MC^t8ulyE^+}q%l4|K0-eKb)S%(n~VCSe+oQ^{p3Oa
z+P~%IiZQt5VvmSk5V<5RazR=|1S29QEg~*0COKT~tAZdH<chMQfp7N8M1ZfpeGbW*
zRPFg&LpVzwQm#c6bP`9pj&-b&qhb=}N6`YAU*&6YSQQ7h&t0r;UaEc$j9)EsNqp{p
zVvSJDo|YamOvX#~pyrVh6l}7~zl!s?tvU4S%A?+|@{|E_S4;=Rxqou~+}{o7zH~)<
zlI3HH)#T)Uz@)LVE*&0%p!rHBJu61|>0>)C4(x9Hv=ADpyE98eOB?z91+$c^i9p)J
zhYy#Rm-BNe5F}4tKFUur%VqevVT1Py*{t%}pq=SAo<CVA)s!C%4-ennTo^dq|Eu=H
z8Aju9R}mw7XGU37^=&jQclNcLj6e4V5`!K-dZdBM=XqXT?Kveyb&xYqsMeo-Ni0qh
zZXtjFw?sFlpn30C>CDVb%kkkVw|36GsZbI=KE8yr^52Jt=iD#;Zdh%uzS-|Do0EIA
z`SkDifK_I<#^i?&y$<*8hPSPK5bNhj)tF4#-rhc%mulHfJl;vf3%bLz3Z1nc{~KCa
zRW;yHovBrvlasT)zD~mC+dA!TQubwVa4?*NitVENRBg-Q3Un%g<&wv0(_inqcjtco
zWH^1g>G)`We|sh1N3vSRhWQ(hqT1S#*+1|f6~0u58#m0G?`8TKawI#}jOl!*ecVq4
zo9b^MM%I7R(aLHv%dPqA$cWF<m$JP*f2_KLL$TI*O-;?-j~|WrQkml4y4KQSd1C6J
zH(j=WU;><O-_A^_oA}+AB^4mc)-Z7tDSyCz?%dp)pE=_%?N4n)*mOk5?JrmR-0SZT
zKH6}+=MPiaI3D`RsU}Cp$8}|_M*49A`lZYGYv^OZ?>A~3$)DWT_|Kh=R_^QTJ9Fkt
ze0)5oTEfARm)_!7&Fuhx|Ddf>tJJi#K@zLr!@Dh$Oz#6=LJFq5eP!<cGH`G>&q_qf
z4#R#q_~@RSTZK9o2QEsPqlE;Q^z!9PtE2VwiHV6*^a5)#CCVH<@82`+Fhs7iK?|>=
z+p~0zXJUm<CRL+Il$SU9^7^2raMR|XCcH+n)7PF9Zhn4#<8t#eCA1KK2+3~#mStBK
zppWgcJx?~M_T7I;aPm=l{<CM#Myu>dhV}_z9<OA`VG$%`2knrEhP`wdgT_Zf^4R~6
zKX+Gk&QhN{cWyKM?__Xp{00GnD3kGrCSeHi5rsGfCpvgGMJP1)|M)Y$tVR_N!7A&1
z&add(5@emN*87<e$B`VhL?2pt@`BxzfiB<cE7H&&_2uzsy^De=|ISE|AuOeCi>N(D
zjPxiO4&LxXISxSx7;{sZHboS?tmU!D)F?|zGP*sE+GBzR%@RiqjVW{JPQTJ3r@%Kx
zqwqq6buN=-D_{tbW`$iIcYMP_q?Li^EYY=-=UV06qq`XTnFm=Tdao8ry8w6J<cZ;v
zAK&|(^M1X$j80`>uCQNDG!wo4-Ku|p<c%w5r~D=~DyCR!rz1+B8^OkoxSw~tORnL7
zd4KY>|8)Wy{ddCC-Q0mp<y}JnpGXUv$$bSBl1*A)$K+Xg;LJ~aik&Qpi73QzgP(q7
z)rC<2w*W61;#jzZ)gGyFnJ^Amxa}G2w!w;_i+#sRz^&jrsu4e!MQtl~9zp#W8D0|p
z*+Whrqw?d13$tPZ-DsOp;@aWgNi{mckUZ>*Q$-}Fj0H1iwiXFF)X1nK;f<6@#l+Qh
zKkJ|3)@o6!^_s@%r0H!?q>ab~Bw_Bq!w$n0(W?(cG#Rd$)ZEaBl2<3`?U*z%tuQqk
zdm-pjLrAI@#RA>OXtbB(7kNJ6)JtjKzY`LAvbvTQo-EWPu+6J8YQD{jqB9AD$5kd=
ziJ`&1^!i0o%-B9^Ppa~ymF8sh1hwvdNY*&zd4cm>iMy!-<5E%n$sI5@&Nk;i*1o!)
z8Lnid#;o!LeO)~sUje5}cNYdCP_ujM<0=V}Sj{i$k}K3-{n<_~K;aOyO*3a$+*f^y
z<QPM*gjdZ)g<HQ?66TTKA>`Y@io(K{f7cA=mY($VR8}9=y_>=Er;xCAZ?#YTJ1-3C
zO(G70sd>F`hpnlTvP0;W_Fm4=C^Bun=jZJ$xnZiJqH_IuX78M7qwgI>#n6uF(O0+h
z;p6SS{XUi7kZ*XzD!3_d-@9UDzm<UMV5eJt{<l7Y{2l#`+Eb+FRgS4EFE6jJuYdJQ
zTwXr7JAw7XDaaB(KR)hF7q+Uh?fN~@01;+;by7IJccj9q!hny8<)U@%c&*F$c6ILI
z^45rz{JovEcxI`K2aHH7d%g7LkX_%0WUVsk&C{RTX<tR1e1G;hwC#bUgapLy&CN~7
zRjU&XBh&6YbY$45F53a88oRe~?6`%kz4`h1;^N|&8QXYOeG?NCBO~t-3!g<V=}aw$
zDiaM&&0!~rkz69AAg1TOXrL%@0Bf5<^QA$`((vD@1y-nhS|2YjE^cmG><!UOy^>d^
zZd8}y$c3t_WkzOYM)Rn{SJl-UGhMO4$NQ7okELsDI*1QQi810ImQj;D8PAO>$EeB0
zyKk7+yJMf5wz0JRz%tU6VDsG@CN@)=n=ecA&|vAv?)T2wCX^cR%|{I_8k87_W(r71
zY%#R#+*jw?TX73EGc>dp&CJ*s+@~I_JWHz}OKM8jVd6Duq5C_2;F2B|C5DY2JHtqK
z%fZ0`W=~gF*Uqlcv<#AooSYm@bf@)&SFc`~lo`bon3|gA_|A|P4wx7krlzFmTUfYU
zU=$S-+lNHt@BhQY&)C@5*0x~PkNN<a`G7?0VBdWpl@?YReMU(^?Q|34%#q$(W7nPV
z=n+#)L7JeMWYED51W>Dr5e5c^^z`(zvc8`dy*_41xg8zsO1XXi)*Kjc`*x{mnProI
zjcVcU=8$$Go16yf4dk}md+S#mXjHCTA;o7`_?D-HkqezzJvaH4T6Qs@sp08^Goo6C
z{PYt(48dc>2V4c++book=0a4B#@}3}RCGl%<1X3Oj;Csz+xR@^;U~*h-y9LDfI^cH
z|HdCo6UuI_6*AuaYSeO_Mb?>X?fnYrR#5WtetOZ7X8(?=A~s6v{02n|f?mQ#2WN9*
zNfe|OVNtOfkp%u&lS<o5qqMwh7HVAC$%LS3Ob<9OXYu@zEFk>y@s(xGYs(tjcj&!v
z1r)}S{jL0@5XMa@Pq^57-v1_5^<N^nIeDYY_{tRc>>=o`+Xr@^4%^#rWzO9+TU_Bq
z6^|>)L(C-P`aNrfAwTn$(BVp&;$fl=-Rb0GMM7-I4tMKLcWV;+ap0dW2FRc~B?h>p
z=H}*0p7YL=%@&0N-~N!O#WCtyS>>jsNp=!LMDG-2@0OQm6#a22rN?V;^A<MhtFw@h
z(9uF+qEVUY-R|6&&x1J-GX4<%5k^Ol+ugUUkYXffON>OX1B|fgO%oJKzr8qERBBZA
z{Mj>;CjYzI+KGJ*<BfhB-`;p~ZfR1Z@MZ{StavWmc$b=!1MuT_fHGg|d2Vh^E*h-5
zi%VJ0jRKxufE%hE`b=Ltf8AOd87VU}HZ#*i_4M~2|49tKxBjCCjxx~GH~)FdZ1&n&
z5kmer`k0tVDMD9O_j6Y)12Z#ofd4_dqxRLSef|AU8E&1Ca{ZRC6xn>ZJ+5{(&<mE6
zQ_bFNqWo*qG8h*Oj)yL0=&5$%8L{G5ue|ymNdVRYyh-iM1&c`wd%#RaenvHN!d2dH
z{YRNu?b`&_+u}^Lw6urif*S@L$<Ky=mFPeH{q0S4ULHnD>hID1s&R<{AU-X1b>GFJ
z^tW+msvQRks4nkJwUL}Phn^K_rgMy5gDElz+hL$)6pagmC|A+E$0s6k2VO2{oR-3R
z?A0ydmV<SDZ8<|j!y1pd_l=FR(aI09PCol5p>6kPuC}J;kfS&N9QN?++ad@xGxIM|
zNN<ZSAyEnkcBFwefsy1@HY&<q-rj6-{^FdRc6*zPn>^OOvTTV%i#KK*0dJWI{C2yu
zTv;{Dsf;3w!uSjC99gOyoHCnAVxJIpc3x>cM==ha2Fxnz@#9@%V<WqzT(t7ccouon
z%}YFxU)Dxi1KK!`R5Yx4d0%f+Wc4}7_-{TlDrNPji(?|hB0)A`laMK5lBfuz!=i$z
z8AgR~<b^rtWMBIU2wh)KuUI>mP05%%6dl5VuZ9Pi+kWx$2WH<ohI`pI8dm~IY?FB@
z9(T`P@?JK<V%y~pI^-cJmuHEgU?Dc5z34vGK6KeOAn@>dVXJY4H-;%IGe&DMPlxU<
zEa1ovT>}HUx<Z-$E)!3@nGdanAyirevC13{6DbQ)+8If_6iO~GE5oJ6r%s*Xv>ZG`
z1dW=LjZtqh6Dc#`XbEm;BpR5qW!NfQyphp29}y98z1rdaOM5~pNZQI-ZkMzIHDx?m
z3PT!26^dUK^=W8#bWif&l0JU?2$1$#_C?*NLw6?9E}UF_<&#H7CT;Wa?^Yg+{8l<|
zm(v6e9occ`VCPPgr9AYme4OSoED9ddM?_n`B}J#Wt?81E7mgqQ!w}ysvmRbAGpo$h
zs~8EG=_D=EyCs@g=h~YD+qUvqivZ7T&a$}lG5z7|wmb+Em(FwQf9rhl<?2lhB1X!V
z-T5r2N}%?jw5OK13@FK(dg#<<Z`fX1hx>>$<Ey;VyF)lh_t9_PzKxAZ2W&h0pDoIW
zfDq`X$gQ$tuXumRElM*qQ}2-iF{Ru0#_QLw!_%R#sdLpNgcne@{4}j_Lvc3Rt=Pbk
zAkw?xurr$W(xppZzkW5ZJtqoLild^rDBN#ZhBvI^JRURQMfZh2zA!w=+1avw>o=h1
zBBP0DjOd=3K)_-<=>id%^6u9!c@6emL(+>kKW4x2UKxW3Vt0oq^QiJPiW*<h@m>pI
zuKxntWYK`_VFMLb`B;SRqWimdgC%zL;X5m}lSYPyeVJn15)!FPua#-^3K1omS3<@4
zHJ-x{co$G)SAz*6<1)$xn(oZLg>lh3ub-`=2pH;uvf`5M+nZhEQbf3qZd0FpO7u(x
z%D+vFkDKZ0-hp)Abu~0j7^aC`(Sn?CuGXN$jYMRA`{JgrY<J>W<I>@j^H*o;1z*4z
zGm1~vXWY47vMG6&F!nz7LNjY;UI5E_%gfE>uhoHpfkZ?^RW%c?3otyyeLhVYPuc28
zV(+)JQdD-c_j8+yi;F|)_olK^M=0HMg8ns(Gx;MoX}Y^2=z3^paOVu=_}G|}las@T
z3=!wi3+3bO9PnOAo9UD)7UVeBkWeKiR!Tq7d!tZ4L)3(ho*^eLA49WdsG-m_TC}*R
z*^Ne}r$c^gQ*BU-XNui?d&ru=#;%~AM0r2z)Sd6s({3N?#Z%J@-rg)y;pQ2%FCZl)
z_4D()bC&2N&qlrFWF=d!n{Dj)QaVv)+(63ybg5jG{kDegX9$SP-T}J0$p(B;j8Gx8
zDrDrh-O1!t=5kVyrZe&GzQ-Hi^kPwJ@}8Y!7Hqv?r@J@$KbXPhBlyG0)Vcl@En$AY
z<I$r>0Jp-z!T^;;WnVatDi}Y7mYmFQgPcl;jiQ{qcWa`^JKE$&5l@wR=dUNRaKqcT
zZ()m)@{!TNSSV!h;>osY)#l|=$}ZaSOeYmQ^ZfbIqS04GUf!y7ShaYoieR4_f2Tu>
zbgDYEy4Yqp(6M$LSc9RjUo&%aPoSfEtrT(PNpQrC-p{0Iy-A>5Z=H7GT$^OT^A|6?
z8YY_6zPb9CnPsUK^78TNl^6)rK7KmmNn{w3zjig0gO%(+IkH14t=|+dTd}0N-_zAe
zPjWs)?s_H6Yo%_IbsQRluEubE86eJKwx+cG)G}Rs?J?5?@mpeuo!B4~j9B-L%`zQi
z>Qc)&tv^!VtRa-3*E=4ks#mt1MvgX0Men0+;?N;UA-iELuL+TYlR%25dxxMH^$IaM
zLE&LMNqA@hLM-}OtD+)#If9}+InGE&h%n)^qv(i<@It(0B!2xv`HIPw(Vu<V>RWyE
z=<X9Svd>%Vpb<ws?7MP{h6GlbV!e_yVXK_SkNX;p02mq>&3n9|7q&Fl(V23;DCsix
z`Sa(8j~_RA%xU<`u_bm_1C;;?19q3kHakL0C034voG&jeEiEq>5)_2gJPBp@Mi}4&
zxMY2<*Z74=Rlwih5U7Ca>784LG|!*<o`8h%liU7}6m7tpb+=?%F}ieyL9e$a<Wd0#
zeI4~7LTr;?m6Y_{5G{K8v_Drqc=dY|Wu#KR4jK!kKI9=W2Xc1hiV-RJNJyM!V7M**
zsJ*@Y<x5elx}DuDtolk{)=n~kvjj-!6INDM)xu;nM@r8_jiO<vA_5yVwMf&z02R*~
zQ<oakOwLXHtiIQGm%cpB4XQ6F;8<(?kcJ~P6UB40Ztz1;T!uV!AGQr(Z};@{Y}(z&
zPJ6t`nB_~2xisS?ZOCT`wGcMn(aA|Ps}G*!GZ`qws&fk!)T%UFH6e=-CIRL)f_!!Q
zw1lMOb9lVo*P$WKWOZ_4B~8s(_|EgZsAw*lJLdvZJfH#yut1Fwhuge=$eWp&i9=^<
zolozz7d-<t$P9^!?(2w^kFWJTCdh~Dx=GoawN*F<SSQh&ub$Bng(wW35pyuF_qqjy
z4xNgi+3Ps;`heQm#jQQy$5dkJo3_4~U3==;7Dm(&Nfo>^9a-x(+3e8ARAbuYzvUFK
zs+8OAEP1=e^zpUsxt}3Bwzo&W`^^~RlD=#1FK{+%r*zBT>6Rjt6Xa9D!z4wOKlZ%H
z;_*gyZ56iHRo#bfZvC#cFt?%Frh0l%>f%0D1aQ+tyQWn*aG2X}V`pgBXsQ{C8C+SW
zDBiz_q~pA~=S?3tLf4gTjI4PEVC5_@v_I@ij%}a##DyW@b0bZfY{xirsc=$f=<W>d
z&xNN1jfz}pJ2@+Hf-S!nNWPLzeyK?~|2d|;@x?;m1tf~d#EZE=u=4n)vrJdxFK3xl
z*(1_=?w{kO8v)X-%q;S<W^P$?(>4&(XleONv&6Yp(+BqQ5HvFy#Xg2zJdRc_`0+=3
zhjMFIj&+B^JGa{2hm9j)e6=UdYN7nNm-V(2qM-Bd+U4W>eXGu@SZQsRVk@TPG!~7k
z6bOn8pIzCE=ddMzO(x6De6#P7ba^({<v%n{N=O?PLr70VN%9~l;xEU(=HYwgaEGgh
zPEMa>2v7F0weFNVCfe&*_!Dv}W_v`&>-A&3_yF05yt@cG7>x>53GE2g-6<jv;2E=8
z)hW-S7Iz>Bfgpn)iyui)i0LF!ITU@h5}9+;vVDy`Bu|+WO`Pymc{&~cY^59vqe0ZE
zn7u8^Ks(6@Dm=n-OrhwkR#N)$j?lxy!3*?sDtCB8tgB9=77tO2r`48(Ykr<%?Y*|M
ztv9)_r)f&qUPt#zK|CU_j!vNx7^mh~*M9ZO$$yS-n_FnJT|s%jN>ut|;5=xx`sqs@
zzc;5GvdPU<GVlR+$~(7PcPAblm`xWY${|BJ0apxLE;&`ihpST|%>~q`)AeUQ7)NuM
z7KNkjPc9l|j&$&k6e|5XY^ij%vz1*zHd+<)<B1o#Aa4A44sV{4l6pvHx%^o3XY_a|
znjjMS!^ISulrpFoCF**du9Pivk&cHyUQlbxD9pQFoy)`g5-*J=&wKvkX?>!j5rp;^
z`(@lkA9o%dqxWWBA2v?ief`#=eA{%U+D@#GZSAw)7Wv#(R3}Zv2<P@Cf}=WWN@^8d
zYWZ7Nu0*>H^K_<|<esOdZf0m3@Q&GaO)a{bR3di&o_#^|t`&yk&T3baz#;v0Q`f->
z%}>#BZVS}yQ=LQN(Utix9-4WfZtUHA;ZZa4?fJ7ma<(n6`oGj=B_!Y<$6j#7pxdY1
zWv+%r>KHLe*m&U)?0W{;;R-7KQ<?{={th<(j<6u@csX!A&H{zIaPix<6zjE{cxDe%
zRVh;9Q4cdVIQ_FLTBt9#9OKXPs_1&Su(2{6zC|gm-l>;ynqaMYl1r_otajAF$WBhF
z{T9{R|9X&?gp?iVtf`LrK*ozVr~+Ne46|hAT!Msq20aYz&f3q85tqr_y=y_nd3K5U
zDK&#1Dim!y2y9*EF3r&DK$)rN{qgOcMVJTc$#dt9DZD5;Xno~qJ%f~a+%}IJ*J2Z<
z<Ml;J%|0II5i;o&qEiYk+;Qi*;Lb>`_4&^Az7L959$b@Kyk0JpXZ84@)3@1XF)1v|
zolZ38BnFMuifQj`%WrM9Q6^-iGtl-=lTZIBEJVzDr_s)9lhsyPj*lDYL2GJa%E%dq
z-Cy5FTWp&*4oPG>d9FSV`Dja*r-o|f_;8Utd{vxuKF?{{PQ*X|-fCzYrAR?FBdhZk
zYLR4t;Vnnb=lgHZPErdyOzC89CE5PaGIz0RE)p?6-K9(-9V-jyW@qD&37gN!e9*j*
ziT7mZXpri$o2s}-fQ|pOs_Qr{t5S)YiVh3M6V<k}R3iz~{hPZ{3vQgJq&YaO-lwQA
z7dVIbf0ps4KXllf?Jqgm{=u>bOtx;57S}eV+}~A7{HAeu`S8l=^YaH$i<9mXJgzvo
zmlxM^^`Y|n<KNV*c0=^Ks%k`@YqbIjH<cL4%v)W%D)cj>bfqDv*jn?}y`P#G!G2Ul
zHKX`reM7_Hk&&MPoh#l{XD=T#@BgNa?NWY*M!~B|>CNwM?&e#UOUe;lo$_4s%Sii~
z-}=$^)0soXp-WV9n@N+&|D|ng{Os3$Bp$tzwn2~2-ihRB=O#wUd~9QAAElxiT9;+;
zQa#QaymaNtm7(IRGC>EvMn-9>g*Mey2SDJ8C~(o7zSbM}G;RUGnQL@(yt?O1D*U)`
zXz`V)%iX(Mz`*wFb@);OjIsK!^Nk8W=I4We#DJVxQgTOP6Ad^QIby1NsEX>*i%I~P
zvFKF~wb{YJJpjRY|9vvzN*V`8`zPT3et*hWlFYhVqz9##qY{RW<wYKSY*^ah1>A*u
zC}&M=ZS5;p-ndV<Kjb|an-C*Iqlh9ipWk2YGocf|{yu7US}7_FO4VGDKV~|k^-3zS
z;gy#KlNd9fpT2qfxr&bUOL58ws^p?6((pDNpw}d`JUu+1GBRLClU>u&8jh)!7#>Ay
zcSOF^Tf_YmG3tH)aKOO5$;fzqx*M7>kLrlLmk=eAT!fCw&dvtVYgX$@!7LdEr3;l=
zXwvrw=q!;xIwx(-LR(^MYwWqFoNPHX+0g(rZr!?-E@VMt&_iw(ie^VgU{TQIx7LnG
zayI(Uoyuw0i!ZCI0d{d;eZ-Y*Usoj}tnke?Mkh>Fd6|G*@r`-8w)`QmJ&XQLIq*Ev
zx4_XD$)5hK@cG@1m%4?jHLqWDpz#$BqQb+NqKaR<cmYhs`$ez!a~@E(Q2=Der?FL}
zV5MF>{In~Xhtf?-PG(Q<6{PQ77$|(>swobs2c;fGB+-1XnDDX6G<CGHYT<yhBqy}_
zjZB0?G~<)w?QdmF`#kM7-^7^WuU@^1e?6Qz6kQidG<;EfG-|=AVo_E%{M)T>ny{j-
zU3+aJFx#E@6KX6aOx)S325U}wgW2%bsCS)jT0b$0`)K&daa7?78e@`HTSuF2-4FSg
zzyVk=dV+|#DvzmRr%bLBr)oAUWE|iUEI-H0yMi|-xk=ESn&S23Aqj3Yqv6*5R!8wK
zU%rspyr}`<YiWzvLOCSIb#?#dqe&Uwm;xS+i>J_Q*O!Gxqlkum6DZ@K-$|spAUCOP
zoj&l_aGxr7&~~Z#G=8c^>VpTiRVIYgD4&(FyUU{@sTwu+cGs7eo#$&}VqyS+0s-p#
zXC^ERKeD6h)(}j4F$kim{Kn4>o&)S<xqNSQX^WnYj*fxB^Dl2ml8I#{^{MAwIK{bZ
z9cVMDG6lx?x2G6{w4jb&im22y1;W+B!ot+lAF4f88SlpR_xzjx&6fis=g}|$s$)*i
zjXe;}et7KeZ7l&!?mg8ST2N5Xe|dj-*w`vnoePx2ED<|Ze}C!Pv#L|JK5eSW>IN4D
zY0nIp3|Res*mEz2n3f^X*x#<K2Yuc@vK{15VCPSYPhj>_dTwZFYXb;B`rZ`4N*RgG
z$KXr^=*x^`96m5&qbw`jTwPtAocM%<zBr2CzklD}-rjTmgWulb(;CyVktIXER2LT)
z6z*G0w97e+(C$P)sKwi(w<ulC4o{Hy<m4u7t2+HK%L@yDfKTvlu>oJ15kD(RMq2u_
zlf>cq|Dg0CC`CShHc0H=n2tQ_B+kTcK#!-ugWnJrL=|?KC`go%d~0h9D)pGz7UL&m
z_uE&zhqU+h_8z39EOx`!IS-L;L%!3Vor_+B`T_v~0a7kwT&WsXzSBe{n<PZfHiK~D
z%gT5Nx^UC~5Q-Pq?~Rx4?YP4r(EmU3<}8%m5fscGo}R($DY=A3@f<sNNGINXtOzt4
z+eOnK>JBs_>~hlvZ$TAZAX+(b_cjOAAo|zU`3@AQxHWC14K12iTDPrDcYt{QBKBGc
zg3x?9@d8Y*jMr9NuU0KHs<3R@gIx(@41Bumy`2l}H-N2$ivC*=_!*)uLj2O#7qfr=
z(6=w)`}YjcK;F%*w^A*7H}J+h=(+KMx?!T+fRE%dujD)t62%O44iN7>5V7TLJ5kX4
zm~nytuTZU|f7JLl5i)#oa{gHS&NLhjN6o1UlD{tn&V-t{Al~x&rkBO|m%y6HW=YQp
z7Nkxryv==g-M(U^_pXu&aPI^2wJ&)h1@S`A@hq1HSG=uSf*!*f#}7pp^!Z5Wz7QZo
z(`GF5j8NDRdFM`5_)g>#pFD{Jdhm~%nsG}fBE%lWOt_>HN2IFY*$%u*=Iqar3s@PG
zfSTp58Hd1k`~cZM<3`aPX$bP}hG?15{)Eruor$D(N|+zQlNPrsl_(JRYZW8i_A5Mk
zg$Jh_#`*9R%wtBDdGOhTZOqOgQ>Ue6oT^M_1kfBHwIcbjsvsjrSD##fAULNV?~>UP
zfBqUSHJ9Rg@LvLKvl$I&!YoM|MbeLjK017<mQanF;6{*{2bLAbdrK8iHY;;X*9#^C
zs;G=Acm^Ws>hBT(`Ed=m9U`R46`G_|>C*S6Gc0W7@Gm6AzFVx9#G;H+@S+IxN*?B1
zmv{Qi17Z0LXtA-C1B43Z1-I4Y*r-M*qR9!duXX5#EsoQ(=1LoujyXnOU?d+QQJU~3
zIWG&<<6oY$O#i?}=PZtgPR|${*m(zG^JSM?kFyOi_T*p%IdKP6%QJ=EbS1j4t$Uo2
zC_69jS7l}KOA*Q;c>%Z=zwgDKtH#45T;Y0<%&BH7K;LB9f7dKR<5OtTu#K!hCI#}R
z&-y~P^xgL>-kL>KtQv%mnYupKB8bh9Qw>Kl59Q0kFiITbTLJ{doWeR+&#rWO{O~J#
z`vo?nRfmy0A|{3`z4u&759HPzLROSW90_uP4zwwbWH3vd6BCQLd4*K^WGa-{>0{O6
znNBZ#)m>IYC5OhJM{qrk;wQpUMMdIL1deK-8hgXKkQA|b|L&c-y7~@yKRo^=?TjR*
z`|ny+X_0m=n&?gcK&_i<)F^gQ7|RgrGx2YiMk-`jD9f2?&MO+nV+n1bi8c`a^!ZZh
zW9@;51G<w1g+reib;MVwROUz?a1_t#6JbInGZ7&n`JznmfMF!FV8n0)Cysy!r_o9q
zNa5fc`OhH^jF=eh$vIrFqqsNtfxJ4uFY^MXL83yQJb40C*q1Lx<;<dvka-dG87Tb0
z(6F@SF_F{;QV0_A4ic77`qIB;cf%dHMFb;CLqnq)&on$Z*nU@unB=5!j`RHdrDbJ(
zi(YV}q5=lj*5<8=TnK?}3R`}ZFVp6Bw1mGH*7+@6aODIILJp`6g0)4x*CGtne7#_P
zdl1wZLF0nJM}_19Xo2tvwjT1cm$R2%;|NQ18Cjfb2@wKKEv?UsUSJJ@O<*t@h)+y1
zE{NC48qX%T2d<0%pfVYy|9%5^HBQyIBz3N*+POjk0zc{neIh^!N0c+vx$2k78(tWd
zj<3MeeSn)rkYp*FcEV_7ni=)!Pd{xb=Ey;gKorofwGG9^4m>xZ83_pqU`a$XokMB?
z#$3yheN$a6wrsTt{4hNOgOsFX#NXL}<B03B-Cge$zItAN^k!1;+_k6G<>jt}Pp%L&
z#uq$e-$uo&&UT*-X4y^z*aD9b6chw#n<W>pt#b{unN(WtYakDUGAh%&3tFoR7;x^N
zVt^#uK_%Z9@Yl7*^bpKHE}x(2_RIbK2CgO7Z*?NKzr1)X<0C09F1z(vA7ZKg(`%<=
zyNZg6z^S2@z#@{V1w1=2JS8P1XM+!_)VV+ryKZ*!8E-jSYB?HjIUIj(SPBgA$6R@N
z(5Qdr1h_&jfLj<jVI^Qp&CJBaB2CX;2IU5D8=$7hmo{zz0SyC=&W?_Za{gWbw&1~*
zmft6jwxz1S3Z!a)V`k~sugk{=8z6R{<~IUj*uc=R=f+Ez+`0)@|K8ZwuV4FZ%v;pC
zD?S|xT<_rqHQubw{lu;1y*yfVXI6F381TBOKpG6#!QYl+IrbmnRF@S_{4`-F`wUX%
zr+zW;{(z7H%=42cT+zzyEF+HMDcssdJao-&IhQ=opD=bmfBcA2E{KbZ127DuvbDW^
zEmKsbaKN|8GQHQ(*jUQvw|TPq=2SQpn8hNSZ<^G(v$J#Y^Y>1>->|oD+W06Fd@y@<
zXmHS6h~e-=xPft%+a9%palhs0INB5-MIwjwKck1Kqr2?R%UDN8Zce7UDXap5s5%!@
z-Me$jwpG4>i-9s`1qIRK@}_^2!LP|Pc0q+E2Z6q0)i<^6?Ck9A=OC>#T2^$=W<pkN
z4%~0FTs=D6Km3@Kl+-F~*%Ea4<Vp%3KYwoUkzZoB(%C1$pxOKWDtVd%xf4b*Uk#S>
z(Fcd>HtVP<QV_)86V?pTN122Au=OuyV-<#PXZ84K6#$cKt&Eu1iAMln8o!`mARxLp
zRXY!lmy_BeiDv_rtA6GNHv=&V+RL2Bz~c3JIq3B9Ztn3Lp#R6`q?2oGyJ9M>PJh<^
z)95#Fz?&l_+?YG#w^6XGFY9J09vt(t&+gvtTzVwc*=@POf5tMwmRgX+TR1`MUAB_0
z+}`${|1<8^5_ojr7gJyvuu_w5733F^3-B_uuh`JY=tR~j;Ms(VQbiZi`%r1L#{@kx
zrF#1|f3@_Zk)?^(F5{pNz=)|9`pswF1Yk4t{d=>0Z<=Ph5X1%lu9(vR^l|9_$snsX
zUMVS=4CagnT-)>D91!jKItM3Xg2<msRu^ZwI`yY^GH5?u>if<{?y(k%S~q#z>@;a0
zf&i_aDEkk$EOxs!@6PjAG-4A+C8VTUV1ZOLu4_0s{Q@@EAB0z{<Gqpb*Di&giK|c;
z@BEo%5HL|d@$&PJw*(&-CSHE8iXs0zF|m@xz)Dv;zTzdlxWn4R#tzmR4UNjPHp~7#
z+UJ@Uh1hTG$<-Tb7Q2tLA=YMYZmX~+PE2YrPS>9fU1Fhx_5QgGMA&5Y&jSO=X=z60
z=34zF88SXXa%=O@s%|Z)7-Ba+YCV>gaO$I!A)~=Q(c{&B9`1*mqLQJ+N5w01WJ2tD
z$gAIcu&#Nc(n~V6Ox{?5-F4I*e9%47;3E$^`1o-0`0C#RFX_j<b9;SmL7uzob5(ZT
zW6rNZ(Y<`QIkZ_?rLw+cbu2x@4Y#ZosKjyvnMNfDJXS4y&}%>V#xK)TOLdY@08oNn
ziMWV}Zt3vv(W+S(9LOD4H8t%VhJyc2_$)3i#?lM&@$jHyyH2*;YRhpDl$8d2u`w|a
z1EKq4V`I*eS-^ceJ1_tGHMr=ds5ZYtDu-QDTfJE4)bkKr4N+l8d;YMKr>7?n6W<00
zXT~`jp(da2%W9~v2VmYE&&*99E63I^v)bsnxuA<hspv*WN9z}B!BBYX={?XopVB)=
zof*O?G4PD(?i+IgE4qr2B^e)4%K@T>=3Mc$@Kf7*gw3G`?ixCc^|NxAADYu@7t_Pg
zSlx%K-0@=;e?BQuxj<YN5gG8gnz;{y38F+r%Tc|#&|m*1%`^d6m3|Ou<o6Z|`{j?#
z3kME{<PT|SFZMZ98<h?(dQrPE2XI`Mc)uo?_Qrqf7Zg~*e;XzTy3}E_R-2aL(7>L1
zub5VUJ$NdAc;b$PIffX(J$sRu1?-`K+$}3=^YZfQ>PDyCoyS1cDB+cn34r{<m#R^j
zKJzx7nOV{~&*~9qrYYK&umA5FOsmW7>s#Oo2!`!zS@D-!e)mdHP|%bGdy?k#mVd4D
zS3N^R3Fpzun>l`O9mUCZ%P}}FFRw<BhJ~AV3I-g>4;-xb^%`MUfa9{FY5URSor;lh
zSnla-%PT8awY1`VnG513*la*B2fGdnCCTBdhK7CU#>vI%Tm{D2<6zOTw1g6KtnQ8-
zl%lS#LZvIy?@v}6SW1np0>Q@m0-`x=dGK<<bOD^2gm4f_K*HwtgSyR<tomzqa`GSH
z<8@&i8YJ%Ouijv+a2n>T9X|v=E);wwECEz10Rj6^UyhVp1Z>RrO&%Zp6?6D7+7jHd
zY9RtH(opjl5Z_<d)VPdRPPc{<0B$KYuApDGP(%S;27aQ~<13r`Ep8DnUI@Gv?rOh(
z3KTzDUvmL^63YE9MLI6$MCvaiBgY%^$6`alwI%|*yu1v;mW?2MI5|BZUva&43$#7}
zj_-PVZ#z0#*NCvJ`!@lJ^2(?bHU(foD6k;2g1*ZXUkpNDe!k+nbkIw<xw%J1M#fjX
z<5lgdOkSC;WQf?kO*{*$RO#DyX?lp%C+1b4a{v}`(dg36`52>q>U|6RI{~M_d*xa?
zWW^BH#E)Xn4cxwNYip~jO3co+mc>q%ZVQH$MEN7%PVL^C%f#*HG}E+lWHbHzq1;LA
zwyXXM{*CqRaW@}tZ{ThGLk((7Cx(Z+oa`=wYg+o&AQ!~iyGus#s$yWmN=TrrF};d{
z&2Cg``0n4bgB1a45G-S;_eeeM-yK`AxH5lWyN|WGz<Bv+XO>F-z#X`;O<BRo2JFRj
zTR^p-8y!PUQ=t?|IUrL<wq3ph&*$gkgQcS?PjTRY{#X=M{7k4y66AfbBz>Z?gzCC<
z`2BM1w3l?GsKkR~|NmKc`(MZGRm(iSma5Sud#=5Kj^F4-UgAxAdzbHxyRe&hJ$V6u
z8t|R=5sZ%j50J2VT_wOVz=0tRSXBB<7lYL+69HImQkhyXg5d9#2d%46EpdBulSMwL
zv9j{hYL=p-kBXOa4aY1j8dxUhaj$A>Kvygr06WX=+qW%*jA3GxC7Wlsfv*8`Ug5w=
zvdI==0$dMz94_hCFQ@Rfr0i^gQO!RPKG-gK;LyMTkrRivSv%gkRb^TRn*y+7p=$h0
zeUI}kSJ$AeVPgv+hQ|y*eFXX3cNgjc=y3cq_$U&>k^vSQ1|VShUu2q_pFe-@Ty&Rh
zkzR>W>0$F3oF{KV^wx7->^rbhLhf_<Cl_vj$LLjUEz}M20Cm7@^t_^C5|E0q@d&Io
zkZ;*4iXH$IIZ1ZL4wOBEMVi&s)u8Tu9~*ma1pCCYY`~E)fEUaiM+ZOUVX=ZYbGf?T
z!QMXg|L4j3CYfO<<Gp+__(+!h2Kbd=)SLY_iYHGZj!o^j{LWN3fJXJAL4d;7axWhO
zYJs751SkjYP4JC{PLg9A=ycKX3JXtbYmJ4{_kZgzHw>2M5eB(KD9GxY&-!tvVFC)?
zFWKMLHn+B*^OGxA4u9iKo5!?b@3nnD9ZDErtV}{Oet{@$oNS{smvDbdw~ns4LEz6#
zB8is#gx0{)+0<3nG4YlFg^TGNYgvkwJ}MZvaUism_adMZw+UlSRDNv+Pj*_*-B<*v
z>-?f%05-zc+&`Y~r6uGg;vu-`GB);Y&L3reu9tl94hJJH{0)n4Tc({T4K_mrTb@OL
zw2Ba7+wy&`w|~MQh~Q=JQuvbq97rL^e=OfuKiT09vP~%wWPocyA*y5!yyXj@d5Y5r
zz+Fy|zv|_oB}jsx&nrGvoppA)6d{X;v||<&7;ozLiu@o&(8MPv$p0M<QDBt6@V|~}
zWmEX!Bg&D$6-4De{2C2BF+9892CUr(TKvS%{lB}{^PL{HRO*o<3UnCsI)hOR9ukHB
zM0NKRe-{*4c=+sQ|I@!cef3MHh6sY_hJ5BRi^v)M?=K4P=vz7+7(*|7l<Y>3Defn#
zU&A`jBMMpyiAjR$&iF_tA#e?tDtK>N5MU5QQ3(pu|NOM$N5fx!To~T~Oa2=D36TV6
n{x3Z8SLwdzR3QlRXZjeK#x+$-J-uWFUy&;+*Obe#)?xo2hRz2&

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+---.png b/plots/2jets/kt3_100/ggHgg_+---.png
new file mode 100644
index 0000000000000000000000000000000000000000..c1aeb849aab5457c8178279a022ceb5c20ea137f
GIT binary patch
literal 14046
zcmbVzcR1C5-2TTtMx2Z!;T%e`lM%9xnQTI`Gs<3(y^gPym4vJ$s}hoxm64GVNs^tc
z%(D0IrSJ1R*Y%9Qe&@Qn>N=nE9-sGkz3$h2-$iO^D4(D>LxCX3iEAnfItW5&h#&+K
zC_?x~vA0GU{wnm*GxX50@WQybIosTIu*P_JyI5na@87jSko(_nXf&Q6yhOF<MWLk9
z-{RCJ&LS0g;xro>nl|9vYwI@0y`8G>MZJ3t3F(GG<fWE7SfQm*C((C#Y1RR`&4=jF
zSOsUQA{UO*mi!dX&wP=T7cjTmM)@?BPUu`JIg9YWOAqZkH(1y`;o?s6Io^XhV<;+J
zM@N7p=TTy(<JlV~tKD7}dm>JH>!#z50(Avqw`K_EoMF=BE-E+O5rmTN_zwZ{B>gme
zY2u-1=%MRu<KboDW{t?ZSzCBmTVcHJdfdTy+_A<OI6K(5SvX?UESzlbS=d@*Y@FRN
zx*qqetergEF?<*;Yd3diCkqG64R>pdrjvs=MgrsI<;CyyZ#(|m&W<YMK8Y|8_IRMb
z{oi$V!sy*~v_^ykFNsTB5|p@f33KVP#3f;g%fga%Om`6kgIrUP)4QL(G#aR<Ynv&v
zdO=o&@S1EuBszc+cTZNGL7B(Mkuk~6e!i#Y-SSr_#jiz@J!-C%OR*jjvmON%z8bch
zev%c#Ov8n?`y$j*{hr)kU5j)|i|m8hRk&%1cTQqdsN&<<w)WaG#;Ru+2_E`7Kipa<
zb|Ig<c5Y|eFZ0u^w*tN5NdyVfVz@Ldwdm<<X!wnab$6k-p~8@NXJ<!STl@01D_Ll0
z=;-LE`%G8I$B$1AatIKlH!s3PDd%^pZKk;Ej}~ZB*>K=^`*u!;)sw#WXJcYxO{-ic
z*XR4Cy@g>>zS9S<e$Ksq?b@|ueiNaz?#uVrm07*d@$<)`aoS(n+uPMhw~KbxW{V9=
zEk)y?!9<s?-J@p((ToC*lal=Rf43zIn3<N@sLRVY+h+NTN=VoVrLx|i2<9<({mr3b
zCGco3EG$f*Ze7R2<E=*i_3PJ%tKIX}IB&~*+1}pn6lmE0ZeP5!Gr!tgAa1=}!<$-(
z%QWcOg7a?fbCslNbJH`YuR#B0TWf1ihGeBp_nE{FE5Xw*UcNlqpOqOL7&w5xoE;qY
z*ZVaoDJhkel?`4SR|g#IijDiNX$J1<dheLY<D8vWwzsRgZ5Ec6Vj?0`R8`;k?}@IB
zuCA_r`}S>e(qcwcPwz{*xck}V#PsyV{tL^OmAWq;e3(UHZ;Opxz++AkBE+XOgIAlv
zC=(MCW%h<XabCEvGE&|D^{W!9qrDv+{o(iT-#2gG6iVgg<g~H041vYdv#_u*G&Bqd
zI4rjxOd%^ZDrz{~D0UPbZfR*5c5aZe?MV+j7z~v1+ZJ>Whk3*>i?K@iJgU~w(|dcj
zpEG=Kaj2{<Tyr?Q%RhOj@+67?A&efDy(4(~3^ViA%D9a4*i~G+?@FE5@<{dGa*e>%
ztLgQj@)rwL&i$I3gLkxZcGkRhZD&CsBH~*^;1P@vEl_W0Vxn%g-=P`sV|AgnnqBRo
zH_u!(#y@Sm5kcO2RG+|S1s-}UDUq^}kYnu!U;FP&CttpNS&{uDR^c42_y`97<?Gk_
zqr<(($jGC0&7+^IcP1w%Q&Uq9?-SPM<OdmY5F;opb~BMLN84>O0h3{jRzf#DJcRwN
z$Lsy~HkYoes{ZMiqQmi<)$b1&m@SRf4I9v)5JWIh!+Vg1{uF##736k51{0Be6A>uu
z>+N+}{C3G^lN`<+opjns2!O=wS>3P}2w~qB-<T$k>;_f@6NEwUp59%66{6J1k)G)_
z`!uBj@57A3OSdi;DhEm-L91AiU$^Iq$q*Fpoh-Oj@vYi+Z{NImm}W){!}A?aJShGj
zS(pp<#0R0nuo)i&36{sKa|jO-At*MToB;gsSCjw8S5pPqne!ZeYu#ev+xOsxnEr55
zia<k8gm@7gf}rjia{Q$Bp&&qrQNi&Xa~FvbH0N_A@sLb-Xo180L>)iFlNV~oKFvoX
zvMFd(HOD6&Wfc7G%yT6I1oPaL5yiv9<EkMAy`AuUJW2MqH$r>-Ras3e669hY6HoTH
zUut3;>)%eU#Gjca_}g!@Bj)Y!l7$8TO!WFr7<)o{v(&{X%W;DA?Bl^O#$-)&7c{;M
z4t7reiHeGP^@?}KM_yju(Xr@*<<Pr(_SddOc34Sx%*89^K!o{T=UZvae*q6SJCuxu
z|5n9fb~x*gxohy&U5}#0&Ft;%-QC^q-P`z>#1qFN*=j6yCZ;Wpt+=4z8(e~p#0zkb
zHL|4n5>)K$?BHman6UU)${hZVGb(zV)<*=rJdBnt=)3d9?j8<@yL<PpfkASI)w5y<
z=oc<rn4Ot9MNeO#_aZiyIz~xXM~9Y<uFPrl-NIlo9q#+^aKrwe&fM$CZoB6Qv$Wmq
zw)_3z8rPE%B4{_`=Smws{yshuSOwlwomN7jjhH0W`32S7hxKtfg~F$)x)^q^=k#qa
z*Q`h%toNTdaiWK&b4;JKd&A)l4>2;45G~7<q*|oU<L~R{rjxBDILLR3(%pnV`LaQm
zO_?!&aZyo{YVMhsnXg5+eCnhH1mdU*go$Om&VHvjzPVLD*+rftB=mj$Y*}h(WMuS6
zHCK(3nVI==sv5kcQPEd(!3VLicIDr{eEG7zzMhxIiBo}vG&1`B@ci|!uT7X)Solsw
zpQnv9<ek}{CqDO<fe=}3|L~xss;a82%>C%_fL?LwTWKiT?PvSRB-I=G`W4=5Gel(6
zDcv(Cm_^TVaykvYnV##*xpCu$YOdSLSly*dm)1E(-reI77xx~k^){AHd>>W;2a+{%
zu3pxbGw~XG!j(!QqayvNXWz=|A|uID)n;}E_4M`GMF5u&{`8C%Db)M*=Atw^dlPn6
z+?pP)k;`mhe&+56fq+YC%HQC=_vI+t?oWNQJb@tF3fhlqMxG}J9Ij<uRzGn$NWGGT
zOezdPKlx&}F@Cr-ZewHfI5}Bn=Vzj~xA*k)G(P^HfBu>7OcpS%66D~Rf>?-;pUnyk
zINaa4RpH=05lmKpxVtcD>bumhDRVHo5>V+n)v6eMDmOQ`Pq)kL;FrPpPLJ1{va*$i
zqr=S1%-Gmi=q*1lPx^NY9gXxh=HPmk&##NbIE!pwiZ-X(;)d<BmRJP;sJ^~_#ec<@
zg@uJtz|{DS)ivM0A9wdPXm4+42fLT)^Q*8qoF+@kcXO-Z$R8dF1nzXgTs1W`er@dj
z{_UF6_wD<4pN(GwFw(^PU?O@&5mC`hareBsIw?`n&8avUNaE`1>JV*rYF6rf7rqt=
z)Nem4E?$AetP(>(30D`h?cwEBSzfNLrdFc+R8diJvF_Df9{pD+8k#II=dn;4X)fAG
zxB-xd64TOdnV6W|xB(|*=2O=A_wVoArau-G6m)fUkx-s03G_SI-AG7CfItm9dydxH
z);2jQsl)2c;bFkL1t|^=`COfoxWj3)!|A2U@t*c}*gZ+Y>=KokqNiKQSO_gaPoECh
z6&qK-F>eeJcb_S-7fg+n6wN!G=wHy6DdjunvryEqlh#o9;>EAUMZfLI@W9{EW+QdJ
z2KoKvm6c_ISA~Qg9{8I1%;%1cnTFv??FP8hx|L9o5!=_l`2H%)KgDPCT#M^)JzoZ5
z-8|pdUWG}f<26Wm5Eo}w=Tlx#z$GR&IO?y!ev$=~Dmd>lm36d}6}a8Z*4ozA*3z=R
zxe1|Re@<D(sN4>Y|5wQ7DLo{fj~F5qn3$L#mGSZMoyV)>eohl}ezTGoAHUiwPqVSL
z1u^B_6305<I^-7oQ-C9G9v&XBT4h(Cd;0lZ<>h@aw*9WGY|X1-Z#3|5HW2nVJv|*>
zg2u!TGOspw5`Wy_=(~Fhn@hu;ot+71ND!pqG#lH>uU{~efyFqxxTq*gCtDjE(|SMe
zzGsR6&8lZJ*G4*7nVA>-5}p-2dh`hJmCWv34zWL;(Dq9@?g>3YsHdzPj>}%%@l0b+
zn1j7O&CHyrnhVMHvM(Ou-R0;<D11}cR4RgT8Cvoz(!ZspHId&I7aN<|9anb!UavBj
zF?A9B)mUQ0{N3)}9z@Tf@ZaR82(w)#?{gw3V>m7sFJ4>>AZ^6i=~eZr5+DR0?aDVd
zHW(Ng*QC(J7&OI`tHo!rXoOJ1*|}KdoT`S#j4#Gi&W;{I{1)MDq4{N=`Jb#_!6lGK
z$BapBsK|67(GEFOz#aPXMX#Rh2j8+z&bOO3k9*aje+zT-pl1cL9nrMUm55O9E+QBV
zY#YG3<e@R6Z8VCA6uy()=8F2YumFH`(ihW@7Cgy(+_p(fNXSws)vvzji5V76O6vgw
zy@%a{bmB9Hx^)K{Gi*+gA_UNs^3^;>4nw6?fFVH$0MYu?)fW^*tOTpkL|GHka;p%?
z29c7IwphBt_Kp*!vJy81;VE<w^wYz`!)o{0p2O3ov98Hyax0VMZq;c%4WUPf@0gpL
zPd0`5#aVtYDN}ojBe{s6KF-Y*bXZY5Jz;&C>oGa$@n~Z(BOdxFIIHz!LXIdr0S&`*
z1Vc<jL<HSV`_f+ywoDBQhp{Fyx^0-xoWWs;1CIN@FLw2+L*+0X9o-IVyBbF1%&L|g
z1yaj=`gBBeG+p!uKN>4eG%Az;<{o4wk-?8%P`s-WL&}_PNrRk)EYiQQ0pT2e^^YJ2
z75DK>mQPSqM=7v(q4M=_-n{0_Pjnc1JnUF|yNWr>wG~9NlbE5SmSNpE{&@T<Awj|T
zq@)j9TsHh#L|3Ygmt*1^z|_$iFQT`h0E<pL9M8!3^SlQ{k>Fbw<zYIk6<89a0loq(
zNZ_?j%S>n?D1Y)IvYn=p-}&j&tS^1pj|#glPL(ya8rt-V+N{g-%Vfd6T<p+F=uFJi
z)D#pQFll|`PbkgwE81pe0?C~`+}z*FWg-2RmzST4wuZQP{``5)#QENA`7<$`JUsSW
z%cE}9`(3G*Z9ip}4==^Z9Bu>FsP;KEaVAQI;C-=&M1~&s4KDh>9e1H_-MW>QmiF@H
zODGGx0ZPui>$`I`VE?|N;)mBJH5!>$#YIIuch~PmD(L9yawK;A`t|Fd@Nk*^)n<UJ
zQh)^7Vp+<D9L`Fgbdk$6V6EIun%jx{P!vGot&OaTXJ|0a^~?PbLfZ+SDL2Z9kJo~X
zJuqM`lsdNnRar+zM|E{I2?+^z(u<rN`J6tu>aeP>ZdEStZY=cm^#LM|j*A0~1h5Pn
zN>Lj>o77h9ofI4L&Hn`AXYb-7h$766{!(CCtf{Ga0Uz<fGF8n+@bq(?i~c5sdY`u-
z`jCbOSK|UNCaLy+{%mJ&|0zS#Ku_<dmO{&4@G>GlNrh}bZZsE6RcmBI<?0j;*yTDy
zniA?TE7Y?qHB4D>t4^=B6iu6U6F(>_x>f1){cYj9ckdvL!lm&xB$f#fr|-d_3E%V1
zd%S~;GB<Yz4)-m7og4_O5K~V@!%r0p^*&m?DJ{K}*zxG`<Gca86Qs>>J@j8fic{Cr
zbhfi&#|w*z<>%(!^YEx$ZK6CC9o7^5(MqT%i@GXo&6nVPWytN|_^R}irx+Q%JUy4k
z8?v4iut<8Maj|E`pXn5S{P<DSdCYI(Jwe$}twr-cu!?-QD$YvzynXRPwNP()v__1R
zGq0p%HDBi7BKBv^_<@tDDQo2?lB<o&_Q-@hy&_x)e$(2NmEi55;fJRZJI*Djq>E9O
z7!}bgmd0T-Q&P+|522`QZfZJPfh~UZO2JM~t7M7_>1xf8^pXZxa$FUo9tJvjJ<g`I
zGTsmBmt&?b##veYTnr}(2y0?OQgRy`<*JQYiM8V=@VmWu7F)#pafnTDJO=#_Cw&j{
z-l3Ng4|m0nrbVn|-jfRlTl2Sf-c#3myHF=l^7MP(aK}G<JLe%0hMRo-=-dRfl{o&&
zgQTs;j%xYqaUC#J^D0>OsS7ERcfS1;iahx;Zv7+$U925p&|TOQs52XdITY-KzlbyT
zn0KI&tG)9cs<}Gs39C}*EIABuTN4v66JZdUT!pMkuQH0d#0rJ5ep}ki&dxSB!kk0l
zCy=^LWP+eh_Ow+nx=_1{%x8(<JrSIB2vBO2c;aAmdiEeIGD2QYf(wyFu^vz5+Z;(#
zdiq%i`M05zs?@qdggE%rjoFlu3=v`*dxRzkC~T1+_5A)1t*xZv*=65ul8(4>r8oLy
zXBj&z-tDJmv}!Fjef7ha7s(`^h9+mQ_gm?E%<FnJ`9(Kt587;S?Y7;O<k*NXjG<?Z
z|NZ+{#Ke+eH(9@;8hH!_))PgSN;-!T+~vQaG}QTc*+Y^`Oy@3;r2gi2CPJO4ljS-U
zy~7%@f)$}KJs!BXTI<!xkX4ceLM$xHiUo|NFQ8v4kFm3r4RR12UR`ww2#_8p`b|lU
zOA!s<z!Brva7$FE{?%1MMQw6&a@a|M5+zjsOs(miFX?9vJ)r7{YLFu#|I!mA2-gL`
zc|^oSx+KYL8DWE)senS>7Xu2RsrhP*9CQ<@kx%*2NBfLda6H^q$Bo9|x=Uh0xzazi
zBttiFXu_8RF9sJF`HkDRWcNuVJKsB812i@pLY%=+|NaZC44T;T&K;F=w14MsM{h%u
z!4UAH#56({<(JKfYHn_ZcWr=0pm|!>#8zU8BD{3vN=kZq*A~}4Dj4lYz7QsjKOQIg
zgOHGrj-lc4IL8k<Eb7pAb-ZdH*cl2CkHNk9CoJqk8=1QXAv}z%GgU#!J^7N$q#*K&
zk<iRT!o<(d&(Kg%EQ4&#oyfF(?c>y7E%zs$wqS<kuBY~67S7AjF;dQT;~u4@ZCjy4
zRmt$$U-^`nQci|6JS}R<VA5+W8Kfk~sw5JMb=j;z*f1&rpm7)`i#q(#t1pLYe28_l
zxu7Aq5C*-p7%M!X-&f7=S5#1F`S9Vl6#A$MPM7lHi95YF8)sa8w7k8d$)&AD5rA8H
z#Yr2v%^DGCVaqgulHl=Uc%44X9e<HTrf=RuTwL5Qu4yIy3`s2hzHOLuGlMTKGDK%J
z@h^D4;<aoHN7)O7f1iL}d9`X*<<|a)U7e!-S^xYw+DM(kpT3xYa9Pxd#bc^)nb9_5
zss!P}qs{B`au>Hd-oKaC(b4G@K+_WACKTtMUt^iE4S4c0`zigtTz)^F(c6d>ZI{Ns
zRXKkp?NhEObkm_s$Z=KvjElRf5*u`r0(x6}_q2h7?(_2ro}8Q<&cuszx90D@CYp?-
zy8sYp+RYp40e$^b?saf$D=NNPmO6~SD}VmH#Y%`p!b2se&&t{w$dz0C$v}~1$OMi#
zRVG97NlJ3v;Ki)saZeuY37vX=t<eC|r7=ICMp$uUmrKs}j*gB_POo3THm!D>F1_8B
zvH);(`}Y(B14E7Hl7#o4pFktc_vfFdy{4`nqs9q|wFa<_GMoQfua&VEFJ3_E$j-)6
zXQ7C>H}fugJn{Iq2xko!W?t<6baqp5$_9DK_|j8K|E*8y$2BFV#lfLb$4}!S6QY8G
zXo`(z!i<-3F-kf5FX?D$Rj*%%Oe_z<I!Tor`(Ftak4{n@=<Cbwy8~&#($W%2Zi8F5
z_9g%&L&Aon>se#MnYgjBLGnAYb%Lky5$C-jjz$BwH<-%-`>kwm&W(FKai<jGL17I(
z)jKXX@Ln@bNR|%w&gdpGXccbos#lkZ=&b1*Z_@6P>vF23fy{BM;=xL=ON%1r%fiO|
z{5&3AYRH?|K}AZ$g4*zr(p7$`$9;m7$UW>(i2wN0V^empS=kU18F`V5%Up)Hu8itL
z_s07ftoj)=+nX+(ba(zoq4(s-x_BziMOk(2uwbpOeMxrJ4m0?asWB%Zi^7^@ZBp|+
z3h)hdAD?a6Sn}PxW*gY~Ex=D_i@}uv!*bX`_#=xZ{R9ooutNp<CgvPJQMMj;xlz&j
zQb)(NFkGW?r6F(Ey=vng<4bAXkmAuo($WEQz1a~F5o`x@$|p~5UA+>*rq)sYL~ol;
zVUxE6&#+c?RW~zI3@;KMt!DIbq;bS+Xhf#TPu!wHC|FCV_?u7V@W2uSUgYR@V03)L
z*N@_D8fxsJ@8P%`8yj0$of{{bjEI&^0hXh;w*(kipl)+@E+%%gwzf7kHv>F*3z^CM
zDVOTY0jJ>#J}IfX!orJ^k~P)U;(UDFaB#2QcY*o{5Z#p*N*1JNH|I~evBY%VeA=zC
zG@{e)%KzwKoWygL18?aBkucs+No6oUkjeJfZFzj}-OuX-lIPu5Y)#!a9d~<r#@X?6
z_Y4~RfBIU^)-lgp&@vT35j5MK*0#k}HN}qp|ArY`Kmq&v`vXHZ`zh-J{we^2>_kga
zGmDjezHgrLG-a|*ZrO{;KgQ0^n1yEfHI65c1h$Ph-es-!*%WAW=Cx=Z4s_uB>FSoa
zs5W=AZo9Zxd~d^R`}5?jWy}05&V(}WYI7q9gFw6k^Rvy0@>1|HdwTg_ys}0A7q3Kq
zu$=kW(t=mxT-&$j=HW>=6UOACv3nBtL%*S^^8$zOsrI)EMcit+#V(?hR(V1A_^N^8
zcwaN7ABwB@7Y;a&V#cS}W2M^XYA?*)QKtDe;+0D7dooIx(^H9)FZ)8m&*4B<wX@Z(
z0KQ)u6iY*4nq87l)$J%RWrCUdLB@VI(CQ->O7Ql61@jx`&taD-J+8EI1a!arIW{3S
z9o@WKLqkKiQ!&~rlc)mS^bZb-L806m8A5#PmE6+_UiFW}GH%ZD5)Jmji(&6!5-AJo
zR-M=}waC%I#+!o;HOPF4;G)g>&o2ksoExIcp4!GfD+mq_Zfe5SlQjWjgQ5y>6!T!(
zpLuDSD%m@3y<*zxYStn}8SKfEp`G46E9tvmyYg|S``p9(ms~xlqZS+JLLze**L~`S
z95nt`vFSJrK4_9(T{Z8BV3vQjgF3+Ba7<*F#RfMeh|OH4?<K;nd=wpx%yAb@n)LpG
zdH@A2upU*n&QR*3@aX&Bw1e@A_r)dGIcGa6Jn!y)&z)avZ~M&~pFtgS>)_*}ZSeB_
zE44VSVNXqQ*K=Doy5u~I-kDd}(>~5EE!`;GKB}BKO^79C-Te7J+f4!V4u^9U>)9Fo
z-QMr00*s|aL}#C!4h$5QWHZGUkUx`TeN)(S<AH+cKt^e4DU=OBL_vxE`ahWx0_n!X
z#oMz~#hLzTLn@1!7ap_~&nC>zUM2Yxxe`x3Js~DhOHWOw&@^6OIJVYHb}f%0sy%OW
zb5jYbpw@Q*WyF`339&d#*Td$fu}a;#A4kkXO3r*mtOBufM;G0XTn>&-KAhdZQagLK
z?q>;iYqx-P1AV~Kn+cegE+{FUc6Qw3ITHjrIT&8*XdQm{v?sTADPyF54i}Ea{Qgng
z8cmMX{yw>vXs~~eqx8xK?bK{wWWseGeB#>rgM-3f&CgPpCUQGNnA`ItfDnbdMajqy
z8TP6y)W=n+W23sQxDkQHYQL_KuI=1tFCpg0r01V*dTbpfILDbm%|v-Lb?eUF1Iibj
zO`2Ca^C<j&+~3=Dj8vd~VmpgPhp=^<`?T%9s=1?#y4e1J&0#UyS#nl9S^8~ad`1hS
z$*B?d*9ViXf)2RlH>+&pHo7FzuC@0T9;@b36hd(ic$g^Q$yjONSM0=eZku}QZ2HY)
zl7=dQ_}`f|{FJmPMd32BG=~>kbjtNM$5k!NKf5BEiYOReJ1z8GT=@B(pO5m$7k3}s
zu^-u;A*hw3DPdCzt300es5>_1?}qdQF2rWi6#QAZ{MoLYB8*)+vqoN+gd`Y!HB~6}
z+VTlE>8!EtH<|s`$zktp!}m|M-*0w5sV>OJ*7JUmGuDZwz-{MFJ;+VAwzK;?YyNvB
z1c1<MjXK=L>fFch{hIwXH~)-;3aoOI68zCpn2M)S*7DezeybtAX)juypWo&n3glGJ
zVp}LeXc6&bS(TMp^1Ha$^F3!DvFpn|t6};DOomt2C$buR7L-1*&|2Qq6;R&_;y$w0
zy%+@*XXnR{4^__9`*;$NNp|An@2YQ{RZH#q=?1N-7hHl3jk&p?mmyq!o(*ZO_|vE^
zuC!nKV!#JlRt^st`1tq$fk#O};kSh+r15-A?xssBBl?NQ8$WE7XI3iXbd^4tmiWV6
zx4Ab@ZSm*y?CorvMThi~m&5=W1DdrmI~n}}KG~ilc%tV@q1_%dr~d?;7ci{8CGBCD
zB*(k{usQId@z*ctF6w+|SZrt+clA$1b5co3N$(<yl{|)un>v@GU&1_M$LZ;(O`G@k
zT<7cj%@1D|lK;?QNfr@FVd=>fgNA_`z`muQ5CXA@l*s1PTz00e78w=!<C+^xM+0B*
zDuvV%{8u>kH<<}=7%Dw}#v@h3EDoHsxk~%U`KSAOx*Xr62K;(DV=4C|3Acc-dRX&8
zCN1N8b*|Pn85IeI0K6Jq9lkdINfvQqVK~|feiGS9&&7Q3J6IDPxZ3}ZBSC5YlTY5>
zzp!#z#2PRQs!fPEg!gW4k{?cV|Kn)2tIgNKcyEM{?HL=}l~7r(JB#duo3?o9B(RxE
ze9X(3*j2HBrrKEAN?!fMHiPHmll<ZAgyDQr353(hVl0eSFC3-c2iFAnEm~3pgk@M0
zx0wjEyl#s^jqNv0Wlynd^#st;Cm(Eo`#`@>QK)U<T8UOUB4a9(wfN)mhg#G*?F2L&
zk;TvxCzr|2hRLF(y@vhF*D7xQabwgCd5Y=}mu;7U6sbl)l#!fP=_>s?NO+n*ujiuf
zm%$)0G-@aOra9MY$)on!62iw~VR=8t%0z$vL+Axh8V}>RKg!AD!*dl<F42VLUHL;;
zi<fODN>1bX!FNUnR~tE2Il}OSc1zh5T{{&-5*$y~Q?qjW6l#KQvGQTE?^iVOhj<vC
zg_Gr1Jms{P9wO)PF<0TsAOgi{x<$Ucm(xWBMJgnDgzx;D?0QZsC>mm~*f(`y5rjef
z*bCrH7rJ#CNjBy`PYbPda?<4_=w+{HnGrdl@Q2eSV?koHLA_7wNztf-_G)!PXJ(KO
z{nb%8kPv4@$yv#Wkba@E-7_H_mWUfOYUx<dPg%Pc^$dmmtH}Y8V#vEWiXme7N<u*R
z-DAN%Uhag}{}1A)!vWL*p~BRAnjuxKwJ#BU`V}Q1F`M%*`)|-EhM&;lzhpYdBp}mm
z?yr67AB<6&`aRW_<vqjna$vWW*|}igm!|ZN0($~zQng!SzW46k16^kDwTYzPc1efT
zkIkDX6wEawvj*OZ%Ff*FBueB=j8Tz>iV7DW-@$4#jXGzd9`|`X$Qb{MceFU5=785$
z%DKqH6CD|Ov(m}L(UA}Pyr{?#sIYKqmLJ=9QDo35?u1Z5aL@k@x9fBYpReTnC*XdF
z{?kIIS+%FW-XruD<Mg`i9Y&Tb&6+d`!}X_85d%V-{>!9#DRJ>aEv}RW;GL@ZlRHy+
zY|2tiG3%I!P&UbpxO;NQQ+2V>U*0!QUVm^1@X*G}N?2I<m03f5T^$f@f4Qwva0|SB
zD_o>+FL;_O3PSa8h2!<V+}6jQ9w#R!jqBH^0@iU8ZrbR;LS(}HBNcaA^P6Wgj}LLT
zX&PJlWQ>WMe*E~+)6;XXx1~#8e!Gnt*Pg(k3`=tJ=Fm)c8qL`&=Avn04&UNaQmU*w
zALl5?>EF0<G3jHS@0L*9d#BeZA47WLp!p|5t@*-My8appTO`N%k~XqM{Q1qlLY-p>
zP&B%psvy&m+S@%!JxPo6bh_9w&W?1Y$n!tiakzN%)iYZ>K7QwgA*bmZ=l(32_NP5T
z!~gialWqM#qj2R=rG1m~a|ss;ssG`0({;o0hN;iUVqC(nr6nL+7kPmF1qKV7)aw2Z
z-&dRVY*|te2>g1m{2F2q)vMv82#bq%)LWJtK_X<kKS3~iO=Au<YAem$Ln7oCheB`>
zV(Mr3hbu*$M&?|s{rvVJWtj!+OoO~)(hy@Xhep{Fk_aIfG+>Ld{rh0ccyZ%pPo~uH
zz(7($!em=8#c9GxwWs#12>vc9j|kA-K(7MH2x3IGw<+QAGg(q3q$7lc@~x30oO5mM
zljFB1gNHZC$1OJvD8F)2AVEQ2M@J7nFq%1xR9)icj#?>oiK$_-K;vbF=MdQvokG3A
zVl!uZd)=1<esN*;DltBkNzV{;ivoKepnu@)DJUp#jyiKcsC-;HMm@oe)rdWR9yrj7
z%F1J0hDG~Co3KQwY9lCBFzRGvWWZ^I@)1I&bG8mW5|XK!Yj^i<H3*i_-wrD!1h{;H
zTZII&E_9I!Ab$d_3hf}<_|b%OsKjVYTHgM2Yemdt-*emx37Sw^5$GQn_^>5g70Q%-
zp@5zwNQ>^|$%KrIgKn{LD_h$&sZ+7$N^|7giUb(q>7PGAhVugH1!jP+ku|(|vtv<!
zj!Wwz1%l<`=H?a=*+_G)2eIWWM8eFcFh88Glhg9i;mT2LOpKzkGIZC_d}fmV-xgRb
z76i=J80PGf6JlRM+I}AfydT_(vLWDF#<6G#TmwkK*mF`+8P5uqmz|Dz6qT4Uq61n4
zc?;zyNRrHAPF6NHf22+wH9c5mol6F<&(EJfA3S(4x8VanH$&mKWRE+M&(=D3{yb2|
zz+4{T?AHJNX=g{r&W~sTFe|WgaO|)~1IP96m>jSPyr;Y%OwG(d=YjA(U>nf~501XR
zzKgALX&DuG;~r*Y_=CRJ*x1<8qEO%VgOTeombfkyL6(71Ie*~-+3)9Qd;A;=F_MDQ
z(C7g_0SNpG?32E{_2EodA2I?YFFrk;H%YbJi0@x+aGjbEQIi8z)!KTr);sYT7xe0@
z67$RpjhNekDX6HZNFu`tTsnSnAKK6;a=8@@@?H<z52~skyVJx%1<-#rb<>WX9uUnd
zAhh~or2kq`Oj9Mjob>ecR+GB$%RNGWC-vBzFO|G6!@5@zg-oQ5I<2g%cvXQn;hx0k
zpjjYj5VELiYHIYL8a?Pq#=SLc&GteEqmlQGOT(2kY|`mjSt~C79v<r>)$VX<@bO>|
z04VVyr0c#9zslcERSgUVK~rJ#nZt%JfOrKuI4=(m_^xWHx@K|0=;IfAf4NA%#&5@M
zb^$~jj}A3CIfAX6KjFPaXH4o0%NI)7732^k8N3-unVHLeCVwSoGTja}E>fHvLoq3P
zZBQAW(M5FimuoY)9vno$OYo-#)`~N+qxuo2Y?vhm_Wu*0Ly%=g{SDX?p6BI(O(C%p
zyF()r?DF_1f9jwCzaJa8shKs-7{B#<?Qr)K?aI`wKT<|N7br7Q8w3hxkGD2VTlmcU
z@X*i@l<g3d&Qi6G<6auhSl*_gHX=k)XibDZ`iWn<^n1bV=v{fa2s=AF7Ha`26TFvO
zbuE}HK=`{F+kZhJz+~y?K|=ueie@aF>7t&26z#t^oox2{#S6>W$vThu&mc-=`fm=+
z&CPj@dAHe>FMlrwPsttOC+caUVPPbj+-ZTf_%0q(xPp5<LdR_8I`wOAwb2d3lMPb@
z2pSdr;m;75=>BwE_$0mOU~HWJ!LoG7VX=7*WC;)_l$Dg|DL&-HNlOR{%Az{Dx*YD_
zonKg3D|vDnO(^+5lahLZ1aawb5QTJ`|NMEnq*pBZ^XO=i&S<}pzOivF7!u%!985HZ
zN@Oh8?=5rS6_k`-{I$~rkS<AL=}`s(`oOhRy%4-N`xy6@h7b|_>E;a%wmkJTpdHmY
zbqx#*Y-~8!Mj;V6*YDU&wZ@Q9pEay-7z#Yv3cMUc2fQkr7&Q|0Ac|~|7Zhla2~)Uz
zN=i!p{&nshbIt*4X?=a#rG|dv{#%g>>@NpY&Ent_6LVtyn#HO?%=abF@G#?W9*=5t
znF3YMx9f8~0?BJURIF+{WaJL_kK7z!%$54R*9z=I6^_jAu084Ez)}Qk3>f@tt%FQD
z6xk0NeR0E~5AaFHVU%i!EJPgreQ6V18)70Nph3WGyeuVk0My}1?OG3zSWyf-hm&lF
zSYF;&|D96BuV5*)Z{MDhgdc+Yk`8y)ls~b<W3Cq)qm-DGRPMXw1T@>0dD!%y>CSwO
zjAzct$;sfB{LvCg2OK1vp=Zz7d3ZW^XdaFeP<9vU=7SD(nt|blsp)I|m%k6EWdi~N
z)YKkySVcW}U}Yu%0uK*QjqlcLT(--00+@kjW@aFadWwpa5U(+>z{P}vOh&`1_i_L<
zQhYqXgkv8Tq_f(910Q?)m;YPfY~6|{nFXCaoQADpcnOc5O<n+-32h|YDJ9Otfq{YF
zQihGy-fK3luD{FR<SmwcI>o?HUQr<`CI%Z0wvRvGN^iH!(>z@HO>y1VcMpPMz;1t5
zz>4p<<h@^@?ZUp?hJ9JaJ#nW$hgVQgfcQRE<=WiP{3qX>8V@<``gK<S*&KV8O49k~
z75Xnt8Up-vbUwea?tE?5Fg7}x0UHJ;7A-CG*>cT#>&oH4wY2f8tM7?C#yWPUKi?4s
z85oj1P*ODk2NL5`4C%|u%b;ezBZH7}_rI&J!e>|xF*~fqCBh;iMTVu%UcS7Zt+l_`
za8%Q6)4Z3=41Uz((<)QM23#>HW_=4A0cRdIkho*^jqI-m)bD-Vk$GF`$HbC#Nl1u2
zL1k{IUZ?OZ3(LU5#<5?l?5|&}HrBuejvgHo(+(irelv*%<1U6;AAZnFer@>V^cm{v
zf;%*CaAE#PEBaWs{o3C@wMy2pbw5n8crZ&Q@bG1E{V|~qrZ_kR4^+-sdZB$F<8@_7
zin&|}YphjLS;@1xW^7&lAi(>#$Iz~2^aosEr-LXDJq18g<J9!@7Fx#P-rn9lusDI4
z1$4?D%Tl=X{G6Pvlhc-_vSmXL3_cCn7uU6pye=*Vmfyy13Bm|OL0BN~)6aqw;rb8!
z0-aS&O-=8{4ae_q$ydy<X)=KUKw@ZX_j!aCpk2f`UcGwt^M0GiUi-b$LkcWjOAl{&
zmW~b}c(F;1O{pOW>3KSZpZ|m4Jq-(GR~}q19^!m0_p{@0Mc)OND1~QWikMC2`Ahmn
zqCby}q(6QP$1?1LgQ(2bh<l~;IGju=DJgKn{dZlNlao_oU+#~Tl?C{0tK4T}N1X;2
zHs}?_8;tKCQGBfRUV}s$l&L&9UZ=!V>rg6s>5}V2x!JD`d7W!N>EdMG`R)9vsHhk}
zI@|&w1>|^;GQgM%*I{oh>&QVgjV)k%^7Ch%Smo1bC1qtZzu$`Q?7mD+pE+|z!e{*s
z_z!goM{2yB)zqlQLm3|L?(X*IYl46d^I8Uhg*%B=((_erZrESBnx3Bi%F*#;2|yn>
zj*sA+>9F!yENxR&Rb4$~r~=XrzUD+%vYwccRbgghJ2nTIrKY6BcUW~LL#6VJtJJV-
zr<d^ITIckt4`JG<Q&vh!1nk`F6gAFBg{EcSX3DunFf%K#TZk1*9`G1~A(_p8J;A8R
z)BAN@Jc;2*CP6rt3d(i6H!>pPeNDS>j{u`|ixi5I^0u-ZE<%s{-rQj;<(!<J-Xr-m
z(XoaQ1|}x(g%$SQ*=B8jOA>gTc%6RE%)~x;Kt)acM=E|E#8CtpkMEo=EG%4FS^{T<
zPlzDe)M3$k;UEvhJwF;^1oM;Eu;giRu|Uap3GW4t+Hc?b^H})XA8ak%L^Cq`jvd~<
zjKxcbGLor-P4J?$wDhG*rGSg7s!~=;??-1bVOd^F+t(j#vZeV;-pfgw%WwuWs2Bk4
zcQrNOR_xr8t^J^hSvRX{y0nfU`%eHDf$oSbaeOkddo-s1&oU=(`-6Pl<d(t7sGhK0
zj(IRCni{>m(+AcnMqWcSGjr#bVP5Mk`MRuQ&?<|9bO!n2iHLn(?FG7jwk6C{D_`^t
zMBk`k<-viM5v2-f5H10TPP$`j!DOtk2LOj-qN2bDCGGkHFBW$MHS+#&!@=;Y@M|hs
z6`J6IU7@E?gluVG=6_t7OlQoSSb-xw@K0jav6maf2MY;0z+%Y$v!_on5)!*$yze5g
z$^=5c+(;b-$~|BfsJX2yEGCbQg}cw2|EH0W)vSV<_!>rm4lK>R_^_}dFqyfzy#d9p
zu<-7x>0;^+nt)ZJaw8Kht<_Mr{fT4C8bF%Eg@(hI;NF1q|Mu-V0D%8(NZg#f5;|#a
zDhw`M6qM}{pbtJoGdhn{O_s22fffP2Le24j=_CVIztzTL-zB6F5C3kE{>~+L9<7GU
zfQ29><#d9|ql^p_eSH9OKtrTnPW5L$O_(ijz)pB<R0g~O@jmmu@jx`-_qe!Xn6<O>
zQCr}C8#pD+yPt?$Pv##jv;71a2BK@ufZhMF49+y`(u86~qBxJe*mUBq^`CAz*KI)Z
zJ1gy11?IzM8W~88HC`*GHJ*-2O0D0^?cu*1fcfWQf{N2v?R>LoG)6py(IgUzwpp-^
zP=tl-{DIV{n)^B2UG7+muWuX_-+;a3cdh&n7dJhXJs!Tee5&9^4piU>l7(uQjc5gc
zyP6cF7V~4><nO<z@ORF_Lo@RBFI*bqU;~7I$*Q1k))|H!o59O2M94<aYC%Opd93&w
zw^kR8?a^wrT!+TuhhC3=|5-%6RRd?b%&M8lFKcoxBTj&tY};lW>u-qPVlHQ9Qqul?
zzOu@Oiqs|N^5yHbFo9A9db|~a!aFRM%Xae}gtf9Z88Iq=c^nyct5LdBIc#E@&-HN<
zB|qzH#QT_urhU{10}Kmv{jc?VAGXd9jQSFil0$<~+#XKJ98R@?Cp(Oi5rqZo)yAON
zIP3_dD{wi@@2zib8Qi!5rqnJ6*=0N15`K8M!wGhg@9-HJ0bim2&Y$VqZLv~E`)lj>
za{BJ?Z~wN<^lr5)um9c3Y*)UUs41PGa!y1<WTkG)6b`(%_YQc&soA6*gi>v;V#3Sc
z*REdy#tI2Ks!BQe-<?$-6v`p*L$NqAG7=I(_@6p3MAv_HV6TJSdpMO_w}!!=sL0;u
z&<ZNE-QaCSkDs^4NnxR@QK5}4TgxUh3n1srZS1bEd*C7rc^`LJk%r1~C(+_SBs!*-
z^8PP+N!Y9V_+Xrkt^#u{9MF_v2)x>0qbfI=7XZl3KtbXU2|?(FAjIVVvQ<^jj^iiD
zz%or=3gytfg|DRoOjO`){%2!hu(Gm}CrLF`O;l9$6f0}ye^{r86ty9m1HA-FGf*2)
zx^#DULt^xkf^LGC+_iaijg3c!hN=UP0-~OIE`F0kiM#!bP|XD`a2OII{O1W!5dS&B
z4CdfUhatE1xxN=KxN~)?;a1F?w5e8t9edA|Ag_yQwh{t2@NB$IxzWWa+UO5mN&kn@
z+m`7+$)WZ~+7P^COSWbF31KG6C^&oQ&uECJnCDnDAtI|H52+$3ex~C1Ifi~ea8~9$
Vdhk4R7%UrdO;JPPHO@Tb{{clglAizo

literal 0
HcmV?d00001

diff --git a/plots/2jets/kt3_100/ggHgg_+---_S34.png b/plots/2jets/kt3_100/ggHgg_+---_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..e57fa3e55603c9deb2932093998cc6ed7677015b
GIT binary patch
literal 14808
zcmbVzcRZGV*!E@LnRke6;wQ=8$;ehjM)uC$LiQ>nn-H?Hl9ZXf30X;Iwv>^C?ERkl
zJ<t0-&-?uGem<{Hzn{;2xvuYheZSZFJ<sDjj^hfyr=mcFPmPZt2+?gtS#<=#)Ikso
zQ4}T|k^5Y)0KW>oHFez7O+6T$A39mu*jq5Vc{y7!T6o%6B8cb2eU(-sOkTnx4}5vW
zp%0E-H|WH}i7qqXp-KH&iY>Yvjt*)j-hDo@k5AVLyijI#z{I!q#8Ig3Rhor=e)}o<
zNsO!$;X7yMvJV9*tY0|839d3e=$htKStC;CEu}@c>e8PKvWyk>&pEr|e2H@-&iERU
zuCC6Flbe{(>p*+oaHHSD^hnTAbK7XvfxGdwu>K<EvJ>3&1!qNFR|Fv-JO2*@d69k@
z4jQ`2>9}b)S-N?cKD0n&9$J{XS(r0=*tl6Ux>;K=YCG9mJ~VY;R5o?AayPZIV6=34
z$f)7wZf@b|=E}&)c+cXYtCORtJ>z{>3r1B(doM;&Mh_1UE{}h&<9guapg8ND0AIv(
z{zZSsw{dc0)U<K1K=^ogZ;0~pi1P9>^74!F3W)Lx+-#(>K@djdwycz<XZqT-k3r&2
zCf>#@At66jyK}Rs0WL<qXkfgl(MSErJ1<^!4S7$MbN*AkJ1%Fe@1W;U@G+)fdT4c+
zw|bOwTC<O>KKyx_S<VV8`f=2ib~;=t^UEf`2TnKBw*>kLd0P6!2KszwN=^gAOc#Yo
zTE}Mh_D)Xy#UgT02ol(gPrG%IA~IxPNp-F;;Be(??x2X@;r86z+y&qI=*-N_(b3VT
zPf@i75(idT2=X%e;{1EPwS`zoBRxIQpn}tlc9NnuZ`?$ugK;g3nw!tISBAP`=v=!i
zFc9Q(Co0%#ATv5TTHI&%tx-u<OU10udSiTid@wp9=kV~5m9M4wwyJ8Dpxvl>CS1@m
zV_m2gk;Bf;9uX1Ibb7ezy7Xz<Z*Mv&DQPy~%r79IS*0NDrpND&NXmZ8Ei4kTxQvXG
zKfT;x!NIRJ-{j@xDKPkHa!}|?j(q<7xu~S6&TfoLxS0;o*Xy|Gw{*j_jpO#BZB-X0
zVj!T$Xm4%(*|yTl%j?OLCs$Q78;*Y0yNhPX=YB1F&{aL_uWw{@I$>9G|Ni|9QFr#6
zH|v|519pFXjili8-kbJlKKxlUQWS8SJ2W`RD<EJlly*~86cY>U!Gi~rlar|>xY*di
zVPSi_yL{S@pFCl{a>bsWjDcbOi!iajRFOzdvFCF%pXZu}G|G$#8K>byXG-`@nD87=
zHlL)mn$&o0S^D{jGqL>hj~pXfR!*+_$HOumS_%pwF)?LSHXGbc8a%HoiIYD+dixSm
zlwa-52F%(Ek&uuy@6GsJym;|!TlMU{$GXuX#{B%eQZkpg^Bm&(&(*6|U&}3oV!ghF
zUp3gTYE@mnIiMR5bqj^;$`b}tN56XW#`b7;?ZSl%!Et^^yBT6$f1c|*UO=H<GMH%G
z=~>vMrlEle(oj>Al92`Y2eq`UO;(c-6F2RDi@f>h*GulEjWz-y?xns<ft#ePeK|{y
zx4V83<03USA8vV`9v>tol8fS#N-qv%o&78-dG+emA5Sr9RBTtpK_FUPOKW$fAglAk
z2eJLRCqe@hXms3*7e8Z!5gvSR{HKD_$Yq>?`$Rjck|*0+1CrbnkuuWK%hxBX9N?e6
zz5QFI%q;Z7-&3_PTZfs3ulH3Ux_RPNyt-6BENvb5vf_Wye)N0F#&C;|3c?AGgx=gT
z3-&A5d^r^p>;vJ4U!%|vfi%&LV{Cx~w_L@MaT!MJfS^Th#2Hnnwm~V>zrzuOjfmg`
zp^rn{WyD{sVgv>av+WZIj9~@JSf3BpyqG;~?c!2qWdvVtVo)j%zx;`UVBBNs2#Xfg
z>{@!n8WlVj``Lg5A<UC+WjH@_`F|dvw|#AOh?@1=GbCxCg}X}-6K0l0VIv4}8#UbR
zzTn%7nCQn<(uic}EmR=<ZVnx0LniPsj;S%3{{5|<i&$UB-mpUjBf;n^-3HNU)Ld2^
zHO~26*51-FFo<&fiGc*#l~xc2a&D7j?q7m2k1@Sr45CpKhChaQ2y%)Wgr1}Ptbv+y
zf-CoN&QD9bh?U)8HoryJN4c^^;3YQ07MsV`bBKY=;J_9B9WIO<oSfpWi&3&yzSg+p
z8gN+^YinsePfDVS?z~^5b%~sO*{yE6-s3tseyu?hM0&WaG>SK^->G4<voDpOlH2H4
zwlL%Z9yQ`cUw3zRK|w)?trW;0txxb$SM}cQe$JMm5q6w<Z!<LC9)^d97fW}Ol^kE`
z&YcftE?!<YPD*nXV%d}K3`EhxLwH7uEgd2qpPWodM`x&`Gd?x-c4%dJ_1(L7o12?d
zR8+dUx_qf`%gWTU?~#*}2Zw}k8q{p`BwY`V3k?k=pyZnJKU$;rBSRc>@6)b`SKciW
zY1_Spv>4Ln$&c8&KYYl?B+H0?+F=$g&rBM=ysBQ9=pUuYK4LA<cj-{$oz_t+9)sAQ
zkIWEqyQ+4L?+9P4wqAc(fNo(BK?Prl|7gxP$Us9F`uX#{#kxUj^I|0y(!~g)l4L~|
z3k!=Y@rv2^-oJnUdgNzcpR(x7FX-cz)$wieD`?Dp7QDj2#Kgpj3BBAw9ew@lNq0KT
zHs|JEsuaLNsIw=*Zf<TiF4R;><@@KxjoP}p7ie`2jfBKRfd`#Y2U|;!GEvx=+4tDc
zD6!K=h{1*P$KBEz#Um-%Tv%uWX@FeLVZ1a5T^?}epQ@~-srlab;7`U)kDoh-|0q5G
z@ZrN-ow9E&L0J0Lj!Ad&^{ebJ5D?^MW#{MrBOxKd#MGLwj@|O(JakAr-Hcy~XQ*5y
z$6uSoxXVf=r#4#AI6rS%rXzOPOHN72EC?WkR^S_j9W02chOddq%e$Xk``FGm@Ut)m
z|9#bf!y)rb)04v;JYw3Ejp_%Hg79Qv9OfUa8QYMgdG8XD1>UX3NDs-BMyh*ydyjTX
z0y18_sPo?W8Ak8T#?SA%^K&FPuBWHx=6b`{sJ_$P+qVxE)0|LD1LAuI-rk21m#!~<
z$~YQQm0X*sTpcddVDQ@>{F1NaRKHf0m&f8Aagf}6{6o9>@V=hj1f9p!Ae6=NanGd;
z4_IJ}{uhD-6dW&&x97tc<QcJ@@uxLJAiKMFR6Gqqet-V@wf524L}zCwR5dDoOM$;X
z!^6YrH$94>XjN71!gVwC9_zxhzFV7J3}eH?4LhUyOP@0MFB95UdRtp77LAOKjGXK*
z#AXGY9(>BUc`f42n>V8V$DT4WGM=9MW5xjv0@OuCMFUxqXAp7_G{;bxGcq!u7|Ym_
zw_IDkhMiIhHw{%6mVTAoT16#h$7uAuZiOWdHZ}_j3x`f=VAn#&hYwQ?Ui{3=58y(0
zv_CdIS5{VF8&+5i5EB!t+`XG2<nUsrnp^KZ8~g|g-Y*#1^lX6d%gMP?rZY7%BInUq
zke3I6E&cI9toZJX&w74d-dp2l`XF@6wYFg0?NdH%h_!`mO?Gah1`&se_W&<esg++X
ze4^HfvhjO8NTw=Q2C$*|sJ?l!&fQK!V@P~&YO6r<#Ky$rR=&ERfPhYb&%JwbJF88{
ze|qWY=(4l3T^IWxhXlv9v^2{%p2tkpq$2?l(FxQUF-p`5=jdly3?qE_UNRm5fo*^<
zi{HPSo0~^%U#5>$z*A&Zp77m>J=>2}l{hfh)YR0`(NR!P(9#;!P!$)n`b1l6K!5RK
zs~eY&f-Ze*^0Q}r0jI}pZPL<D6<O;1PwI9a<mBc;=7Q-b#mDoSF=X3i$D)xI62ltj
zY`_hJIdTbNd5^5EpAIYy(HIL03PN-#oE?^&z0oQvP|2785OIfcwm(fcU%jw>!Cm{E
zUZwxZ;YgA8-@V}o2xE9^O3dn0dN;!eJuPjYZ~BWD-cal&9qaEFjYu5*s>t0d4+{&M
zG|ppV=jG)U7e8q_`pvw|jGcnK`-Xa$hdi*gw<jbbazA*KCPu#w6_kONmONY*0|SH1
zC-k~@F;8S7REmWs6{$!%?99YF7Lc^lG9_79%=u;=4c|PGkPh4|Tgf$XVL=Qa7A<%#
zza?2%;J}8%tzVUqPu7l(D$2_5e_PFQ<jG@n;`xyy5BO4*Ap{Q&4(v%jTst40^=}>G
ziHM0IrjMm$U>MlFmHrqi7gD3+<Ktsy_U*$RQSkxSpwgO}lo<oumgG4_e1yibqPC*K
zwI}f!45OQ=6m4cjwIObukCcv0Pv2Ebto|-{0jga>kQP4T1L5G};?lP}Iu&*c#p7~*
zmXw;Nm6es5*_BBwD!h{LafCJ)&ZP14^ApYZ^kec(?Ild6mb{lqm@RtR+S;(2mT62~
zi7=T0drkNq13!IIS${!HiY<+3OW|A#G%C?98o6=fhCPY7?>!EzIqKJpILp6(Q=qWb
z)YQ%oqEQ$ISeNn;LqkKjkp#)mv39X!>ip^?DSh#McFj0UHxG|l@6~tqv1U`}wYT@>
zWAbC&ztDCohsfeG+j9(O@x<823_pMV#3v#mA||%<VO)SRKWE0qfO9rHJxxbR*|p2Y
zirK-3aE1O++mNxWIOvR~f%UzG>QQLr-r3#N<9MEua=8kR@1kNfX3b?dO5*O}p&&1h
zkBxbL6wWOUgG+_klX_@Y<!sK+qKqlU%Mun5d978{-qtow{}J0%9yKQq^9%SqG}OMZ
z$-_*m@8ZJSSW6gqb_?g){*$IAiFMIuGq{i7mYD%udvht?lfrK*s;}4QO0E!(2;Uk-
zi03ZBF$pJ6Pfrt*7Nwgg8~E<uA^7SW4(v(nY-}HWu3MmBt-DOH)HiO!Ay(GT)fl7l
z^9f&o2^+(Xc%_>42_|gu;f-2k$F~hpIW=;*=szFhn=ZCwW&4u*KGQ0qqo$6Cj<)b&
zO!($0ucN2uz1T+;E?e%hAit{j64HKoIbZHzjqS*r$B!{HRH}XU97Cj;l6!@nW;o&%
zV;Ce)`-Nw9IG!J^{{{J(-js;J`TD>O-C-dO2@Ne5kGt){!~7OfY+>Pfhw$rb1qr>_
zM}slj$}nQOi5i!MS9jBh86?C+L_B|u^Jd@EQCGi05!u_@3xVAX02y$qH~;|vo&st8
z^uEkUI&22I8|yo9+ez_TMhZsczM*&W|Lm?Xx?DzG!k05LGIDcsGc`4Jb*)e-$StX^
zs_N|OvVx>#VbN_~-q|T1BCU4s9-4xp%6YyGc5rZTu>E8eCp-I{q7eYrX@u;7SqbLF
zF?B~IZsZ@D?B-~^y}f-I(V~jcZ$^GX`jdWoixC~!K^-m6LOM8>uYT?1a-rs%LF<(3
z+XYwR*{)qHeEas-_wEFUb|E?0(aD~dwe-hS_*N~#)&kTSDobfW_gF|%m01rTJZWuV
z36Q%I|KAbJcCr@aG5fFObT=OjkB&md<x!2C!@E^+EnSKcn;RZ1v_^p9A=J!oC`P}^
z%Y(D1qdNi96l$_lL;|#P7d2E@f2LkIY%Oqda&jmCAtZtB?(UHhDCRF-ynx~fRdp#V
zV8&YDi<erN&acgCtT`O#hur(PvpS3{#8$zOeD2=8J6Y{iz-HSXN)#M-a<tcLUY?Va
z^P@L;eX3TYWQ<$4oQ0LuvLoUWz>D!Z_aaU9>2eDtr~!{2?J99M%A#sli|hIL`NfZn
zkOr(>Lo9|{YMQF5s*a9alUOc67nStfL^JNOy`SZ1G3Qewx9}s}+}J4H`95I6vvJ^?
z=I}8xGBTbTr!;KMvPEgS!E5V7I2rV5B_u3o@>9B@TyZWNM33+s#-~DFzI@qDLeRqS
z(iXQtTU9ky_R3}uo1(L{I1*VpP3Xy;rOU_y`-ek%gwXSvcMuONYv@`~4X)5Mt_jhb
ze+M737C7vSLI<G(@Alb*yncbfoughTEhD4A{?Dc;T>DD~uBDtE*NvX96>R(V&1}_h
z6bTG^L$z^5qUx5S*bQb`2BsE8XGJp4c-Y_x-QSh?r6Hq_TWJVB*^!>(OS<z<(jC}6
zFm)=(iYleWFIv5soKs^t(WKiKF`bD<34(e#D0-u5gney-;uz6zsP0!#?=p@w13@rk
z8fSv@kDBcFb#zj=;UXA>SUOqU`T6?4A3nkCoQWE5iMapNtit<dro)Uq$EMkjjJ+PQ
zt@!%u0YNbK&0fTr;*DjX9gO1XS+h<j8ku2%i1gIihN8dt*rp9|Q)p>cj$HStP|scb
z(KAj@ATpN#*VzRl2J+hd``u=ya`z{F6zot;vt#ecq|pSmon~d*yStX==B483v3BUP
z#tz`D#`3ZGu9l09jg1tM9eWh03(#Keo&Q10HnBZ6h#4jobgO0emH|nj8dAKK&><~K
z86hbB>CXs`^kXWfK<&7HcVI9Yz~GZHiTm1OMfYh<eeM+tb8A=GSP(Or4-|}Cy6<35
zg6D53lm^MdPY`VeiC55`g22y7UGW}Y`+fL&aydB#g$i+WbxRbw#qQWFD2`zqCc55F
zpvKpJ7xE?_A0N+W;U$%(gJQ&&v_eO5Kj=wBY&f@&rg^^npsUp5XH;Bjg_;t&+;`eP
z@gXzcOCm!k$Xq+RsM%qK=ndn=uln@lUN65uK~URj&Q~~MYi!8KGOml;LUV!45(fAd
zNpxxJp#}WY;rJc{9oUAa*!d~&L_L`UtY4Sva>z28Uu?W}8I6V&nZkkkWYoPx!~WTL
zfKFmcO0ga8Jo3O<24~2ap=D{XLPi;1*HnP|=<u+-qT(z4QyL~TrYG-ehjd+b8;xro
zGo7eZKtz)Cqn+*Tjf3OYY{r?1%;#q?Siip9$cB48<gG@bCRAPDChn5lgFil48+bD_
z_jtYW8h3u0AX#CK_ycf4Q{yc~9%k$fqM6Bm|8{47<&Dr|+Cr<9ox{`9(}o5y2r?ts
z8BHxdH0+&XZjT+WPi@%<y5ihWkA)Qr3JL<o3ZO@$C%K&0oJESb#b+&&IjugI-Qc*7
zUL`(q9B#N3iHfM($sq&H;#6gyu};^|PR}bIAhh%A&da>&W=?2Ce1sfb4#U=TEa%vS
z<Cn9GEQ-^r`RaEwM3dIkYUm;?5Z{RE^m|eR8%-rP0qfS$2|L`d+%EA<eFY+EZPU<^
zzSnawFrbC4cN4nxeR3z8*C{&2!R{7BhO!Y0zor%P)h~od7i#vv`V#}-9#iDgR^rp%
z%be&mm^X=WGwb5aema~`S6>f2j+Yqy`9QF@eaVtt^R|DQNEJs(INBJP+8Y(y5B1Pi
z{8(a_{H{1Ho3DN#W0V-h$NXN0gSeXXWs&l`vuKko#fTiXh(Bu%D5NH~;)eR_;lQT6
z6z;>k-=nj$B||H|O-Y%HBIxJOpJ(21mA?{iKUJf~mCQeO{rdIZo}MWAg*W$$@bU41
zJN!Lee+fUtfNQqFt3vk5HE!;+-}UPp6iQN3Qfg}P1v5B^NJ~F$q0*zfGBLx`n(Rrk
zSAe9VI?A3IkYfBlHM!PxiI`q&f68@WaI8{qEn6mxKH%6Tp?mw&&Gqj;eq@NaNVAbY
zPfYwZSzXf5;0vhS*#F?iITl8vH+rs@d|z5R+K`GtW**<9aUG%>L{0||^19PYzLyUA
z%WrsDYGZf{DRZzMsp_7MA$tI*j&2(ziVz0lhg{+2<`xyLD=poK<Zk-B;&vteDf-LA
z1T_OgR(!k^D!$tsNKpKcoY$|}I5_O*+d`nbhmO(nd%VK8g#}KENF9#fzkbOwVw=z@
zJj@%V8hmV!`c=A?B{emPTF`Bctajr~D!$^+#_Zx6`O{ros@<%g_1vV97hGIeC?fL<
z3al3UQX$f0fb6K$%ScaGMqNZ<o0aM04t@^0_fCu7{k?jjX6_)5_OdGT-yfh)p-Z|<
zK>@^!#mW1=MLz8Q9VF8ti+MzdHpfaOGaLhwQdUM&kFRajy)>;w<v%wnBbX0AxmIsr
zX<U(@U*G$3#<;)Q^)&L4w~tT1WknVTnl$WRL=Z6DJ!8TX92&|u2DFH);gxtE?QQQy
z*(*%J(1NVZG~VRl*(fZ?#3wxNNMPQ_DD4$hu)Sx<_nOPg($-p>GVd-c^PMh9%SWrE
zLN02P_t;abo*z4`Ye_~$PESw6W`wx-ceZUnfdIObi==?AP%&Q}C<PG_$Ukw3iFumr
zg49HEY5*Fh>)ihZ4K_A5KquY4eOol+ceL<K&05vu@8&aqO{hsk3Cx1FdW3HnRw5la
zv$831>PMdRC8aoT`r%NKeR`_5o+tXu@fm$wxhVe)vpm5z-Y2i6c5)A$_QGN!A8!aW
zzu<V}?*0!8OQ|^ifJ^C0RkyjQ=Z1-c1E-uCjgbAvo}P2o*n&@2O>M9{;cD~Au70CY
z0FV#l6cjT69)U>d@9$SHbnAW2xdcu8!|wpjUS=(2htZp<_jPo1q(Eg2b{DzOZLsi4
za&wnViZ9&%g7i}@7g>#+Dw~%hi=rnKb%%u0jVFSB*OEj3bonw_>a8dnybs`<jd|+b
zc)C283v|}@n#RhzXwSo7l>##SkX;}A6lK<koD^#X6cs%^l(^hxLa1;B<5w>mdTQeE
zU(BoSWDU;iZCkh^!>U2|K$7x(>}?;3ca|>*x^^P^rg>)U1zvOA;Lm(HKItduH}U1m
zALy-TJZAk)OA81cK7@ML-Rf)=#-8x+O;JN5HJx;vp~@Z~Z0hg6zv^mBN|zt?f@1NG
ziS;vqJ(r_FJ&&(LS2abx8Ys>ZttRJI6i$T7Fn7ouZ5NtP=*^<SpqGS}>XZ!U!Y(z=
zhE=gG@7ve5xg?6^wZCJ+8JRwqlCx+T?v5r5Ztnil$CCrD|7yZ(H-qh<5!r|w$axii
z%Zvh)nf;R6RhMJ<aPsb+?i;KwTzX<=h042@+jY6Fw<+gM^o8K*pREyZsxFYUi*k`l
z2fKJgN!-mVic5J;SQ7cvwo<QTtgEXFs&T9|BT%el*1WX*r?qd4jfzCfh6T>VhHaW%
z_+HnnlN%pCx{)AZacVkms5|uO)2F9TpT<A$^o52K5g9QPu{>rzU)-yb1bMnw<yLwU
zT{@n5)s}l(aPxB?|L%J3ZBbGrv{<E@6;u0SnX@q*np?iq*|o6<pzLGx32*vOjUBa*
zwe9OZ8C0U>!r(Kgv7l}jy~ZBLs>=9Kx#p2&!`p&z=69^#axVRIb0z@+XBi$d-MhEM
z96sz`7&F_|mLbDIl5cRR9OOCCO{ZJ6(`^pSE3!^an9hFW?T+zZiiT<5HF>qFrCnl_
z?-2)`XeN-yPtm9rDYw@z_r!Afv#=tVAI^__45Yc%#(Kz`9BS$Rr8@I~qPkPku1|gH
z`;n-<-qF>eF-fjZVKQw&Z&x5TDCy}l)6#lJk#Xq#0~yLld`80#PVS!OXCG6wE~VbG
zeueovc6>H(;PO)rw-M4gwzmseN;#O~a|0^IYqd9&jZ-&nJYD#q>_Vha{tC7-G{4m|
z-bG=?$pp}S`#yIy9Vk<hIY{lkcrjG3kmWn^pG!>U@*5!^Yrj70`|3!?pK#HAEp*Op
z{J~-fy~MD;S%)CK<86B<CrbQ~Q?Ez#(2mBYD34cICLI{aqk#2w*l<$lv3oPa>L~H9
ztxmqPlIF4N(mfx`7t7{KIaZ5LIXOA`Qu|7T5={Z^dj69fCVuGk>+0>%j7zVAw7lyU
zn<RTixfPa34L_dV^EphE9q5wg%X}{D9kV<tLlzbq>Nr(1??ltXb51DW$m9Dg2wIN2
zeq0>KvwGy2N~k^ZF)FxYB9-@shJlQ$Lx&Ae3rb48&;C&|_+xK`2S~p@eZ`ca<3n4f
z4Dlqpfu~7G*nQ1P-LX%~{;HZ|4^IUMlY?a<a+*N1+TPx_8G3bh(W`+HV(==DtAuw^
z--Qp7l%e8bDH@C^F+LuuMAJR<F5z5LR9*Lfk@S@dcjHC@aR|wS{L-ZhA#L5nV>e+7
zm3B)kUi#jX9v<+U*oS#DzcAacUOf6{s=A%y3s!Y<_irD<Q&LiZ?yRxSo52IXUTTtf
z!&tc{<@Q(JaeN=*gX7`P59$Y$Q}~s_iO<}>jEz~9>AWp@Us(w$np3y@!>rImRVYB{
zFdfQ<@vA>BkMc{$uFdmd5Eq0RO!D{LCLYlEzS!`2VtJm2#m{1RI-s<6|EpCN6(R2G
zb<7|}Nl8gyp$&7laY34K=1%LL-4k3}DR({!)9q^L`>r@z;P>ERjjC|P?Ff$!=|ysx
zReb6(dYyUVTwxOtdx=_T&>V`PeLMR__x}7gXreXaTa_hh#Fkv2oeVp-rK)=ft3-9r
z4@4em$k@G|m2nD&vsQU^Kf|s)(O#O(6g%5Bj~Nh3S2$~}%#4h3%b8!EdS5$H!&5(?
zqy4#b+)Warc;e+q3B*iIlpn?WmY*dB{oe=lPfJDHMHQ?vuF-9k`q=%RG;lCT5x7Q%
z@^K^{8j>|Wj1LlomTAm6<vzduYXxodqrUG>ZptE>XAR~eF@@Rs!rC<4M_AVz?2J$g
zkAVccmTM)ovcIGqAWlayD8esj-W1QgsxO46^?6HLE^=aW%&nCkuqW#$Z;EA32NL=P
znv+XH`FVuvZ(ars0tdw7NNg44pM>My$#!ySTMC~x^&t9_rP0S*uZELNtf&Gvsca~o
zUTagNRUxvODHonpyoq7@bDid2$;zqA{%*HHE5~Q5-IGg%B<b6$q<zv(mJjpXUnNds
z`M2H&VaYk7J?Ea}+mO`DtEc#@Pso=O{Nu0TJc1yL>YRVbI2Kc~MWI|$&GVahHNk(S
z=A#+INe$24z0p+lx>wuv4Ei;XBFIFrg3u<ieH@=(3DO7rVhxXZv`Y}iu{#*stC;%5
z&Ox}Oa#~ho`@8{WmR5Ux#3PswmyaGTclDaSN+b@$PE}tIx`i@{yd7o<?UFkhyEn+u
zB;(o-6^0Yf!84`ttZyGq+OG!&g?a}XmvTjTxycF5w@B5@U81G8{R{n>HF{j2NFP6T
z7kzK^wH{i#)8HWfl<7JL;*yp&rahPqn(v`#;<Q@OSeazQWBD){`};k2$90d>@>&q&
zGXJ?302f)g=iC_2moM;3=EF5;zRo|3TiP!3(B@!dX~0@BDuz8y)8Rh<Sb;{hs`5rY
zR@T7&l0C<2-LfQtExn;Is^1yce3H>-e8st1je0{(q5aDFVWG&!`$Jgt{OVW|u5mc5
zPcwzh7y-`vO3a>$8d`w3EAN#zXibj7E~a4#j5Jk4>j-$$5&g-}T>Afj@JzvO?(Rv6
zi4CCPo0W~rIAONj7+rmg9r?KBP5e)5YgAa~cSbbO$RoqUzsAcJrfOY*81wyIyR`ft
z3SX?`X-&7eHwY|${`^r%7h(FV@a?WmY8x3ffvnS;%)LHcuU#<YwQGn(_0QKaPCmg5
zurgG5ASne8nh>vB^}ox0eX^C1#rF62qoShTzU4?&2L0ysJvL}S+S=MExC}gh^jwlw
z^z#FiY4sgh0YYn9!S(T*BJ!)hH_73w>uYTBN0sD|N#7N{$^N~V(T0Hcmgk*&bGpc5
zC6Sbi|8GhyI1X$MQQLR^#o8^nZwWB>qRV}s+EVYipi#h{b(`l%3SA}yHKWfxckrVD
zh=6^U8jV!B(J`2<BsxLvQX8TwT0<=IN}pZkNr^E{@7%d#VeunJE|Qv>I#0b&hXbSm
zLKI5zKLo(g9JYM*TF2?S@87=znG71uU&@SSAeP?5O@|VD{fDw3Q7i4>C0gvZ<Ktt{
z<3Y~XAg?rS$CdtgdUEtHS_O-N$M31avDIV_U6B1N%sL{l@QCfF>+Z8BIesk<@xp~p
zRN<vDx?y^GL_pyEchxUX3sjfgM6>T%Gkj70EB84(Zf|dY@aWE*iIGW2e;MgM7RHR@
zwhX7W2)<{7y#4C}0&`klnU`zTFpLPn>f^Zw_J8u}gx@oBULjQ|&<7q=hl67EI>3I=
zHvBU?+bQhk?Cjq>DCI&mbse7ljHkFrSB#^ntxa>D{8<yOv9sGk@4cHqdp6&^PV4*3
z&z*3R8PmDs{KQ=pr(xajVh>nE0E>7)Ggkk*u6J7I2WS}^*Ivh9G+Sf{y8Cl70+ahG
z{RT*KcU@gw@7#%~$LqceQoY7!K@xvQOgjwVW<foM7!D5)KlL)g#AMnh*X%-+TR@ox
z{RFDCiVE@M1Jl;0Yh=Y8ze++`LFXj4b#OQVx$ilbAvFj&yE<b1uKd!$x119;xgwB2
z@l@qUKYEftr90;(y1oH3|JXw&l`T+d!?Qu(sj(7>Y-pcnSwo0pOffgEh!|XGxet#e
zU)@GV25S;)QvfF6IGUf$MuwA;w=z@!TGPsoH!vJ(|2Yx?u*VY<6Lw?8(|=`%4p+z{
ztEOavi1z%ZXKHF{Wo6}1fhq|KW#S`34+zaO3!t!gmX`MMLn}GN`GR*q>f)j$40$8v
z;^Sl~xH)|sT-;ar`G$?&f}EVuYh|7&%iuYSd#w0#jv56jbeAuKLIT*4{@Y*ULEkTK
zEFM$1LFa0)8C}zOWzguIv=-!v0v&<-37;B5^6}%x{n@jV+1A$9xHvQ{!z17T*U$gt
z5ed=}*jyg1y^yqTj|N)^;%xGBxbRN?7ki;|dJH@p+=2cVkO3tXl~-(UDl1{+8anmd
z7Wd_3#6-@-#KhM2XQka3h~Z!9BYmK}8HB;<RmvHnl_e#r@3df$JwWxvGR@eCKJcdJ
zh8G$dpr?G81o8i#O96z<4s_2SySp#o<D2<#{DvxPgq)Bf_P3RlA%j9E2hIZf*bYNr
zeh?%IRKMOI4`)BcfN%ww{w_$!N!PW3jW;th8>f%df2o5jf@k;yNhhVHr3IHzdxA9V
zsp^+@=)fnhR5HAGf9W<Fag*c24X?rtPdzS{LWm<`V=2RB@8my&`QczP0jY|MA@a0q
zq5H?5)v*!{@{V1db5e4S!i@;iIl+Ldq^JnkFzBD)zB<sTAlJ`=fa1-{M0j~OA>}nu
zqJW}Ckb=DY{L1R;RX5Rd>J`c*GM89WQv=<@?Df>vPkb$WFrFuYG3Vb8tmlJ2?=V~W
z`Ln#1jWisb4`9$Cr=wfzO8|=iI1GfNJ|zLHwJ%?x26|&IW_NeD(PvL3OJaJ_8~PFG
zg~`asGQ0rHJ_j5W#d=*ZB9nmhd{|{y*DX+4KvuPPZLF`a2g?5SYef!<3O=4>c*;WA
zusjuscYZ)iV-p}QB=npswY#V1&++RijQhDQ<<Ljnz3z&}!Ki`A1PjF1Q_<KiB_*Y;
z{AW}u*wUH_Uz{1NYe)p9@Th-dnJ%zGBV6&7gEXAh|2|hTO#euon!6($8Z9LK%jl?(
zMNeXU6FWJ6fpY4@lS6k^;%>hN5wyx&mLl1acGA`6UViTHWgg$V13JG+DDQ{V_^z_z
z?wS7K2Hn;^fl`n<8uW|40w5ruiPd{Ix=7Q=YaC%lwUHk2MrgPL@x-Y!PdptrD+6w7
z{rF&uBJv*&j$eZc4E-NJqEM(Bx0NrjRQ!B=LJkw;q@@4VF|%fOw>D~NbUFIF1U$Z|
z^6Cq6YGU-Ur~4z?#=v}B_ak(A@L&OQ#|{u<a`N*2rw2=5q8b8a<Gs_YM6|rjRYj-T
zAJ5?lprwIKiJ`l>yJ~zkQIDDJV-?&-$IZpn`H9cp5vrYX?_Bz?YrqDT-lRuNE=PB+
zH=mt?m@y!>rEG2v@ByT)KGSW>iqx)!!jYe^U%!Tj2CgsZkKZ~X<*ulCdDUta<+oeO
z$h3zLP&ziBJQAAi4))xnX7Z#=uOVpB^=<_7hy+9=$WFm=qoZ1>zm|3)`}+D|ztBtg
z?ss3!I^N1UQ?`;KBPB&KQF0k9|NQv^90^)QCv#6o=)JyQJS>{|XD&b4=ub<p?`8)j
z;Do&v0t~DC4@$Z1AIwZmOq*yy1xP0aw-2<_WMr=U8}s0Y85<o94GV*9dRXM(;4nBi
z2p4j*vCVBAob4E&2|CS)fmenia=m6D1_;eaN^YQgY%2BQ6^EgY%+6*(o}!@W{GIlY
z9#Y?p<qW(zzFLFKXU`sj5SjLDut>Y4>Fo3ff&j`pWLL1Hfol7%dPdam&`nd5ym4?M
zii#hcaSWuSSJ0?nX{NnB%F0fak=KLPv_FIfcW(B*cvn(>j@JSbulxHjbRHqIJd3Kc
zlI!i*^m8<CSGAs!1#lTytbEC5@ZAWy$7WFNNayMTRd8)>jk{svG3Zk|9Co8`!=FCY
zDKqPU`X0+5$wiK@p`lSxUXF>0iDH5_7EDoY--h*Ts%;ZZ4LOEJM((St|2bSO0o@h6
zpu#hrPnw{0Kbo99ttu}sfBUx2TA*03^3BVaEm#k>#45fXLunfw9+s7r<uGpY?Tn&=
zF(Hwk0dFS`Up{-fTMdYl;kS&c>HwHE-N0>As8LXCST6(*9Z;Y`3~hGvxoro0DM|l@
zIF7$Pyq_{NGXuFpNKg<M&moItAxXdgA?1$Km+Koe`PROFzrEO><}vL)Hc@GJ;Cp(#
zq#<X}8pQ+*8(5omn_2Biz8c!UK->EhO!+Yw1)R8Ns8}`IT9)bH;^NwqW`eB-(1x+^
zrktarqpj^5JB4q&nWvH~fQITHt$kT>+b)2am6er2==bpth`Fve?%7sO$b=C)Ox3tR
zhaE=30BCG`V?!(#oI1I=3wzCHen9@sw})Me5Otnw0k0bj-vPqy@W{wPx1Wg1H(5>1
zVTQB)E>Ln8x?;(si;bHzv$9mr&f*dhG{BkwPYP@~Un{H_#608HHtTw|jr}e$Fr0zf
zupS&25rKb{bqdmSu(avz+u=GKT-@ANJ`IlG=D4Gzl+3BWdo+6nF3c@pM8RTJUw;IC
zOaH}GD|(+_ywXqmOD;^xJjw;{9A81p<QYZHkpu_eBvZwOt%KcOe<;NugcKGQjujia
z9w>@+4h5AqHGxTGr!TP?5-cD;_~_{=!ol$tT6oySz%yUJuEd%kC?w?V>6v+vis~GT
z!af1$Jvn(3j0T$Ql$?6xG&DECy#wp8-{R-IICY@!SZe_`Rak!D_+g8l=YdfWM(gV8
zT3T)aM{th~S^_ZK5D*ZgrKP0?NFJnsA-Ke#_KUT^&mC|2SgW%kZ8mZo92`JsKwC6C
z{DD8Y;GPUlFl*q+!S3r;=5J?bCoB75XLYQ;uI>sm^Ig`2^95LNr%YqTPMgJir?vX~
z=-ger7jU+>aQGa8ba!V5M6qO&PJS^u)Yx0y1fZ~dCx(Xjd3auqtxAGx71r*}h;5<f
zodEC+e9^r)%bW}e#S6+DxSp#)r3dF#_PxvG<g%#vJNb|cX8akJU6-2wiaq^oWjw;d
z!hC#xAY!xpcB!VLCx?b|wTdeB9DuR*^J~<5M@&TY&$(?6gl_k}*4wZ?^0}Lk<{g}z
zvLFebsAkoEi$3EQ2_IN0$j`s8t-U@`c^!m7cJ?>*^^^8Oc9j!=#~Q);2Id!`zng&b
zSK9d|06+-)z*CHVNNPC`GFnZI$a)5Oc|*qp*cz5e04;$5`vi~PvjvoPZ9?29CB-3V
z>50k7v*RVnrKP1=fYN&Jo_mc!1{V;}WFht1@pC?%I)Fs!4^}4<iG9YCfn3A-N4&<O
zu8YcwicinG9l^_l+gVsy<QFe)f{V}ZXs!BaZ{4`gt*~D;>)=ePWXxy!jBtSu9E<7c
z>EHmRz4^!<G6pCojKSbnn*$92o;gh9ZOpJClrGsT@zUAWHa2QSBY<PUO?X(%2ww8E
zJtlGSMnKMBfNqdVBmicDgNv(b)@5z2dRD^yCpl9dgzUBRpWB6+wgN9sPyO@NZ}iM8
z8NI8l+yQGy1LSV)VuS95O+bYC>MP(Kh?ZY~|6A~-R?p&H^;sH7zp(|?Nel|B8~O0+
z&Va;`y^l|QhnbC?9XK-Y+`e7-?j67Y0M}q=u!?D~l1k1dlV*#+Cnl~sTe*7mDr|5v
zX<J*{XV0FE)0gNk?;O6<uYTm_1~TiRL}GF>l-i@<IItrH-HJ<3x8JgB+l`xUYr4?7
zSj`AN0GK2blN1Mq&x#j0hh{XXw2;%xF<2bGc&r7SE(Jhw<D}>XN8WRAj{W)G?bLjt
zRWdf~Iv^er5<-7DZK?5OcM_O4Wvp(<m0w0icEE_Zx3>p|6VUDA2bO$}{4To&I7D{*
z`JSK(+w4#R0A2$aTfmie0}Q&YCQrk|zk-0L$nsy6kB!uYQU|uA9<W`kx`9AeI(xh*
z3~G#!<OxW~v?9(gYio7?c9I>DhlyQ3z=3lH_2yc{9TgS-jaEFk=}d7SkeKjraYu^{
zZ^E}79(t!4lU0TNl80!Cjg2*K@GOI#=74kVm!Gw@bq!RHa*N&?ewM3cWGDygO1;(K
zSco>Zp87*xLo-j$aqlk+S$nN!WrQRo`s-ivhE{^5vj_GxV0Yo*;qhlpoNYUt?rq!#
zImCoVhXMDdfB*|Q{tB+(3&|-wpWS90+6EHbC-c4B&3(PSuAar>$u3tMCpmnuad8hP
zjRRivpN*b+G3@&`^&5pi3@+t@Gy%SM1xdf+lMz=ui7Y2q7H?<gQg?EeQx}F`U(YC<
zHzcreaPnWh0)PqjEXVY}xEl+0E;NGBCxAm{AJ8$lwG~;OLBj+F(o*rbO)19U+b*wM
z=#k?tXgNi1-fS$IPpXt?<1NAuI$G}Zl1BM`<MK~L(3dV<A|ul<HqOe*8raoI@Awq;
zxjRE4aKWB>NtgBl;tWnlEjzo_mKFpAVTzkU=zv>(Si~84h!6A&ps*Xg=dD{(&)u%#
za}x&V19^rr^FG$k{$&F;^(n+;0lb#*^29o13JQAqPrEvuoq96j;2}qR$5Z*O`YgAm
zJ!ZuhnNxW_Xm#<}-OmM08!#jzJ|?oC2OAsW;C)q9%)v*{Z$qK>g@u9h2lSQX=g&pA
zj=`_{N%Cw<Qq?;p_@y7boHWHGAmDbmy^;(aG(A22R_pffLdd0naoWH+I^VZd&y(>N
zw>!osC0!yVeF*K-B1_@m1?<PrQ%ghQv2}FxU(OB#*8zj)9L8Z@J6L<Un-51yzI^%e
z8vtIFkaiUfBf9PKXFd{ytbJ)~sW0^b&t>oxgZ<0LzuWuOe*NqTlvnQS*H=B7kEYKz
z7~qD}&Demx?rtcO*El$Q7ovsP{)bC<t<9y}mxtS#R&No*girPgXwZ@Hx(fgx%L;})
zfPi0yhE`&Y15S2u2q=Dm6?weuftz1{va$cQctweW?_`l3q<}LQHsMymO$?5AZEZ?d
z(K02tUF&p7J9?xg8)_v8qVa0lJK(R%&B=l60|e3OJj3ZcXx+{5s9^K&Ud{CU2JKZ>
zEQ2<C5_j|QLomErTQ8^IaP70KAW#*TwI!E-^4tq?zLZIKbZ&QBf|hq2Ov<D0^w0fl
z4Gj(8R|Tn3@}GY!09HU60go^Re#lsfv4?31&Q;<?94?uzt4OJZi3y{CK;pqUB7@u)
z;wtrG36tprqYd6<aE@3SMP0;%7ZINP$J-M3a|7?+LeAe?I3><_jLa>?QSW$&(2yd>
zw3yk=G6jst{*65O6FTBC97Ga4p5{iygiL7Um;y7KGw~jT)TIF&X>V7mnCg)uoeTdw
z7DZZ8N-O%f_rI7DNKg!8AXC`)bDQUs{z+Vpgzv{4MFq4b-(drz&~h!~=IKjfWKIGV
zTs5UFedFL#y^Hu0ZX9<6*^^@2j_WQNzdJ|unGyrxd3A9N1+snnD!JTOT2t#YMR;xM
zApRf)PBHB#L0af&@!H@KUCr|SbFh@<WNTaAWTdNmz<u_I`}_?SAZ9KwfpR5zx*!S9
zAzbo!o&?ILzp}RW7_2Wid8ftQ*7*+jXpPywV<2<H;Pwan1N<F$>A*Jrd#?2fh{v>k
zhD9UvqHfEOtA$gQVXLSZ8O?-~UHuCIyPN!uAZ9_j^E>$S1CaAiH_?G60&bpzOE=#h
zU?4S5o={~=XMgPN1yY3zd<l+@mN|L=jC_54<>lqU|EtVuXK%0he?cjxynk_@82v!5
zQ=3vB(4%^({Hd3P4y@o67@8pJXiF25zyq->SES!*L0u!0#>NcN;TW|RICn+lKm!O)
zL!STbH2hCmbo&#ZK#6rR9)bj*JvYB~Krr!Tox_TM-;&6p{`;21;e&X^51Or)330<^
z+YAO*cSys{x3#4=;MFu@e1jUmSRn-OxNQVp{QtND>>J_R124GV<4DNLnjIc~?|1Yl
zB1g!6{1)nKb3n5)>veW^y(Zst|NV~l2~ZZm-)OznahYogf>I3>6sLX_&p_ZgDYZc%
zmiFpa=)WpEQ~$Xw@E<fP<vQ@7W@Vn+$=A5J<Za0jM8x_-hQ%@_72Yh``iS#^yc8_q
zr?wS%cX4hEv`nO>1at!=&=?30cyR|zvG79Cxp)hw1#Fy2pcg2(N#)Pr6LMQlMYdSl
H<njLkczX!U

literal 0
HcmV?d00001

diff --git a/plots/2jets/ggHgg_++++.png b/plots/2jets/kt3_20/ggHgg_++++.png
similarity index 100%
rename from plots/2jets/ggHgg_++++.png
rename to plots/2jets/kt3_20/ggHgg_++++.png
diff --git a/plots/2jets/ggHgg_+++-.png b/plots/2jets/kt3_20/ggHgg_+++-.png
similarity index 100%
rename from plots/2jets/ggHgg_+++-.png
rename to plots/2jets/kt3_20/ggHgg_+++-.png
diff --git a/plots/2jets/ggHgg_++-+.png b/plots/2jets/kt3_20/ggHgg_++-+.png
similarity index 100%
rename from plots/2jets/ggHgg_++-+.png
rename to plots/2jets/kt3_20/ggHgg_++-+.png
diff --git a/plots/2jets/ggHgg_++--.png b/plots/2jets/kt3_20/ggHgg_++--.png
similarity index 100%
rename from plots/2jets/ggHgg_++--.png
rename to plots/2jets/kt3_20/ggHgg_++--.png
diff --git a/plots/2jets/ggHgg_+-++.png b/plots/2jets/kt3_20/ggHgg_+-++.png
similarity index 100%
rename from plots/2jets/ggHgg_+-++.png
rename to plots/2jets/kt3_20/ggHgg_+-++.png
diff --git a/plots/2jets/ggHgg_+-+-.png b/plots/2jets/kt3_20/ggHgg_+-+-.png
similarity index 100%
rename from plots/2jets/ggHgg_+-+-.png
rename to plots/2jets/kt3_20/ggHgg_+-+-.png
diff --git a/plots/2jets/ggHgg_+---.png b/plots/2jets/kt3_20/ggHgg_+---.png
similarity index 100%
rename from plots/2jets/ggHgg_+---.png
rename to plots/2jets/kt3_20/ggHgg_+---.png
diff --git a/pvcoefficients/.DS_Store b/pvcoefficients/.DS_Store
index d366bae2f9357b22b901c23a06f71b37260a3ea8..736034b69ff0764e518d3f3a050bf627ed3ffe42 100644
GIT binary patch
delta 66
zcmZoMXfc?O#K<`DqQ=B-aeYPx1_o9JLxwDdRE83U;*{d#oTU8x9Eh+HhVaIV#^L}u
Cz!8-I

delta 68
zcmZoMXfc?OH1VS5#BOmt1|VQ%Fl5MLNM$HtC{8I(&PmG8&w&UVp$l)kXvV&ojpH9b
E0D-;}Q2+n{

diff --git a/python/log.py b/python/log.py
new file mode 100644
index 00000000..8e403120
--- /dev/null
+++ b/python/log.py
@@ -0,0 +1,33 @@
+#!/usr/bin/env python
+import sys
+pvs = [ ]
+
+state = 0
+brackets = 0
+
+filename = sys.argv[1]
+
+with open(filename) as f:
+    for line in f:
+        n = len(line)
+        i = 0
+        while i<n:
+            if state==0:
+                if n-i>4 and line.startswith(('Log[','PVC[','PVD['),i):
+                    state = 1
+                    brackets = 1
+                    pvs.append(line[i:i+4])
+                    i += 3
+            elif state==1:
+                c = line[i]
+                if c not in ' \n': pvs[-1] += line[i]
+                if c=='[': brackets += 1
+                elif c==']': brackets -= 1
+                if brackets==0:
+                    state = 0
+            i += 1
+
+for pv in pvs:
+    print(pv)
+
+
diff --git a/scripts/plot.nb b/scripts/plot.nb
index 81707cd6..083683d6 100644
--- a/scripts/plot.nb
+++ b/scripts/plot.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    112258,       3060]
-NotebookOptionsPosition[    108659,       3002]
-NotebookOutlinePosition[    109011,       3018]
-CellTagsIndexPosition[    108968,       3015]
+NotebookDataLength[   1686238,      41188]
+NotebookOptionsPosition[   1542465,      39677]
+NotebookOutlinePosition[   1542817,      39693]
+CellTagsIndexPosition[   1542774,      39690]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -54,17 +54,17 @@ Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
 TemplateBox[List[\\\"\\\\\\\"guide\\\\\\\"\\\", \\\"paclet:X/guide/PackageX\\\
 \"], \\\"HyperlinkPaclet\\\"]], \\\"RowDefault\\\"]\\)\"\>"], "Print",
  CellChangeTimes->{3.77963956193819*^9, 3.779640733886427*^9, 
-  3.779652767315526*^9, 3.779652799856619*^9},
+  3.779652767315526*^9, 3.779652799856619*^9, 3.77972107483569*^9},
  CellLabel->
   "During evaluation of \
-In[1]:=",ExpressionUUID->"7d49fdc6-f96b-4582-8feb-b358afd25604"],
+In[1]:=",ExpressionUUID->"d042288d-cedb-4f34-9877-181e60d9b7a5"],
 
 Cell[BoxData["\<\"helicityvec by J.G. Reyes v1. August 2019\"\>"], "Print",
  CellChangeTimes->{3.77963956193819*^9, 3.779640733886427*^9, 
-  3.779652767315526*^9, 3.779652799867577*^9},
+  3.779652767315526*^9, 3.779652799856619*^9, 3.779721074850623*^9},
  CellLabel->
   "During evaluation of \
-In[1]:=",ExpressionUUID->"77069de4-5d73-4ec9-9214-e56f297bce01"]
+In[1]:=",ExpressionUUID->"4c683fb4-9f6e-4b4b-b355-9709eeace5e8"]
 }, Open  ]]
 }, Open  ]],
 
@@ -554,7 +554,7 @@ Cell[BoxData[{
    3.779638711862108*^9}, {3.779638813641624*^9, 3.7796388284302998`*^9}, {
    3.7796408009027557`*^9, 3.779640811600585*^9}, {3.779640860910718*^9, 
    3.779640863344008*^9}, {3.779645656896225*^9, 3.779645659004375*^9}},
- CellLabel->"In[32]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+ CellLabel->"In[4]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
 
 Cell[BoxData[
  RowBox[{"Kinematics", ":=", 
@@ -590,7 +590,7 @@ Cell[BoxData[
   3.779638122031776*^9}, {3.779639046841374*^9, 3.7796391364973383`*^9}, {
   3.779639187821389*^9, 3.779639212489912*^9}, {3.779639393945671*^9, 
   3.779639465518195*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
+ CellLabel->"In[23]:=",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
 
 Cell[BoxData[
  RowBox[{
@@ -1759,7 +1759,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.7796465710669193`*^9, 3.779646601015297*^9}, {
   3.779646638334919*^9, 3.779646923981855*^9}, {3.779647265643345*^9, 
   3.779647319825858*^9}, {3.7796474311016073`*^9, 3.77964746458298*^9}},
- CellLabel->"In[52]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
+ CellLabel->"In[24]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
 
 Cell[BoxData[
  RowBox[{
@@ -2564,8 +2564,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.779652440025276*^9, 3.77965244069526*^9}, {
   3.779652923832428*^9, 3.7796529263944063`*^9}, {3.779654115212576*^9, 
   3.779654116375017*^9}},
- CellLabel->
-  "In[162]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+ CellLabel->"In[58]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
 
 Cell[CellGroupData[{
 
@@ -2603,8 +2602,7 @@ Cell[BoxData[{
        RowBox[{"Pi", "/", "2"}]}]}], ",", 
      RowBox[{"MH", "\[Rule]", "125."}], ",", 
      RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}]}], "Input",
- CellLabel->
-  "In[128]:=",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
+ CellLabel->"In[76]:=",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
 
 Cell[CellGroupData[{
 
@@ -2617,10 +2615,11 @@ Cell[BoxData[
   SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
   
   Editable->False]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9},
+ CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9, 
+  3.77972112359286*^9},
  CellLabel->
   "During evaluation of \
-In[128]:=",ExpressionUUID->"dbfd68b8-5cd5-4968-be8c-e39273236930"],
+In[76]:=",ExpressionUUID->"d31fd212-0272-422b-93e6-a4a4789b73ed"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2675,10 +2674,11 @@ Cell[BoxData[
       0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
        77.72447262550135, 0.}}], "\n"],
   Editable->False]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947973521*^9},
+ CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9, 
+  3.779721123607074*^9},
  CellLabel->
   "During evaluation of \
-In[128]:=",ExpressionUUID->"42e555d3-2607-4a59-8ce2-f6fe69c4052b"],
+In[76]:=",ExpressionUUID->"1d30a57c-424a-4014-9729-0d4310e29ce4"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2696,16 +2696,18 @@ Cell[BoxData[
 811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894, 
     0``57.522878745280345}],
   Editable->False]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947991212*^9},
+ CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9, 
+  3.779721123622365*^9},
  CellLabel->
   "During evaluation of \
-In[128]:=",ExpressionUUID->"48bab7aa-ff18-481b-9c78-8ed794ad5e10"],
+In[76]:=",ExpressionUUID->"049a5c0d-dc6d-411c-93cd-8568ff4b85dd"],
 
 Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652948001666*^9},
+ CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9, 
+  3.779721123629236*^9},
  CellLabel->
   "During evaluation of \
-In[128]:=",ExpressionUUID->"1b705219-0057-4656-b4cb-277eef1e127d"],
+In[76]:=",ExpressionUUID->"429f2cc2-a482-49fb-8947-e2325b7148dc"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -2733,10 +2735,11 @@ Cell[BoxData[
    RowBox[{
     SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}], 
   "}"}]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.7796529480125*^9},
+ CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9, 
+  3.779721123636463*^9},
  CellLabel->
   "During evaluation of \
-In[128]:=",ExpressionUUID->"d507908a-bf44-45b8-a1c3-c3922f3a997c"]
+In[76]:=",ExpressionUUID->"b31d3e7a-b1f7-4fdd-9179-3871b7f2d20d"]
 }, Open  ]]
 }, Open  ]],
 
@@ -2920,8 +2923,47 @@ Cell[BoxData[{
  CellChangeTimes->{{3.779653476534589*^9, 3.7796535140142593`*^9}, {
   3.779653545142555*^9, 3.779653659309304*^9}, {3.77965456709722*^9, 
   3.779654570430402*^9}},
- CellLabel->
-  "In[189]:=",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
+ CellLabel->"In[79]:=",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"182b1eb4-904f-4035-96f1-7c217edef670"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"++", 
+    RowBox[{"++", " ", 
+     RowBox[{
+      RowBox[{"and", " ", "--"}], "--"}]}]}], " ", "are", " ", "the", " ", 
+   "same"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7797249275231543`*^9, 
+  3.779724938711006*^9}},ExpressionUUID->"d8458a9c-2ac7-4f59-87ec-\
+a96f24be74ef"],
 
 Cell[CellGroupData[{
 
@@ -2949,15 +2991,13 @@ Cell[BoxData[{
   RowBox[{"pppp", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
  CellChangeTimes->{{3.779654744567768*^9, 3.779654773337262*^9}},
- CellLabel->
-  "In[213]:=",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
+ CellLabel->"In[95]:=",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
 
 Cell[BoxData[
  RowBox[{"0.007297654379396659`", "\[VeryThinSpace]", "-", 
   RowBox[{"0.00043159337640263126`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779654776170195*^9},
- CellLabel->
-  "Out[216]=",ExpressionUUID->"ff3feef7-9afc-44bf-8ce2-27d8fa182001"]
+ CellChangeTimes->{3.779654776170195*^9, 3.779721149582095*^9},
+ CellLabel->"Out[98]=",ExpressionUUID->"7153857e-2135-4870-8132-7b49944445ec"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -2988,80 +3028,38168 @@ Cell[BoxData[{
  CellChangeTimes->{{3.779654124016089*^9, 3.779654147770977*^9}, {
   3.779654182820999*^9, 3.779654216013234*^9}, {3.779654582528047*^9, 
   3.779654600872354*^9}},
- CellLabel->
-  "In[205]:=",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
+ CellLabel->"In[99]:=",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
 
 Cell[BoxData[
  RowBox[{"0.007297654379396659`", "\[VeryThinSpace]", "+", 
   RowBox[{"0.00043159337640263126`", " ", "\[ImaginaryI]"}]}]], "Output",
  CellChangeTimes->{{3.779654131947855*^9, 3.779654148338374*^9}, 
-   3.779654217384095*^9, 3.779654603348544*^9},
+   3.779654217384095*^9, 3.779654603348544*^9, 3.7797211497410517`*^9},
  CellLabel->
-  "Out[208]=",ExpressionUUID->"2e0ecb64-8636-4a24-9c17-92b5c70fb01d"]
-}, Open  ]]
-},
-WindowSize->{808, 755},
-WindowMargins->{{4, Automatic}, {Automatic, 4}},
-FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
-2018)",
-StyleDefinitions->"Default.nb"
-]
-(* End of Notebook Content *)
+  "Out[102]=",ExpressionUUID->"fa21e151-cad1-44c3-90a0-10bd2df8f9d8"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.779724944911502*^9, 
+  3.7797249522304087`*^9}},ExpressionUUID->"cd98c05a-fc47-49fe-b336-\
+c8fa35845f46"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"++", 
+    RowBox[{"+", 
+     RowBox[{"-", " ", 
+      RowBox[{"and", " ", "--"}]}]}]}], "-", 
+   RowBox[{
+    RowBox[{"+", " ", "have"}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.779724971511745*^9, 3.779724982025816*^9}, {
+  3.779725352290183*^9, 
+  3.779725359348871*^9}},ExpressionUUID->"af29fd58-c6e0-425f-a465-\
+aeee85ed9b1d"],
 
-(* Internal cache information *)
-(*CellTagsOutline
-CellTagsIndex->{}
-*)
-(*CellTagsIndex
-CellTagsIndex->{}
-*)
-(*NotebookFileOutline
-Notebook[{
-Cell[558, 20, 855, 19, 136, "Input",ExpressionUUID->"07059ed1-da78-45a1-a93e-4a9e51106fb9"],
 Cell[CellGroupData[{
-Cell[1438, 43, 270, 4, 52, "Input",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pppmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"pppm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"pppm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pppmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "pppmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"pppmMdagger", ",", "mat", ",", "pppmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"pppm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797243084704103`*^9, 3.7797243461278763`*^9}, {
+  3.779724403063126*^9, 3.779724424040822*^9}},
+ CellLabel->
+  "In[108]:=",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
+
+Cell[BoxData[
+ RowBox[{"0.00042165973809177315`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.00006064118960097983`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779724434833102*^9},
+ CellLabel->
+  "Out[111]=",ExpressionUUID->"e63ffe1e-5793-4c81-9ae0-2dd4ac1b152a"]
+}, Open  ]],
+
 Cell[CellGroupData[{
-Cell[1733, 51, 511, 8, 46, "Print",ExpressionUUID->"7d49fdc6-f96b-4582-8feb-b358afd25604"],
-Cell[2247, 61, 289, 5, 24, "Print",ExpressionUUID->"77069de4-5d73-4ec9-9214-e56f297bce01"]
-}, Open  ]]
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mmmpM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mmmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mmmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mmmpMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mmmpM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mmmpMdagger", ",", "mat", ",", "mmmpM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mmmp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.77972486798772*^9, 3.779724916647414*^9}},
+ CellLabel->
+  "In[141]:=",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
+
+Cell[BoxData[
+ RowBox[{"0.00042165973809177315`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.000060641189600979845`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.779724914096778*^9, 3.779724917073429*^9}},
+ CellLabel->
+  "Out[144]=",ExpressionUUID->"636377a4-6b9c-473c-a285-4c155c5d1bec"]
 }, Open  ]],
-Cell[2563, 70, 1414, 33, 94, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
-Cell[3980, 105, 4311, 127, 703, "Input",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
-Cell[8294, 234, 11820, 322, 1102, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
-Cell[20117, 558, 1425, 34, 94, "Input",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
-Cell[21545, 594, 10894, 296, 1165, "Input",ExpressionUUID->"eca74a07-e704-4ac5-ae22-c5d897e92d8a"],
-Cell[32442, 892, 147, 3, 52, "Input",ExpressionUUID->"b47c7785-979d-4d00-9cb1-1123c93aa995"],
-Cell[32592, 897, 1076, 24, 73, "Input",ExpressionUUID->"6990fcad-4b93-4084-85c7-9f8a2a9ec1bd"],
-Cell[33671, 923, 3589, 92, 325, "Input",ExpressionUUID->"33addaa0-998d-4b37-a063-b4d9ca2014a6"],
-Cell[37263, 1017, 2844, 82, 304, "Input",ExpressionUUID->"f24ba508-f9b4-4d9c-b09b-ce0d1cd30b9a"],
-Cell[40110, 1101, 2773, 82, 304, "Input",ExpressionUUID->"6ef61c5a-8d5b-422e-87a8-52cd3286d020"],
-Cell[42886, 1185, 2851, 82, 304, "Input",ExpressionUUID->"b4ab43af-b2d2-48fd-883b-1e6ef0ca95a1"],
-Cell[45740, 1269, 2844, 82, 304, "Input",ExpressionUUID->"189115e0-bd18-4603-80d6-269421a6b68b"],
-Cell[48587, 1353, 2770, 82, 304, "Input",ExpressionUUID->"4a1f79ce-2fd4-45ad-9be7-a3c1df89c461"],
-Cell[51360, 1437, 2792, 81, 304, "Input",ExpressionUUID->"4e9cbc8a-82d1-4556-a4da-a08017bba245"],
-Cell[54155, 1520, 2991, 83, 283, "Input",ExpressionUUID->"de4f5de1-0e56-4379-9af0-6f19a3710802"],
-Cell[57149, 1605, 149, 3, 52, "Input",ExpressionUUID->"618a27be-8e1d-45e5-88c5-448e54104463"],
-Cell[57301, 1610, 5566, 151, 808, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
-Cell[62870, 1763, 31167, 804, 2173, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"dd8436d0-935b-4efe-969f-f9d4d49ececb"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"++", 
+    RowBox[{"-", 
+     RowBox[{"+", " ", 
+      RowBox[{"and", " ", "--"}]}]}]}], "+", 
+   RowBox[{
+    RowBox[{"-", " ", "have"}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7797251650791273`*^9, 3.7797251753145037`*^9}, 
+   3.779725365717907*^9},ExpressionUUID->"213b6240-7175-4d90-8baa-\
+6afebe952928"],
+
 Cell[CellGroupData[{
-Cell[94062, 2571, 1221, 35, 94, "Input",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ppmpM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"ppmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"ppmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ppmpMdagger", "=", 
+   RowBox[{"Conjugate", "[", "ppmpM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"ppmpMdagger", ",", "mat", ",", "ppmpM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"ppmp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797244565636663`*^9, 3.779724542930705*^9}},
+ CellLabel->
+  "In[115]:=",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
+
+Cell[BoxData[
+ RowBox[{"0.0002037335155536214`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.00007686553130709672`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.779724468472705*^9, 3.779724495678466*^9}, 
+   3.779724543632782*^9},
+ CellLabel->
+  "Out[118]=",ExpressionUUID->"b1b6a6eb-a733-4c32-8851-ef0e8ad9bd4b"]
+}, Open  ]],
+
 Cell[CellGroupData[{
-Cell[95308, 2610, 490, 12, 44, "Print",ExpressionUUID->"dbfd68b8-5cd5-4968-be8c-e39273236930"],
-Cell[95801, 2624, 2261, 56, 145, "Print",ExpressionUUID->"42e555d3-2607-4a59-8ce2-f6fe69c4052b"],
-Cell[98065, 2682, 838, 19, 47, "Print",ExpressionUUID->"48bab7aa-ff18-481b-9c78-8ed794ad5e10"],
-Cell[98906, 2703, 239, 4, 24, "Print",ExpressionUUID->"1b705219-0057-4656-b4cb-277eef1e127d"],
-Cell[99148, 2709, 1245, 29, 69, "Print",ExpressionUUID->"d507908a-bf44-45b8-a1c3-c3922f3a997c"]
-}, Open  ]]
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mmpmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mmpm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mmpm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mmpmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mmpmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mmpmMdagger", ",", "mat", ",", "mmpmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mmpm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779725007712517*^9, 3.77972501347164*^9}, {
+  3.779725112500407*^9, 3.779725149090494*^9}},
+ CellLabel->
+  "In[145]:=",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
+
+Cell[BoxData[
+ RowBox[{"0.00020373351555362122`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.00007686553130709668`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779725150885038*^9},
+ CellLabel->
+  "Out[148]=",ExpressionUUID->"268e7da7-55d4-4f3c-a209-469b03d9d838"]
 }, Open  ]],
-Cell[100420, 2742, 5657, 181, 346, "Input",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.779725185699222*^9, 
+  3.7797251902802362`*^9}},ExpressionUUID->"6d590f68-025d-4e76-96a4-\
+f8d708004a9b"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"+", 
+    RowBox[{"-", 
+     RowBox[{"++", " ", "and"}]}]}], " ", "-", 
+   RowBox[{
+    RowBox[{"+", 
+     RowBox[{"--", " ", "have"}]}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.779725292906294*^9, 
+  3.7797253377149343`*^9}},ExpressionUUID->"69088eff-d3a7-4052-b105-\
+6ce5c9626a01"],
+
 Cell[CellGroupData[{
-Cell[106102, 2927, 892, 25, 94, "Input",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
-Cell[106997, 2954, 272, 5, 34, "Output",ExpressionUUID->"ff3feef7-9afc-44bf-8ce2-27d8fa182001"]
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pmppM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"pmpp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"pmpp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmppMdagger", "=", 
+   RowBox[{"Conjugate", "[", "pmppM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"pmppMdagger", ",", "mat", ",", "pmppM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"pmpp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779724652069326*^9, 3.7797246875693293`*^9}},
+ CellLabel->
+  "In[122]:=",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.000012042805278294751`"}], "+", 
+  RowBox[{"0.000014200517209027081`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779724688064608*^9},
+ CellLabel->
+  "Out[125]=",ExpressionUUID->"38e1e5ed-f288-4455-82e1-b64a7502490f"]
 }, Open  ]],
+
 Cell[CellGroupData[{
-Cell[107306, 2964, 990, 27, 94, "Input",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
-Cell[108299, 2993, 344, 6, 34, "Output",ExpressionUUID->"2e0ecb64-8636-4a24-9c17-92b5c70fb01d"]
-}, Open  ]]
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mpmmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mpmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mpmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mpmmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mpmmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mpmmMdagger", ",", "mat", ",", "mpmmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mpmm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797252542071657`*^9, 3.779725288102796*^9}},
+ CellLabel->
+  "In[149]:=",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.00001204280527829491`"}], "-", 
+  RowBox[{"0.000014200517209027013`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.7797252894874697`*^9},
+ CellLabel->
+  "Out[152]=",ExpressionUUID->"057a7d59-5496-4172-91cb-2930aa9d2542"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"d5ad72cf-c464-4f2e-8108-84dbd216cab1"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"+", 
+    RowBox[{"--", 
+     RowBox[{"-", " ", "and"}]}]}], " ", "-", 
+   RowBox[{
+    RowBox[{"++", 
+     RowBox[{"+", " ", "have"}]}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}]}], " ", "*)"}]], "Input",ExpressionUUID->"752a3f8d-f3d4-4411-\
+987d-dc217a127fe7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mpppM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mppp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mppp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mpppMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mpppM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mpppMdagger", ",", "mat", ",", "mpppM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mppp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797247693492193`*^9, 3.779724799696382*^9}},
+ CellLabel->
+  "In[129]:=",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
+
+Cell[BoxData[
+ RowBox[{"0.00005826331494616735`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.000014200517209025424`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779724804322815*^9},
+ CellLabel->
+  "Out[132]=",ExpressionUUID->"91b093c4-5fe2-41dc-88b9-32a893b1665a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pmmmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"pmmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"pmmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmmmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "pmmmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"pmmmMdagger", ",", "mat", ",", "pmmmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"pmmm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779725397601791*^9, 3.779725439770664*^9}},
+ CellLabel->
+  "In[153]:=",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
+
+Cell[BoxData[
+ RowBox[{"0.00005826331494616749`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.000014200517209025357`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779725442520694*^9},
+ CellLabel->
+  "Out[156]=",ExpressionUUID->"bb1dd083-6c11-485a-bf24-0bd0f5cd3b0a"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"3ae73bc5-4aeb-470c-90ab-96783e700a1c"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"+", 
+    RowBox[{"-", 
+     RowBox[{"+", 
+      RowBox[{"-", " ", "and"}]}]}]}], " ", "-", 
+   RowBox[{
+    RowBox[{"+", 
+     RowBox[{"-", 
+      RowBox[{"+", " ", "have"}]}]}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7797256427042913`*^9, 
+  3.7797256458707247`*^9}},ExpressionUUID->"85ad533d-c3c4-4762-ac62-\
+6ee29af8a7df"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pmpmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"pmpm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"pmpm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmpmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "pmpmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"pmpmMdagger", ",", "mat", ",", "pmpmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"pmpm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797247693492193`*^9, 3.779724799696382*^9}, {
+  3.77972554425168*^9, 3.779725574906654*^9}},
+ CellLabel->
+  "In[157]:=",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
+
+Cell[BoxData[
+ RowBox[{"0.00025290658391281524`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.000010974330714335605`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779724804322815*^9, 3.779725577696227*^9},
+ CellLabel->
+  "Out[160]=",ExpressionUUID->"e8e64d9b-e345-494c-bc74-3c3a61eb0f18"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mpmpM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mpmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mpmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mpmpMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mpmpM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mpmpMdagger", ",", "mat", ",", "mpmpM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mpmp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779725397601791*^9, 3.779725439770664*^9}, {
+  3.7797256054073067`*^9, 3.779725634556109*^9}},
+ CellLabel->
+  "In[161]:=",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
+
+Cell[BoxData[
+ RowBox[{"0.0002529065839128149`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.000010974330714335129`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779725442520694*^9, 3.779725637820459*^9},
+ CellLabel->
+  "Out[164]=",ExpressionUUID->"85a70a3b-2762-4f12-abc5-6b71183df596"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"f729b907-0fbc-4b1f-ab80-ee926d31037e"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"+", 
+    RowBox[{"--", 
+     RowBox[{"+", " ", "and"}]}]}], " ", "-", 
+   RowBox[{
+    RowBox[{"++", 
+     RowBox[{"-", " ", "have"}]}], " ", "opposing", " ", "imaginary", " ", 
+    "parts"}], " ", "\[IndentingNewLine]", "  ", "+", 
+   RowBox[{"--", 
+    RowBox[{"+", " ", "and"}]}], " ", "-", 
+   RowBox[{
+    RowBox[{"+", 
+     RowBox[{"-", 
+      RowBox[{"+", " ", "are"}]}]}], " ", "the", " ", "same"}], 
+   "\[IndentingNewLine]", "  ", "-", 
+   RowBox[{"++", 
+    RowBox[{"-", " ", "and"}]}], " ", "+", 
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{"+", 
+      RowBox[{"-", " ", "are"}]}]}], " ", "the", " ", "same"}]}], " ", 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.7797256427042913`*^9, 3.779725670983028*^9}, {
+  3.779725784277959*^9, 
+  3.779725876371614*^9}},ExpressionUUID->"0fd68ed1-f787-4031-b35d-\
+b4a0c9a67c5a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pmmpM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"pmmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"pmmp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmmpMdagger", "=", 
+   RowBox[{"Conjugate", "[", "pmmpM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"pmmpMdagger", ",", "mat", ",", "pmmpM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"pmmp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797247693492193`*^9, 3.779724799696382*^9}, {
+  3.77972554425168*^9, 3.779725574906654*^9}, {3.779725685449127*^9, 
+  3.779725709489132*^9}},
+ CellLabel->
+  "In[165]:=",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
+
+Cell[BoxData[
+ RowBox[{"0.0002540485466055067`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.000010974330714338293`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779724804322815*^9, 3.779725577696227*^9, 
+  3.7797257537171907`*^9},
+ CellLabel->
+  "Out[168]=",ExpressionUUID->"5f882c80-ac56-43d3-8786-9a038b3bed25"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mppmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mppm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mppm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mppmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "mppmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mppmMdagger", ",", "mat", ",", "mppmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mppm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779725397601791*^9, 3.779725439770664*^9}, {
+  3.7797256054073067`*^9, 3.779725634556109*^9}, {3.779725712865665*^9, 
+  3.7797257519839363`*^9}},
+ CellLabel->
+  "In[169]:=",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
+
+Cell[BoxData[
+ RowBox[{"0.0002540485466055067`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.00001097433071433815`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779725442520694*^9, 3.779725637820459*^9, 
+  3.779725755335648*^9},
+ CellLabel->
+  "Out[172]=",ExpressionUUID->"e4bf3e4e-8c5f-4f96-bbe7-e426b981bfaf"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"--", 
+   RowBox[{"--", 
+    RowBox[{"--", 
+     RowBox[{"--", 
+      RowBox[{"--", 
+       RowBox[{"--", 
+        RowBox[{"--", 
+         RowBox[{"--", 
+          RowBox[{"--", 
+           RowBox[{"--", 
+            RowBox[{"--", 
+             RowBox[{"--", 
+              RowBox[{"--", 
+               RowBox[{"--", 
+                RowBox[{"--", 
+                 RowBox[{"--", 
+                  RowBox[{"--", 
+                   RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{"--", 
+                    RowBox[{
+                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
+  "*)"}]], "Input",ExpressionUUID->"5a313745-60dc-42eb-b195-fbaa567834c9"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{
+   RowBox[{"++", 
+    RowBox[{"--", " ", 
+     RowBox[{
+      RowBox[{"and", " ", "--"}], "++"}]}]}], " ", "have", " ", "opposing", 
+   " ", "imaginary", " ", "parts"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.7797256427042913`*^9, 3.779725670983028*^9}, {
+  3.779725784277959*^9, 3.779725876371614*^9}, {3.779726074650688*^9, 
+  3.779726095350274*^9}},ExpressionUUID->"bd078427-186c-41cd-af66-\
+decc5f5b36af"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ppmmM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"ppmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"ppmm", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ppmmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "ppmmM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"ppmmMdagger", ",", "mat", ",", "ppmmM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"ppmm", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7797247693492193`*^9, 3.779724799696382*^9}, {
+  3.77972554425168*^9, 3.779725574906654*^9}, {3.779725685449127*^9, 
+  3.779725709489132*^9}, {3.779725941577986*^9, 3.779725970842588*^9}, {
+  3.7797260361342773`*^9, 3.7797260470791616`*^9}},
+ CellLabel->
+  "In[185]:=",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
+
+Cell[BoxData[
+ RowBox[{"0.00008036203014523001`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.00032010406059332125`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{
+  3.779724804322815*^9, 3.779725577696227*^9, 3.7797257537171907`*^9, {
+   3.779726023229521*^9, 3.779726047809375*^9}},
+ CellLabel->
+  "Out[188]=",ExpressionUUID->"9f3ab495-4dcf-44f3-a3d0-0ad377d7580e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"mmppM", "=", 
+   RowBox[{"List", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"mmpp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
+     RowBox[{"mmpp", "[", 
+      RowBox[{"[", 
+       RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mppmMdagger", "=", 
+   RowBox[{"Conjugate", "[", "vM", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"MdagM1", "=", " ", 
+   RowBox[{"Dot", "[", 
+    RowBox[{"mmppMdagger", ",", "mat", ",", "mmppM"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"MdagM1", "+", 
+  RowBox[{"mmpp", "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.779725397601791*^9, 3.779725439770664*^9}, {
+  3.7797256054073067`*^9, 3.779725634556109*^9}, {3.779725712865665*^9, 
+  3.7797257519839363`*^9}, {3.77972597397941*^9, 3.779726015737727*^9}},
+ CellLabel->
+  "In[189]:=",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
+
+Cell[BoxData[
+ RowBox[{"0.00008036203014523004`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.00032010406059332114`", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{3.779725442520694*^9, 3.779725637820459*^9, 
+  3.779725755335648*^9, 3.7797260170740843`*^9, 3.7797260512273397`*^9},
+ CellLabel->
+  "Out[192]=",ExpressionUUID->"990afac5-a2e7-4da1-8282-cfe350d3f5c0"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"Only", " ", "7", " ", "independent", " ", "quantities"}], ";", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"++", "++"}], " ", "=", " ", 
+     RowBox[{"Conjugate", "[", 
+      RowBox[{"--", "--"}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"++", 
+      RowBox[{"+", "-"}]}], " ", "=", " ", 
+     RowBox[{"Conjugate", "[", 
+      RowBox[{"--", 
+       RowBox[{"-", "+"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"++", 
+      RowBox[{"-", "+"}]}], " ", "=", " ", 
+     RowBox[{"Conjagate", "[", 
+      RowBox[{"--", 
+       RowBox[{"+", "-"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"+", 
+      RowBox[{"-", "++"}]}], " ", "=", " ", 
+     RowBox[{"Conjugate", "[", 
+      RowBox[{"-", 
+       RowBox[{"+", "--"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"++", "--"}], " ", "=", " ", 
+     RowBox[{"Conjugate", "[", 
+      RowBox[{"--", "++"}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"+", 
+      RowBox[{"--", "-"}]}], " ", "=", " ", 
+     RowBox[{"Conjugate", "[", 
+      RowBox[{"-", 
+       RowBox[{"++", "+"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"+", 
+      RowBox[{"-", 
+       RowBox[{"+", "-"}]}]}], " ", "=", " ", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"++", "-"}]}], " ", "=", " ", 
+      RowBox[{
+       RowBox[{"Conjugate", "[", 
+        RowBox[{"-", 
+         RowBox[{"+", 
+          RowBox[{"-", "+"}]}]}], "]"}], " ", "=", " ", 
+       RowBox[{"Conjugate", "[", 
+        RowBox[{"+", 
+         RowBox[{"--", "+"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
+   "*)"}], "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.779726136965892*^9, 
+  3.77972642463803*^9}},ExpressionUUID->"b274a7fa-02b1-4828-9d03-\
+509e4c4311ea"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.77972645360373*^9, 
+  3.779726469599821*^9}},ExpressionUUID->"f8b20319-4c15-42df-ba5e-\
+26e9e403ba03"],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.779726978864397*^9, 
+  3.7797269844025383`*^9}},ExpressionUUID->"1aac05ed-9474-430e-9fd7-\
+7c19a189fdbb"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"subAll", "[", "ss_", "]"}], ":=", "\[IndentingNewLine]", 
+  RowBox[{"{", "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"output", "=", 
+     RowBox[{
+      RowBox[{"N", "[", 
+       RowBox[{
+        RowBox[{"OutputPS", "[", 
+         RowBox[{"ss", ",", "20.", ",", "0", ",", 
+          RowBox[{"Pi", "/", "3"}], ",", "0", ",", 
+          RowBox[{"3", "*", 
+           RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], 
+       "]"}], "[", 
+      RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{"KinRules", "=", 
+     RowBox[{"f", "[", 
+      RowBox[{"variables", ",", "output"}], "]"}]}], ";", 
+    "\[IndentingNewLine]", 
+    RowBox[{"KinSub", "=", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"S", "\[Rule]", 
+        RowBox[{"ss", "^", "2"}]}], ",", 
+       RowBox[{"kT3", "\[Rule]", "20."}], ",", 
+       RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",", 
+       RowBox[{"\[Phi]3", "\[Rule]", 
+        RowBox[{"Pi", "/", "3"}]}], ",", 
+       RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",", 
+       RowBox[{"\[Phi]4", "\[Rule]", 
+        RowBox[{"3", "*", 
+         RowBox[{"Pi", "/", "2"}]}]}], ",", 
+       RowBox[{"MH", "\[Rule]", "125."}], ",", 
+       RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}], 
+   "\[IndentingNewLine]", "}"}]}]], "Input",
+ CellChangeTimes->{{3.7797264730293083`*^9, 3.7797265403539248`*^9}, {
+  3.779726614411455*^9, 3.7797266772874393`*^9}, {3.779726835306903*^9, 
+  3.779726851534482*^9}, {3.779727289742364*^9, 3.7797272935777617`*^9}},
+ CellLabel->
+  "In[322]:=",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"range", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"size", "=", 
+    RowBox[{"Length", "[", "range", "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ppppList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pppmList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ppmpList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmppList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ppmmList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pmmmList", "=", 
+   RowBox[{"Range", "[", 
+    RowBox[{"150", ",", 
+     RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"pmpmList", "=", 
+    RowBox[{"Range", "[", 
+     RowBox[{"150", ",", 
+      RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"Do", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"subAll", "[", 
+     RowBox[{"range", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
+    RowBox[{"pppp", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"ppppList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "pppp"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"pppm", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pppmList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "pppm"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"ppmp", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"ppmpList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "ppmp"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"pmpp", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pmppList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "pmpp"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"ppmm", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"ppmmList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "ppmm"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"pmmm", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pmmmList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "pmmm"}], ";", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"pmpm", "=", 
+     RowBox[{"Chop", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.", 
+         "FundConst"}], "//", "Simplify"}], ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{"pmpmList", "[", 
+      RowBox[{"[", "n", "]"}], "]"}], "=", "pmpm"}], ";"}], 
+   "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "1", ",", "size"}], "}"}]}], 
+  "]"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.779726989715151*^9, 3.77972709982976*^9}, {
+  3.779727147875164*^9, 3.779727196755348*^9}, {3.779727502231495*^9, 
+  3.7797275027819767`*^9}, {3.779727610867655*^9, 3.779727746167663*^9}, {
+  3.779730897497858*^9, 3.779731129929401*^9}},
+ CellLabel->
+  "In[323]:=",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "22.916666666666668`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 22.916666666666668`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"093ed569-ac30-4fe3-86ea-405c16d9ef4a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"75.`", ",", "0.`", ",", "0.`", ",", "75.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"75.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "75.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"12.154593543157478`", ",", "0.`", ",", 
+            RowBox[{"-", "12.154593543157478`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"11.255517445120772`", ",", 
+            RowBox[{"-", "10.`"}], ",", 
+            RowBox[{"-", "5.1659145325312945`"}], ",", "0.`"}], "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {75., 0., 0., 75.}, $CellContext`p2 -> {75.,
+       0., 0., -75.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {12.154593543157478`, 
+      0., -12.154593543157478`, 0.}, $CellContext`p5 -> {
+      11.255517445120772`, -10., -5.1659145325312945`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731144335422*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d6f4cf28-7d5f-4848-9247-eb61ce583fbc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.2266891068084842755392094518802078917500484225335542713778765434`\
+44.61161325396839*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.46040937697619", ",", "0``57.823908740944326"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.2266891068084842755392094518802078917500484225335542713778765434`44.\
+61161325396839*^-13, 0``58.69897000433602, 0``58.46040937697619, 
+    0``57.823908740944326}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731144348896*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b7f6e23d-f97e-4566-87a6-1415e645a34e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731144357709*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7662925b-ef50-4342-8aba-281bcf17c510"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "12.1545935431574783081`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "22500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "3363.483351758244096333`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "3363.483351758244096333`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "1823.1890314736217462155`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "1823.1890314736217462155`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "19123.344766463734446501`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "150.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "138.2871822204203221015`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    "1.93576566879437061904279954738627207096`10."}], ",", 
+   RowBox[{"kT5", "\[Rule]", "11.2555174451207717141`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "137.3084918606737981999`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731144366498*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"db45e876-9ba1-46d6-bc2b-e4e95cda352c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "24.601973684210524`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 24.601973684210524`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311548585033`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"16dda6c3-6f2f-49ef-826f-5fcf6e8dec2f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"76.`", ",", "0.`", ",", "0.`", ",", "76.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"76.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "76.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"15.184536440860843`", ",", "0.`", ",", 
+            RowBox[{"-", "15.184536440860843`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"10.225574547417349`", ",", 
+            RowBox[{"-", "10.`"}], ",", 
+            RowBox[{"-", "2.1359716348279303`"}], ",", "0.`"}], "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {76., 0., 0., 76.}, $CellContext`p2 -> {76.,
+       0., 0., -76.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {15.184536440860843`, 
+      0., -15.184536440860843`, 0.}, $CellContext`p5 -> {
+      10.225574547417349`, -10., -2.1359716348279303`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731154868538*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e370511-a8d6-42eb-9467-12e5ad916846"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.8214488978639239188936583187361786028250771356742131823000650539`\
+44.77754340767764*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.46040937697618", ",", "0``57.81815641205523"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.8214488978639239188936583187361786028250771356742131823000650539`44.\
+77754340767764*^-13, 0``58.69897000433602, 0``58.46040937697618, 
+    0``57.81815641205523}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311548785057`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8ac30807-ab2c-463e-881e-2bc9882c353c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311548873663`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c0db70c8-e2ab-46d2-a3a0-34936e357fc9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "15.1845364408608425322`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "23104.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "3616.6631297816873509507`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "3616.6631297816873509507`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "2308.0495390108480648905`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "2308.0495390108480648905`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "19995.4253375850745567548`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "152.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "141.4051814382523769221`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    "4.6817101111951704226`10."}], ",", 
+   RowBox[{"kT5", "\[Rule]", "10.225574547417348014`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "135.970220717546288867`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731154897005*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"57b4d524-c4c6-411a-ab82-cbb9eda89251"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "26.26948051948052`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 26.26948051948052}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731165010335*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"68f9dc53-3090-4814-84a8-d1684a20fd4d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"77.`", ",", "0.`", ",", "0.`", ",", "77.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"77.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "77.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"17.409713119203793`", ",", "0.`", ",", 
+            RowBox[{"-", "17.409713119203793`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"10.000397869074435`", ",", 
+            RowBox[{"-", "10.`"}], ",", "0.08920504351502057`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {77., 0., 0., 77.}, $CellContext`p2 -> {77.,
+       0., 0., -77.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {17.409713119203793`, 
+      0., -17.409713119203793`, 0.}, $CellContext`p5 -> {
+      10.000397869074435`, -10., 0.08920504351502057, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731165020075*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"807f9006-0a2d-4bd7-837c-3f2a0675c1fd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.4337855817232022578245619723681868430603296421150821953402460196`\
+44.66793349226715*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.45817838955259", ",", "0``57.81247927916353"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.4337855817232022578245619723681868430603296421150821953402460196`44.\
+66793349226715*^-13, 0``58.69897000433602, 0``58.45817838955259, 
+    0``57.81247927916353}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973116502894*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"df9edb69-8e8f-48e1-9027-e1bed12e701f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731165039344*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c665cc9b-3e80-4241-8314-55f57883ed09"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "17.4097131192037934966`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "23716.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "3869.8429078051306055685`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "3869.8429078051306055685`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "2681.0958203573841984735`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "2681.0958203573841984735`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "20635.8774563250324757692`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "154.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "143.651931613623046596`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "112.101284926969132381`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "10.000397869074435816`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "135.476228022798126747`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731165048402*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c34d6111-35ae-4a7c-9e52-61f9dc97062f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "27.919871794871796`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 27.919871794871796`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731175214842*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fdfe0891-9f15-4113-b34f-881989505d4c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"78.`", ",", "0.`", ",", "0.`", ",", "78.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"78.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "78.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"19.229524398136533`", ",", "0.`", ",", 
+            RowBox[{"-", "19.229524398136533`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"10.18058659014165`", ",", 
+            RowBox[{"-", "10.`"}], ",", "1.90901632244776`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {78., 0., 0., 78.}, $CellContext`p2 -> {78.,
+       0., 0., -78.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {19.229524398136533`, 
+      0., -19.229524398136533`, 0.}, $CellContext`p5 -> {
+      10.18058659014165, -10., 1.90901632244776, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973117522377*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c847b5b8-5dfc-4dbf-b1af-31b08b4c847d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.9041566149641504709691018141740870015164524326713259971959797691`\
+44.78554807178288*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.41500146132578", ",", "0``57.806875401645534"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.9041566149641504709691018141740870015164524326713259971959797691`44.\
+78554807178288*^-13, 0``58.69897000433602, 0``58.41500146132578, 
+    0``57.806875401645534}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311752322693`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"94e0bc35-a014-4d64-b56c-70fad24b45a1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731175240574*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ecaaf9c3-3517-4f0d-98f4-b7dce022a5f9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "19.2295243981365331365`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "24336.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "4123.0226858285738601863`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "4123.0226858285738601863`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "2999.8058061092991692931`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "2999.8058061092991692931`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "21159.656983875749936045`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "156.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "145.463593327938073235`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "5.238299894250195827`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "10.1805865901416491389`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "135.4119211435291230908`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973117524911*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4dbe994b-a725-49d4-80dd-ef8f41dce6a8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "29.55379746835443`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 29.55379746835443}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731185498604*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"51faeea1-8e85-4ac9-967d-d1a820eb460d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"79.`", ",", "0.`", ",", "0.`", ",", "79.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"79.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "79.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"20.816593481559995`", ",", "0.`", ",", 
+            RowBox[{"-", "20.816593481559995`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"10.593517506718236`", ",", 
+            RowBox[{"-", "10.`"}], ",", "3.496085405871222`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {79., 0., 0., 79.}, $CellContext`p2 -> {79.,
+       0., 0., -79.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {20.816593481559995`, 
+      0., -20.816593481559995`, 0.}, $CellContext`p5 -> {
+      10.593517506718236`, -10., 3.496085405871222, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311855070066`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2c3d14ae-32c4-43c0-b1f7-c5665e38593c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.4230713683943549482222899264370408189761344974408721288211334405`\
+44.65353959829695*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.38056034319632", ",", "0``57.80134291304559"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.4230713683943549482222899264370408189761344974408721288211334405`44.\
+65353959829695*^-13, 0``58.69897000433602, 0``58.38056034319632, 
+    0``57.80134291304559}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731185515181*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"42ca4596-cc4a-40be-b20a-3e67b5b98110"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731185523106*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"826e3de0-619d-43d2-b7f0-f75af37aafea"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "20.8165934815599946717`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "24964.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "4376.2024638520171148041`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "4376.2024638520171148041`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "3289.0217700864791581239`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "3289.0217700864791581239`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "21616.4484678769955609222`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "158.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "147.025332741935991719`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "2.86034202231052414941566905404179976813`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "10.5935175067182357123`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "135.5948246056131842932`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731185531123*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0251a2de-c734-4d01-afa9-14f2ac7eda4a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "31.171875`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 31.171875}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731195490836*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ad8dd0cc-f516-4859-b0ce-19003548f4ac"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"80.`", ",", "0.`", ",", "0.`", ",", "80.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"80.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "80.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"22.25771264027417`", ",", "0.`", ",", 
+            RowBox[{"-", "22.25771264027417`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"11.152398348004024`", ",", 
+            RowBox[{"-", "10.`"}], ",", "4.937204564585398`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {80., 0., 0., 80.}, $CellContext`p2 -> {80.,
+       0., 0., -80.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {22.25771264027417, 
+      0., -22.25771264027417, 0.}, $CellContext`p5 -> {
+      11.152398348004024`, -10., 4.937204564585398, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731195500052*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2c31ece3-5d37-45c2-8567-8f4e92a4045a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.7714274992672487346478049286157753563797135757416938853187302581`\
+44.743173403970225*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.35148947321195", ",", "0``57.795880017344075"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.7714274992672487346478049286157753563797135757416938853187302581`44.\
+743173403970225*^-13, 0``58.69897000433602, 0``58.35148947321195, 
+    0``57.795880017344075}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731195508749*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"45090c40-ac8d-4030-bfdc-044e0c8c9e63"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731195517486*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3b9ff638-95c8-45e0-b184-818fce59b1ff"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "22.2577126402741711786`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "25600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "4629.3822418754603694218`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "4629.3822418754603694218`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "3561.2340224438673885743`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "3561.2340224438673885743`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "22031.2325286386594671253`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "160.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "148.4292172338002308955`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "2.02543764779974232378884872699430329175`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "11.1523983480040243698`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "135.9320858190302927817`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731195526544*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8a250bad-55bc-43e9-9cd9-4700eb5490a0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "32.77469135802469`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 32.77469135802469}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312055759974`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"80d6d6ea-538b-45bc-b3fe-bae26d824017"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"81.`", ",", "0.`", ",", "0.`", ",", "81.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"81.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "81.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"23.601290872115495`", ",", "0.`", ",", 
+            RowBox[{"-", "23.601290872115495`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"11.808820116162744`", ",", 
+            RowBox[{"-", "10.`"}], ",", "6.280782796426722`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {81., 0., 0., 81.}, $CellContext`p2 -> {81.,
+       0., 0., -81.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {23.601290872115495`, 
+      0., -23.601290872115495`, 0.}, $CellContext`p5 -> {
+      11.808820116162744`, -10., 6.280782796426722, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312055844593`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bf358510-a1e8-406d-8d93-6bad0a9de60e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.339721753292157730952945243069647718828927486181575857685315369`\
+44.616469598936035*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.326034246988584", ",", "0``57.79048498545736"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.339721753292157730952945243069647718828927486181575857685315369`44.\
+616469598936035*^-13, 0``58.69897000433602, 0``58.326034246988584, 
+    0``57.79048498545736}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731205593094*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2fe42762-ef19-44b9-8a9a-dab737bb9373"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973120560159*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c1df84c2-6469-4926-b003-e0486b5106be"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "23.6012908721154950342`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "26244.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "4882.5620198989036240396`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "4882.5620198989036240396`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "3823.409121282710195544`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "3823.409121282710195544`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "22417.9422823632308032739`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "162.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "149.7262244310035048286`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "1.59215822678810415267982999180202241753`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "11.8088201161627436847`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "136.3714843999087021955`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731205610304*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"98917a23-5fa9-48f8-9b30-004a15fb7d60"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "34.362804878048784`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 34.362804878048784`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731217095743*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e82daa1e-410e-48b8-a24b-0cf7d8c17665"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"82.`", ",", "0.`", ",", "0.`", ",", "82.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"82.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "82.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"24.87645994060277`", ",", "0.`", ",", 
+            RowBox[{"-", "24.87645994060277`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"12.533651047675507`", ",", 
+            RowBox[{"-", "10.`"}], ",", "7.5559518649139985`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {82., 0., 0., 82.}, $CellContext`p2 -> {82.,
+       0., 0., -82.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {24.87645994060277, 
+      0., -24.87645994060277, 0.}, $CellContext`p5 -> {
+      12.533651047675507`, -10., 7.5559518649139985`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731217107205*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1297d86f-f33e-4aa3-929e-4ea3a7fee9bd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.452746836743029394229237617667105559656353514499505587953691496`\
+44.459684183072504*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.303181426454245", ",", "0``57.78515615195231"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.452746836743029394229237617667105559656353514499505587953691496`44.\
+459684183072504*^-14, 0``58.69897000433602, 0``58.303181426454245, 
+    0``57.78515615195231}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312171177063`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0133d6d6-3a28-4c42-be89-918fc4b000e8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731217127438*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"31d9d331-9e17-439f-924b-fd863f0540fb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "24.8764599406027713258`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "26896.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "5135.7417979223468786574`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "5135.7417979223468786574`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "4079.7394302588544974242`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "4079.7394302588544974242`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "22784.9624563624051217117`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "164.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "150.9468862095618225532`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "1.3234599927025633175475664520763087319`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "12.5336510476755068379`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "136.8814126880719503014`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731217135138*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"479bcc9d-1bba-4fcf-a77b-5fa35d590923"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "35.93674698795181`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 35.93674698795181}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731227374648*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2f2c5849-eb5b-4999-830b-fe1dbe2282d9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"83.`", ",", "0.`", ",", "0.`", ",", "83.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"83.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "83.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"26.10180121099402`", ",", "0.`", ",", 
+            RowBox[{"-", "26.10180121099402`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"13.30830977728423`", ",", 
+            RowBox[{"-", "10.`"}], ",", "8.781293135305246`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {83., 0., 0., 83.}, $CellContext`p2 -> {83.,
+       0., 0., -83.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {26.10180121099402, 
+      0., -26.10180121099402, 0.}, $CellContext`p5 -> {
+      13.30830977728423, -10., 8.781293135305246, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312273821087`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d34aca8d-f0fa-49c4-81e1-bb8653f78941"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.2387128176894197008270421727429303337718974100038572144601079386`\
+44.571832547813784*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.28229952653779", ",", "0``57.77989191195994"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.2387128176894197008270421727429303337718974100038572144601079386`44.\
+571832547813784*^-13, 0``58.69897000433602, 0``58.28229952653779, 
+    0``57.77989191195994}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731227388496*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"656179f5-f4d8-455f-8a56-56ed6142f1a4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312273951073`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3dfb1d84-bb71-48e3-b184-8966905dd67c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "26.1018012109940187315`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "27556.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "5388.9215759457901332752`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "5388.9215759457901332752`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "4332.8990010250071094333`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "4332.8990010250071094333`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "23137.6411539415977824517`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "166.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "152.1106214369713163932`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "1.13878444164390041585276524803060489756`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "13.3083097772842300883`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "137.4416312401375390573`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312274014797`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e76c108b-7b5a-453d-8b6b-30642b7f9773"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "37.49702380952381`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 37.49702380952381}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312377762957`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af84e8cc-8b55-498c-aa41-8a5bc29e6a58"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"84.`", ",", "0.`", ",", "0.`", ",", "84.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"84.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "84.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"27.28972529834432`", ",", "0.`", ",", 
+            RowBox[{"-", "27.28972529834432`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"14.120385689933967`", ",", 
+            RowBox[{"-", "10.`"}], ",", "9.969217222655546`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {84., 0., 0., 84.}, $CellContext`p2 -> {84.,
+       0., 0., -84.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {27.28972529834432, 
+      0., -27.28972529834432, 0.}, $CellContext`p5 -> {
+      14.120385689933967`, -10., 9.969217222655546, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731237782785*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"36997acc-54d0-4521-b7cd-2b0b1fa138da"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.678328129813397586292368023289487711698940045015409748590795957`\
+44.412096789499586*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.26297084030458", ",", "0``57.77469071827414"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.678328129813397586292368023289487711698940045015409748590795957`44.\
+412096789499586*^-14, 0``58.69897000433602, 0``58.26297084030458, 
+    0``57.77469071827414}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731237788657*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"21f818d8-bc2a-4c78-bebb-c9f418b3ea2f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731237794404*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"06ef9b87-44d9-4f7c-a403-f6a9354c1656"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "27.2897252983443188157`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "28224.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "5642.1013539692333878929`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "5642.1013539692333878929`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "4584.6738501218455610342`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "4584.6738501218455610342`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "23479.5504081821603486811`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "168.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "153.2303834367784917626`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "1.00308778278744881945042706992749981848`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "14.1203856899339670921`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "138.0385898933927985065`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731237800466*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"39b362e0-da68-4018-8881-554e2aad7808"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "39.044117647058826`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 39.044117647058826`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312480178957`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6cfa24e6-0f6b-401c-90f3-c83e182a8d38"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"85.`", ",", "0.`", ",", "0.`", ",", "85.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"85.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "85.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"28.448837281810913`", ",", "0.`", ",", 
+            RowBox[{"-", "28.448837281810913`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"14.961273706467342`", ",", 
+            RowBox[{"-", "10.`"}], ",", "11.12832920612214`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {85., 0., 0., 85.}, $CellContext`p2 -> {85.,
+       0., 0., -85.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {28.448837281810913`, 
+      0., -28.448837281810913`, 0.}, $CellContext`p5 -> {
+      14.961273706467342`, -10., 11.12832920612214, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731248025177*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2471a3c4-6122-48a6-8927-112fa8d5bb04"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.1753442531991786513704594716433832746963922103487153197004648784`\
+44.538686171154964*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.24490548307462", ",", "0``57.76955107862173"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.1753442531991786513704594716433832746963922103487153197004648784`44.\
+538686171154964*^-13, 0``58.69897000433602, 0``58.24490548307462, 
+    0``57.76955107862173}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731248031851*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4aa3f06b-ec1a-446d-a818-33a94e8cbb9b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731248037979*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5fdea64e-5002-4988-9f3c-7fb3f009514b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "28.4488372818109134244`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "28900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "5895.2811319926766425107`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "5895.2811319926766425107`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "4836.3023379078552821397`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "4836.3023379078552821397`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "23813.1669398010673662303`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "170.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "154.3151546018765694391`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.89860749217399128418790273452805548964`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "14.9612737064673417323`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "138.6628837295123332654`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731248044189*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f2df0408-1ced-4937-b4cc-8b4b4bbda447"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "40.57848837209302`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 40.57848837209302}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731258230739*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb166f33-da59-4c29-a788-61cae5f7411d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"86.`", ",", "0.`", ",", "0.`", ",", "86.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"86.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "86.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"29.585291489165616`", ",", "0.`", ",", 
+            RowBox[{"-", "29.585291489165616`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"15.824819499112673`", ",", 
+            RowBox[{"-", "10.`"}], ",", "12.264783413476843`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {86., 0., 0., 86.}, $CellContext`p2 -> {86.,
+       0., 0., -86.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {29.585291489165616`, 
+      0., -29.585291489165616`, 0.}, $CellContext`p5 -> {
+      15.824819499112673`, -10., 12.264783413476843`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731258237061*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e5bf0324-1989-49bb-9dbd-463dcf99ea6f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.289624693321230774066426522359092510984606437287001157918463494`\
+44.38197642605965*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.227894151814326", ",", "0``57.76447155309245"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.289624693321230774066426522359092510984606437287001157918463494`44.\
+38197642605965*^-14, 0``58.69897000433602, 0``58.227894151814326, 
+    0``57.76447155309245}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731258243198*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2f52fc6a-bce3-41fc-9ff0-b5b48ca345c0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731258248962*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6f295155-dc45-49c7-9828-db63256abb14"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "29.5852914891656162411`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "29584.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "6148.4609100161198971285`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "6148.4609100161198971285`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "5088.6701361364859934611`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "5088.6701361364859934611`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "24140.2620923052144048154`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "172.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "155.371368315739610097`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.81534256764874918013365919395264678105`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "15.8248194991126735538`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "139.3077877497414155308`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731258254944*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6e3944be-f419-4597-bf56-c31c7aa51d51"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "42.10057471264368`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 42.10057471264368}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312685804157`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a714019d-e8bc-4e54-b3cd-b9dbc546ee8d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"87.`", ",", "0.`", ",", "0.`", ",", "87.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"87.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "87.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"30.703605981250387`", ",", "0.`", ",", 
+            RowBox[{"-", "30.703605981250387`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"16.706505007027882`", ",", 
+            RowBox[{"-", "10.`"}], ",", "13.383097905561614`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {87., 0., 0., 87.}, $CellContext`p2 -> {87.,
+       0., 0., -87.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {30.703605981250387`, 
+      0., -30.703605981250387`, 0.}, $CellContext`p5 -> {
+      16.706505007027882`, -10., 13.383097905561614`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312685870543`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f342d9dc-b61f-4af0-b074-d98fbae82fe6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.042406612999306368884793900926078884398799877815631910888100997`\
+44.47645791391911*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.21178062020109", ",", "0``57.759450751717395"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.042406612999306368884793900926078884398799877815631910888100997`44.\
+47645791391911*^-13, 0``58.69897000433602, 0``58.21178062020109, 
+    0``57.759450751717395}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731268593658*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"423ebca4-4488-4e1c-93f4-f449939ccb34"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731268599617*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e67059c-3988-4db3-9603-309d73c1d4e9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "30.7036059812503872024`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "30276.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "6401.6406880395631517462`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "6401.6406880395631517462`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "5342.427440737567373219`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "5342.427440737567373219`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "24462.1362575542645329248`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "174.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "156.4037603689702357437`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.74721115175017137085015989685347314165`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "16.7065050070278812481`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "139.9683718506607312566`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312686062403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1d9a413c-777f-4c4d-a2f2-a114396abc11"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "43.61079545454545`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 43.61079545454545}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312787156076`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2371c68f-2cc0-413b-95f3-5689a1d31708"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"88.`", ",", "0.`", ",", "0.`", ",", "88.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"88.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "88.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"31.807172457610957`", ",", "0.`", ",", 
+            RowBox[{"-", "31.807172457610957`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"17.60293853066734`", ",", 
+            RowBox[{"-", "10.`"}], ",", "14.486664381922184`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {88., 0., 0., 88.}, $CellContext`p2 -> {88.,
+       0., 0., -88.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {31.807172457610957`, 
+      0., -31.807172457610957`, 0.}, $CellContext`p5 -> {
+      17.60293853066734, -10., 14.486664381922184`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731278722105*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ff68dc83-e07d-4680-99f2-7e4d39aebe53"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "7.61436093219633578304428371099586214326214435538718981757740354`\
+44.33509079570182*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.196444940718656", ",", "0``57.75448733218584"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-7.61436093219633578304428371099586214326214435538718981757740354`44.\
+33509079570182*^-14, 0``58.69897000433602, 0``58.196444940718656, 
+    0``57.75448733218584}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731278728095*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1d4cdfea-36b8-4fe5-a13c-3a8079962d11"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312787341423`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5ba847b3-9965-4a3a-90ed-6c9179b907d8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "31.807172457610956684`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "30976.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "6654.820466063006406364`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "6654.820466063006406364`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "5598.0623525395283763828`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "5598.0623525395283763828`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "24779.7656372050722461962`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "176.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "157.4159002045380174568`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.69029003063527421356677493312729489516`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "17.6029385306673398635`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "140.640944589123551892`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731278739987*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17d8a6bc-fdd2-4a8f-9fdb-faaf86676448"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "45.109550561797754`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 45.109550561797754`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731289170372*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"99f7907b-3fac-4a34-936e-407cc4b1c869"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"89.`", ",", "0.`", ",", "0.`", ",", "89.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"89.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "89.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"32.89858666846977`", ",", "0.`", ",", 
+            RowBox[{"-", "32.89858666846977`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"18.511524319808498`", ",", 
+            RowBox[{"-", "10.`"}], ",", "15.578078592780995`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {89., 0., 0., 89.}, $CellContext`p2 -> {89.,
+       0., 0., -89.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {32.89858666846977, 
+      0., -32.89858666846977, 0.}, $CellContext`p5 -> {
+      18.511524319808498`, -10., 15.578078592780995`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731289180216*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f5aca828-a9ab-4793-8f36-036854bc3eef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.0522611378117553428187447717387576931503493384718095276192670097`\
+44.47067353332491*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``58.18179276338512", ",", "0``57.74957999769111"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.0522611378117553428187447717387576931503493384718095276192670097`44.\
+47067353332491*^-13, 0``58.69897000433602, 0``58.18179276338512, 
+    0``57.74957999769111}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973128918937*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f94f4db7-390a-40a9-8870-ea13b679a2e8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731289198681*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6c5454c8-7673-4782-8585-4cf1d9b5b8b5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "32.8985866684697683127`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "31684.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "6908.0002440864496609818`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "6908.0002440864496609818`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "5855.9484269876187596537`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "5855.9484269876187596537`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "25093.8973421481407370626`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "178.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "158.4105341893276387201`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.64192768963395004046588665863962038085`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "18.5115243198084991523`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "141.322691546774369888`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312892091513`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"43cd95ba-70fc-4443-9499-f730d5fd3440"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "46.59722222222222`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 46.59722222222222}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312994738607`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a6ebee72-1d68-44ee-8113-8c1b44dad8d5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"90.`", ",", "0.`", ",", "0.`", ",", "90.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"90.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "90.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"33.97986896282288`", ",", "0.`", ",", 
+            RowBox[{"-", "33.97986896282288`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"19.43024202545541`", ",", 
+            RowBox[{"-", "10.`"}], ",", "16.659360887134103`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {90., 0., 0., 90.}, $CellContext`p2 -> {90.,
+       0., 0., -90.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {33.97986896282288, 
+      0., -33.97986896282288, 0.}, $CellContext`p5 -> {
+      19.43024202545541, -10., 16.659360887134103`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312994812183`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c8d39b8a-bf2d-4a4e-b94d-e0523b2a8713"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.41199600662008643198135252456931744526761970691749432731149317`\
+44.36859655707684*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.167748304577344", ",", "0``57.744727494896686"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.41199600662008643198135252456931744526761970691749432731149317`44.\
+36859655707684*^-14, 0``58.69897000433602, 0``58.167748304577344, 
+    0``57.744727494896686}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797312994874268`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a7d6f063-f4e1-4612-a93e-939b41b027aa"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731299493843*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bd6101f4-472a-4cd4-90c4-29aaa7d1ceae"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "33.9798689628228771653`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "32400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "7161.1800221098929155996`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "7161.1800221098929155996`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "6116.3764133081178897555`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "6116.3764133081178897555`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "25405.1128708360248796525`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "180.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "159.3898142003936990588`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.60026312340246634432719299867776315759`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "19.4302420254554114058`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "142.0114332488188771117`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731299499661*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8fd74201-ac2d-46a0-93c8-50cb571b9a23"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "48.074175824175825`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 48.074175824175825`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731309673956*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7b5faac-cc96-4fe0-a516-de44e525618b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"91.`", ",", "0.`", ",", "0.`", ",", "91.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"91.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "91.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"35.052615353607784`", ",", "0.`", ",", 
+            RowBox[{"-", "35.052615353607784`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"20.3574956346705`", ",", 
+            RowBox[{"-", "10.`"}], ",", "17.73210727791901`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {91., 0., 0., 91.}, $CellContext`p2 -> {91.,
+       0., 0., -91.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {35.052615353607784`, 
+      0., -35.052615353607784`, 0.}, $CellContext`p5 -> {
+      20.3574956346705, -10., 17.73210727791901, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731309680677*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"55b68698-52b1-4ea3-a38b-314cf11b4aa4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.077310999882215792168359392517642707912223220876080857640773226`\
+44.396855831516405*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.15424957714702", ",", "0``57.73992861201492"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.077310999882215792168359392517642707912223220876080857640773226`44.\
+396855831516405*^-14, 0``58.69897000433602, 0``58.15424957714702, 
+    0``57.73992861201492}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731309686983*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f148cbd7-2f37-43d8-8d60-9c79dd413978"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973130969287*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"969940fc-7059-4b7a-8ad8-16eb693f5fb7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "35.0526153536077842432`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "33124.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "7414.3598001333361702173`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "7414.3598001333361702173`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "6379.5759943566167322615`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "6379.5759943566167322615`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "25713.8715889799095007841`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "182.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "160.3554538797477555279`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.563948764987032663770922231525380487`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "20.3574956346704976748`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "142.7054589400375386275`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731309698838*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c93d81e9-79a0-479a-b58d-a6a6b804e79e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "49.54076086956522`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 49.54076086956522}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797313199764833`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a3b7235d-7e4b-48ec-ac98-e396914e4b65"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"92.`", ",", "0.`", ",", "0.`", ",", "92.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"92.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "92.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"36.11810336461344`", ",", "0.`", ",", 
+            RowBox[{"-", "36.11810336461344`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"21.292007623664865`", ",", 
+            RowBox[{"-", "10.`"}], ",", "18.797595288924665`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {92., 0., 0., 92.}, $CellContext`p2 -> {92.,
+       0., 0., -92.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {36.11810336461344, 
+      0., -36.11810336461344, 0.}, $CellContext`p5 -> {
+      21.292007623664865`, -10., 18.797595288924665`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797313199832087`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d76ce001-5689-4fb2-97b3-80eccedaf2e4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.612390308476521468575712509880717999934728893880811221483890746`\
+44.25451066201154*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.14124506778617", ",", "0``57.73518217699047"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.612390308476521468575712509880717999934728893880811221483890746`44.\
+25451066201154*^-14, 0``58.69897000433602, 0``58.14124506778617, 
+    0``57.73518217699047}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731319989502*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"88f7fef6-cf49-45a0-a61b-1b88a96d8ca0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731319995101*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a3b5a5bf-faac-409e-9dbd-ad68ab28a765"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "36.1181033646134395099`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "33856.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "7667.5395781567794248351`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "7667.5395781567794248351`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "6645.7310190888728698155`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "6645.7310190888728698155`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "26020.5411944913074051226`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "184.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "161.3088379305092737705`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.53198293964185346798917038049159613515`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "21.2920076236648670574`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "143.4034098681835204823`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731320001519*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f68949d5-6b39-43ef-ae0a-2271c1c4cefe"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "50.99731182795699`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 50.99731182795699}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731330222568*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e114a7d-e685-40fa-aaf1-65da1f61aab0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"93.`", ",", "0.`", ",", "0.`", ",", "93.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"93.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "93.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"37.17736769979664`", ",", "0.`", ",", 
+            RowBox[{"-", "37.17736769979664`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"22.232743288481636`", ",", 
+            RowBox[{"-", "10.`"}], ",", "19.856859624107866`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {93., 0., 0., 93.}, $CellContext`p2 -> {93.,
+       0., 0., -93.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {37.17736769979664, 
+      0., -37.17736769979664, 0.}, $CellContext`p5 -> {
+      22.232743288481636`, -10., 19.856859624107866`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731330229102*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3494c501-099e-400d-95f1-9102e0dcea00"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.595217875277366526181006496203199118979906854233090125552241837`\
+44.41151190067541*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.12869136752638", ",", "0``57.73048705578208"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.595217875277366526181006496203199118979906854233090125552241837`44.\
+41151190067541*^-14, 0``58.69897000433602, 0``58.12869136752638, 
+    0``57.73048705578208}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973133023503*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e48dc9f0-4cd1-4f6d-8125-bc6207c37f31"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731330240889*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f913ad7c-5af1-49e6-991f-f788653a17b0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "37.1773676997966404656`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "34596.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "7920.7193561802226794529`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "7920.7193561802226794529`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "6914.9903921621751266002`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "6914.9903921621751266002`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "26325.4194966847998786666`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "186.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "162.2511001401371080351`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.50360430547936059918586943816779360851`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "22.2327432884816362733`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "144.1041956907418472792`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731330246872*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"22fd9083-d253-44cc-b1d5-f55ad3d36e62"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "52.44414893617021`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 52.44414893617021}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731340585149*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"06274b47-3701-4a73-861f-8b273a59eca0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"94.`", ",", "0.`", ",", "0.`", ",", "94.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"94.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "94.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"38.231255317453`", ",", "0.`", ",", 
+            RowBox[{"-", "38.231255317453`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"23.1788556708253`", ",", 
+            RowBox[{"-", "10.`"}], ",", "20.910747241764224`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {94., 0., 0., 94.}, $CellContext`p2 -> {94.,
+       0., 0., -94.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {38.231255317453, 
+      0., -38.231255317453, 0.}, $CellContext`p5 -> {23.1788556708253, -10., 
+      20.910747241764224`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731340593709*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"546cd37e-5d88-4199-a461-a25a444db629"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "7.496953558825079788374563100491637488390002059179072517300148044`\
+44.29969697561453*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.11655144608963", ",", "0``57.72584215073632"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-7.496953558825079788374563100491637488390002059179072517300148044`44.\
+29969697561453*^-14, 0``58.69897000433602, 0``58.11655144608963, 
+    0``57.72584215073632}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797313406022863`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1ac14c33-3666-49a6-84b5-b05ae325a89b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731340610415*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"89c56bf8-9cac-4803-8dcf-67115f99ec33"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "38.2312553174529980993`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "35344.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "8173.8991342036659340707`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "8173.8991342036659340707`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "7187.4759996811636426628`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "7187.4759996811636426628`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "26628.750267769662628883`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "188.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "163.1831801006760090677`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.47822298669592196614729207433092575354`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "23.1788556708252996223`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "144.8069335378580905695`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973134061868*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9a77f830-7231-42b1-ab93-1d3efa194ceb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "53.88157894736842`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 53.88157894736842}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731350603302*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8e1fac5f-a431-4de2-8de6-0a4b7c702473"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"95.`", ",", "0.`", ",", "0.`", ",", "95.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"95.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "95.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"39.28046616514379`", ",", "0.`", ",", 
+            RowBox[{"-", "39.28046616514379`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"24.129644823134488`", ",", 
+            RowBox[{"-", "10.`"}], ",", "21.959958089455018`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {95., 0., 0., 95.}, $CellContext`p2 -> {95.,
+       0., 0., -95.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {39.28046616514379, 
+      0., -39.28046616514379, 0.}, $CellContext`p5 -> {
+      24.129644823134488`, -10., 21.959958089455018`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731350611745*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d8de70e6-fee4-40f0-8f45-f380a30b4ec9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.305098982152855555360928793869576389319865908223076996757467411`\
+44.388937400643*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.1047933711542", ",", "0``57.72124639904717"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.305098982152855555360928793869576389319865908223076996757467411`44.\
+388937400643*^-14, 0``58.69897000433602, 0``58.1047933711542, 
+    0``57.72124639904717}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731350620327*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"15af4581-dbd2-4519-a99b-62424ca94b41"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731350628368*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7912f5d-a490-4479-a29b-4a3924c3e11c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "39.2804661651437925229`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "36100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "8427.0789122271091886884`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "8427.0789122271091886884`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "7463.2885713773205793586`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "7463.2885713773205793586`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "26930.7349672088640266688`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "190.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "164.1058651212956008975`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.45537427527249757425672850677740772143`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "24.1296448231344871172`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "145.5109028810052116092`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731350636585*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"187177e8-a919-4342-bcba-4be562a9b41c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "55.30989583333333`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 55.30989583333333}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731362994137*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"de59a9b7-06d5-4e78-bcf7-89ca895f9c6d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"96.`", ",", "0.`", ",", "0.`", ",", "96.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"96.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "96.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"40.3255837498663`", ",", "0.`", ",", 
+            RowBox[{"-", "40.3255837498663`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"25.08452723841202`", ",", 
+            RowBox[{"-", "10.`"}], ",", "23.005075674177522`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {96., 0., 0., 96.}, $CellContext`p2 -> {96.,
+       0., 0., -96.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {40.3255837498663, 
+      0., -40.3255837498663, 0.}, $CellContext`p5 -> {25.08452723841202, -10.,
+       23.005075674177522`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797313630254297`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e7680037-583e-48ed-b933-8d7c6cd0ecab"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.764362186578306499150913110069273882047109832043430334068885037`\
+44.17642003623567*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.09338934141796", ",", "0``57.71669877129646"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.764362186578306499150913110069273882047109832043430334068885037`44.\
+17642003623567*^-14, 0``58.69897000433602, 0``58.09338934141796, 
+    0``57.71669877129646}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731363053739*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bdf21c64-8cb7-4d6a-b478-0078c0e2ae78"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731363076874*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5a9f2279-02de-493f-af40-c46417db42f2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "40.325583749866297012`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "36864.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "8680.2586902505524433062`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "8680.2586902505524433062`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "7742.5120799743290262995`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "7742.5120799743290262995`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "27231.5415404497658311375`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "192.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "165.0198216592472439918`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.43468668139286698215235641056527418877`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "25.0845272384120180355`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "146.2155116259944715079`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731363103592*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"93ff3854-9c9e-4925-8a76-cf005b49e4c1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "56.72938144329897`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 56.72938144329897}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731380582116*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d747d0c8-abc8-4110-9e82-22e6b804a77d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"97.`", ",", "0.`", ",", "0.`", ",", "97.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"97.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "97.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"41.367098384507415`", ",", "0.`", ",", 
+            RowBox[{"-", "41.367098384507415`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"26.04301260377091`", ",", 
+            RowBox[{"-", "10.`"}], ",", "24.04659030881864`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {97., 0., 0., 97.}, $CellContext`p2 -> {97.,
+       0., 0., -97.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {41.367098384507415`, 
+      0., -41.367098384507415`, 0.}, $CellContext`p5 -> {
+      26.04301260377091, -10., 24.04659030881864, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731380598091*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"da1c7d02-d4f0-42ad-bb31-1a197d5a5455"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.511253569728011571795039394715354796500550456332707265395736844`\
+44.06546551312812*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.08231494512268", ",", "0``57.71219827006978"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.511253569728011571795039394715354796500550456332707265395736844`44.\
+06546551312812*^-14, 0``58.69897000433602, 0``58.08231494512268, 
+    0``57.71219827006978}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973138061681*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1579a959-63ba-4396-9ff0-be777c13f73f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731380636533*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e36759b7-0ef5-4a7f-bf5e-9182b9d2a182"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "41.3670983845074147212`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "37636.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "8933.438468273995697924`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "8933.438468273995697924`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "8025.2170865944384559043`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "8025.2170865944384559043`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "27531.3111097368706573892`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "194.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "165.9256192085383499877`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.41585937430524963635701299953608989999`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "26.0430126037709128574`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "146.9202703060782873023`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797313806542664`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"141ceccf-74b9-4a6a-a2a4-15b79a477cf5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "58.140306122448976`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 58.140306122448976`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731395051084*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d4b87258-9b06-4a7d-9fa3-e079cdef8b6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"98.`", ",", "0.`", ",", "0.`", ",", "98.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"98.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "98.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"42.40542507895932`", ",", "0.`", ",", 
+            RowBox[{"-", "42.40542507895932`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"27.004685909318994`", ",", 
+            RowBox[{"-", "10.`"}], ",", "25.084917003270544`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {98., 0., 0., 98.}, $CellContext`p2 -> {98.,
+       0., 0., -98.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {42.40542507895932, 
+      0., -42.40542507895932, 0.}, $CellContext`p5 -> {
+      27.004685909318994`, -10., 25.084917003270544`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731395060957*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"883d9356-4b56-4b71-a806-ddbd96e2ce1b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.223313169774130398723440487742022974555014049404630859680322935`\
+44.200735589095395*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.07154858332964", ",", "0``57.70774392864352"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.223313169774130398723440487742022974555014049404630859680322935`44.\
+200735589095395*^-14, 0``58.69897000433602, 0``58.07154858332964, 
+    0``57.70774392864352}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731395070656*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f14e760d-822b-477f-ba29-26bdde61c9ef"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731395079808*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8fd4a685-2c9e-42a1-9148-56b89a6993bf"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "42.4054250789593183413`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "38416.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "9186.6182462974389525417`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "9186.6182462974389525417`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "8311.4633154760263948901`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "8311.4633154760263948901`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "27830.1631235469340560361`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "196.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "166.8237486796976818734`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.39864592729950872047331380459837844136`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "27.0046859093189921167`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "147.6247722065911541262`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731395089086*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f860bd33-4e16-4921-8cf3-c580845b8d8e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "59.5429292929293`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 59.5429292929293}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731407088006*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"01b81a01-d301-4258-b79f-31b50e88885d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"99.`", ",", "0.`", ",", "0.`", ",", "99.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"99.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "99.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"43.440917462017694`", ",", "0.`", ",", 
+            RowBox[{"-", "43.440917462017694`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"27.96919352626064`", ",", 
+            RowBox[{"-", "10.`"}], ",", "26.12040938632892`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {99., 0., 0., 99.}, $CellContext`p2 -> {99.,
+       0., 0., -99.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {43.440917462017694`, 
+      0., -43.440917462017694`, 0.}, $CellContext`p5 -> {
+      27.96919352626064, -10., 26.12040938632892, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731407097501*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"558f0765-15fb-4c11-ad68-2fee4fdb8e78"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.011521802628446412084106094931832798374307728430959729776075626`\
+44.00561397101073*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.06107101546048", ",", "0``57.70333480973847"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.011521802628446412084106094931832798374307728430959729776075626`44.\
+00561397101073*^-14, 0``58.69897000433602, 0``58.06107101546048, 
+    0``57.70333480973847}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731407120489*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5974ac54-8d74-4066-ad91-9d757023251e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973140716096*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1e1843ca-1a93-43e1-ae9d-808dd132dd09"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "43.4409174620176941062`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "39204.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "9439.7980243208822071595`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "9439.7980243208822071595`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "8601.3016574795034330236`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "8601.3016574795034330236`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "28128.1993636007735243469`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "198.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "167.7146367005598397315`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.38284239163701119153165491895966927485`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "27.9691935262606384697`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "148.3286778915020894403`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314071963453`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bfa3815f-2ec3-41aa-a616-d7c60d046274"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "60.9375`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 60.9375}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314187115793`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"77a89964-da84-474f-a788-edc4514f2ff1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"100.`", ",", "0.`", ",", "0.`", ",", "100.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"100.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "100.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"44.473878724781706`", ",", "0.`", ",", 
+            RowBox[{"-", "44.473878724781706`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"28.9362322634966`", ",", 
+            RowBox[{"-", "10.`"}], ",", "27.15337064909293`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {100., 0., 0., 100.}, $CellContext`p2 -> {
+      100., 0., 0., -100.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {44.473878724781706`, 
+      0., -44.473878724781706`, 0.}, $CellContext`p5 -> {
+      28.9362322634966, -10., 27.15337064909293, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731418723781*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f9c24438-2095-498a-b564-e2e01522f1b3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.700404821943895358702916925431192008561322550792476405063208585`\
+44.22404105116767*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.050864996872434", ",", "0``57.69897000433602"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.700404821943895358702916925431192008561322550792476405063208585`44.\
+22404105116767*^-14, 0``58.69897000433602, 0``58.050864996872434, 
+    0``57.69897000433602}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731418734281*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bfbf2afc-c5b8-4009-8b53-a36ee4500696"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731418743483*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"db634bed-c344-48e5-a713-d0026d9b6817"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "44.4738787247817057846`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "40000.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "9692.9778023443254617773`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "9692.9778023443254617773`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "8894.7757449563411569216`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "8894.7757449563411569216`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "28425.5070946013371150871`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "200.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "168.5986568588295044816`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.36827840378387989346627665999354856839`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "28.9362322634965999025`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "149.0317030369286790041`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731418754137*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2ab06710-b5b5-4a11-8f10-55bffea289fd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "62.32425742574257`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 62.32425742574257}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731429325025*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bd9b9f3c-cce6-4c0d-85ea-b8a282d1d264"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"101.`", ",", "0.`", ",", "0.`", ",", "101.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"101.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "101.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"45.50457030339495`", ",", "0.`", ",", 
+            RowBox[{"-", "45.50457030339495`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"29.905540684883363`", ",", 
+            RowBox[{"-", "10.`"}], ",", "28.184062227706175`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {101., 0., 0., 101.}, $CellContext`p2 -> {
+      101., 0., 0., -101.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {45.50457030339495, 
+      0., -45.50457030339495, 0.}, $CellContext`p5 -> {
+      29.905540684883363`, -10., 28.184062227706175`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314293340683`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3cec74bd-0ba4-4681-9eb5-00d551974601"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.108858636625354547142156739600633128496428147803517943122467506`\
+44.17957871025157*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.04091498662691", ",", "0``57.69464863055337"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.108858636625354547142156739600633128496428147803517943122467506`44.\
+17957871025157*^-14, 0``58.69897000433602, 0``58.04091498662691, 
+    0``57.69464863055337}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731429342475*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5651857c-24ec-4aaf-a10d-2cad77badf4f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314293506804`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ab7d71ff-0f28-48b9-af41-d0ba3e2c0f99"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "45.5045703033949493488`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "40804.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "9946.1575803677687163951`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "9946.1575803677687163951`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "9191.9232012857797684546`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "9191.9232012857797684546`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "28722.1615633071006234738`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "202.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "169.4761386251973249255`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.35481045703090872699476356119625294483`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "29.9055406848833622538`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "149.733608777149364954`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731429359304*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b6eb2721-affa-4c70-8435-8aaafac1dfe8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "63.70343137254902`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 63.70343137254902}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314423812313`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8ff575df-7dbe-4f41-a6b6-2d9e50e6ee13"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"102.`", ",", "0.`", ",", "0.`", ",", "102.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"102.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "102.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"46.53321882782739`", ",", "0.`", ",", 
+            RowBox[{"-", "46.53321882782739`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"30.876892160450915`", ",", 
+            RowBox[{"-", "10.`"}], ",", "29.212710752138616`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {102., 0., 0., 102.}, $CellContext`p2 -> {
+      102., 0., 0., -102.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {46.53321882782739, 
+      0., -46.53321882782739, 0.}, $CellContext`p5 -> {
+      30.876892160450915`, -10., 29.212710752138616`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731442396702*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e8c05d77-c858-490a-8ea4-d0abcd4a0650"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.70608537289197121099612960650638772217775653197815649345989526`\
+44.215808914893444*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.031206909447", ",", "0``57.69036983257409"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.70608537289197121099612960650638772217775653197815649345989526`44.\
+215808914893444*^-14, 0``58.69897000433602, 0``58.031206909447, 
+    0``57.69036983257409}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314424130783`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c4c2102c-369a-44cf-8f84-7b33e97ff6a4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731442428581*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"677b298a-2dce-41c1-8a91-38c06bb87d81"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "46.5332188278273903848`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "41616.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "10199.3373583912119710128`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "10199.3373583912119710128`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "9492.77664087678763849`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "9492.77664087678763849`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "29018.2279985360033602671`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "204.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "170.3473744985111396896`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.34231674303857321560233566032140852036`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "30.8768921604509152455`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "150.4341939794487136444`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314424440393`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"59b5ae48-342c-4e12-82b1-b22ee472bf24"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "65.0752427184466`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 65.0752427184466}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731454024363*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7277698-37da-4a12-b78c-d4526962cb59"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"103.`", ",", "0.`", ",", "0.`", ",", "103.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"103.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "103.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"47.56002172767288`", ",", "0.`", ",", 
+            RowBox[{"-", "47.56002172767288`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"31.85008926060543`", ",", 
+            RowBox[{"-", "10.`"}], ",", "30.239513651984108`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {103., 0., 0., 103.}, $CellContext`p2 -> {
+      103., 0., 0., -103.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {47.56002172767288, 
+      0., -47.56002172767288, 0.}, $CellContext`p5 -> {
+      31.85008926060543, -10., 30.239513651984108`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731454034041*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f331ab4a-764a-4deb-81ce-dca54a76ccae"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.988479874369719681046247680815002863654153711480419659263514353`\
+44.162419378316635*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.021727959983", ",", "0``57.686132779630846"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.988479874369719681046247680815002863654153711480419659263514353`44.\
+162419378316635*^-14, 0``58.69897000433602, 0``58.021727959983, 
+    0``57.686132779630846}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731454043322*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e00cd70a-06d4-4642-89fb-e50d661c1bb8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731454052136*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23d30dcc-83c6-4ec9-809a-0dc730c99921"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "47.5600217276728827187`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "42436.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "10452.5171364146552256306`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "10452.5171364146552256306`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "9797.3644759006138400537`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "9797.3644759006138400537`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "29313.7632246305419460409`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "206.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "171.212625774592166746`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.33069314920492672961188155190645770052`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "31.8500892606054300876`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "151.1332890140314300425`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314540611477`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a024aac-4e00-4fca-a34f-b965e6f2c313"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "66.43990384615385`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 66.43990384615385}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314638910418`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c4cb3afb-fc7b-4b9a-a5ee-bf474a535fa5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"104.`", ",", "0.`", ",", "0.`", ",", "104.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"104.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "104.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"48.58515178832903`", ",", "0.`", ",", 
+            RowBox[{"-", "48.58515178832903`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"32.8249591999493`", ",", 
+            RowBox[{"-", "10.`"}], ",", "31.264643712640254`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {104., 0., 0., 104.}, $CellContext`p2 -> {
+      104., 0., 0., -104.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {48.58515178832903, 
+      0., -48.58515178832903, 0.}, $CellContext`p5 -> {32.8249591999493, -10.,
+       31.264643712640254`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314638999567`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0e424522-aaf1-4add-aa52-a83d1a819f41"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.920084084639358115427713130038167563162806293830372927284426748`\
+44.07287919433225*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.01246644045776", ",", "0``57.68193666503725"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.920084084639358115427713130038167563162806293830372927284426748`44.\
+07287919433225*^-14, 0``58.69897000433602, 0``58.01246644045776, 
+    0``57.68193666503725}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731463908676*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8cf78b2b-166a-4a6d-8589-ad53a10ba289"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314639175053`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b56e9d01-91cd-4cd8-8cde-21ec583f2066"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "48.5851517883290284772`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "43264.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "10705.6969144380984802484`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "10705.6969144380984802484`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "10105.7115719724379232503`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "10105.7115719724379232503`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "29608.8169728210760370284`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "208.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "172.0721272397742981916`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.31985011861680076544674455230823903481`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "32.8249591999492950131`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "151.8307506931817434423`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314639260693`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e5b463ee-c265-4fd0-9f4c-b093a7c31ad2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "67.79761904761905`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 67.79761904761905}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731474802494*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4e3c9a96-29cf-4021-94ed-b32a4564fe75"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"105.`", ",", "0.`", ",", "0.`", ",", "105.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"105.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "105.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"49.60876087990389`", ",", "0.`", ",", 
+            RowBox[{"-", "49.60876087990389`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"33.80135010837445`", ",", 
+            RowBox[{"-", "10.`"}], ",", "32.28825280421512`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {105., 0., 0., 105.}, $CellContext`p2 -> {
+      105., 0., 0., -105.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {49.60876087990389, 
+      0., -49.60876087990389, 0.}, $CellContext`p5 -> {
+      33.80135010837445, -10., 32.28825280421512, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731474814569*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c8ef1428-eb29-4ad0-83f2-2bb11a04cefa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.300554146707432062872138744805858376063812655178911638714141257`\
+43.89533757149604*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``58.00341162490597", ",", "0``57.67778070526607"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.300554146707432062872138744805858376063812655178911638714141257`43.\
+89533757149604*^-14, 0``58.69897000433602, 0``58.00341162490597, 
+    0``57.67778070526607}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797314748242607`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9d4565f2-3d84-4368-9eb4-6d8369c5ec9b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731474836781*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"34d3f74d-e21d-4f40-bd3a-34567d503138"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "49.608760879903890384`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "44100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "10958.8766924615417348661`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "10958.8766924615417348661`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "10417.839784779816980631`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "10417.839784779816980631`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "29903.4329544827196622581`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "210.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "172.9260910171820187099`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.30971016179279094634048493665740129869`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "33.8013501083744493016`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "152.5264581324838718591`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731474848282*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"10219fd2-331a-4c10-a7b9-81abdb341818"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "69.14858490566037`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 69.14858490566037}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731485621706*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d21ecb1c-65b3-4cd9-85e8-2ae54d853499"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"106.`", ",", "0.`", ",", "0.`", ",", "106.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"106.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "106.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"50.630983028946254`", ",", "0.`", ",", 
+            RowBox[{"-", "50.630983028946254`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"34.77912795933207`", ",", 
+            RowBox[{"-", "10.`"}], ",", "33.31047495325748`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {106., 0., 0., 106.}, $CellContext`p2 -> {
+      106., 0., 0., -106.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {50.630983028946254`, 
+      0., -50.630983028946254`, 0.}, $CellContext`p5 -> {
+      34.77912795933207, -10., 33.31047495325748, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731485630714*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"34224f9d-9b05-47a4-bb89-9f1eb049fd49"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.499160464049843401983655227645227925609865511726886058663665399`\
+44.02576562610575*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.99455364479626", ",", "0``57.67366413907124"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.499160464049843401983655227645227925609865511726886058663665399`44.\
+02576562610575*^-14, 0``58.69897000433602, 0``57.99455364479626, 
+    0``57.67366413907124}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731485639182*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"794c97f0-7d31-49ba-8722-8e471e1fd213"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731485647162*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c02ce05-f7b9-4bbd-944f-c8ce0601fabe"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "50.6309830289462539099`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "44944.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "11212.0564704849849894839`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "11212.0564704849849894839`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "10733.7684021366058289004`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "10733.7684021366058289004`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "30197.6497452431847663063`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "212.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "173.7747097400631101578`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.30020586659398818031853986986402405442`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "34.7791279593320737896`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "153.2203093448344850381`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731485656085*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0858fb46-30f1-446f-9092-1231a98b6637"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "70.4929906542056`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 70.4929906542056}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973149542741*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd0cf86a-5eb9-41b3-a3bf-09357ce52f7a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"107.`", ",", "0.`", ",", "0.`", ",", "107.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"107.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "107.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"51.651936964266824`", ",", "0.`", ",", 
+            RowBox[{"-", "51.651936964266824`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"35.75817402401151`", ",", 
+            RowBox[{"-", "10.`"}], ",", "34.33142888857805`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {107., 0., 0., 107.}, $CellContext`p2 -> {
+      107., 0., 0., -107.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {51.651936964266824`, 
+      0., -51.651936964266824`, 0.}, $CellContext`p5 -> {
+      35.75817402401151, -10., 34.33142888857805, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731495436309*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"33a32ea7-b6ad-48de-bd0a-6ef805f95446"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.84139002476835518126659351875253032539279861586066355963704545`\
+43.95304463526353*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.985883391992104", ",", "0``57.669586226650814"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.84139002476835518126659351875253032539279861586066355963704545`43.\
+95304463526353*^-14, 0``58.69897000433602, 0``57.985883391992104, 
+    0``57.669586226650814}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731495444789*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ad95c674-7541-4328-a213-609c9cd6b58a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731495453341*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f6185d43-7936-46aa-b169-a5f1a8c00284"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "51.651936964266823793`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "45796.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "11465.2362485084282441017`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "11465.2362485084282441017`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "11053.5145103531002916952`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "11053.5145103531002916952`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "30491.5015177230598188157`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "214.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "174.6181591866179873766`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.29127829291506610865047995129079407381`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "35.7581740240115104842`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "153.9122184210655412895`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731495462105*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"76488873-1845-40fc-bbbc-4e75688b1d1c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "71.83101851851852`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 71.83101851851852}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731505258251*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12e1548c-7a48-4faa-b67c-4095e8e5ffe7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"108.`", ",", "0.`", ",", "0.`", ",", "108.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"108.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "108.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"52.67172823898314`", ",", "0.`", ",", 
+            RowBox[{"-", "52.67172823898314`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"36.73838274929519`", ",", 
+            RowBox[{"-", "10.`"}], ",", "35.35122016329437`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {108., 0., 0., 108.}, $CellContext`p2 -> {
+      108., 0., 0., -108.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {52.67172823898314, 
+      0., -52.67172823898314, 0.}, $CellContext`p5 -> {
+      36.73838274929519, -10., 35.35122016329437, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731505267426*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7687b7ba-70cb-446b-ab7d-e5ebdf1c4163"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.035156727378375422508468408095855976240075311768329138002343341`\
+43.97037666077198*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.97739243588664", ",", "0``57.665546248849076"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.035156727378375422508468408095855976240075311768329138002343341`43.\
+97037666077198*^-14, 0``58.69897000433602, 0``57.97739243588664, 
+    0``57.665546248849076}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315052762938`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86d6810d-8250-429b-b10d-a49a8e323924"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315052847958`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8e2a17af-72a7-48cc-8909-eb4bd51e9262"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "52.6717282389831424894`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "46656.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "11718.4160265318714987195`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "11718.4160265318714987195`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "11377.0932996203587777018`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "11377.0932996203587777018`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "30785.0186523044635177451`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "216.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "175.4566004808723732436`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.28287566748214053761971203406083092573`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "36.7383827492951898502`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "154.6021131833561622469`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731505293318*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"071abe3e-c4ab-42fa-ac78-a43ae5788820"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "73.16284403669725`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 73.16284403669725}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731515282001*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2d292d36-4f59-4984-9663-1365933c3127"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"109.`", ",", "0.`", ",", "0.`", ",", "109.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"109.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "109.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"53.69045100886541`", ",", "0.`", ",", 
+            RowBox[{"-", "53.69045100886541`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"37.719659979412924`", ",", 
+            RowBox[{"-", "10.`"}], ",", "36.36994293317664`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {109., 0., 0., 109.}, $CellContext`p2 -> {
+      109., 0., 0., -109.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {53.69045100886541, 
+      0., -53.69045100886541, 0.}, $CellContext`p5 -> {
+      37.719659979412924`, -10., 36.36994293317664, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315152908287`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"42b3d905-f9cf-479f-a861-d2aae2528bd8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.735415078469958213254287521971140026564704328684115552290926405`\
+43.93285237826787*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.96907295221038", ",", "0``57.66154350639539"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.735415078469958213254287521971140026564704328684115552290926405`43.\
+93285237826787*^-14, 0``58.69897000433602, 0``57.96907295221038, 
+    0``57.66154350639539}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731515299314*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"994fe935-cba7-4367-b455-a35aecf64873"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731515307685*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4583cca5-1eab-4ec7-b117-64f75147a494"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "53.6904510088654092215`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "47524.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "11971.5958045553147533372`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "11971.5958045553147533372`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "11704.5183199326592102807`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "11704.5183199326592102807`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "31078.2282489759507452076`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "218.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "176.2901819415248965532`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.2749523148379209320830273568457065154`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "37.7196599794129261155`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "155.2899332221334600447`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315153161583`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b9075ff4-7fb0-4fce-9138-7e0d82659d6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "74.48863636363636`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 74.48863636363636}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731525183895*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4396e6b4-c686-4c46-9b7d-6d4b8b34881c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"110.`", ",", "0.`", ",", "0.`", ",", "110.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"110.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "110.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"54.708189530221425`", ",", "0.`", ",", 
+            RowBox[{"-", "54.708189530221425`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"38.701921458056894`", ",", 
+            RowBox[{"-", "10.`"}], ",", "37.387681454532654`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {110., 0., 0., 110.}, $CellContext`p2 -> {
+      110., 0., 0., -110.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {54.708189530221425`, 
+      0., -54.708189530221425`, 0.}, $CellContext`p5 -> {
+      38.701921458056894`, -10., 37.387681454532654`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315251930637`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f9e3adb8-fba2-4022-9d66-586aed317a0e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.191784129382963257986517430054316703733070257217661028217963729`\
+44.07186395003208*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.96091766152061", ",", "0``57.657577319177804"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.191784129382963257986517430054316703733070257217661028217963729`44.\
+07186395003208*^-14, 0``58.69897000433602, 0``57.96091766152061, 
+    0``57.657577319177804}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315252016993`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c1fb3839-d5d1-4199-b6d5-b386493eac58"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731525210219*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a9cc6b31-aacd-417e-8824-f3374b6e6abd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "54.7081895302214249455`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "48400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "12224.775582578758007955`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "12224.775582578758007955`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "12035.8016966487134880026`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "12035.8016966487134880026`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "31371.1545584549470105557`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "220.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "177.1190406434467649456`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.26746777577424934566182563048947212317`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "38.7019214580568958278`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "155.9756282458979418257`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731525218816*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"25532e88-5871-4530-aa49-e3ee3ac73e3f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "75.80855855855856`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 75.80855855855856}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731534951027*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"870413ad-c32f-4e9c-a508-3643d32125d1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"111.`", ",", "0.`", ",", "0.`", ",", "111.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"111.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "111.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"55.725019427602206`", ",", "0.`", ",", 
+            RowBox[{"-", "55.725019427602206`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"39.68509156067613`", ",", 
+            RowBox[{"-", "10.`"}], ",", "38.404511351913435`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {111., 0., 0., 111.}, $CellContext`p2 -> {
+      111., 0., 0., -111.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {55.725019427602206`, 
+      0., -55.725019427602206`, 0.}, $CellContext`p5 -> {
+      39.68509156067613, -10., 38.404511351913435`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731534960067*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"adcec7c2-37a8-4e21-875a-44fd02b239ef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.78557904932217897085190007803007588569858066283632685200152105`\
+43.930749349306964*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.95291977577415", ",", "0``57.65364702554936"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.78557904932217897085190007803007588569858066283632685200152105`43.\
+930749349306964*^-14, 0``58.69897000433602, 0``57.95291977577415, 
+    0``57.65364702554936}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731534968779*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"97a301e3-411a-4d83-b97c-f501f258befd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731534977254*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e6b9bf3f-6da5-4025-ac68-51a27627c15a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "55.7250194276022057238`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "49284.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "12477.9553606022012625728`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "12477.9553606022012625728`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "12370.954312927689670687`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "12370.954312927689670687`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "31663.8193470597848711405`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "222.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "177.943303743242288019`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.26038607569737425509727808530705118476`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "39.6850915606761291115`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "156.6591566878380973678`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731534987501*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a0877e1c-c66b-4460-ac9b-0813300e4f61"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "77.12276785714285`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 77.12276785714285}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731544794155*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c23dc164-47b0-4d77-9fd2-c8dfc2a7f730"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"112.`", ",", "0.`", ",", "0.`", ",", "112.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"112.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "112.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"56.74100877156438`", ",", "0.`", ",", 
+            RowBox[{"-", "56.74100877156438`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"40.66910221671397`", ",", 
+            RowBox[{"-", "10.`"}], ",", "39.42050069587561`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {112., 0., 0., 112.}, $CellContext`p2 -> {
+      112., 0., 0., -112.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {56.74100877156438, 
+      0., -56.74100877156438, 0.}, $CellContext`p5 -> {
+      40.66910221671397, -10., 39.42050069587561, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973154480317*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"00028180-e452-4394-a354-518529367fee"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.95103507605776130817864579478122014345581424899249377798246924`\
+43.63898706329048*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.94507295169131", ",", "0``57.649751981665844"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.95103507605776130817864579478122014345581424899249377798246924`43.\
+63898706329048*^-14, 0``58.69897000433602, 0``57.94507295169131, 
+    0``57.649751981665844}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731544811617*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12b0b354-9a07-41af-98a2-7f5a7e9dd58f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731544820239*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fad541a5-5606-4aa3-b066-e4547e871bdd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "56.7410087715643811634`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "50176.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "12731.1351386256445171906`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "12731.1351386256445171906`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "12709.9859648304213806114`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "12709.9859648304213806114`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "31956.2422069121333825408`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "224.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "178.7630896099978838765`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.25367511379799028154065748999867173507`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "40.6691022167139720173`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "157.3404845242925731604`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315448288918`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13d02f17-14fe-42f3-94cc-af0a10abf613"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "78.43141592920354`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 78.43141592920354}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731554609371*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fb49ab8c-a027-4e4d-a6fe-687366def7ac"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"113.`", ",", "0.`", ",", "0.`", ",", "113.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"113.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "113.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"57.75621899888351`", ",", "0.`", ",", 
+            RowBox[{"-", "57.75621899888351`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"41.65389198939482`", ",", 
+            RowBox[{"-", "10.`"}], ",", "40.43571092319474`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {113., 0., 0., 113.}, $CellContext`p2 -> {
+      113., 0., 0., -113.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {57.75621899888351, 
+      0., -57.75621899888351, 0.}, $CellContext`p5 -> {
+      41.65389198939482, -10., 40.43571092319474, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731554618651*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"73f672c1-81ef-4600-9096-89818bf6ea04"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.706188859542097463787371973948644225594003285947209387288035178`\
+43.913789111463224*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.93737124985873", ",", "0``57.6458915608526"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.706188859542097463787371973948644225594003285947209387288035178`43.\
+913789111463224*^-14, 0``58.69897000433602, 0``57.93737124985873, 
+    0``57.6458915608526}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731554627241*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c1e406a7-2058-4db2-8d3f-5eb1ebaef80e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315546355333`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d6d9662f-0df2-4992-86b1-2f50785ee748"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "57.7562189988835115173`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "51076.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "12984.3149166490877718083`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "12984.3149166490877718083`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "13052.9054937476736029112`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "13052.9054937476736029112`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "32248.4408207935258369828`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "226.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "179.5785087943251795088`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.24730615022435029071833548472547406008`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "41.6538919893948241119`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "158.0195842688640929817`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973155464408*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f7a5397-40fd-4370-ae7e-a3551d36d345"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "79.73464912280701`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 79.73464912280701}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731564404707*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2b5dc72-e4c9-4584-bdae-cd1d0560a219"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"114.`", ",", "0.`", ",", "0.`", ",", "114.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"114.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "114.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"58.77070570144846`", ",", "0.`", ",", 
+            RowBox[{"-", "58.77070570144846`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"42.63940528682986`", ",", 
+            RowBox[{"-", "10.`"}], ",", "41.45019762575969`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {114., 0., 0., 114.}, $CellContext`p2 -> {
+      114., 0., 0., -114.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {58.77070570144846, 
+      0., -58.77070570144846, 0.}, $CellContext`p5 -> {
+      42.63940528682986, -10., 41.45019762575969, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315644135923`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c2be72ab-d86d-46a4-ae5b-457c311360cf"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.875254735804744538706886822116766587248577507779030786270088652`\
+44.02903247018327*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.929809098709164", ",", "0``57.64206515299956"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.875254735804744538706886822116766587248577507779030786270088652`44.\
+02903247018327*^-14, 0``58.69897000433602, 0``57.929809098709164, 
+    0``57.64206515299956}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731564422132*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0c92152b-90f6-4749-b21b-ba34f5907d1a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731564430505*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"56ae5eb9-f4d7-4e0a-8496-346db752e76d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "58.7707057014484632873`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "51984.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "13237.4946946725310264261`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "13237.4946946725310264261`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "13399.7208999302496295059`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "13399.7208999302496295059`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "32540.4311892055654694232`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "228.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "180.3896648625013812474`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.24125337327186560404077716574791863337`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "42.6394052868298606513`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "158.696434112866834259`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973156443906*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c171c0b9-8db9-44cd-9078-5850a73c3d2b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "81.03260869565217`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 81.03260869565217}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731574129938*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"37abf6bf-bb5b-424c-8ae4-81ce9763c39c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"115.`", ",", "0.`", ",", "0.`", ",", "115.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"115.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "115.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"59.78451930519197`", ",", "0.`", ",", 
+            RowBox[{"-", "59.78451930519197`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"43.625591683086355`", ",", 
+            RowBox[{"-", "10.`"}], ",", "42.4640112295032`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {115., 0., 0., 115.}, $CellContext`p2 -> {
+      115., 0., 0., -115.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {59.78451930519197, 
+      0., -59.78451930519197, 0.}, $CellContext`p5 -> {
+      43.625591683086355`, -10., 42.4640112295032, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315741389523`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6d54d121-62c2-4c15-8bda-484ec1224292"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.303013239611300387601048240241217337793442223585363170184045051`\
+43.97101485065041*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.9223812626672", ",", "0``57.638272163982414"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.303013239611300387601048240241217337793442223585363170184045051`43.\
+97101485065041*^-14, 0``58.69897000433602, 0``57.9223812626672, 
+    0``57.638272163982414}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315741477327`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e0c134b0-a247-484d-9c48-4c88153acea9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731574156147*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ac36db69-fab9-4c4a-8e3c-8a4136ae9c75"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "59.7845193051919707727`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "52900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "13490.6744726959742810439`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "13490.6744726959742810439`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "13750.43944019415327773`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "13750.43944019415327773`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "32832.2278257802588719778`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "230.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "181.1966551175276493326`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.23549353229852642199644956155117050882`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "43.6255916830863588883`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "159.3710171882318093017`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731574164751*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c32ea398-811d-4877-ac24-664f10dfbc36"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "82.32543103448276`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 82.32543103448276}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731583984296*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"90a853ac-95be-40f3-bd9e-a809b140fda6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"116.`", ",", "0.`", ",", "0.`", ",", "116.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"116.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "116.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"60.797705656533985`", ",", "0.`", ",", 
+            RowBox[{"-", "60.797705656533985`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"44.61240533174436`", ",", 
+            RowBox[{"-", "10.`"}], ",", "43.477197580845214`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {116., 0., 0., 116.}, $CellContext`p2 -> {
+      116., 0., 0., -116.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {60.797705656533985`, 
+      0., -60.797705656533985`, 0.}, $CellContext`p5 -> {
+      44.61240533174436, -10., 43.477197580845214`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731583993359*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0518cd35-3157-4840-8845-96de959bf7e8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.576515756346148405056562764521318896878531265267576472900957945`\
+43.7445148221216*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.91508281387098", ",", "0``57.63451201510911"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.576515756346148405056562764521318896878531265267576472900957945`43.\
+7445148221216*^-14, 0``58.69897000433602, 0``57.91508281387098, 
+    0``57.63451201510911}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731584001841*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf62441a-8ce8-473c-a676-4ec03ae38db7"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731584010333*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2c4cb8d6-a26c-4e3f-a246-1c4d913dbc86"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "60.7977056565339850636`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "53824.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "13743.8542507194175356616`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "13743.8542507194175356616`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "14105.0677123158845347461`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "14105.0677123158845347461`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "33123.8439260706064397069`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "232.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "181.9995712249636219997`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.23000562493489021369051431809567253625`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "44.6124053317443618624`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "160.0433209333279928125`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315840189867`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"885100fe-53ac-4b89-8842-44c827cd3563"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "83.61324786324788`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 83.61324786324788}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315937431993`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"26488d23-0bc0-4b4f-9ce9-f8381c938eac"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"117.`", ",", "0.`", ",", "0.`", ",", "117.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"117.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "117.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"61.81030653071033`", ",", "0.`", ",", 
+            RowBox[{"-", "61.81030653071033`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"45.599804457568`", ",", 
+            RowBox[{"-", "10.`"}], ",", "44.48979845502156`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {117., 0., 0., 117.}, $CellContext`p2 -> {
+      117., 0., 0., -117.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {61.81030653071033, 
+      0., -61.81030653071033, 0.}, $CellContext`p5 -> {45.599804457568, -10., 
+      44.48979845502156, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973159375463*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"31170c81-0c69-49bc-8ab9-413e86487676"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.597282027245433854580293873585632553887899503090884528177788306`\
+43.992255293947764*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.90790910697835", ",", "0``57.63078414258986"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.597282027245433854580293873585632553887899503090884528177788306`43.\
+992255293947764*^-14, 0``58.69897000433602, 0``57.90790910697835, 
+    0``57.63078414258986}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797315937655478`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"63756f3d-a840-4b75-888a-77d76a994895"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731593775792*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f8f2009d-ebcd-40d8-af16-2fb8ace2b8b5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "61.8103065307103278769`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "54756.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "13997.0340287428607902794`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "13997.0340287428607902794`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "14463.6117281862167232021`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "14463.6117281862167232021`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "33415.2915138581592196662`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "234.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "182.7984997582260225363`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.22477062938619138507844445884461808097`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "45.5998044575679988414`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "160.7133365456257047138`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973159378609*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dca26f8f-442a-4e2a-ad88-9d7765b61442"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "84.89618644067797`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 84.89618644067797}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316034974413`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"930bc9a6-db39-4557-ad3a-90f2220150b5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"118.`", ",", "0.`", ",", "0.`", ",", "118.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"118.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "118.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"62.82236007386222`", ",", "0.`", ",", 
+            RowBox[{"-", "62.82236007386222`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"46.587750914416134`", ",", 
+            RowBox[{"-", "10.`"}], ",", "45.50185199817345`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {118., 0., 0., 118.}, $CellContext`p2 -> {
+      118., 0., 0., -118.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {62.82236007386222, 
+      0., -62.82236007386222, 0.}, $CellContext`p5 -> {
+      46.587750914416134`, -10., 45.50185199817345, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731603506385*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a6e6f9c1-2bc0-4705-b340-4e621aa48561"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.116736999752322643783318458322171669922437177562886600303365528`\
+43.65172490253517*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.90085575664472", ",", "0``57.627087997029896"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.116736999752322643783318458322171669922437177562886600303365528`43.\
+65172490253517*^-14, 0``58.69897000433602, 0``57.90085575664472, 
+    0``57.627087997029896}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731603515029*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4adc6c79-4f11-40d5-a8bc-b33fe3203a38"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316035234118`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ccec93ce-6b7a-486c-b4be-afb9f0869eac"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "62.822360073862220986`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "55696.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "14250.2138067663040448972`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "14250.2138067663040448972`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "14826.076977431484152703`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "14826.076977431484152703`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "33706.5815683955783674807`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "236.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "183.5935226754897754813`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.21977127437365458552313943459961620543`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "46.5877509144161305377`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "161.3810585079210104856`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731603532084*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cbd1d0af-9958-481f-8c83-5e7c59daa2d2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "86.17436974789915`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 86.17436974789915}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731613292433*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"243db4e0-4e24-476b-8bed-9fd94d818a74"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"119.`", ",", "0.`", ",", "0.`", ",", "119.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"119.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "119.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"63.833901188742374`", ",", "0.`", ",", 
+            RowBox[{"-", "63.833901188742374`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"47.57620979953597`", ",", 
+            RowBox[{"-", "10.`"}], ",", "46.5133931130536`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {119., 0., 0., 119.}, $CellContext`p2 -> {
+      119., 0., 0., -119.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {63.833901188742374`, 
+      0., -63.833901188742374`, 0.}, $CellContext`p5 -> {
+      47.57620979953597, -10., 46.5133931130536, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731613303755*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"90b071f8-f9c0-4cfd-8610-584f4d724390"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.23413502212097602444536291409322897047465340791735415800620019`\
+43.83215119461797*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.89391861732482", ",", "0``57.6234230429435"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.23413502212097602444536291409322897047465340791735415800620019`43.\
+83215119461797*^-14, 0``58.69897000433602, 0``57.89391861732482, 
+    0``57.6234230429435}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731613312401*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1e1fa63f-371a-45d9-ae98-db63b655a1cc"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731613320881*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"863f11dc-0d21-4695-bd34-43e5f3701d5a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "63.8339011887423737335`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "56644.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "14503.393584789747299515`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "14503.393584789747299515`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "15192.4684829206849485672`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "15192.4684829206849485672`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "33997.7241354208675735221`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "238.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "184.384717738268286163`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.21499184064457302164342104607678518439`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "47.5762097995359666163`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "162.0464841770984515961`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731613329611*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ebca2822-658d-4899-ac9b-e99c8d72dda4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "87.44791666666667`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 87.44791666666667}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731623084237*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa9db930-666f-4a86-9054-2608574477e4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"120.`", ",", "0.`", ",", "0.`", ",", "120.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"120.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "120.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"64.84496187225305`", ",", "0.`", ",", 
+            RowBox[{"-", "64.84496187225305`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"48.565149116025296`", ",", 
+            RowBox[{"-", "10.`"}], ",", "47.52445379656428`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {120., 0., 0., 120.}, $CellContext`p2 -> {
+      120., 0., 0., -120.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {64.84496187225305, 
+      0., -64.84496187225305, 0.}, $CellContext`p5 -> {
+      48.565149116025296`, -10., 47.52445379656428, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731623093279*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ef70d9d6-1a80-43ed-83f5-9cb3291fda75"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.202219918753693603007623227144702573362601389656291221437336523`\
+43.66161944907311*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.88709376510447", ",", "0``57.6197887582884"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.202219918753693603007623227144702573362601389656291221437336523`43.\
+66161944907311*^-14, 0``58.69897000433602, 0``57.88709376510447, 
+    0``57.6197887582884}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731623101878*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0997c9f0-5b52-4528-ba11-f28d8b41fbce"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731623110384*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"152ff8f8-f9c3-4cbd-b3cb-8a06cc0368a0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "64.8449618722530516379`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "57600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "14756.5733628131905541327`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "14756.5733628131905541327`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "15562.7908493407323931024`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "15562.7908493407323931024`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "34288.728424307848033493`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "240.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "185.17215888007529528`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.21041798908003310006326450741661041844`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "48.565149116025299031`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "162.7096134262463531196`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731623119165*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4eb2f223-c39d-4eae-af81-953144fbf4c6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "88.71694214876034`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 88.71694214876034}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316328392344`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a7a8d5fc-9c99-4ce0-9adb-1ff1d37234bf"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"121.`", ",", "0.`", ",", "0.`", ",", "121.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"121.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "121.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"65.85557151169046`", ",", "0.`", ",", 
+            RowBox[{"-", "65.85557151169046`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"49.55453947658789`", ",", 
+            RowBox[{"-", "10.`"}], ",", "48.535063436001685`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {121., 0., 0., 121.}, $CellContext`p2 -> {
+      121., 0., 0., -121.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {65.85557151169046, 
+      0., -65.85557151169046, 0.}, $CellContext`p5 -> {
+      49.55453947658789, -10., 48.535063436001685`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731632849225*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1246e333-2f3d-4f14-becf-7420f6947e2b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.654200156833134031120134020772968097735394370523891377419517707`\
+43.73908830885476*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.88037748131118", ",", "0``57.61618463401957"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.654200156833134031120134020772968097735394370523891377419517707`43.\
+73908830885476*^-14, 0``58.69897000433602, 0``57.88037748131118, 
+    0``57.61618463401957}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316328581963`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"df9bbab4-2b66-45f4-bb3b-846d140f0d25"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731632866631*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb19c14b-c661-4590-8c52-87f777c1fbc9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "65.8555715116904565321`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "58564.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "15009.7531408366338087505`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "15009.7531408366338087505`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "15937.0483058290904807563`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "15937.0483058290904807563`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "34579.602893331451209567`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "242.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "185.9559165322024681547`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.2060366113085645028809630457403528577`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "49.5545394765878896171`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "163.3704483324380477231`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731632875286*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"241f38f6-e637-4b46-ab45-e410c1a8ef41"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "89.98155737704919`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 89.98155737704919}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731642593642*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"57dcef4e-158e-4afe-b602-16c7aedaa695"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"122.`", ",", "0.`", ",", "0.`", ",", "122.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"122.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "122.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"66.86575714547178`", ",", "0.`", ",", 
+            RowBox[{"-", "66.86575714547178`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"50.54435384280655`", ",", 
+            RowBox[{"-", "10.`"}], ",", "49.545249069783004`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {122., 0., 0., 122.}, $CellContext`p2 -> {
+      122., 0., 0., -122.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {66.86575714547178, 
+      0., -66.86575714547178, 0.}, $CellContext`p5 -> {
+      50.54435384280655, -10., 49.545249069783004`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731642602919*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8a4d0ead-22c5-48c1-8cda-4436025fe2cb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.518069859485515986652742983539434106002116921228254175491479499`\
+43.966533119799536*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.87376623769018", ",", "0``57.61261017366127"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.518069859485515986652742983539434106002116921228254175491479499`43.\
+966533119799536*^-14, 0``58.69897000433602, 0``57.87376623769018, 
+    0``57.61261017366127}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316426116447`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f2fceae8-aea9-4206-b40f-6aae8230ce12"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731642620326*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a1585e57-e1d3-4203-82e7-357adc9226be"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "66.8657571454717754023`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "59536.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "15262.9329188600770633683`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "15262.9329188600770633683`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "16315.2447434951131981506`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "16315.2447434951131981506`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "34870.3553247103850902963`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "244.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "186.7360579125263238733`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.20183569944143986213396376538564768664`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "50.5443538428065521082`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "164.0289929037234490257`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731642629109*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"624d8539-051d-423a-ab3f-c5cf0aade193"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "91.2418699186992`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 91.2418699186992}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731652404709*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6e049461-8ab9-4318-816f-de9c775cea15"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"123.`", ",", "0.`", ",", "0.`", ",", "123.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"123.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "123.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"67.87554369321533`", ",", "0.`", ",", 
+            RowBox[{"-", "67.87554369321533`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"51.53456729506302`", ",", 
+            RowBox[{"-", "10.`"}], ",", "50.55503561752656`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {123., 0., 0., 123.}, $CellContext`p2 -> {
+      123., 0., 0., -123.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {67.87554369321533, 
+      0., -67.87554369321533, 0.}, $CellContext`p5 -> {
+      51.53456729506302, -10., 50.55503561752656, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731652413768*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7d7c2979-8a1f-430b-a1ac-db9987e5c25d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.625488054292816224524909962991471650097297791919287970512796682`\
+43.51901867944756*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.867256682961695", ",", "0``57.60906489289661"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.625488054292816224524909962991471650097297791919287970512796682`43.\
+51901867944756*^-14, 0``58.69897000433602, 0``57.867256682961695, 
+    0``57.60906489289661}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316524224033`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bd31bbcd-f2ea-437f-8ea2-9320bed123f3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731652430972*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aae09dd3-6350-4d4f-9c55-6a7fa0b639de"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "67.8755436932153344287`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "60516.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "15516.112696883520317986`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "15516.112696883520317986`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "16697.3837485309722694637`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "16697.3837485309722694637`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "35160.9928908289868502761`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "246.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "187.5126472823339637741`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.19780423211754541741691841705978060019`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "51.5345672950630220075`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "164.6852528398886409236`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316524398003`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"03500180-2c74-47e4-a74f-799d582298c7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "92.49798387096774`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 92.49798387096774}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316621216793`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ea1d58d1-57fd-421b-888b-47a80583bf79"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"124.`", ",", "0.`", ",", "0.`", ",", "124.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"124.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "124.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"68.88495415929577`", ",", "0.`", ",", 
+            RowBox[{"-", "68.88495415929577`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"52.52515682898256`", ",", 
+            RowBox[{"-", "10.`"}], ",", "51.564446083607`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {124., 0., 0., 124.}, $CellContext`p2 -> {
+      124., 0., 0., -124.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {68.88495415929577, 
+      0., -68.88495415929577, 0.}, $CellContext`p5 -> {
+      52.52515682898256, -10., 51.564446083607, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731662130703*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"437930b7-0b9a-4107-b872-2f7295b296b5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.846211265863042863477718413682294673436961720547137450093735952`\
+43.889551459126935*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.8608456306019", ",", "0``57.605548319173785"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.846211265863042863477718413682294673436961720547137450093735952`43.\
+889551459126935*^-14, 0``58.69897000433602, 0``57.8608456306019, 
+    0``57.605548319173785}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731662139431*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b835f7bd-6983-4472-8604-6931ba9b2477"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316621478977`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd8c51a9-2e4f-4432-a0d7-8165b12f7762"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "68.8849541592957734792`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "61504.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "15769.2924749069635726039`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "15769.2924749069635726039`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "17083.4686315053518228524`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "17083.4686315053518228524`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "35451.5222128246348313694`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "248.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "188.2857461753933056637`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.19393207451091244034451758465340680837`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "52.5251568289825607498`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "165.3392353223797953102`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731662156547*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e91f6cc2-9743-4538-a447-f20bb90b17fa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "93.75`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 93.75}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731671859826*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ffe16950-d4cd-4be6-bd00-bd5faaaa7039"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"125.`", ",", "0.`", ",", "0.`", ",", "125.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"125.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "125.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"69.89400981337496`", ",", "0.`", ",", 
+            RowBox[{"-", "69.89400981337496`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"53.51610117490336`", ",", 
+            RowBox[{"-", "10.`"}], ",", "52.57350173768619`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {125., 0., 0., 125.}, $CellContext`p2 -> {
+      125., 0., 0., -125.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {69.89400981337496, 
+      0., -69.89400981337496, 0.}, $CellContext`p5 -> {
+      53.51610117490336, -10., 52.57350173768619, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731671868904*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3dc5277-d9f6-48cd-a1b7-361dd052d22a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.65275814134192155458346469023042740456277128838641528864276179`\
+43.968740473383015*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.85453004771013", ",", "0``57.602059991327955"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.65275814134192155458346469023042740456277128838641528864276179`43.\
+968740473383015*^-14, 0``58.69897000433602, 0``57.85453004771013, 
+    0``57.602059991327955}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731671877572*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12255a9b-7d9c-4366-8cbb-f19e53574935"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731671886146*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"70b2f28b-3607-4411-aa54-fa78868f018e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "69.8940098133749643239`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "62500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "16022.4722529304068272216`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "16022.4722529304068272216`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "17473.5024533437410809711`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "17473.5024533437410809711`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "35741.9494125483007963349`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "250.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "189.0554136028595738565`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.19020989033400667828953322627703386815`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "53.5161011749033618396`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "165.9909488294843776367`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797316718950243`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb0a2227-b060-464d-bac9-6a02dbe0cd50"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "94.99801587301587`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 94.99801587301587}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731681747099*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dad06ed8-e154-4b37-8990-bc40ae29f616"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"126.`", ",", "0.`", ",", "0.`", ",", "126.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"126.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "126.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"70.90273035089032`", ",", "0.`", ",", 
+            RowBox[{"-", "70.90273035089032`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"54.507380637388046`", ",", 
+            RowBox[{"-", "10.`"}], ",", "53.58222227520155`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {126., 0., 0., 126.}, $CellContext`p2 -> {
+      126., 0., 0., -126.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {70.90273035089032, 
+      0., -70.90273035089032, 0.}, $CellContext`p5 -> {
+      54.507380637388046`, -10., 53.58222227520155, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731681756366*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cc4c3237-5764-4e87-8d04-f3a1f1879946"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.42653544075840408112666557610851939624708288069486303848564577`\
+42.94363340927361*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.84830704484415", ",", "0``57.59859945921846"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.42653544075840408112666557610851939624708288069486303848564577`42.\
+94363340927361*^-15, 0``58.69897000433602, 0``57.84830704484415, 
+    0``57.59859945921846}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731681765164*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2830c846-46d5-4c60-8f85-34f56387069b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731681773687*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"60ddfba3-7efc-4998-b1c9-8e7122a3b3ad"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "70.9027303508903230522`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "63504.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "16275.6520309538500818394`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "16275.6520309538500818394`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "17867.4880484243614091611`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "17867.4880484243614091611`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "36032.2801587564234645586`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "252.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "189.821706237080335292`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.18662906418176148499969108981954589896`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "54.5073806373880452123`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "166.6404029734424147357`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731681782493*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f2453074-0404-4a6e-b35f-66faa3db2304"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "96.24212598425197`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 96.24212598425197}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731691528891*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9bf7ccf2-22f1-427f-aba2-8f6b7d7f1577"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"127.`", ",", "0.`", ",", "0.`", ",", "127.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"127.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "127.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"71.91113403604959`", ",", "0.`", ",", 
+            RowBox[{"-", "71.91113403604959`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"55.49897695222877`", ",", 
+            RowBox[{"-", "10.`"}], ",", "54.59062596036082`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {127., 0., 0., 127.}, $CellContext`p2 -> {
+      127., 0., 0., -127.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {71.91113403604959, 
+      0., -71.91113403604959, 0.}, $CellContext`p5 -> {
+      55.49897695222877, -10., 54.59062596036082, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731691537888*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3030cb17-832b-4f7d-accd-df371eaebd56"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.363917667837886321843252513311862609293244610446136143118960432`\
+43.42892444287313*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.842173866720024", ",", "0``57.59516628338007"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.363917667837886321843252513311862609293244610446136143118960432`43.\
+42892444287313*^-14, 0``58.69897000433602, 0``57.842173866720024, 
+    0``57.59516628338007}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973169154666*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3ef9f85a-7080-4024-95ef-7d3c840c74cb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731691554943*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0b95653d-b864-404d-bda0-c69d746ad5b8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "71.911134036049588758`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "64516.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "16528.8318089772933364571`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "16528.8318089772933364571`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "18265.4280451565955445403`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "18265.4280451565955445403`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "36322.5197082677792759157`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "254.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "190.584678576919659153`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.18318163281844708066139936584557018693`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "55.4989769522287702939`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "167.2876083566466794619`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731691563686*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d3a9bd58-3655-4c45-be33-79e05aff3c89"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "97.482421875`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 97.482421875}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731701265493*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"59066fb0-3f90-4b27-98c3-04f0f5c1849a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"128.`", ",", "0.`", ",", "0.`", ",", "128.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"128.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "128.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"72.91923782951717`", ",", "0.`", ",", 
+            RowBox[{"-", "72.91923782951717`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"56.49087315876117`", ",", 
+            RowBox[{"-", "10.`"}], ",", "55.5987297538284`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {128., 0., 0., 128.}, $CellContext`p2 -> {
+      128., 0., 0., -128.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {72.91923782951717, 
+      0., -72.91923782951717, 0.}, $CellContext`p5 -> {
+      56.49087315876117, -10., 55.5987297538284, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731701274823*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"952719ef-0e8d-4427-b483-f0447b7612fa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.948647157944983446657563884596853391337011000591537652060215225`\
+43.76035284598578*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.83612788368611", ",", "0``57.59176003468815"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.948647157944983446657563884596853391337011000591537652060215225`43.\
+76035284598578*^-14, 0``58.69897000433602, 0``57.83612788368611, 
+    0``57.59176003468815}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731701284089*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8a860d13-6cb8-469a-8ada-0d265e5bb232"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731701292666*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d8419ab9-52b6-4817-8dcd-9de67d0d0e54"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "72.9192378295171721447`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "65536.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "16782.0115870007365910749`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "16782.0115870007365910749`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "18667.3248843563960690517`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "18667.3248843563960690517`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "36612.6729427142686516863`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "256.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "191.3443830968504511635`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.17986022422232449042190901427964421687`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "56.4908731587611710599`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "167.9325764444980968657`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731701301401*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a1d1732b-e58c-428d-8d1c-7a2d02337513"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "98.71899224806201`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 98.71899224806201}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317110248337`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5f35bb8c-b7b2-42c7-99af-0ab0fd7c8767"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"129.`", ",", "0.`", ",", "0.`", ",", "129.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"129.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "129.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"73.92705750267018`", ",", "0.`", ",", 
+            RowBox[{"-", "73.92705750267018`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"57.48305348560817`", ",", 
+            RowBox[{"-", "10.`"}], ",", "56.60654942698141`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {129., 0., 0., 129.}, $CellContext`p2 -> {
+      129., 0., 0., -129.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {73.92705750267018, 
+      0., -73.92705750267018, 0.}, $CellContext`p5 -> {
+      57.48305348560817, -10., 56.60654942698141, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731711035859*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"758d04f7-818f-4b5f-8c1b-545ba1de8e26"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.598413421746006116181210830607432446624022982649575293151626475`\
+43.70205854922789*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.83016658389239", ",", "0``57.588380294036774"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.598413421746006116181210830607432446624022982649575293151626475`43.\
+70205854922789*^-14, 0``58.69897000433602, 0``57.83016658389239, 
+    0``57.588380294036774}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731711044551*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"48baa0de-d4c6-47f8-9803-e09f65deaf73"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317110532*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7cfa1581-c74f-4b4d-b554-76224d16ebcd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "73.9270575026701806109`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "66564.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "17035.1913650241798456927`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "17035.1913650241798456927`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "19073.1808356889065976247`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "19073.1808356889065976247`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "36902.7444014261758739296`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "258.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "192.1008703817506805883`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.17665800337996787332234861079879011242`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "57.483053485608166096`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "168.5753194528255290851`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731711061976*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"22e7cd68-8bc3-4fad-971c-b3d86c6c06a5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "99.95192307692308`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 99.95192307692308}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731720770184*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"01b0aac9-1d44-4418-b179-509da8748c6c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"130.`", ",", "0.`", ",", "0.`", ",", "130.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"130.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "130.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"74.93460774004404`", ",", "0.`", ",", 
+            RowBox[{"-", "74.93460774004404`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"58.47550324823432`", ",", 
+            RowBox[{"-", "10.`"}], ",", "57.61409966435527`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {130., 0., 0., 130.}, $CellContext`p2 -> {
+      130., 0., 0., -130.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {74.93460774004404, 
+      0., -74.93460774004404, 0.}, $CellContext`p5 -> {
+      58.47550324823432, -10., 57.61409966435527, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731720779482*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5789ab54-930f-4a67-bf82-021fa62ae869"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.25558279267819520921472226175136695721873012527373107141612621`\
+43.382842011580436*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.82428756608532", ",", "0``57.585026652029185"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.25558279267819520921472226175136695721873012527373107141612621`43.\
+382842011580436*^-14, 0``58.69897000433602, 0``57.82428756608532, 
+    0``57.585026652029185}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731720788739*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17ca8d56-9fb1-4757-b20a-f5e00065ae9d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731720797279*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c6ff741f-a493-457e-ada4-c9751d8c3d4b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "74.9346077400440435667`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "67600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "17288.3711430476231003105`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "17288.3711430476231003105`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "19482.9980124114513273526`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "19482.9980124114513273526`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "37192.7383109181503237428`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "260.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "192.8541892490752981821`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.17356862396978159546371749622782553158`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "58.4755032482343165685`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "169.2158502480695296465`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731720805935*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6670c8ad-d17d-4ff2-85a1-aa59b09f37a9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "101.18129770992365`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 101.18129770992365`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731730571768*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5e73e45d-bbfb-450a-ae05-016d07d39907"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"131.`", ",", "0.`", ",", "0.`", ",", "131.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"131.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "131.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"75.94190223136785`", ",", "0.`", ",", 
+            RowBox[{"-", "75.94190223136785`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"59.468208756910485`", ",", 
+            RowBox[{"-", "10.`"}], ",", "58.62139415567908`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {131., 0., 0., 131.}, $CellContext`p2 -> {
+      131., 0., 0., -131.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {75.94190223136785, 
+      0., -75.94190223136785, 0.}, $CellContext`p5 -> {
+      59.468208756910485`, -10., 58.62139415567908, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317305808973`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3cf5e4fe-f5b8-4d26-81df-432e603e7031"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.985169515061360051931986433176072622456486882658638822414662126`\
+43.88111551249745*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.81848853296706", ",", "0``57.58169870868025"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.985169515061360051931986433176072622456486882658638822414662126`43.\
+88111551249745*^-14, 0``58.69897000433602, 0``57.81848853296706, 
+    0``57.58169870868025}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731730589858*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ce5fbe6b-fe1f-401c-aace-9687ce0146ca"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317305983477`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"59f619ce-3d5d-461c-a8e1-6bf17be26e71"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "75.9419022313678482305`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "68644.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "17541.5509210710663549283`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "17541.5509210710663549283`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "19896.7783846183762364035`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "19896.7783846183762364035`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "37482.6586113788899224813`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "262.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "193.6043868598511120072`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.17058618519790403534658483863109341926`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "59.4682087569104846089`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "169.8541822586751400411`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731730607233*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"81a54262-d81c-4f87-9db9-fdb90b833abc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "102.40719696969697`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 102.40719696969697`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731740273836*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e7a47d0a-eaf7-4258-b02b-3b78843c4949"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"132.`", ",", "0.`", ",", "0.`", ",", "132.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"132.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "132.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"76.94895375440309`", ",", "0.`", ",", 
+            RowBox[{"-", "76.94895375440309`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"60.46115723387524`", ",", 
+            RowBox[{"-", "10.`"}], ",", "59.62844567871432`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {132., 0., 0., 132.}, $CellContext`p2 -> {
+      132., 0., 0., -132.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {76.94895375440309, 
+      0., -76.94895375440309, 0.}, $CellContext`p5 -> {
+      60.46115723387524, -10., 59.62844567871432, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731740283074*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"46fd9c0f-ff27-4a57-b9ae-e6357886a2b6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.921779692986392239971838548168384124775944909782484072975558428`\
+43.87084927087555*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.812767285064936", ",", "0``57.578396073130165"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.921779692986392239971838548168384124775944909782484072975558428`43.\
+87084927087555*^-14, 0``58.69897000433602, 0``57.812767285064936, 
+    0``57.578396073130165}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731740291936*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"071d953e-0bf1-462e-b5ec-c7f817fef659"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973174030054*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"66e01984-87d0-48e2-bb4f-733f24bf9086"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "76.9489537544030923755`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "69696.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "17794.730699094509609546`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "17794.730699094509609546`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "20314.5237911624163871238`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "20314.5237911624163871238`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "37772.5089805138567356464`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "264.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "194.351508819751272688`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.16770519315363806589526475496351485101`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "60.4611572338752410979`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "170.4903293963477347657`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731740309223*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2557ca56-e6f7-4a84-965a-10d555e15c49"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "103.62969924812029`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 103.62969924812029`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973175036619*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"58322468-135c-4f1e-b181-ea75abf7c555"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"133.`", ",", "0.`", ",", "0.`", ",", "133.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"133.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "133.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"77.95577424964017`", ",", "0.`", ",", 
+            RowBox[{"-", "77.95577424964017`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"61.45433673863818`", ",", 
+            RowBox[{"-", "10.`"}], ",", "60.6352661739514`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {133., 0., 0., 133.}, $CellContext`p2 -> {
+      133., 0., 0., -133.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {77.95577424964017, 
+      0., -77.95577424964017, 0.}, $CellContext`p5 -> {
+      61.45433673863818, -10., 60.6352661739514, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731750377099*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b841b86a-3d4d-4d07-9123-2ea6822faac0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.834381371320645646823107176578745102362219920423736019378816426`\
+43.53757799906174*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.80712171506287", ",", "0``57.57511836336894"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.834381371320645646823107176578745102362219920423736019378816426`43.\
+53757799906174*^-14, 0``58.69897000433602, 0``57.80712171506287, 
+    0``57.57511836336894}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317503860064`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d89972ab-17a2-4684-a0ad-4625c75431b7"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731750398224*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f8771f0-d61f-429d-810d-042b7736d9eb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "77.9557742496401715471`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "70756.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "18047.9104771179528641638`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "18047.9104771179528641638`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "20736.2359504042856315209`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "20736.2359504042856315209`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "38062.2928550444792459832`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "266.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "195.0955992713430715891`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.16492052613922471814155970309606183571`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "61.4543367386381828002`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "171.1243059860037002513`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731750406925*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"73462437-e3b3-4a4a-b3b4-f7ebfb16e3d0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "104.84888059701493`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 104.84888059701493`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731760076783*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a9690ea-2ab2-44fa-a67a-a4dbcce71338"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"134.`", ",", "0.`", ",", "0.`", ",", "134.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"134.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "134.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"78.96237488777152`", ",", "0.`", ",", 
+            RowBox[{"-", "78.96237488777152`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"62.447736100506866`", ",", 
+            RowBox[{"-", "10.`"}], ",", "61.641866812082746`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {134., 0., 0., 134.}, $CellContext`p2 -> {
+      134., 0., 0., -134.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {78.96237488777152, 
+      0., -78.96237488777152, 0.}, $CellContext`p5 -> {
+      62.447736100506866`, -10., 61.641866812082746`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731760086493*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ce6876c5-c25f-4cc8-872f-3d7594f6a35c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "7.30237764272490567071225626483879028133195153706090045212591261`43.\
+1342994990566*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.801549802552564", ",", "0``57.571865205971214"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   7.30237764272490567071225626483879028133195153706090045212591261`43.\
+1342994990566*^-15, 0``58.69897000433602, 0``57.801549802552564, 
+    0``57.571865205971214}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731760098671*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7b32159a-d781-4c41-b36e-cee798530153"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317601069736`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e7e37312-456b-4b11-8ec5-be89cd5e252e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "78.9623748877715172512`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "71824.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "18301.0902551413961187815`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "18301.0902551413961187815`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "21161.9164699227666233128`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "21161.9164699227666233128`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "38352.0134501283245721548`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "268.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "195.8367009784640049969`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1622274035029686635389583082081694284`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "62.4477361005068627423`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "171.7561267034002182241`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731760115431*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7b292965-3836-415c-b64d-f1bb0f34deec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731774024284*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"689fe1c5-79ff-44ac-806a-2356424863c6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "135.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"79.96876613074323`", ",", "0.`", ",", 
+            RowBox[{"-", "79.96876613074323`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"63.44134485753511`", ",", 
+            RowBox[{"-", "10.`"}], ",", "62.64825805505446`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {135., 0., 0., 135.}, $CellContext`p2 -> {
+      135., 0., 0., -135.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {79.96876613074323, 
+      0., -79.96876613074323, 0.}, $CellContext`p5 -> {
+      63.44134485753511, -10., 62.64825805505446, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731774034643*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a8292541-fdb6-4b9b-959e-837ad88dd541"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.251764790261454625220591458449020482263223962948208775606047848`\
+43.77972536443427*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.79604960916586", ",", "0``57.56863623584101"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.251764790261454625220591458449020482263223962948208775606047848`43.\
+77972536443427*^-14, 0``58.69897000433602, 0``57.79604960916586, 
+    0``57.56863623584101}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731774044142*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ce828323-dcf6-4745-a57e-4976c6458787"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317740535727`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8643e536-6969-4f0c-93cf-e6da9097f5a3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "79.9687661307432335889`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "72900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "18554.2700331648393733994`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "18554.2700331648393733994`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "21591.5668553006730689958`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "21591.5668553006730689958`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "38641.6737769310290107169`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "270.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "196.5748554035612892805`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1596213575677097398352955940110445512`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "63.4413448575351065846`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "172.3858065195584526064`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317740638742`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"607065a3-bf45-4d13-8343-029885c52d95"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "107.27757352941177`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 107.27757352941177`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731787265543*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d12d8dd5-6dbb-4543-99b2-cf78617ec39a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"136.`", ",", "0.`", ",", "0.`", ",", "136.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"136.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "136.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"80.97495778708729`", ",", "0.`", ",", 
+            RowBox[{"-", "80.97495778708729`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"64.43515320119106`", ",", 
+            RowBox[{"-", "10.`"}], ",", "63.65444971139852`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {136., 0., 0., 136.}, $CellContext`p2 -> {
+      136., 0., 0., -136.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {80.97495778708729, 
+      0., -80.97495778708729, 0.}, $CellContext`p5 -> {
+      64.43515320119106, -10., 63.65444971139852, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731787275321*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc719073-7a5e-4625-913e-7e63dd8e6ea7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.841332089525519307182180533700462614927577529183296709030607074`\
+43.529533222125764*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.79061927405504", ",", "0``57.565431095965806"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.841332089525519307182180533700462614927577529183296709030607074`43.\
+529533222125764*^-14, 0``58.69897000433602, 0``57.79061927405504, 
+    0``57.565431095965806}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973178728587*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2860fda4-6f51-4710-9cf3-8a14126b26f5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317872948933`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"519dd11c-03a0-4672-8c55-37afc4da5690"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "80.9749577870872911944`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "73984.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "18807.4498111882826280171`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "18807.4498111882826280171`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "22025.1885180877432048874`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "22025.1885180877432048874`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "38931.2766585520540387393`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "272.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "197.3101027787276128222`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.15709820830026456428869920885185868522`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "64.4351532011910630834`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "173.0133606512066644199`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731787304524*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9dd08ccc-f611-4b3e-9b0c-f99e16fe1eee"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "108.48722627737226`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 108.48722627737226`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973179781131*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f8337edf-04cb-4aeb-95f1-dd570654ad1e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"137.`", ",", "0.`", ",", "0.`", ",", "137.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"137.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "137.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"81.98095906214935`", ",", "0.`", ",", 
+            RowBox[{"-", "81.98095906214935`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"65.42915192612901`", ",", 
+            RowBox[{"-", "10.`"}], ",", "64.66045098646057`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {137., 0., 0., 137.}, $CellContext`p2 -> {
+      137., 0., 0., -137.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {81.98095906214935, 
+      0., -81.98095906214935, 0.}, $CellContext`p5 -> {
+      65.42915192612901, -10., 64.66045098646057, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797317978200483`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5775c058-b8b8-43a7-997d-77e772453bfb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.441691910492800484683802128226629428576721934241307509203671955`\
+43.420091903099745*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.78525700968998", ",", "0``57.56224943717962"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.441691910492800484683802128226629428576721934241307509203671955`43.\
+420091903099745*^-14, 0``58.69897000433602, 0``57.78525700968998, 
+    0``57.56224943717962}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731797828548*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f555b6a-c55e-416f-bc77-351c2ffd8b56"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731797839485*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"29c3d3c4-8c0c-445f-89fa-966caf442daa"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "81.9809590621493526896`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "75076.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "19060.6295892117258826349`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "19060.6295892117258826349`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "22462.7827830289226369587`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "22462.7827830289226369587`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "39220.8247444812989257607`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "274.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "198.0424821710768674786`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.15465404041326476435869657887403999299`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "65.4291519261290055846`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "173.6388045165657928702`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731797848443*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"03f3f5aa-618b-498d-bd81-7ffd69732c04"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "109.69384057971014`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 109.69384057971014`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731808681476*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"953082c2-5572-43e2-9ff6-671801a1ba9f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"138.`", ",", "0.`", ",", "0.`", ",", "138.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"138.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "138.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"82.98677860375383`", ",", "0.`", ",", 
+            RowBox[{"-", "82.98677860375383`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"66.42333238452454`", ",", 
+            RowBox[{"-", "10.`"}], ",", "65.66627052806506`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {138., 0., 0., 138.}, $CellContext`p2 -> {
+      138., 0., 0., -138.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {82.98677860375383, 
+      0., -82.98677860375383, 0.}, $CellContext`p5 -> {
+      66.42333238452454, -10., 65.66627052806506, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973180869109*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9a11ab30-c911-46f1-80e8-b16fdbe0d862"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.79668526883497829102268147068580652235974997231722179958303994`\
+42.70470451710171*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.77996109794564", ",", "0``57.559090917934775"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.79668526883497829102268147068580652235974997231722179958303994`42.\
+70470451710171*^-15, 0``58.69897000433602, 0``57.77996109794564, 
+    0``57.559090917934775}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731808700025*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9b58aebd-680f-4145-8798-c3ae04064c13"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318087086153`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b189e543-e746-446b-8721-eaa14c6a55ab"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "82.9867786037538337496`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "76176.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "19313.8093672351691372527`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "19313.8093672351691372527`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "22904.3508946360581148838`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "22904.3508946360581148838`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "39510.3205237424548758032`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "276.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "198.7720315430278407251`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.15228518263003998511489193932174294058`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "66.4233323845245361449`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "174.2621536958839571045`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731808717491*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa425807-82e6-4dbd-886e-2aa3ec9c87ec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "110.8974820143885`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 110.8974820143885}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318186163673`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9500183d-1b7c-41c7-b249-c040a359e7f1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"139.`", ",", "0.`", ",", "0.`", ",", "139.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"139.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "139.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"83.99242454378209`", ",", "0.`", ",", 
+            RowBox[{"-", "83.99242454378209`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"67.41768644449625`", ",", 
+            RowBox[{"-", "10.`"}], ",", "66.67191646809331`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {139., 0., 0., 139.}, $CellContext`p2 -> {
+      139., 0., 0., -139.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {83.99242454378209, 
+      0., -83.99242454378209, 0.}, $CellContext`p5 -> {
+      67.41768644449625, -10., 66.67191646809331, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731818625721*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eb9df199-df9d-4ef0-a840-3f0455697218"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.117603540762503625305529540486065872054631867808370420430507133`\
+43.748746094445046*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.77472988645502", ",", "0``57.55595520408193"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.117603540762503625305529540486065872054631867808370420430507133`43.\
+748746094445046*^-14, 0``58.69897000433602, 0``57.77472988645502, 
+    0``57.55595520408193}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731818634492*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9ad95d34-210a-4be8-836c-fe820a72fc71"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318186432056`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7ecbda30-306b-4666-a33b-4c4712b4fc57"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "83.9924245437820928828`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "77284.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "19566.9891452586123918704`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "19566.9891452586123918704`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "23349.8940231714218214165`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "23349.8940231714218214165`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "39799.7663368600726302062`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "278.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "199.4987878079966495669`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.14998818887688079514177099236880463667`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "67.4176864444962486323`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "174.8834238961976186194`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731818652026*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1dfe6795-96d5-4846-a29a-703b400dc174"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "112.09821428571428`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 112.09821428571428`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731828561131*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9bd9191c-53c4-4e7f-923c-3fea9d18acd4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"140.`", ",", "0.`", ",", "0.`", ",", "140.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"140.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "140.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"84.99790453608453`", ",", "0.`", ",", 
+            RowBox[{"-", "84.99790453608453`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"68.41220645219381`", ",", 
+            RowBox[{"-", "10.`"}], ",", "67.67739646039576`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {140., 0., 0., 140.}, $CellContext`p2 -> {
+      140., 0., 0., -140.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {84.99790453608453, 
+      0., -84.99790453608453, 0.}, $CellContext`p5 -> {
+      68.41220645219381, -10., 67.67739646039576, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731828570311*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e69cf388-4443-47b4-b2fc-a52756a2ce16"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.76724932233187520155615587733006017488285595965270793188905003`\
+43.69386026275816*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.769561785205646", ",", "0``57.55284196865779"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.76724932233187520155615587733006017488285595965270793188905003`43.\
+69386026275816*^-14, 0``58.69897000433602, 0``57.769561785205646, 
+    0``57.55284196865779}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731828579111*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"907842a1-1ab8-47cd-a5cf-cc9ca62b6400"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731828587756*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5790939d-3e9a-4226-8674-62bd06029aa2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "84.9979045360845333335`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "78400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "19820.1689232820556464882`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "19820.1689232820556464882`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "23799.4132701036693333663`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "23799.4132701036693333663`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "40089.1643867714537459816`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "280.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "200.222786881941721079`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.14775982119601653651333407211128100458`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "68.4122064521938116852`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "175.5026309198601459554`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731828596758*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8a26fa47-5607-4804-8e5d-ba23ad61a3d9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "113.29609929078013`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 113.29609929078013`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318384117393`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e9bccd57-4ba2-4e7c-acf6-2febbbe9d8a4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"141.`", ",", "0.`", ",", "0.`", ",", "141.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"141.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "141.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"86.00322579109795`", ",", "0.`", ",", 
+            RowBox[{"-", "86.00322579109795`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"69.40688519718042`", ",", 
+            RowBox[{"-", "10.`"}], ",", "68.68271771540917`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {141., 0., 0., 141.}, $CellContext`p2 -> {
+      141., 0., 0., -141.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {86.00322579109795, 
+      0., -86.00322579109795, 0.}, $CellContext`p5 -> {
+      69.40688519718042, -10., 68.68271771540917, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731838420521*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"64fdd57a-7388-4fc5-860d-d926d1a9fddb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.567834217810967577006381107073351872942300703859653132186977727`\
+43.44402103466081*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.76445526335989", ",", "0``57.549750891680645"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.567834217810967577006381107073351872942300703859653132186977727`43.\
+44402103466081*^-14, 0``58.69897000433602, 0``57.76445526335989, 
+    0``57.549750891680645}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731838428768*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9763b1ec-451d-40ad-b072-bd6d0c55cae1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731838437027*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"60165c10-267e-4974-a809-8d691a6a61d6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "86.0032257910979467397`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "79524.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "20073.3487013054989011059`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "20073.3487013054989011059`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "24252.9096730896209805906`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "24252.9096730896209805906`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "40378.5167487902419397628`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "282.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "200.9440637311544019222`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.14559703419767954223863756627934379117`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "69.4068851971804102731`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "176.119790636432315437`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731838445373*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"49f0de69-5e03-4942-8b82-1ef43f2a84cd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "114.49119718309859`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 114.49119718309859`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318481722383`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"97e5f231-f4ff-4b22-b6ef-015c2a2a294b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"142.`", ",", "0.`", ",", "0.`", ",", "142.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"142.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "142.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"87.00839510749769`", ",", "0.`", ",", 
+            RowBox[{"-", "87.00839510749769`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"70.40171588078064`", ",", 
+            RowBox[{"-", "10.`"}], ",", "69.68788703180891`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {142., 0., 0., 142.}, $CellContext`p2 -> {
+      142., 0., 0., -142.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {87.00839510749769, 
+      0., -87.00839510749769, 0.}, $CellContext`p5 -> {
+      70.40171588078064, -10., 69.68788703180891, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731848181616*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e57b4991-c450-470f-9da5-21730b0d53f3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.754810779396179347070781787110915249091148197512417316153971235`\
+43.82023972026706*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.75940884628104", ",", "0``57.54668165995296"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.754810779396179347070781787110915249091148197512417316153971235`43.\
+82023972026706*^-14, 0``58.69897000433602, 0``57.75940884628104, 
+    0``57.54668165995296}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731848190625*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23e04291-c668-440c-bc4e-d90abecbd353"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731848199445*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6489e4c0-7e12-47ad-877b-7538f37c202c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "87.0083951074976909013`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "80656.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "20326.5284793289421557238`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "20326.5284793289421557238`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "24710.3842105293442159564`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "24710.3842105293442159564`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "40667.8253797165780302627`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "284.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "201.662652416645006376`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.14349696089128828002263174564734559258`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "70.4017158807806442417`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "176.7349189575769624026`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318482083063`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"95381391-9122-4086-84dc-4c8c080a749d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "115.68356643356644`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.68356643356644`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731858015826*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"74d0dd35-911e-44c8-bb6a-b4c85373c81a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"143.`", ",", "0.`", ",", "0.`", ",", "143.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"143.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "143.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"88.01341890117676`", ",", "0.`", ",", 
+            RowBox[{"-", "88.01341890117676`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"71.39669208710161`", ",", 
+            RowBox[{"-", "10.`"}], ",", "70.69291082548798`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {143., 0., 0., 143.}, $CellContext`p2 -> {
+      143., 0., 0., -143.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {88.01341890117676, 
+      0., -88.01341890117676, 0.}, $CellContext`p5 -> {
+      71.39669208710161, -10., 70.69291082548798, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731858025223*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0575132d-c8cb-445f-8fba-284cb2b87024"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.57002401104258664013673459828581403594570957450379123255365135`\
+42.795275108279455*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.754421112748936", ",", "0``57.543633966870956"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.57002401104258664013673459828581403594570957450379123255365135`42.\
+795275108279455*^-15, 0``58.69897000433602, 0``57.754421112748936, 
+    0``57.543633966870956}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731858034018*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"adb5559c-b209-4062-83c9-5c869a56f6c8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973185804289*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e866bc4-6fab-424a-86d7-d30704220106"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "88.0134189011767631428`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "81796.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "20579.7082573523854103415`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "20579.7082573523854103415`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "25171.8378057365542588286`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "25171.8378057365542588286`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "40957.0921261778798481161`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "286.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "202.3785861354354848338`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.14145689975457267384545940963790414608`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "71.3966920871016059783`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "177.3480318146409260249`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731858051888*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"67f35bfd-350a-4e93-be87-1a1ca1c9b386"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "116.87326388888889`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 116.87326388888889`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731867843155*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9d548cab-4d73-4eb8-8c5c-3c1435bc3cd4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"144.`", ",", "0.`", ",", "0.`", ",", "144.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"144.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "144.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"89.0183032318112`", ",", "0.`", ",", 
+            RowBox[{"-", "89.0183032318112`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"72.39180775646712`", ",", 
+            RowBox[{"-", "10.`"}], ",", "71.69779515612242`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {144., 0., 0., 144.}, $CellContext`p2 -> {
+      144., 0., 0., -144.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {89.0183032318112, 
+      0., -89.0183032318112, 0.}, $CellContext`p5 -> {72.39180775646712, -10.,
+       71.69779515612242, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731867854334*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"91496764-fb82-4fed-a999-14781d8ddaea"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.098392234823624358690554647036525817347902839525148024984032539`\
+43.94701076059092*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.74949069235047", ",", "0``57.54060751224077"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.098392234823624358690554647036525817347902839525148024984032539`43.\
+94701076059092*^-14, 0``58.69897000433602, 0``57.74949069235047, 
+    0``57.54060751224077}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731867863297*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8afd6fc0-4282-47cb-945b-340cc25fedf1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731867872027*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"243103c3-9d39-4843-8481-8f4b48b2d669"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "89.018303231811202636`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "82944.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "20832.8880353758286649593`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "20832.8880353758286649593`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "25637.2713307616263591626`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "25637.2713307616263591626`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "41246.3187322749174298804`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "288.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "203.0918972590362045877`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13947430291580003189739540204478159606`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "72.3918077564671190712`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "177.9591451386433441583`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731867880952*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ea2c482b-3c9c-4d2c-903e-4cfe64293085"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "118.0603448275862`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 118.0603448275862}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318776656103`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2b2a4c27-a555-4995-b95f-d67903e2fcc1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", "145.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "145.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"90.0230538272438`", ",", "0.`", ",", 
+            RowBox[{"-", "90.0230538272438`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"73.38705716103455`", ",", 
+            RowBox[{"-", "10.`"}], ",", "72.70254575155502`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {145., 0., 0., 145.}, $CellContext`p2 -> {
+      145., 0., 0., -145.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {90.0230538272438, 
+      0., -90.0230538272438, 0.}, $CellContext`p5 -> {73.38705716103455, -10.,
+       72.70254575155502, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731877675128*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6686b9f5-50f7-480f-bc34-ea10425a3ae7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.681807256124894446480014001554702496057437120645839444492452683`\
+43.664999567943184*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.744616263031666", ",", "0``57.537602002101046"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.681807256124894446480014001554702496057437120645839444492452683`43.\
+664999567943184*^-14, 0``58.69897000433602, 0``57.744616263031666, 
+    0``57.537602002101046}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731877684148*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ecd3ccec-bf6f-4ff4-abfa-2a4203879fab"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731877693338*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e8fb66e2-96a2-44f8-9166-3d8fb8f9932e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "90.0230538272437996739`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "84100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "21086.0678133992719195771`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "21086.0678133992719195771`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "26106.685609900701905417`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "26106.685609900701905417`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "41535.506846599951586187`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "290.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "203.8026173693555673276`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13754676533849038019543946132928078401`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "73.3870571610345461992`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "178.5682748424215063912`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318777024937`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"638adbb5-3f17-4216-8a91-5541d085e9ea"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "119.24486301369862`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 119.24486301369862`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731887453837*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"738834b4-4d35-42be-956f-7367b51480c1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"146.`", ",", "0.`", ",", "0.`", ",", "146.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"146.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "146.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"91.02767610589144`", ",", "0.`", ",", 
+            RowBox[{"-", "91.02767610589144`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"74.38243488238692`", ",", 
+            RowBox[{"-", "10.`"}], ",", "73.70716803020267`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {146., 0., 0., 146.}, $CellContext`p2 -> {
+      146., 0., 0., -146.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {91.02767610589144, 
+      0., -91.02767610589144, 0.}, $CellContext`p5 -> {
+      74.38243488238692, -10., 73.70716803020267, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731887463263*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6ef0c1af-d916-483f-bb0e-671b760f581b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.98432384856991757641538810365768747282271473249564345766888408`\
+43.01060224072548*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.739796548798836", ",", "0``57.534617148551575"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.98432384856991757641538810365768747282271473249564345766888408`43.\
+01060224072548*^-15, 0``58.69897000433602, 0``57.739796548798836, 
+    0``57.534617148551575}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731887472274*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"256364b9-14f5-4d74-961f-1570662e21fb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318874810963`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0bff2f23-78de-46f7-b6fd-5709cb524b42"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "91.0276761058914445357`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "85264.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "21339.2475914227151741948`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "21339.2475914227151741948`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "26580.0814229203018044245`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "26580.0814229203018044245`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "41824.6580286860348474959`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "292.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "204.5107772922640740886`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13567201491044049729724889911780747391`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "74.3824348823869221711`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "179.1754368047121407262`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973188749014*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aba953b8-4618-4c0d-b503-436a0ac59697"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "120.42687074829932`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 120.42687074829932`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731897653143*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"91716b3f-79aa-4d56-ae2d-c00c369c2850"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"147.`", ",", "0.`", ",", "0.`", ",", "147.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"147.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "147.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"92.03217519736133`", ",", "0.`", ",", 
+            RowBox[{"-", "92.03217519736133`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"75.37793579091701`", ",", 
+            RowBox[{"-", "10.`"}], ",", "74.71166712167255`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {147., 0., 0., 147.}, $CellContext`p2 -> {
+      147., 0., 0., -147.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {92.03217519736133, 
+      0., -92.03217519736133, 0.}, $CellContext`p5 -> {
+      75.37793579091701, -10., 74.71166712167255, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731897662283*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1e829729-1df8-4365-b323-e9724a26e35f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.676975027193165765431051439688166103111001414811331385922601653`\
+43.79611335421725*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.73503031755832", ",", "0``57.53165266958784"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.676975027193165765431051439688166103111001414811331385922601653`43.\
+79611335421725*^-14, 0``58.69897000433602, 0``57.73503031755832, 
+    0``57.53165266958784}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797318976711493`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d401ca0c-c74a-4461-ac96-fd97c2467801"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731897679755*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d4a67a76-6b15-4432-ac95-2571b56849dd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "92.0321751973613260134`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "86436.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "21592.4273694461584288126`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "21592.4273694461584288126`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "27057.4595080242298479334`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "27057.4595080242298479334`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "42113.7737549407820967477`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "294.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "205.2164071290129133781`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13384790334974568129078262582760913924`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "75.377935790917009908`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "179.7806468559714729216`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731897688574*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0de435d0-0490-48d2-87cb-383bb669c4f2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "121.60641891891892`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 121.60641891891892`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731907419726*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1ad91b39-9b34-49f0-b533-725463ae7f12"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"148.`", ",", "0.`", ",", "0.`", ",", "148.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"148.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "148.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"93.03655596144044`", ",", "0.`", ",", 
+            RowBox[{"-", "93.03655596144044`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"76.37355502683792`", ",", 
+            RowBox[{"-", "10.`"}], ",", "75.71604788575166`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {148., 0., 0., 148.}, $CellContext`p2 -> {
+      148., 0., 0., -148.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {93.03655596144044, 
+      0., -93.03655596144044, 0.}, $CellContext`p5 -> {
+      76.37355502683792, -10., 75.71604788575166, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731907429306*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5977b943-9d72-4dbc-b78b-68a9470dfd11"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.055305815180351687347319404829361817109799743353310161204267993`\
+43.25105662456908*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.730316379084094", ",", "0``57.528708288941054"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.055305815180351687347319404829361817109799743353310161204267993`43.\
+25105662456908*^-14, 0``58.69897000433602, 0``57.730316379084094, 
+    0``57.528708288941054}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319074390383`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13ed0b1f-d321-44ca-b360-6011ab2de075"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319074481173`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"67ff1dda-e711-4f59-92c6-f5a3321e129e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "93.0365559614404418198`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "87616.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "21845.6071474696016834304`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "21845.6071474696016834304`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "27538.8205645863707786702`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "27538.8205645863707786702`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "42402.8554241119465361504`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "296.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "205.9195362856859838071`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13207239785004430026224196586783527924`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "76.3735550268379203182`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "180.3839207657579832296`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319074570627`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cc6c3494-3d0c-4bef-9a8a-b36e3b599b24"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "122.78355704697987`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 122.78355704697987`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731917179455*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b14e5fd2-8bf7-4e8e-bc87-a75ed4a4114b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"149.`", ",", "0.`", ",", "0.`", ",", "149.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"149.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "149.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"94.04082300560603`", ",", "0.`", ",", 
+            RowBox[{"-", "94.04082300560603`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"77.36928798267233`", ",", 
+            RowBox[{"-", "10.`"}], ",", "76.72031492991725`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {149., 0., 0., 149.}, $CellContext`p2 -> {
+      149., 0., 0., -149.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {94.04082300560603, 
+      0., -94.04082300560603, 0.}, $CellContext`p5 -> {
+      77.36928798267233, -10., 76.72031492991725, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731917188925*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"96e0f4da-eb72-46a1-b03f-b67cba97449b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.619275811460566993749561269090905982040488572178919578630023517`\
+43.43407456874965*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.72565358310442", ",", "0``57.52578373592374"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.619275811460566993749561269090905982040488572178919578630023517`43.\
+43407456874965*^-14, 0``58.69897000433602, 0``57.72565358310442, 
+    0``57.52578373592374}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731917197974*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d9287d20-0e0b-4e4c-8554-d575aaf15739"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731917206813*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cafcff0e-9d34-4f34-894a-2f15f32388ad"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "94.0408230056060290281`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "88804.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "22098.7869254930449380482`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "22098.7869254930449380482`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "28024.1652556705966503614`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "28024.1652556705966503614`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "42691.9043623272856824634`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "298.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "206.620193500846585773`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.13034357339558414579286000587009393554`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "77.3692879826723274703`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "180.9852742315208364421`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319172157097`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"76f9e8a6-fe68-4795-b2a0-4d245a3bd4c7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973192701152*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"82a72115-f980-4026-aa1f-11dde59f6eb4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "150.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"95.04498070119013`", ",", "0.`", ",", 
+            RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"78.3651302870882`", ",", 
+            RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+      150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013, 
+      0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
+       77.72447262550135, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319270209208`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e46eb5c4-ce80-4dad-bc68-4ad86e866bc1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
+43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
+811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894, 
+    0``57.522878745280345}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731927030562*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6b0266a7-d440-4df9-98c5-9033b4d6a63f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731927039486*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b3e8f517-0b19-4998-995e-9ec0b1674d77"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "90000.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "22351.9667035164881926659`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "22351.9667035164881926659`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "28513.4942103570381277677`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "28513.4942103570381277677`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "300.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731927048592*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eed80122-c0ae-400f-8b77-06a166122918"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "125.13079470198676`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 125.13079470198676`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731936846716*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e3d0318f-1780-49c8-8d68-8edc0751ee64"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"151.`", ",", "0.`", ",", "0.`", ",", "151.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"151.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "151.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"96.04903319831699`", ",", "0.`", ",", 
+            RowBox[{"-", "96.04903319831699`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"79.36107778996139`", ",", 
+            RowBox[{"-", "10.`"}], ",", "78.72852512262821`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {151., 0., 0., 151.}, $CellContext`p2 -> {
+      151., 0., 0., -151.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {96.04903319831699, 
+      0., -96.04903319831699, 0.}, $CellContext`p5 -> {
+      79.36107778996139, -10., 78.72852512262821, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731936856183*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9aa6896b-a18a-4723-9fac-4643e317be6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.75290518014014908204859201701295911031071816931252205202060774`42.\
+89592221163982*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.716477006598474", ",", "0``57.51999305704285"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.75290518014014908204859201701295911031071816931252205202060774`42.\
+89592221163982*^-15, 0``58.69897000433602, 0``57.716477006598474, 
+    0``57.51999305704285}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319368651648`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0bbf94e2-166a-4536-a0e1-27054e430195"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731936874013*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"39684e04-c54e-4fc7-a827-6ed4e78c733d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "96.0490331983169909336`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "91204.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "22605.1464815399314472837`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "22605.1464815399314472837`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "29006.808025891731261936`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "29006.808025891731261936`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "43269.909014863324664048`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "302.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "208.0142038776759221911`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.12701876460182526275621303226051119992`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "79.3610777899613865105`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "182.1822822016908960257`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973193688309*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e1efed3-be0e-421a-ae4a-bed8bc11562a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "126.30098684210526`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 126.30098684210526`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731946670775*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7a643a1e-b729-4f94-989a-32f46a3cd491"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"152.`", ",", "0.`", ",", "0.`", ",", "152.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"152.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "152.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"97.0529844397207`", ",", "0.`", ",", 
+            RowBox[{"-", "97.0529844397207`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"80.35712654855766`", ",", 
+            RowBox[{"-", "10.`"}], ",", "79.73247636403192`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {152., 0., 0., 152.}, $CellContext`p2 -> {
+      152., 0., 0., -152.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {97.0529844397207, 
+      0., -97.0529844397207, 0.}, $CellContext`p5 -> {80.35712654855766, -10.,
+       79.73247636403192, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731946680099*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"55d2fb5f-6bc7-4fbd-9a5d-2e36d59e1d38"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.43085839169407722242913095067797848531275249362667191702553977`\
+43.19064764451546*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.71196110958047", ",", "0``57.51712641639125"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.43085839169407722242913095067797848531275249362667191702553977`43.\
+19064764451546*^-15, 0``58.69897000433602, 0``57.71196110958047, 
+    0``57.51712641639125}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731946689042*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb6c09e0-cde9-4e44-958f-4d57beda4cf1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731946698007*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9f446963-39c4-4df6-9192-b3d38014a23a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "97.0529844397207028805`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "92416.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "22858.3262595633747019015`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "22858.3262595633747019015`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "29504.1072696750936756871`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "29504.1072696750936756871`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "43558.8670584769382708505`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "304.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "208.7076114052310701469`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1254194082012871490393847057759588745`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "80.3571265485576603797`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "182.7779676565253002136`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731946706975*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d5ec2336-d2b1-49ed-8cf9-e46f58d05d57"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "127.46895424836602`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 127.46895424836602`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731956592394*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aa6379c3-03c5-443c-bef3-256b10fd03a7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"153.`", ",", "0.`", ",", "0.`", ",", "153.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"153.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "153.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"98.05683817354016`", ",", "0.`", ",", 
+            RowBox[{"-", "98.05683817354016`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"81.3532728147382`", ",", 
+            RowBox[{"-", "10.`"}], ",", "80.73633009785138`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {153., 0., 0., 153.}, $CellContext`p2 -> {
+      153., 0., 0., -153.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {98.05683817354016, 
+      0., -98.05683817354016, 0.}, $CellContext`p5 -> {81.3532728147382, -10.,
+       80.73633009785138, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731956603435*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3160caf0-e168-4328-94ed-cc3b35d869ba"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.85546965254823324433507921883280955963850424570165572882758987`\
+42.79932586687863*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.70749211895352", ",", "0``57.51427857351842"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.85546965254823324433507921883280955963850424570165572882758987`42.\
+79932586687863*^-15, 0``58.69897000433602, 0``57.70749211895352, 
+    0``57.51427857351842}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319566143312`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f4d41b27-e4b1-4000-be91-993bb9198e80"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731956632712*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6aa7c578-027d-470a-a7e9-daa9adcf252c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "98.0568381735401572996`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "93636.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "23111.5060375868179565193`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "23111.5060375868179565193`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "30005.3924811032881336814`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "30005.3924811032881336814`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "43847.7970373802128077115`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "306.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "209.3986557678444429792`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.12385997713644068004904390554080359092`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "81.353272814738211536`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "183.3717945535611049941`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731956646223*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5b77c32a-d165-4829-891a-a4117d1021f0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "128.63474025974025`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 128.63474025974025`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731967562984*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb1df350-7707-438f-8ac3-7bed75fb8beb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"154.`", ",", "0.`", ",", "0.`", ",", "154.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"154.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "154.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"99.06059796517799`", ",", "0.`", ",", 
+            RowBox[{"-", "99.06059796517799`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"82.34951302310037`", ",", 
+            RowBox[{"-", "10.`"}], ",", "81.74008988948921`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {154., 0., 0., 154.}, $CellContext`p2 -> {
+      154., 0., 0., -154.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {99.06059796517799, 
+      0., -99.06059796517799, 0.}, $CellContext`p5 -> {
+      82.34951302310037, -10., 81.74008988948921, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731967576599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"27c9c023-1fd2-413b-8157-ff422e522c6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.252185428855971904048034220766753357265672720431287962632755831`\
+43.30808793361572*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.703069059124935", ",", "0``57.51144928349955"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.252185428855971904048034220766753357265672720431287962632755831`43.\
+30808793361572*^-14, 0``58.69897000433602, 0``57.703069059124935, 
+    0``57.51144928349955}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319675894823`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2f8504ad-d81d-4adf-82eb-d72f4a2a0ab6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731967606935*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"38390dc4-805c-4e8d-a8bf-fc5b934582d4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "99.0605979651779904316`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "94864.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "23364.685815610261211137`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "23364.685815610261211137`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "30510.664173274821052928`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "30510.664173274821052928`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "44136.6999777701665904673`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "308.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "210.0873627274381456161`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.12233898951566822916499384015500150585`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "82.3495130231003697377`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "183.9637781016968368936`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731967622415*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3dea0df2-c53d-4c8f-907a-5b37cad3453e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319784803057`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a09ed1b-8a32-4b4a-b02a-1c0bb2d7c491"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "155.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"100.06426720830291`", ",", "0.`", ",", 
+            RowBox[{"-", "100.06426720830291`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"83.34584377997541`", ",", 
+            RowBox[{"-", "10.`"}], ",", "82.74375913261413`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {155., 0., 0., 155.}, $CellContext`p2 -> {
+      155., 0., 0., -155.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {100.06426720830291`, 
+      0., -100.06426720830291`, 0.}, $CellContext`p5 -> {
+      83.34584377997541, -10., 82.74375913261413, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731978495178*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f1b8bd2b-0a8e-4ea9-addf-f1615b353eff"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.798544610675157123465611696424417056534299503158204543759852266`\
+43.97092731322533*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.698690985046035", ",", "0``57.50863830616573"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.798544610675157123465611696424417056534299503158204543759852266`43.\
+97092731322533*^-14, 0``58.69897000433602, 0``57.698690985046035, 
+    0``57.50863830616573}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319785096893`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"324f09ba-4b13-4220-a97f-e970644f7a73"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797319785269117`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0bd124e8-29fd-4fd7-b163-fa7f346cee77"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "100.0642672083029083296`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "96100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "23617.8655936337044657548`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "23617.8655936337044657548`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "31019.9228345739015821891`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "31019.9228345739015821891`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "44425.5768564152217615797`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "310.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "210.7737575136317148291`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.12085503613599321581184351047099920758`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "83.345843779975406376`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "184.553933393065812731`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973197854314*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3a9960cf-27d8-4cb7-b151-20c0b1270bec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "130.95993589743588`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 130.95993589743588`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731989123253*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"80923af9-45dc-425e-a85c-5c566e7b6a6b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"156.`", ",", "0.`", ",", "0.`", ",", "156.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"156.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "156.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"101.06784913506657`", ",", "0.`", ",", 
+            RowBox[{"-", "101.06784913506657`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"84.3422618532118`", ",", 
+            RowBox[{"-", "10.`"}], ",", "83.74734105937779`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {156., 0., 0., 156.}, $CellContext`p2 -> {
+      156., 0., 0., -156.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {101.06784913506657`, 
+      0., -101.06784913506657`, 0.}, $CellContext`p5 -> {
+      84.3422618532118, -10., 83.74734105937779, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731989134225*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e94ba09-a09c-45fb-96ec-e01a43510d98"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.017579917639271191489432343876321049373115201585759847913536962`\
+43.212383937725185*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.694356980929804", ",", "0``57.50584540598155"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.017579917639271191489432343876321049373115201585759847913536962`43.\
+212383937725185*^-14, 0``58.69897000433602, 0``57.694356980929804, 
+    0``57.50584540598155}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731989143908*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f6bd7cac-ff51-49c3-b47c-6380ead2adcd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731989153441*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b8258aa8-8cad-4a45-bd95-b9fd0a8bf90d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "101.0678491350665666459`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "97344.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "23871.0453716571477203726`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "23871.0453716571477203726`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "31533.1689301407687935352`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "31533.1689301407687935352`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "44714.4286035958347443155`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "312.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "211.4578648421378408398`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1194067760659993859756896856612486895`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "84.3422618532117958694`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "185.142275398457977686`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779731989163126*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd048507-b6cd-4130-bf7e-377c0b368b30"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "132.11942675159236`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.11942675159236`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732000121853*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6388fd3f-29bf-4c9d-8367-847073eec5e9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"157.`", ",", "0.`", ",", "0.`", ",", "157.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"157.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "157.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"102.07134682559936`", ",", "0.`", ",", 
+            RowBox[{"-", "102.07134682559936`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"85.338764162679`", ",", 
+            RowBox[{"-", "10.`"}], ",", "84.75083874991059`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {157., 0., 0., 157.}, $CellContext`p2 -> {
+      157., 0., 0., -157.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {102.07134682559936`, 
+      0., -102.07134682559936`, 0.}, $CellContext`p5 -> {
+      85.338764162679, -10., 84.75083874991059, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732000131987*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"447e7bf9-37c6-4da3-96b4-61923a30c314"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.40524298746586691234288109154313174681373025961576029673934461`\
+42.84601022478956*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.69006615903635", ",", "0``57.50307035192678"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.40524298746586691234288109154313174681373025961576029673934461`42.\
+84601022478956*^-15, 0``58.69897000433602, 0``57.69006615903635, 
+    0``57.50307035192678}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732000144014*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3bd2ef56-19e4-4676-99f0-0b6ca52e839c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732000152763*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"75397881-2392-4bbf-84fa-a23ca93b016d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "102.0713468255993632283`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "98596.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "24124.2251496805909749903`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "24124.2251496805909749903`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "32050.4029032382000536927`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "32050.4029032382000536927`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "45003.2561058375828092421`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "314.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "212.139708932197752295`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1179929325479454291951974797816580628`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "85.3387641626790050576`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "185.7288189633574287253`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320001614313`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"749e0106-0166-4247-a983-9ee3b5fea6f3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "133.27689873417722`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 133.27689873417722`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973201088694*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f6db08a0-7085-46be-b657-e9782dbaa95f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"158.`", ",", "0.`", ",", "0.`", ",", "158.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"158.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "158.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"103.07476321684447`", ",", "0.`", ",", 
+            RowBox[{"-", "103.07476321684447`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"86.33534777143386`", ",", 
+            RowBox[{"-", "10.`"}], ",", "85.7542551411557`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {158., 0., 0., 158.}, $CellContext`p2 -> {
+      158., 0., 0., -158.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {103.07476321684447`, 
+      0., -103.07476321684447`, 0.}, $CellContext`p5 -> {
+      86.33534777143386, -10., 85.7542551411557, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320108965282`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a3608b85-157c-437b-ad15-d40af3c1defb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.240959830126906186757673438828795038280800040353837803478619235`\
+43.82674708061052*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.685817658521955", ",", "0``57.500312917381606"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.240959830126906186757673438828795038280800040353837803478619235`43.\
+82674708061052*^-14, 0``58.69897000433602, 0``57.685817658521955, 
+    0``57.500312917381606}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732010905717*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ca095d97-aeb7-4d6d-a3fd-d49196ce435e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732010914522*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8afff9ba-54f8-444e-88b2-4dba76490823"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "103.0747632168444738454`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "99856.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "24377.4049277040342296081`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "24377.4049277040342296081`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "32571.6251765228537351504`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "32571.6251765228537351504`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "45292.0602084537832524119`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "316.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "212.8193135231240784495`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.11661228919240812697060793488578076758`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "86.3353477714338564361`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "186.3135788045366125229`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732010923353*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"388d7836-fe39-4903-8f35-708519cf714f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "134.43238993710693`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 134.43238993710693`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973202140203*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f1a772c4-7017-4676-ba4d-c37ab34db620"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"159.`", ",", "0.`", ",", "0.`", ",", "159.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"159.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "159.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"104.07810111078277`", ",", "0.`", ",", 
+            RowBox[{"-", "104.07810111078277`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"87.33200987749561`", ",", 
+            RowBox[{"-", "10.`"}], ",", "86.75759303509399`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {159., 0., 0., 159.}, $CellContext`p2 -> {
+      159., 0., 0., -159.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {104.07810111078277`, 
+      0., -104.07810111078277`, 0.}, $CellContext`p5 -> {
+      87.33200987749561, -10., 86.75759303509399, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320214116373`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5c94f1a6-e1cc-4fbb-add6-e35857ebe546"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.34982384906502841718028716092735908644313404561425420184909417`42.\
+32681998146103*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.681610644347366", ",", "0``57.49757288001557"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.34982384906502841718028716092735908644313404561425420184909417`42.\
+32681998146103*^-15, 0``58.69897000433602, 0``57.681610644347366, 
+    0``57.49757288001557}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320214203*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13943621-44c9-454d-8791-c3ad2a4c86bb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732021428811*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"30b531e2-e09b-4fa9-9c24-02a1c4717a50"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "104.0781011107827680462`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "101124.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "24630.5847057274774842259`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "24630.5847057274774842259`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "33096.8361532289202386892`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "33096.8361532289202386892`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "45580.8417179127952100644`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "318.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "213.4967018900123318953`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.11526368644131167575801964329982782721`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "87.3320098774956059947`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "186.8965695071532341585`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973202143764*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aaa18800-d888-41f1-b3e8-1f815a0a5da4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "135.5859375`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 135.5859375}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732032541*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"74b04c5e-320c-44d9-8c7e-3649f2ead2aa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", "160.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "160.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"105.08136318209702`", ",", "0.`", ",", 
+            RowBox[{"-", "105.08136318209702`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"88.32874780618133`", ",", 
+            RowBox[{"-", "10.`"}], ",", "87.76085510640824`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {160., 0., 0., 160.}, $CellContext`p2 -> {
+      160., 0., 0., -160.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {105.08136318209702`, 
+      0., -105.08136318209702`, 0.}, $CellContext`p5 -> {
+      88.32874780618133, -10., 87.76085510640824, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320325623693`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c70d692-d013-4fe5-9e29-63a889d77812"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.315647236212468485324966756393451641943982677217856680465741455`\
+43.55849242604768*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.67744430624194", ",", "0``57.494850021680094"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.315647236212468485324966756393451641943982677217856680465741455`43.\
+55849242604768*^-14, 0``58.69897000433602, 0``57.67744430624194, 
+    0``57.494850021680094}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732032579035*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"897a2bc3-08c9-40ae-a8d2-7cba69f4ca08"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320325962753`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e734434c-59ef-4984-a876-0ed238039ea4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "105.0813631820970215358`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "102400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "24883.7644837509207388437`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "24883.7644837509207388437`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "33626.0362182710468914593`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "33626.0362182710468914593`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "45869.6014040439393513703`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "320.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "214.1718968586773743041`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.11394601827745643271241178234875140925`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "88.3287478061813279988`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "187.4778055223014825429`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732032615674*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"55d612ef-9d43-4d3a-8d64-a90410685b34"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "136.73757763975155`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 136.73757763975155`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732043725327*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c9424817-7f05-4e2d-b9aa-9c09972b5e9c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"161.`", ",", "0.`", ",", "0.`", ",", "161.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"161.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "161.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"106.08455198532013`", ",", "0.`", ",", 
+            RowBox[{"-", "106.08455198532013`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"89.32555900295819`", ",", 
+            RowBox[{"-", "10.`"}], ",", "88.76404390963135`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {161., 0., 0., 161.}, $CellContext`p2 -> {
+      161., 0., 0., -161.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {106.08455198532013`, 
+      0., -106.08455198532013`, 0.}, $CellContext`p5 -> {
+      89.32555900295819, -10., 88.76404390963135, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732043735991*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ad3dab4c-d792-4908-864c-d54b450452b8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.536256662938171148660148826591031798192890993799241544596192038`\
+43.9343303486109*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.67331785772015", ",", "0``57.492144128304176"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.536256662938171148660148826591031798192890993799241544596192038`43.\
+9343303486109*^-14, 0``58.69897000433602, 0``57.67331785772015, 
+    0``57.492144128304176}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732043745224*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"496cdfee-a075-4f4c-b2af-6091777f9c9e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732043754035*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"45195f2b-1687-4cbf-a94f-1d6d9657dcb0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "106.0845519853201324167`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "103684.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "25136.9442617743639934614`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "25136.9442617743639934614`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "34159.2257392730826381921`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "34159.2257392730826381921`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "46158.3400020949031538916`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "322.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "214.844920819866959111`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.11265822916068099615285225308525588311`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "89.3255590029581849118`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "188.057301164974211209`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732043763029*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"10ce226c-70a3-44e4-92e1-7a8fea40fa1e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "137.88734567901233`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 137.88734567901233`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320540080557`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4aa34a7f-6b5f-4243-9416-daf7f6d943a4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"162.`", ",", "0.`", ",", "0.`", ",", "162.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"162.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "162.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"107.08766996150669`", ",", "0.`", ",", 
+            RowBox[{"-", "107.08766996150669`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"90.32244102677164`", ",", 
+            RowBox[{"-", "10.`"}], ",", "89.76716188581791`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {162., 0., 0., 162.}, $CellContext`p2 -> {
+      162., 0., 0., -162.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {107.08766996150669`, 
+      0., -107.08766996150669`, 0.}, $CellContext`p5 -> {
+      90.32244102677164, -10., 89.76716188581791, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973205401755*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6d45ab4a-3017-4b42-9f6b-237be7280cbd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.933764143613869401713577913133380219450489822584644689943636533`\
+43.783233311533344*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.669230535146994", ",", "0``57.48945498979339"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.933764143613869401713577913133380219450489822584644689943636533`43.\
+783233311533344*^-14, 0``58.69897000433602, 0``57.669230535146994, 
+    0``57.48945498979339}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320540267677`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7b3d6b90-201f-4fd5-b453-0658d0775acf"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732054035655*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f9b2ef8c-c3f8-494e-a5b4-799560928c66"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "107.087669961506691152`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "104976.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "25390.1240397978072480792`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "25390.1240397978072480792`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "34696.4050675281679332329`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "34696.4050675281679332329`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "46447.0582146519574687678`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "324.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "215.5157957427992271216`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.11139931117260680758645595021587329451`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "90.3224410267716422015`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "188.6350706123960584128`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732054044661*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a700d899-bc6e-4514-831c-0330affd0c4b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "139.03527607361963`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 139.03527607361963`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732063866879*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"499fd5f4-ffee-46be-b4f4-ce04d49c3588"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"163.`", ",", "0.`", ",", "0.`", ",", "163.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"163.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "163.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"108.09071944446494`", ",", "0.`", ",", 
+            RowBox[{"-", "108.09071944446494`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"91.31939154381342`", ",", 
+            RowBox[{"-", "10.`"}], ",", "90.77021136877616`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {163., 0., 0., 163.}, $CellContext`p2 -> {
+      163., 0., 0., -163.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {108.09071944446494`, 
+      0., -108.09071944446494`, 0.}, $CellContext`p5 -> {
+      91.31939154381342, -10., 90.77021136877616, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320638792553`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13e9a373-340c-4407-8ff6-b4d5daa65075"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.627914165692559747835279139821195375961973831149872631177224826`\
+43.3973839065726*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.665181596849685", ",", "0``57.48678239993206"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.627914165692559747835279139821195375961973831149872631177224826`43.\
+3973839065726*^-14, 0``58.69897000433602, 0``57.665181596849685, 
+    0``57.48678239993206}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732063888051*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"46f9b31b-c2aa-468b-82e4-b35541fca63e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732063897172*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b56f9810-1b3e-4841-9708-ddaf957aaef4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "108.0907194444649377374`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "106276.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "25643.303817821250502697`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "25643.303817821250502697`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "35237.5745388955697023903`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "35237.5745388955697023903`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "46735.7567134336433833771`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "326.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "216.1845431880680117542`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.1101683013535415968579915729918790254`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "91.3193915438134186746`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "189.2111279026919534326`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732063906678*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9b51c6d2-c3fc-4b28-a68e-3fdf900e54b2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "140.1814024390244`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 140.1814024390244}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732073638773*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"988be67c-29e6-413b-a8a6-b5ab71f701a1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"164.`", ",", "0.`", ",", "0.`", ",", "164.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"164.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "164.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"109.09370266658259`", ",", "0.`", ",", 
+            RowBox[{"-", "109.09370266658259`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"92.31640832169577`", ",", 
+            RowBox[{"-", "10.`"}], ",", "91.77319459089381`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {164., 0., 0., 164.}, $CellContext`p2 -> {
+      164., 0., 0., -164.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {109.09370266658259`, 
+      0., -109.09370266658259`, 0.}, $CellContext`p5 -> {
+      92.31640832169577, -10., 91.77319459089381, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732073648199*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"094d6588-73b8-4a27-af3b-900e4c4ce922"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "7.3177621074302744915935058135276469281331342488425370256492663`43.\
+04747444755825*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.66117032227277", ",", "0``57.484126156288326"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-7.3177621074302744915935058135276469281331342488425370256492663`43.\
+04747444755825*^-15, 0``58.69897000433602, 0``57.66117032227277, 
+    0``57.484126156288326}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732073657053*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"559c97f8-2e9b-45f1-9962-fc8fbbac327d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732073666038*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"718bad13-8339-4b12-97e7-44e498be0e31"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "109.0937026665825868577`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "107584.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "25896.4835958446937573147`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "25896.4835958446937573147`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "35782.7344746390884893117`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "35782.7344746390884893117`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "47024.4361409675658443519`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "328.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "216.8511843199560804381`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10896427921658345543045539851017563192`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "92.3164083216957785157`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "189.7854869338586169479`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732073675097*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"71a03849-9cc8-4b0d-ba91-9206f915ea9f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732083411359*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"186fc374-2771-4696-bdf4-e55399999a41"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "165.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"110.09662176427692`", ",", "0.`", ",", 
+            RowBox[{"-", "110.09662176427692`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"93.31348922400144`", ",", 
+            RowBox[{"-", "10.`"}], ",", "92.77611368858814`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {165., 0., 0., 165.}, $CellContext`p2 -> {
+      165., 0., 0., -165.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {110.09662176427692`, 
+      0., -110.09662176427692`, 0.}, $CellContext`p5 -> {
+      93.31348922400144, -10., 92.77611368858814, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732083420862*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6fc98708-6e68-4b7a-83bf-801fdc4071fa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.608922410266737868290049163607647665020758462409887673440837738`\
+43.3869911653592*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.657196011173916", ",", "0``57.48148606012211"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.608922410266737868290049163607647665020758462409887673440837738`43.\
+3869911653592*^-14, 0``58.69897000433602, 0``57.657196011173916, 
+    0``57.48148606012211}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732083429935*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"275b227f-470e-4ba4-9e9d-195736dc3fac"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320834388323`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"07c10ec0-1a5b-46c9-8292-c5c653fdc998"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "110.0966217642769180429`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "108900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "26149.6633738681370119325`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "26149.6633738681370119325`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "36331.8851822113829541649`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "36331.8851822113829541649`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "47313.0971121590429348782`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "330.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "217.5157399181931453057`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10778636442528678963403670052967910275`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "93.313489224001438559`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "190.3581614630095838159`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797320834478073`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f814e990-660b-4426-b181-548ce484cddb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "142.46837349397592`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 142.46837349397592`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973209362887*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e17260ae-b43b-40e0-a6c7-7ccdde3f00cd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"166.`", ",", "0.`", ",", "0.`", ",", "166.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"166.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "166.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"111.09947878309717`", ",", "0.`", ",", 
+            RowBox[{"-", "111.09947878309717`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"94.31063220518121`", ",", 
+            RowBox[{"-", "10.`"}], ",", "93.77897070740839`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {166., 0., 0., 166.}, $CellContext`p2 -> {
+      166., 0., 0., -166.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {111.09947878309717`, 
+      0., -111.09947878309717`, 0.}, $CellContext`p5 -> {
+      94.31063220518121, -10., 93.77897070740839, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732093638439*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3d834568-bc00-4f23-ae00-0990b7402e5e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.515062329771573199693652807292743641792630679760056848584234`41.\
+83249567069435*^-16"}], ",", "0``58.69897000433602", ",", 
+     "0``57.65325798285829", ",", "0``57.47886191629596"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.515062329771573199693652807292743641792630679760056848584234`41.\
+83249567069435*^-16, 0``58.69897000433602, 0``57.65325798285829, 
+    0``57.47886191629596}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732093647418*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"098e7401-3ac7-4672-9129-4ab21e753254"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732093656208*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"407689a4-c6f1-4862-a08d-e223848aa11c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "111.0994787830971688436`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "110224.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "26402.8431518915802665503`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "26402.8431518915802665503`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "36885.0269559882600560741`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "36885.0269559882600560741`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "47601.7402157596807304124`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "332.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "218.1782303891927727595`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10663371462244056411787767503571291882`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "94.310632205181203396`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "190.929165105867154128`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732093665285*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9952fcbc-82ec-43b0-8023-110117d755a4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "143.60928143712576`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 143.60928143712576`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732103472805*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9fd101ee-90ac-4285-9110-68f5b60c68b5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"167.`", ",", "0.`", ",", "0.`", ",", "167.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"167.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "167.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"112.10227568250474`", ",", "0.`", ",", 
+            RowBox[{"-", "112.10227568250474`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"95.30783530577362`", ",", 
+            RowBox[{"-", "10.`"}], ",", "94.78176760681596`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {167., 0., 0., 167.}, $CellContext`p2 -> {
+      167., 0., 0., -167.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {112.10227568250474`, 
+      0., -112.10227568250474`, 0.}, $CellContext`p5 -> {
+      95.30783530577362, -10., 94.78176760681596, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732103484138*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e1ea6ea2-8fa5-4b10-a431-ceda86293d51"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.349361664056711205363163153662514190559378520653897000595066735`\
+43.305351905026605*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.64935557544915", ",", "0``57.476253533188434"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.349361664056711205363163153662514190559378520653897000595066735`43.\
+305351905026605*^-14, 0``58.69897000433602, 0``57.64935557544915, 
+    0``57.476253533188434}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732103494094*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fd7762cd-c770-4bd2-8b0c-d772dde2437e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732103507255*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb2177ec-e1f7-47d0-937f-e8a5df23ee21"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "112.1022756825047395068`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "111556.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "26656.0229299150235211681`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "26656.0229299150235211681`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "37442.1600779565829952844`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "37442.1600779565829952844`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "47890.3660157432156049997`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "334.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "218.838675776799599069`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10550552339858323004518201782406361373`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "95.3078353057736196907`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "191.4985113364770468315`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732103516424*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"56a36336-fde3-4608-94a7-c63326662a5e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "144.7485119047619`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 144.7485119047619}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321136670732`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"30739532-f1f6-4431-81f3-c27a1023a90c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"168.`", ",", "0.`", ",", "0.`", ",", "168.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"168.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "168.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"113.10501434035493`", ",", "0.`", ",", 
+            RowBox[{"-", "113.10501434035493`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"96.30509664792342`", ",", 
+            RowBox[{"-", "10.`"}], ",", "95.78450626466615`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {168., 0., 0., 168.}, $CellContext`p2 -> {
+      168., 0., 0., -168.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {113.10501434035493`, 
+      0., -113.10501434035493`, 0.}, $CellContext`p5 -> {
+      96.30509664792342, -10., 95.78450626466615, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732113677846*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8fd64e7f-bb45-47c7-ad81-202a48799407"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.091281817592265160689751664291593267629255745387148449562594502`\
+43.66276932639514*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.64548814519241", ",", "0``57.473660722610155"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.091281817592265160689751664291593267629255745387148449562594502`43.\
+66276932639514*^-14, 0``58.69897000433602, 0``57.64548814519241, 
+    0``57.473660722610155}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732113687446*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"20cdab9f-96da-4744-bb93-8b70038ef358"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732113696424*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5f112382-df5c-4479-bb50-666fac722960"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "113.1050143403549270715`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "112896.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "26909.2027079384667757858`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "26909.2027079384667757858`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "38003.2848183592554960342`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "38003.2848183592554960342`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "48178.9750525954504977639`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "336.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "219.4970957725761129114`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10440101838984881307265079540689255004`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "96.3050966479234147068`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "192.0662134871239534202`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732113705703*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c4463c7-a7fc-4789-b9e1-a22e3cf9ca72"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "145.8860946745562`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 145.8860946745562}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973212347162*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5ad011e3-1ef3-419d-83c5-cb160d51ec4c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"169.`", ",", "0.`", ",", "0.`", ",", "169.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"169.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "169.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"114.10769655710146`", ",", "0.`", ",", 
+            RowBox[{"-", "114.10769655710146`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"97.30241443117691`", ",", 
+            RowBox[{"-", "10.`"}], ",", "96.78718848141268`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {169., 0., 0., 169.}, $CellContext`p2 -> {
+      169., 0., 0., -169.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {114.10769655710146`, 
+      0., -114.10769655710146`, 0.}, $CellContext`p5 -> {
+      97.30241443117691, -10., 96.78718848141268, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732123481378*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f479392c-8251-498c-a917-01fddfccb79b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.05024027470863849020310962104625764334925938852391737317416194`42.\
+654387355165824*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.641655065793806", ",", "0``57.471083299722345"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.05024027470863849020310962104625764334925938852391737317416194`42.\
+654387355165824*^-15, 0``58.69897000433602, 0``57.641655065793806, 
+    0``57.471083299722345}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732123490546*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf38b2d3-376c-45da-8ec7-c63daef932dc"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732123499464*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"84f6927b-e34e-4eaf-a0b8-46b7b15950e4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "114.1076965571014625311`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "114244.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "27162.3824859619100304036`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "27162.3824859619100304036`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "38568.4014363002943355241`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "38568.4014363002943355241`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "48467.5678445244081382639`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "338.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "220.1535097256557664309`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10331945949561734469054047154436719059`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "97.3024144311769132102`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "192.6322847484279118412`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732123508883*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa7816a4-db3f-4119-bd9a-22d3dded1648"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "147.02205882352942`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 147.02205882352942`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732133358461*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ff2aec10-ea9c-405a-b2d0-ee83329963fa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", "170.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "170.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"115.11032405974366`", ",", "0.`", ",", 
+            RowBox[{"-", "115.11032405974366`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"98.29978692853467`", ",", 
+            RowBox[{"-", "10.`"}], ",", "97.78981598405488`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {170., 0., 0., 170.}, $CellContext`p2 -> {
+      170., 0., 0., -170.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {115.11032405974366`, 
+      0., -115.11032405974366`, 0.}, $CellContext`p5 -> {
+      98.29978692853467, -10., 97.78981598405488, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321333680696`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2ebd718-177e-40ca-83ae-86a567381b75"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.506421982188818096642193333088953966131680307633327727362005252`\
+43.71235526759348*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.63785572778611", ",", "0``57.46852108295775"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.506421982188818096642193333088953966131680307633327727362005252`43.\
+71235526759348*^-14, 0``58.69897000433602, 0``57.63785572778611, 
+    0``57.46852108295775}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732133377264*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13c4940f-7f89-4ae2-8809-9b952305f91a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321333865356`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc818708-6094-433a-9837-93f6daf26e29"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "115.110324059743660996`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "115600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "27415.5622639853532850214`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "27415.5622639853532850214`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "39137.5101803128447386371`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "39137.5101803128447386371`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "48756.1448885964029409276`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "340.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "220.8079366521873980915`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10226013720723791253166746773743084087`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "98.2997869285346766309`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "193.1967381696034089427`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732133395707*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"31cacc7c-cc4d-428f-9954-d577f196a0ce"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "148.156432748538`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 148.156432748538}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732143187169*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"18c449ce-5c0e-4d07-ad6f-482088da349c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"171.`", ",", "0.`", ",", "0.`", ",", "171.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"171.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "171.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"116.11289850553476`", ",", "0.`", ",", 
+            RowBox[{"-", "116.11289850553476`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"99.29721248274356`", ",", 
+            RowBox[{"-", "10.`"}], ",", "98.79239042984598`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {171., 0., 0., 171.}, $CellContext`p2 -> {
+      171., 0., 0., -171.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {116.11289850553476`, 
+      0., -116.11289850553476`, 0.}, $CellContext`p5 -> {
+      99.29721248274356, -10., 98.79239042984598, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321431979427`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6151ee65-fa62-42a4-84c3-9b7d4be5b460"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.823646425656561924475283095979448241548253059448456221727353062`\
+43.84831936469763*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.63408953792536", ",", "0``57.46597389394386"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.823646425656561924475283095979448241548253059448456221727353062`43.\
+84831936469763*^-14, 0``58.69897000433602, 0``57.63408953792536, 
+    0``57.46597389394386}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732143208303*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"31ade8bf-693d-4512-ad3f-61c0a0102ab6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732143217149*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf3a2cd5-253f-44b1-bc29-9f15a3e5cbce"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "116.1128985055347584421`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "116964.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "27668.7420420087965396392`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "27668.7420420087965396392`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "39710.6112888928873871919`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "39710.6112888928873871919`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "49044.706661803377433155`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "342.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "221.4603952443943811566`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10122237103981359460030919582280302647`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "99.2972124827435660126`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "193.7595866588649683622`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973214322591*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"05a5e07e-fdbb-4365-99ec-7d94cbf235b1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "149.28924418604652`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 149.28924418604652`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732153024415*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2819ff6c-e37d-42da-9e45-978082a40ab1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"172.`", ",", "0.`", ",", "0.`", ",", "172.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"172.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "172.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"117.11542148546751`", ",", "0.`", ",", 
+            RowBox[{"-", "117.11542148546751`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"100.29468950281084`", ",", 
+            RowBox[{"-", "10.`"}], ",", "99.79491340977873`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {172., 0., 0., 172.}, $CellContext`p2 -> {
+      172., 0., 0., -172.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {117.11542148546751`, 
+      0., -117.11542148546751`, 0.}, $CellContext`p5 -> {
+      100.29468950281084`, -10., 99.79491340977873, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732153034268*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"217c2a3e-1fe1-4415-ad4a-f29da73b21a9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.216338252893632696721797620491766846442368654411651076665769198`\
+43.50804760399178*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.63035591861405", ",", "0``57.463441557428474"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.216338252893632696721797620491766846442368654411651076665769198`43.\
+50804760399178*^-14, 0``58.69897000433602, 0``57.63035591861405, 
+    0``57.463441557428474}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732153043507*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"58856342-5200-41ff-bf1c-93448951c1b1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732153052393*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6d02ba6d-11bd-429d-a4fc-301e4dc44394"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "117.115421485467507523`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "118336.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "27921.9218200322397942569`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "27921.9218200322397942569`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "40287.704991000822587921`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "40287.704991000822587921`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "49333.253622066129210095`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "344.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "222.1109038792695769576`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.10020550805969352073663350961930660787`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "100.2946895028108430047`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "194.3208429839638812364`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732153061488*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"924ba63a-a608-435d-b2fa-77d24536f759"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "150.42052023121386`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 150.42052023121386`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321631639853`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9691bd2c-99be-401f-b719-f67d079e7647"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"173.`", ",", "0.`", ",", "0.`", ",", "173.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"173.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "173.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"118.11789452755293`", ",", "0.`", ",", 
+            RowBox[{"-", "118.11789452755293`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"101.2922164607254`", ",", 
+            RowBox[{"-", "10.`"}], ",", "100.79738645186416`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {173., 0., 0., 173.}, $CellContext`p2 -> {
+      173., 0., 0., -173.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {118.11789452755293`, 
+      0., -118.11789452755293`, 0.}, $CellContext`p5 -> {
+      101.2922164607254, -10., 100.79738645186416`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321631752777`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"097159ad-9934-4a51-8e10-353615a1db99"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.26002809618944131673606052586658151201734281244954788499221158`\
+43.78930636896047*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.62665430735024", ",", "0``57.460923901207224"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.26002809618944131673606052586658151201734281244954788499221158`43.\
+78930636896047*^-14, 0``58.69897000433602, 0``57.62665430735024, 
+    0``57.460923901207224}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321631866617`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"844cc629-f604-4de4-aa31-76e33ed31819"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732163197486*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c6b37652-42ef-4223-8897-170ee85fd51e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "118.1178945275529343917`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "119716.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "28175.1015980556830488747`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "28175.1015980556830488747`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "40868.7915065333152995208`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "40868.7915065333152995208`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "49621.7862091780053269448`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "346.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "222.759480626926416182`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09920892150091118312330573333061730191`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "101.2922164607253956992`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "194.8805197728427395762`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732163207862*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2a8638ac-5352-4185-8c80-cde13cef1de5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "151.55028735632183`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 151.55028735632183`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321742376537`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b41fde67-91e1-4a51-9f35-c12282824f69"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"174.`", ",", "0.`", ",", "0.`", ",", "174.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"174.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "174.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"119.12031909990648`", ",", "0.`", ",", 
+            RowBox[{"-", "119.12031909990648`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"102.28979188837192`", ",", 
+            RowBox[{"-", "10.`"}], ",", "101.7998110242177`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {174., 0., 0., 174.}, $CellContext`p2 -> {
+      174., 0., 0., -174.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {119.12031909990648`, 
+      0., -119.12031909990648`, 0.}, $CellContext`p5 -> {
+      102.28979188837192`, -10., 101.7998110242177, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732174264154*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5065eebd-a3b8-4847-a33b-d1479ed6a387"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.639558829638819367840881131490801279365675127913102762038366506`43.\
+578922106250104*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.622984156200836", ",", "0``57.458420756053414"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.639558829638819367840881131490801279365675127913102762038366506`43.\
+578922106250104*^-14, 0``58.69897000433602, 0``57.622984156200836, 
+    0``57.458420756053414}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732174299732*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2ab3da5-e115-4fb3-a08d-0469714d2045"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321743170643`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f3ce07d-d00b-406e-aab3-dc77fbae1fc0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "119.1203190999064815969`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "121104.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "28428.2813760791263034925`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "28428.2813760791263034925`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "41453.8710467674555957274`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "41453.8710467674555957274`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "49910.3048456931583984412`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "348.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "223.4061432586247356044`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09823200946435004494796740521616076745`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "102.2897918883719174898`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "195.4386295143953901426`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732174334496*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"982f9488-3677-4eed-9c58-0a94e41ee11b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321885443773`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"591b2c9d-3301-4ab3-bdf2-dc8856237e92"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "175.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"120.12269661365401`", ",", "0.`", ",", 
+            RowBox[{"-", "120.12269661365401`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"103.28741437462433`", ",", 
+            RowBox[{"-", "10.`"}], ",", "102.80218853796524`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {175., 0., 0., 175.}, $CellContext`p2 -> {
+      175., 0., 0., -175.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {120.12269661365401`, 
+      0., -120.12269661365401`, 0.}, $CellContext`p5 -> {
+      103.28741437462433`, -10., 102.80218853796524`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732188575173*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e3442c85-56ba-447f-b7d1-a83d4d94f1a9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.16431009216937713133550040690197115995678615888482562993169278`\
+43.65518099635347*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.61934493129788", ",", "0``57.455931955649724"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.16431009216937713133550040690197115995678615888482562993169278`43.\
+65518099635347*^-14, 0``58.69897000433602, 0``57.61934493129788, 
+    0``57.455931955649724}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732188584661*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1286031f-9388-4ac0-968d-00ada20f064f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797321886012897`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"93fcf523-62b0-4cd3-9f27-80320c685c04"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "120.1226966136540141861`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "122500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "28681.4611541025695581102`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "28681.4611541025695581102`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "42042.9438147789049651237`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "42042.9438147789049651237`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "50198.8099377629555831361`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "350.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "224.0509092544883103294`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09727419369391111521846896188281508563`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "103.2874143746243268619`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "195.9951845593206800654`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732188631613*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c79bee69-2eb7-475d-ba0d-77266e45b827"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "153.80539772727272`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 153.80539772727272`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732202992298*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"da75ae05-b0d3-4790-8eb3-ebacee6334fb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"176.`", ",", "0.`", ",", "0.`", ",", "176.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"176.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "176.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"121.1250284256709`", ",", "0.`", ",", 
+            RowBox[{"-", "121.1250284256709`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"104.28508256260746`", ",", 
+            RowBox[{"-", "10.`"}], ",", "103.80452034998213`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {176., 0., 0., 176.}, $CellContext`p2 -> {
+      176., 0., 0., -176.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {121.1250284256709, 
+      0., -121.1250284256709, 0.}, $CellContext`p5 -> {
+      104.28508256260746`, -10., 103.80452034998213`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322030137873`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a8227982-4cdb-45c5-b15b-ed516a383eff"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "7.18228294062468747519235388419227600710247563982699084475690313`\
+43.00868985068882*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.61573611235677", ",", "0``57.45345733652187"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-7.18228294062468747519235388419227600710247563982699084475690313`43.\
+00868985068882*^-15, 0``58.69897000433602, 0``57.61573611235677, 
+    0``57.45345733652187}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732203071496*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3165ad9f-29b2-46aa-a7da-2647041397ff"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732203099284*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e1d18c84-5504-4a47-bc10-36bf409e6aec"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "121.1250284256709051078`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "123904.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "28934.640932126012812728`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "28934.640932126012812728`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "42636.0100058361585979583`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "42636.0100058361585979583`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "50487.3018759243443193825`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "352.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "224.6937958109309797847`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09633491842440483176606388622714468481`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "104.285082562607460401`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "196.5501971210603479401`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732203134061*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fb10deb9-3d59-44dc-b23a-723278e8ce27"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "154.930790960452`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 154.930790960452}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732215281106*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2b7a4cdd-b63d-4981-a2df-5a6d5676a899"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"177.`", ",", "0.`", ",", "0.`", ",", "177.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"177.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "177.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"122.12731584116393`", ",", "0.`", ",", 
+            RowBox[{"-", "122.12731584116393`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"105.28279514711444`", ",", 
+            RowBox[{"-", "10.`"}], ",", "104.80680776547516`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {177., 0., 0., 177.}, $CellContext`p2 -> {
+      177., 0., 0., -177.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {122.12731584116393`, 
+      0., -122.12731584116393`, 0.}, $CellContext`p5 -> {
+      105.28279514711444`, -10., 104.80680776547516`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732215313429*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc591a05-dca0-4678-8efa-d25efd590568"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.07865873784661405891565302658968622938173126263613055914781308`42.\
+85571577355792*^-15", ",", "0``58.69897000433602", ",", "0``57.6121571922151",
+      ",", "0``57.450996737974215"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.07865873784661405891565302658968622938173126263613055914781308`42.\
+85571577355792*^-15, 0``58.69897000433602, 0``57.6121571922151, 
+    0``57.450996737974215}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322153313704`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c45992f3-06e0-4e9d-95b5-a63972c526d3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732215348732*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"019a3736-adff-4758-91d1-c5634bb2f749"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "122.1273158411639343512`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "125316.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "29187.8207101494560673458`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "29187.8207101494560673458`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "43233.0698077720327603402`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "43233.0698077720327603402`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "50775.7810358429765859811`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "354.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "225.3348198478055379165`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09541364929630211331241578383950344757`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "105.2827951471144434185`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "197.1036792768109055892`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973221536567*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dbf5bddf-03ef-4e82-a73b-76c9f675da7d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "156.05477528089887`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 156.05477528089887`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732225324926*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"51df1b2d-806e-40a4-841c-53f982367141"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"178.`", ",", "0.`", ",", "0.`", ",", "178.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"178.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "178.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"123.12956011610763`", ",", "0.`", ",", 
+            RowBox[{"-", "123.12956011610763`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"106.2805508721707`", ",", 
+            RowBox[{"-", "10.`"}], ",", "105.80905204041885`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {178., 0., 0., 178.}, $CellContext`p2 -> {
+      178., 0., 0., -178.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {123.12956011610763`, 
+      0., -123.12956011610763`, 0.}, $CellContext`p5 -> {
+      106.2805508721707, -10., 105.80905204041885`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973222533853*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0422f8fe-6fb7-4c7f-bd1d-05771036078f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.179970180367513162503785542042990207403523471157475220085935307`\
+43.768693189920945*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.60860767639106", ",", "0``57.448550002027126"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.179970180367513162503785542042990207403523471157475220085935307`43.\
+768693189920945*^-14, 0``58.69897000433602, 0``57.60860767639106, 
+    0``57.448550002027126}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732225352632*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c0d240b8-18fe-443b-8244-325033466329"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732225364543*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bfe94385-cd19-49f2-9c63-c2f0cda3fe7b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "123.1295601161076262997`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "126736.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "29441.0004881728993219636`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "29441.0004881728993219636`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "43834.1234013343149626962`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "43834.1234013343149626962`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "51064.2477790144374543103`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "356.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "225.9739980152903287883`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09450987233285125103178416136486429052`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "106.2805508721707045917`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "197.6556429686017100099`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322253763657`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6c28e756-fda0-47d1-9588-96bf43e561d1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "157.177374301676`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 157.177374301676}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732235744473*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"73c40a87-9b8f-467b-8829-ecc8d3bfa30e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"179.`", ",", "0.`", ",", "0.`", ",", "179.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"179.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "179.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"124.13176245954394`", ",", "0.`", ",", 
+            RowBox[{"-", "124.13176245954394`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"107.27834852873444`", ",", 
+            RowBox[{"-", "10.`"}], ",", "106.81125438385516`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {179., 0., 0., 179.}, $CellContext`p2 -> {
+      179., 0., 0., -179.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {124.13176245954394`, 
+      0., -124.13176245954394`, 0.}, $CellContext`p5 -> {
+      107.27834852873444`, -10., 106.81125438385516`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732235754959*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"054ceadc-5b83-4234-96b6-ff25d020d4cd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.33558122191398030549546063408895832171402131265127321280283972`42.\
+51348195255538*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.60508708266047", ",", "0``57.446116973356126"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.33558122191398030549546063408895832171402131265127321280283972`42.\
+51348195255538*^-15, 0``58.69897000433602, 0``57.60508708266047, 
+    0``57.446116973356126}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322357670307`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8684565f-6425-40de-8f67-8c2a29375354"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322357773037`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5e3224d4-3bf2-4d98-aced-840427d3410c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "124.1317624595439355062`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "128164.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "29694.1802661963425765813`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "29694.1802661963425765813`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "44439.170960516728911216`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "44439.170960516728911216`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "51352.70245342614247448`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "358.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "226.6113467005263231254`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09362309297541149011818074059532574982`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "107.2783485287344395205`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "198.2061000044311029529`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973223578728*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb23182c-a787-440b-8f0f-c6acb9aa0e18"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "158.29861111111111`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 158.29861111111111`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732246273597*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23605e88-248d-49b5-80f3-55fd2f2b61f7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", "180.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "180.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"125.1339240357539`", ",", "0.`", ",", 
+            RowBox[{"-", "125.1339240357539`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"108.27618695252445`", ",", 
+            RowBox[{"-", "10.`"}], ",", "107.81341596006513`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {180., 0., 0., 180.}, $CellContext`p2 -> {
+      180., 0., 0., -180.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {125.1339240357539, 
+      0., -125.1339240357539, 0.}, $CellContext`p5 -> {
+      108.27618695252445`, -10., 107.81341596006513`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732246283781*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8adb131b-66b5-41d8-af33-5606e24fdff4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.3268854149248249474018816661842718715386545750526678620883626`43.\
+11240414485699*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.60159494065158", ",", "0``57.443697499232705"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.3268854149248249474018816661842718715386545750526678620883626`43.\
+11240414485699*^-15, 0``58.69897000433602, 0``57.60159494065158, 
+    0``57.443697499232705}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732246292492*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7425f9e-1637-46bc-99ac-efa54e0507cd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732246301188*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2c1902d-778a-4b70-bf3f-0d40c9fd33eb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "125.1339240357539068782`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "129600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "29947.3600442197858311991`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "29947.3600442197858311991`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "45048.2126528714064761516`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "45048.2126528714064761516`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "51641.1453941823866344606`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "360.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "227.2468820340168861663`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09275283517316687237750101301906531409`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "108.276186952524456486`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "198.7550620594534258026`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732246310236*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c950a035-f839-4dca-8473-008d1d95659b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "159.4185082872928`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 159.4185082872928}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973225635526*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"261aba29-a7a1-4401-8889-ecc1e00fafb2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"181.`", ",", "0.`", ",", "0.`", ",", "181.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"181.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "181.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"126.13604596631033`", ",", "0.`", ",", 
+            RowBox[{"-", "126.13604596631033`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"109.27406502196803`", ",", 
+            RowBox[{"-", "10.`"}], ",", "108.81553789062156`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {181., 0., 0., 181.}, $CellContext`p2 -> {
+      181., 0., 0., -181.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {126.13604596631033`, 
+      0., -126.13604596631033`, 0.}, $CellContext`p5 -> {
+      109.27406502196803`, -10., 108.81553789062156`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732256366102*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4b96ac29-1aaf-469d-a4de-08d229b716e2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.37439908581088477006775054777811779311345347542885543082310941`\
+43.112204872114*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.598130791456484", ",", "0``57.44129142946683"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.37439908581088477006775054777811779311345347542885543082310941`43.\
+112204872114*^-15, 0``58.69897000433602, 0``57.598130791456484, 
+    0``57.44129142946683}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732256376194*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"84639cd1-5351-40f5-97e6-756a78bd67b0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322563870573`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb96e066-e471-48ac-8c1e-85d842782d31"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "126.1360459663103341654`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "131044.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "30200.5398222432290858169`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "30200.5398222432290858169`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "45661.2486398043409678849`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "45661.2486398043409678849`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "51929.5769240951421561609`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "362.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "227.8806198958023331367`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09189864052366978901074189949556323995`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "109.2740650219680291513`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "199.302540677210920602`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732256397317*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"292b42a9-6bb6-4c60-aa14-1ebdbe3e21bc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "160.5370879120879`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 160.5370879120879}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732266117464*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fdaf4fa9-184b-4cc0-ae7a-1ea111d34cff"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"182.`", ",", "0.`", ",", "0.`", ",", "182.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"182.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "182.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"127.1381293320181`", ",", "0.`", ",", 
+            RowBox[{"-", "127.1381293320181`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"110.27198165626024`", ",", 
+            RowBox[{"-", "10.`"}], ",", "109.81762125632932`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {182., 0., 0., 182.}, $CellContext`p2 -> {
+      182., 0., 0., -182.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {127.1381293320181, 
+      0., -127.1381293320181, 0.}, $CellContext`p5 -> {
+      110.27198165626024`, -10., 109.81762125632932`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732266127529*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2bc5474d-f9cd-4b04-8f62-d15ec517799b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.104353976563913108403908180852189539161720239561071741657327382`\
+43.75111342976905*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.59469418725856", ",", "0``57.43889861635094"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.104353976563913108403908180852189539161720239561071741657327382`43.\
+75111342976905*^-14, 0``58.69897000433602, 0``57.59469418725856, 
+    0``57.43889861635094}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732266136684*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1aa70c00-fa61-4827-a871-88c4848f0ac9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322661455603`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"82819c5f-68fc-453a-8645-e3ff9d351ebb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "127.1381293320180958517`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "132496.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "30453.7196002666723404346`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "30453.7196002666723404346`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "46278.2790768545868900219`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "46278.2790768545868900219`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "52217.997354242527512818`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "364.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "228.5125759214195360229`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09106006746092810153860001701693423826`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "110.2719816562602357959`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "199.8485472709041404821`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732266154698*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7cc03ad3-047f-4036-bea1-8689bba95763"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "161.65437158469945`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.65437158469945`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322759038343`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb279966-b62c-402d-adf2-2d3807da3e0e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"183.`", ",", "0.`", ",", "0.`", ",", "183.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"183.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "183.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"128.14017517474994`", ",", "0.`", ",", 
+            RowBox[{"-", "128.14017517474994`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"111.26993581352845`", ",", 
+            RowBox[{"-", "10.`"}], ",", "110.81966709906116`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {183., 0., 0., 183.}, $CellContext`p2 -> {
+      183., 0., 0., -183.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {128.14017517474994`, 
+      0., -128.14017517474994`, 0.}, $CellContext`p5 -> {
+      111.26993581352845`, -10., 110.81966709906116`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732275915432*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0c73d478-408e-4ac5-a22a-9d2237e4c480"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.610341071354823788207957438323284208055000153773999756755047686`43.\
+34240678858817*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.591284690975044", ",", "0``57.43651891460559"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.610341071354823788207957438323284208055000153773999756755047686`43.\
+34240678858817*^-14, 0``58.69897000433602, 0``57.591284690975044, 
+    0``57.43651891460559}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732275924789*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c541783e-c502-4eb9-a3af-1390577378b8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322759339867`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"729d3788-8cfc-4d44-a64e-2f83d1190d58"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "128.1401751747499417888`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "133956.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "30706.8993782901155950524`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "30706.8993782901155950524`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "46899.3041139584786947125`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "46899.3041139584786947125`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "52506.406984497184995879`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "366.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "229.1427655076572235177`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.09023669048798935631870352384854264688`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "111.2699358135284470057`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "200.3930931246959176775`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732275943123*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4c72f50e-c3f7-4491-8368-2a20cceca8f7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "162.7703804347826`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 162.7703804347826}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322856780987`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2bb4cad4-4c84-46aa-9486-285b656cdb89"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"184.`", ",", "0.`", ",", "0.`", ",", "184.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"184.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "184.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"129.14218449918363`", ",", "0.`", ",", 
+            RowBox[{"-", "129.14218449918363`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"112.26792648909476`", ",", 
+            RowBox[{"-", "10.`"}], ",", "111.82167642349485`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {184., 0., 0., 184.}, $CellContext`p2 -> {
+      184., 0., 0., -184.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {129.14218449918363`, 
+      0., -129.14218449918363`, 0.}, $CellContext`p5 -> {
+      112.26792648909476`, -10., 111.82167642349485`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322856875277`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7d60a34-7c82-4bc6-8b45-24f96caf69d2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.651452318943039303457625690704289353364806864167593669638964013`43.\
+350988224835035*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.58790187591404", ",", "0``57.43415218132648"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.651452318943039303457625690704289353364806864167593669638964013`43.\
+350988224835035*^-14, 0``58.69897000433602, 0``57.58790187591404, 
+    0``57.43415218132648}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732285696383*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b7e7a1de-f11f-4c80-9fdb-07019208f980"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732285705118*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"65d8ff0b-4419-44f7-90e1-ace231bcc6b0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "129.1421844991836280769`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "135424.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "30960.0791563135588496702`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "30960.0791563135588496702`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "47524.323895699575132312`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "47524.323895699575132312`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "52794.8061040262642558619`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "368.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "229.771203818116129606`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08942809945119817357522732768206980094`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "112.2679264890947611287`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "200.9361893950436635099`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732285714058*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9f99cc37-b504-4f95-a86e-959147f9197e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732295512506*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5dc867e9-a6d6-4e00-978e-aaa6970c08a4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "185.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"130.14415827444728`", ",", "0.`", ",", 
+            RowBox[{"-", "130.14415827444728`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"113.26595271383108`", ",", 
+            RowBox[{"-", "10.`"}], ",", "112.8236501987585`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {185., 0., 0., 185.}, $CellContext`p2 -> {
+      185., 0., 0., -185.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {130.14415827444728`, 
+      0., -130.14415827444728`, 0.}, $CellContext`p5 -> {
+      113.26595271383108`, -10., 112.8236501987585, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732295522296*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5bceee5d-2521-44e7-9a03-94e2d50e4bce"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.97750690671065495877468642544235768570612631218831305148357505`\
+42.9072883668627*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.5845453254452", ",", "0``57.431798275933005"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.97750690671065495877468642544235768570612631218831305148357505`42.\
+9072883668627*^-15, 0``58.69897000433602, 0``57.5845453254452, 
+    0``57.431798275933005}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732295531405*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"889115fb-1fe9-4a1c-b8b1-8be02d7d4d14"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797322955404177`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2574ddb6-0bc7-4912-9c93-07fb84cedfa5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "130.1441582744472782451`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "136900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "31213.258934337002104288`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "31213.258934337002104288`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "48153.3385615454929506996`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "48153.3385615454929506996`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "53083.1949917649914640711`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "370.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "230.3979057885834852583`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08863389885350508288015910765924317557`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "113.2659527138310884685`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "201.4778471120559974481`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732295549572*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1fa54062-9878-4706-98d4-ab4ffe87f6c9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "164.9986559139785`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 164.9986559139785}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732305321529*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"224a01d0-4767-40f4-9581-9af6c94936ec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"186.`", ",", "0.`", ",", "0.`", ",", "186.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"186.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "186.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"131.1460974356779`", ",", "0.`", ",", 
+            RowBox[{"-", "131.1460974356779`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"114.26401355260049`", ",", 
+            RowBox[{"-", "10.`"}], ",", "113.82558935998911`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {186., 0., 0., 186.}, $CellContext`p2 -> {
+      186., 0., 0., -186.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {131.1460974356779, 
+      0., -131.1460974356779, 0.}, $CellContext`p5 -> {
+      114.26401355260049`, -10., 113.82558935998911`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732305332512*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0385b6a9-2fb0-404b-a42e-46d99be103fa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.1033502854925920011057904606306078770124831248727487718990976`41.\
+91399536029814*^-16"}], ",", "0``58.69897000433602", ",", 
+     "0``57.58121463268351", ",", "0``57.429457060118104"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.1033502854925920011057904606306078770124831248727487718990976`41.\
+91399536029814*^-16, 0``58.69897000433602, 0``57.58121463268351, 
+    0``57.429457060118104}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732305344017*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"38072617-cee0-494c-9f52-d52bc68d8429"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732305353465*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b8045ab2-0d55-4a2e-b43c-fecb87dac7c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "131.1460974356778876881`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "138384.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "31466.4387123604453589057`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "31466.4387123604453589057`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "48786.3482460721742199894`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "48786.3482460721742199894`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "53371.573916865239297269`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "372.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "231.0228861322298503357`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08785370720439339624882297782614955985`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "114.2640135526004843927`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "202.0180771808692650641`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732305362783*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c0899192-6c29-406d-a312-7175cfdf1a95"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "166.1109625668449`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.1109625668449}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732315107993*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2de90cc7-bc00-4355-b4f2-9e798d9c0663"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"187.`", ",", "0.`", ",", "0.`", ",", "187.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"187.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "187.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"132.14800288549858`", ",", "0.`", ",", 
+            RowBox[{"-", "132.14800288549858`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"115.2621081027798`", ",", 
+            RowBox[{"-", "10.`"}], ",", "114.8274948098098`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {187., 0., 0., 187.}, $CellContext`p2 -> {
+      187., 0., 0., -187.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {132.14800288549858`, 
+      0., -132.14800288549858`, 0.}, $CellContext`p5 -> {
+      115.2621081027798, -10., 114.8274948098098, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323151178713`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3f65189e-2c55-48d4-a3c2-d24055906d8c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.245496858930953222995097146659503332317333867420630112907632212`43.\
+47741085403041*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.57790940018544", ",", "0``57.427128397799514"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.245496858930953222995097146659503332317333867420630112907632212`43.\
+47741085403041*^-14, 0``58.69897000433602, 0``57.57790940018544, 
+    0``57.427128397799514}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732315126899*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"74302180-04ee-4599-8512-19008741e70e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323151358347`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d1833b11-b7db-4063-9e2d-b4547c31cdbe"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "132.1480028854985846465`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "139876.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "31719.6184903838886135235`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "31719.6184903838886135235`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "49423.3530791764706577851`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "49423.3530791764706577851`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "53659.9431391207133662032`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "374.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "231.6461593446364768937`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08708715640416193590257178891503261595`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "115.2621081027798104996`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "202.5568903830404618655`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732315144783*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"909a3c34-349e-45b5-990f-7b9f9ccd5015"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "167.2220744680851`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 167.2220744680851}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732324898089*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"61de55c9-8426-42a9-b550-b98a3fbf37e0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"188.`", ",", "0.`", ",", "0.`", ",", "188.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"188.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "188.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"133.14987549541956`", ",", "0.`", ",", 
+            RowBox[{"-", "133.14987549541956`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"116.26023549285884`", ",", 
+            RowBox[{"-", "10.`"}], ",", "115.82936741973079`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {188., 0., 0., 188.}, $CellContext`p2 -> {
+      188., 0., 0., -188.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {133.14987549541956`, 
+      0., -133.14987549541956`, 0.}, $CellContext`p5 -> {
+      116.26023549285884`, -10., 115.82936741973079`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732324907909*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9cdd432e-63c7-4cc9-b9c4-fbb25c6ed327"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.619156068725515308129670683229701108505910387146509703169929739`43.\
+54194353708782*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.574629239657014", ",", "0``57.42481215507234"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.619156068725515308129670683229701108505910387146509703169929739`43.\
+54194353708782*^-14, 0``58.69897000433602, 0``57.574629239657014, 
+    0``57.42481215507234}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973232491707*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ac716e5a-1d7f-45c9-bfae-08e8f3fdabe5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732324925931*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"418095ce-8574-4e9a-86e4-02c9d142af03"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "133.149875495419564686`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "141376.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "31972.7982684073318681413`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "31972.7982684073318681413`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "50064.3531862777563219424`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "50064.3531862777563219424`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "53948.3029093701702900934`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "376.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "232.2677397086607253449`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08633389116046026141451306153782244172`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "116.2602354928588341966`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "203.0942973779532296136`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323249353743`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9bed9c78-5797-444f-b094-c8fcd8ca8eba"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "168.33201058201058`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 168.33201058201058`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732334748632*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"881d7d57-14f2-4ab8-bd2f-0a82f0683e55"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"189.`", ",", "0.`", ",", "0.`", ",", "189.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"189.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "189.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"134.1517161071672`", ",", "0.`", ",", 
+            RowBox[{"-", "134.1517161071672`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"117.25839488111113`", ",", 
+            RowBox[{"-", "10.`"}], ",", "116.83120803147843`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {189., 0., 0., 189.}, $CellContext`p2 -> {
+      189., 0., 0., -189.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {134.1517161071672, 
+      0., -134.1517161071672, 0.}, $CellContext`p5 -> {
+      117.25839488111113`, -10., 116.83120803147843`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732334758492*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"20681b70-d06e-4159-aebc-469af8a6df72"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.36821925623752058406594979428926619025682126290373083063402265`\
+43.64887855890442*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.571373771673144", ",", "0``57.422508200162774"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.36821925623752058406594979428926619025682126290373083063402265`43.\
+64887855890442*^-14, 0``58.69897000433602, 0``57.571373771673144, 
+    0``57.422508200162774}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732334767808*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f7d7a11f-70ac-4f0b-b053-4b3be0c82386"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732334776911*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"384baa6e-08e1-4438-a700-0af3ecb5841e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "134.1517161071672035177`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "142884.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "32225.9780464307751227591`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "32225.9780464307751227591`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "50709.3486885092029297084`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "50709.3486885092029297084`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "54236.6534698799640039746`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "378.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "232.8876412991465805489`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08559356843511922600088991142750846796`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "117.2583948811111354912`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "203.6303087042338540733`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732334786483*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86e9ca8c-4c55-47a0-b6d4-ca0f02dd7a9b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "169.44078947368422`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 169.44078947368422`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732344574149*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13fc7508-1305-468a-8f5c-aa5883dc62bf"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"190.`", ",", "0.`", ",", "0.`", ",", "190.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"190.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "190.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"135.1535255339457`", ",", "0.`", ",", 
+            RowBox[{"-", "135.1535255339457`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"118.25658545433265`", ",", 
+            RowBox[{"-", "10.`"}], ",", "117.83301745825692`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {190., 0., 0., 190.}, $CellContext`p2 -> {
+      190., 0., 0., -190.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {135.1535255339457, 
+      0., -135.1535255339457, 0.}, $CellContext`p5 -> {
+      118.25658545433265`, -10., 117.83301745825692`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732344588861*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7c821d48-82b9-4c1c-8ee7-4f3ff499ee49"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.394241012643721559652036359843014919659633636655203059803680426`\
+43.498354273586095*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.56814262540769", ",", "0``57.420216403383186"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.394241012643721559652036359843014919659633636655203059803680426`43.\
+498354273586095*^-14, 0``58.69897000433602, 0``57.56814262540769, 
+    0``57.420216403383186}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323445986233`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7900a994-9b71-4ce5-9371-5912ed278f4b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732344610239*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17339eda-6538-4101-8f71-fcac9f4e46e1"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "135.1535255339456966794`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "144400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "32479.1578244542183773768`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "32479.1578244542183773768`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "51358.3397028993647381867`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "51358.3397028993647381867`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "54524.9950547071718938225`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "380.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "233.5058779874870128401`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08486585691945436207560101605078341859`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "118.2565854543326520693`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "204.1649347811745531898`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732344620221*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"509ebc9d-f2cd-409e-a371-781d6a1b5c47"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "170.54842931937173`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 170.54842931937173`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732354465296*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4232fd4f-acf0-45ac-81b2-8790ee531e7d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"191.`", ",", "0.`", ",", "0.`", ",", "191.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"191.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "191.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"136.15530456163484`", ",", "0.`", ",", 
+            RowBox[{"-", "136.15530456163484`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"119.25480642664353`", ",", 
+            RowBox[{"-", "10.`"}], ",", "118.83479648594606`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {191., 0., 0., 191.}, $CellContext`p2 -> {
+      191., 0., 0., -191.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {136.15530456163484`, 
+      0., -136.15530456163484`, 0.}, $CellContext`p5 -> {
+      119.25480642664353`, -10., 118.83479648594606`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732354475131*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8dbedace-d4c8-4e3a-ab08-06b3dc69ad5f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.28079295966602278620690972699589760279944456365619396683575892`\
+43.03497856776452*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.5649354383738", ",", "0``57.41793663708829"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.28079295966602278620690972699589760279944456365619396683575892`43.\
+03497856776452*^-15, 0``58.69897000433602, 0``57.5649354383738, 
+    0``57.41793663708829}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732354484519*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d6c84805-8050-45b7-8392-ba8c171824d5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323544936647`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c60afc31-af61-48f8-a153-a7cf676ec9be"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "136.1553045616348356361`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "145924.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "32732.3376024776616319946`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "32732.3376024776616319946`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "52011.326342544507213006`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "52011.326342544507213006`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "54813.32789004433966505`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "382.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "234.1224634460442791132`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08415043653634434387891144991339345357`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "119.2548064266435287742`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "204.6981859101613570096`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323545028667`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3cba981f-b491-40de-8808-cfdc790c3f37"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "171.65494791666666`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 171.65494791666666`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732364315823*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a4b1e78d-ffd9-4500-a5e8-9cd3d0aa72b0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"192.`", ",", "0.`", ",", "0.`", ",", "192.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"192.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "192.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"137.1570539499282`", ",", "0.`", ",", 
+            RowBox[{"-", "137.1570539499282`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"120.25305703835015`", ",", 
+            RowBox[{"-", "10.`"}], ",", "119.83654587423943`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {192., 0., 0., 192.}, $CellContext`p2 -> {
+      192., 0., 0., -192.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {137.1570539499282, 
+      0., -137.1570539499282, 0.}, $CellContext`p5 -> {
+      120.25305703835015`, -10., 119.83654587423943`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323643267*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8d4bb487-4955-4e73-8cb7-6ff4c5172fa7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.499523790513702925768654888856582708471608488890594628216580823`\
+43.290592140365376*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.561751856174176", ",", "0``57.41566877563247"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.499523790513702925768654888856582708471608488890594628216580823`43.\
+290592140365376*^-14, 0``58.69897000433602, 0``57.561751856174176, 
+    0``57.41566877563247}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732364336123*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"50771606-2211-4b26-8e73-4a7f681810b2"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732364345159*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"25b22062-a737-45ea-88ec-0aafe0a10c3f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "137.1570539499282119777`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "147456.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "32985.5173805011048866124`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "32985.5173805011048866124`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "52668.3087167724333994556`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "52668.3087167724333994556`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "55101.6521945470801785824`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "384.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "234.7374111524344987245`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08344699796750100987235073458108760224`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "120.2530570383501457181`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "205.2300722761046191172`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973236435452*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a2bfa9e6-4fdb-4624-a858-db0a40fc7bb6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "172.7603626943005`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.7603626943005}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732374129437*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"356eb56f-434f-40d1-bd44-3c53d4d38fa4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"193.`", ",", "0.`", ",", "0.`", ",", "193.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"193.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "193.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"138.15877443341492`", ",", "0.`", ",", 
+            RowBox[{"-", "138.15877443341492`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"121.25133655486347`", ",", 
+            RowBox[{"-", "10.`"}], ",", "120.83826635772614`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {193., 0., 0., 193.}, $CellContext`p2 -> {
+      193., 0., 0., -193.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {138.15877443341492`, 
+      0., -138.15877443341492`, 0.}, $CellContext`p5 -> {
+      121.25133655486347`, -10., 120.83826635772614`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323741392107`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7a1fc800-970f-4493-9590-428333ca5017"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.738752095261439995386543477549848255050489378445646732940692049`43.\
+3526203660058*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.558591532260444", ",", "0``57.41341269532825"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.738752095261439995386543477549848255050489378445646732940692049`43.\
+3526203660058*^-14, 0``58.69897000433602, 0``57.558591532260444, 
+    0``57.41341269532825}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732374148525*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d52309e1-5077-4653-ac90-518b73c76ce2"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732374157797*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a0815103-1785-42b8-8820-e064bdf5935f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "138.1587744334149192582`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "148996.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "33238.6971585245481412301`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "33238.6971585245481412301`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "53329.2869312981588336697`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "53329.2869312981588336697`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "55389.9681796454097332795`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "386.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "235.3507343936819113092`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08275524220445439127849810495782921375`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "121.2513365548634708204`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "205.7606039488698889821`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732374167263*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dae98de0-ddf3-4d10-acc3-e5d940b066ac"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "173.86469072164948`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 173.86469072164948`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732384210661*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"94eb6b78-44b1-41b4-a6ea-46732dbdd53f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"194.`", ",", "0.`", ",", "0.`", ",", "194.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"194.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "194.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"139.1604667226079`", ",", "0.`", ",", 
+            RowBox[{"-", "139.1604667226079`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"122.24964426567043`", ",", 
+            RowBox[{"-", "10.`"}], ",", "121.83995864691913`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {194., 0., 0., 194.}, $CellContext`p2 -> {
+      194., 0., 0., -194.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {139.1604667226079, 
+      0., -139.1604667226079, 0.}, $CellContext`p5 -> {
+      122.24964426567043`, -10., 121.83995864691913`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323842210484`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"211e9fe4-c45e-4182-9210-88b7f965673c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.486232368149037786220854811190816082252801957681659819921636834`\
+43.76202004321642*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.55545412770173", ",", "0``57.41116827440579"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.486232368149037786220854811190816082252801957681659819921636834`43.\
+76202004321642*^-14, 0``58.69897000433602, 0``57.55545412770173, 
+    0``57.41116827440579}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732384230483*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fb3cb240-f03f-4e04-a66c-045f513a57b9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732384240117*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2853f571-4ecb-4762-b1bb-8ef6d12dcf6e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "139.1604667226079072861`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "150544.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "33491.876936547991395848`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "33491.876936547991395848`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "53994.2610883718680270249`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "53994.2610883718680270249`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "55678.2760498397298145519`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "388.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "235.9624462702481176634`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08207488012187421797704102402287269415`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "122.2496442656704205427`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "206.2897908847072383859`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732384249441*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f67453e4-b33b-49c5-868e-8a61d8224a4e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "174.96794871794873`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 174.96794871794873`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973239401917*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cfb9341c-5a6f-4d0f-9980-cc4916a2facd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", "195.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "195.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"140.16213150492257`", ",", "0.`", ",", 
+            RowBox[{"-", "140.16213150492257`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"123.24797948335576`", ",", 
+            RowBox[{"-", "10.`"}], ",", "122.84162342923379`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {195., 0., 0., 195.}, $CellContext`p2 -> {
+      195., 0., 0., -195.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {140.16213150492257`, 
+      0., -140.16213150492257`, 0.}, $CellContext`p5 -> {
+      123.24797948335576`, -10., 122.84162342923379`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797323940308533`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6abd1505-50e5-4ae7-b820-c3c0cac588dc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.515988256078900152723922502675472783178446955234038201311955858`\
+43.76265820117211*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.552339310961585", ",", "0``57.4089353929735"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.515988256078900152723922502675472783178446955234038201311955858`43.\
+76265820117211*^-14, 0``58.69897000433602, 0``57.552339310961585, 
+    0``57.4089353929735}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973239404027*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2d936dcd-1caa-4d14-a07e-369d8547017d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732394049387*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bf772950-a0f7-4c9e-ad68-a09750925ef5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "140.1621315049225700022`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "152100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "33745.0567145714346504657`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "33745.0567145714346504657`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "54663.2312869198023008721`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "54663.2312869198023008721`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "55966.5760029824850344042`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "390.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "236.5725596999417112119`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08140563207193991114172428899867074449`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "123.247979483355757529`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "206.8176429276776494057`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732394058714*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf235c80-1126-4a34-9daa-f7596d11fc65"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "176.0701530612245`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 176.0701530612245}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324039638157`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a48fa32c-cdb7-4b2e-af37-a3347cc91c3d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"196.`", ",", "0.`", ",", "0.`", ",", "196.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"196.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "196.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"141.16376944560753`", ",", "0.`", ",", 
+            RowBox[{"-", "141.16376944560753`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"124.24634154267083`", ",", 
+            RowBox[{"-", "10.`"}], ",", "123.84326136991875`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {196., 0., 0., 196.}, $CellContext`p2 -> {
+      196., 0., 0., -196.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {141.16376944560753`, 
+      0., -141.16376944560753`, 0.}, $CellContext`p5 -> {
+      124.24634154267083`, -10., 123.84326136991875`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732403974884*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"31159048-216d-4e3d-bf43-6bd3ff7bc1b7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.574724912642312596832603068547851931063951872982159280105651998`\
+43.3028886355327*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.54924675768315", ",", "0``57.406713932979535"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.574724912642312596832603068547851931063951872982159280105651998`43.\
+3028886355327*^-14, 0``58.69897000433602, 0``57.54924675768315, 
+    0``57.406713932979535}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324039840403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cc84e712-adfc-4353-907e-9761094380d6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732403993072*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"930a943d-27b4-4d86-be64-dbd39050e591"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "141.1637694456075280414`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "153664.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "33998.2364925948779050835`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "33998.2364925948779050835`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "55336.1976226781509922148`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "55336.1976226781509922148`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "56254.8682305460617076727`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "392.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "237.1810874217125721535`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08074722749855630921625866729506162622`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "124.2463415426708289025`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "207.3441698110744808497`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324040022993`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b49b6c57-d2dc-4859-aebc-ae8fa938599d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "177.1713197969543`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.1713197969543}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324138725*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9c37718e-c9e5-45c2-8c4c-d62ae6859536"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"197.`", ",", "0.`", ",", "0.`", ",", "197.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"197.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "197.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"142.16538118863105`", ",", "0.`", ",", 
+            RowBox[{"-", "142.16538118863105`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"125.24472979964729`", ",", 
+            RowBox[{"-", "10.`"}], ",", "124.84487311294227`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {197., 0., 0., 197.}, $CellContext`p2 -> {
+      197., 0., 0., -197.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {142.16538118863105`, 
+      0., -142.16538118863105`, 0.}, $CellContext`p5 -> {
+      125.24472979964729`, -10., 124.84487311294227`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732413882599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"52a53eed-d859-4646-9869-25104e665d1e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.432723035992045612457827955406117127620440394640883225700160675`\
+43.75014437920611*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.54617615048209", ",", "0``57.40450377817443"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.432723035992045612457827955406117127620440394640883225700160675`43.\
+75014437920611*^-14, 0``58.69897000433602, 0``57.54617615048209, 
+    0``57.40450377817443}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732413891831*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"268dcca2-49d9-460d-bbc6-312479f745ad"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732413901325*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0b0a8f57-fca5-42e2-9b55-c40b55a716ae"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "142.1653811886310450063`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "155236.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "34251.4162706183211597012`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "34251.4162706183211597012`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "56013.1601883206317324948`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "56013.1601883206317324948`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "56543.1529178779168878961`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "394.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "237.7880419993358641809`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.08009940457028933223627592409094123815`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "125.2447297996472833575`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "207.8693811588390576473`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732413910725*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7ed51606-a186-42ef-b7b6-bcb757183e95"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "178.27146464646466`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 178.27146464646466`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732423673141*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8f39012b-eb6e-43b3-95c6-7d862b821574"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"198.`", ",", "0.`", ",", "0.`", ",", "198.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"198.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "198.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"143.16696735752532`", ",", "0.`", ",", 
+            RowBox[{"-", "143.16696735752532`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"126.24314363075305`", ",", 
+            RowBox[{"-", "10.`"}], ",", "125.84645928183654`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {198., 0., 0., 198.}, $CellContext`p2 -> {
+      198., 0., 0., -198.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {143.16696735752532`, 
+      0., -143.16696735752532`, 0.}, $CellContext`p5 -> {
+      126.24314363075305`, -10., 125.84645928183654`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973242368329*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bcb0b250-204a-4c14-91a1-1a89641ede24"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.38571204515775062427398667857668275532610980899646765294768995`42.\
+24294781045271*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.54312717874702", ",", "0``57.40230481407448"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.38571204515775062427398667857668275532610980899646765294768995`42.\
+24294781045271*^-15, 0``58.69897000433602, 0``57.54312717874702, 
+    0``57.40230481407448}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732423692807*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ded87c84-5054-45ae-ab99-3684661cf1dd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324237020073`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e398c812-8a07-4962-b063-e35553e0e3c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "143.1669673575253227682`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "156816.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "34504.596048641764414319`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "34504.596048641764414319`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "56694.119073580027816206`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "56694.119073580027816206`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "56831.4302444435841111768`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "396.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "238.3934358249899130623`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07946190983096893882492896426532324467`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "126.2431436307530513086`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "208.3932864869690207562`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324237116003`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"464b6444-0242-4aac-b4ad-a3ea2cbaef47"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "179.37060301507537`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 179.37060301507537`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732433568221*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa342b49-82ab-4707-8483-2d72037d9e78"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"199.`", ",", "0.`", ",", "0.`", ",", "199.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"199.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "199.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"144.16852855619055`", ",", "0.`", ",", 
+            RowBox[{"-", "144.16852855619055`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"127.24158243208781`", ",", 
+            RowBox[{"-", "10.`"}], ",", "126.84802048050177`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {199., 0., 0., 199.}, $CellContext`p2 -> {
+      199., 0., 0., -199.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {144.16852855619055`, 
+      0., -144.16852855619055`, 0.}, $CellContext`p5 -> {
+      127.24158243208781`, -10., 126.84802048050177`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732433578006*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e0c6b22-3a2f-4359-8d39-2232a6756fb7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.18505893573252753907346428405562353761277164110772822509426617`\
+42.813840629403586*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.540099538447045", ",", "0``57.40011692792631"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.18505893573252753907346428405562353761277164110772822509426617`42.\
+813840629403586*^-15, 0``58.69897000433602, 0``57.540099538447045, 
+    0``57.40011692792631}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324335875273`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"de5661d4-fcf0-4582-9dd4-b05c331ffe44"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732433596818*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"129cba15-0eeb-44db-97d7-7643d3587ea6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "144.1685285561905516261`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "158404.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "34757.7758266652076689368`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "34757.7758266652076689368`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "57379.0743653638395471717`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "57379.0743653638395471717`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "57119.7003840580957517271`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "398.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "238.9972811227318036657`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07883449786697406512710301606899311588`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "127.24158243208781588`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "208.915895204918092114`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732433606328*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c4e8efe-34e7-42dc-8485-b81436b0b1ae"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "180.46875`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 180.46875}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324438853083`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a4dae41f-1e0a-4b14-bf8d-646daa059fb7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"200.`", ",", "0.`", ",", "0.`", ",", "200.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"200.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "200.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"145.17006536966173`", ",", "0.`", ",", 
+            RowBox[{"-", "145.17006536966173`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"128.24004561861662`", ",", 
+            RowBox[{"-", "10.`"}], ",", "127.84955729397295`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {200., 0., 0., 200.}, $CellContext`p2 -> {
+      200., 0., 0., -200.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {145.17006536966173`, 
+      0., -145.17006536966173`, 0.}, $CellContext`p5 -> {
+      128.24004561861662`, -10., 127.84955729397295`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324438967667`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"18420c57-ddda-4022-bd76-ec029375434b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.886324500412347572470674555333478218976146161689912077164571647`\
+43.37252641859702*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.53709293194614", ",", "0``57.39794000867204"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.886324500412347572470674555333478218976146161689912077164571647`43.\
+37252641859702*^-14, 0``58.69897000433602, 0``57.53709293194614, 
+    0``57.39794000867204}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324439074497`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bd2ddebe-6e14-4c7f-a4c5-59edf6170ced"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732443917894*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"109903ec-be1a-476b-ba5d-ca6c31a2fb20"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "145.1700653696617280275`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "160000.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "35010.9556046886509235546`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "35010.9556046886509235546`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "58068.026147864691210998`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "58068.026147864691210998`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "57407.9635051066891071519`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "400.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "239.5995899518751035944`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07821693099027584161706817100099761167`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "128.2400456186166258004`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "209.4372166169866953911`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732443930698*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17c9c5a8-4993-4e93-b7b3-7698dcc4a7d8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "181.56592039800995`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 181.56592039800995`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732453809585*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9462a008-7f06-416b-b2f8-2254b0084e1b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"201.`", ",", "0.`", ",", "0.`", ",", "201.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"201.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "201.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"146.17157836483952`", ",", "0.`", ",", 
+            RowBox[{"-", "146.17157836483952`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"129.23853262343883`", ",", 
+            RowBox[{"-", "10.`"}], ",", "128.85107028915075`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {201., 0., 0., 201.}, $CellContext`p2 -> {
+      201., 0., 0., -201.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {146.17157836483952`, 
+      0., -146.17157836483952`, 0.}, $CellContext`p5 -> {
+      129.23853262343883`, -10., 128.85107028915075`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732453820859*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8581e3d5-57dc-4ee4-9490-d8bdfca7b41c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.097476056796877937193654182499869503033211900951851302092173032`\
+43.1351390054373*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.53410706782403", ",", "0``57.395773946915526"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.097476056796877937193654182499869503033211900951851302092173032`43.\
+1351390054373*^-14, 0``58.69897000433602, 0``57.53410706782403, 
+    0``57.395773946915526}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732453830875*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b0a5e0a6-8614-4284-8194-48b29a30ab7d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324538402*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7951aa0c-ea59-4842-9cfd-c4a93e02e2f4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "146.1715783648395188266`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "161604.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "35264.1353827120941781724`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "35264.1353827120941781724`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "58760.9745026654865682758`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "58760.9745026654865682758`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "57696.2197707551643296202`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "402.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "240.2003742102729621175`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07760897893637441934076699185380118671`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "129.2385326234388428898`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "209.9572599237021411937`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732453849552*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a2508fd-3058-4534-b9a1-9ed30c7c53b8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "182.6621287128713`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 182.6621287128713}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324635980253`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f22a845-0485-4f26-b924-05c1636c40c3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"202.`", ",", "0.`", ",", "0.`", ",", "202.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"202.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "202.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"147.1730680911875`", ",", "0.`", ",", 
+            RowBox[{"-", "147.1730680911875`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"130.23704289709093`", ",", 
+            RowBox[{"-", "10.`"}], ",", "129.85256001549874`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {202., 0., 0., 202.}, $CellContext`p2 -> {
+      202., 0., 0., -202.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {147.1730680911875, 
+      0., -147.1730680911875, 0.}, $CellContext`p5 -> {
+      130.23704289709093`, -10., 129.85256001549874`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324636080236`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"37e4311c-9c61-4dd9-8fe9-b6b9a59924d0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.615472534971894500462212540817291261961631387893842651333570237`43.\
+75680481020493*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.53114166070348", ",", "0``57.39361863488939"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.615472534971894500462212540817291261961631387893842651333570237`43.\
+75680481020493*^-14, 0``58.69897000433602, 0``57.53114166070348, 
+    0``57.39361863488939}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732463617474*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"96308ace-d843-475a-8953-32b413885afb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973246362671*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"232f6234-870b-4f73-8198-86d4e4a20208"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "147.1730680911875026595`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "163216.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "35517.3151607355374327901`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "35517.3151607355374327901`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "59457.9195088397510744471`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "59457.9195088397510744471`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "57984.4693391505649923646`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "404.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "240.7996456375103659018`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07701041857631791268908701002976116898`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "130.2370428970909161863`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "210.4760342231877989226`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732463636136*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f2c4bfce-50fb-4899-92f7-f693fa2d62dd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "183.75738916256157`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 183.75738916256157`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732473377864*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ccfd9535-0b0e-45d8-9458-0b3ccd082120"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"203.`", ",", "0.`", ",", "0.`", ",", "203.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"203.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "203.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"148.17453508139738`", ",", "0.`", ",", 
+            RowBox[{"-", "148.17453508139738`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"131.23557590688097`", ",", 
+            RowBox[{"-", "10.`"}], ",", "130.85402700570862`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {203., 0., 0., 203.}, $CellContext`p2 -> {
+      203., 0., 0., -203.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {148.17453508139738`, 
+      0., -148.17453508139738`, 0.}, $CellContext`p5 -> {
+      131.23557590688097`, -10., 130.85402700570862`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732473387507*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"698adb12-c7c9-472a-9505-9eee7226ba03"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.062266105431236158443587260552373609951462208267989317356402125`\
+43.40478867470529*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.5281964310833", ",", "0``57.3914739664228"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.062266105431236158443587260552373609951462208267989317356402125`43.\
+40478867470529*^-14, 0``58.69897000433602, 0``57.5281964310833, 
+    0``57.3914739664228}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732473396854*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b5e64703-54ca-4cf5-9b10-d1ccde66fe00"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324734059353`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"753a498a-8abc-4e00-8278-639f6b093d0d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "148.1745350813973800541`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "164836.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "35770.4949387589806874079`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "35770.4949387589806874079`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "60158.8612430473363019701`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "60158.8612430473363019701`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "58272.7123636126393916095`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "406.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "241.3974158180087879617`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0764210336420425360185667186365260739`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "131.2355759068809720143`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "210.9935485125204409077`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732473414998*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e57733b4-ca36-4bc2-a1c8-7afc76b9201d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "184.8517156862745`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 184.8517156862745}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324832152557`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f560ae66-2425-45d4-b89e-ff2f3859cb60"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"204.`", ",", "0.`", ",", "0.`", ",", "204.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"204.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "204.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"149.17597985202434`", ",", "0.`", ",", 
+            RowBox[{"-", "149.17597985202434`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"132.23413113625404`", ",", 
+            RowBox[{"-", "10.`"}], ",", "131.85547177633558`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {204., 0., 0., 204.}, $CellContext`p2 -> {
+      204., 0., 0., -204.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {149.17597985202434`, 
+      0., -149.17597985202434`, 0.}, $CellContext`p5 -> {
+      132.23413113625404`, -10., 131.85547177633558`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732483225095*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"74d9a9f5-7638-434a-9ebf-9722201e6f88"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.60633311602993696395343637181214911245552971178105067676158441`\
+43.07086748371411*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.52527110517749", ",", "0``57.389339836910125"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.60633311602993696395343637181214911245552971178105067676158441`43.\
+07086748371411*^-15, 0``58.69897000433602, 0``57.52527110517749, 
+    0``57.389339836910125}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324832347*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"adba9671-276c-452f-a4ab-fc63ad560fe4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973248324395*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"923d8d34-5b9e-41b1-9d47-7127d5462963"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "149.1759798520243407438`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "166464.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "36023.6747167824239420257`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "36023.6747167824239420257`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "60863.7997796259310234745`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "60863.7997796259310234745`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "58560.9489928167124715707`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "408.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "241.9936961840467291299`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07584061446431929629142527536944774649`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "132.234131136254022341`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "211.5098116890753911778`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732483253139*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d7748f22-aed9-4e94-a4e4-88eeb55708fc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "185.9451219512195`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 185.9451219512195}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732492988495*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7e0acd42-fb39-421d-b2f9-6d211a71ed40"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", "205.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "205.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"150.17740290409319`", ",", "0.`", ",", 
+            RowBox[{"-", "150.17740290409319`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"133.23270808418522`", ",", 
+            RowBox[{"-", "10.`"}], ",", "132.85689482840442`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {205., 0., 0., 205.}, $CellContext`p2 -> {
+      205., 0., 0., -205.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {150.17740290409319`, 
+      0., -150.17740290409319`, 0.}, $CellContext`p5 -> {
+      133.23270808418522`, -10., 132.85689482840442`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973249299784*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1b2fe879-cd79-478a-a980-ca1264486022"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.239922691743123484216280624221296081919976368381523463402770007`43.\
+43641917705368*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.522365414759484", ",", "0``57.38721614328027"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.239922691743123484216280624221296081919976368381523463402770007`43.\
+43641917705368*^-14, 0``58.69897000433602, 0``57.522365414759484, 
+    0``57.38721614328027}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324930072603`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1f7c4730-bd72-4e1f-a74d-c42d70805b4e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797324930164824`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c9d440ab-b215-4c90-ad7a-263af0795d53"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "150.1774029040931850432`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "168100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "36276.8544948058671966434`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "36276.8544948058671966434`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "61572.7351906782058676981`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "61572.7351906782058676981`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "58849.1793709681401600638`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "410.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "242.5884980186986115057`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07526895772263698508415493914310951142`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "133.2327080841852100472`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "212.0248325518584153381`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732493026043*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1bfde587-01a7-4da1-b824-f3d44637da8c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "187.0376213592233`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 187.0376213592233}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973250280194*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e5bd1963-3a67-4750-84c1-c74405b56267"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"206.`", ",", "0.`", ",", "0.`", ",", "206.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"206.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "206.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"151.17880472367773`", ",", "0.`", ",", 
+            RowBox[{"-", "151.17880472367773`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"134.23130626460062`", ",", 
+            RowBox[{"-", "10.`"}], ",", "133.85829664798896`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {206., 0., 0., 206.}, $CellContext`p2 -> {
+      206., 0., 0., -206.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {151.17880472367773`, 
+      0., -151.17880472367773`, 0.}, $CellContext`p5 -> {
+      134.23130626460062`, -10., 133.85829664798896`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732502811585*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f0b36ee1-f661-4712-8d74-97b5ad87be17"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.757993511047056618890262710487314249301937319096346004665844595`\
+43.32909005601352*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.51947909701203", ",", "0``57.385102783966865"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.757993511047056618890262710487314249301937319096346004665844595`43.\
+32909005601352*^-14, 0``58.69897000433602, 0``57.51947909701203, 
+    0``57.385102783966865}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325028209467`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ae1b06c9-5a59-439c-b9eb-8c848bbe4722"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732502831204*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"24572c2d-76d6-4e5a-931c-cc27b3a549ff"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "151.1788047236777288163`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "169744.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "36530.0342728293104512612`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "36530.0342728293104512612`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "62285.6675461552242722973`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "62285.6675461552242722973`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "59137.4036379690741666724`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "412.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "243.1818324586955532851`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07470586620639055317674673793576929017`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "134.2313062646006262949`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "212.5386198028244049154`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732502840639*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a8b20eb2-2ba9-4612-9e84-51d7da10658b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "188.12922705314008`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 188.12922705314008`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732512494464*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cffb5ce7-74e1-4b52-b272-512ea627fdcd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"207.`", ",", "0.`", ",", "0.`", ",", "207.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"207.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "207.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"152.1801857824545`", ",", "0.`", ",", 
+            RowBox[{"-", "152.1801857824545`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"135.2299252058239`", ",", 
+            RowBox[{"-", "10.`"}], ",", "134.85967770676572`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {207., 0., 0., 207.}, $CellContext`p2 -> {
+      207., 0., 0., -207.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {152.1801857824545, 
+      0., -152.1801857824545, 0.}, $CellContext`p5 -> {
+      135.2299252058239, -10., 134.85967770676572`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732512504628*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4e267710-bad9-49cb-8ef9-d4975cfdc56c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.97642686023181357704972873255077393295438530458924560408922708`\
+42.68146266195163*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.51661189438193", ",", "0``57.3829996588791"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.97642686023181357704972873255077393295438530458924560408922708`42.\
+68146266195163*^-15, 0``58.69897000433602, 0``57.51661189438193, 
+    0``57.3829996588791}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732512514045*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3f37e200-55ae-4d4a-8446-fcc0015bf2a1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732512523364*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b165c668-b52f-40e6-94e3-a11c439d35b0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "152.1801857824544867981`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "171396.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "36783.214050852753705879`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "36783.214050852753705879`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "63002.5969139361575344083`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "63002.5969139361575344083`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "59425.6219295778235560383`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "414.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "243.7737104972105550447`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07415114858678261950245553689062592402`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "135.2299252058238819166`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "213.0511820481822223513`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732512532806*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a36b796a-e694-48a6-9b7a-9f70036835f8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "189.21995192307693`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 189.21995192307693`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732522296885*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2ab3d75a-07da-4e7e-b828-b310cd949e5a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"208.`", ",", "0.`", ",", "0.`", ",", "208.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"208.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "208.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"153.18154653823163`", ",", "0.`", ",", 
+            RowBox[{"-", "153.18154653823163`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"136.22856445004678`", ",", 
+            RowBox[{"-", "10.`"}], ",", "135.86103846254287`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {208., 0., 0., 208.}, $CellContext`p2 -> {
+      208., 0., 0., -208.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {153.18154653823163`, 
+      0., -153.18154653823163`, 0.}, $CellContext`p5 -> {
+      136.22856445004678`, -10., 135.86103846254287`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732522306428*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f3bfdd7e-5eab-41e9-bf6d-160de03d41ef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.62043291057640872848718560229012836602495984489778565907797248`43.\
+63863717778759*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.51376355443975", ",", "0``57.38090666937325"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.62043291057640872848718560229012836602495984489778565907797248`43.\
+63863717778759*^-14, 0``58.69897000433602, 0``57.51376355443975, 
+    0``57.38090666937325}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732522315617*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"74523f3b-28b7-4733-aae8-fdfa2dd5f1d5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732522324851*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3cd6cb2-7ed2-4d12-8887-674bb6fe4fb8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "153.1815465382316290288`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "173056.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "37036.3938288761969604968`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "37036.3938288761969604968`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "63723.5233599043576759868`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "63723.5233599043576759868`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "59713.8343775610994088396`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "416.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "244.364142986570555093`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0736046191988810597345218588834513071`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "136.2285644500467798666`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "213.5625277996851761331`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732522334167*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2383f051-23ea-49cf-a002-21515d8cf9d6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "190.30980861244018`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 190.30980861244018`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325321184683`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8474c12d-9ed1-48b3-bc72-c599c66f6820"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"209.`", ",", "0.`", ",", "0.`", ",", "209.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"209.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "209.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"154.18288743545503`", ",", "0.`", ",", 
+            RowBox[{"-", "154.18288743545503`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"137.2272235528234`", ",", 
+            RowBox[{"-", "10.`"}], ",", "136.86237935976627`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {209., 0., 0., 209.}, $CellContext`p2 -> {
+      209., 0., 0., -209.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {154.18288743545503`, 
+      0., -154.18288743545503`, 0.}, $CellContext`p5 -> {
+      137.2272235528234, -10., 136.86237935976627`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732532128337*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f161e8e5-d2bf-4d3a-b1eb-8369e12d17cd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "6.881636069647611856499096288748991510530110019257148637143997876`43.\
+91548542410323*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.510933829744076", ",", "0``57.378823718224965"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   6.881636069647611856499096288748991510530110019257148637143997876`43.\
+91548542410323*^-14, 0``58.69897000433602, 0``57.510933829744076, 
+    0``57.378823718224965}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732532137658*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a47ea919-d889-4618-85d8-f187d6005351"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732532146809*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"527159e9-61f7-4c15-bdac-4efa001628ed"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "154.1828874354550293901`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "174724.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "37289.5736068996402151145`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "37289.5736068996402151145`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "64448.446948020202285079`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "64448.446948020202285079`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "60002.0411098396661134308`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "418.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "244.9531406408982258866`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07306609783330803791409852938356744967`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "137.2272235528234121173`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "214.0726654759071096565`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732532156246*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"394b5eeb-b809-4976-8a39-002c5766c2df"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "191.39880952380955`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 191.39880952380955`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732541943181*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"06569e55-e864-4dc4-b90a-2f25aa6689c5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"210.`", ",", "0.`", ",", "0.`", ",", "210.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"210.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "210.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"155.18420890569223`", ",", "0.`", ",", 
+            RowBox[{"-", "155.18420890569223`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"138.22590208258615`", ",", 
+            RowBox[{"-", "10.`"}], ",", "137.86370083000347`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {210., 0., 0., 210.}, $CellContext`p2 -> {
+      210., 0., 0., -210.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {155.18420890569223`, 
+      0., -155.18420890569223`, 0.}, $CellContext`p5 -> {
+      138.22590208258615`, -10., 137.86370083000347`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325419532013`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12da7882-8b52-48ec-bf3d-d5aaf2ecc7ea"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.453654361579060748769997376229502506723074240156278449834192991`43.\
+23818186963349*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.50812247771046", ",", "0``57.3767507096021"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.453654361579060748769997376229502506723074240156278449834192991`43.\
+23818186963349*^-14, 0``58.69897000433602, 0``57.50812247771046, 
+    0``57.3767507096021}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732541963172*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3593c211-cf6d-4875-8fbc-2a5a3c371c5c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732541972044*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5650013a-3601-4a38-8d45-2988a3e180d1"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "155.1842089056922304735`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "176400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "37542.7533849230834697323`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "37542.7533849230834697323`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "65177.3677403907367988722`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "65177.3677403907367988722`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "60290.2422506276365185554`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "420.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "245.5407140386857238614`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0725354095370671125922395115741934374`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "138.2259020825861567541`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "214.5816034035036613517`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325419811563`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"077bed31-a8a0-4f3b-bb44-e8be3d510679"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "192.48696682464455`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 192.48696682464455`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732551875956*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3500e032-9a58-4f06-a85e-3daf7c94616a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"211.`", ",", "0.`", ",", "0.`", ",", "211.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"211.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "211.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"156.18551136809566`", ",", "0.`", ",", 
+            RowBox[{"-", "156.18551136809566`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"139.2245996201827`", ",", 
+            RowBox[{"-", "10.`"}], ",", "138.8650032924069`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {211., 0., 0., 211.}, $CellContext`p2 -> {
+      211., 0., 0., -211.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {156.18551136809566`, 
+      0., -156.18551136809566`, 0.}, $CellContext`p5 -> {
+      139.2245996201827, -10., 138.8650032924069, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732551886376*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d50baea9-a41b-4ca5-8a0e-c3ac1ab17851"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.590446787330551623918652040008630013845555040891394592493654362`\
+43.27517669657233*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.505329260484444", ",", "0``57.37468754903833"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.590446787330551623918652040008630013845555040891394592493654362`43.\
+27517669657233*^-14, 0``58.69897000433602, 0``57.505329260484444, 
+    0``57.37468754903833}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732551896106*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"42e6619e-45ef-43c4-b814-8d38462160f4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732551905497*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"be1bdd03-678a-43d2-9fb1-62ac0f37565e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "156.1855113680956606004`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "178084.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "37795.9331629465267243501`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "37795.9331629465267243501`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "65910.2857973363687733581`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "65910.2857973363687733581`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "60578.4379205657954240027`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "422.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "246.1268736253028413379`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07201238442304345607881576225803881346`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "139.2245996201826961863`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "215.0893498184585939867`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973255191506*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5ce16abd-58f2-402e-8f23-c13d86c45e27"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "193.57429245283018`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 193.57429245283018`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732561710025*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d7138dda-e4ae-4559-a356-dbcf805e1f10"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"212.`", ",", "0.`", ",", "0.`", ",", "212.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"212.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "212.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"157.18679522984579`", ",", "0.`", ",", 
+            RowBox[{"-", "157.18679522984579`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"140.22331575843265`", ",", 
+            RowBox[{"-", "10.`"}], ",", "139.86628715415702`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {212., 0., 0., 212.}, $CellContext`p2 -> {
+      212., 0., 0., -212.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {157.18679522984579`, 
+      0., -157.18679522984579`, 0.}, $CellContext`p5 -> {
+      140.22331575843265`, -10., 139.86628715415702`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732561720092*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d67664f0-13b3-4fe3-9cc0-8440ecc16b2c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "6.417695700744836920180769354736408427140978070874782450764167647`43.\
+87898326863297*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.502553944818935", ",", "0``57.37263414340727"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   6.417695700744836920180769354736408427140978070874782450764167647`43.\
+87898326863297*^-14, 0``58.69897000433602, 0``57.502553944818935, 
+    0``57.37263414340727}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732561729837*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5c871143-e628-47da-8cad-e44a462fd279"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732561739092*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2fd7c658-a9b8-4994-bc5b-f248c59ab350"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "157.1867952298457851157`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "179776.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "38049.1129409699699789679`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "38049.1129409699699789679`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "66647.2011774546128890506`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "66647.2011774546128890506`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "60866.6282368491477378255`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "424.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "246.7116297154415615852`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07149685748773940119967187006138703096`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "140.2233157584326517524`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "215.5959128673148304319`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325617485733`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"438fcc46-b505-4180-9b30-f072bea7e4ef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "194.66079812206573`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 194.66079812206573`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732571504401*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"62b72bf9-b4b6-4aaf-997b-e957f360894a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"213.`", ",", "0.`", ",", "0.`", ",", "213.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"213.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "213.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"158.18806088657536`", ",", "0.`", ",", 
+            RowBox[{"-", "158.18806088657536`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"141.22205010170302`", ",", 
+            RowBox[{"-", "10.`"}], ",", "140.8675528108866`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {213., 0., 0., 213.}, $CellContext`p2 -> {
+      213., 0., 0., -213.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {158.18806088657536`, 
+      0., -158.18806088657536`, 0.}, $CellContext`p5 -> {
+      141.22205010170302`, -10., 140.8675528108866, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732571514427*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"256a54d4-c52f-4000-bf1b-2e5adbb56dd5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.467426224793141320743933053082938729183041220830627705857861439`43.\
+23611668144213*^-14", ",", "0``58.69897000433602", ",", "0``57.4997963019553",
+      ",", "0``57.370590400897285"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.467426224793141320743933053082938729183041220830627705857861439`43.\
+23611668144213*^-14, 0``58.69897000433602, 0``57.4997963019553, 
+    0``57.370590400897285}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732571524135*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4e8c2fe3-ffba-4c62-9ca5-793e9bcc77c4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325715335827`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8ad75135-f258-4794-bbd9-b9ea2e13fcb2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "158.1880608865753572445`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "181476.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "38302.2927189934132335856`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "38302.2927189934132335856`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "67388.1139376811021861613`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "67388.1139376811021861613`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "61154.813313349026694835`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "426.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "247.2949924954992425591`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07098866843683235956706455014828212515`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "141.2220501017030301209`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "216.101300608390146467`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732571543096*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b1d42fbc-9559-4156-88f8-b077d1b60abc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "195.7464953271028`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 195.7464953271028}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732581292021*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"94d5408b-2cd1-4e1d-98dc-3e8410356d0a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"214.`", ",", "0.`", ",", "0.`", ",", "214.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"214.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "214.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"159.18930872277627`", ",", "0.`", ",", 
+            RowBox[{"-", "159.18930872277627`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"142.22080226550213`", ",", 
+            RowBox[{"-", "10.`"}], ",", "141.8688006470875`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {214., 0., 0., 214.}, $CellContext`p2 -> {
+      214., 0., 0., -214.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {159.18930872277627`, 
+      0., -159.18930872277627`, 0.}, $CellContext`p5 -> {
+      142.22080226550213`, -10., 141.8688006470875, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325813019648`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2df9fca4-8775-4d0d-a139-d4d6d8e948f1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.010583482964391281960498329241566392767020399002680917177803429`43.\
+54617690994459*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.49705610750861", ",", "0``57.368556230986826"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.010583482964391281960498329241566392767020399002680917177803429`43.\
+54617690994459*^-14, 0``58.69897000433602, 0``57.49705610750861, 
+    0``57.368556230986826}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732581311379*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6a538ff1-df3f-42bc-b04a-80121f884a9a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732581320649*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d5b34743-0d6d-4d0d-bf8b-f05e73656b96"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "159.1893087227762748626`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "183184.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "38555.4724970168564882034`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "38555.4724970168564882034`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "68133.024133348245641173`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "68133.024133348245641173`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "61442.9932607301956954008`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "428.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "247.8769720259027928071`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.07048766151816548241413677650547481508`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "142.2208022655021279344`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "216.6055210129777022236`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732581330285*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dda4d1bd-8507-4856-9a0e-329f4b1940a8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "196.83139534883722`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 196.83139534883722`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732591679929*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17fd4168-9397-4c3b-a3d5-d7206fea9b4f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", "215.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "215.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"160.19053911218865`", ",", "0.`", ",", 
+            RowBox[{"-", "160.19053911218865`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"143.21957187608976`", ",", 
+            RowBox[{"-", "10.`"}], ",", "142.87003103649988`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {215., 0., 0., 215.}, $CellContext`p2 -> {
+      215., 0., 0., -215.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {160.19053911218865`, 
+      0., -160.19053911218865`, 0.}, $CellContext`p5 -> {
+      143.21957187608976`, -10., 142.87003103649988`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732591687599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a14fea95-0308-4c38-96f6-b6ca710a4a8e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.80978887981847983440149229495342366920239317747480297368403574`43.\
+323129464135235*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.49433314135622", ",", "0``57.36653154442041"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.80978887981847983440149229495342366920239317747480297368403574`43.\
+323129464135235*^-14, 0``58.69897000433602, 0``57.49433314135622, 
+    0``57.36653154442041}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325916946783`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf220ff5-2697-46ff-9a66-717d3b5a12a9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797325917019053`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7a7b1637-4bd2-4d5a-9146-bf0bc26b03c8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "160.1905391121886452765`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "184900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "38808.6522750402997428212`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "38808.6522750402997428212`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "68881.931818241117468915`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "68881.931818241117468915`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "61731.1681865628292395286`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "430.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "248.4575782433750384146`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06999368536180439003053741827675679905`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "143.2195718760897455124`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "217.1085819665306893005`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732591709029*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c46755d2-9256-4b3b-b340-9f24951244fe"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "197.91550925925924`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 197.91550925925924`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326022471247`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"82e83a70-b383-4fab-970b-c756be31cd77"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"216.`", ",", "0.`", ",", "0.`", ",", "216.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"216.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "216.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"161.1917524181742`", ",", "0.`", ",", 
+            RowBox[{"-", "161.1917524181742`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"144.2183585701042`", ",", 
+            RowBox[{"-", "10.`"}], ",", "143.87124434248543`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {216., 0., 0., 216.}, $CellContext`p2 -> {
+      216., 0., 0., -216.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {161.1917524181742, 
+      0., -161.1917524181742, 0.}, $CellContext`p5 -> {
+      144.2183585701042, -10., 143.87124434248543`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732602255362*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5f215e0e-7407-4713-ba98-24a2b998e828"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.20823036963017572605571881866616249645321977076369009788644365`\
+42.40753063592624*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.49162718753016", ",", "0``57.364516253185094"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.20823036963017572605571881866616249645321977076369009788644365`42.\
+40753063592624*^-15, 0``58.69897000433602, 0``57.49162718753016, 
+    0``57.364516253185094}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732602262801*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5ab0ea8f-ed68-4f51-b81d-6416c7f6a6f3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732602270338*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c8e494ef-f3d2-4453-b752-173bd41ac2e5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "161.1917524181741896427`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "186624.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "39061.8320530637429974389`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "39061.8320530637429974389`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "69634.8370446512499256642`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "69634.8370446512499256642`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "62019.3381954299864831409`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "432.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "249.0368209631459025928`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06950659282681260191086464642021422558`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "144.2183585701041808402`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "217.6104912698317009906`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732602278055*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c1643572-d3f4-47a9-a9bd-1811938e55b8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "198.99884792626727`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 198.99884792626727`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326132885647`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ef9231d1-6a51-4693-ab28-429b55a19f22"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"217.`", ",", "0.`", ",", "0.`", ",", "217.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"217.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "217.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"162.19294899407396`", ",", "0.`", ",", 
+            RowBox[{"-", "162.19294899407396`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"145.21716199420442`", ",", 
+            RowBox[{"-", "10.`"}], ",", "144.8724409183852`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {217., 0., 0., 217.}, $CellContext`p2 -> {
+      217., 0., 0., -217.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {162.19294899407396`, 
+      0., -162.19294899407396`, 0.}, $CellContext`p5 -> {
+      145.21716199420442`, -10., 144.8724409183852, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732613323546*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5a7545ea-a428-4e75-9324-2cae5b07124e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.29215827621249047540673630992091825154865650036637863510627351`\
+42.421724877696704*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.48893803411271", ",", "0``57.36251027048749"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.29215827621249047540673630992091825154865650036637863510627351`42.\
+421724877696704*^-15, 0``58.69897000433602, 0``57.48893803411271, 
+    0``57.36251027048749}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732613336946*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d9e11f9d-64cc-49ea-9a74-548043a81b4e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732613343707*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"69568202-3fac-487f-b99e-46a3c72aa4b9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "162.1929489940739586018`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "188356.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "39315.0118310871862520567`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "39315.0118310871862520567`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "70391.7398634280980331823`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "70391.7398634280980331823`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "62307.5033890305692361995`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "434.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "249.614709881109709484`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06902624085441870777528276711825249841`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "145.2171619942044117971`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "218.1112566401463899639`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732613353973*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c741d9e2-5770-469d-b72f-03b13209d3c8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "200.08142201834863`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 200.08142201834863`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732624486681*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3ebd8ce9-17c6-4790-934e-56a4aa248b1d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"218.`", ",", "0.`", ",", "0.`", ",", "218.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"218.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "218.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"163.1941291835514`", ",", "0.`", ",", 
+            RowBox[{"-", "163.1941291835514`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"146.21598180472705`", ",", 
+            RowBox[{"-", "10.`"}], ",", "145.87362110786265`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {218., 0., 0., 218.}, $CellContext`p2 -> {
+      218., 0., 0., -218.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {163.1941291835514, 
+      0., -163.1941291835514, 0.}, $CellContext`p5 -> {
+      146.21598180472705`, -10., 145.87362110786265`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326244966784`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb9b268a-c8ba-4bfd-bed7-cc81052d62db"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "7.556243270885371607814480856763744441417183640356733681964990949`43.\
+937789446517115*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.48626547313539", ",", "0``57.36051351073141"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   7.556243270885371607814480856763744441417183640356733681964990949`43.\
+937789446517115*^-14, 0``58.69897000433602, 0``57.48626547313539, 
+    0``57.36051351073141}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732624507288*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e1dfa275-461b-4c51-85c9-a87942b6232a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732624516321*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f335dde-5351-418c-8985-91986292c81e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "163.1941291835514107333`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "190096.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "39568.1916091106295066745`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "39568.1916091106295066745`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "71152.6403240284150797379`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "71152.6403240284150797379`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "62595.6638662780670759542`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "436.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "250.191254575930505437`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06855249032726587054197050260508771291`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "146.2159818047270375202`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "218.6108857123615678167`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732624524351*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0d28450b-d783-4640-8afc-8e92362cc053"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "201.1632420091324`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 201.1632420091324}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732635103713*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"27b61f5a-ef4b-4944-b7bf-8214303eb6b4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"219.`", ",", "0.`", ",", "0.`", ",", "219.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"219.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "219.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"164.19529332092134`", ",", "0.`", ",", 
+            RowBox[{"-", "164.19529332092134`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"147.21481766735707`", ",", 
+            RowBox[{"-", "10.`"}], ",", "146.87478524523257`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {219., 0., 0., 219.}, $CellContext`p2 -> {
+      219., 0., 0., -219.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {164.19529332092134`, 
+      0., -164.19529332092134`, 0.}, $CellContext`p5 -> {
+      147.21481766735707`, -10., 146.87478524523257`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326351126947`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1b9f2538-9721-44ef-9cf5-b94b342fea0a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.748511498670481533197596784861970703255423666045712766546800532`43.\
+49659345205151*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.48360930048104", ",", "0``57.3585258894959"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.748511498670481533197596784861970703255423666045712766546800532`43.\
+49659345205151*^-14, 0``58.69897000433602, 0``57.48360930048104, 
+    0``57.3585258894959}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326351215343`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a3a20756-f90b-40bf-9a6f-a29c5dede57c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732635129795*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a612c2a1-7ce0-4f21-8f83-9ade9573b8a9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "164.1952933209213369992`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "191844.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "39821.3713871340727612923`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "39821.3713871340727612923`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "71917.5384745635456056334`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "71917.5384745635456056334`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "62883.819723395228641419`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "438.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "250.7664645110969152163`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06808520593445151510435622218639190849`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "147.2148176673570631771`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "219.1093860401076561783`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326351396437`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc5345fd-8c42-47f0-bd3f-6a4fa04118ff"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "202.24431818181816`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 202.24431818181816`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732645446904*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e6a86ef3-2c96-4089-92ad-ee138afec414"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"220.`", ",", "0.`", ",", "0.`", ",", "220.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"220.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "220.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"165.1964417314659`", ",", "0.`", ",", 
+            RowBox[{"-", "165.1964417314659`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"148.2136692568125`", ",", 
+            RowBox[{"-", "10.`"}], ",", "147.87593365577715`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {220., 0., 0., 220.}, $CellContext`p2 -> {
+      220., 0., 0., -220.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {165.1964417314659, 
+      0., -165.1964417314659, 0.}, $CellContext`p5 -> {
+      148.2136692568125, -10., 147.87593365577715`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732645455339*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aaffec28-065f-4495-997a-dcdfb3d37b3a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.936544294448554840685984545033080579404499093798268664095320931`43.\
+34254476287427*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.480969315788904", ",", "0``57.35654732351381"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.936544294448554840685984545033080579404499093798268664095320931`43.\
+34254476287427*^-14, 0``58.69897000433602, 0``57.480969315788904, 
+    0``57.35654732351381}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732645462741*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e3bdfea6-b051-4a9e-9d7a-cd052347554a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732645470697*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"77399f66-d8c0-4635-8d68-52dcfbf2e2fb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "165.1964417314659101521`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "193600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "40074.55116515751601591`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "40074.55116515751601591`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "72686.4343618450004669285`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "72686.4343618450004669285`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "63171.9710540050272252303`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "440.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "251.3403490369284643268`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06762425604208062015274701315861198249`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "148.2136692568124819045`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "219.6067650968658335733`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732645477594*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"36df6363-c808-40f5-8660-650d4b0ce4a8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "203.32466063348417`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 203.32466063348417`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326551822443`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"66bc7336-3921-47bf-83a4-1aa7eb8b4159"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"221.`", ",", "0.`", ",", "0.`", ",", "221.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"221.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "221.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"166.19757473173743`", ",", "0.`", ",", 
+            RowBox[{"-", "166.19757473173743`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"149.21253625654097`", ",", 
+            RowBox[{"-", "10.`"}], ",", "148.87706665604867`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {221., 0., 0., 221.}, $CellContext`p2 -> {
+      221., 0., 0., -221.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {166.19757473173743`, 
+      0., -166.19757473173743`, 0.}, $CellContext`p5 -> {
+      149.21253625654097`, -10., 148.87706665604867`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732655189913*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17502234-28e5-44d7-8e44-a36fe2455a0d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.741454754686821426246125256767138854575006894338775350599475847`43.\
+62658823266607*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.478345322362706", ",", "0``57.35457773065091"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.741454754686821426246125256767138854575006894338775350599475847`43.\
+62658823266607*^-14, 0``58.69897000433602, 0``57.478345322362706, 
+    0``57.35457773065091}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732655197184*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9f92d565-2e84-41f9-a00e-31d24d2e84e5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326552041693`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f1683701-c140-4ac7-b873-e5596c95e186"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "166.1975747317374327849`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "195364.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "40327.7309431809592705278`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "40327.7309431809592705278`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "73459.3280314279452909432`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "73459.3280314279452909432`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "63460.1179492177979575029`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "442.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "251.9129173925342756509`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06716951256907179576137825361844365746`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "149.2125362565409773207`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "220.1030302770594070863`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732655211349*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"76be098c-caa1-4ae0-afdc-947c476e291a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "204.40427927927928`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 204.40427927927928`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732665049487*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0035d210-f612-4e86-92ce-ca3c62accf22"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"222.`", ",", "0.`", ",", "0.`", ",", "222.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"222.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "222.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"167.1986926298493`", ",", "0.`", ",", 
+            RowBox[{"-", "167.1986926298493`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"150.21141835842906`", ",", 
+            RowBox[{"-", "10.`"}], ",", "149.87818455416053`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {222., 0., 0., 222.}, $CellContext`p2 -> {
+      222., 0., 0., -222.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {167.1986926298493, 
+      0., -167.1986926298493, 0.}, $CellContext`p5 -> {
+      150.21141835842906`, -10., 149.87818455416053`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326650574303`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7e1aabd-3cbc-4760-90e7-b08a5a4aeab8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.744901048546569712356811457614876625175055053876271719033396813`\
+43.293357837844*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.47573712708148", ",", "0``57.35261702988538"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.744901048546569712356811457614876625175055053876271719033396813`43.\
+293357837844*^-14, 0``58.69897000433602, 0``57.47573712708148, 
+    0``57.35261702988538}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732665064637*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5f85dbcc-aece-48c6-a91c-671c172150d5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732665071619*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5db185b4-a737-4533-9efa-89136fdaf024"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "167.1986926298492903697`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "197136.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "40580.9107212044025251456`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "40580.9107212044025251456`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "74236.2195276530849241681`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "74236.2195276530849241681`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "63748.2604977149801407085`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "444.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "252.484178707726120644`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06672085086796847471369317903418107835`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "150.2114183584290648724`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "220.5981888971299340115`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732665078763*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4d1fb91d-abd3-4ad5-b0d1-20b45cea5fc5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "205.48318385650225`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 205.48318385650225`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326748346987`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f4c54dd-b23e-4b18-9faf-c0e9ac8b6227"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"223.`", ",", "0.`", ",", "0.`", ",", "223.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"223.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "223.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"168.19979572575548`", ",", "0.`", ",", 
+            RowBox[{"-", "168.19979572575548`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"151.21031526252293`", ",", 
+            RowBox[{"-", "10.`"}], ",", "150.87928765006671`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {223., 0., 0., 223.}, $CellContext`p2 -> {
+      223., 0., 0., -223.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {168.19979572575548`, 
+      0., -168.19979572575548`, 0.}, $CellContext`p5 -> {
+      151.21031526252293`, -10., 150.87928765006671`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732674842081*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b7a7f1b1-aea2-4fa7-8f22-1d26b3ab51db"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.493984003478425513111582470128669387920422430301144183019237087`43.\
+4465288091917*^-14", ",", "0``58.69897000433602", ",", "0``57.47314454031307",
+      ",", "0``57.35066514128786"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.493984003478425513111582470128669387920422430301144183019237087`43.\
+4465288091917*^-14, 0``58.69897000433602, 0``57.47314454031307, 
+    0``57.35066514128786}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732674848844*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"546847d3-8128-48d1-9c9d-b117cabb6adc"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732674856604*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"647e9acd-d51b-4e09-9cff-cc4aa737a164"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "168.1997957257554787702`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "198916.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "40834.0904992278457797633`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "40834.0904992278457797633`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "75017.1088936869435315202`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "75017.1088936869435315202`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "64036.398785829571080245`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "446.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "253.0541420048871104434`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0662781496105213011369309159471006302`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "151.2103152625229188607`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "221.0922481965980796281`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732674863743*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"30aabbcb-d674-4975-84aa-17dcece6d54b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "206.56138392857142`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 206.56138392857142`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732684655389*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d58f46a8-b7ed-463a-995d-ad286c7c990a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"224.`", ",", "0.`", ",", "0.`", ",", "224.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"224.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "224.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"169.20088431151865`", ",", "0.`", ",", 
+            RowBox[{"-", "169.20088431151865`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"152.20922667675976`", ",", 
+            RowBox[{"-", "10.`"}], ",", "151.88037623582989`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {224., 0., 0., 224.}, $CellContext`p2 -> {
+      224., 0., 0., -224.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {169.20088431151865`, 
+      0., -169.20088431151865`, 0.}, $CellContext`p5 -> {
+      152.20922667675976`, -10., 151.88037623582989`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797326846629667`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"11885655-5e60-49a0-826c-c17809e604d3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.226488559607924963950862983912956914691750847060485814298782261`43.\
+673671688089186*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.47056737583036", ",", "0``57.348721986001856"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.226488559607924963950862983912956914691750847060485814298782261`43.\
+673671688089186*^-14, 0``58.69897000433602, 0``57.47056737583036, 
+    0``57.348721986001856}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732684669984*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8682de5e-2172-425b-b638-4cfc42dc5880"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732684676813*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e1d7bb71-165c-4dad-ab54-1f980443010e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "169.2008843115186493833`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "200704.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "41087.2702772512890343811`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "41087.2702772512890343811`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "75801.996171560354923713`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "75801.996171560354923713`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "64324.5328976232750499772`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "448.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "253.6228162007970351722`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06584129067782039566633592672721478617`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "152.2092266767597655727`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "221.5852153391090163764`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732684683717*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c0ab5618-5768-43a2-81fb-f361e533cfd6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "207.63888888888889`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 207.63888888888889`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732694389037*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f13d7c90-a790-4e98-8beb-77ae41e91fc9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", "225.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "225.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"170.20195867156812`", ",", "0.`", ",", 
+            RowBox[{"-", "170.20195867156812`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"153.20815231671028`", ",", 
+            RowBox[{"-", "10.`"}], ",", "152.88145059587936`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {225., 0., 0., 225.}, $CellContext`p2 -> {
+      225., 0., 0., -225.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {170.20195867156812`, 
+      0., -170.20195867156812`, 0.}, $CellContext`p5 -> {
+      153.20815231671028`, -10., 152.88145059587936`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732694396755*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b6420b48-d636-47c6-86b3-a2bebc706bf2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.02284991097175327795790023519202466001211411128996309167036244`43.\
+52617407490191*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.468005450729876", ",", "0``57.346787486224656"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.02284991097175327795790023519202466001211411128996309167036244`43.\
+52617407490191*^-14, 0``58.69897000433602, 0``57.468005450729876, 
+    0``57.346787486224656}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732694404381*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eced28e0-2ac3-45d7-96ef-49d9ced03644"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732694411364*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8e2073db-7561-4ec4-bb8f-df4fb5535662"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "170.2019586715681214173`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "202500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "41340.4500552747322889989`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "41340.4500552747322889989`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "76590.8814022056546377826`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "76590.8814022056546377826`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "64612.6629149607645910579`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "450.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "254.1902101084161828642`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06541015905476718750600558698856411314`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "153.2081523167102815023`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "222.0770974134629391099`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732694418456*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"04991ebc-9cac-4a8a-bdfd-182a21555f62"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "208.71570796460176`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 208.71570796460176`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732704104632*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8563d433-1218-4e92-ab82-54db089b0165"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"226.`", ",", "0.`", ",", "0.`", ",", "226.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"226.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "226.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"171.2030190829476`", ",", "0.`", ",", 
+            RowBox[{"-", "171.2030190829476`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"154.2070919053308`", ",", 
+            RowBox[{"-", "10.`"}], ",", "153.88251100725884`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {226., 0., 0., 226.}, $CellContext`p2 -> {
+      226., 0., 0., -226.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {171.2030190829476, 
+      0., -171.2030190829476, 0.}, $CellContext`p5 -> {
+      154.2070919053308, -10., 153.88251100725884`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732704111891*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"873391fa-7cb8-4c84-b35b-9867e810089f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.928825873947412516918271348432168389803312569451655378414166721`43.\
+32912459271175*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.46545858535293", ",", "0``57.344861565188616"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.928825873947412516918271348432168389803312569451655378414166721`43.\
+32912459271175*^-14, 0``58.69897000433602, 0``57.46545858535293, 
+    0``57.344861565188616}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732704118936*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"adc4c956-97c7-46a4-8616-0e3cb3701460"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327041255608`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"52252aa1-5332-4550-a898-1d3e86352da8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "171.2030190829476055114`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "204304.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "41593.6298332981755436167`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "41593.6298332981755436167`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "77383.7646254923176911689`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "77383.7646254923176911689`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "64900.7889175809805207985`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "452.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "254.7563324386284622916`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06498464272868726036327036445938877148`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "154.2070919053307864679`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "222.5679014346304507336`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732704132718*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f83ffdf5-2458-4eaf-9b12-f3cff1424ac9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "209.79185022026434`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 209.79185022026434`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327138992167`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8bdc598a-20fd-4eb8-abde-4729f3f70175"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"227.`", ",", "0.`", ",", "0.`", ",", "227.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"227.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "227.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"172.20406581555335`", ",", "0.`", ",", 
+            RowBox[{"-", "172.20406581555335`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"155.20604517272503`", ",", 
+            RowBox[{"-", "10.`"}], ",", "154.88355773986459`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {227., 0., 0., 227.}, $CellContext`p2 -> {
+      227., 0., 0., -227.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {172.20406581555335`, 
+      0., -172.20406581555335`, 0.}, $CellContext`p5 -> {
+      155.20604517272503`, -10., 154.88355773986459`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732713907057*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0ad4282f-68af-4930-8e21-c6ed0955ceea"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.142019599932291044406278863840285107780339237910529989218459097`43.\
+099587709039696*^-14", ",", "0``58.69897000433602", ",", "0``57.462926603209",
+      ",", "0``57.342944147142894"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.142019599932291044406278863840285107780339237910529989218459097`43.\
+099587709039696*^-14, 0``58.69897000433602, 0``57.462926603209, 
+    0``57.342944147142894}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732713914384*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b3583bfc-8058-41f4-a7ce-ec64e2e7bb29"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327139214087`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5dc8c56c-0caa-421b-b10e-5b570b844444"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "172.2040658155533492391`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "206116.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "41846.8096113216187982344`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "41846.8096113216187982344`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "78180.6458802612205545302`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "78180.6458802612205545302`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "65188.9109831656751605623`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "454.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "255.3211918019451732807`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06456463259189557134969491467485544092`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "155.2060451727250348723`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "223.0576343447530722226`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327139285593`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"46958bac-6bf9-4d22-a62a-969d320b2d70"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "210.8673245614035`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 210.8673245614035}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327237026157`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7bd644c0-080a-465c-aef0-fa0f54f9a439"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"228.`", ",", "0.`", ",", "0.`", ",", "228.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"228.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "228.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"173.20509913236316`", ",", "0.`", ",", 
+            RowBox[{"-", "173.20509913236316`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"156.2050118559152`", ",", 
+            RowBox[{"-", "10.`"}], ",", "155.8845910566744`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {228., 0., 0., 228.}, $CellContext`p2 -> {
+      228., 0., 0., -228.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {173.20509913236316`, 
+      0., -173.20509913236316`, 0.}, $CellContext`p5 -> {
+      156.2050118559152, -10., 155.8845910566744, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732723710458*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f7d8d3de-c86c-4bb0-9932-5e7e52c47009"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.387217567618385232835756960925449290548070546962050835557012188`\
+43.18214974171102*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.46040933090153", ",", "0``57.34103515733556"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.387217567618385232835756960925449290548070546962050835557012188`43.\
+18214974171102*^-14, 0``58.69897000433602, 0``57.46040933090153, 
+    0``57.34103515733556}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973272371767*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cfb34a16-b81e-475c-a7c5-14e875de8bd7"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327237247257`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8e537388-f10a-468b-acf2-618bb81166af"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "173.2050991323631592422`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "207936.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "42099.9893893450620528522`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "42099.9893893450620528522`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "78981.5252043576006144576`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "78981.5252043576006144576`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "65477.0291874053296684264`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "456.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "255.8847967101705901356`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06415002234803526444667974834586529117`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "156.2050118559151995767`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "223.5463030141290234733`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732723732188*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7190208d-f1cf-43c1-b41f-5894ed8f1486"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "211.94213973799125`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 211.94213973799125`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732733524427*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f232c1df-2aee-43d1-9a02-7003263bb1fd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"229.`", ",", "0.`", ",", "0.`", ",", "229.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"229.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "229.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"174.20611928965673`", ",", "0.`", ",", 
+            RowBox[{"-", "174.20611928965673`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"157.20399169862165`", ",", 
+            RowBox[{"-", "10.`"}], ",", "156.88561121396796`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {229., 0., 0., 229.}, $CellContext`p2 -> {
+      229., 0., 0., -229.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {174.20611928965673`, 
+      0., -174.20611928965673`, 0.}, $CellContext`p5 -> {
+      157.20399169862165`, -10., 156.88561121396796`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327335325403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"da0a7311-24df-4658-9718-53fddc40def7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.191155698045093013823161792734547596792751351514535980892678209`43.\
+1140730589168*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.457906598055565", ",", "0``57.33913452199613"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.191155698045093013823161792734547596792751351514535980892678209`43.\
+1140730589168*^-14, 0``58.69897000433602, 0``57.457906598055565, 
+    0``57.33913452199613}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732733539749*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e13b2837-056d-4ad8-b43c-e992909366da"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732733546793*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af372319-2bc2-4dc0-b0d0-0f8b0ae6941a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "174.2061192896567263233`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "209764.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "42353.16916736850530747`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "42353.16916736850530747`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "79786.4026346627806560718`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "79786.4026346627806560718`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "65765.143604062568181995`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "458.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "256.4471555780304773665`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06374070842202049410023542676943825837`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "157.2039916986216582794`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "224.0339142421844252341`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327335541573`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fe7a7799-1968-4819-95f3-94a4b7e31205"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "213.0163043478261`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 213.0163043478261}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327437388906`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"25e2ab7e-1d61-4edf-bcc2-ef359f4462e1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"230.`", ",", "0.`", ",", "0.`", ",", "230.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"230.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "230.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"175.20712653722742`", ",", "0.`", ",", 
+            RowBox[{"-", "175.20712653722742`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"158.20298445105098`", ",", 
+            RowBox[{"-", "10.`"}], ",", "157.88661846153866`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {230., 0., 0., 230.}, $CellContext`p2 -> {
+      230., 0., 0., -230.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {175.20712653722742`, 
+      0., -175.20712653722742`, 0.}, $CellContext`p5 -> {
+      158.20298445105098`, -10., 157.88661846153866`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732743749116*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e4cbc629-0138-4ba7-83d1-74549b13cef2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.962108601180817656806943482264579950923354693654296541886918446`43.\
+507813149874394*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.45541823724798", ",", "0``57.33724216831843"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.962108601180817656806943482264579950923354693654296541886918446`43.\
+507813149874394*^-14, 0``58.69897000433602, 0``57.45541823724798, 
+    0``57.33724216831843}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732743758811*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9524a21f-2461-4e3f-8877-7f3b7a59cf76"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973274376842*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ac967fa4-497b-49dd-b8e6-eb2714f34652"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "175.2071265372274240235`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "211600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "42606.3489453919485620878`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "42606.3489453919485620878`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "80595.2782071246150508159`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "80595.2782071246150508159`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "66053.2543050331178535189`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "460.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "257.0082767247644844873`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06333658987342243118597695696189899774`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "158.2029844510509782887`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "224.5204747584299643758`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327437783327`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"35be8194-04ea-425e-ab75-ab5300e4f518"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "214.08982683982683`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 214.08982683982683`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732754099524*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dcd51e30-448a-4849-8e4e-28dd4ea5df82"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"231.`", ",", "0.`", ",", "0.`", ",", "231.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"231.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "231.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"176.20812111858632`", ",", "0.`", ",", 
+            RowBox[{"-", "176.20812111858632`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"159.2019898696921`", ",", 
+            RowBox[{"-", "10.`"}], ",", "158.88761304289756`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {231., 0., 0., 231.}, $CellContext`p2 -> {
+      231., 0., 0., -231.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {176.20812111858632`, 
+      0., -176.20812111858632`, 0.}, $CellContext`p5 -> {
+      159.2019898696921, -10., 158.88761304289756`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327541078873`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"599d76a4-5a60-4649-92d7-771851436bc6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.876332113313250436748738579227070935711554596587138814022282916`43.\
+722421305313496*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.45294408393926", ",", "0``57.33535802444388"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.876332113313250436748738579227070935711554596587138814022282916`43.\
+722421305313496*^-14, 0``58.69897000433602, 0``57.45294408393926, 
+    0``57.33535802444388}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327541159887`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e7f3a471-92d1-4622-be50-07e4f528bac4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327541236753`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa33fa85-aad1-4e83-9e90-005ef45da8ee"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "176.2081211185863196533`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "213444.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "42859.5287234153918167055`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "42859.5287234153918167055`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "81408.1519567868796798393`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "81408.1519567868796798393`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "66341.3613604045274666542`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "462.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "257.5681683756836584821`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06293756831314554850141721529998992105`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "159.2019898696921018011`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "225.0059912234033569861`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732754131689*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"afb9ec85-39a4-4055-a036-ed6af09813a3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "215.16271551724137`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 215.16271551724137`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732764156844*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ffaffd0f-c2e4-4c02-a6f6-a2e31cd367e4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"232.`", ",", "0.`", ",", "0.`", ",", "232.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"232.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "232.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"177.20910327115837`", ",", "0.`", ",", 
+            RowBox[{"-", "177.20910327115837`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"160.20100771712`", ",", 
+            RowBox[{"-", "10.`"}], ",", "159.8885951954696`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {232., 0., 0., 232.}, $CellContext`p2 -> {
+      232., 0., 0., -232.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {177.20910327115837`, 
+      0., -177.20910327115837`, 0.}, $CellContext`p5 -> {
+      160.20100771712, -10., 159.8885951954696, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732764164456*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"47a06e43-a135-48b2-8151-2c8d32c13135"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.39633556373326946546411333185564951906965971142709113719057593`42.\
+177441823132135*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.45048397640754", ",", "0``57.33348201944512"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.39633556373326946546411333185564951906965971142709113719057593`42.\
+177441823132135*^-15, 0``58.69897000433602, 0``57.45048397640754, 
+    0``57.33348201944512}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732764171479*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7d946498-1ce5-477d-9311-09aefaec5343"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973276417846*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8bab179f-cbbb-48d5-912e-71949d61b066"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "177.2091032711583693526`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "215296.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "43112.7085014388350713233`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "43112.7085014388350713233`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "82225.023917817483379622`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "82225.023917817483379622`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "66629.4648385126364545019`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "464.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "258.1268386636938542865`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06254354782324929397546873203433159739`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "160.2010077171200047348`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "225.4904702295975834122`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973276418536*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb557c46-a780-4229-90c2-b04fa6f3c545"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "216.23497854077254`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 216.23497854077254`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732774089368*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"522773e2-03fb-4c84-9766-17fff383e749"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"233.`", ",", "0.`", ",", "0.`", ",", "233.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"233.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "233.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"178.2100732264715`", ",", "0.`", ",", 
+            RowBox[{"-", "178.2100732264715`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"161.20003776180687`", ",", 
+            RowBox[{"-", "10.`"}], ",", "160.88956515078274`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {233., 0., 0., 233.}, $CellContext`p2 -> {
+      233., 0., 0., -233.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {178.2100732264715, 
+      0., -178.2100732264715, 0.}, $CellContext`p5 -> {
+      161.20003776180687`, -10., 160.88956515078274`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327740970373`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"612d3051-9ca7-4b91-be43-4237bb637017"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "9.37445218816107126060117879585878256204390526007898505438719526`43.\
+0025299860607*^-15", ",", "0``58.69897000433602", ",", "0``57.44803775568438",
+      ",", "0``57.331614083309994"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   9.37445218816107126060117879585878256204390526007898505438719526`43.\
+0025299860607*^-15, 0``58.69897000433602, 0``57.44803775568438, 
+    0``57.331614083309994}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732774104183*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1100485b-08b0-43d3-a792-bc277ad08d05"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327741116943`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"350e69e3-e587-4041-bbc6-e695b4aa0d4d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "178.2100732264715077235`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "217156.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "43365.8882794622783259411`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "43365.8882794622783259411`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "83045.894123535722599172`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "83045.894123535722599172`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "66917.5648059959988279021`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "466.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "258.6842956307862126497`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06215443487977722066442105834003876223`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "161.200037761806874342`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "225.9739183023752416108`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973277411884*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5417508d-2c45-44c8-bab1-6ab7ee8d9ede"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "217.30662393162396`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 217.30662393162396`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732783947501*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23681509-062f-4bfe-8997-8a45166a3263"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"234.`", ",", "0.`", ",", "0.`", ",", "234.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"234.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "234.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"179.21103121033843`", ",", "0.`", ",", 
+            RowBox[{"-", "179.21103121033843`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"162.19907977793997`", ",", 
+            RowBox[{"-", "10.`"}], ",", "161.89052313464967`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {234., 0., 0., 234.}, $CellContext`p2 -> {
+      234., 0., 0., -234.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {179.21103121033843`, 
+      0., -179.21103121033843`, 0.}, $CellContext`p5 -> {
+      162.19907977793997`, -10., 161.89052313464967`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732783955529*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"83655b12-3f35-4c7c-8e94-d5213fa297e1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.630179396613808556864657470448624418725231310698299810621086712`43.\
+5886522388419*^-14", ",", "0``58.69897000433602", ",", "0``57.44560526549246",
+      ",", "0``57.32975414692588"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.630179396613808556864657470448624418725231310698299810621086712`43.\
+5886522388419*^-14, 0``58.69897000433602, 0``57.44560526549246, 
+    0``57.32975414692588}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732783962508*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a49cd89a-8663-4dfe-926c-b45c79f54017"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797327839697657`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"28ab2da9-bb06-47c9-a9cc-a1aead2ac5fe"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "179.211031210338433084`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "219024.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "43619.0680574857215805588`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "43619.0680574857215805588`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "83870.7626064383866832941`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "83870.7626064383866832941`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "67205.6613278482047514707`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "468.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "259.2405472294953414421`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06177013827846285896221089146441799666`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "162.1990797779399759089`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "226.4563419008689356792`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732783976932*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0e20ca25-6098-4214-b911-3e8b10383f3f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "218.37765957446808`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 218.37765957446808`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732793789155*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e15af2bb-9ba4-46ec-9dcb-bac04ae5173d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", "235.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "235.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"180.2119774430319`", ",", "0.`", ",", 
+            RowBox[{"-", "180.2119774430319`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"163.19813354524644`", ",", 
+            RowBox[{"-", "10.`"}], ",", "162.89146936734315`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {235., 0., 0., 235.}, $CellContext`p2 -> {
+      235., 0., 0., -235.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {180.2119774430319, 
+      0., -180.2119774430319, 0.}, $CellContext`p5 -> {
+      163.19813354524644`, -10., 162.89146936734315`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732793799171*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17af50c1-17d5-494c-8471-4eda6e2a4fa2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.913758809530085472281171704219943912216377225393075893504471841`\
+43.49132574598754*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.443186352184924", ",", "0``57.32790214206428"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.913758809530085472281171704219943912216377225393075893504471841`43.\
+49132574598754*^-14, 0``58.69897000433602, 0``57.443186352184924, 
+    0``57.32790214206428}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732793808427*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5b5b8f78-cf52-43bd-8a9a-c338a8c0748f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732793817224*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ff89301c-cd6d-4672-9b49-a621543253c4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "180.2119774430319125713`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "220900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "43872.2478355091648351766`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "43872.2478355091648351766`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "84699.6293982249989085176`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "84699.6293982249989085176`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "67493.7544674683369977884`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "470.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "259.7956013243263843652`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06139056906318768367351095823215175003`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "163.1981335452464309822`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "226.9377474188681227193`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732793826355*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6aaf854e-269a-4c59-8560-c4ded7196189"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "219.448093220339`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 219.448093220339}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732803746955*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"953be425-ca47-4f73-b5c8-17488c189978"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"236.`", ",", "0.`", ",", "0.`", ",", "236.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"236.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "236.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"181.21291213945383`", ",", "0.`", ",", 
+            RowBox[{"-", "181.21291213945383`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"164.19719884882457`", ",", 
+            RowBox[{"-", "10.`"}], ",", "163.89240406376507`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {236., 0., 0., 236.}, $CellContext`p2 -> {
+      236., 0., 0., -236.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {181.21291213945383`, 
+      0., -181.21291213945383`, 0.}, $CellContext`p5 -> {
+      164.19719884882457`, -10., 163.89240406376507`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732803755014*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8cb1cece-35bc-43a4-a8e4-879b366079d2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.496053520623975737651915528362788396038136245786969938350735136`43.\
+42228189899695*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.44078086468659", ",", "0``57.326058001365915"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.496053520623975737651915528362788396038136245786969938350735136`43.\
+42228189899695*^-14, 0``58.69897000433602, 0``57.44078086468659, 
+    0``57.326058001365915}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732803762527*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"35fd26b0-50d6-4ad2-adba-de1230fea42e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328037697563`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d13cf3b4-eefc-4c54-bee7-d15af87bb603"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "181.2129121394538344703`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "222784.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "44125.4276135326080897944`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "44125.4276135326080897944`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "85532.4945298222098699625`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "85532.4945298222098699625`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "67781.8442867096277226139`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "472.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "260.3494656931518031776`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06101564045707288503534439818496084394`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "164.1971988488245631814`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "227.4181411856925603442`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732803777289*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c44d6498-a6ba-4f08-8022-e6560589653e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "220.51793248945145`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 220.51793248945145`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732813618273*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"38b6c2d1-393a-4b06-8af1-cd9899a91f04"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"237.`", ",", "0.`", ",", "0.`", ",", "237.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"237.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "237.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"182.21383550929758`", ",", "0.`", ",", 
+            RowBox[{"-", "182.21383550929758`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"165.19627547898085`", ",", 
+            RowBox[{"-", "10.`"}], ",", "164.89332743360882`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {237., 0., 0., 237.}, $CellContext`p2 -> {
+      237., 0., 0., -237.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {182.21383550929758`, 
+      0., -182.21383550929758`, 0.}, $CellContext`p5 -> {
+      165.19627547898085`, -10., 164.89332743360882`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732813626061*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9b17697b-a92b-4b4d-975a-b4c080f28722"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.15657383827816350231410922811442147750615241303502002300290684`43.\
+73555290356411*^-14", ",", "0``58.69897000433602", ",", "0``57.4383886544366",
+      ",", "0``57.32422165832591"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.15657383827816350231410922811442147750615241303502002300290684`43.\
+73555290356411*^-14, 0``58.69897000433602, 0``57.4383886544366, 
+    0``57.32422165832591}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328136338882`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7dd342c5-7420-4541-9627-b35226b1017d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732813641111*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ea32b32f-82a7-4194-9fd9-a7703583c0af"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "182.2138355092975814387`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "224676.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "44378.6073915560513444122`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "44378.6073915560513444122`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "86369.3580314070536019244`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "86369.3580314070536019244`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "68069.9308459261928557373`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "474.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "260.902148028578317521`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.06064526779609266838049531510701530187`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "165.1962754789808428182`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "227.8975294670521935987`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328136485643`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"76f8b2af-d0ae-4b6d-8611-25647b1889e7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "221.58718487394958`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 221.58718487394958`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732823860711*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd9fcb7b-0db5-4401-a477-b65f9fd0fed5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"238.`", ",", "0.`", ",", "0.`", ",", "238.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"238.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "238.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"183.21474775720512`", ",", "0.`", ",", 
+            RowBox[{"-", "183.21474775720512`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"166.19536323107332`", ",", 
+            RowBox[{"-", "10.`"}], ",", "165.89423968151635`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {238., 0., 0., 238.}, $CellContext`p2 -> {
+      238., 0., 0., -238.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {183.21474775720512`, 
+      0., -183.21474775720512`, 0.}, $CellContext`p5 -> {
+      166.19536323107332`, -10., 165.89423968151635`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328238687572`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9a279257-d169-4a92-b3db-ed8494ae2ccc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.789064562354260786433697844697439094872452687994695475558649962`43.\
+701613743509924*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.43600957533285", ",", "0``57.322393047279505"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.789064562354260786433697844697439094872452687994695475558649962`43.\
+701613743509924*^-14, 0``58.69897000433602, 0``57.43600957533285, 
+    0``57.322393047279505}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732823876112*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0e28f50c-5590-495a-96b5-93f8d51f1c64"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973282388319*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8ae0e9d1-e9f0-4f84-a046-f650823a1485"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "183.2147477572051172956`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "226576.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "44631.7871695794945990299`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "44631.7871695794945990299`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "87210.2199324296358327047`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "87210.2199324296358327047`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "68358.0142040182449450627`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "476.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "261.4536559392854329437`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0602793684651015829628357414172570322`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "166.1953632310733032862`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "228.3759184658942020342`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328238921328`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8af5faf0-4a01-43f8-adf3-3dc20fa91b24"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "222.65585774058576`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 222.65585774058576`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732834188053*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"538f3d0a-4d79-4b36-8df6-cc86f423ae81"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"239.`", ",", "0.`", ",", "0.`", ",", "239.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"239.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "239.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"184.21564908291813`", ",", "0.`", ",", 
+            RowBox[{"-", "184.21564908291813`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"167.19446190536027`", ",", 
+            RowBox[{"-", "10.`"}], ",", "166.89514100722937`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {239., 0., 0., 239.}, $CellContext`p2 -> {
+      239., 0., 0., -239.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {184.21564908291813`, 
+      0., -184.21564908291813`, 0.}, $CellContext`p5 -> {
+      167.19446190536027`, -10., 166.89514100722937`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732834201034*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3880e6d1-8f95-4828-8330-754d983ed3b9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.543270904019189036616238295354401257052494750715939030279414482`43.\
+676910741217576*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.43364348367781", ",", "0``57.32057210338788"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.543270904019189036616238295354401257052494750715939030279414482`43.\
+676910741217576*^-14, 0``58.69897000433602, 0``57.43364348367781, 
+    0``57.32057210338788}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732834213937*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4a63efba-8049-4e7d-9dbb-4b591b3638da"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328342285433`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17f3d501-156b-4ca5-b204-eebfd0fcc70f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "184.2156490829181336721`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "228484.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "44884.9669476029378536477`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "44884.9669476029378536477`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "88055.0802616348678952818`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "88055.0802616348678952818`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "68646.0944184755963056643`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "478.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "262.0039969513358326806`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0599178618361743207503253165784702644`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "167.1944619053602844517`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "228.853314323236950809`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732834238687*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"48b304c7-260e-4652-bc0b-d430978943c1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "223.72395833333334`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 223.72395833333334`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732845109174*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"293c9299-3ac2-4a5c-abe3-55ffcda0ecda"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"240.`", ",", "0.`", ",", "0.`", ",", "240.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"240.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "240.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"185.2165396814238`", ",", "0.`", ",", 
+            RowBox[{"-", "185.2165396814238`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"168.19357130685458`", ",", 
+            RowBox[{"-", "10.`"}], ",", "167.89603160573503`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {240., 0., 0., 240.}, $CellContext`p2 -> {
+      240., 0., 0., -240.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {185.2165396814238, 
+      0., -185.2165396814238, 0.}, $CellContext`p5 -> {
+      168.19357130685458`, -10., 167.89603160573503`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732845117072*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fed4c5d5-60da-484b-8978-498e1d2723d7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.99750501366478842079570918250019634241787599127044377429934265`\
+42.49448868513837*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.43129023812594", ",", "0``57.31875876262442"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.99750501366478842079570918250019634241787599127044377429934265`42.\
+49448868513837*^-15, 0``58.69897000433602, 0``57.43129023812594, 
+    0``57.31875876262442}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732845124279*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ab9c9e16-62fa-4195-bda9-da643eae8600"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732845131394*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a6882267-ce77-4b06-abb1-47ca2ec739c6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "185.2165396814237965373`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "230400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "45138.1467256263811082655`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "45138.1467256263811082655`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "88903.9390470834223378915`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "88903.9390470834223378915`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "68934.1715454196079006362`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "480.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "262.5531785094585517474`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0595606692091608564042711637363739033`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "168.1935713068545731563`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "229.3297231189911709413`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732845138726*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"674bccc8-58f9-4709-b233-272968fe3d19"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "224.79149377593362`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 224.79149377593362`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732855053581*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"63f0ac84-1a22-464e-8b4c-d30cb51c2f47"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"241.`", ",", "0.`", ",", "0.`", ",", "241.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"241.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "241.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"186.2174197430955`", ",", "0.`", ",", 
+            RowBox[{"-", "186.2174197430955`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"169.19269124518289`", ",", 
+            RowBox[{"-", "10.`"}], ",", "168.89691166740673`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {241., 0., 0., 241.}, $CellContext`p2 -> {
+      241., 0., 0., -241.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {186.2174197430955, 
+      0., -186.2174197430955, 0.}, $CellContext`p5 -> {
+      169.19269124518289`, -10., 168.89691166740673`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732855061535*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"de0221f3-31ed-4faf-9007-7383c44114e2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "9.13731324916441142434302614909111993967877394033006889047153345`42.\
+976741479927796*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.42894969963246", ",", "0``57.316952961761146"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   9.13731324916441142434302614909111993967877394033006889047153345`42.\
+976741479927796*^-15, 0``58.69897000433602, 0``57.42894969963246, 
+    0``57.316952961761146}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732855069174*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"228c49af-c420-4b59-8f0b-18c00bf608f4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732855076295*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"de8cebed-53ee-4293-b15b-158a9df7ef5c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "186.217419743095490503`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "232324.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "45391.3265036498243628833`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "45391.3265036498243628833`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "89756.7963161720264224641`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "89756.7963161720264224641`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "69222.2456396436984787615`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "482.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "263.1012079783057523596`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05920771375436448395736437821127379302`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "169.1926912451828913254`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "229.8051508727686298559`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732855083637*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0ffbdc01-b26a-4b5a-959f-71c8ddbd6db1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "225.85847107438016`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 225.85847107438016`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732864994359*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"71ae2e7f-d599-4328-933e-ea4d44da58d8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"242.`", ",", "0.`", ",", "0.`", ",", "242.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"242.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "242.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"187.2182894538283`", ",", "0.`", ",", 
+            RowBox[{"-", "187.2182894538283`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"170.19182153445004`", ",", 
+            RowBox[{"-", "10.`"}], ",", "169.89778137813954`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {242., 0., 0., 242.}, $CellContext`p2 -> {
+      242., 0., 0., -242.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {187.2182894538283, 
+      0., -187.2182894538283, 0.}, $CellContext`p5 -> {
+      170.19182153445004`, -10., 169.89778137813954`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973286500224*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"87ce12a3-ccc1-4a84-abd9-2f26dab30e6e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.69251611898443030900394669664853223694564833354363357689437631`\
+43.2426574561508*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.42662173140357", ",", "0``57.31515463835559"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.69251611898443030900394669664853223694564833354363357689437631`43.\
+2426574561508*^-14, 0``58.69897000433602, 0``57.42662173140357, 
+    0``57.31515463835559}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732865009575*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17db951b-e058-4b9e-84b9-20927aaa1211"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328650167723`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6ccabce8-fa6a-42c4-abc5-c7cb3753554a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "187.2182894538283051133`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "234256.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "45644.506281673267617501`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "45644.506281673267617501`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "90613.6520956528996748602`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "90613.6520956528996748602`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "69510.3167546523403457705`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "484.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "263.6480926436835430075`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0588589204572549146700580402918701764`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "170.1918215344500506526`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "230.2796035446782477462`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328650241413`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d7a59a8a-e37b-45b1-a650-ae5e6644c393"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "226.92489711934158`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 226.92489711934158`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973287489428*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4313b999-7ba8-4be2-9735-9045b6bc1640"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"243.`", ",", "0.`", ",", "0.`", ",", "243.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"243.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "243.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"188.21914899517012`", ",", "0.`", ",", 
+            RowBox[{"-", "188.21914899517012`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"171.19096199310823`", ",", 
+            RowBox[{"-", "10.`"}], ",", "170.89864091948135`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {243., 0., 0., 243.}, $CellContext`p2 -> {
+      243., 0., 0., -243.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {188.21914899517012`, 
+      0., -188.21914899517012`, 0.}, $CellContext`p5 -> {
+      171.19096199310823`, -10., 170.89864091948135`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732874902288*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9602251f-653f-443f-ae06-18c68033db08"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.770442963108012688780747454613935300058952908069863827435315881`\
+43.588726110513626*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.42430619884796", ",", "0``57.313363730737706"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.770442963108012688780747454613935300058952908069863827435315881`43.\
+588726110513626*^-14, 0``58.69897000433602, 0``57.42430619884796, 
+    0``57.313363730737706}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328749098186`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8d88bcb4-b168-4663-bb28-7269da75eb55"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973287491705*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"70de6c9e-5092-444b-bd46-0bc1b18fe2d0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "188.2191489951701157679`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "236196.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "45897.6860596967108721188`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "45897.6860596967108721188`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "91474.506411652676263202`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "91474.506411652676263202`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "69798.3849426987871799568`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "486.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "264.1938397137578739497`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05851421606513235001538574269160702111`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "171.1909619931082192188`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "230.7530870361101475036`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328749245033`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"294567f1-9f54-45b7-8c0a-c67762850cb5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "227.9907786885246`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 227.9907786885246}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732884977928*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e5041cf5-736e-4c52-98ee-41c4f5b3b6fd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"244.`", ",", "0.`", ",", "0.`", ",", "244.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"244.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "244.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"189.21999854444786`", ",", "0.`", ",", 
+            RowBox[{"-", "189.21999854444786`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"172.19011244383051`", ",", 
+            RowBox[{"-", "10.`"}], ",", "171.8994904687591`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {244., 0., 0., 244.}, $CellContext`p2 -> {
+      244., 0., 0., -244.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {189.21999854444786`, 
+      0., -189.21999854444786`, 0.}, $CellContext`p5 -> {
+      172.19011244383051`, -10., 171.8994904687591, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973288498631*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"adb9ac38-cbee-448d-8dc0-d9fd876e87d4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.61840911404083393347719809482170202966820108867573024087205575`42.\
+67504258386825*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.422002969529686", ",", "0``57.311580177997286"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.61840911404083393347719809482170202966820108867573024087205575`42.\
+67504258386825*^-15, 0``58.69897000433602, 0``57.422002969529686, 
+    0``57.311580177997286}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732884993856*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"744a5713-aa54-491b-b33c-7947ea589bec"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732885001217*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ea5ec983-02a0-48bf-b936-e5c8930c483d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "189.2199985444478613772`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "238144.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "46150.8658377201541267366`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "46150.8658377201541267366`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "92339.3592896905563520704`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "92339.3592896905563520704`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "70086.4502548214193671252`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "488.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "264.738456320235839225`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05817352903566281411185798903253236487`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "172.1901124438305159323`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "231.2256071905075353945`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732885008518*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6b4cf7e7-0631-48cf-9bdb-779cdb6201c2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "229.0561224489796`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 229.0561224489796}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732895660657*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1d0589b7-0ab1-449b-a320-cf4b6aa619c0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", "245.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "245.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"190.2208382748894`", ",", "0.`", ",", 
+            RowBox[{"-", "190.2208382748894`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"173.18927271338893`", ",", 
+            RowBox[{"-", "10.`"}], ",", "172.90033019920062`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {245., 0., 0., 245.}, $CellContext`p2 -> {
+      245., 0., 0., -245.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {190.2208382748894, 
+      0., -190.2208382748894, 0.}, $CellContext`p5 -> {
+      173.18927271338893`, -10., 172.90033019920062`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797328956692*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"50f94cef-7afc-460a-9781-62cbaa5fe834"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.188151436885577835073268085849232706652672178769581553956471316`\
+43.72378656852061*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.419711913122235", ",", "0``57.309803919971486"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.188151436885577835073268085849232706652672178769581553956471316`43.\
+72378656852061*^-14, 0``58.69897000433602, 0``57.419711913122235, 
+    0``57.309803919971486}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732895682248*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"63a3db84-1615-40af-abd1-bb772f6b345b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732895695262*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"099ff8e9-04d6-4c84-94a0-04403593191c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "190.2208382748893882308`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "240100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "46404.0456157435973813543`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "46404.0456157435973813543`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "93208.2107546958002330939`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "93208.2107546958002330939`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "70374.51274087881319954`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "490.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "265.2819495195231205302`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05783678948720847408116609260368431049`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "173.1892727133889325788`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "231.6971697941266792025`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732895709581*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0b45590d-2c63-42f3-b460-f108c528da86"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "230.12093495934963`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 230.12093495934963`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732905636422*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c666ae4f-cc96-4343-a40a-d66e4b639083"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"246.`", ",", "0.`", ",", "0.`", ",", "246.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"246.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "246.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"191.22166835574149`", ",", "0.`", ",", 
+            RowBox[{"-", "191.22166835574149`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"174.18844263253686`", ",", 
+            RowBox[{"-", "10.`"}], ",", "173.90116028005272`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {246., 0., 0., 246.}, $CellContext`p2 -> {
+      246., 0., 0., -246.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {191.22166835574149`, 
+      0., -191.22166835574149`, 0.}, $CellContext`p5 -> {
+      174.18844263253686`, -10., 173.90116028005272`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329056448298`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"984a1c85-3c1b-45f4-bed5-96dd12c32233"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.170080905691502348010001020300383415973000511695603507551961369`\
+43.50807524783908*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.417432901363846", ",", "0``57.308034897232645"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.170080905691502348010001020300383415973000511695603507551961369`43.\
+50807524783908*^-14, 0``58.69897000433602, 0``57.417432901363846, 
+    0``57.308034897232645}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732905652197*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc3fc037-8235-4306-a1a7-f577581dd343"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732905659445*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f49ccd42-bfea-4b4c-935f-7b07847ecaf1"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "191.2216683557414853567`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "242064.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "46657.2253937670406359721`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "46657.2253937670406359721`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "94081.0608310248107954976`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "94081.0608310248107954976`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "70662.5724495837139067686`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "492.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "265.824326293858429308`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05750392915088012447074187292989850135`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "174.1884426325368556336`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "232.167780576785372644`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732905667425*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e9e00c63-d97b-4bbf-b041-4753ff80513a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "231.18522267206478`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 231.18522267206478`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329155055*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dcd6fea4-16fa-4529-8ac6-373e34d368fb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"247.`", ",", "0.`", ",", "0.`", ",", "247.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"247.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "247.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"192.22248895238334`", ",", "0.`", ",", 
+            RowBox[{"-", "192.22248895238334`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"175.1876220358951`", ",", 
+            RowBox[{"-", "10.`"}], ",", "174.90198087669458`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {247., 0., 0., 247.}, $CellContext`p2 -> {
+      247., 0., 0., -247.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {192.22248895238334`, 
+      0., -192.22248895238334`, 0.}, $CellContext`p5 -> {
+      175.1876220358951, -10., 174.90198087669458`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329155134153`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f5287332-66a6-47da-a741-96094c44cd96"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.705283606916079035437703768412344860586779234832152982420417038`43.\
+76152029327393*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.41516580801406", ",", "0``57.30627305107635"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.705283606916079035437703768412344860586779234832152982420417038`43.\
+76152029327393*^-14, 0``58.69897000433602, 0``57.41516580801406, 
+    0``57.30627305107635}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732915520792*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f86c28f8-ccd1-400a-977a-01b54e4551e1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732915527952*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"895d898e-e106-488e-8548-d42937b80997"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "192.2224889523833439853`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "244036.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "46910.4051717904838905899`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "46910.4051717904838905899`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "94957.9095424773719287259`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "94957.9095424773719287259`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "70950.6294285356916487303`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "494.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "266.3655935524250317562`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05717488132424282413845882743223460801`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "175.1876220358950857587`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "232.6374452125996215525`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732915535343*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a1904af8-88ba-4be2-9eb8-d8541b866b50"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "232.24899193548387`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 232.24899193548387`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732925346942*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4c6d6d3a-b5dd-4b2e-875f-dafd3bf1c6cf"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"248.`", ",", "0.`", ",", "0.`", ",", "248.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"248.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "248.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"193.2233002264364`", ",", "0.`", ",", 
+            RowBox[{"-", "193.2233002264364`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"176.186810761842`", ",", 
+            RowBox[{"-", "10.`"}], ",", "175.90279215074764`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {248., 0., 0., 248.}, $CellContext`p2 -> {
+      248., 0., 0., -248.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {193.2233002264364, 
+      0., -193.2233002264364, 0.}, $CellContext`p5 -> {176.186810761842, -10.,
+       175.90279215074764`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329253554296`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"512b03d8-fcaf-442e-aa42-f5affeee8944"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.372524739376282534769542466349893151422155350526114630718586842`43.\
+531443471997086*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.412910508811294", ",", "0``57.304518323509804"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.372524739376282534769542466349893151422155350526114630718586842`43.\
+531443471997086*^-14, 0``58.69897000433602, 0``57.412910508811294, 
+    0``57.304518323509804}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732925362813*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"05fa7d17-b303-4a79-a30d-122533b04f23"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732925370174*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"074fc820-2fcd-4702-82f5-cc4debb9cfd6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "193.2233002264364074563`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "246016.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "47163.5849498139271452077`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "47163.5849498139271452077`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "95838.7569123124580983131`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "95838.7569123124580983131`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "71238.6837242527586031539`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "496.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "266.9057581324403698058`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05684958082660825626280168370722579847`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "176.1868107618419989601`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "233.1061693207091081381`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732925377564*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2bedf229-f626-4746-bb03-aaf8c49dc760"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "233.3122489959839`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 233.3122489959839}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732935244617*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a26cf25b-5392-45b1-bd3d-c0c464f72908"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"249.`", ",", "0.`", ",", "0.`", ",", "249.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"249.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "249.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"194.22410233587075`", ",", "0.`", ",", 
+            RowBox[{"-", "194.22410233587075`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"177.18600865240768`", ",", 
+            RowBox[{"-", "10.`"}], ",", "176.903594260182`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {249., 0., 0., 249.}, $CellContext`p2 -> {
+      249., 0., 0., -249.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {194.22410233587075`, 
+      0., -194.22410233587075`, 0.}, $CellContext`p5 -> {
+      177.18600865240768`, -10., 176.903594260182, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732935252657*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fc24e05b-0852-490c-978e-63c6aa21ec9d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "6.606878481900183485088853539990340592370723704137901224984354142`43.\
+821736980625346*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.41066688143161", ",", "0``57.30277065724028"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   6.606878481900183485088853539990340592370723704137901224984354142`43.\
+821736980625346*^-14, 0``58.69897000433602, 0``57.41066688143161, 
+    0``57.30277065724028}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732935259966*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"42cfc865-d45e-419a-9933-f6452ae7184c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329352669783`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"60882851-f290-447e-b978-f05c4a05eee8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "194.2241023358707536772`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "248004.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "47416.7647278373703998254`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "47416.7647278373703998254`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "96723.6029632636353312591`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "96723.6029632636353312591`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "71526.7353822019880492406`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "498.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "267.4448268002243262857`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05652796395585067859422381859704034102`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "177.1860086524076850827`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "233.5739584659916009569`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732935274534*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1651f5a5-fe59-4369-9df9-ff8ab032aab7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "234.375`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 234.375}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732945132023*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9a8c63dd-b39a-4ebf-ab19-19aa7368d8a7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"250.`", ",", "0.`", ",", "0.`", ",", "250.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"250.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "250.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"195.2248954351073`", ",", "0.`", ",", 
+            RowBox[{"-", "195.2248954351073`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"178.18521555317105`", ",", 
+            RowBox[{"-", "10.`"}], ",", "177.90438735941854`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {250., 0., 0., 250.}, $CellContext`p2 -> {
+      250., 0., 0., -250.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {195.2248954351073, 
+      0., -195.2248954351073, 0.}, $CellContext`p5 -> {
+      178.18521555317105`, -10., 177.90438735941854`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732945140127*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5c4a6013-0338-412a-820a-269a60f2a4d4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.133411185703668337240941341642941935979042236416828599381294722`\
+43.054387494405184*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.40843480544857", ",", "0``57.30102999566398"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.133411185703668337240941341642941935979042236416828599381294722`43.\
+054387494405184*^-14, 0``58.69897000433602, 0``57.40843480544857, 
+    0``57.30102999566398}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329451477327`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"10ed75b4-8b5a-43e0-856e-62bbce457278"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329451552477`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6d94bf17-0a53-4852-a0b7-89b0c75ebb71"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "195.2248954351072995905`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "250000.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "47669.9445058608136544432`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "47669.9445058608136544432`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "97612.4477175536497952635`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "97612.4477175536497952635`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "71814.7844468289309385557`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "500.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "267.9828062522462110404`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05620996844668645499761465916788424625`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "178.1852155531710617665`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "234.0408181597660829301`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329451623783`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6e169ea6-5724-4b8e-bb39-80a688c7300c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "235.43725099601593`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 235.43725099601593`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329551390667`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"14cc0e2c-bb36-45bd-81f5-f1f5d90f0334"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"251.`", ",", "0.`", ",", "0.`", ",", "251.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"251.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "251.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"196.22567967511728`", ",", "0.`", ",", 
+            RowBox[{"-", "196.22567967511728`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"179.18443131316113`", ",", 
+            RowBox[{"-", "10.`"}], ",", "178.9051715994285`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {251., 0., 0., 251.}, $CellContext`p2 -> {
+      251., 0., 0., -251.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {196.22567967511728`, 
+      0., -196.22567967511728`, 0.}, $CellContext`p5 -> {
+      179.18443131316113`, -10., 178.9051715994285, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732955147023*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c11cba9-7c11-4db1-9406-8616d211a42a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.608502185279077788674681416240163593394098712402634752621010813`43.\
+55559325983002*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.40621416229406", ",", "0``57.29929628285498"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.608502185279077788674681416240163593394098712402634752621010813`43.\
+55559325983002*^-14, 0``58.69897000433602, 0``57.40621416229406, 
+    0``57.29929628285498}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973295515434*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e3a9b541-3d17-4f84-81af-7517d68d245e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732955161605*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4e340a06-f29f-4e5b-bf2e-ebd37027a189"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "196.2256796751172771565`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "252004.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "47923.124283884256909061`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "47923.124283884256909061`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "98505.2911969088731325428`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "98505.2911969088731325428`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "72102.8309615862471514593`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "502.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "268.5197031161516965814`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05589553343035917057531302232086538114`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "179.1844313131611316197`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "234.5067538604853824022`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732955169242*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bbfc0772-212b-4f8b-a8f9-9f7d9135b1f4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "236.49900793650792`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 236.49900793650792`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732965061411*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"14bd8b5d-cc69-425a-bf84-43793f9b452d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"252.`", ",", "0.`", ",", "0.`", ",", "252.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"252.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "252.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"197.22645520351762`", ",", "0.`", ",", 
+            RowBox[{"-", "197.22645520351762`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"180.18365578476076`", ",", 
+            RowBox[{"-", "10.`"}], ",", "179.90594712782885`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {252., 0., 0., 252.}, $CellContext`p2 -> {
+      252., 0., 0., -252.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {197.22645520351762`, 
+      0., -197.22645520351762`, 0.}, $CellContext`p5 -> {
+      180.18365578476076`, -10., 179.90594712782885`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732965069471*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"145deafe-86b7-4095-9c4a-9fe664c231cc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.52953732959564332081492287326689672793204345832708680382097153`\
+42.399580560774346*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.404004835220164", ",", "0``57.29756946355448"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.52953732959564332081492287326689672793204345832708680382097153`42.\
+399580560774346*^-15, 0``58.69897000433602, 0``57.404004835220164, 
+    0``57.29756946355448}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732965076449*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e7930df0-50d3-4c37-9fcb-388956be3c58"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732965083721*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bb511371-6aea-47b0-bdc5-7a4734c9600e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "197.22645520351761661`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "254016.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "48176.3040619077001636787`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "48176.3040619077001636787`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "99402.1334225728787714615`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "99402.1334225728787714615`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "72390.8749689611587818432`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "504.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "269.0555239517694027711`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05558459939567581350229371025600989353`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "180.1836557847607535516`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "234.9717709744177778369`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732965091258*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d2295971-afef-4bf4-98ed-ed9bcaec0425"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "237.56027667984188`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 237.56027667984188`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797329749938726`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"01e1f038-5499-4034-9d9e-0cf6f867ce3d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"253.`", ",", "0.`", ",", "0.`", ",", "253.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"253.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "253.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"198.227222164664`", ",", "0.`", ",", 
+            RowBox[{"-", "198.227222164664`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"181.18288882361443`", ",", 
+            RowBox[{"-", "10.`"}], ",", "180.90671408897524`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {253., 0., 0., 253.}, $CellContext`p2 -> {
+      253., 0., 0., -253.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {198.227222164664, 
+      0., -198.227222164664, 0.}, $CellContext`p5 -> {
+      181.18288882361443`, -10., 180.90671408897524`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732975002101*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"05cdd8b4-a799-4470-ae6d-368a97c49248"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.886735655419459715586288049646543409346644894066335721211933367`43.\
+76469402169971*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.401806709262004", ",", "0``57.2958494831602"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.886735655419459715586288049646543409346644894066335721211933367`43.\
+76469402169971*^-14, 0``58.69897000433602, 0``57.401806709262004, 
+    0``57.2958494831602}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732975009507*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c176b5a6-0010-43c6-8ab3-5946b4b27a0e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732975016438*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9c675c80-d4fe-4039-84ad-6cf424df5c31"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "198.2272221646639991377`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "256036.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "48429.4838399311434182966`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "48429.4838399311434182966`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "100302.9744153199835636769`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "100302.9744153199835636769`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "72678.9165105022326324315`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "506.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "269.5902752520984994152`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05527710815134095464482549279633974581`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "181.1828888236144324207`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "235.4358748563185072953`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732975023732*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"796c2442-31a5-418b-824a-2ba5b593daf6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "238.62106299212599`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 238.62106299212599`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732984904131*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"15710fec-7ebd-451b-ae77-35b561df9b32"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"254.`", ",", "0.`", ",", "0.`", ",", "254.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"254.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "254.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"199.22798069974007`", ",", "0.`", ",", 
+            RowBox[{"-", "199.22798069974007`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"182.1821302885384`", ",", 
+            RowBox[{"-", "10.`"}], ",", "181.9074726240513`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {254., 0., 0., 254.}, $CellContext`p2 -> {
+      254., 0., 0., -254.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {199.22798069974007`, 
+      0., -199.22798069974007`, 0.}, $CellContext`p5 -> {
+      182.1821302885384, -10., 181.9074726240513, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732984911853*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"440ac9df-6eda-4880-9624-62034d378cad"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "7.895766618058556773030779039853409947599160792237591205291561884`43.\
+890500595089144*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.399619671201556", ",", "0``57.294136287716086"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   7.895766618058556773030779039853409947599160792237591205291561884`43.\
+890500595089144*^-14, 0``58.69897000433602, 0``57.399619671201556, 
+    0``57.294136287716086}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732984919133*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f5b63227-647c-4bef-ba6c-1381132a8434"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732984926155*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3756552-9d11-4072-b2de-3754ec136fb3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "199.2279806997400726232`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "258064.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "48682.6636179545866729143`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "48682.6636179545866729143`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "101207.8141954679568925712`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "101207.8141954679568925712`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "72966.9556268450583616195`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "508.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "270.123963444276928449`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05497300278953921233890630247989662963`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "182.1821302885383790256`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "235.8990708100905915365`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732984933446*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c4acf745-a5aa-4dba-9538-ba5089eab16d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "239.6813725490196`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 239.6813725490196}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732994782082*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"60c27dc7-bee7-451d-b3ae-93edfd3ea7ec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", "255.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "255.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"200.2287309468443`", ",", "0.`", ",", 
+            RowBox[{"-", "200.2287309468443`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"183.1813800414341`", ",", 
+            RowBox[{"-", "10.`"}], ",", "182.90822287115554`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {255., 0., 0., 255.}, $CellContext`p2 -> {
+      255., 0., 0., -255.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {200.2287309468443, 
+      0., -200.2287309468443, 0.}, $CellContext`p5 -> {
+      183.1813800414341, -10., 182.90822287115554`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732994790146*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"53ecad83-d705-4e45-8dc4-5c94090abb81"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.843500018677066577035041785216950462993836543366240578087207553`43.\
+25704297458019*^-14", ",", "0``58.69897000433602", ",", "0``57.3974436095323",
+      ",", "0``57.29242982390206"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.843500018677066577035041785216950462993836543366240578087207553`43.\
+25704297458019*^-14, 0``58.69897000433602, 0``57.3974436095323, 
+    0``57.29242982390206}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732994797762*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"20a6dbf1-f4f2-405e-8f53-d7dcb6b14f1d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732994805081*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"653edb9b-677f-4823-bdf5-b88f911180fc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "200.2287309468443083915`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "260100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "48935.8433959780299275321`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "48935.8433959780299275321`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "102116.6527828905972796747`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "102116.6527828905972796747`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "73254.992357737247660516`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "510.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "270.6565948905314364288`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05467222765071756176359006858501958503`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "183.1813800414340827346`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "236.3613640894357693204`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779732994812565*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e88610a5-7b2b-499d-b325-738fea1e3954"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "240.7412109375`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 240.7412109375}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733004738564*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af98e0e4-6695-46d7-b4db-b00f7afe94b1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"256.`", ",", "0.`", ",", "0.`", ",", "256.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"256.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "256.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"201.22947304107382`", ",", "0.`", ",", 
+            RowBox[{"-", "201.22947304107382`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"184.1806379472045`", ",", 
+            RowBox[{"-", "10.`"}], ",", "183.90896496538505`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {256., 0., 0., 256.}, $CellContext`p2 -> {
+      256., 0., 0., -256.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {201.22947304107382`, 
+      0., -201.22947304107382`, 0.}, $CellContext`p5 -> {
+      184.1806379472045, -10., 183.90896496538505`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733004746644*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fe8a7e78-dde8-405c-b5f1-e2c0b955c3f1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.33429830999465020912448471392613164648752145750964541939953688`\
+43.791398555716874*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.39527841442487", ",", "0``57.29073003902417"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.33429830999465020912448471392613164648752145750964541939953688`43.\
+791398555716874*^-14, 0``58.69897000433602, 0``57.39527841442487, 
+    0``57.29073003902417}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330047541313`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"249c161d-f218-47f7-aee8-fe8d682e73cc"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733004761557*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a8c3c2c-9e15-4144-9d82-a482576f9b73"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "201.2294730410738168302`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "262144.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "49189.0231740014731821498`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "49189.0231740014731821498`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "103029.4901970297942170873`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "103029.4901970297942170873`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "73543.0267420625581315764`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "512.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "271.1881758891094391211`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05437472828952182310940905545664635692`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "184.1806379472044925179`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "236.8227598984953392682`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330047690897`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f51ddc27-ab6b-44a0-a88f-15f42a1f99f8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "241.80058365758754`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 241.80058365758754`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733014686716*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"82a0950d-1272-4170-aef9-c002b918c9a4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"257.`", ",", "0.`", ",", "0.`", ",", "257.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"257.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "257.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"202.2302071146054`", ",", "0.`", ",", 
+            RowBox[{"-", "202.2302071146054`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"185.17990387367288`", ",", 
+            RowBox[{"-", "10.`"}], ",", "184.90969903891664`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {257., 0., 0., 257.}, $CellContext`p2 -> {
+      257., 0., 0., -257.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {202.2302071146054, 
+      0., -202.2302071146054, 0.}, $CellContext`p5 -> {
+      185.17990387367288`, -10., 184.90969903891664`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733014695013*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fbd1d117-575e-4d49-ac4d-d7043a5a8763"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.997560462884839704139135680205803121628960234388265291487792821`\
+43.942131659099594*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.39312397769349", ",", "0``57.289036881004726"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.997560462884839704139135680205803121628960234388265291487792821`43.\
+942131659099594*^-14, 0``58.69897000433602, 0``57.39312397769349, 
+    0``57.289036881004726}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733014702497*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b09a72c1-ced8-4312-89f6-fb7c78fe37f2"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330147098417`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86d86bd1-3581-4431-98fc-6cd6eae673bd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "202.2302071146054061046`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "264196.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "49442.2029520249164367676`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "49442.2029520249164367676`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "103946.3264569071787377652`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "103946.3264569071787377652`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "73831.0588178642236724133`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "514.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "271.718712675193247671`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05408045144184335571064974203954161384`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "185.1799038736728766109`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "237.2832633924811529313`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330147172823`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d5b2f4c3-ae61-42b1-a376-2a425174d705"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "242.859496124031`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 242.859496124031}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733024566605*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c93a8f9a-1759-422a-b7b9-b340278cf6bc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"258.`", ",", "0.`", ",", "0.`", ",", "258.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"258.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "258.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"203.23093329677405`", ",", "0.`", ",", 
+            RowBox[{"-", "203.23093329677405`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"186.17917769150432`", ",", 
+            RowBox[{"-", "10.`"}], ",", "185.9104252210853`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {258., 0., 0., 258.}, $CellContext`p2 -> {
+      258., 0., 0., -258.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {203.23093329677405`, 
+      0., -203.23093329677405`, 0.}, $CellContext`p5 -> {
+      186.17917769150432`, -10., 185.9104252210853, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733024574752*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd670e08-dc00-49d7-9565-1786a12a4f84"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "8.53219724052682125926928527229364874529402560452660797939851454`42.\
+917381189275496*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.390980192763244", ",", "0``57.28735029837279"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   8.53219724052682125926928527229364874529402560452660797939851454`42.\
+917381189275496*^-15, 0``58.69897000433602, 0``57.390980192763244, 
+    0``57.28735029837279}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973302458221*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"054cd626-ae92-42d9-8042-4c6554225d37"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733024589738*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e98b64fd-d743-4112-9482-1db6ce256561"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "203.2309332967740544973`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "266256.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "49695.3827300483596913854`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "49695.3827300483596913854`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "104867.1615811354121206023`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "104867.1615811354121206023`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "74119.0886223675404469404`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "516.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "272.2482114217971137908`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05378934499293392243711318320718384628`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "186.179177691504326726`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "237.7428796782969504545`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733024597261*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ff196bb4-de55-456f-8b6f-edb5a9453fef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "243.91795366795367`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 243.91795366795367`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330345745373`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7a82b92e-1c47-4809-a0dd-b7a6563cbea5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"259.`", ",", "0.`", ",", "0.`", ",", "259.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"259.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "259.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"204.23165171414874`", ",", "0.`", ",", 
+            RowBox[{"-", "204.23165171414874`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"187.17845927412966`", ",", 
+            RowBox[{"-", "10.`"}], ",", "186.91114363845998`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {259., 0., 0., 259.}, $CellContext`p2 -> {
+      259., 0., 0., -259.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {204.23165171414874`, 
+      0., -204.23165171414874`, 0.}, $CellContext`p5 -> {
+      187.17845927412966`, -10., 186.91114363845998`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733034587453*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ec0d7e26-4eff-4a3e-9d03-f016df1ea016"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.126631587902720356618789827460214919370319763361349118594822212`43.\
+31233250496881*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.388846954638225", ",", "0``57.28567024025477"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.126631587902720356618789827460214919370319763361349118594822212`43.\
+31233250496881*^-14, 0``58.69897000433602, 0``57.388846954638225, 
+    0``57.28567024025477}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733034595161*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a046af61-a864-4999-9f93-40ec8da1541c"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733034604643*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f6c310f6-418c-490f-b65c-e92303cba8d7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "204.2316517141487395293`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "268324.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "49948.5625080718029460032`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "49948.5625080718029460032`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "105791.9955879290470761589`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "105791.9955879290470761589`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "74407.1161920016920831316`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "518.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "272.7766782406474207909`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05350135794654856287895854958063884767`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "187.1784592741296544282`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "238.2016138151501256387`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330346155777`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c219e82d-43a0-4388-aa55-551a5b54ac00"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "244.97596153846155`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 244.97596153846155`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330444528723`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2187d312-8005-456a-a37c-a9ec6dcc1fbe"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"260.`", ",", "0.`", ",", "0.`", ",", "260.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"260.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "260.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"205.23236249060622`", ",", "0.`", ",", 
+            RowBox[{"-", "205.23236249060622`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"188.1777484976721`", ",", 
+            RowBox[{"-", "10.`"}], ",", "187.91185441491746`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {260., 0., 0., 260.}, $CellContext`p2 -> {
+      260., 0., 0., -260.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {205.23236249060622`, 
+      0., -205.23236249060622`, 0.}, $CellContext`p5 -> {
+      188.1777484976721, -10., 187.91185441491746`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973304446087*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"16656446-70e8-430f-93a8-6f82db38a5e6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.360373241827288974098655013347079771582113602143394584404408899`\
+43.78644926253042*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.38672415987041", ",", "0``57.283996656365204"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.360373241827288974098655013347079771582113602143394584404408899`43.\
+78644926253042*^-14, 0``58.69897000433602, 0``57.38672415987041, 
+    0``57.283996656365204}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330444684553`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b5914c15-c8de-4939-9d84-3e444dedd9cb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330444758053`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"875a0215-8256-4896-96b4-a55090f50933"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "205.2323624906062207174`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "270400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "50201.742286095246200621`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "50201.742286095246200621`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "106720.8284951152347730385`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "106720.8284951152347730385`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "74695.1415624209858849333`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "520.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "273.3041191830466829727`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05321644039507784522857009597978212829`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "188.17774849767208837`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "238.6594708151543069895`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330444836807`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ca3bf8bc-ced1-43bd-baf6-b0481bd7ad72"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "246.03352490421454`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 246.03352490421454`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973305437111*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1d1b9293-961e-4095-bd76-3553a3738cf8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"261.`", ",", "0.`", ",", "0.`", ",", "261.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"261.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "261.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"206.23306574740226`", ",", "0.`", ",", 
+            RowBox[{"-", "206.23306574740226`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"189.17704524087608`", ",", 
+            RowBox[{"-", "10.`"}], ",", "188.9125576717135`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {261., 0., 0., 261.}, $CellContext`p2 -> {
+      261., 0., 0., -261.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {206.23306574740226`, 
+      0., -206.23306574740226`, 0.}, $CellContext`p5 -> {
+      189.17704524087608`, -10., 188.9125576717135, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733054379142*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7c3a4593-62b6-43bf-b873-8c0b756bebc4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.614084479237328493709326205697671519258199639133075326548256116`\
+43.39861911987811*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.384611706529306", ",", "0``57.28232949699774"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.614084479237328493709326205697671519258199639133075326548256116`43.\
+39861911987811*^-14, 0``58.69897000433602, 0``57.384611706529306, 
+    0``57.28232949699774}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733054386898*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3cdfa9f7-98cc-480e-8279-7db61972439b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733054394581*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"72d56d6f-dc15-4453-97f1-26a01599bf73"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "206.2330657474022643783`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "272484.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "50454.9220641186894552387`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "50454.9220641186894552387`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "107653.6603201439820054475`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "107653.6603201439820054475`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "74983.1647685253528118679`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "522.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "273.830540240721419813`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05293454349063282740896303462377878271`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "189.177045240876082172`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "239.1164556439226318942`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733054402804*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"55ac5783-aa52-4f3d-b7e5-d9dcb35f2744"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "247.0906488549618`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 247.0906488549618}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330642276077`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"84a01057-5e01-4e2d-b410-c8080ca342b0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"262.`", ",", "0.`", ",", "0.`", ",", "262.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"262.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "262.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"207.2337616032403`", ",", "0.`", ",", 
+            RowBox[{"-", "207.2337616032403`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"190.17634938503807`", ",", 
+            RowBox[{"-", "10.`"}], ",", "189.91325352755155`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {262., 0., 0., 262.}, $CellContext`p2 -> {
+      262., 0., 0., -262.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {207.2337616032403, 
+      0., -207.2337616032403, 0.}, $CellContext`p5 -> {
+      190.17634938503807`, -10., 189.91325352755155`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330642357473`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b9b2b1dc-e5b6-454f-b10e-093536432290"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.11856659875670478925104129026121496880725309928931717128315871`\
+42.028300564176966*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.38250949417233", ",", "0``57.280668713016276"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.11856659875670478925104129026121496880725309928931717128315871`42.\
+028300564176966*^-15, 0``58.69897000433602, 0``57.38250949417233, 
+    0``57.280668713016276}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733064243435*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c75ec2f3-465f-4d61-9ce7-c26a85f273dd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733064251025*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f92fb48c-13bf-4160-8027-4af9991dde19"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "207.2337616032403104782`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "274576.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "50708.1018421421327098565`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "50708.1018421421327098565`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "108590.4910800979226905838`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "108590.4910800979226905838`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "75271.1858444801112263304`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "524.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "274.3559473466542354669`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0526556194170474612230499992831538256`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "190.1763493850380610943`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "239.5725732211518278874`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330642585697`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c666713-60f8-4aaa-9ded-972ebdada4a1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "248.14733840304183`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 248.14733840304183`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973307407279*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d94c507e-2828-4d85-8003-9dac7b14fd87"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"263.`", ",", "0.`", ",", "0.`", ",", "263.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"263.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "263.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"208.2344501743385`", ",", "0.`", ",", 
+            RowBox[{"-", "208.2344501743385`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"191.17566081393986`", ",", 
+            RowBox[{"-", "10.`"}], ",", "190.91394209864973`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {263., 0., 0., 263.}, $CellContext`p2 -> {
+      263., 0., 0., -263.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {208.2344501743385, 
+      0., -208.2344501743385, 0.}, $CellContext`p5 -> {
+      191.17566081393986`, -10., 190.91394209864973`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733074080954*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"28edfe48-9084-45cc-ba4d-00af5d820589"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.058361143957171969007673667481280141338647514340069689753385693`\
+43.46347302757874*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.38041742381599", ",", "0``57.279014255846256"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.058361143957171969007673667481280141338647514340069689753385693`43.\
+46347302757874*^-14, 0``58.69897000433602, 0``57.38041742381599, 
+    0``57.279014255846256}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330740885468`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a36d058a-cfb0-4915-8bef-0a1a79339c68"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733074095848*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"77182456-8503-4b24-8064-1dae266ab3d6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "208.2344501743384910242`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "276676.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "50961.2816201655759644742`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "50961.2816201655759644742`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "109531.320791702046278715`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "109531.320791702046278715`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "75559.2048237352561800628`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "526.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "274.8803463759009020579`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05237962136276440784487098779161790211`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "191.1756608139398510833`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "240.027828421197628444`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733074103332*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"22cbda3d-fa05-4a3c-8787-f3732a049a75"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "249.2035984848485`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 249.2035984848485}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733083921342*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e360320d-9537-45bf-b258-5e91aeb8c573"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"264.`", ",", "0.`", ",", "0.`", ",", "264.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"264.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "264.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"209.23513157449437`", ",", "0.`", ",", 
+            RowBox[{"-", "209.23513157449437`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"192.174979413784`", ",", 
+            RowBox[{"-", "10.`"}], ",", "191.9146234988056`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {264., 0., 0., 264.}, $CellContext`p2 -> {
+      264., 0., 0., -264.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {209.23513157449437`, 
+      0., -209.23513157449437`, 0.}, $CellContext`p5 -> {
+      192.174979413784, -10., 191.9146234988056, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330839352827`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4034c300-860b-42bc-b00e-36adbf821839"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.006413889261132683722501297146314917772963667802211267348495215`42.\
+97911270353202*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.37833539790764", ",", "0``57.27736607746618"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.006413889261132683722501297146314917772963667802211267348495215`42.\
+97911270353202*^-14, 0``58.69897000433602, 0``57.37833539790764, 
+    0``57.27736607746618}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733083943412*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3abc83fc-85b8-45dd-bc12-b4003a6ae241"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733083950601*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a56282e9-e9d0-4928-b6e3-8828e3ef823d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "209.2351315744943747177`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "278784.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "51214.4613981890192190921`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "51214.4613981890192190921`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "110476.1494713330298509391`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "110476.1494713330298509391`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "75847.2217390440942719108`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "528.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "275.4037431463924280261`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05210650349457208462750937924877807654`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "192.1749794137840080376`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "240.4822260736413482568`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733083958145*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"99b6fa90-c5c6-4996-a555-06f4b5aa5741"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "250.25943396226415`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 250.25943396226415`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330938145103`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"20a15a9f-2192-40d2-bc64-86f615b5b758"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", "265.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "265.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"210.23580591514747`", ",", "0.`", ",", 
+            RowBox[{"-", "210.23580591514747`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"193.17430507313094`", ",", 
+            RowBox[{"-", "10.`"}], ",", "192.9152978394587`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {265., 0., 0., 265.}, $CellContext`p2 -> {
+      265., 0., 0., -265.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {210.23580591514747`, 
+      0., -210.23580591514747`, 0.}, $CellContext`p5 -> {
+      193.17430507313094`, -10., 192.9152978394587, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797330938223953`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9ab312cc-8406-4b17-b466-61a57a6a45db"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.80195811728710267194764958082504825972226263781023841334654998`43.\
+23043882723704*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.376263320298015", ",", "0``57.27572413039921"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.80195811728710267194764958082504825972226263781023841334654998`43.\
+23043882723704*^-14, 0``58.69897000433602, 0``57.376263320298015, 
+    0``57.27572413039921}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733093829918*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1ceb9f63-a822-4a54-8c90-05ca363352f1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733093837511*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e197a5dc-0f4e-49e0-ac81-2a49aa0a5bdc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "210.235805915147466294`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "280900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "51467.6411762124624737098`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "51467.6411762124624737098`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "111424.9771350281571358209`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "111424.9771350281571358209`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "76135.2366224812322572214`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "530.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "275.9261434197224310874`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05183622093216192030450049728488438185`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "193.1743050731309244167`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "240.9357709638477431628`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733093845265*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"455e54c1-9080-4d1c-9adc-c3c10857f200"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "251.31484962406014`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 251.31484962406014`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973310362421*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d464b479-ff3f-44f4-b449-884250179ab6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"266.`", ",", "0.`", ",", "0.`", ",", "266.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"266.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "266.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"211.2364733054401`", ",", "0.`", ",", 
+            RowBox[{"-", "211.2364733054401`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"194.1736376828382`", ",", 
+            RowBox[{"-", "10.`"}], ",", "193.91596522975132`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {266., 0., 0., 266.}, $CellContext`p2 -> {
+      266., 0., 0., -266.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {211.2364733054401, 
+      0., -211.2364733054401, 0.}, $CellContext`p5 -> {
+      194.1736376828382, -10., 193.91596522975132`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733103632523*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"07ef1b60-306a-4253-bbc2-689346a2f278"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.425522851014328580489243003575092275176716828640932987028142899`\
+43.947363822697284*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.37420109621437", ",", "0``57.27408836770495"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.425522851014328580489243003575092275176716828640932987028142899`43.\
+947363822697284*^-14, 0``58.69897000433602, 0``57.37420109621437, 
+    0``57.27408836770495}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733103641707*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b091bc0a-9a43-46cf-970e-de09082f7c87"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331036527033`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9c88dd99-08fc-4e7a-9696-95be8a746ec0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "211.2364733054400858236`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "283024.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "51720.8209542359057283276`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "51720.8209542359057283276`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "112377.8037984941256581806`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "112377.8037984941256581806`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "76423.2495054600993767775`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "532.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "276.4475529019204383537`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05156872972347592237723042268414495594`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "194.1736376828381926122`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "241.3884678335145492299`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331036599607`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c9088f23-12ff-4f29-9e19-3b29d0307550"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "252.3698501872659`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 252.3698501872659}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733113495391*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f7a0ee9c-54ea-44cc-9347-c68a2aa77c99"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"267.`", ",", "0.`", ",", "0.`", ",", "267.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"267.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "267.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"212.23713385227646`", ",", "0.`", ",", 
+            RowBox[{"-", "212.23713385227646`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"195.17297713600192`", ",", 
+            RowBox[{"-", "10.`"}], ",", "194.9166257765877`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {267., 0., 0., 267.}, $CellContext`p2 -> {
+      267., 0., 0., -267.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {212.23713385227646`, 
+      0., -212.23713385227646`, 0.}, $CellContext`p5 -> {
+      195.17297713600192`, -10., 194.9166257765877, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331135036*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86326734-9ed5-4ea6-989d-a90f080a2217"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.007748019702122540142975111904793606238553290150334926851251`41.\
+67107121519233*^-16", ",", "0``58.69897000433602", ",", 
+     "0``57.37214863223427", ",", "0``57.272458742971445"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.007748019702122540142975111904793606238553290150334926851251`41.\
+67107121519233*^-16, 0``58.69897000433602, 0``57.37214863223427, 
+    0``57.272458742971445}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733113511249*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f7dcb9ad-130e-4e22-86e4-54aa64b2967d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733113518796*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aa9235b4-478d-4ed8-93f2-e26fb3a1a135"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "212.2371338522764574464`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "285156.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "51974.0007322593489829454`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "51974.0007322593489829454`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "113334.6294771156282763513`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "113334.6294771156282763513`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "76711.260418749954323118`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "534.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "276.9679772442113105074`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05130398682081610877797437643817090703`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "195.1729771360019157455`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "241.8403213812137319819`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733113526432*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f80a4116-ca2e-4575-956f-91e6218b1aef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "253.42444029850745`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 253.42444029850745`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733123378624*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7a4682eb-8c6e-41fc-9829-97c143de7e41"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"268.`", ",", "0.`", ",", "0.`", ",", "268.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"268.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "268.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"213.23778766037927`", ",", "0.`", ",", 
+            RowBox[{"-", "213.23778766037927`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"196.1723233278991`", ",", 
+            RowBox[{"-", "10.`"}], ",", "195.9172795846905`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {268., 0., 0., 268.}, $CellContext`p2 -> {
+      268., 0., 0., -268.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {213.23778766037927`, 
+      0., -213.23778766037927`, 0.}, $CellContext`p5 -> {
+      196.1723233278991, -10., 195.9172795846905, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733123387141*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f41da14-c4fa-4ef1-9c04-352d79b3af6f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.60824516359660422401214024337065929940373632648288466962036775`\
+42.95244929061998*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.370105836260024", ",", "0``57.27083521030723"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.60824516359660422401214024337065929940373632648288466962036775`42.\
+95244929061998*^-15, 0``58.69897000433602, 0``57.370105836260024, 
+    0``57.27083521030723}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331233946247`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"484b31b9-106d-49b0-97f4-46641cd36f45"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733123402071*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5e73ba3e-52af-4d75-9ec9-772c24410879"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "213.2377876603792685728`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "287296.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "52227.1805102827922375631`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "52227.1805102827922375631`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "114295.454185963287955019`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "114295.454185963287955019`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "76999.2693924921641549079`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "536.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "277.4874220437606864807`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05104195005768866829997345402857437943`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "196.1723233278990945101`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "242.2913362629242215629`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331234097357`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0cf9f705-311b-4721-976c-e05620060f6c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "254.478624535316`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 254.478624535316}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733133297585*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8154b4ef-9708-4ca1-9caa-b1050afd3e51"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"269.`", ",", "0.`", ",", "0.`", ",", "269.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"269.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "269.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"214.23843483234555`", ",", "0.`", ",", 
+            RowBox[{"-", "214.23843483234555`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"197.1716761559328`", ",", 
+            RowBox[{"-", "10.`"}], ",", "196.91792675665678`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {269., 0., 0., 269.}, $CellContext`p2 -> {
+      269., 0., 0., -269.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {214.23843483234555`, 
+      0., -214.23843483234555`, 0.}, $CellContext`p5 -> {
+      197.1716761559328, -10., 196.91792675665678`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733133311607*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b4d47704-e4f5-426e-9b1b-daa6608d6f9f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.867304782552919600812767299957621353394847448202765404407397032`\
+43.239402938197685*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.3680726174937", ",", "0``57.269217724333615"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.867304782552919600812767299957621353394847448202765404407397032`43.\
+239402938197685*^-14, 0``58.69897000433602, 0``57.3680726174937, 
+    0``57.269217724333615}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733133321334*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a2b0a66c-37e1-4db1-9fa2-16752e8efef5"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733133332164*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2afaded4-4d50-4b92-9b4e-88dae09ef26e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "214.2384348323455469654`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "289444.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "52480.3602883062354921809`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "52480.3602883062354921809`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "115260.2779398019042673695`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "115260.2779398019042673695`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "77287.2764562162868826931`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "538.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "278.0058928444076828589`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05078257812635614625547102332677976699`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "197.1716761559328070527`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "242.741517092557076599`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733133339974*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"aa6010da-6b54-498f-b6ef-f0cc113469de"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "255.53240740740742`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 255.53240740740742`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733143208416*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7ab4607-6cc5-485b-b313-8a63a06074b5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"270.`", ",", "0.`", ",", "0.`", ",", "270.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"270.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "270.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"215.23907546870007`", ",", "0.`", ",", 
+            RowBox[{"-", "215.23907546870007`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"198.17103551957828`", ",", 
+            RowBox[{"-", "10.`"}], ",", "197.9185673930113`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {270., 0., 0., 270.}, $CellContext`p2 -> {
+      270., 0., 0., -270.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {215.23907546870007`, 
+      0., -215.23907546870007`, 0.}, $CellContext`p5 -> {
+      198.17103551957828`, -10., 197.9185673930113, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733143216117*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7628a22d-3048-476b-b4eb-de3416dd8a03"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.665831845517155200200429999137621788249359296223915690484707932`\
+43.53074878417936*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.36604888641271", ",", "0``57.26760624017703"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.665831845517155200200429999137621788249359296223915690484707932`43.\
+53074878417936*^-14, 0``58.69897000433602, 0``57.36604888641271, 
+    0``57.26760624017703}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733143223259*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2ff7f0ba-604e-4cde-b6cc-e9a7520b6f59"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733143230463*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e402e31e-5105-4a89-8079-2f9079058433"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "215.2390754687000651302`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "291600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "52733.5400663296787467986`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "52733.5400663296787467986`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "116229.1007530980351702965`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "116229.1007530980351702965`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "77575.2816388554423634242`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "540.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "278.5233951373841815775`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05052583055607298351112748235227024372`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "198.1710355195782709026`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "243.1908684424723745245`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733143237932*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"505d3a38-9fdd-4d26-b669-e49d3b267754"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "256.5857933579336`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 256.5857933579336}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331530797377`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"385f0f14-3cf7-40e2-a9b4-e0a6238a2b55"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"271.`", ",", "0.`", ",", "0.`", ",", "271.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"271.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "271.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"216.2397096679475`", ",", "0.`", ",", 
+            RowBox[{"-", "216.2397096679475`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"199.17040132033088`", ",", 
+            RowBox[{"-", "10.`"}], ",", "198.91920159225873`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {271., 0., 0., 271.}, $CellContext`p2 -> {
+      271., 0., 0., -271.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {216.2397096679475, 
+      0., -216.2397096679475, 0.}, $CellContext`p5 -> {
+      199.17040132033088`, -10., 198.91920159225873`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733153087983*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"55cef685-c83b-4b5c-bafc-4f04c88a17ab"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.106193998098870755592157609020073757139740417735863636752477252`43.\
+00880201557604*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.36403455474604", ",", "0``57.26600071346161"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.106193998098870755592157609020073757139740417735863636752477252`43.\
+00880201557604*^-14, 0``58.69897000433602, 0``57.36403455474604, 
+    0``57.26600071346161}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331530956707`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"51bf478a-6954-4055-9961-b34ef412d4e6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733153103241*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6302778f-a4bc-4898-adad-2bc9809825a7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "216.2397096679474941539`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "293764.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "52986.7198443531220014165`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "52986.7198443531220014165`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "117201.9226400275418313868`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "117201.9226400275418313868`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "77863.2849687613232591844`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "542.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "279.0399343620216006934`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05027166769197995310278150449323916288`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "199.1704013203308895992`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "243.639394843988486591`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331531111*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"be9d9b98-ab8d-4734-8f46-d879d3148e53"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "257.63878676470586`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 257.63878676470586`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733162923871*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7398d7bc-a8e7-40df-addc-01837f5e7024"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"272.`", ",", "0.`", ",", "0.`", ",", "272.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"272.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "272.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"217.24033752662274`", ",", "0.`", ",", 
+            RowBox[{"-", "217.24033752662274`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"200.1697734616556`", ",", 
+            RowBox[{"-", "10.`"}], ",", "199.91982945093397`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {272., 0., 0., 272.}, $CellContext`p2 -> {
+      272., 0., 0., -272.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {217.24033752662274`, 
+      0., -217.24033752662274`, 0.}, $CellContext`p5 -> {
+      200.1697734616556, -10., 199.91982945093397`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331629320183`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"475872c6-a6f5-4046-a24b-9d69acd1d10e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.096734135620686649226907680965079708751190105467908360449797301`\
+43.454275026045906*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.36202953545095", ",", "0``57.264401100301825"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.096734135620686649226907680965079708751190105467908360449797301`43.\
+454275026045906*^-14, 0``58.69897000433602, 0``57.36202953545095, 
+    0``57.264401100301825}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733162939755*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1f63ecf0-3515-4c70-9899-bc9f5a34eac7"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331629477053`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"59ae776a-bc41-4ac1-a769-cce37dc5780a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "217.2403375266227385509`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "295936.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "53239.8996223765652560342`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "53239.8996223765652560342`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "118178.7436144827697717119`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "118178.7436144827697717119`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "78151.2864737186824529436`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "544.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "279.5555159064451056015`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.05002005067463448155005413315810553938`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "200.1697734616556031728`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "244.0871007878835866338`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733162955611*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f43df338-3820-41f4-8f70-24329e1cb865"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "258.69139194139194`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 258.69139194139194`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733172785234*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"90456c8d-3631-4f01-9310-4404a71893c7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"273.`", ",", "0.`", ",", "0.`", ",", "273.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"273.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "273.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"218.2409591393402`", ",", "0.`", ",", 
+            RowBox[{"-", "218.2409591393402`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"201.16915184893818`", ",", 
+            RowBox[{"-", "10.`"}], ",", "200.92045106365143`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {273., 0., 0., 273.}, $CellContext`p2 -> {
+      273., 0., 0., -273.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {218.2409591393402, 
+      0., -218.2409591393402, 0.}, $CellContext`p5 -> {
+      201.16915184893818`, -10., 200.92045106365143`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331727935543`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"68dab623-686d-496e-9ffd-7e13ba9af720"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "9.75061173917355183029204120639607108324730362755763299571572974`\
+42.95080922518759*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.36003374269025", ",", "0``57.262807357295266"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-9.75061173917355183029204120639607108324730362755763299571572974`42.\
+95080922518759*^-15, 0``58.69897000433602, 0``57.36003374269025, 
+    0``57.262807357295266}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733172800832*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c6aa42b1-dbfe-4278-8edc-0648a626f916"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733172808106*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"25f968d4-d861-4797-b684-27364d428b16"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "218.2409591393401910864`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "298116.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "53493.079400400008510652`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "53493.079400400008510652`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "119159.5636900797443331612`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "119159.5636900797443331612`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "78439.286180959509610671`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "546.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "280.0701451082558881793`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04977094142015443214335497486627980074`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "201.1691518489381718541`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "244.533990724889829051`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733172815716*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fe5c3e44-0280-47a8-a9a2-923749ebb66c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "259.7436131386861`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 259.7436131386861}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733182702231*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"44d2a36e-419a-4532-a04e-793103f62154"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"274.`", ",", "0.`", ",", "0.`", ",", "274.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"274.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "274.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"219.24157459884097`", ",", "0.`", ",", 
+            RowBox[{"-", "219.24157459884097`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"202.16853638943735`", ",", 
+            RowBox[{"-", "10.`"}], ",", "201.9210665231522`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {274., 0., 0., 274.}, $CellContext`p2 -> {
+      274., 0., 0., -274.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {219.24157459884097`, 
+      0., -219.24157459884097`, 0.}, $CellContext`p5 -> {
+      202.16853638943735`, -10., 201.9210665231522, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733182710474*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"255e0003-0b5a-4a28-9614-7d7b1e42be2e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.110555982088074241592953820596998267526123324888594540164232402`\
+43.66865759585291*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.3580470918101", ",", "0``57.261219441515635"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.110555982088074241592953820596998267526123324888594540164232402`43.\
+66865759585291*^-14, 0``58.69897000433602, 0``57.3580470918101, 
+    0``57.261219441515635}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733182718369*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a2d9a4ca-c74a-4bda-8781-4329cf294499"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331827264977`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"160abf41-e2e4-4558-974c-d59861886da3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "219.2415745988409696565`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "300304.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "53746.2591784234517652698`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "53746.2591784234517652698`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "120144.3828801648513717737`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "120144.3828801648513717737`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "78727.2841171766269379594`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "548.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "280.5838272552012698024`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04952430260095423774765051189846749369`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "202.168536389437351929`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "244.9800690661798790034`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733182734599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"37a0a9fb-cae8-4ee2-9c74-ab5e4f6c925e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "260.79545454545456`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 260.79545454545456`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733192647314*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"17cace8e-8c82-4c09-8bf1-4b84400c3ca2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", "275.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "275.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"220.24218399603933`", ",", "0.`", ",", 
+            RowBox[{"-", "220.24218399603933`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"203.16792699223905`", ",", 
+            RowBox[{"-", "10.`"}], ",", "202.92167592035057`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {275., 0., 0., 275.}, $CellContext`p2 -> {
+      275., 0., 0., -275.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {220.24218399603933`, 
+      0., -220.24218399603933`, 0.}, $CellContext`p5 -> {
+      203.16792699223905`, -10., 202.92167592035057`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733192655704*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"47ee1581-7a8c-4689-a4bf-f406dbf48da0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.296535748861395319313636941343275196935028569922347183292216922`43.\
+0713918107402*^-14", ",", "0``58.69897000433602", ",", "0``57.35606949931833",
+      ",", "0``57.25963731050576"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.296535748861395319313636941343275196935028569922347183292216922`43.\
+0713918107402*^-14, 0``58.69897000433602, 0``57.35606949931833, 
+    0``57.25963731050576}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733192663455*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3de3c0c3-e947-4440-89b1-84f31edef4a0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733192671371*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"db152814-5028-4ff6-b282-26580073c31b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "220.2421839960393299407`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "302500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "53999.4389564468950198875`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "53999.4389564468950198875`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "121133.2011978216314673773`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "121133.2011978216314673773`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "79015.2803085370477062401`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "550.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "281.0965675858334768689`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04928009762705257927553130648701718556`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "203.1679269922390557158`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "245.4253401838464308174`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797331926790457`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"58073454-cbdf-447f-aa8b-935c0495255b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "261.84692028985506`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 261.84692028985506`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733202534357*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3e319f16-3608-498f-8252-94c038e61bdb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"276.`", ",", "0.`", ",", "0.`", ",", "276.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"276.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "276.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"221.2427874200671`", ",", "0.`", ",", 
+            RowBox[{"-", "221.2427874200671`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"204.16732356821123`", ",", 
+            RowBox[{"-", "10.`"}], ",", "203.92227934437832`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {276., 0., 0., 276.}, $CellContext`p2 -> {
+      276., 0., 0., -276.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {221.2427874200671, 
+      0., -221.2427874200671, 0.}, $CellContext`p5 -> {
+      204.16732356821123`, -10., 203.92227934437832`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733202542746*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3316334d-2567-477e-89fe-6ac45a1326da"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.864752532505358155130493995571958769017833346951043267082606502`\
+43.644091679433*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.35410088286321", ",", "0``57.25806092227079"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.864752532505358155130493995571958769017833346951043267082606502`43.\
+644091679433*^-14, 0``58.69897000433602, 0``57.35410088286321, 
+    0``57.25806092227079}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733202550662*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b1979334-517e-40ef-bbf3-3e1573a3da69"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733202558599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f806123-2ad9-4ab7-8338-4ddc39539c2d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "221.242787420067088533`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "304704.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "54252.6187344703382745053`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "54252.6187344703382745053`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "122126.0186558770328701939`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "122126.0186558770328701939`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "79303.2747806947621538686`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "552.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "281.6083712901567174466`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04903829062793220388520146230553467021`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "204.1673235682112355106`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "245.8698084113742951094`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733202566358*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"669229e3-e5e7-4f17-b22a-aa41cec4e208"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "262.8980144404332`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 262.8980144404332}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733212320963*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"66abd4e0-34df-4c0b-a686-957b8b0fc843"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"277.`", ",", "0.`", ",", "0.`", ",", "277.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"277.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "277.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"222.2433849583175`", ",", "0.`", ",", 
+            RowBox[{"-", "222.2433849583175`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"205.16672602996084`", ",", 
+            RowBox[{"-", "10.`"}], ",", "204.92287688262874`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {277., 0., 0., 277.}, $CellContext`p2 -> {
+      277., 0., 0., -277.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {222.2433849583175, 
+      0., -222.2433849583175, 0.}, $CellContext`p5 -> {
+      205.16672602996084`, -10., 204.92287688262874`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733212329028*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a60a8481-ca63-4eeb-baed-a39d4bce07f6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.994942809248291145318867422805038753010114854493747129577985481`\
+43.255390689513106*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.3521411612128", ",", "0``57.25649023527157"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.994942809248291145318867422805038753010114854493747129577985481`43.\
+255390689513106*^-14, 0``58.69897000433602, 0``57.3521411612128, 
+    0``57.25649023527157}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733212336607*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dea00dd9-da9e-4b38-a7f1-bcdaccfab787"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332123442297`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0aed1533-5d13-43db-aa60-ef187a32d614"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "222.2433849583175060616`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "306916.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "54505.7985124937815291231`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "54505.7985124937815291231`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "123122.835266907898358113`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "123122.835266907898358113`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "79591.2675588033679603899`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "554.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "282.1192435102635248104`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04879884643493260358648542302832135176`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "205.1667260299608466801`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "246.3134780441058000998`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733212351893*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dbcea1ff-5259-49ee-bc50-1b8426697c0f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "263.94874100719426`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 263.94874100719426`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733222208479*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9d36f73b-df44-4746-86e0-76f012af0a2b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"278.`", ",", "0.`", ",", "0.`", ",", "278.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"278.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "278.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"223.24397669648712`", ",", "0.`", ",", 
+            RowBox[{"-", "223.24397669648712`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"206.1661342917913`", ",", 
+            RowBox[{"-", "10.`"}], ",", "205.92346862079836`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {278., 0., 0., 278.}, $CellContext`p2 -> {
+      278., 0., 0., -278.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {223.24397669648712`, 
+      0., -223.24397669648712`, 0.}, $CellContext`p5 -> {
+      206.1661342917913, -10., 205.92346862079836`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733222216354*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"21e8788d-95d2-4d07-a728-e018c94e3d40"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.767896418113905302571241868299164647390293500931820446550793891`43.\
+63222202460145*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.35019025423463", ",", "0``57.25492520841794"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.767896418113905302571241868299164647390293500931820446550793891`43.\
+63222202460145*^-14, 0``58.69897000433602, 0``57.35019025423463, 
+    0``57.25492520841794}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733222223856*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d379f697-cde4-4a9c-b2c9-67ad5259675f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973322223133*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2b58eb61-9322-4a30-ac4e-ddd71ebe6dbe"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "223.2439766964871239452`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "309136.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "54758.9782905172247837409`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "54758.9782905172247837409`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "124123.6510432468409135254`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "124123.6510432468409135254`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "79879.258667528111734957`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "556.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "282.6291893409598125739`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04856173056415773720158541893086034782`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "206.1661342917912964249`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "246.7563533396989353066`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332222390757`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d63537bb-7602-472d-b762-ad300b53ff46"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "264.9991039426523`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 264.9991039426523}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973323208239*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e379964-bb83-4c06-9951-fd6145d8e037"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"279.`", ",", "0.`", ",", "0.`", ",", "279.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"279.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "279.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"224.2445627186168`", ",", "0.`", ",", 
+            RowBox[{"-", "224.2445627186168`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"207.16554826966154`", ",", 
+            RowBox[{"-", "10.`"}], ",", "206.92405464292804`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {279., 0., 0., 279.}, $CellContext`p2 -> {
+      279., 0., 0., -279.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {224.2445627186168, 
+      0., -224.2445627186168, 0.}, $CellContext`p5 -> {
+      207.16554826966154`, -10., 206.92405464292804`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733232090575*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b5faa05d-b64f-433c-9635-e25f3a7e789f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.562465619196408513119923322290874780556452625246868415225027376`\
+43.36099385253798*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.34824808287598", ",", "0``57.25336580106242"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.562465619196408513119923322290874780556452625246868415225027376`43.\
+36099385253798*^-14, 0``58.69897000433602, 0``57.34824808287598, 
+    0``57.25336580106242}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332320986423`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"81e1255d-239b-47c1-8511-1a298dc10966"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733232106143*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"973d3fd9-1b85-4fd7-a49f-d2cacdbe618c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "224.2445627186168053413`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "311364.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "55012.1580685406680383586`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "55012.1580685406680383586`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "125128.4659969881773804445`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "125128.4659969881773804445`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "80167.2481310577014546982`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "558.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "283.1382138303794934334`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04832690919988101217007821352172812211`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "207.1655482696615417252`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "247.1984385185788913954`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973323211414*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8dd91ab7-30cc-47c7-8b74-87cebb5d2be4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "266.0491071428571`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 266.0491071428571}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733241963167*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"90545944-6dc3-43d2-a686-ef11def5233f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"280.`", ",", "0.`", ",", "0.`", ",", "280.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"280.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "280.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"225.24514310713178`", ",", "0.`", ",", 
+            RowBox[{"-", "225.24514310713178`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"208.16496788114657`", ",", 
+            RowBox[{"-", "10.`"}], ",", "207.92463503144302`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {280., 0., 0., 280.}, $CellContext`p2 -> {
+      280., 0., 0., -280.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {225.24514310713178`, 
+      0., -225.24514310713178`, 0.}, $CellContext`p5 -> {
+      208.16496788114657`, -10., 207.92463503144302`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733241971249*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"96486074-2118-4652-a731-fb4fc2bd93ed"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.581188361392918591372314708680722310835119713656294907194842683`\
+43.50480914172685*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.34631456914447", ",", "0``57.251811972993806"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.581188361392918591372314708680722310835119713656294907194842683`43.\
+50480914172685*^-14, 0``58.69897000433602, 0``57.34631456914447, 
+    0``57.251811972993806}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332419790773`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7ead141e-5afd-4d2c-841a-d16e2018dbd0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733241987095*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8b44b5c1-6105-430c-b9c8-e9e7d3b61d98"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "225.2451431071317813348`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "313600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "55265.3378465641112929764`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "55265.3378465641112929764`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "126137.2801399937975475041`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "126137.2801399937975475041`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "80455.2359731158325905201`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "560.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "283.6463219805887639716`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04809434917843077601079596280528346878`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "208.1649678811465555444`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "247.6397377643830023619`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733241995088*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a27b4424-9bc6-4460-bc26-6307679633d6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "267.09875444839855`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 267.09875444839855`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733251847537*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7d7b613-c332-4e25-b889-f78187fa55c7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"281.`", ",", "0.`", ",", "0.`", ",", "281.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"281.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "281.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"226.24571794288`", ",", "0.`", ",", 
+            RowBox[{"-", "226.24571794288`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"209.16439304539838`", ",", 
+            RowBox[{"-", "10.`"}], ",", "208.92520986719123`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {281., 0., 0., 281.}, $CellContext`p2 -> {
+      281., 0., 0., -281.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {226.24571794288, 
+      0., -226.24571794288, 0.}, $CellContext`p5 -> {
+      209.16439304539838`, -10., 208.92520986719123`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973325185704*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4576947b-41ca-4599-852e-a4b60b570a99"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.38056417936999505662251587410955037450871498151138131658222532`\
+42.872506945074996*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.344389636089176", ",", "0``57.250263684430934"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.38056417936999505662251587410955037450871498151138131658222532`42.\
+872506945074996*^-15, 0``58.69897000433602, 0``57.344389636089176, 
+    0``57.250263684430934}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733251865*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e774bb9e-8a7b-4e7b-be0e-e9ba1ac5923f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733251872621*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"604715f7-6846-4e4f-a71e-02d2458a5609"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "226.2457179428799918242`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "315844.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "55518.5176245875545475942`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "55518.5176245875545475942`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "127150.093483898555405176`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "127150.093483898555405176`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "80743.2222169722234113716`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "562.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "284.1535187481798955796`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04786401797254032620579258665335241206`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "209.1643930453983724864`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "248.0802552243988714694`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733251880313*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2f9e8a2b-669a-480b-83f9-6edc23effea5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "268.1480496453901`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 268.1480496453901}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733261725111*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8d87d43e-3533-4db1-b29c-30c6d8e1304c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"282.`", ",", "0.`", ",", "0.`", ",", "282.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"282.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "282.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"227.24628730516974`", ",", "0.`", ",", 
+            RowBox[{"-", "227.24628730516974`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"210.16382368310866`", ",", 
+            RowBox[{"-", "10.`"}], ",", "209.92577922948098`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {282., 0., 0., 282.}, $CellContext`p2 -> {
+      282., 0., 0., -282.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {227.24628730516974`, 
+      0., -227.24628730516974`, 0.}, $CellContext`p5 -> {
+      210.16382368310866`, -10., 209.92577922948098`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733261733573*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"655b555c-248a-4246-a3c7-1fb1582db9d1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.140230490930551470246488406628349780366432171653657302138312758`43.\
+444652426535924*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.34247320778216", ",", "0``57.24872089601666"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.140230490930551470246488406628349780366432171653657302138312758`43.\
+444652426535924*^-14, 0``58.69897000433602, 0``57.34247320778216, 
+    0``57.24872089601666}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973326174156*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1c63b16d-6867-45dd-ad5f-82499c80b138"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332617491083`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3a6b5923-1627-408b-b655-daf2780f736c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "227.2462873051697442861`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "318096.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "55771.697402610997802212`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "55771.697402610997802212`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "128166.9060401157357773627`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "128166.9060401157357773627`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "81031.2068854534539598924`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "564.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "284.6598090448552485291`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04763588367614665916205905850528455858`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "210.1638236831086598073`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "248.5199950099962270538`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733261756824*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ff053286-2d3d-4232-8a01-959793911f5b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "269.1969964664311`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 269.1969964664311}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332715889997`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1f514df0-1053-4454-a0ee-b4de091a9a3e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"283.`", ",", "0.`", ",", "0.`", ",", "283.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"283.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "283.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"228.24685127180615`", ",", "0.`", ",", 
+            RowBox[{"-", "228.24685127180615`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"211.1632597164722`", ",", 
+            RowBox[{"-", "10.`"}], ",", "210.9263431961174`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {283., 0., 0., 283.}, $CellContext`p2 -> {
+      283., 0., 0., -283.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {228.24685127180615`, 
+      0., -228.24685127180615`, 0.}, $CellContext`p5 -> {
+      211.1632597164722, -10., 210.9263431961174, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733271597417*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6af6a127-70cc-45d0-9c62-728632e957db"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.106843084818273860810469793076737755729197122044870449596824396`\
+43.269785764220835*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.34056520930038", ",", "0``57.24718356881173"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.106843084818273860810469793076737755729197122044870449596824396`43.\
+269785764220835*^-14, 0``58.69897000433602, 0``57.34056520930038, 
+    0``57.24718356881173}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733271605218*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"178222e1-29b0-4633-8c9a-d90ac6473551"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733271612812*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9cd5265e-15c1-4ea5-b6f8-8bf085a77227"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "228.2468512718061504074`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "320356.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "56024.8771806344410568297`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "56024.8771806344410568297`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "129187.7178198422811306045`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "129187.7178198422811306045`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "81319.1900009534532726256`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "566.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "285.1651977380014254124`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04740991498962313970454294890054068545`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "211.1632597164722012152`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "248.9589611970523617106`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733271620479*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"21094872-95e3-46e8-b00b-ccb3593f9004"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "270.2455985915493`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 270.2455985915493}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733281452272*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"57944f53-5899-445d-877b-4f563eb8c802"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"284.`", ",", "0.`", ",", "0.`", ",", "284.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"284.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "284.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"229.24740991912674`", ",", "0.`", ",", 
+            RowBox[{"-", "229.24740991912674`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"212.1627010691516`", ",", 
+            RowBox[{"-", "10.`"}], ",", "211.92690184343797`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {284., 0., 0., 284.}, $CellContext`p2 -> {
+      284., 0., 0., -284.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {229.24740991912674`, 
+      0., -229.24740991912674`, 0.}, $CellContext`p5 -> {
+      212.1627010691516, -10., 211.92690184343797`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733281460801*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"68060c10-432f-4d59-96b6-20ba51bc4df7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.373000400486445178827098416537169622971479249601469865827594076`\
+43.08229233253984*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.33866556670797", ",", "0``57.24565166428898"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.373000400486445178827098416537169622971479249601469865827594076`43.\
+08229233253984*^-14, 0``58.69897000433602, 0``57.33866556670797, 
+    0``57.24565166428898}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733281468708*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7bd8c471-3161-4288-af26-5c59aae178b8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973328147579*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2ad4dc03-cfdb-416f-a0ff-0c5558f3fe8a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "229.2474099191267384867`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "322624.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "56278.0569586578843114475`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "56278.0569586578843114475`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "130212.5288340639874604676`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "130212.5288340639874604676`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "81607.1715854437493698197`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "568.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "285.6696896512539521575`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04718608120543162033848911024890264375`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "212.1627010691516204743`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "249.3971578263714210945`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733281483487*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"04d7a411-1413-4420-9bda-9b19e9f54535"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "271.2938596491228`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 271.2938596491228}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733291343114*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ed0f06a7-8eae-44cc-9ff1-ff4f1468136c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", "285.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "285.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"230.24796332203567`", ",", "0.`", ",", 
+            RowBox[{"-", "230.24796332203567`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"213.1621476662427`", ",", 
+            RowBox[{"-", "10.`"}], ",", "212.9274552463469`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {285., 0., 0., 285.}, $CellContext`p2 -> {
+      285., 0., 0., -285.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {230.24796332203567`, 
+      0., -230.24796332203567`, 0.}, $CellContext`p5 -> {
+      213.1621476662427, -10., 212.9274552463469, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733291351749*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cb511f6b-9693-4a28-9a63-d5d0c49327d6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "9.71399158215401782909042014500412701318371795596477035166766863`42.\
+93049287145448*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.336774207038964", ",", "0``57.24412514432751"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   9.71399158215401782909042014500412701318371795596477035166766863`42.\
+93049287145448*^-15, 0``58.69897000433602, 0``57.336774207038964, 
+    0``57.24412514432751}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797332913592243`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bc04b2be-09c9-41c0-894c-ed85b31255a9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733291366209*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"863beb88-e3b6-44ff-be18-31ee8cbb52c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "230.2479633220356731726`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "324900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "56531.2367366813275660653`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "56531.2367366813275660653`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "131241.3390935603337084103`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "131241.3390935603337084103`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "81895.1516604833184076405`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "570.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "286.1732895650523817552`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04696435219418030152714364954892959178`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "213.1621476662427092325`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "249.8345889040973829582`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733291373917*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ef0c5fca-1b8e-419a-b41c-162b46c3f728"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "272.3417832167832`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 272.3417832167832}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973330124009*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6b28b967-f853-4605-a353-4d28462e27b4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"286.`", ",", "0.`", ",", "0.`", ",", "286.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"286.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "286.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"231.2485115540373`", ",", "0.`", ",", 
+            RowBox[{"-", "231.2485115540373`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"214.161599434241`", ",", 
+            RowBox[{"-", "10.`"}], ",", "213.92800347834853`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {286., 0., 0., 286.}, $CellContext`p2 -> {
+      286., 0., 0., -286.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {231.2485115540373, 
+      0., -231.2485115540373, 0.}, $CellContext`p5 -> {214.161599434241, -10.,
+       213.92800347834853`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333012487097`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1faa1b42-f362-4d90-a956-9b55812e93ad"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "7.605434641095772389713588894622815242066269880788709461111500786`\
+43.82269801402874*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.3348910582804", ",", "0``57.242603971206975"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-7.605434641095772389713588894622815242066269880788709461111500786`43.\
+82269801402874*^-14, 0``58.69897000433602, 0``57.3348910582804, 
+    0``57.242603971206975}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733301256878*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"97a12f4c-5bac-48c3-b2ed-7b5dad8da8f3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733301264529*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23e28c09-0bee-4076-b77f-ada2c061b92d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "231.2485115540372930809`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "327184.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "56784.416514704770820683`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "56784.416514704770820683`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "132274.1486089093316422804`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "132274.1486089093316422804`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "82183.1302472282375017679`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "572.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "286.6760022171863577451`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04674469839107385441248548039596020242`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "214.1615994342410035558`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "250.2712584021211271541`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333012723227`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d4ee61d3-5ad0-42a6-9c47-270d2f8765ef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "273.38937282229966`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 273.38937282229966`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733311177177*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"83515d63-2791-48d6-8ebb-3212213f1700"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"287.`", ",", "0.`", ",", "0.`", ",", "287.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"287.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "287.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"232.2490546872689`", ",", "0.`", ",", 
+            RowBox[{"-", "232.2490546872689`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"215.1610563010095`", ",", 
+            RowBox[{"-", "10.`"}], ",", "214.92854661158015`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {287., 0., 0., 287.}, $CellContext`p2 -> {
+      287., 0., 0., -287.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {232.2490546872689, 
+      0., -232.2490546872689, 0.}, $CellContext`p5 -> {
+      215.1610563010095, -10., 214.92854661158015`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333111908216`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8df3ae74-355d-43bf-854d-89f7f74ead6f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.633886520093981334361400907838123626295532969485453901626857427`43.\
+360655171569626*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.333016049355756", ",", "0``57.241088107602025"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.633886520093981334361400907838123626295532969485453901626857427`43.\
+360655171569626*^-14, 0``58.69897000433602, 0``57.333016049355756, 
+    0``57.241088107602025}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333112028522`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8978b8cf-6b6f-4457-bd9b-dff792e88707"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733311213091*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23c01cbe-e1f1-4e14-9c66-095a3e521c98"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "232.2490546872689094471`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "329476.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "57037.5962927282140753008`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "57037.5962927282140753008`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "133310.9573904923540226264`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "133310.9573904923540226264`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "82471.1073664411248616583`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "574.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "287.1778323033327808701`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04652709078274300272609049022831720185`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "215.1610563010094895829`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "250.7071702584816578852`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733311223414*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"409762b3-c56f-40cc-9c4c-d2abe755ef43"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "274.43663194444446`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 274.43663194444446`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733321250959*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7e741844-6f74-436b-a9a2-9fbca8f0dc56"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"288.`", ",", "0.`", ",", "0.`", ",", "288.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"288.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "288.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"233.2495927925319`", ",", "0.`", ",", 
+            RowBox[{"-", "233.2495927925319`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"216.16051819574642`", ",", 
+            RowBox[{"-", "10.`"}], ",", "215.92908471684314`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {288., 0., 0., 288.}, $CellContext`p2 -> {
+      288., 0., 0., -288.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {233.2495927925319, 
+      0., -233.2495927925319, 0.}, $CellContext`p5 -> {
+      216.16051819574642`, -10., 215.92908471684314`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733321259446*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7996b165-cd8f-4c85-8aa8-0d79250b5b38"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.07102235913307699367670277657038813801139139590387672126738799`\
+43.72180935326363*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.33114911010874", ",", "0``57.23957751657679"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.07102235913307699367670277657038813801139139590387672126738799`43.\
+72180935326363*^-14, 0``58.69897000433602, 0``57.33114911010874, 
+    0``57.23957751657679}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733321267191*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0c2de0cd-5101-4ec1-9b59-b774fd6f719b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733321274585*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0f6f4125-26ac-4856-bfb9-ca70d57dce83"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "233.2495927925318994767`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "331776.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "57290.7760707516573299186`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "57290.7760707516573299186`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "134351.7654484983740985626`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "134351.7654484983740985626`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "82759.0830385000891032692`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "576.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "287.6787844775837638329`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04631150089444143107652839911236366863`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "216.1605181957464125042`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "251.1423283777611435601`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733321281911*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2d8de64a-cee6-4b38-8aa8-335029e0d3a6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "275.48356401384086`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 275.48356401384086`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333311904697`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23e88e77-1626-4ba4-a82d-6e7ee25cc4c8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"289.`", ",", "0.`", ",", "0.`", ",", "289.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"289.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "289.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"234.25012593932314`", ",", "0.`", ",", 
+            RowBox[{"-", "234.25012593932314`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"217.15998504895518`", ",", 
+            RowBox[{"-", "10.`"}], ",", "216.92961786363438`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {289., 0., 0., 289.}, $CellContext`p2 -> {
+      289., 0., 0., -289.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {234.25012593932314`, 
+      0., -234.25012593932314`, 0.}, $CellContext`p5 -> {
+      217.15998504895518`, -10., 216.92961786363438`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733331203434*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c45b3461-8bb2-43fa-a813-1582aee6b8c4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.720066711996830642407283567435660072708456947227273652288473738`\
+43.69444325982795*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.329290171287454", ",", "0``57.23807216157947"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.720066711996830642407283567435660072708456947227273652288473738`43.\
+69444325982795*^-14, 0``58.69897000433602, 0``57.329290171287454, 
+    0``57.23807216157947}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733331215*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"37b0d445-169e-4e84-bf92-ddd9907361cb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733331227078*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6469dbef-4462-434c-a592-4a9dbfd5a937"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "234.2501259393231407557`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "334084.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "57543.9558487751005845364`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "57543.9558487751005845364`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "135396.5727929287753568133`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "135396.5727929287753568133`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "83047.0572834077767260913`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "578.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "288.1788633529665664645`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04609790077759768784402190979274861945`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "217.1599850489551747347`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "251.5767366314747512309`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733331240346*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b5995c65-17ce-42f8-b16c-e2e683cd2941"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "276.5301724137931`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 276.5301724137931}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733341187915*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b65961bc-8b10-47c5-8077-ae9d94d87227"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"290.`", ",", "0.`", ",", "0.`", ",", "290.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"290.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "290.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"235.25065419586443`", ",", "0.`", ",", 
+            RowBox[{"-", "235.25065419586443`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"218.15945679241392`", ",", 
+            RowBox[{"-", "10.`"}], ",", "217.93014612017566`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {290., 0., 0., 290.}, $CellContext`p2 -> {
+      290., 0., 0., -290.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {235.25065419586443`, 
+      0., -235.25065419586443`, 0.}, $CellContext`p5 -> {
+      218.15945679241392`, -10., 217.93014612017566`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733341200189*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2988ede-c54d-4206-90eb-eb4505543f7e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.426623585426426816243667421403196156521471276926899151949872381`\
+43.4704084105777*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.32743916452893", ",", "0``57.23657200643707"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.426623585426426816243667421403196156521471276926899151949872381`43.\
+4704084105777*^-14, 0``58.69897000433602, 0``57.32743916452893, 
+    0``57.23657200643707}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733341211499*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fcdd1e52-e71e-4b4f-b923-2d6f4bd75383"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973334122267*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7c0044c8-59ec-4cc5-9a35-709cbcf1c6ef"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "235.2506541958644277202`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "336400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "57797.1356267985438391541`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "57797.1356267985438391541`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "136445.3794336013680776887`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "136445.3794336013680776887`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "83335.0301207998387846924`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "580.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "288.6780735019544895132`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04588626299771114868439965312912250832`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "218.1594567924139107047`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "252.0103988584543314779`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733341233399*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"004aa918-fb00-4299-94fa-66046a7ecfbd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "277.5764604810997`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 277.5764604810997}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733351211061*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"deaeb059-1a27-4dc2-9138-bf5da443170a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"291.`", ",", "0.`", ",", "0.`", ",", "291.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"291.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "291.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"236.25117762913175`", ",", "0.`", ",", 
+            RowBox[{"-", "236.25117762913175`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"219.15893335914654`", ",", 
+            RowBox[{"-", "10.`"}], ",", "218.93066955344298`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {291., 0., 0., 291.}, $CellContext`p2 -> {
+      291., 0., 0., -291.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {236.25117762913175`, 
+      0., -236.25117762913175`, 0.}, $CellContext`p5 -> {
+      219.15893335914654`, -10., 218.93066955344298`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733351219623*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"366af2c5-39fb-47f6-9b79-31d0e9b0b2ca"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.86896154620717753244724973003512880247714210127020548707972671`\
+43.77093810480375*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.32559602234388", ",", "0``57.23507701535011"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.86896154620717753244724973003512880247714210127020548707972671`43.\
+77093810480375*^-14, 0``58.69897000433602, 0``57.32559602234388, 
+    0``57.23507701535011}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333512274647`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e3871e80-c1bf-4ca2-bd39-98093e7f2896"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733351235384*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ac7d17f2-23eb-4ef7-82a0-75b9c5731db7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "236.2511776291317460164`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "338724.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "58050.3154048219870937719`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "58050.3154048219870937719`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "137498.1853801546761815189`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "137498.1853801546761815189`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "83623.0015699533566584673`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "582.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "289.1764194569698254851`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04567656062258060559309192746827804127`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "219.1589333591465579852`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "252.4433188652268533993`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733351243565*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a716ee1b-adb9-490a-b300-8bf77f21c68d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "278.6224315068493`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 278.6224315068493}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733361050346*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7c53f10d-209e-4fc9-8310-e769df8051a8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"292.`", ",", "0.`", ",", "0.`", ",", "292.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"292.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "292.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"237.2516963048837`", ",", "0.`", ",", 
+            RowBox[{"-", "237.2516963048837`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"220.15841468339465`", ",", 
+            RowBox[{"-", "10.`"}], ",", "219.93118822919493`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {292., 0., 0., 292.}, $CellContext`p2 -> {
+      292., 0., 0., -292.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {237.2516963048837, 
+      0., -237.2516963048837, 0.}, $CellContext`p5 -> {
+      220.15841468339465`, -10., 219.93118822919493`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733361059636*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d70eb64f-938c-432e-b39f-25e98aa6137b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.561535926737404880439781651352524244253025320897442968344132093`\
+43.126109137851515*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.32376067810195", ",", "0``57.2335871528876"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.561535926737404880439781651352524244253025320897442968344132093`43.\
+126109137851515*^-14, 0``58.69897000433602, 0``57.32376067810195, 
+    0``57.2335871528876}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733361067416*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"47fccf0b-aaa7-4ffd-b68d-7d256ebb57e3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733361075128*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e1dbbf6-3c1a-4511-a2f5-2d5c3b4a1384"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "237.2516963048836942107`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "341056.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "58303.4951828454303483897`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "58303.4951828454303483897`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "138554.9906420520774190663`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "138554.9906420520774190663`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "83910.9716497950224106175`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "584.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "289.6739057108786635532`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04546876721085501288073827011857142845`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "220.158414683394662865`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "252.8755004263873608769`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733361083088*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"685f8a7e-3298-40c8-9800-2b6676b6ec07"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "279.66808873720134`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 279.66808873720134`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733370949992*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1ff5a700-9268-443d-84ea-ef8b37ecc8c3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"293.`", ",", "0.`", ",", "0.`", ",", "293.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"293.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "293.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"238.2522102876888`", ",", "0.`", ",", 
+            RowBox[{"-", "238.2522102876888`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"221.1579007005896`", ",", 
+            RowBox[{"-", "10.`"}], ",", "220.93170221200003`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {293., 0., 0., 293.}, $CellContext`p2 -> {
+      293., 0., 0., -293.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {238.2522102876888, 
+      0., -238.2522102876888, 0.}, $CellContext`p5 -> {
+      221.1579007005896, -10., 220.93170221200003`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973337095885*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c334cdad-525b-4024-8207-114f5fc35d55"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.897281616267572018601905490305382690303530199874379360751698865`43.\
+52183417721867*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.321933066017074", ",", "0``57.23210238398191"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.897281616267572018601905490305382690303530199874379360751698865`43.\
+52183417721867*^-14, 0``58.69897000433602, 0``57.321933066017074, 
+    0``57.23210238398191}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733370966955*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f0499bd0-158b-4dbe-8ea1-d6d673c038a3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733370974574*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f949353e-4e4a-4775-a0e8-4bac9a647cbb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "238.2522102876887970524`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "343396.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "58556.6749608688736030074`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "58556.6749608688736030074`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "139615.7952285856350727045`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "139615.7952285856350727045`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "84198.9403789090001131314`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "586.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "290.170536717477572565`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04526285680089620305645477248159513166`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "221.1579007005896146115`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "253.306947284966420362`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733370982527*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3ae1a364-8368-430d-adbd-eee7b18c95a2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "280.71343537414964`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 280.71343537414964`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733380780058*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"98c292f0-8547-49df-82dd-39309390d947"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"294.`", ",", "0.`", ",", "0.`", ",", "294.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"294.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "294.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"239.25271964095242`", ",", "0.`", ",", 
+            RowBox[{"-", "239.25271964095242`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"222.15739134732598`", ",", 
+            RowBox[{"-", "10.`"}], ",", "221.93221156526366`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {294., 0., 0., 294.}, $CellContext`p2 -> {
+      294., 0., 0., -294.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {239.25271964095242`, 
+      0., -239.25271964095242`, 0.}, $CellContext`p5 -> {
+      222.15739134732598`, -10., 221.93221156526366`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333807886477`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6d451dba-1e5b-4753-ad90-2a905331bb2a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.793095183240770700607313006626159450952183796179773095879765388`43.\
+18319602217736*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.32011312113334", ",", "0``57.23062267392386"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.793095183240770700607313006626159450952183796179773095879765388`43.\
+18319602217736*^-14, 0``58.69897000433602, 0``57.32011312113334, 
+    0``57.23062267392386}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733380796619*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0174a1ab-349f-47ea-82b7-7d16d482fd61"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973338080431*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2c1cb5ba-9f31-4922-8402-f9faa6a65463"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "239.252719640952420832`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "345744.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "58809.8547388923168576252`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "58809.8547388923168576252`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "140680.5991488800234492373`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "140680.5991488800234492373`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "84486.9077755446726467382`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "588.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "290.6663168919726629954`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04505880389994355590704707095755435509`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "222.15739134732596979`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "253.7376631527924464743`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733380812114*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8a67a529-905e-497a-86aa-03e148ab55a7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "281.75847457627117`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 281.75847457627117`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733390625636*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"15a9fabd-215b-4049-97e4-9224d7ad4530"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", "295.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "295.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"240.25322442694286`", ",", "0.`", ",", 
+            RowBox[{"-", "240.25322442694286`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"223.1568865613354`", ",", 
+            RowBox[{"-", "10.`"}], ",", "222.9327163512541`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {295., 0., 0., 295.}, $CellContext`p2 -> {
+      295., 0., 0., -295.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {240.25322442694286`, 
+      0., -240.25322442694286`, 0.}, $CellContext`p5 -> {
+      223.1568865613354, -10., 222.9327163512541, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733390634326*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0ac74549-65ca-4656-bc38-cd38f97a0040"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.1409643732876621471598784630089027144651248928891282713496134874`\
+43.98539007644063*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.31830077931102", ",", "0``57.22914798835786"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.1409643732876621471598784630089027144651248928891282713496134874`43.\
+98539007644063*^-13, 0``58.69897000433602, 0``57.31830077931102, 
+    0``57.22914798835786}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797333906422567`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7178167b-8388-438f-9d21-eac8e74e37ec"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733390650813*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3a072c99-0abb-4ff1-8454-9a02cfeca9ff"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "240.2532244269428645111`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "348100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "59063.034516915760112243`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "59063.034516915760112243`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "141749.402411896290061577`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "141749.402411896290061577`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "84774.8738576241512704514`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "590.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "291.1612506114509586983`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0448565834735711985888757108094605926`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "223.1568865613353940836`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "254.1676517108487983032`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733390658861*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b8c1f126-f24a-4d4b-a642-96f0c53f4b4b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "282.8032094594595`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 282.8032094594595}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733400532921*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc95de3f-aea7-4f1c-973a-d0526dbeae50"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"296.`", ",", "0.`", ",", "0.`", ",", "296.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"296.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "296.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"241.2537247068169`", ",", "0.`", ",", 
+            RowBox[{"-", "241.2537247068169`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"224.15638628146147`", ",", 
+            RowBox[{"-", "10.`"}], ",", "223.93321663112815`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {296., 0., 0., 296.}, $CellContext`p2 -> {
+      296., 0., 0., -296.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {241.2537247068169, 
+      0., -241.2537247068169, 0.}, $CellContext`p5 -> {
+      224.15638628146147`, -10., 223.93321663112815`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733400541144*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"01d9f810-f0aa-40cb-a7bc-4158f4d96e63"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.33255785085846685955195555457429131195693789278879603756073372`\
+42.05133436991825*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.31649597721291", ",", "0``57.22767829327708"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.33255785085846685955195555457429131195693789278879603756073372`42.\
+05133436991825*^-15, 0``58.69897000433602, 0``57.31649597721291, 
+    0``57.22767829327708}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733400549047*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a8148218-abcc-4642-9a14-89165f9af6b4"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733400556807*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1cd49e5b-3c43-4e5d-9652-4babcb147586"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "241.2537247068169108388`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "350464.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "59316.2142949392033668608`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "59316.2142949392033668608`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "142822.2050264356112165842`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "142822.2050264356112165842`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "85062.8386427496297642927`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "592.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "291.6553422153443596413`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04465617093542850736185722969968356022`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "224.1563862814614605197`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "254.5969166096258453115`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733400564714*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ceb928d7-f331-4251-a0bb-327aab8083b4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "283.8476430976431`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 283.8476430976431}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733410414171*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23368991-4c64-47f9-8a04-ba86d0e7ae69"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"297.`", ",", "0.`", ",", "0.`", ",", "297.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"297.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "297.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"242.25422054064396`", ",", "0.`", ",", 
+            RowBox[{"-", "242.25422054064396`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"225.1558904476344`", ",", 
+            RowBox[{"-", "10.`"}], ",", "224.9337124649552`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {297., 0., 0., 297.}, $CellContext`p2 -> {
+      297., 0., 0., -297.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {242.25422054064396`, 
+      0., -242.25422054064396`, 0.}, $CellContext`p5 -> {
+      225.1558904476344, -10., 224.9337124649552, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733410422525*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5c825c44-83ae-4039-8ed2-39b78391de3c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.581524577096960532026536572737377361246662317356462134299319664`\
+43.479251495070315*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.31469865229105", ",", "0``57.2262135550188"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.581524577096960532026536572737377361246662317356462134299319664`43.\
+479251495070315*^-14, 0``58.69897000433602, 0``57.31469865229105, 
+    0``57.2262135550188}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733410430245*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af5dee69-6cff-419a-b72a-717a6a2d8ee6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733410438451*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b2d6a658-03a7-4383-b9d2-e1489508b1d9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "242.2542205406439563831`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "352836.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "59569.3940729626466214785`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "59569.3940729626466214785`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "143899.0070011425100915403`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "143899.0070011425100915403`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "85350.8021482103295540648`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "594.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "292.148596005885897795`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04445754213725524317997576378636415509`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "225.1558904476343804928`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "255.0254614694677003266`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334104464197`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e36ea031-d423-409d-b969-2e544f57dab7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "284.8917785234899`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 284.8917785234899}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733420337407*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fb0d8040-1097-428f-acea-6531fe344c1e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"298.`", ",", "0.`", ",", "0.`", ",", "298.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"298.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "298.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"243.2547119874307`", ",", "0.`", ",", 
+            RowBox[{"-", "243.2547119874307`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"226.1553990008476`", ",", 
+            RowBox[{"-", "10.`"}], ",", "225.93420391174195`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {298., 0., 0., 298.}, $CellContext`p2 -> {
+      298., 0., 0., -298.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {243.2547119874307, 
+      0., -243.2547119874307, 0.}, $CellContext`p5 -> {
+      226.1553990008476, -10., 225.93420391174195`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733420345862*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1a1c1c5e-fe88-47aa-8e20-12b6e5ea3a28"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.946945996517068772442457187038093910955606995106762626879433244`\
+43.61806091399722*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.31290874277355", ",", "0``57.22475374025976"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.946945996517068772442457187038093910955606995106762626879433244`43.\
+61806091399722*^-14, 0``58.69897000433602, 0``57.31290874277355, 
+    0``57.22475374025976}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733420354681*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"332d53c1-fd6d-41d6-9f14-b2037abf9557"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733420362659*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"056b6dc1-4833-4e0d-bcdb-9a55e5de6128"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "243.2547119874307099963`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "355216.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "59822.5738509860898760963`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "59822.5738509860898760963`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "144979.8083445087031577714`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "144979.8083445087031577714`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "85638.7643909896084433063`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "596.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "292.641016248559402865`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04426067335916239267187753505110523577`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "226.1553990008476132254`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "255.4532898809145475677`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733420371162*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"30a1ffce-6185-4229-b841-bb286231957d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "285.935618729097`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 285.935618729097}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334302597837`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a12b9caf-a59c-439a-af70-ed3ad915fb55"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"299.`", ",", "0.`", ",", "0.`", ",", "299.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"299.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "299.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"244.25519910514424`", ",", "0.`", ",", 
+            RowBox[{"-", "244.25519910514424`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"227.1549118831341`", ",", 
+            RowBox[{"-", "10.`"}], ",", "226.93469102945548`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {299., 0., 0., 299.}, $CellContext`p2 -> {
+      299., 0., 0., -299.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {244.25519910514424`, 
+      0., -244.25519910514424`, 0.}, $CellContext`p5 -> {
+      227.1549118831341, -10., 226.93469102945548`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334302685013`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e207eb95-c858-4e2e-8378-80ffdf6cd66a"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "3.127473418580670082150569434285760362352768459303893932789742291`\
+43.41746244751793*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.31112618765188", ",", "0``57.223298816011585"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-3.127473418580670082150569434285760362352768459303893932789742291`43.\
+41746244751793*^-14, 0``58.69897000433602, 0``57.31112618765188, 
+    0``57.223298816011585}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334302771893`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9725b14d-6a9b-414f-bb2e-14580a6bff06"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733430287204*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5686d765-a23f-4772-a940-9b9f84ff8f7e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "244.2551991051442428216`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "357604.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "60075.7536290095331307141`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "60075.7536290095331307141`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "146064.6090648762572072883`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "146064.6090648762572072883`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "85926.7253877715948844237`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "598.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "293.1326071725416133161`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04406554130017093232876537899277563607`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "227.1549118831340985948`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "255.8804054050396869874`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733430299067*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d4123eaf-f143-42b5-bf32-6d096b2d2aef"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "286.9791666666667`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 286.9791666666667}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334400887403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a7216ebc-1d57-4803-b216-47305ec4cad3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"300.`", ",", "0.`", ",", "0.`", ",", "300.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"300.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "300.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"245.25568195073484`", ",", "0.`", ",", 
+            RowBox[{"-", "245.25568195073484`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"228.1544290375435`", ",", 
+            RowBox[{"-", "10.`"}], ",", "227.93517387504608`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {300., 0., 0., 300.}, $CellContext`p2 -> {
+      300., 0., 0., -300.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {245.25568195073484`, 
+      0., -245.25568195073484`, 0.}, $CellContext`p5 -> {
+      228.1544290375435, -10., 227.93517387504608`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733440097142*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a81efc81-9757-4269-a80e-d8b7e83cecc1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.095749349250547280307915504636423438775091921353455234927449683`\
+42.96052997535734*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.30935092666827", ",", "0``57.22184874961636"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.095749349250547280307915504636423438775091921353455234927449683`42.\
+96052997535734*^-14, 0``58.69897000433602, 0``57.30935092666827, 
+    0``57.22184874961636}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334401051493`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2431ff48-a994-4a63-b18a-b5113c945cd2"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334401129932`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"81223f25-41a5-4f47-9ad7-e9f292b870fb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "245.2556819507348393472`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "360000.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "60328.9334070329763853319`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "60328.9334070329763853319`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "147153.4091704409036083234`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "147153.4091704409036083234`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "86214.6851549477649873119`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "600.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "293.6233729711375769573`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04387212306900028668822935182400073271`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "228.1544290375435223864`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "256.3068115737819891175`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334401209917`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"671057cc-0187-4fa5-8407-7d5c725f6c59"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "288.02242524916943`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 288.02242524916943`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733450081839*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"107ea11d-c3e7-4f15-94f9-7d193b324317"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"301.`", ",", "0.`", ",", "0.`", ",", "301.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"301.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "301.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"246.2561605801582`", ",", "0.`", ",", 
+            RowBox[{"-", "246.2561605801582`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"229.15395040812012`", ",", 
+            RowBox[{"-", "10.`"}], ",", "228.93565250446943`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {301., 0., 0., 301.}, $CellContext`p2 -> {
+      301., 0., 0., -301.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {246.2561605801582, 
+      0., -246.2561605801582, 0.}, $CellContext`p5 -> {
+      229.15395040812012`, -10., 228.93565250446943`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733450090205*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f204e57c-ba46-4112-a7d3-46df22eab190"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.58723854952804336868939372996366373072387455723153013902184485`\
+43.66657072722197*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.30758290030342", ",", "0``57.22040350874217"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.58723854952804336868939372996366373072387455723153013902184485`43.\
+66657072722197*^-14, 0``58.69897000433602, 0``57.30758290030342, 
+    0``57.22040350874217}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334500980673`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bfd61556-c7e9-4475-b9d4-675851bbbc6a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973345010537*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fe764d26-6598-4b9c-bc2c-b358d81f2418"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "246.2561605801581947617`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "362404.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "60582.1131850564196399496`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "60582.1131850564196399496`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "148246.2086692552332465311`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "148246.2086692552332465311`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "86502.6437086233313797172`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "602.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "294.1133178022092412364`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04368039617509891293121759799695614363`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "229.1539504081201220571`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "256.7325118902736357411`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733450112803*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ba7cb3f2-aca2-4d3a-b120-207f06e06479"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "289.06539735099335`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 289.06539735099335`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334599376297`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"63d0f6b3-c85c-4d2c-bda8-75935daecb1e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"302.`", ",", "0.`", ",", "0.`", ",", "302.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"302.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "302.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"247.25663504839716`", ",", "0.`", ",", 
+            RowBox[{"-", "247.25663504839716`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"230.1534759398812`", ",", 
+            RowBox[{"-", "10.`"}], ",", "229.9361269727084`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {302., 0., 0., 302.}, $CellContext`p2 -> {
+      302., 0., 0., -302.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {247.25663504839716`, 
+      0., -247.25663504839716`, 0.}, $CellContext`p5 -> {
+      230.1534759398812, -10., 229.9361269727084, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334599462643`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fa0792a9-8170-44c5-8ad5-5a59d40f0ea2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.967953006285251392738942529072049220126598886953553053051757016`\
+43.21194778920316*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.30582204976451", ",", "0``57.21896306137887"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.967953006285251392738942529072049220126598886953553053051757016`43.\
+21194778920316*^-14, 0``58.69897000433602, 0``57.30582204976451, 
+    0``57.21896306137887}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334599542303`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"53433c3b-e81e-4066-8667-ef4a9388d82d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334599623127`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4f1d818b-67df-4dba-83a4-ccf6d4e0ccfc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "247.2566350483971575613`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "364816.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "60835.2929630798628945674`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "60835.2929630798628945674`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "149343.0075692318831670491`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "149343.0075692318831670491`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "86790.6010646235011818575`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "604.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "294.6024457885974530184`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04349033851990958163511033616425840362`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "230.1534759398811954502`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "257.157509829163300725`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973345997057*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a1a465e8-d8e8-4266-b360-d6f907cd0137"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "290.1080858085809`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 290.1080858085809}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733469846272*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"39b5af94-9cd1-4213-8074-c6ab10e59e68"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"303.`", ",", "0.`", ",", "0.`", ",", "303.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"303.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "303.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"248.25710540948253`", ",", "0.`", ",", 
+            RowBox[{"-", "248.25710540948253`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"231.15300557879578`", ",", 
+            RowBox[{"-", "10.`"}], ",", "230.93659733379377`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {303., 0., 0., 303.}, $CellContext`p2 -> {
+      303., 0., 0., -303.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {248.25710540948253`, 
+      0., -248.25710540948253`, 0.}, $CellContext`p5 -> {
+      231.15300557879578`, -10., 230.93659733379377`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733469856578*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b5ac264f-3c13-4674-accc-03b0cbec92e9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.375848535817571862065624773043513648361559116252489187728835334`\
+43.557559661228865*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.30406831697335", ",", "0``57.21752737583371"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.375848535817571862065624773043513648361559116252489187728835334`43.\
+557559661228865*^-14, 0``58.69897000433602, 0``57.30406831697335, 
+    0``57.21752737583371}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733469864675*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"73a44c2a-7955-49c4-9195-70e005e0c5d2"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733469873075*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"95a14447-1299-4312-815c-d11eb7a9ca66"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "248.2571054094825342418`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "367236.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "61088.4727411033061491852`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "61088.4727411033061491852`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "150443.805878146415750507`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "150443.805878146415750507`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "87078.5572384994640291952`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "606.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "295.0907610185372510339`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04330192838836231076629413231749998288`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "231.1530055787957946909`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "257.5818088369346341609`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334698805227`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"329d1525-3a6a-4ca1-bde8-35ff2100c0f0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "291.1504934210526`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 291.1504934210526}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973347972407*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d3c61a67-05d6-4687-a86f-1415835f8c08"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"304.`", ",", "0.`", ",", "0.`", ",", "304.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"304.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "304.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"249.25757171651387`", ",", "0.`", ",", 
+            RowBox[{"-", "249.25757171651387`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"232.15253927176448`", ",", 
+            RowBox[{"-", "10.`"}], ",", "231.9370636408251`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {304., 0., 0., 304.}, $CellContext`p2 -> {
+      304., 0., 0., -304.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {249.25757171651387`, 
+      0., -249.25757171651387`, 0.}, $CellContext`p5 -> {
+      232.15253927176448`, -10., 231.9370636408251, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733479732595*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"333a20ee-5223-40b2-9729-ae337f6d0430"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.708861791681539012384458480213381304993779626364442663372739872`\
+43.34785327260614*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.30232164455493", ",", "0``57.21609642072727"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.708861791681539012384458480213381304993779626364442663372739872`43.\
+34785327260614*^-14, 0``58.69897000433602, 0``57.30232164455493, 
+    0``57.21609642072727}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733479740533*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3b714156-0fe9-4038-a2d3-e9ac1b399793"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733479748316*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c5034d38-1a22-4854-ae37-98397dee1ac2"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "249.2575717165138655673`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "369664.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "61341.6525191267494038029`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "61341.6525191267494038029`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "151548.6036036404302649316`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "151548.6036036404302649316`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "87366.512245534371914852`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "608.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "295.5782675460670127967`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04311514444058789159547202165656046107`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "232.1525392717644800352`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "258.0054123322205038166`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733479756288*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f8c2c1a-0880-4ec7-a2b5-d09ba133e233"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "292.19262295081967`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 292.19262295081967`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733489558432*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8eca6126-1fc7-438b-9eda-346ed4a79ad7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", "305.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "305.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"250.25803402167924`", ",", "0.`", ",", 
+            RowBox[{"-", "250.25803402167924`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"233.15207696659917`", ",", 
+            RowBox[{"-", "10.`"}], ",", "232.93752594599047`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {305., 0., 0., 305.}, $CellContext`p2 -> {
+      305., 0., 0., -305.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {250.25803402167924`, 
+      0., -250.25803402167924`, 0.}, $CellContext`p5 -> {
+      233.15207696659917`, -10., 232.93752594599047`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733489567169*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d30b3224-ad16-4c10-99a4-b2c409afb5ce"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.77721954393205063200975424068012008067495019812978549751405131`43.\
+35725038215058*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.300581975825914", ",", "0``57.214670164989236"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.77721954393205063200975424068012008067495019812978549751405131`43.\
+35725038215058*^-14, 0``58.69897000433602, 0``57.300581975825914, 
+    0``57.214670164989236}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733489575404*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c071f64c-61b4-4c1d-ba87-559c7db29cd6"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733489583538*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12a543ed-9e41-4f0a-a87c-20f2c0e3d558"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "250.2580340216792365027`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "372100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "61594.8322971501926584207`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "61594.8322971501926584207`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "152657.4007532243342666334`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "152657.4007532243342666334`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "87654.4661007490408998181`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "610.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "296.0649693914311114372`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0429299657038455347324843500837582055`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "233.1520769665991639606`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "258.4283237061126615557`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733489591176*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"94f05bbe-3fdd-495f-b7ac-1f565587595c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "293.234477124183`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 293.234477124183}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733499482738*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e2c9c504-1399-4430-b9fe-f422ebb7fca7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"306.`", ",", "0.`", ",", "0.`", ",", "306.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"306.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "306.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"251.25849237627472`", ",", "0.`", ",", 
+            RowBox[{"-", "251.25849237627472`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"234.1516186120036`", ",", 
+            RowBox[{"-", "10.`"}], ",", "233.93798430058595`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {306., 0., 0., 306.}, $CellContext`p2 -> {
+      306., 0., 0., -306.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {251.25849237627472`, 
+      0., -251.25849237627472`, 0.}, $CellContext`p5 -> {
+      234.1516186120036, -10., 233.93798430058595`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733499491517*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5e66b915-e487-42b5-a238-6a7e84d67ea9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.582098710647144361569996510020356708512645727782360929948564605`\
+43.57328302300795*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.298849254783796", ",", "0``57.213248577854436"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.582098710647144361569996510020356708512645727782360929948564605`43.\
+57328302300795*^-14, 0``58.69897000433602, 0``57.298849254783796, 
+    0``57.213248577854436}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797334994990797`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"88c9227c-2983-4a31-86c5-c2cc8c845529"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733499506783*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"93f0447c-8b13-45a6-99fa-ff859d35e2bf"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "251.258492376274716662`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "374544.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "61848.0120751736359130385`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "61848.0120751736359130385`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "153770.1973342801265971502`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "153770.1973342801265971502`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "87942.4188189075464784941`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "612.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "296.550870541476486286`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0427463715646580999960380297046274798`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "234.1516186120036102081`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "258.8505463224671537734`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733499514428*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b2015e5b-1dc8-46c1-b8f6-8763e5bb2296"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "294.27605863192184`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 294.27605863192184`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733509343103*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"35ceb1ff-a8fb-464d-823d-d0336fed0fe5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"307.`", ",", "0.`", ",", "0.`", ",", "307.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"307.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "307.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"252.2589468307236`", ",", "0.`", ",", 
+            RowBox[{"-", "252.2589468307236`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"235.15116415755472`", ",", 
+            RowBox[{"-", "10.`"}], ",", "234.93843875503484`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {307., 0., 0., 307.}, $CellContext`p2 -> {
+      307., 0., 0., -307.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {252.2589468307236, 
+      0., -252.2589468307236, 0.}, $CellContext`p5 -> {
+      235.15116415755472`, -10., 234.93843875503484`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733509351631*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d8836511-ceed-4601-bf5d-df17114a4d90"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.322380638788447215493388032663705525810683487185444138255935837`\
+43.54652464239789*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.29712342609582", ",", "0``57.21183162885883"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.322380638788447215493388032663705525810683487185444138255935837`43.\
+54652464239789*^-14, 0``58.69897000433602, 0``57.29712342609582, 
+    0``57.21183162885883}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733509359993*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d157ffdf-8c3a-491e-9e42-297789b46629"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733509367646*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6fd986dc-3a95-4fdb-9d47-d34ceb6027cb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "252.2589468307236018063`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "376996.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "62101.1918531970791676563`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "62101.1918531970791676563`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "154886.9933540642915090757`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "154886.9933540642915090757`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "88230.3704145227616817207`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "614.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "297.035974950043318287`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04256434176114867803097738376020375002`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "235.151164157554727661`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "259.2720835182056111333`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733509375051*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"358d5906-4a54-43a0-9340-f3b93a420150"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "295.31737012987014`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 295.31737012987014`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335191358557`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2566fc8b-dced-46f2-afdf-96313f090f09"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"308.`", ",", "0.`", ",", "0.`", ",", "308.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"308.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "308.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"253.25939743459458`", ",", "0.`", ",", 
+            RowBox[{"-", "253.25939743459458`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"236.15071355368374`", ",", 
+            RowBox[{"-", "10.`"}], ",", "235.9388893589058`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {308., 0., 0., 308.}, $CellContext`p2 -> {
+      308., 0., 0., -308.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {253.25939743459458`, 
+      0., -253.25939743459458`, 0.}, $CellContext`p5 -> {
+      236.15071355368374`, -10., 235.9388893589058, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733519146161*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"21bd3c26-6d56-4b62-8d2d-9b152c8d90e3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.804698554080388622151611561878520709424495991953092217083066086`\
+43.5910554374735*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.295404435088436", ",", "0``57.21041928783557"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.804698554080388622151611561878520709424495991953092217083066086`43.\
+5910554374735*^-14, 0``58.69897000433602, 0``57.295404435088436, 
+    0``57.21041928783557}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733519154169*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d62591f7-e888-44e5-add4-7026464966e7"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733519161942*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc6502ce-ebdd-4714-9f16-856482140573"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "253.2593974345945753157`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "379456.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "62354.371631220522422274`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "62354.371631220522422274`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "156007.7888197102583944798`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "156007.7888197102583944798`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "88518.3209018615843261674`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "616.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "297.5202865383494892788`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04238385637557269340005996031508561367`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "236.1507135536837493284`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "259.6929386036121089853`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335191699657`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ce9edb65-6d61-428b-897d-cbae4ca0857e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "296.3584142394822`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 296.3584142394822}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733528932687*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"005055a6-b10f-42d1-a1b0-4781e901e59f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"309.`", ",", "0.`", ",", "0.`", ",", "309.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"309.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "309.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"254.25984423661993`", ",", "0.`", ",", 
+            RowBox[{"-", "254.25984423661993`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"237.1502667516584`", ",", 
+            RowBox[{"-", "10.`"}], ",", "236.93933616093116`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {309., 0., 0., 309.}, $CellContext`p2 -> {
+      309., 0., 0., -309.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {254.25984423661993`, 
+      0., -254.25984423661993`, 0.}, $CellContext`p5 -> {
+      237.1502667516584, -10., 236.93933616093116`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335289412403`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dd630cf4-b36c-4a71-a6df-a26d4c1358da"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.239968552586738920010172035351064656750267939017222864390690555`\
+43.53534416473411*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.293692227736805", ",", "0``57.20901152491119"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.239968552586738920010172035351064656750267939017222864390690555`43.\
+53534416473411*^-14, 0``58.69897000433602, 0``57.293692227736805, 
+    0``57.20901152491119}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733528949244*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7f0a8ff2-6810-424c-83cd-75f98ea9cc01"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335289570427`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1bb6d07d-53a6-41f4-8554-69c99280a47c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "254.2598442366199265052`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "381924.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "62607.5514092439656768918`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "62607.5514092439656768918`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "157132.5837382311145802305`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "157132.5837382311145802305`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "88806.2702949501806244381`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "618.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "298.0038091953694819825`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04220489582703953145312620369552049273`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "237.1502667516584037862`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "260.1131148626261405076`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733528965127*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3a1e0cd-b21c-4715-abbc-bf7aaa7e8aa5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "297.3991935483871`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 297.3991935483871}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335388615637`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1c6f94dd-6bc3-43ba-8237-8c314f071222"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"310.`", ",", "0.`", ",", "0.`", ",", "310.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"310.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "310.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"255.26028728471306`", ",", "0.`", ",", 
+            RowBox[{"-", "255.26028728471306`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"238.1498237035653`", ",", 
+            RowBox[{"-", "10.`"}], ",", "237.9397792090243`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {310., 0., 0., 310.}, $CellContext`p2 -> {
+      310., 0., 0., -310.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {255.26028728471306`, 
+      0., -255.26028728471306`, 0.}, $CellContext`p5 -> {
+      238.1498237035653, -10., 237.9397792090243, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733538870241*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2db62df7-b8a8-4e57-a670-1f20e100d2c4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.941418606505987424554359614490273289157422116169032899659559197`\
+43.37513515014345*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.29198675065462", ",", "0``57.20760831050175"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.941418606505987424554359614490273289157422116169032899659559197`43.\
+37513515014345*^-14, 0``58.69897000433602, 0``57.29198675065462, 
+    0``57.20760831050175}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733538878319*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3a7ffdfc-2ce9-45f5-a8c3-55a177c2300a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733538886157*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"16ced7b9-e08d-4161-bbd3-365f9b919596"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "255.2602872847130583978`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "384400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "62860.7311872674089315096`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "62860.7311872674089315096`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "158261.3781165220962066087`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "158261.3781165220962066087`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "89094.218607579024286203`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "620.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "298.4865467782074500614`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04202744086441823669802720318908186057`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "238.1498237035652848792`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "260.5326155531314396544`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733538895639*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f82ffb5c-ba0b-4d40-a6b3-5252ca5d9f5f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "298.4397106109325`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 298.4397106109325}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733548735098*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d144a476-0e5d-4ab4-ab3f-2f87b57462e9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"311.`", ",", "0.`", ",", "0.`", ",", "311.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"311.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "311.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"256.2607266259856`", ",", "0.`", ",", 
+            RowBox[{"-", "256.2607266259856`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"239.14938436229272`", ",", 
+            RowBox[{"-", "10.`"}], ",", "238.94021855029686`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {311., 0., 0., 311.}, $CellContext`p2 -> {
+      311., 0., 0., -311.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {256.2607266259856, 
+      0., -256.2607266259856, 0.}, $CellContext`p5 -> {
+      239.14938436229272`, -10., 238.94021855029686`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733548743251*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"45e17c0d-e58a-4f76-8fd3-8bed52584317"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.283695000986334389589331296861354239985622425573232130981427194`\
+43.013641469606064*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.29028795108402", ",", "0``57.206209615309184"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.283695000986334389589331296861354239985622425573232130981427194`43.\
+013641469606064*^-14, 0``58.69897000433602, 0``57.29028795108402, 
+    0``57.206209615309184}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733548751148*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d46ae3fa-e25c-47b1-94c8-4849b673bb60"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733548758911*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"013f2998-43a3-42f5-b87d-720c613510f4"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "256.2607266259856260149`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "386884.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "63113.9109652908521861273`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "63113.9109652908521861273`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "159394.1719613630593812559`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "159394.1719613630593812559`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "89382.1658533078292746639`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "622.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "298.9685031124647238542`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04185147255942181468086999051518660551`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "239.1493843622927338393`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "260.9514439072408578796`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733548766865*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bcf9af9f-d1ba-4730-87f6-37b4e4e9f559"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "299.47996794871796`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 299.47996794871796`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733558621194*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f019970b-9a35-4321-bab4-e39c4f7dcf74"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"312.`", ",", "0.`", ",", "0.`", ",", "312.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"312.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "312.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"257.2611623067642`", ",", "0.`", ",", 
+            RowBox[{"-", "257.2611623067642`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"240.14894868151413`", ",", 
+            RowBox[{"-", "10.`"}], ",", "239.94065423107546`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {312., 0., 0., 312.}, $CellContext`p2 -> {
+      312., 0., 0., -312.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {257.2611623067642, 
+      0., -257.2611623067642, 0.}, $CellContext`p5 -> {
+      240.14894868151413`, -10., 239.94065423107546`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733558630015*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"666e252f-ac25-4802-8175-3c2e272b6055"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.984659058167150389999359511668437816491916087187621739616546819`\
+43.37868014287831*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.288595776885764", ",", "0``57.20481541031757"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.984659058167150389999359511668437816491916087187621739616546819`43.\
+37868014287831*^-14, 0``58.69897000433602, 0``57.288595776885764, 
+    0``57.20481541031757}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335586379538`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"78193e13-e3da-4bc7-b386-0e99203c1f42"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335586452312`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"703fa41a-11fd-4f5c-986d-8a017545d487"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "257.2611623067642199203`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "389376.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "63367.0907433142954407451`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "63367.0907433142954407451`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "160530.965279420873230265`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "160530.965279420873230265`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "89670.112045470351677275`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "624.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "299.4496819926018082685`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04167697229986492825357695205018855474`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "240.1489486815141229242`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "261.3696031315773177923`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733558652781*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7b5ce632-8e55-4d75-88e2-a88822e63942"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "300.5199680511182`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 300.5199680511182}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733568415571*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"888b8ce2-f2a8-4260-b9d4-0e3e824351bb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"313.`", ",", "0.`", ",", "0.`", ",", "313.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"313.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "313.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"258.26159437260674`", ",", "0.`", ",", 
+            RowBox[{"-", "258.26159437260674`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"241.14851661567167`", ",", 
+            RowBox[{"-", "10.`"}], ",", "240.94108629691797`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {313., 0., 0., 313.}, $CellContext`p2 -> {
+      313., 0., 0., -313.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {258.26159437260674`, 
+      0., -258.26159437260674`, 0.}, $CellContext`p5 -> {
+      241.14851661567167`, -10., 240.94108629691797`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335684244537`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"68ae0339-aa1a-4eb9-9b6d-793334ac22f7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "2.213990856421142141340345073302013714070523045295952611563006085`43.\
+247571494075686*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.286910176529595", ",", "0``57.20342566678957"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   2.213990856421142141340345073302013714070523045295952611563006085`43.\
+247571494075686*^-14, 0``58.69897000433602, 0``57.286910176529595, 
+    0``57.20342566678957}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733568432569*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"54858d56-4102-4805-b436-ecb29bb6c2e1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335684400167`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"57b149a6-fc8d-49d3-bed8-06f35cb94093"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "258.2615943726067371244`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "391876.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "63620.2705213377386953629`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "63620.2705213377386953629`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "161671.7580772518174399011`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "161671.7580772518174399011`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "89958.0571971791015925157`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "626.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "299.9300871822950369085`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04150392178308991285238282016367928742`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "241.1485166156716577066`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "261.7870964075509612542`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335684474897`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cd9ed5f0-5dd8-4cf6-9b5a-0f841d474c2e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "301.5597133757962`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 301.5597133757962}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335782525682`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"079d8c88-392f-4e9b-ae49-b7360f5fe650"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"314.`", ",", "0.`", ",", "0.`", ",", "314.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"314.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "314.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"259.26202286831807`", ",", "0.`", ",", 
+            RowBox[{"-", "259.26202286831807`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"242.1480881199603`", ",", 
+            RowBox[{"-", "10.`"}], ",", "241.9415147926293`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {314., 0., 0., 314.}, $CellContext`p2 -> {
+      314., 0., 0., -314.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {259.26202286831807`, 
+      0., -259.26202286831807`, 0.}, $CellContext`p5 -> {
+      242.1480881199603, -10., 241.9415147926293, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733578261668*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"082d67e2-3b47-49f2-8cfd-95a91c8cf65c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.99518312186622079163915281322353399491814013856702277719419412`42.\
+20099312286031*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.28523109908479", ",", "0``57.202040356262806"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.99518312186622079163915281322353399491814013856702277719419412`42.\
+20099312286031*^-15, 0``58.69897000433602, 0``57.28523109908479, 
+    0``57.202040356262806}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733578269803*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5e6bedab-0a8f-4f06-8159-345d82da7a39"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973357827737*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d1a9085b-e697-4d00-a1f6-18841d84c030"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "259.2620228683180698681`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "394384.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "63873.4502993611819499807`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "63873.4502993611819499807`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "162816.550361303747877173`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "162816.550361303747877173`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "90246.0013213298586880478`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "628.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "300.409722414787798572`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04133230300955629187688921667381223918`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "242.1480881199603048182`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "262.2039268916323947835`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733578284951*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5ba52e86-ad61-4fee-bfb6-09489b2824e5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "302.5992063492063`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 302.5992063492063}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733588111306*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4b876983-6675-4140-a5af-0dd35c0d5769"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", "315.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "315.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"260.26244783796585`", ",", "0.`", ",", 
+            RowBox[{"-", "260.26244783796585`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"243.14766315031255`", ",", 
+            RowBox[{"-", "10.`"}], ",", "242.9419397622771`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {315., 0., 0., 315.}, $CellContext`p2 -> {
+      315., 0., 0., -315.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {260.26244783796585`, 
+      0., -260.26244783796585`, 0.}, $CellContext`p5 -> {
+      243.14766315031255`, -10., 242.9419397622771, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733588119892*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0e2c208c-ba55-4ecd-8482-2ee47ecdfef4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "3.87911027084614351155413775063410171489292250963116797709759106`43.\
+488361580277626*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.28355849421085", ",", "0``57.20065945054642"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   3.87911027084614351155413775063410171489292250963116797709759106`43.\
+488361580277626*^-14, 0``58.69897000433602, 0``57.28355849421085, 
+    0``57.20065945054642}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797335881279984`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9517163a-a6a4-4048-8d91-9707efba6e6e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733588135532*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc6b4dda-392d-41a5-8c48-9f6c27faca94"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "260.2624478379658512495`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "396900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "64126.6300773846252045984`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "64126.6300773846252045984`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "163965.3421379184862871625`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "163965.3421379184862871625`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "90533.94443060620411959`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "630.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "300.8885913932367827216`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04116209827658894246513868195832337417`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "243.1476631503125602328`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "262.6200977156223969383`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733588143231*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"844cec0f-7922-4d14-95a1-64582d4f21a7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "303.6384493670886`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 303.6384493670886}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733597892137*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"0e48878e-1089-473e-9b90-47cb060fd578"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"316.`", ",", "0.`", ",", "0.`", ",", "316.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"316.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "316.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"261.2628693248953`", ",", "0.`", ",", 
+            RowBox[{"-", "261.2628693248953`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"244.14724166338306`", ",", 
+            RowBox[{"-", "10.`"}], ",", "243.94236124920653`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {316., 0., 0., 316.}, $CellContext`p2 -> {
+      316., 0., 0., -316.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {261.2628693248953, 
+      0., -261.2628693248953, 0.}, $CellContext`p5 -> {
+      244.14724166338306`, -10., 243.94236124920653`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733597900485*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"070111c8-be63-402f-9077-b20b8b3f349b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.123383933362913216909658278190118136430867675270975653149285634`\
+42.94878113435846*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.28189231214846", ",", "0``57.19928292171762"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.123383933362913216909658278190118136430867675270975653149285634`42.\
+94878113435846*^-14, 0``58.69897000433602, 0``57.28189231214846, 
+    0``57.19928292171762}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733597908125*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1ceded92-be83-491e-9d4e-c620f9f74a86"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733597915505*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86f8e2d4-ad75-4afe-8a13-7325cb94c5e5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "261.2628693248952913564`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "399424.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "64379.8098554080684592162`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "64379.8098554080684592162`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "165118.1334133338241372257`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "165118.1334133338241372257`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "90821.8865374837906783057`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "632.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "301.3666977910528698075`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04099329017228051210646546116858209019`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "244.1472416633830701009`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "263.0356119869177398606`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733597923959*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"75f5bf9c-dfc5-4225-8c66-43fb45dfd7e4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "304.6774447949527`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 304.6774447949527}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733607772291*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"56e27c9f-f5a3-4c34-938c-80376891fb36"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"317.`", ",", "0.`", ",", "0.`", ",", "317.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"317.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "317.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"262.2632873717442`", ",", "0.`", ",", 
+            RowBox[{"-", "262.2632873717442`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"245.14682361653416`", ",", 
+            RowBox[{"-", "10.`"}], ",", "244.94277929605542`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {317., 0., 0., 317.}, $CellContext`p2 -> {
+      317., 0., 0., -317.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {262.2632873717442, 
+      0., -262.2632873717442, 0.}, $CellContext`p5 -> {
+      245.14682361653416`, -10., 244.94277929605542`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336077806263`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fe03426d-4e91-46d2-9bcd-07f60026537f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.727089300192598387699834541244034944335955877921243029212666524`\
+43.33258010586489*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.28023250371049", ",", "0``57.197910742118275"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.727089300192598387699834541244034944335955877921243029212666524`43.\
+33258010586489*^-14, 0``58.69897000433602, 0``57.28023250371049, 
+    0``57.197910742118275}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336077886057`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7beb0339-a572-4ea8-bfc2-784459641eae"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733607796219*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4e9c85c6-133b-43db-bed3-0c71abb2d1cd"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "262.263287371744183929`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "401956.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "64632.989633431511713834`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "64632.989633431511713834`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "166274.9241936858126109655`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "166274.9241936858126109655`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "91109.8276542346620203446`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "634.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "301.8440452522372719937`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04082586156954348416965244898430940954`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "245.1468236165341614912`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "263.4504727887736293004`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733607803776*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ed1ef3c3-ed32-48cc-a0ab-35158041801c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "305.71619496855345`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 305.71619496855345`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733617830518*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"211eea56-cdb0-4e1f-8ba6-a469b4ae568c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"318.`", ",", "0.`", ",", "0.`", ",", "318.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"318.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "318.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"263.2637020204571`", ",", "0.`", ",", 
+            RowBox[{"-", "263.2637020204571`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"246.1464089678213`", ",", 
+            RowBox[{"-", "10.`"}], ",", "245.94319394476835`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {318., 0., 0., 318.}, $CellContext`p2 -> {
+      318., 0., 0., -318.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {263.2637020204571, 
+      0., -263.2637020204571, 0.}, $CellContext`p5 -> {
+      246.1464089678213, -10., 245.94319394476835`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733617838853*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2787b179-52da-489f-b5d4-3980786ca18e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "4.100664524018673890116524373651128341143115349010614613156686762`43.\
+50836712973148*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.278579020273305", ",", "0``57.19654288435159"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   4.100664524018673890116524373651128341143115349010614613156686762`43.\
+50836712973148*^-14, 0``58.69897000433602, 0``57.278579020273305, 
+    0``57.19654288435159}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733617846867*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1e3c378c-bf56-462d-979b-f38991df515a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733617855225*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2d525daa-683b-4483-b9ae-90d1edbdf47d"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "263.2637020204571172144`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "404496.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "64886.1694114549549684518`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "64886.1694114549549684518`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "167435.714485010726548353`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "167435.714485010726548353`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "91397.7677929313428463325`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "636.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "302.3206373917125473854`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04065979562030778470487906889339743175`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "246.1464089678212964833`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "263.8646831805624143342`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973361786381*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"975a93bb-18ea-4ec5-acb2-727aa54c402c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "306.7547021943574`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 306.7547021943574}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336277076*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6a17c120-4862-4f44-9a21-878d8b867007"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"319.`", ",", "0.`", ",", "0.`", ",", "319.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"319.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "319.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"264.26411331229946`", ",", "0.`", ",", 
+            RowBox[{"-", "264.26411331229946`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"247.145997675979`", ",", 
+            RowBox[{"-", "10.`"}], ",", "246.9436052366107`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {319., 0., 0., 319.}, $CellContext`p2 -> {
+      319., 0., 0., -319.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {264.26411331229946`, 
+      0., -264.26411331229946`, 0.}, $CellContext`p5 -> {
+      247.145997675979, -10., 246.9436052366107, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336277162123`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"10f0ae7b-c41a-4485-90e3-a2ebd157ca07"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "8.195874397777904892144384527234449221630939391588915968468837872`43.\
+80774461980839*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.27693181376818", ",", "0``57.195179321278836"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   8.195874397777904892144384527234449221630939391588915968468837872`43.\
+80774461980839*^-14, 0``58.69897000433602, 0``57.27693181376818, 
+    0``57.195179321278836}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733627724455*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7c447ce8-fab2-4203-a1c9-d9c33d6e0625"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973362773239*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12bc8635-8fc6-4d0d-b6ea-43bd0c3533b0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "264.2641133122994574478`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "407044.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "65139.3491894783982230695`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "65139.3491894783982230695`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "168600.5042932470538517009`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "168600.5042932470538517009`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "91685.7069654508636379898`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "638.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "302.7964777956488443637`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04049507574985969937321858093576319705`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "247.145997675978997202`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "264.2782461980288561459`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336277404833`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eee7c6ce-1dba-4010-a10d-84fc58e8a5af"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "307.79296875`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 307.79296875}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733637578705*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d9daf9a1-3351-4137-8bfd-2cc651a3e148"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"320.`", ",", "0.`", ",", "0.`", ",", "320.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"320.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "320.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"265.26452128787116`", ",", "0.`", ",", 
+            RowBox[{"-", "265.26452128787116`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"248.14558970040727`", ",", 
+            RowBox[{"-", "10.`"}], ",", "247.9440132121824`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {320., 0., 0., 320.}, $CellContext`p2 -> {
+      320., 0., 0., -320.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {265.26452128787116`, 
+      0., -265.26452128787116`, 0.}, $CellContext`p5 -> {
+      248.14558970040727`, -10., 247.9440132121824, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733637587516*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2f0a2d06-f47b-499a-9e39-705494fd91c1"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "6.800618502789848346561442236283038024362637429118554138356545502`43.\
+72533844307799*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.27529083667283", ",", "0``57.19382002601611"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   6.800618502789848346561442236283038024362637429118554138356545502`43.\
+72533844307799*^-14, 0``58.69897000433602, 0``57.27529083667283, 
+    0``57.19382002601611}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336375953836`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"671e9ea8-a53a-4c43-b39c-ecdea3e7c278"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336376030693`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"447bd565-b60e-42ec-98c1-f7124fa02638"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "265.2645212878711618032`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "409600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "65392.5289675018414776873`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "65392.5289675018414776873`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "169769.2936242375435540453`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "169769.2936242375435540453`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "91973.6451834787363125954`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "640.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "303.271570021785484726`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04033168565131809248982859913067384946`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "248.1455897004072788941`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "264.6911648535420304624`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733637610836*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eabca750-4116-4286-b457-b11f19522dda"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "308.8309968847352`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 308.8309968847352}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733647540492*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"02accbbc-6b3b-4093-a09c-f10d8cab66cf"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"321.`", ",", "0.`", ",", "0.`", ",", "321.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"321.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "321.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"266.2649259871201`", ",", "0.`", ",", 
+            RowBox[{"-", "266.2649259871201`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"249.14518500115824`", ",", 
+            RowBox[{"-", "10.`"}], ",", "248.94441791143132`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {321., 0., 0., 321.}, $CellContext`p2 -> {
+      321., 0., 0., -321.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {266.2649259871201, 
+      0., -266.2649259871201, 0.}, $CellContext`p5 -> {
+      249.14518500115824`, -10., 248.94441791143132`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733647549344*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"143785b6-3b6c-4948-b35c-e352771348c5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.173720683366564499937431423966412317020410612654048907935624575`\
+43.68198195314361*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.2736560420032", ",", "0``57.192464971931145"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.173720683366564499937431423966412317020410612654048907935624575`43.\
+68198195314361*^-14, 0``58.69897000433602, 0``57.2736560420032, 
+    0``57.192464971931145}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733647557542*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f282a84e-29d9-482d-976c-5599b29e6740"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733647565571*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"97014005-47ca-4299-afe7-92c5307bef9f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "266.2649259871200797534`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "412164.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "65645.7087455252847323051`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "65645.7087455252847323051`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "170942.0824837310912016619`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "170942.0824837310912016619`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "92261.5824585127826309896`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "642.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "303.7459175997478038055`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0401696092802441137667084586093516703`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "249.1451850011582312005`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "265.1034421363437732816`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336475736723`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8c815745-c4c3-4742-8eee-87806e2382e8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "309.86878881987576`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 309.86878881987576`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336574056673`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8df7b742-4bd8-4f80-b79d-24073ce5e467"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"322.`", ",", "0.`", ",", "0.`", ",", "322.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"322.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "322.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"267.26532744935525`", ",", "0.`", ",", 
+            RowBox[{"-", "267.26532744935525`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"250.14478353892324`", ",", 
+            RowBox[{"-", "10.`"}], ",", "249.9448193736665`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {322., 0., 0., 322.}, $CellContext`p2 -> {
+      322., 0., 0., -322.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {267.26532744935525`, 
+      0., -267.26532744935525`, 0.}, $CellContext`p5 -> {
+      250.14478353892324`, -10., 249.9448193736665, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733657414857*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"da42c461-08a8-4d15-94e8-cb5d5a2d8e6c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.2207745270711974286207649252969611667148801746738187591131531204`43.\
+97671959560484*^-13", ",", "0``58.69897000433602", ",", 
+     "0``57.27202738330535", ",", "0``57.191114132640195"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.2207745270711974286207649252969611667148801746738187591131531204`43.\
+97671959560484*^-13, 0``58.69897000433602, 0``57.27202738330535, 
+    0``57.191114132640195}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733657423142*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"034b989b-b754-49c1-be9b-74d2133f8795"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733657431241*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"161a45c3-e293-4eb8-b650-ab73b69d06ac"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "267.26532744935525443`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "414736.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "65898.8885235487279869228`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "65898.8885235487279869228`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "172118.8708773847838529036`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "172118.8708773847838529036`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "92549.518801866962605577`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "644.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "304.2195240313595694874`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.04000883084938056246645124649990168201`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "250.1447835389232403386`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "265.5150810127939310454`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733657439663*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"430e7735-c4b9-4ec9-8027-defd655bcf4c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "310.90634674922603`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 310.90634674922603`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733667306675*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12170ffc-cc22-4da7-a489-80b8ef5afd18"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"323.`", ",", "0.`", ",", "0.`", ",", "323.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"323.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "323.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"268.2657257132589`", ",", "0.`", ",", 
+            RowBox[{"-", "268.2657257132589`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"251.14438527501952`", ",", 
+            RowBox[{"-", "10.`"}], ",", "250.94521763757015`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {323., 0., 0., 323.}, $CellContext`p2 -> {
+      323., 0., 0., -323.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {268.2657257132589, 
+      0., -268.2657257132589, 0.}, $CellContext`p5 -> {
+      251.14438527501952`, -10., 250.94521763757015`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733667315646*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"84230d1d-c925-4f00-a1ce-df16a4940769"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "7.18689073585180494856297840538899287161302070578380247709567061`43.\
+74527852855717*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.27040481464747", ",", "0``57.18976748200492"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   7.18689073585180494856297840538899287161302070578380247709567061`43.\
+74527852855717*^-14, 0``58.69897000433602, 0``57.27040481464747, 
+    0``57.18976748200492}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733667323915*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8d50e6fb-7212-47ef-b215-2a10722f4775"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336673320312`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9479bd30-2f6a-453f-8e90-e16a651bb9cb"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "268.2657257132589165849`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "417316.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "66152.0683015721712415407`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "66152.0683015721712415407`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "173299.6588107652601138398`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "173299.6588107652601138398`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "92837.4542246748266118156`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "646.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "304.6923927909504382804`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03984933482351749255387591225366552977`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "251.1443852750195279751`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "265.9260844266119262769`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336673400173`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b2e1e88d-3c22-45ab-ac38-fc0d9d8925a2"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "311.9436728395062`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 311.9436728395062}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336771836033`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"69771414-255b-4f92-b58b-99c12fc8d405"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"324.`", ",", "0.`", ",", "0.`", ",", "324.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"324.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "324.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"269.2661208168998`", ",", "0.`", ",", 
+            RowBox[{"-", "269.2661208168998`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"252.1439901713786`", ",", 
+            RowBox[{"-", "10.`"}], ",", "251.94561274121102`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {324., 0., 0., 324.}, $CellContext`p2 -> {
+      324., 0., 0., -324.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {269.2661208168998, 
+      0., -269.2661208168998, 0.}, $CellContext`p5 -> {
+      252.1439901713786, -10., 251.94561274121102`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733677192494*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b840514b-d967-49b4-8471-03bf90cac273"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.544274557894257887399793257164287310505674127229278139199397387`43.\
+076119514917224*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.26878829061209", ",", "0``57.188424994129406"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.544274557894257887399793257164287310505674127229278139199397387`43.\
+076119514917224*^-14, 0``58.69897000433602, 0``57.26878829061209, 
+    0``57.188424994129406}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336772001143`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"39b42f95-85f2-4c4c-9846-b119fc26aa8f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733677207621*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"8df17835-6027-4400-8391-0da074c16ebc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "269.2661208168997859502`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "419904.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "66405.2480795956144961584`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "66405.2480795956144961584`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "174484.4462893510612957471`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "174484.4462893510612957471`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "93125.3887378933437962199`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "648.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "305.1645273256597623651`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03969110591448012667688141170402369397`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "252.1439901713786021836`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "266.3364552991157632109`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733677215273*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2efe50d7-1c71-487b-8adb-798b8758182c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "312.9807692307692`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 312.9807692307692}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336870106583`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af993af8-135c-418a-b4d6-99ba40452f64"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", "325.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "325.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"270.2665127977447`", ",", "0.`", ",", 
+            RowBox[{"-", "270.2665127977447`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"253.14359819053365`", ",", 
+            RowBox[{"-", "10.`"}], ",", "252.94600472205596`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {325., 0., 0., 325.}, $CellContext`p2 -> {
+      325., 0., 0., -325.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {270.2665127977447, 
+      0., -270.2665127977447, 0.}, $CellContext`p5 -> {
+      253.14359819053365`, -10., 252.94600472205596`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797336870199537`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"68b1632a-6b36-4a70-b468-0ac066022918"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "1.69658764672265044036637304177327771025001065320730677867617446`42.\
+11563294816399*^-15", ",", "0``58.69897000433602", ",", 
+     "0``57.26717776628844", ",", "0``57.18708664335715"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   1.69658764672265044036637304177327771025001065320730677867617446`42.\
+11563294816399*^-15, 0``58.69897000433602, 0``57.26717776628844, 
+    0``57.18708664335715}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733687028339*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e869b57e-b883-4a7c-b3f2-8c83050277dd"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733687036319*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"23e6fa1a-2d8e-49e1-83cf-fec8070aad87"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "270.2665127977447241392`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "422500.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "66658.4278576190577507762`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "66658.4278576190577507762`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "175673.2333185340706904753`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "175673.2333185340706904753`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "93413.3223523062560235424`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "650.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "305.6359310557354217303`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03953412907623615522639296572227960108`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "253.1435981905336502485`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "266.746196529457304102`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733687044011*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"03036ac2-fa1a-4857-910e-eaac30cf1da6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "314.01763803680984`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 314.01763803680984`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733697025063*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2c005ea8-3d17-429b-9839-885eeee0a432"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"326.`", ",", "0.`", ",", "0.`", ",", "326.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"326.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "326.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"271.2669016926706`", ",", "0.`", ",", 
+            RowBox[{"-", "271.2669016926706`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"254.14320929560773`", ",", 
+            RowBox[{"-", "10.`"}], ",", "253.94639361698185`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {326., 0., 0., 326.}, $CellContext`p2 -> {
+      326., 0., 0., -326.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {271.2669016926706, 
+      0., -271.2669016926706, 0.}, $CellContext`p5 -> {
+      254.14320929560773`, -10., 253.94639361698185`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733697033656*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6f167375-cbcc-4e58-acb5-77fa019c6b4d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.63621445467785844788730508698374750308732876661854158902195883`\
+43.3057031455939*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.265573197264935", ",", "0``57.18575240426808"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.63621445467785844788730508698374750308732876661854158902195883`43.\
+3057031455939*^-14, 0``58.69897000433602, 0``57.265573197264935, 
+    0``57.18575240426808}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733697041292*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"78a5adf9-6281-4880-b656-461440aac844"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733697048644*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"86dac073-9051-4dad-8385-7ea49df37f7a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "271.2669016926706149206`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "425104.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "66911.6076356425010053939`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "66911.6076356425010053939`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "176866.0199036212409282598`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "176866.0199036212409282598`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "93701.2550785274972668275`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "652.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "306.1066073748286428302`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03937838950011882512463706379025851934`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "254.1432092956077314083`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "267.155310994854635455`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973369705619*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b7e1ee99-b2d6-44f4-b8da-b09044d602d4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "315.05428134556576`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 315.05428134556576`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733706891165*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"47c641a3-683d-4955-a8cf-044f4d41dc83"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"327.`", ",", "0.`", ",", "0.`", ",", "327.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"327.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "327.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"272.2672875379761`", ",", "0.`", ",", 
+            RowBox[{"-", "272.2672875379761`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"255.14282345030236`", ",", 
+            RowBox[{"-", "10.`"}], ",", "254.9467794622873`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {327., 0., 0., 327.}, $CellContext`p2 -> {
+      327., 0., 0., -327.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {272.2672875379761, 
+      0., -272.2672875379761, 0.}, $CellContext`p5 -> {
+      255.14282345030236`, -10., 254.9467794622873, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973370689996*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c0a1d791-60d1-4d38-b766-8d7959de2157"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.751443807177344382895073251003027529863858422031423411374318589`43.\
+64316913701089*^-14", ",", "0``58.69897000433602", ",", 
+     "0``57.26397453962176", ",", "0``57.184422251675734"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", {
+   5.751443807177344382895073251003027529863858422031423411374318589`43.\
+64316913701089*^-14, 0``58.69897000433602, 0``57.26397453962176, 
+    0``57.184422251675734}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733706908043*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c6f26a21-09cb-4f39-93f5-6a2c513df48e"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733706915757*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ea273d13-d4e2-41a2-9166-c2de55202db5"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "272.2672875379760739634`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "427716.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "67164.7874136659442600117`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "67164.7874136659442600117`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "178062.80604983635237204`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "178062.80604983635237204`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "93989.1869270045639153112`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "654.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "306.5765596502846854845`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03922387261016269515285104459156008408`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "255.1428234503023562422`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "267.5638015508214055137`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733706923443*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e4911070-e877-4c1f-bb95-5e434e096c50"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "316.0907012195122`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 316.0907012195122}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733716691966*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1b21a76c-2833-4ca9-b399-5475dd51085f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"328.`", ",", "0.`", ",", "0.`", ",", "328.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"328.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "328.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"273.2676703693924`", ",", "0.`", ",", 
+            RowBox[{"-", "273.2676703693924`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"256.14244061888587`", ",", 
+            RowBox[{"-", "10.`"}], ",", "255.94716229370366`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {328., 0., 0., 328.}, $CellContext`p2 -> {
+      328., 0., 0., -328.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {273.2676703693924, 
+      0., -273.2676703693924, 0.}, $CellContext`p5 -> {
+      256.14244061888587`, -10., 255.94716229370366`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733716699943*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1b0b0a63-cc9c-416c-a168-4cab2dec970e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.360125627907647640368107933061229761192142251981215279611011536`\
+43.80427896860717*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.26238174992362", ",", "0``57.183096160624345"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.360125627907647640368107933061229761192142251981215279611011536`43.\
+80427896860717*^-14, 0``58.69897000433602, 0``57.26238174992362, 
+    0``57.183096160624345}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337167076187`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d50df4ff-007c-4730-b64c-6299281676a1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733716715145*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d9662a26-b9a3-4b2a-90e7-df563a69652e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "273.2676703693924196159`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "430336.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "67417.9671916893875146295`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "67417.9671916893875146295`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "179263.5917623214272680343`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "179263.5917623214272680343`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "94277.1179080216723929873`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "656.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "307.0457912234292007329`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03907056405854905653587566621463211805`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "256.1424406188858694739`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "267.9716710313929461393`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733716722762*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9a4f4542-63ee-4676-9ca1-220a4d4cb369"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "317.1268996960486`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 317.1268996960486}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337265470257`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"152d5d68-fb01-4ab3-8268-02fc8845ec8e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"329.`", ",", "0.`", ",", "0.`", ",", "329.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"329.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "329.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"274.2680502220953`", ",", "0.`", ",", 
+            RowBox[{"-", "274.2680502220953`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"257.142060766183`", ",", 
+            RowBox[{"-", "10.`"}], ",", "256.94754214640653`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {329., 0., 0., 329.}, $CellContext`p2 -> {
+      329., 0., 0., -329.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {274.2680502220953, 
+      0., -274.2680502220953, 0.}, $CellContext`p5 -> {257.142060766183, -10.,
+       256.94754214640653`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973372655584*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fb1e135f-be68-49f0-9b2d-c6cf6b294201"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.45355975775889222313284337971613880358274973195025868952900879`\
+42.61742418703157*^-15"}], ",", "0``58.69897000433602", ",", 
+     "0``57.26079478521273", ",", "0``57.181774106386044"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.45355975775889222313284337971613880358274973195025868952900879`42.\
+61742418703157*^-15, 0``58.69897000433602, 0``57.26079478521273, 
+    0``57.181774106386044}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733726564106*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"af9952ae-fc2d-4541-8819-d66a70bf38f9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733726571706*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c5598e87-4a34-4450-b2f9-9ce800554847"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "274.2680502220953258075`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "432964.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "67671.1469697128307692473`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "67671.1469697128307692473`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "180468.3770461387243813078`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "180468.3770461387243813078`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "94565.0480317031131057894`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "658.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "307.5143054098509952859`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03891844972115780711845013419727500689`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "257.1420607661830414301`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "268.3789222493498036142`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733726579405*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"61ae7cca-70d0-4e3f-8f82-c86514764640"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "318.1628787878788`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 318.1628787878788}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733736420735*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ffc110bc-cb04-4bdf-aad4-d6af8c8d74b8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"330.`", ",", "0.`", ",", "0.`", ",", "330.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"330.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "330.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"275.2684271307148`", ",", "0.`", ",", 
+            RowBox[{"-", "275.2684271307148`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"258.1416838575635`", ",", 
+            RowBox[{"-", "10.`"}], ",", "257.94791905502603`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {330., 0., 0., 330.}, $CellContext`p2 -> {
+      330., 0., 0., -330.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {275.2684271307148, 
+      0., -275.2684271307148, 0.}, $CellContext`p5 -> {
+      258.1416838575635, -10., 257.94791905502603`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973373642951*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e35134c-d3de-4ed4-be96-6cbb566a64ac"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.113954379481472526707182222703044844717883303158999294478928787`\
+43.20452167950763*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.259213603001704", ",", "0``57.18045606445813"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.113954379481472526707182222703044844717883303158999294478928787`43.\
+20452167950763*^-14, 0``58.69897000433602, 0``57.259213603001704, 
+    0``57.18045606445813}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733736437306*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"12c70c73-1ab2-4a79-9911-f5c6b03e5d3d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733736445354*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"41d9cd2f-9b2d-45c3-a568-5ac28b86ff4a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "275.2684271307148264896`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "435600.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "67924.3267477362740238651`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "67924.3267477362740238651`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "181677.1619062717854831135`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "181677.1619062717854831135`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "94852.9773080161299279519`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "660.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "307.9821054996801757009`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03876751569322323784786131435793154963`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "258.141683857563525062`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "268.7855579964377713472`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337364536467`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"84cab3d5-a050-431b-b4c4-e6ff65a9e8d5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "319.1986404833837`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 319.1986404833837}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733746335981*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c290c93c-f946-41d3-a7e2-7b8242798f5b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"331.`", ",", "0.`", ",", "0.`", ",", "331.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"331.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "331.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"276.2688011293464`", ",", "0.`", ",", 
+            RowBox[{"-", "276.2688011293464`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"259.1413098589319`", ",", 
+            RowBox[{"-", "10.`"}], ",", "258.9482930536576`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {331., 0., 0., 331.}, $CellContext`p2 -> {
+      331., 0., 0., -331.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {276.2688011293464, 
+      0., -276.2688011293464, 0.}, $CellContext`p5 -> {
+      259.1413098589319, -10., 258.9482930536576, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337463447*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"88f43237-67c4-4031-ac49-6e63269f8222"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.151717252381554087771008314367445034975654502707583301188278388`\
+43.78936112236916*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.2576381612668", ",", "0``57.1791420105603"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.151717252381554087771008314367445034975654502707583301188278388`43.\
+78936112236916*^-14, 0``58.69897000433602, 0``57.2576381612668, 
+    0``57.1791420105603}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733746352553*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3051ea11-b277-4ae2-9b72-ebd7be93e9a1"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337463600483`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"365d358f-582f-4322-b900-4d7daead3973"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "276.2688011293464001028`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "438244.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "68177.5065257597172784828`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "68177.5065257597172784828`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "182889.9463476273168680564`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "182889.9463476273168680564`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "95140.9057467741105420121`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "662.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "308.4491947578630177385`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03861774828509050361057643113978013109`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "259.1413098589318910711`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "269.1915810435855799936`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733746367745*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b7f3370d-d908-4c01-b7c2-d81c369a7047"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "320.234186746988`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 320.234186746988}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733756155291*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"3bb9b885-5013-45ba-af65-529033ca1a91"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"332.`", ",", "0.`", ",", "0.`", ",", "332.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"332.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "332.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"277.2691722515611`", ",", "0.`", ",", 
+            RowBox[{"-", "277.2691722515611`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"260.1409387367172`", ",", 
+            RowBox[{"-", "10.`"}], ",", "259.9486641758723`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {332., 0., 0., 332.}, $CellContext`p2 -> {
+      332., 0., 0., -332.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {277.2691722515611, 
+      0., -277.2691722515611, 0.}, $CellContext`p5 -> {
+      260.1409387367172, -10., 259.9486641758723, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733756164146*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cc48ec1b-8cfb-4e66-ac55-0f1bacb45bfe"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.0207488670717995234448155744898876378163301833021475561068013075`\
+43.88572083154026*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.25606841844113", ",", "0``57.17783192063199"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.0207488670717995234448155744898876378163301833021475561068013075`43.\
+88572083154026*^-13, 0``58.69897000433602, 0``57.25606841844113, 
+    0``57.17783192063199}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733756172449*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"945025c2-51d6-47e9-9da0-7986f7bb8a4a"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733756180586*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"986f7ff2-e4a3-4f48-aa44-9f08168794c7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "277.2691722515610877053`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "440896.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "68430.6863037831605331006`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "68430.6863037831605331006`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "184106.7303750365622363461`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "184106.7303750365622363461`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "95428.833357639498646607`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "664.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "308.9155764244326651669`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03846913401807036928276759275034451618`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "260.1409387367171829109`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "269.5969941411194528311`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733756188764*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"514b5a4d-d77c-4159-ad3e-467fc93da91b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "321.2695195195195`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 321.2695195195195}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733766049967*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"48d0e3ad-3bf2-42f9-a0bc-17041fa1a244"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"333.`", ",", "0.`", ",", "0.`", ",", "333.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"333.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "333.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"278.2695405304155`", ",", "0.`", ",", 
+            RowBox[{"-", "278.2695405304155`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"261.14057045786285`", ",", 
+            RowBox[{"-", "10.`"}], ",", "260.9490324547267`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {333., 0., 0., 333.}, $CellContext`p2 -> {
+      333., 0., 0., -333.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {278.2695405304155, 
+      0., -278.2695405304155, 0.}, $CellContext`p5 -> {
+      261.14057045786285`, -10., 260.9490324547267, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733766058247*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3d265e9-36e4-4c4c-883a-a27281f428f7"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "4.463320712858525724277223745480567858477977136046457490696849273`\
+43.525153869449774*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.25450433340811", ",", "0``57.1765257708297"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-4.463320712858525724277223745480567858477977136046457490696849273`43.\
+525153869449774*^-14, 0``58.69897000433602, 0``57.25450433340811, 
+    0``57.1765257708297}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733766066457*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bf3eaa59-5b2b-4944-aa96-47f74041beb3"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733766074141*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e923df4-141f-4ec7-a72f-9fb7b93b2c72"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "278.2695405304154974147`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "443556.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "68683.8660818066037877183`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "68683.8660818066037877183`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "185327.5139932567212781578`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "185327.5139932567212781578`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "95716.7601501266734428346`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "666.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "309.381253714776121118`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03832165962038946074422188284560682172`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "261.1405704578628306433`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "270.0018000189749157821`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733766082197*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2940de0a-2a74-43fe-b0d5-38566a6dbfcb"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "322.3046407185629`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 322.3046407185629}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733775935041*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5a73d8ba-eb39-431b-8609-e5d04cf8b9e5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"334.`", ",", "0.`", ",", "0.`", ",", "334.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"334.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "334.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"279.2699059984615`", ",", "0.`", ",", 
+            RowBox[{"-", "279.2699059984615`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"262.14020498981677`", ",", 
+            RowBox[{"-", "10.`"}], ",", "261.94939792277273`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {334., 0., 0., 334.}, $CellContext`p2 -> {
+      334., 0., 0., -334.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {279.2699059984615, 
+      0., -279.2699059984615, 0.}, $CellContext`p5 -> {
+      262.14020498981677`, -10., 261.94939792277273`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337759447613`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"58a12739-e20c-42d8-a334-2c048c7d8814"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.0743068313379001693149522324666403494678966343557029032564071457`\
+43.90532187920697*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.252945865494915", ",", "0``57.17522353752445"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.0743068313379001693149522324666403494678966343557029032564071457`43.\
+90532187920697*^-13, 0``58.69897000433602, 0``57.252945865494915, 
+    0``57.17522353752445}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733775952853*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"69af438a-d2b8-431d-bb80-8091589b1568"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733775960915*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f9d0c22b-0d6e-49c8-8598-32beb2201675"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "279.2699059984615246321`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "446224.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "68937.0458598300470423361`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "68937.0458598300470423361`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "186552.297206972298454275`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "186552.297206972298454275`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "96004.6861336047473170249`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "668.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "309.8462298198975138161`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03817531202323348840323570282770146119`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "262.1402049898167406283`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "270.4060013869058335334`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733775968832*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e06da46b-5e11-425b-abc4-1cfbc2a00b88"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "323.339552238806`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 323.339552238806}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337858706017`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1c2778aa-9840-45ac-a047-f1956196bd93"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", "335.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "335.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"280.2702686877563`", ",", "0.`", ",", 
+            RowBox[{"-", "280.2702686877563`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"263.13984230052205`", ",", 
+            RowBox[{"-", "10.`"}], ",", "262.9497606120675`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {335., 0., 0., 335.}, $CellContext`p2 -> {
+      335., 0., 0., -335.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {280.2702686877563, 
+      0., -280.2702686877563, 0.}, $CellContext`p5 -> {
+      263.13984230052205`, -10., 262.9497606120675, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733785880496*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bf0b5b79-67f6-40d5-a592-d15ef387afae"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.302139233114632455398968904176928958618017545291888417734071833`\
+42.987552625913786*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.25139297446617", ",", "0``57.17392519729917"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.302139233114632455398968904176928958618017545291888417734071833`42.\
+987552625913786*^-14, 0``58.69897000433602, 0``57.25139297446617, 
+    0``57.17392519729917}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733785888977*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"79e44ee8-2094-4029-b767-c45f6170f51b"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733785896943*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"13230a0d-12bd-4e26-9019-6d7383b2949c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "280.2702686877562996415`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "448900.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "69190.2256378534902969539`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "69190.2256378534902969539`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "187781.0800207967207597903`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "187781.0800207967207597903`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "96292.6113173004289663828`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "670.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "310.3105079066779346023`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03803007835688088857605646608645749361`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "263.1398423005220600282`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "270.8096009346909183743`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337859046507`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e4a359de-d3dd-4864-b305-3b626b1cd7f3"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "324.3742559523809`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 324.3742559523809}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797337957094603`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"67712731-36b5-4f45-9a76-0591a015f0e5"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"336.`", ",", "0.`", ",", "0.`", ",", "336.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"336.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "336.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"281.27062862987106`", ",", "0.`", ",", 
+            RowBox[{"-", "281.27062862987106`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"264.1394823584073`", ",", 
+            RowBox[{"-", "10.`"}], ",", "263.95012055418226`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {336., 0., 0., 336.}, $CellContext`p2 -> {
+      336., 0., 0., -336.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {281.27062862987106`, 
+      0., -281.27062862987106`, 0.}, $CellContext`p5 -> {
+      264.1394823584073, -10., 263.95012055418226`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733795718226*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"fc12d5d5-d3a0-49ed-804f-e2a2b6fb8060"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.969304032798756681574403610323158764924541929997781595554625495`\
+43.165913501546136*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24984562051762", ",", "0``57.172630726946174"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.969304032798756681574403610323158764924541929997781595554625495`43.\
+165913501546136*^-14, 0``58.69897000433602, 0``57.24984562051762, 
+    0``57.172630726946174}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733795726103*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9bf24b17-4cf0-4fe9-a1d5-eebea5d53476"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733795733828*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ffefae73-9a05-4bbb-8392-b4e25a8d6920"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "281.2706286298710551819`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "451584.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "69443.4054158769335515717`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "69443.4054158769335515717`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "189013.8624392733490822138`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "189013.8624392733490822138`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "96580.53571030057567099`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "672.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "310.7740911181312998467`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03788594594692466898693696183730216481`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "264.1394823584072978162`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "271.212601332337223033`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733795742325*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"700d51ba-6c15-4c27-8f29-d6d1b6b0b28b"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "325.40875370919883`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 325.40875370919883`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973380567552*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"16580a5a-75f1-446e-ba64-4643473dc155"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"337.`", ",", "0.`", ",", "0.`", ",", "337.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"337.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "337.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"282.2709858559007`", ",", "0.`", ",", 
+            RowBox[{"-", "282.2709858559007`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"265.13912513237756`", ",", 
+            RowBox[{"-", "10.`"}], ",", "264.9504777802119`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {337., 0., 0., 337.}, $CellContext`p2 -> {
+      337., 0., 0., -337.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {282.2709858559007, 
+      0., -282.2709858559007, 0.}, $CellContext`p5 -> {
+      265.13912513237756`, -10., 264.9504777802119, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338056842747`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"44576307-3cfe-4a87-952f-b43ef5691c01"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.4490878528872340828256474112372735963561289631669673976602194238`\
+44.03140482375326*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24830376427007", ",", "0``57.171340103464686"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.4490878528872340828256474112372735963561289631669673976602194238`44.\
+03140482375326*^-13, 0``58.69897000433602, 0``57.24830376427007, 
+    0``57.171340103464686}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733805692622*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f7a56c35-6608-4a07-8113-bc6d0ab1ddc9"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338057008543`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1dbc6ba3-eb43-4266-9213-21fb265603ac"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "282.2709858559006761425`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "454276.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "69696.5851939003768061895`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "69696.5851939003768061895`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "190250.6444668770557200332`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "190250.6444668770557200332`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "96868.4593215549418944225`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "674.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "311.2369825736571137381`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.0377429023105798686888144343511401976`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "265.1391251323775516398`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "271.6150052302813682495`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973380570899*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"94b2c8cc-2a2f-455a-ae13-bda43c61c058"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "326.4430473372781`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 326.4430473372781}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338156032743`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"2e2a558f-a8be-4cb3-9670-70727b08eccc"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"338.`", ",", "0.`", ",", "0.`", ",", "338.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"338.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "338.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"283.2713403964727`", ",", "0.`", ",", 
+            RowBox[{"-", "283.2713403964727`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"266.13877059180555`", ",", 
+            RowBox[{"-", "10.`"}], ",", "265.9508323207839`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {338., 0., 0., 338.}, $CellContext`p2 -> {
+      338., 0., 0., -338.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {283.2713403964727, 
+      0., -283.2713403964727, 0.}, $CellContext`p5 -> {
+      266.13877059180555`, -10., 265.9508323207839, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338156121483`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c3cb51c5-c606-49c3-a5d8-45b281a85979"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.1212831392688673696776533262902799359663241008334574185068082137`\
+43.91873860011111*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24676736676329", ",", "0``57.170053304058364"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.1212831392688673696776533262902799359663241008334574185068082137`43.\
+91873860011111*^-13, 0``58.69897000433602, 0``57.24676736676329, 
+    0``57.170053304058364}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338156204863`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"72b23a8c-b015-4ae1-bda0-419772d9f1d8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733815628281*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c9e9cf86-cf7b-48a0-bf57-9542c71aa32c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "283.2713403964726808226`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "456976.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "69949.7649719238200608072`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "69949.7649719238200608072`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "191491.4261080155322360952`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "191491.4261080155322360952`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "97156.382159878764277188`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "676.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "311.6991853692896071268`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03760093515307455432731210340996890122`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "266.1387705918055797402`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "272.0168152595880375785`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733815636075*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"c7e5789f-f928-4989-8cd4-304e0ebbe88e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "327.47713864306786`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 327.47713864306786`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733825442335*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bd985727-848c-4e3c-a386-744beb4f50aa"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"339.`", ",", "0.`", ",", "0.`", ",", "339.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"339.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "339.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"284.2716922817556`", ",", "0.`", ",", 
+            RowBox[{"-", "284.2716922817556`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"267.13841870652266`", ",", 
+            RowBox[{"-", "10.`"}], ",", "266.9511842060668`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {339., 0., 0., 339.}, $CellContext`p2 -> {
+      339., 0., 0., -339.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {284.2716922817556, 
+      0., -284.2716922817556, 0.}, $CellContext`p5 -> {
+      267.13841870652266`, -10., 266.9511842060668, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733825451187*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f3a1d702-c466-4132-af43-3406b61bb16e"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.4549692179013316861342403688001488747207801154565396105874806468`\
+44.030594115724206*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24523638945008", ",", "0``57.168770306132934"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.4549692179013316861342403688001488747207801154565396105874806468`44.\
+030594115724206*^-13, 0``58.69897000433602, 0``57.24523638945008, 
+    0``57.168770306132934}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973382545959*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"7ce73ee9-11c3-4bcf-807b-fe98ce28e3db"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338254673433`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"6236fa60-6c27-4cac-a357-3335eb7e149b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "284.2716922817555769143`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "459684.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "70202.944749947263315425`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "70202.944749947263315425`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "192736.2073670302811478905`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "192736.2073670302811478905`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "97444.3042339551666622662`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "678.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "312.1607025779432837261`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03746003236412216419978401983610225201`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "267.1384187065226502799`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "272.4180340321457556857`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733825475079*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"db203770-a572-462f-b38c-0728dd53c696"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "328.5110294117647`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 328.5110294117647}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733835299498*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"975e4f81-9cf0-4cde-bc6a-756d158da9d8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"340.`", ",", "0.`", ",", "0.`", ",", "340.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"340.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "340.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"285.27204154146784`", ",", "0.`", ",", 
+            RowBox[{"-", "285.27204154146784`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"268.1380694468104`", ",", 
+            RowBox[{"-", "10.`"}], ",", "267.95153346577905`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {340., 0., 0., 340.}, $CellContext`p2 -> {
+      340., 0., 0., -340.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {285.27204154146784`, 
+      0., -285.27204154146784`, 0.}, $CellContext`p5 -> {
+      268.1380694468104, -10., 267.95153346577905`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733835308522*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"60a75556-43d9-4e5f-b77c-5eceb5ab650c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.2268241771400321347290510133237157259189763338859567960942420054`\
+43.95524341770697*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24371079419051", ",", "0``57.16749108729377"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.2268241771400321347290510133237157259189763338859567960942420054`43.\
+95524341770697*^-13, 0``58.69897000433602, 0``57.24371079419051, 
+    0``57.16749108729377}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733835317009*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4452d210-f467-46a0-bdf1-210391f0c0e0"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.77973383532516*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"531f927a-785e-43fc-b643-abead8f8ad17"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "285.2720415414678427624`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "462400.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "70456.1245279707065700428`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "70456.1245279707065700428`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "193984.9882481981330784038`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "193984.9882481981330784038`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "97732.2255523377450885464`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "680.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "312.621537249655506022`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03732018201447289475116137614555062927`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "268.1380694468104072463`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "272.8186641408604892424`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733835333555*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a92943d8-76b9-4045-b99a-e6688eef68e9"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "329.54472140762465`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 329.54472140762465`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733845155599*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"f68570d5-c99e-4ab8-81bf-d1703eee0c73"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"341.`", ",", "0.`", ",", "0.`", ",", "341.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"341.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "341.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"286.27238820488606`", ",", "0.`", ",", 
+            RowBox[{"-", "286.27238820488606`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"269.1377227833923`", ",", 
+            RowBox[{"-", "10.`"}], ",", "268.95188012919726`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {341., 0., 0., 341.}, $CellContext`p2 -> {
+      341., 0., 0., -341.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {286.27238820488606`, 
+      0., -286.27238820488606`, 0.}, $CellContext`p5 -> {
+      269.1377227833923, -10., 268.95188012919726`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733845164419*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b94f2189-0663-4fde-8149-84ccc9be3b81"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.085937912304538456949311021791924722117519771211844041558242968`\
+43.57155668380705*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.24219054324613", ",", "0``57.16621562534352"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.085937912304538456949311021791924722117519771211844041558242968`43.\
+57155668380705*^-14, 0``58.69897000433602, 0``57.24219054324613, 
+    0``57.16621562534352}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733845172882*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e558ddf5-1d0b-4d59-8d1c-2635c4bad8ef"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733845180794*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"eaa2ef2b-95ca-4a6b-b6ea-86ac68c234d7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "286.2723882048860559735`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "465124.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "70709.3043059941498246606`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "70709.3043059941498246606`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "195237.7687557322901739099`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "195237.7687557322901739099`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "98020.1461234529073734958`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "682.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "313.0816924118254912266`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03718137235254227526656395351965958163`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "269.1377227833922658582`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "273.2187081598465127317`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733845188773*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5b030958-7cee-4236-8505-fab920eb79dd"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "330.578216374269`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 330.578216374269}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733855069675*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"82b7ec65-6cbd-436f-a65d-e51e9dc228d6"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"342.`", ",", "0.`", ",", "0.`", ",", "342.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"342.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "342.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"287.2727323008531`", ",", "0.`", ",", 
+            RowBox[{"-", "287.2727323008531`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"270.1373786874252`", ",", 
+            RowBox[{"-", "10.`"}], ",", "269.9522242251643`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {342., 0., 0., 342.}, $CellContext`p2 -> {
+      342., 0., 0., -342.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {287.2727323008531, 
+      0., -287.2727323008531, 0.}, $CellContext`p5 -> {
+      270.1373786874252, -10., 269.9522242251643, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733855079822*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9e212192-87ea-4a16-a1df-1b8c60ed91ae"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "5.738938803883423655057066464067030829103622855394191291152116737`\
+43.62274549636835*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.2406755992744", ",", "0``57.16494389827988"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-5.738938803883423655057066464067030829103622855394191291152116737`43.\
+62274549636835*^-14, 0``58.69897000433602, 0``57.2406755992744, 
+    0``57.16494389827988}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733855087679*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"9df1b64f-f6bb-4ec9-8b4c-4f105b27ff7f"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733855095742*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"b995f40d-d451-4d16-b5f1-375a2fa7b988"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "287.2727323008530788684`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "467856.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "70962.4840840175930792783`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "70962.4840840175930792783`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "196494.5488937835059459758`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "196494.5488937835059459758`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "98308.0659556022290565459`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "684.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "313.5411710694501904053`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03704359180111479786450101217781770398`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "270.1373786874252364333`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "273.6181686446149404755`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733855103849*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"4d398b45-69e8-4f2d-8fcd-a9aa81afcc70"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "331.6115160349854`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 331.6115160349854}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338648659773`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"201d03cd-feb3-45f7-adc1-4cd97a19d5e0"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"343.`", ",", "0.`", ",", "0.`", ",", "343.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"343.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "343.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"288.27307385778624`", ",", "0.`", ",", 
+            RowBox[{"-", "288.27307385778624`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"271.1370371304921`", ",", 
+            RowBox[{"-", "10.`"}], ",", "270.95256578209745`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {343., 0., 0., 343.}, $CellContext`p2 -> {
+      343., 0., 0., -343.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {288.27307385778624`, 
+      0., -288.27307385778624`, 0.}, $CellContext`p5 -> {
+      271.1370371304921, -10., 270.95256578209745`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733864876115*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"77795851-d16e-494a-9cba-694996456eec"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "1.843515340563075659572455913151541945395160751691362082037642385`\
+43.128292644509116*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.239165925323114", ",", "0``57.16367588429325"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-1.843515340563075659572455913151541945395160751691362082037642385`43.\
+128292644509116*^-14, 0``58.69897000433602, 0``57.239165925323114, 
+    0``57.16367588429325}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733864884798*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"16043f41-af11-41da-a003-9f543f8434e8"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733864893128*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1695a3b0-50d9-4c47-bdd4-cd652d39932c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "288.2730738577862439342`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "470596.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "71215.6638620410363338961`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "71215.6638620410363338961`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "197755.3286664413633388904`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "197755.3286664413633388904`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "98595.9850569648093424787`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "686.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "313.9999762053570750915`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03690682895412066836271041016363639619`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "271.1370371304921103217`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "274.0170481322599363241`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733864901587*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d7fadbc8-5d5e-4ddf-9fb2-3c5e100f7b69"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "332.64462209302326`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 332.64462209302326`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733874711388*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"090db7c2-5672-4e4a-ae1a-5e6891d91a5c"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"344.`", ",", "0.`", ",", "0.`", ",", "344.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"344.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "344.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"289.2734129036849`", ",", "0.`", ",", 
+            RowBox[{"-", "289.2734129036849`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"272.1366980845934`", ",", 
+            RowBox[{"-", "10.`"}], ",", "271.9529048279961`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {344., 0., 0., 344.}, $CellContext`p2 -> {
+      344., 0., 0., -344.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {289.2734129036849, 
+      0., -289.2734129036849, 0.}, $CellContext`p5 -> {
+      272.1366980845934, -10., 271.9529048279961, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733874720353*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"48dfa233-2d8f-4430-bc66-d7cf6e6e2432"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "8.495148235852830263317127642193525647668166677363898316386441903`\
+43.79055252758118*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.23766148482502", ",", "0``57.16241156176449"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-8.495148235852830263317127642193525647668166677363898316386441903`43.\
+79055252758118*^-14, 0``58.69897000433602, 0``57.23766148482502, 
+    0``57.16241156176449}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733874728651*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"a3ebe1fd-433c-4803-a8e6-aba526768766"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338747369137`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"71b19912-523c-4eb9-9244-0605cdc7c205"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "289.2734129036849139993`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "473344.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "71468.8436400644795885139`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "71468.8436400644795885139`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "199020.1080777352208315278`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "199020.1080777352208315278`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "98883.9034355994470769152`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "688.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "314.4581107804335949037`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03677107257348387721709939355670105021`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "272.1366980845933737403`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "274.4153491416423859951`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733874745273*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"5136b96b-f201-4d64-bb0b-c1d73e62dbe4"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "333.67753623188406`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 333.67753623188406`}, "\n"],
+  
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733884525631*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d19fa418-7183-48a3-9bd9-9ca0af26495d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", "345.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "345.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"290.27374946613844`", ",", "0.`", ",", 
+            RowBox[{"-", "290.27374946613844`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"273.13636152213985`", ",", 
+            RowBox[{"-", "10.`"}], ",", "272.95324139044965`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {345., 0., 0., 345.}, $CellContext`p2 -> {
+      345., 0., 0., -345.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {290.27374946613844`, 
+      0., -290.27374946613844`, 0.}, $CellContext`p5 -> {
+      273.13636152213985`, -10., 272.95324139044965`, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338845342407`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"e191ace6-7e04-4884-9d4d-5a2b09365c97"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "6.943514411360013189695387250594172645896438148735770561459746379`\
+43.70170025482238*^-14"}], ",", "0``58.69897000433602", ",", 
+     "0``57.23616224159246", ",", "0``57.161150909262744"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-6.943514411360013189695387250594172645896438148735770561459746379`43.\
+70170025482238*^-14, 0``58.69897000433602, 0``57.23616224159246, 
+    0``57.161150909262744}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338845420628`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bc3bf3e5-f03b-4e22-bd13-da9302a3269d"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733884549718*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"21f0e823-341e-4f1f-b06e-db989632a363"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "290.2737494661384403116`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "476100.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "71722.0234180879228431316`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "71722.0234180879228431316`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "200288.8871316355238150209`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "200288.8871316355238150209`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "99171.8210994469312468303`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "690.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "314.915577733853825383`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03663631158603961887865809994064932551`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "273.1363615221398629443`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "274.8130741735714743137`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733884557704*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"1685382f-ff91-4116-be33-b693846f5f8d"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{"kT3", "\[Rule]", "334.7102601156069`"}], "}"}], 
+   "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["kT3_max = ", {$CellContext`kT3 -> 334.7102601156069}, "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733894396915*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"cf86f918-7954-4fcb-b4c0-1af59d602865"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]", 
+   TagBox[
+    RowBox[{"(", "\[NoBreak]", 
+     TagBox[GridBox[{
+        {
+         RowBox[{"p1", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"346.`", ",", "0.`", ",", "0.`", ",", "346.`"}], "}"}]}]},
+        {
+         RowBox[{"p2", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"346.`", ",", "0.`", ",", "0.`", ",", 
+            RowBox[{"-", "346.`"}]}], "}"}]}]},
+        {
+         RowBox[{"p3", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{
+           "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`", 
+            ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p4", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"291.27408357233327`", ",", "0.`", ",", 
+            RowBox[{"-", "291.27408357233327`"}], ",", "0.`"}], "}"}]}]},
+        {
+         RowBox[{"p5", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"274.1360274159449`", ",", 
+            RowBox[{"-", "10.`"}], ",", "273.9535754966445`", ",", "0.`"}], 
+           "}"}]}]}
+       },
+       GridBoxAlignment->{
+        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
+         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+       GridBoxSpacings->{"Columns" -> {
+           Offset[0.27999999999999997`], {
+            Offset[0.5599999999999999]}, 
+           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+           Offset[0.2], {
+            Offset[0.4]}, 
+           Offset[0.2]}, "RowsIndexed" -> {}}],
+      Column], "\[NoBreak]", ")"}],
+    Function[BoxForm`e$, 
+     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+  SequenceForm["Four Momenta : \n", 
+   MatrixForm[{$CellContext`p1 -> {346., 0., 0., 346.}, $CellContext`p2 -> {
+      346., 0., 0., -346.}, $CellContext`p3 -> {126.58988901172162`, 10., 
+      17.320508075688775`, 0.}, $CellContext`p4 -> {291.27408357233327`, 
+      0., -291.27408357233327`, 0.}, $CellContext`p5 -> {
+      274.1360274159449, -10., 273.9535754966445, 0.}}], "\n"],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733894405837*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"ed66a9c3-1d43-435e-ab83-4999a4ad79d8"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  \"\>", 
+   "\[InvisibleSpace]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+     "-", "2.0247141548399395386020466267887103828750793482697310790341840805`\
+44.16522762891722*^-13"}], ",", "0``58.69897000433602", ",", 
+     "0``57.234668159812166", ",", "0``57.15989390554324"}], "}"}]}],
+  SequenceForm[
+  "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 :  ", \
+{-2.0247141548399395386020466267887103828750793482697310790341840805`44.\
+16522762891722*^-13, 0``58.69897000433602, 0``57.234668159812166, 
+    0``57.15989390554324}],
+  Editable->False]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338944141912`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"bf937ce7-92b6-4c20-992b-a3b047996b66"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.779733894421896*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"dc3d62a5-a065-4e4d-8a02-7688fd727c71"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"kkT3", "\[Rule]", "20.`"}], ",", 
+   RowBox[{"kkT4", "\[Rule]", "291.2740835723332679663`10."}], ",", 
+   RowBox[{"S", "\[Rule]", "478864.`10."}], ",", 
+   RowBox[{"T", "\[Rule]", 
+    RowBox[{"-", "71975.2031961113660977494`10."}]}], ",", 
+   RowBox[{"U", "\[Rule]", 
+    RowBox[{"-", "71975.2031961113660977494`10."}]}], ",", 
+   RowBox[{"T24", "\[Rule]", 
+    RowBox[{"-", "201561.6658320546214326896`10."}]}], ",", 
+   RowBox[{"T14", "\[Rule]", 
+    RowBox[{"-", "201561.6658320546214326896`10."}]}], ",", 
+   RowBox[{"S34", "\[Rule]", "99459.738056332086070297`10."}], ",", 
+   RowBox[{
+    SqrtBox["S"], "\[Rule]", "692.`10."}], ",", 
+   RowBox[{
+    SqrtBox["S34"], "\[Rule]", "315.372379983301781326`10."}], ",", 
+   RowBox[{
+    RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", 
+    RowBox[{"-", "0.03650253508051945260280904843316249763`10."}]}], ",", 
+   RowBox[{"kT5", "\[Rule]", "274.1360274159449022534`10."}], ",", 
+   RowBox[{
+    SqrtBox["S35"], "\[Rule]", "275.2102257109837022916`10."}]}], 
+  "}"}]], "Print",
+ CellChangeTimes->{3.779727746932988*^9, 3.7797338944298153`*^9},
+ CellLabel->
+  "During evaluation of \
+In[323]:=",ExpressionUUID->"d49b6311-5ba5-441f-839d-2fdf9c47dbdc"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.779727679165557*^9, 
+  3.7797276810894003`*^9}},ExpressionUUID->"e2730574-ac04-482f-83d9-\
+9c4de55b5fc0"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.7797275612898684`*^9, 3.779727629598981*^9, 
+  3.779727661876445*^9},
+ CellLabel->
+  "Out[254]=",ExpressionUUID->"c5c505fe-4051-4f67-824a-cb39dfd29847"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"SetDirectory", "[", 
+   RowBox[{"StringJoin", "[", 
+    RowBox[{
+     RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</plots/2jets\>\""}], 
+    "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779728091472397*^9, 3.77972809597082*^9}},
+ CellLabel->
+  "In[333]:=",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "ppppList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "ppppList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++++]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_++++.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7797278227448797`*^9, 3.779727922372373*^9}, {
+  3.779728242820135*^9, 3.779728243075076*^9}, {3.779729130396789*^9, 
+  3.77972918197513*^9}, {3.779729450124349*^9, 3.779729459959154*^9}, {
+  3.779729610556365*^9, 3.779729736505456*^9}},
+ CellLabel->
+  "In[335]:=",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "pppmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "pppmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+++-]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_+++-.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779731188134094*^9, 3.779731198577499*^9}},
+ CellLabel->
+  "In[341]:=",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "ppmpList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "ppmpList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++-+]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_++-+.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779731215262043*^9, 3.7797312312693768`*^9}},
+ CellLabel->
+  "In[347]:=",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "pmppList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "pmppList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-++]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_+-++.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.77973123994528*^9, 3.779731261604753*^9}},
+ CellLabel->
+  "In[353]:=",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "ppmmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "ppmmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++--]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_++--.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7797312702537937`*^9, 3.779731277655807*^9}},
+ CellLabel->
+  "In[359]:=",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "pmmmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "pmmmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+---]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_+---.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779731292783431*^9, 3.779731303536839*^9}},
+ CellLabel->
+  "In[365]:=",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"re", "=", 
+   RowBox[{
+    RowBox[{"Re", "[", "pmpmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"regraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "re"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"im", "=", 
+   RowBox[{
+    RowBox[{"Im", "[", "pmpmList", "]"}], "//.", 
+    RowBox[{"c3", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"imgraph", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"range", ",", "im"}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"plottest", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"regraph", ",", "imgraph"}], "}"}], ",", 
+     RowBox[{"PlotLabels", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
+     RowBox[{"AxesLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-+-]\>\""}], 
+       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{"\"\<ggHgg_+-+-.png\>\"", ",", "plottest", ",", 
+    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779731315920693*^9, 3.779731323922114*^9}},
+ CellLabel->
+  "In[371]:=",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
+},
+WindowSize->{808, 755},
+WindowMargins->{{4, Automatic}, {Automatic, 4}},
+FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
+2018)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 855, 19, 136, "Input",ExpressionUUID->"07059ed1-da78-45a1-a93e-4a9e51106fb9"],
+Cell[CellGroupData[{
+Cell[1438, 43, 270, 4, 52, "Input",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
+Cell[CellGroupData[{
+Cell[1733, 51, 532, 8, 46, "Print",ExpressionUUID->"d042288d-cedb-4f34-9877-181e60d9b7a5"],
+Cell[2268, 61, 311, 5, 24, "Print",ExpressionUUID->"4c683fb4-9f6e-4b4b-b355-9709eeace5e8"]
+}, Open  ]]
+}, Open  ]],
+Cell[2606, 70, 1414, 33, 94, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
+Cell[4023, 105, 4311, 127, 703, "Input",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
+Cell[8337, 234, 11819, 322, 1102, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+Cell[20159, 558, 1425, 34, 94, "Input",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
+Cell[21587, 594, 10894, 296, 1165, "Input",ExpressionUUID->"eca74a07-e704-4ac5-ae22-c5d897e92d8a"],
+Cell[32484, 892, 147, 3, 52, "Input",ExpressionUUID->"b47c7785-979d-4d00-9cb1-1123c93aa995"],
+Cell[32634, 897, 1076, 24, 73, "Input",ExpressionUUID->"6990fcad-4b93-4084-85c7-9f8a2a9ec1bd"],
+Cell[33713, 923, 3589, 92, 325, "Input",ExpressionUUID->"33addaa0-998d-4b37-a063-b4d9ca2014a6"],
+Cell[37305, 1017, 2844, 82, 304, "Input",ExpressionUUID->"f24ba508-f9b4-4d9c-b09b-ce0d1cd30b9a"],
+Cell[40152, 1101, 2773, 82, 304, "Input",ExpressionUUID->"6ef61c5a-8d5b-422e-87a8-52cd3286d020"],
+Cell[42928, 1185, 2851, 82, 304, "Input",ExpressionUUID->"b4ab43af-b2d2-48fd-883b-1e6ef0ca95a1"],
+Cell[45782, 1269, 2844, 82, 304, "Input",ExpressionUUID->"189115e0-bd18-4603-80d6-269421a6b68b"],
+Cell[48629, 1353, 2770, 82, 304, "Input",ExpressionUUID->"4a1f79ce-2fd4-45ad-9be7-a3c1df89c461"],
+Cell[51402, 1437, 2792, 81, 304, "Input",ExpressionUUID->"4e9cbc8a-82d1-4556-a4da-a08017bba245"],
+Cell[54197, 1520, 2991, 83, 283, "Input",ExpressionUUID->"de4f5de1-0e56-4379-9af0-6f19a3710802"],
+Cell[57191, 1605, 149, 3, 52, "Input",ExpressionUUID->"618a27be-8e1d-45e5-88c5-448e54104463"],
+Cell[57343, 1610, 5566, 151, 808, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
+Cell[62912, 1763, 31163, 803, 2173, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+Cell[CellGroupData[{
+Cell[94100, 2570, 1217, 34, 94, "Input",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
+Cell[CellGroupData[{
+Cell[95342, 2608, 513, 13, 44, "Print",ExpressionUUID->"d31fd212-0272-422b-93e6-a4a4789b73ed"],
+Cell[95858, 2623, 2285, 57, 145, "Print",ExpressionUUID->"1d30a57c-424a-4014-9729-0d4310e29ce4"],
+Cell[98146, 2682, 862, 20, 47, "Print",ExpressionUUID->"049a5c0d-dc6d-411c-93cd-8568ff4b85dd"],
+Cell[99011, 2704, 263, 5, 24, "Print",ExpressionUUID->"429f2cc2-a482-49fb-8947-e2325b7148dc"],
+Cell[99277, 2711, 1271, 30, 69, "Print",ExpressionUUID->"b31d3e7a-b1f7-4fdd-9179-3871b7f2d20d"]
+}, Open  ]]
+}, Open  ]],
+Cell[100575, 2745, 5653, 180, 346, "Input",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
+Cell[106231, 2927, 811, 26, 30, "Input",ExpressionUUID->"182b1eb4-904f-4035-96f1-7c217edef670"],
+Cell[107045, 2955, 341, 10, 30, "Input",ExpressionUUID->"d8458a9c-2ac7-4f59-87ec-a96f24be74ef"],
+Cell[CellGroupData[{
+Cell[107411, 2969, 888, 24, 94, "Input",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
+Cell[108302, 2995, 290, 4, 34, "Output",ExpressionUUID->"7153857e-2135-4870-8132-7b49944445ec"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[108629, 3004, 986, 26, 94, "Input",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
+Cell[109618, 3032, 368, 6, 34, "Output",ExpressionUUID->"fa21e151-cad1-44c3-90a0-10bd2df8f9d8"]
+}, Open  ]],
+Cell[110001, 3041, 884, 29, 30, "Input",ExpressionUUID->"cd98c05a-fc47-49fe-b336-c8fa35845f46"],
+Cell[110888, 3072, 451, 13, 30, "Input",ExpressionUUID->"af29fd58-c6e0-425f-a465-aeee85ed9b1d"],
+Cell[CellGroupData[{
+Cell[111364, 3089, 945, 26, 94, "Input",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
+Cell[112312, 3117, 274, 5, 34, "Output",ExpressionUUID->"e63ffe1e-5793-4c81-9ae0-2dd4ac1b152a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[112623, 3127, 891, 25, 94, "Input",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
+Cell[113517, 3154, 299, 5, 34, "Output",ExpressionUUID->"636377a4-6b9c-473c-a285-4c155c5d1bec"]
+}, Open  ]],
+Cell[113831, 3162, 811, 26, 30, "Input",ExpressionUUID->"dd8436d0-935b-4efe-969f-f9d4d49ececb"],
+Cell[114645, 3190, 429, 12, 30, "Input",ExpressionUUID->"213b6240-7175-4d90-8baa-6afebe952928"],
+Cell[CellGroupData[{
+Cell[115099, 3206, 894, 25, 94, "Input",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
+Cell[115996, 3233, 323, 6, 34, "Output",ExpressionUUID->"b1b6a6eb-a733-4c32-8851-ef0e8ad9bd4b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[116356, 3244, 940, 26, 94, "Input",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
+Cell[117299, 3272, 274, 5, 34, "Output",ExpressionUUID->"268e7da7-55d4-4f3c-a209-469b03d9d838"]
+}, Open  ]],
+Cell[117588, 3280, 884, 29, 30, "Input",ExpressionUUID->"6d590f68-025d-4e76-96a4-f8d708004a9b"],
+Cell[118475, 3311, 403, 12, 30, "Input",ExpressionUUID->"69088eff-d3a7-4052-b105-6ce5c9626a01"],
+Cell[CellGroupData[{
+Cell[118903, 3327, 894, 25, 94, "Input",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
+Cell[119800, 3354, 274, 6, 34, "Output",ExpressionUUID->"38e1e5ed-f288-4455-82e1-b64a7502490f"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[120111, 3365, 894, 25, 94, "Input",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
+Cell[121008, 3392, 275, 6, 34, "Output",ExpressionUUID->"057a7d59-5496-4172-91cb-2930aa9d2542"]
+}, Open  ]],
+Cell[121298, 3401, 811, 26, 30, "Input",ExpressionUUID->"d5ad72cf-c464-4f2e-8108-84dbd216cab1"],
+Cell[122112, 3429, 332, 10, 30, "Input",ExpressionUUID->"752a3f8d-f3d4-4411-987d-dc217a127fe7"],
+Cell[CellGroupData[{
+Cell[122469, 3443, 894, 25, 94, "Input",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
+Cell[123366, 3470, 275, 5, 34, "Output",ExpressionUUID->"91b093c4-5fe2-41dc-88b9-32a893b1665a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[123678, 3480, 892, 25, 94, "Input",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
+Cell[124573, 3507, 275, 5, 34, "Output",ExpressionUUID->"bb1dd083-6c11-485a-bf24-0bd0f5cd3b0a"]
+}, Open  ]],
+Cell[124863, 3515, 811, 26, 30, "Input",ExpressionUUID->"3ae73bc5-4aeb-470c-90ab-96783e700a1c"],
+Cell[125677, 3543, 447, 14, 30, "Input",ExpressionUUID->"85ad533d-c3c4-4762-ac62-6ee29af8a7df"],
+Cell[CellGroupData[{
+Cell[126149, 3561, 942, 26, 94, "Input",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
+Cell[127094, 3589, 297, 5, 34, "Output",ExpressionUUID->"e8e64d9b-e345-494c-bc74-3c3a61eb0f18"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[127428, 3599, 943, 26, 94, "Input",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
+Cell[128374, 3627, 296, 5, 34, "Output",ExpressionUUID->"85a70a3b-2762-4f12-abc5-6b71183df596"]
+}, Open  ]],
+Cell[128685, 3635, 811, 26, 30, "Input",ExpressionUUID->"f729b907-0fbc-4b1f-ab80-ee926d31037e"],
+Cell[129499, 3663, 884, 27, 73, "Input",ExpressionUUID->"0fd68ed1-f787-4031-b35d-b4a0c9a67c5a"],
+Cell[CellGroupData[{
+Cell[130408, 3694, 991, 27, 94, "Input",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
+Cell[131402, 3723, 323, 6, 34, "Output",ExpressionUUID->"5f882c80-ac56-43d3-8786-9a038b3bed25"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[131762, 3734, 994, 27, 94, "Input",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
+Cell[132759, 3763, 320, 6, 34, "Output",ExpressionUUID->"e4bf3e4e-8c5f-4f96-bbe7-e426b981bfaf"]
+}, Open  ]],
+Cell[133094, 3772, 811, 26, 30, "Input",ExpressionUUID->"5a313745-60dc-42eb-b195-fbaa567834c9"],
+Cell[133908, 3800, 461, 11, 30, "Input",ExpressionUUID->"bd078427-186c-41cd-af66-decc5f5b36af"],
+Cell[CellGroupData[{
+Cell[134394, 3815, 1090, 28, 94, "Input",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
+Cell[135487, 3845, 373, 7, 34, "Output",ExpressionUUID->"9f3ab495-4dcf-44f3-a3d0-0ad377d7580e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[135897, 3857, 1036, 27, 94, "Input",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
+Cell[136936, 3886, 369, 6, 34, "Output",ExpressionUUID->"990afac5-a2e7-4da1-8282-cfe350d3f5c0"]
+}, Open  ]],
+Cell[137320, 3895, 1909, 56, 241, "Input",ExpressionUUID->"b274a7fa-02b1-4828-9d03-509e4c4311ea"],
+Cell[139232, 3953, 176, 4, 30, "Input",ExpressionUUID->"f8b20319-4c15-42df-ba5e-26e9e403ba03"],
+Cell[139411, 3959, 154, 3, 30, "Input",ExpressionUUID->"1aac05ed-9474-430e-9fd7-7c19a189fdbb"],
+Cell[139568, 3964, 1626, 40, 136, "Input",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
+Cell[CellGroupData[{
+Cell[141219, 4008, 5767, 167, 766, "Input",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
+Cell[CellGroupData[{
+Cell[147011, 4179, 492, 12, 44, "Print",ExpressionUUID->"093ed569-ac30-4fe3-86ea-405c16d9ef4a"],
+Cell[147506, 4193, 2284, 56, 145, "Print",ExpressionUUID->"d6f4cf28-7d5f-4848-9247-eb61ce583fbc"],
+Cell[149793, 4251, 838, 19, 47, "Print",ExpressionUUID->"b7f6e23d-f97e-4566-87a6-1415e645a34e"],
+Cell[150634, 4272, 239, 4, 24, "Print",ExpressionUUID->"7662925b-ef50-4342-8aba-281bcf17c510"],
+Cell[150876, 4278, 1225, 29, 69, "Print",ExpressionUUID->"db45e876-9ba1-46d6-bc2b-e4e95cda352c"],
+Cell[152104, 4309, 492, 12, 44, "Print",ExpressionUUID->"16dda6c3-6f2f-49ef-826f-5fcf6e8dec2f"],
+Cell[152599, 4323, 2284, 56, 145, "Print",ExpressionUUID->"2e370511-a8d6-42eb-9467-12e5ad916846"],
+Cell[154886, 4381, 838, 19, 47, "Print",ExpressionUUID->"8ac30807-ab2c-463e-881e-2bc9882c353c"],
+Cell[155727, 4402, 241, 4, 24, "Print",ExpressionUUID->"c0db70c8-e2ab-46d2-a3a0-34936e357fc9"],
+Cell[155971, 4408, 1207, 29, 69, "Print",ExpressionUUID->"57b4d524-c4c6-411a-ab82-cbb9eda89251"],
+Cell[157181, 4439, 484, 11, 44, "Print",ExpressionUUID->"68f9dc53-3090-4814-84a8-d1684a20fd4d"],
+Cell[157668, 4452, 2268, 56, 145, "Print",ExpressionUUID->"807f9006-0a2d-4bd7-837c-3f2a0675c1fd"],
+Cell[159939, 4510, 835, 19, 47, "Print",ExpressionUUID->"df9edb69-8e8f-48e1-9027-e1bed12e701f"],
+Cell[160777, 4531, 239, 4, 24, "Print",ExpressionUUID->"c665cc9b-3e80-4241-8314-55f57883ed09"],
+Cell[161019, 4537, 1222, 29, 69, "Print",ExpressionUUID->"c34d6111-35ae-4a7c-9e52-61f9dc97062f"],
+Cell[162244, 4568, 490, 12, 70, "Print",ExpressionUUID->"fdfe0891-9f15-4113-b34f-881989505d4c"],
+Cell[162737, 4582, 2258, 56, 70, "Print",ExpressionUUID->"c847b5b8-5dfc-4dbf-b1af-31b08b4c847d"],
+Cell[164998, 4640, 840, 19, 70, "Print",ExpressionUUID->"94e0bc35-a014-4d64-b56c-70fad24b45a1"],
+Cell[165841, 4661, 239, 4, 70, "Print",ExpressionUUID->"ecaaf9c3-3517-4f0d-98f4-b7dce022a5f9"],
+Cell[166083, 4667, 1220, 29, 70, "Print",ExpressionUUID->"4dbe994b-a725-49d4-80dd-ef8f41dce6a8"],
+Cell[167306, 4698, 484, 11, 70, "Print",ExpressionUUID->"51faeea1-8e85-4ac9-967d-d1a820eb460d"],
+Cell[167793, 4711, 2266, 56, 70, "Print",ExpressionUUID->"2c3d14ae-32c4-43c0-b1f7-c5665e38593c"],
+Cell[170062, 4769, 836, 19, 70, "Print",ExpressionUUID->"42ca4596-cc4a-40be-b20a-3e67b5b98110"],
+Cell[170901, 4790, 239, 4, 70, "Print",ExpressionUUID->"826e3de0-619d-43d2-b7f0-f75af37aafea"],
+Cell[171143, 4796, 1242, 29, 70, "Print",ExpressionUUID->"0251a2de-c734-4d01-afa9-14f2ac7eda4a"],
+Cell[172388, 4827, 468, 11, 70, "Print",ExpressionUUID->"ad8dd0cc-f516-4859-b0ce-19003548f4ac"],
+Cell[172859, 4840, 2258, 56, 70, "Print",ExpressionUUID->"2c31ece3-5d37-45c2-8567-8f4e92a4045a"],
+Cell[175120, 4898, 840, 19, 70, "Print",ExpressionUUID->"45090c40-ac8d-4030-bfdc-044e0c8c9e63"],
+Cell[175963, 4919, 239, 4, 70, "Print",ExpressionUUID->"3b9ff638-95c8-45e0-b184-818fce59b1ff"],
+Cell[176205, 4925, 1243, 29, 70, "Print",ExpressionUUID->"8a250bad-55bc-43e9-9cd9-4700eb5490a0"],
+Cell[177451, 4956, 486, 11, 70, "Print",ExpressionUUID->"80d6d6ea-538b-45bc-b3fe-bae26d824017"],
+Cell[177940, 4969, 2266, 56, 70, "Print",ExpressionUUID->"bf358510-a1e8-406d-8d93-6bad0a9de60e"],
+Cell[180209, 5027, 838, 19, 70, "Print",ExpressionUUID->"2fe42762-ef19-44b9-8a9a-dab737bb9373"],
+Cell[181050, 5048, 238, 4, 70, "Print",ExpressionUUID->"c1df84c2-6469-4926-b003-e0486b5106be"],
+Cell[181291, 5054, 1241, 29, 70, "Print",ExpressionUUID->"98917a23-5fa9-48f8-9b30-004a15fb7d60"],
+Cell[182535, 5085, 490, 12, 70, "Print",ExpressionUUID->"e82daa1e-410e-48b8-a24b-0cf7d8c17665"],
+Cell[183028, 5099, 2261, 56, 70, "Print",ExpressionUUID->"1297d86f-f33e-4aa3-929e-4ea3a7fee9bd"],
+Cell[185292, 5157, 840, 19, 70, "Print",ExpressionUUID->"0133d6d6-3a28-4c42-be89-918fc4b000e8"],
+Cell[186135, 5178, 239, 4, 70, "Print",ExpressionUUID->"31d9d331-9e17-439f-924b-fd863f0540fb"],
+Cell[186377, 5184, 1242, 29, 70, "Print",ExpressionUUID->"479bcc9d-1bba-4fcf-a77b-5fa35d590923"],
+Cell[187622, 5215, 484, 11, 70, "Print",ExpressionUUID->"2f2c5849-eb5b-4999-830b-fe1dbe2282d9"],
+Cell[188109, 5228, 2257, 56, 70, "Print",ExpressionUUID->"d34aca8d-f0fa-49c4-81e1-bb8653f78941"],
+Cell[190369, 5286, 838, 19, 70, "Print",ExpressionUUID->"656179f5-f4d8-455f-8a56-56ed6142f1a4"],
+Cell[191210, 5307, 241, 4, 70, "Print",ExpressionUUID->"3dfb1d84-bb71-48e3-b184-8966905dd67c"],
+Cell[191454, 5313, 1245, 29, 70, "Print",ExpressionUUID->"e76c108b-7b5a-453d-8b6b-30642b7f9773"],
+Cell[192702, 5344, 486, 11, 70, "Print",ExpressionUUID->"af84e8cc-8b55-498c-aa41-8a5bc29e6a58"],
+Cell[193191, 5357, 2258, 56, 70, "Print",ExpressionUUID->"36997acc-54d0-4521-b7cd-2b0b1fa138da"],
+Cell[195452, 5415, 836, 19, 70, "Print",ExpressionUUID->"21f818d8-bc2a-4c78-bebb-c9f418b3ea2f"],
+Cell[196291, 5436, 239, 4, 70, "Print",ExpressionUUID->"06ef9b87-44d9-4f7c-a403-f6a9354c1656"],
+Cell[196533, 5442, 1243, 29, 70, "Print",ExpressionUUID->"39b362e0-da68-4018-8881-554e2aad7808"],
+Cell[197779, 5473, 492, 12, 70, "Print",ExpressionUUID->"6cfa24e6-0f6b-401c-90f3-c83e182a8d38"],
+Cell[198274, 5487, 2264, 56, 70, "Print",ExpressionUUID->"2471a3c4-6122-48a6-8927-112fa8d5bb04"],
+Cell[200541, 5545, 838, 19, 70, "Print",ExpressionUUID->"4aa3f06b-ec1a-446d-a818-33a94e8cbb9b"],
+Cell[201382, 5566, 239, 4, 70, "Print",ExpressionUUID->"5fdea64e-5002-4988-9f3c-7fb3f009514b"],
+Cell[201624, 5572, 1243, 29, 70, "Print",ExpressionUUID->"f2df0408-1ced-4937-b4cc-8b4b4bbda447"],
+Cell[202870, 5603, 484, 11, 70, "Print",ExpressionUUID->"cb166f33-da59-4c29-a788-61cae5f7411d"],
+Cell[203357, 5616, 2267, 56, 70, "Print",ExpressionUUID->"e5bf0324-1989-49bb-9dbd-463dcf99ea6f"],
+Cell[205627, 5674, 836, 19, 70, "Print",ExpressionUUID->"2f52fc6a-bce3-41fc-9ff0-b5b48ca345c0"],
+Cell[206466, 5695, 239, 4, 70, "Print",ExpressionUUID->"6f295155-dc45-49c7-9828-db63256abb14"],
+Cell[206708, 5701, 1242, 29, 70, "Print",ExpressionUUID->"6e3944be-f419-4597-bf56-c31c7aa51d51"],
+Cell[207953, 5732, 486, 11, 70, "Print",ExpressionUUID->"a714019d-e8bc-4e54-b3cd-b9dbc546ee8d"],
+Cell[208442, 5745, 2269, 56, 70, "Print",ExpressionUUID->"f342d9dc-b61f-4af0-b074-d98fbae82fe6"],
+Cell[210714, 5803, 836, 19, 70, "Print",ExpressionUUID->"423ebca4-4488-4e1c-93f4-f449939ccb34"],
+Cell[211553, 5824, 239, 4, 70, "Print",ExpressionUUID->"2e67059c-3988-4db3-9603-309d73c1d4e9"],
+Cell[211795, 5830, 1243, 29, 70, "Print",ExpressionUUID->"1d9a413c-777f-4c4d-a2f2-a114396abc11"],
+Cell[213041, 5861, 486, 11, 70, "Print",ExpressionUUID->"2371c68f-2cc0-413b-95f3-5689a1d31708"],
+Cell[213530, 5874, 2264, 56, 70, "Print",ExpressionUUID->"ff68dc83-e07d-4680-99f2-7e4d39aebe53"],
+Cell[215797, 5932, 834, 19, 70, "Print",ExpressionUUID->"1d4cdfea-36b8-4fe5-a13c-3a8079962d11"],
+Cell[216634, 5953, 241, 4, 70, "Print",ExpressionUUID->"5ba847b3-9965-4a3a-90ed-6c9179b907d8"],
+Cell[216878, 5959, 1239, 29, 70, "Print",ExpressionUUID->"17d8a6bc-fdd2-4a8f-9fdb-faaf86676448"],
+Cell[218120, 5990, 490, 12, 70, "Print",ExpressionUUID->"99f7907b-3fac-4a34-936e-407cc4b1c869"],
+Cell[218613, 6004, 2261, 56, 70, "Print",ExpressionUUID->"f5aca828-a9ab-4793-8f36-036854bc3eef"],
+Cell[220877, 6062, 835, 19, 70, "Print",ExpressionUUID->"f94f4db7-390a-40a9-8870-ea13b679a2e8"],
+Cell[221715, 6083, 239, 4, 70, "Print",ExpressionUUID->"6c5454c8-7673-4782-8585-4cf1d9b5b8b5"],
+Cell[221957, 6089, 1244, 29, 70, "Print",ExpressionUUID->"43cd95ba-70fc-4443-9499-f730d5fd3440"],
+Cell[223204, 6120, 486, 11, 70, "Print",ExpressionUUID->"a6ebee72-1d68-44ee-8113-8c1b44dad8d5"],
+Cell[223693, 6133, 2260, 56, 70, "Print",ExpressionUUID->"c8d39b8a-bf2d-4a4e-b94d-e0523b2a8713"],
+Cell[225956, 6191, 838, 19, 70, "Print",ExpressionUUID->"a7d6f063-f4e1-4612-a93e-939b41b027aa"],
+Cell[226797, 6212, 239, 4, 70, "Print",ExpressionUUID->"bd6101f4-472a-4cd4-90c4-29aaa7d1ceae"],
+Cell[227039, 6218, 1243, 29, 70, "Print",ExpressionUUID->"8fd74201-ac2d-46a0-93c8-50cb571b9a23"],
+Cell[228285, 6249, 490, 12, 70, "Print",ExpressionUUID->"c7b5faac-cc96-4fe0-a516-de44e525618b"],
+Cell[228778, 6263, 2259, 56, 70, "Print",ExpressionUUID->"55b68698-52b1-4ea3-a38b-314cf11b4aa4"],
+Cell[231040, 6321, 836, 19, 70, "Print",ExpressionUUID->"f148cbd7-2f37-43d8-8d60-9c79dd413978"],
+Cell[231879, 6342, 238, 4, 70, "Print",ExpressionUUID->"969940fc-7059-4b7a-8ad8-16eb693f5fb7"],
+Cell[232120, 6348, 1241, 29, 70, "Print",ExpressionUUID->"c93d81e9-79a0-479a-b58d-a6a6b804e79e"],
+Cell[233364, 6379, 486, 11, 70, "Print",ExpressionUUID->"a3b7235d-7e4b-48ec-ac98-e396914e4b65"],
+Cell[233853, 6392, 2263, 56, 70, "Print",ExpressionUUID->"d76ce001-5689-4fb2-97b3-80eccedaf2e4"],
+Cell[236119, 6450, 834, 19, 70, "Print",ExpressionUUID->"88f7fef6-cf49-45a0-a61b-1b88a96d8ca0"],
+Cell[236956, 6471, 239, 4, 70, "Print",ExpressionUUID->"a3b5a5bf-faac-409e-9dbd-ad68ab28a765"],
+Cell[237198, 6477, 1243, 29, 70, "Print",ExpressionUUID->"f68949d5-6b39-43ef-ae0a-2271c1c4cefe"],
+Cell[238444, 6508, 484, 11, 70, "Print",ExpressionUUID->"2e114a7d-e685-40fa-aaf1-65da1f61aab0"],
+Cell[238931, 6521, 2261, 56, 70, "Print",ExpressionUUID->"3494c501-099e-400d-95f1-9102e0dcea00"],
+Cell[241195, 6579, 833, 19, 70, "Print",ExpressionUUID->"e48dc9f0-4cd1-4f6d-8125-bc6207c37f31"],
+Cell[242031, 6600, 239, 4, 70, "Print",ExpressionUUID->"f913ad7c-5af1-49e6-991f-f788653a17b0"],
+Cell[242273, 6606, 1243, 29, 70, "Print",ExpressionUUID->"22fd9083-d253-44cc-b1d5-f55ad3d36e62"],
+Cell[243519, 6637, 484, 11, 70, "Print",ExpressionUUID->"06274b47-3701-4a73-861f-8b273a59eca0"],
+Cell[244006, 6650, 2248, 56, 70, "Print",ExpressionUUID->"546cd37e-5d88-4199-a461-a25a444db629"],
+Cell[246257, 6708, 836, 19, 70, "Print",ExpressionUUID->"1ac14c33-3666-49a6-84b5-b05ae325a89b"],
+Cell[247096, 6729, 239, 4, 70, "Print",ExpressionUUID->"89c56bf8-9cac-4803-8dcf-67115f99ec33"],
+Cell[247338, 6735, 1241, 29, 70, "Print",ExpressionUUID->"9a77f830-7231-42b1-ab93-1d3efa194ceb"],
+Cell[248582, 6766, 484, 11, 70, "Print",ExpressionUUID->"8e1fac5f-a431-4de2-8de6-0a4b7c702473"],
+Cell[249069, 6779, 2261, 56, 70, "Print",ExpressionUUID->"d8de70e6-fee4-40f0-8f45-f380a30b4ec9"],
+Cell[251333, 6837, 828, 19, 70, "Print",ExpressionUUID->"15af4581-dbd2-4519-a99b-62424ca94b41"],
+Cell[252164, 6858, 239, 4, 70, "Print",ExpressionUUID->"c7912f5d-a490-4479-a29b-4a3924c3e11c"],
+Cell[252406, 6864, 1243, 29, 70, "Print",ExpressionUUID->"187177e8-a919-4342-bcba-4be562a9b41c"],
+Cell[253652, 6895, 484, 11, 70, "Print",ExpressionUUID->"de59a9b7-06d5-4e78-bcf7-89ca895f9c6d"],
+Cell[254139, 6908, 2256, 56, 70, "Print",ExpressionUUID->"e7680037-583e-48ed-b933-8d7c6cd0ecab"],
+Cell[256398, 6966, 834, 19, 70, "Print",ExpressionUUID->"bdf21c64-8cb7-4d6a-b478-0078c0e2ae78"],
+Cell[257235, 6987, 239, 4, 70, "Print",ExpressionUUID->"5a9f2279-02de-493f-af40-c46417db42f2"],
+Cell[257477, 6993, 1242, 29, 70, "Print",ExpressionUUID->"93ff3854-9c9e-4925-8a76-cf005b49e4c1"],
+Cell[258722, 7024, 484, 11, 70, "Print",ExpressionUUID->"d747d0c8-abc8-4110-9e82-22e6b804a77d"],
+Cell[259209, 7037, 2261, 56, 70, "Print",ExpressionUUID->"da1c7d02-d4f0-42ad-bb31-1a197d5a5455"],
+Cell[261473, 7095, 833, 19, 70, "Print",ExpressionUUID->"1579a959-63ba-4396-9ff0-be777c13f73f"],
+Cell[262309, 7116, 239, 4, 70, "Print",ExpressionUUID->"e36759b7-0ef5-4a7f-bf5e-9182b9d2a182"],
+Cell[262551, 7122, 1243, 29, 70, "Print",ExpressionUUID->"141ceccf-74b9-4a6a-a2a4-15b79a477cf5"],
+Cell[263797, 7153, 490, 12, 70, "Print",ExpressionUUID->"d4b87258-9b06-4a7d-9fa3-e079cdef8b6e"],
+Cell[264290, 7167, 2261, 56, 70, "Print",ExpressionUUID->"883d9356-4b56-4b71-a806-ddbd96e2ce1b"],
+Cell[266554, 7225, 836, 19, 70, "Print",ExpressionUUID->"f14e760d-822b-477f-ba29-26bdde61c9ef"],
+Cell[267393, 7246, 239, 4, 70, "Print",ExpressionUUID->"8fd4a685-2c9e-42a1-9148-56b89a6993bf"],
+Cell[267635, 7252, 1243, 29, 70, "Print",ExpressionUUID->"f860bd33-4e16-4921-8cf3-c580845b8d8e"],
+Cell[268881, 7283, 482, 11, 70, "Print",ExpressionUUID->"01b81a01-d301-4258-b79f-31b50e88885d"],
+Cell[269366, 7296, 2261, 56, 70, "Print",ExpressionUUID->"558f0765-15fb-4c11-ad68-2fee4fdb8e78"],
+Cell[271630, 7354, 834, 19, 70, "Print",ExpressionUUID->"5974ac54-8d74-4066-ad91-9d757023251e"],
+Cell[272467, 7375, 238, 4, 70, "Print",ExpressionUUID->"1e1843ca-1a93-43e1-ae9d-808dd132dd09"],
+Cell[272708, 7381, 1245, 29, 70, "Print",ExpressionUUID->"bfa3815f-2ec3-41aa-a616-d7c60d046274"],
+Cell[273956, 7412, 466, 11, 70, "Print",ExpressionUUID->"77a89964-da84-474f-a788-edc4514f2ff1"],
+Cell[274425, 7425, 2267, 56, 70, "Print",ExpressionUUID->"f9c24438-2095-498a-b564-e2e01522f1b3"],
+Cell[276695, 7483, 836, 19, 70, "Print",ExpressionUUID->"bfbf2afc-c5b8-4009-8b53-a36ee4500696"],
+Cell[277534, 7504, 239, 4, 70, "Print",ExpressionUUID->"db634bed-c344-48e5-a713-d0026d9b6817"],
+Cell[277776, 7510, 1243, 29, 70, "Print",ExpressionUUID->"2ab06710-b5b5-4a11-8f10-55bffea289fd"],
+Cell[279022, 7541, 484, 11, 70, "Print",ExpressionUUID->"bd9b9f3c-cce6-4c0d-85ea-b8a282d1d264"],
+Cell[279509, 7554, 2271, 56, 70, "Print",ExpressionUUID->"3cec74bd-0ba4-4681-9eb5-00d551974601"],
+Cell[281783, 7612, 834, 19, 70, "Print",ExpressionUUID->"5651857c-24ec-4aaf-a10d-2cad77badf4f"],
+Cell[282620, 7633, 241, 4, 70, "Print",ExpressionUUID->"ab7d71ff-0f28-48b9-af41-d0ba3e2c0f99"],
+Cell[282864, 7639, 1242, 29, 70, "Print",ExpressionUUID->"b6eb2721-affa-4c70-8435-8aaafac1dfe8"],
+Cell[284109, 7670, 486, 11, 70, "Print",ExpressionUUID->"8ff575df-7dbe-4f41-a6b6-2d9e50e6ee13"],
+Cell[284598, 7683, 2269, 56, 70, "Print",ExpressionUUID->"e8c05d77-c858-490a-8ea4-d0abcd4a0650"],
+Cell[286870, 7741, 832, 19, 70, "Print",ExpressionUUID->"c4c2102c-369a-44cf-8f84-7b33e97ff6a4"],
+Cell[287705, 7762, 239, 4, 70, "Print",ExpressionUUID->"677b298a-2dce-41c1-8a91-38c06bb87d81"],
+Cell[287947, 7768, 1243, 29, 70, "Print",ExpressionUUID->"59b5ae48-342c-4e12-82b1-b22ee472bf24"],
+Cell[289193, 7799, 482, 11, 70, "Print",ExpressionUUID->"c7277698-37da-4a12-b78c-d4526962cb59"],
+Cell[289678, 7812, 2266, 56, 70, "Print",ExpressionUUID->"f331ab4a-764a-4deb-81ce-dca54a76ccae"],
+Cell[291947, 7870, 834, 19, 70, "Print",ExpressionUUID->"e00cd70a-06d4-4642-89fb-e50d661c1bb8"],
+Cell[292784, 7891, 239, 4, 70, "Print",ExpressionUUID->"23d30dcc-83c6-4ec9-809a-0dc730c99921"],
+Cell[293026, 7897, 1246, 29, 70, "Print",ExpressionUUID->"1a024aac-4e00-4fca-a34f-b965e6f2c313"],
+Cell[294275, 7928, 486, 11, 70, "Print",ExpressionUUID->"c4cb3afb-fc7b-4b9a-a5ee-bf474a535fa5"],
+Cell[294764, 7941, 2266, 56, 70, "Print",ExpressionUUID->"0e424522-aaf1-4add-aa52-a83d1a819f41"],
+Cell[297033, 7999, 834, 19, 70, "Print",ExpressionUUID->"8cf78b2b-166a-4a6d-8589-ad53a10ba289"],
+Cell[297870, 8020, 241, 4, 70, "Print",ExpressionUUID->"b56e9d01-91cd-4cd8-8cde-21ec583f2066"],
+Cell[298114, 8026, 1249, 29, 70, "Print",ExpressionUUID->"e5b463ee-c265-4fd0-9f4c-b093a7c31ad2"],
+Cell[299366, 8057, 484, 11, 70, "Print",ExpressionUUID->"4e3c9a96-29cf-4021-94ed-b32a4564fe75"],
+Cell[299853, 8070, 2263, 56, 70, "Print",ExpressionUUID->"c8ef1428-eb29-4ad0-83f2-2bb11a04cefa"],
+Cell[302119, 8128, 836, 19, 70, "Print",ExpressionUUID->"9d4565f2-3d84-4368-9eb4-6d8369c5ec9b"],
+Cell[302958, 8149, 239, 4, 70, "Print",ExpressionUUID->"34d3f74d-e21d-4f40-bd3a-34567d503138"],
+Cell[303200, 8155, 1244, 29, 70, "Print",ExpressionUUID->"10219fd2-331a-4c10-a7b9-81abdb341818"],
+Cell[304447, 8186, 484, 11, 70, "Print",ExpressionUUID->"d21ecb1c-65b3-4cd9-85e8-2ae54d853499"],
+Cell[304934, 8199, 2269, 56, 70, "Print",ExpressionUUID->"34224f9d-9b05-47a4-bb89-9f1eb049fd49"],
+Cell[307206, 8257, 834, 19, 70, "Print",ExpressionUUID->"794c97f0-7d31-49ba-8722-8e471e1fd213"],
+Cell[308043, 8278, 239, 4, 70, "Print",ExpressionUUID->"8c02ce05-f7b9-4bbd-944f-c8ce0601fabe"],
+Cell[308285, 8284, 1247, 29, 70, "Print",ExpressionUUID->"0858fb46-30f1-446f-9092-1231a98b6637"],
+Cell[309535, 8315, 481, 11, 70, "Print",ExpressionUUID->"cd0cf86a-5eb9-41b3-a3bf-09357ce52f7a"],
+Cell[310019, 8328, 2269, 56, 70, "Print",ExpressionUUID->"33a32ea7-b6ad-48de-bd0a-6ef805f95446"],
+Cell[312291, 8386, 836, 19, 70, "Print",ExpressionUUID->"ad95c674-7541-4328-a213-609c9cd6b58a"],
+Cell[313130, 8407, 239, 4, 70, "Print",ExpressionUUID->"f6185d43-7936-46aa-b169-a5f1a8c00284"],
+Cell[313372, 8413, 1246, 29, 70, "Print",ExpressionUUID->"76488873-1845-40fc-bbbc-4e75688b1d1c"],
+Cell[314621, 8444, 484, 11, 70, "Print",ExpressionUUID->"12e1548c-7a48-4faa-b67c-4095e8e5ffe7"],
+Cell[315108, 8457, 2263, 56, 70, "Print",ExpressionUUID->"7687b7ba-70cb-446b-ab7d-e5ebdf1c4163"],
+Cell[317374, 8515, 838, 19, 70, "Print",ExpressionUUID->"86d6810d-8250-429b-b10d-a49a8e323924"],
+Cell[318215, 8536, 241, 4, 70, "Print",ExpressionUUID->"8e2a17af-72a7-48cc-8909-eb4bd51e9262"],
+Cell[318459, 8542, 1247, 29, 70, "Print",ExpressionUUID->"071abe3e-c4ab-42fa-ac78-a43ae5788820"],
+Cell[319709, 8573, 484, 11, 70, "Print",ExpressionUUID->"2d292d36-4f59-4984-9663-1365933c3127"],
+Cell[320196, 8586, 2268, 56, 70, "Print",ExpressionUUID->"42b3d905-f9cf-479f-a861-d2aae2528bd8"],
+Cell[322467, 8644, 834, 19, 70, "Print",ExpressionUUID->"994fe935-cba7-4367-b455-a35aecf64873"],
+Cell[323304, 8665, 239, 4, 70, "Print",ExpressionUUID->"4583cca5-1eab-4ec7-b117-64f75147a494"],
+Cell[323546, 8671, 1248, 29, 70, "Print",ExpressionUUID->"b9075ff4-7fb0-4fce-9138-7e0d82659d6e"],
+Cell[324797, 8702, 484, 11, 70, "Print",ExpressionUUID->"4396e6b4-c686-4c46-9b7d-6d4b8b34881c"],
+Cell[325284, 8715, 2277, 56, 70, "Print",ExpressionUUID->"f9e3adb8-fba2-4022-9d66-586aed317a0e"],
+Cell[327564, 8773, 838, 19, 70, "Print",ExpressionUUID->"c1fb3839-d5d1-4199-b6d5-b386493eac58"],
+Cell[328405, 8794, 239, 4, 70, "Print",ExpressionUUID->"a9cc6b31-aacd-417e-8824-f3374b6e6abd"],
+Cell[328647, 8800, 1245, 29, 70, "Print",ExpressionUUID->"25532e88-5871-4530-aa49-e3ee3ac73e3f"],
+Cell[329895, 8831, 484, 11, 70, "Print",ExpressionUUID->"870413ad-c32f-4e9c-a508-3643d32125d1"],
+Cell[330382, 8844, 2272, 56, 70, "Print",ExpressionUUID->"adcec7c2-37a8-4e21-875a-44fd02b239ef"],
+Cell[332657, 8902, 834, 19, 70, "Print",ExpressionUUID->"97a301e3-411a-4d83-b97c-f501f258befd"],
+Cell[333494, 8923, 239, 4, 70, "Print",ExpressionUUID->"e6b9bf3f-6da5-4025-ac68-51a27627c15a"],
+Cell[333736, 8929, 1244, 29, 70, "Print",ExpressionUUID->"a0877e1c-c66b-4460-ac9b-0813300e4f61"],
+Cell[334983, 8960, 484, 11, 70, "Print",ExpressionUUID->"c23dc164-47b0-4d77-9fd2-c8dfc2a7f730"],
+Cell[335470, 8973, 2262, 56, 70, "Print",ExpressionUUID->"00028180-e452-4394-a354-518529367fee"],
+Cell[337735, 9031, 834, 19, 70, "Print",ExpressionUUID->"12b0b354-9a07-41af-98a2-7f5a7e9dd58f"],
+Cell[338572, 9052, 239, 4, 70, "Print",ExpressionUUID->"fad541a5-5606-4aa3-b066-e4547e871bdd"],
+Cell[338814, 9058, 1249, 29, 70, "Print",ExpressionUUID->"13d02f17-14fe-42f3-94cc-af0a10abf613"],
+Cell[340066, 9089, 484, 11, 70, "Print",ExpressionUUID->"fb49ab8c-a027-4e4d-a6fe-687366def7ac"],
+Cell[340553, 9102, 2263, 56, 70, "Print",ExpressionUUID->"73f672c1-81ef-4600-9096-89818bf6ea04"],
+Cell[342819, 9160, 834, 19, 70, "Print",ExpressionUUID->"c1e406a7-2058-4db2-8d3f-5eb1ebaef80e"],
+Cell[343656, 9181, 241, 4, 70, "Print",ExpressionUUID->"d6d9662f-0df2-4992-86b1-2f50785ee748"],
+Cell[343900, 9187, 1246, 29, 70, "Print",ExpressionUUID->"7f7a5397-40fd-4370-ae7e-a3551d36d345"],
+Cell[345149, 9218, 484, 11, 70, "Print",ExpressionUUID->"e2b5dc72-e4c9-4584-bdae-cd1d0560a219"],
+Cell[345636, 9231, 2265, 56, 70, "Print",ExpressionUUID->"c2be72ab-d86d-46a4-ae5b-457c311360cf"],
+Cell[347904, 9289, 836, 19, 70, "Print",ExpressionUUID->"0c92152b-90f6-4749-b21b-ba34f5907d1a"],
+Cell[348743, 9310, 239, 4, 70, "Print",ExpressionUUID->"56ae5eb9-f4d7-4e0a-8496-346db752e76d"],
+Cell[348985, 9316, 1245, 29, 70, "Print",ExpressionUUID->"c171c0b9-8db9-44cd-9078-5850a73c3d2b"],
+Cell[350233, 9347, 484, 11, 70, "Print",ExpressionUUID->"37abf6bf-bb5b-424c-8ae4-81ce9763c39c"],
+Cell[350720, 9360, 2266, 56, 70, "Print",ExpressionUUID->"6d54d121-62c2-4c15-8bda-484ec1224292"],
+Cell[352989, 9418, 836, 19, 70, "Print",ExpressionUUID->"e0c134b0-a247-484d-9c48-4c88153acea9"],
+Cell[353828, 9439, 239, 4, 70, "Print",ExpressionUUID->"ac36db69-fab9-4c4a-8e3c-8a4136ae9c75"],
+Cell[354070, 9445, 1243, 29, 70, "Print",ExpressionUUID->"c32ea398-811d-4877-ac24-664f10dfbc36"],
+Cell[355316, 9476, 484, 11, 70, "Print",ExpressionUUID->"90a853ac-95be-40f3-bd9e-a809b140fda6"],
+Cell[355803, 9489, 2272, 56, 70, "Print",ExpressionUUID->"0518cd35-3157-4840-8845-96de959bf7e8"],
+Cell[358078, 9547, 832, 19, 70, "Print",ExpressionUUID->"cf62441a-8ce8-473c-a676-4ec03ae38db7"],
+Cell[358913, 9568, 239, 4, 70, "Print",ExpressionUUID->"2c4cb8d6-a26c-4e3f-a246-1c4d913dbc86"],
+Cell[359155, 9574, 1249, 29, 70, "Print",ExpressionUUID->"885100fe-53ac-4b89-8842-44c827cd3563"],
+Cell[360407, 9605, 486, 11, 70, "Print",ExpressionUUID->"26488d23-0bc0-4b4f-9ce9-f8381c938eac"],
+Cell[360896, 9618, 2258, 56, 70, "Print",ExpressionUUID->"31170c81-0c69-49bc-8ab9-413e86487676"],
+Cell[363157, 9676, 838, 19, 70, "Print",ExpressionUUID->"63756f3d-a840-4b75-888a-77d76a994895"],
+Cell[363998, 9697, 239, 4, 70, "Print",ExpressionUUID->"f8f2009d-ebcd-40d8-af16-2fb8ace2b8b5"],
+Cell[364240, 9703, 1246, 29, 70, "Print",ExpressionUUID->"dca26f8f-442a-4e2a-ad88-9d7765b61442"],
+Cell[365489, 9734, 486, 11, 70, "Print",ExpressionUUID->"930bc9a6-db39-4557-ad3a-90f2220150b5"],
+Cell[365978, 9747, 2266, 56, 70, "Print",ExpressionUUID->"a6e6f9c1-2bc0-4705-b340-4e621aa48561"],
+Cell[368247, 9805, 836, 19, 70, "Print",ExpressionUUID->"4adc6c79-4f11-40d5-a8bc-b33fe3203a38"],
+Cell[369086, 9826, 241, 4, 70, "Print",ExpressionUUID->"ccec93ce-6b7a-486c-b4be-afb9f0869eac"],
+Cell[369330, 9832, 1244, 29, 70, "Print",ExpressionUUID->"cbd1d0af-9958-481f-8c83-5e7c59daa2d2"],
+Cell[370577, 9863, 484, 11, 70, "Print",ExpressionUUID->"243db4e0-4e24-476b-8bed-9fd94d818a74"],
+Cell[371064, 9876, 2267, 56, 70, "Print",ExpressionUUID->"90b071f8-f9c0-4cfd-8610-584f4d724390"],
+Cell[373334, 9934, 830, 19, 70, "Print",ExpressionUUID->"1e1fa63f-371a-45d9-ae98-db63b655a1cc"],
+Cell[374167, 9955, 239, 4, 70, "Print",ExpressionUUID->"863f11dc-0d21-4695-bd34-43e5f3701d5a"],
+Cell[374409, 9961, 1244, 29, 70, "Print",ExpressionUUID->"ebca2822-658d-4899-ac9b-e99c8d72dda4"],
+Cell[375656, 9992, 484, 11, 70, "Print",ExpressionUUID->"fa9db930-666f-4a86-9054-2608574477e4"],
+Cell[376143, 10005, 2266, 56, 70, "Print",ExpressionUUID->"ef70d9d6-1a80-43ed-83f5-9cb3291fda75"],
+Cell[378412, 10063, 832, 19, 70, "Print",ExpressionUUID->"0997c9f0-5b52-4528-ba11-f28d8b41fbce"],
+Cell[379247, 10084, 239, 4, 70, "Print",ExpressionUUID->"152ff8f8-f9c3-4cbd-b3cb-8a06cc0368a0"],
+Cell[379489, 10090, 1243, 29, 70, "Print",ExpressionUUID->"4eb2f223-c39d-4eae-af81-953144fbf4c6"],
+Cell[380735, 10121, 486, 11, 70, "Print",ExpressionUUID->"a7a8d5fc-9c99-4ce0-9adb-1ff1d37234bf"],
+Cell[381224, 10134, 2266, 56, 70, "Print",ExpressionUUID->"1246e333-2f3d-4f14-becf-7420f6947e2b"],
+Cell[383493, 10192, 836, 19, 70, "Print",ExpressionUUID->"df9bbab4-2b66-45f4-bb3b-846d140f0d25"],
+Cell[384332, 10213, 239, 4, 70, "Print",ExpressionUUID->"cb19c14b-c661-4590-8c52-87f777c1fbc9"],
+Cell[384574, 10219, 1245, 29, 70, "Print",ExpressionUUID->"241f38f6-e637-4b46-ab45-e410c1a8ef41"],
+Cell[385822, 10250, 484, 11, 70, "Print",ExpressionUUID->"57dcef4e-158e-4afe-b602-16c7aedaa695"],
+Cell[386309, 10263, 2266, 56, 70, "Print",ExpressionUUID->"8a4d0ead-22c5-48c1-8cda-4436025fe2cb"],
+Cell[388578, 10321, 838, 19, 70, "Print",ExpressionUUID->"f2fceae8-aea9-4206-b40f-6aae8230ce12"],
+Cell[389419, 10342, 239, 4, 70, "Print",ExpressionUUID->"a1585e57-e1d3-4203-82e7-357adc9226be"],
+Cell[389661, 10348, 1247, 29, 70, "Print",ExpressionUUID->"624d8539-051d-423a-ab3f-c5cf0aade193"],
+Cell[390911, 10379, 482, 11, 70, "Print",ExpressionUUID->"6e049461-8ab9-4318-816f-de9c775cea15"],
+Cell[391396, 10392, 2263, 56, 70, "Print",ExpressionUUID->"7d7c2979-8a1f-430b-a1ac-db9987e5c25d"],
+Cell[393662, 10450, 838, 19, 70, "Print",ExpressionUUID->"bd31bbcd-f2ea-437f-8ea2-9320bed123f3"],
+Cell[394503, 10471, 239, 4, 70, "Print",ExpressionUUID->"aae09dd3-6350-4d4f-9c55-6a7fa0b639de"],
+Cell[394745, 10477, 1247, 29, 70, "Print",ExpressionUUID->"03500180-2c74-47e4-a74f-799d582298c7"],
+Cell[395995, 10508, 486, 11, 70, "Print",ExpressionUUID->"ea1d58d1-57fd-421b-888b-47a80583bf79"],
+Cell[396484, 10521, 2259, 56, 70, "Print",ExpressionUUID->"437930b7-0b9a-4107-b872-2f7295b296b5"],
+Cell[398746, 10579, 836, 19, 70, "Print",ExpressionUUID->"b835f7bd-6983-4472-8604-6931ba9b2477"],
+Cell[399585, 10600, 241, 4, 70, "Print",ExpressionUUID->"cd8c51a9-2e4f-4432-a0d7-8165b12f7762"],
+Cell[399829, 10606, 1247, 29, 70, "Print",ExpressionUUID->"e91f6cc2-9743-4538-a447-f20bb90b17fa"],
+Cell[401079, 10637, 460, 11, 70, "Print",ExpressionUUID->"ffe16950-d4cd-4be6-bd00-bd5faaaa7039"],
+Cell[401542, 10650, 2263, 56, 70, "Print",ExpressionUUID->"c3dc5277-d9f6-48cd-a1b7-361dd052d22a"],
+Cell[403808, 10708, 836, 19, 70, "Print",ExpressionUUID->"12255a9b-7d9c-4366-8cbb-f19e53574935"],
+Cell[404647, 10729, 239, 4, 70, "Print",ExpressionUUID->"70b2f28b-3607-4411-aa54-fa78868f018e"],
+Cell[404889, 10735, 1249, 29, 70, "Print",ExpressionUUID->"bb0a2227-b060-464d-bac9-6a02dbe0cd50"],
+Cell[406141, 10766, 484, 11, 70, "Print",ExpressionUUID->"dad06ed8-e154-4b37-8990-bc40ae29f616"],
+Cell[406628, 10779, 2266, 56, 70, "Print",ExpressionUUID->"cc4c3237-5764-4e87-8d04-f3a1f1879946"],
+Cell[408897, 10837, 832, 19, 70, "Print",ExpressionUUID->"2830c846-46d5-4c60-8f85-34f56387069b"],
+Cell[409732, 10858, 239, 4, 70, "Print",ExpressionUUID->"60ddfba3-7efc-4998-b1c9-8e7122a3b3ad"],
+Cell[409974, 10864, 1246, 29, 70, "Print",ExpressionUUID->"f2453074-0404-4a6e-b35f-66faa3db2304"],
+Cell[411223, 10895, 484, 11, 70, "Print",ExpressionUUID->"9bf7ccf2-22f1-427f-aba2-8f6b7d7f1577"],
+Cell[411710, 10908, 2263, 56, 70, "Print",ExpressionUUID->"3030cb17-832b-4f7d-accd-df371eaebd56"],
+Cell[413976, 10966, 835, 19, 70, "Print",ExpressionUUID->"3ef9f85a-7080-4024-95ef-7d3c840c74cb"],
+Cell[414814, 10987, 239, 4, 70, "Print",ExpressionUUID->"0b95653d-b864-404d-bda0-c69d746ad5b8"],
+Cell[415056, 10993, 1245, 29, 70, "Print",ExpressionUUID->"d3a9bd58-3655-4c45-be33-79e05aff3c89"],
+Cell[416304, 11024, 474, 11, 70, "Print",ExpressionUUID->"59066fb0-3f90-4b27-98c3-04f0f5c1849a"],
+Cell[416781, 11037, 2261, 56, 70, "Print",ExpressionUUID->"952719ef-0e8d-4427-b483-f0447b7612fa"],
+Cell[419045, 11095, 834, 19, 70, "Print",ExpressionUUID->"8a860d13-6cb8-469a-8ada-0d265e5bb232"],
+Cell[419882, 11116, 239, 4, 70, "Print",ExpressionUUID->"d8419ab9-52b6-4817-8dcd-9de67d0d0e54"],
+Cell[420124, 11122, 1247, 29, 70, "Print",ExpressionUUID->"a1d1732b-e58c-428d-8d1c-7a2d02337513"],
+Cell[421374, 11153, 486, 11, 70, "Print",ExpressionUUID->"5f35bb8c-b7b2-42c7-99af-0ab0fd7c8767"],
+Cell[421863, 11166, 2263, 56, 70, "Print",ExpressionUUID->"758d04f7-818f-4b5f-8c1b-545ba1de8e26"],
+Cell[424129, 11224, 836, 19, 70, "Print",ExpressionUUID->"48baa0de-d4c6-47f8-9803-e09f65deaf73"],
+Cell[424968, 11245, 237, 4, 70, "Print",ExpressionUUID->"7cfa1581-c74f-4b4d-b554-76224d16ebcd"],
+Cell[425208, 11251, 1246, 29, 70, "Print",ExpressionUUID->"22e7cd68-8bc3-4fad-971c-b3d86c6c06a5"],
+Cell[426457, 11282, 484, 11, 70, "Print",ExpressionUUID->"01b0aac9-1d44-4418-b179-509da8748c6c"],
+Cell[426944, 11295, 2263, 56, 70, "Print",ExpressionUUID->"5789ab54-930f-4a67-bf82-021fa62ae869"],
+Cell[429210, 11353, 836, 19, 70, "Print",ExpressionUUID->"17ca8d56-9fb1-4757-b20a-f5e00065ae9d"],
+Cell[430049, 11374, 239, 4, 70, "Print",ExpressionUUID->"c6ff741f-a493-457e-ada4-c9751d8c3d4b"],
+Cell[430291, 11380, 1247, 29, 70, "Print",ExpressionUUID->"6670c8ad-d17d-4ff2-85a1-aa59b09f37a9"],
+Cell[431541, 11411, 490, 12, 70, "Print",ExpressionUUID->"5e73e45d-bbfb-450a-ae05-016d07d39907"],
+Cell[432034, 11425, 2268, 56, 70, "Print",ExpressionUUID->"3cf5e4fe-f5b8-4d26-81df-432e603e7031"],
+Cell[434305, 11483, 834, 19, 70, "Print",ExpressionUUID->"ce5fbe6b-fe1f-401c-aace-9687ce0146ca"],
+Cell[435142, 11504, 241, 4, 70, "Print",ExpressionUUID->"59f619ce-3d5d-461c-a8e1-6bf17be26e71"],
+Cell[435386, 11510, 1247, 29, 70, "Print",ExpressionUUID->"81a54262-d81c-4f87-9db9-fdb90b833abc"],
+Cell[436636, 11541, 490, 12, 70, "Print",ExpressionUUID->"e7a47d0a-eaf7-4258-b02b-3b78843c4949"],
+Cell[437129, 11555, 2263, 56, 70, "Print",ExpressionUUID->"46fd9c0f-ff27-4a57-b9ae-e6357886a2b6"],
+Cell[439395, 11613, 838, 19, 70, "Print",ExpressionUUID->"071d953e-0bf1-462e-b5ec-c7f817fef659"],
+Cell[440236, 11634, 238, 4, 70, "Print",ExpressionUUID->"66e01984-87d0-48e2-bb4f-733f24bf9086"],
+Cell[440477, 11640, 1244, 29, 70, "Print",ExpressionUUID->"2557ca56-e6f7-4a84-965a-10d555e15c49"],
+Cell[441724, 11671, 489, 12, 70, "Print",ExpressionUUID->"58322468-135c-4f1e-b181-ea75abf7c555"],
+Cell[442216, 11685, 2261, 56, 70, "Print",ExpressionUUID->"b841b86a-3d4d-4d07-9123-2ea6822faac0"],
+Cell[444480, 11743, 836, 19, 70, "Print",ExpressionUUID->"d89972ab-17a2-4684-a0ad-4625c75431b7"],
+Cell[445319, 11764, 239, 4, 70, "Print",ExpressionUUID->"0f8771f0-d61f-429d-810d-042b7736d9eb"],
+Cell[445561, 11770, 1247, 29, 70, "Print",ExpressionUUID->"73462437-e3b3-4a4a-b3b4-f7ebfb16e3d0"],
+Cell[446811, 11801, 490, 12, 70, "Print",ExpressionUUID->"1a9690ea-2ab2-44fa-a67a-a4dbcce71338"],
+Cell[447304, 11815, 2269, 56, 70, "Print",ExpressionUUID->"ce6876c5-c25f-4cc8-872f-3d7594f6a35c"],
+Cell[449576, 11873, 813, 18, 70, "Print",ExpressionUUID->"7b32159a-d781-4c41-b36e-cee798530153"],
+Cell[450392, 11893, 241, 4, 70, "Print",ExpressionUUID->"e7e37312-456b-4b11-8ec5-be89cd5e252e"],
+Cell[450636, 11899, 1246, 29, 70, "Print",ExpressionUUID->"7b292965-3836-415c-b64d-f1bb0f34deec"],
+Cell[451885, 11930, 490, 12, 70, "Print",ExpressionUUID->"689fe1c5-79ff-44ac-806a-2356424863c6"],
+Cell[452378, 11944, 2263, 56, 70, "Print",ExpressionUUID->"a8292541-fdb6-4b9b-959e-837ad88dd541"],
+Cell[454644, 12002, 834, 19, 70, "Print",ExpressionUUID->"ce828323-dcf6-4745-a57e-4976c6458787"],
+Cell[455481, 12023, 241, 4, 70, "Print",ExpressionUUID->"8643e536-6969-4f0c-93cf-e6da9097f5a3"],
+Cell[455725, 12029, 1248, 29, 70, "Print",ExpressionUUID->"607065a3-bf45-4d13-8343-029885c52d95"],
+Cell[456976, 12060, 490, 12, 70, "Print",ExpressionUUID->"d12d8dd5-6dbb-4543-99b2-cf78617ec39a"],
+Cell[457469, 12074, 2263, 56, 70, "Print",ExpressionUUID->"dc719073-7a5e-4625-913e-7e63dd8e6ea7"],
+Cell[459735, 12132, 837, 19, 70, "Print",ExpressionUUID->"2860fda4-6f51-4710-9cf3-8a14126b26f5"],
+Cell[460575, 12153, 241, 4, 70, "Print",ExpressionUUID->"519dd11c-03a0-4672-8c55-37afc4da5690"],
+Cell[460819, 12159, 1247, 29, 70, "Print",ExpressionUUID->"9dd08ccc-f611-4b3e-9b0c-f99e16fe1eee"],
+Cell[462069, 12190, 489, 12, 70, "Print",ExpressionUUID->"f8337edf-04cb-4aeb-95f1-dd570654ad1e"],
+Cell[462561, 12204, 2265, 56, 70, "Print",ExpressionUUID->"5775c058-b8b8-43a7-997d-77e772453bfb"],
+Cell[464829, 12262, 836, 19, 70, "Print",ExpressionUUID->"0f555b6a-c55e-416f-bc77-351c2ffd8b56"],
+Cell[465668, 12283, 239, 4, 70, "Print",ExpressionUUID->"29c3d3c4-8c0c-445f-89fa-966caf442daa"],
+Cell[465910, 12289, 1247, 29, 70, "Print",ExpressionUUID->"03f3f5aa-618b-498d-bd81-7ffd69732c04"],
+Cell[467160, 12320, 490, 12, 70, "Print",ExpressionUUID->"953082c2-5572-43e2-9ff6-671801a1ba9f"],
+Cell[467653, 12334, 2262, 56, 70, "Print",ExpressionUUID->"9a11ab30-c911-46f1-80e8-b16fdbe0d862"],
+Cell[469918, 12392, 834, 19, 70, "Print",ExpressionUUID->"9b58aebd-680f-4145-8798-c3ae04064c13"],
+Cell[470755, 12413, 241, 4, 70, "Print",ExpressionUUID->"b189e543-e746-446b-8721-eaa14c6a55ab"],
+Cell[470999, 12419, 1247, 29, 70, "Print",ExpressionUUID->"fa425807-82e6-4dbd-886e-2aa3ec9c87ec"],
+Cell[472249, 12450, 486, 11, 70, "Print",ExpressionUUID->"9500183d-1b7c-41c7-b249-c040a359e7f1"],
+Cell[472738, 12463, 2263, 56, 70, "Print",ExpressionUUID->"eb9df199-df9d-4ef0-a840-3f0455697218"],
+Cell[475004, 12521, 836, 19, 70, "Print",ExpressionUUID->"9ad95d34-210a-4be8-836c-fe820a72fc71"],
+Cell[475843, 12542, 241, 4, 70, "Print",ExpressionUUID->"7ecbda30-306b-4666-a33b-4c4712b4fc57"],
+Cell[476087, 12548, 1247, 29, 70, "Print",ExpressionUUID->"1dfe6795-96d5-4846-a29a-703b400dc174"],
+Cell[477337, 12579, 490, 12, 70, "Print",ExpressionUUID->"9bd9191c-53c4-4e7f-923c-3fea9d18acd4"],
+Cell[477830, 12593, 2263, 56, 70, "Print",ExpressionUUID->"e69cf388-4443-47b4-b2fc-a52756a2ce16"],
+Cell[480096, 12651, 834, 19, 70, "Print",ExpressionUUID->"907842a1-1ab8-47cd-a5cf-cc9ca62b6400"],
+Cell[480933, 12672, 239, 4, 70, "Print",ExpressionUUID->"5790939d-3e9a-4226-8674-62bd06029aa2"],
+Cell[481175, 12678, 1246, 29, 70, "Print",ExpressionUUID->"8a26fa47-5607-4804-8e5d-ba23ad61a3d9"],
+Cell[482424, 12709, 492, 12, 70, "Print",ExpressionUUID->"e9bccd57-4ba2-4e7c-acf6-2febbbe9d8a4"],
+Cell[482919, 12723, 2263, 56, 70, "Print",ExpressionUUID->"64fdd57a-7388-4fc5-860d-d926d1a9fddb"],
+Cell[485185, 12781, 836, 19, 70, "Print",ExpressionUUID->"9763b1ec-451d-40ad-b072-bd6d0c55cae1"],
+Cell[486024, 12802, 239, 4, 70, "Print",ExpressionUUID->"60165c10-267e-4974-a809-8d691a6a61d6"],
+Cell[486266, 12808, 1246, 29, 70, "Print",ExpressionUUID->"49f0de69-5e03-4942-8b82-1ef43f2a84cd"],
+Cell[487515, 12839, 492, 12, 70, "Print",ExpressionUUID->"97e5f231-f4ff-4b22-b6ef-015c2a2a294b"],
+Cell[488010, 12853, 2263, 56, 70, "Print",ExpressionUUID->"e57b4991-c450-470f-9da5-21730b0d53f3"],
+Cell[490276, 12911, 834, 19, 70, "Print",ExpressionUUID->"23e04291-c668-440c-bc4e-d90abecbd353"],
+Cell[491113, 12932, 239, 4, 70, "Print",ExpressionUUID->"6489e4c0-7e12-47ad-877b-7538f37c202c"],
+Cell[491355, 12938, 1248, 29, 70, "Print",ExpressionUUID->"95381391-9122-4086-84dc-4c8c080a749d"],
+Cell[492606, 12969, 490, 12, 70, "Print",ExpressionUUID->"74d0dd35-911e-44c8-bb6a-b4c85373c81a"],
+Cell[493099, 12983, 2263, 56, 70, "Print",ExpressionUUID->"0575132d-c8cb-445f-8fba-284cb2b87024"],
+Cell[495365, 13041, 838, 19, 70, "Print",ExpressionUUID->"adb5559c-b209-4062-83c9-5c869a56f6c8"],
+Cell[496206, 13062, 238, 4, 70, "Print",ExpressionUUID->"9e866bc4-6fab-424a-86d7-d30704220106"],
+Cell[496447, 13068, 1247, 29, 70, "Print",ExpressionUUID->"67f35bfd-350a-4e93-be87-1a1ca1c9b386"],
+Cell[497697, 13099, 490, 12, 70, "Print",ExpressionUUID->"9d548cab-4d73-4eb8-8c5c-3c1435bc3cd4"],
+Cell[498190, 13113, 2259, 56, 70, "Print",ExpressionUUID->"91496764-fb82-4fed-a999-14781d8ddaea"],
+Cell[500452, 13171, 834, 19, 70, "Print",ExpressionUUID->"8afd6fc0-4282-47cb-945b-340cc25fedf1"],
+Cell[501289, 13192, 239, 4, 70, "Print",ExpressionUUID->"243103c3-9d39-4843-8481-8f4b48b2d669"],
+Cell[501531, 13198, 1246, 29, 70, "Print",ExpressionUUID->"ea2c482b-3c9c-4d2c-903e-4cfe64293085"],
+Cell[502780, 13229, 486, 11, 70, "Print",ExpressionUUID->"2b2a4c27-a555-4995-b95f-d67903e2fcc1"],
+Cell[503269, 13242, 2259, 56, 70, "Print",ExpressionUUID->"6686b9f5-50f7-480f-bc34-ea10425a3ae7"],
+Cell[505531, 13300, 840, 19, 70, "Print",ExpressionUUID->"ecd3ccec-bf6f-4ff4-abfa-2a4203879fab"],
+Cell[506374, 13321, 239, 4, 70, "Print",ExpressionUUID->"e8fb66e2-96a2-44f8-9166-3d8fb8f9932e"],
+Cell[506616, 13327, 1246, 29, 70, "Print",ExpressionUUID->"638adbb5-3f17-4216-8a91-5541d085e9ea"],
+Cell[507865, 13358, 490, 12, 70, "Print",ExpressionUUID->"738834b4-4d35-42be-956f-7367b51480c1"],
+Cell[508358, 13372, 2263, 56, 70, "Print",ExpressionUUID->"6ef0c1af-d916-483f-bb0e-671b760f581b"],
+Cell[510624, 13430, 836, 19, 70, "Print",ExpressionUUID->"256364b9-14f5-4d74-961f-1570662e21fb"],
+Cell[511463, 13451, 241, 4, 70, "Print",ExpressionUUID->"0bff2f23-78de-46f7-b6fd-5709cb524b42"],
+Cell[511707, 13457, 1246, 29, 70, "Print",ExpressionUUID->"aba953b8-4618-4c0d-b503-436a0ac59697"],
+Cell[512956, 13488, 490, 12, 70, "Print",ExpressionUUID->"91716b3f-79aa-4d56-ae2d-c00c369c2850"],
+Cell[513449, 13502, 2263, 56, 70, "Print",ExpressionUUID->"1e829729-1df8-4365-b323-e9724a26e35f"],
+Cell[515715, 13560, 836, 19, 70, "Print",ExpressionUUID->"d401ca0c-c74a-4461-ac96-fd97c2467801"],
+Cell[516554, 13581, 239, 4, 70, "Print",ExpressionUUID->"d4a67a76-6b15-4432-ac95-2571b56849dd"],
+Cell[516796, 13587, 1246, 29, 70, "Print",ExpressionUUID->"0de435d0-0490-48d2-87cb-383bb669c4f2"],
+Cell[518045, 13618, 490, 12, 70, "Print",ExpressionUUID->"1ad91b39-9b34-49f0-b533-725463ae7f12"],
+Cell[518538, 13632, 2263, 56, 70, "Print",ExpressionUUID->"5977b943-9d72-4dbc-b78b-68a9470dfd11"],
+Cell[520804, 13690, 840, 19, 70, "Print",ExpressionUUID->"13ed0b1f-d321-44ca-b360-6011ab2de075"],
+Cell[521647, 13711, 241, 4, 70, "Print",ExpressionUUID->"67ff1dda-e711-4f59-92c6-f5a3321e129e"],
+Cell[521891, 13717, 1249, 29, 70, "Print",ExpressionUUID->"cc6c3494-3d0c-4bef-9a8a-b36e3b599b24"],
+Cell[523143, 13748, 490, 12, 70, "Print",ExpressionUUID->"b14e5fd2-8bf7-4e8e-bc87-a75ed4a4114b"],
+Cell[523636, 13762, 2263, 56, 70, "Print",ExpressionUUID->"96e0f4da-eb72-46a1-b03f-b67cba97449b"],
+Cell[525902, 13820, 834, 19, 70, "Print",ExpressionUUID->"d9287d20-0e0b-4e4c-8554-d575aaf15739"],
+Cell[526739, 13841, 239, 4, 70, "Print",ExpressionUUID->"cafcff0e-9d34-4f34-894a-2f15f32388ad"],
+Cell[526981, 13847, 1248, 29, 70, "Print",ExpressionUUID->"76f9e8a6-fe68-4795-b2a0-4d245a3bd4c7"],
+Cell[528232, 13878, 489, 12, 70, "Print",ExpressionUUID->"82a72115-f980-4026-aa1f-11dde59f6eb4"],
+Cell[528724, 13892, 2263, 56, 70, "Print",ExpressionUUID->"e46eb5c4-ce80-4dad-bc68-4ad86e866bc1"],
+Cell[530990, 13950, 838, 19, 70, "Print",ExpressionUUID->"6b0266a7-d440-4df9-98c5-9033b4d6a63f"],
+Cell[531831, 13971, 239, 4, 70, "Print",ExpressionUUID->"b3e8f517-0b19-4998-995e-9ec0b1674d77"],
+Cell[532073, 13977, 1247, 29, 70, "Print",ExpressionUUID->"eed80122-c0ae-400f-8b77-06a166122918"],
+Cell[533323, 14008, 490, 12, 70, "Print",ExpressionUUID->"e3d0318f-1780-49c8-8d68-8edc0751ee64"],
+Cell[533816, 14022, 2263, 56, 70, "Print",ExpressionUUID->"9aa6896b-a18a-4723-9fac-4643e317be6e"],
+Cell[536082, 14080, 815, 18, 70, "Print",ExpressionUUID->"0bbf94e2-166a-4536-a0e1-27054e430195"],
+Cell[536900, 14100, 239, 4, 70, "Print",ExpressionUUID->"39684e04-c54e-4fc7-a827-6ed4e78c733d"],
+Cell[537142, 14106, 1243, 29, 70, "Print",ExpressionUUID->"2e1efed3-be0e-421a-ae4a-bed8bc11562a"],
+Cell[538388, 14137, 490, 12, 70, "Print",ExpressionUUID->"7a643a1e-b729-4f94-989a-32f46a3cd491"],
+Cell[538881, 14151, 2259, 56, 70, "Print",ExpressionUUID->"55d2fb5f-6bc7-4fbd-9a5d-2e36d59e1d38"],
+Cell[541143, 14209, 832, 19, 70, "Print",ExpressionUUID->"bb6c09e0-cde9-4e44-958f-4d57beda4cf1"],
+Cell[541978, 14230, 239, 4, 70, "Print",ExpressionUUID->"9f446963-39c4-4df6-9192-b3d38014a23a"],
+Cell[542220, 14236, 1246, 29, 70, "Print",ExpressionUUID->"d5ec2336-d2b1-49ed-8cf9-e46f58d05d57"],
+Cell[543469, 14267, 490, 12, 70, "Print",ExpressionUUID->"aa6379c3-03c5-443c-bef3-256b10fd03a7"],
+Cell[543962, 14281, 2261, 56, 70, "Print",ExpressionUUID->"3160caf0-e168-4328-94ed-cc3b35d869ba"],
+Cell[546226, 14339, 834, 19, 70, "Print",ExpressionUUID->"f4d41b27-e4b1-4000-be91-993bb9198e80"],
+Cell[547063, 14360, 239, 4, 70, "Print",ExpressionUUID->"6aa7c578-027d-470a-a7e9-daa9adcf252c"],
+Cell[547305, 14366, 1246, 29, 70, "Print",ExpressionUUID->"5b77c32a-d165-4829-891a-a4117d1021f0"],
+Cell[548554, 14397, 490, 12, 70, "Print",ExpressionUUID->"bb1df350-7707-438f-8ac3-7bed75fb8beb"],
+Cell[549047, 14411, 2263, 56, 70, "Print",ExpressionUUID->"27c9c023-1fd2-413b-8157-ff422e522c6e"],
+Cell[551313, 14469, 838, 19, 70, "Print",ExpressionUUID->"2f8504ad-d81d-4adf-82eb-d72f4a2a0ab6"],
+Cell[552154, 14490, 239, 4, 70, "Print",ExpressionUUID->"38390dc4-805c-4e8d-a8bf-fc5b934582d4"],
+Cell[552396, 14496, 1243, 29, 70, "Print",ExpressionUUID->"3dea0df2-c53d-4c8f-907a-5b37cad3453e"],
+Cell[553642, 14527, 486, 11, 70, "Print",ExpressionUUID->"1a09ed1b-8a32-4b4a-b02a-1c0bb2d7c491"],
+Cell[554131, 14540, 2269, 56, 70, "Print",ExpressionUUID->"f1b8bd2b-0a8e-4ea9-addf-f1615b353eff"],
+Cell[556403, 14598, 838, 19, 70, "Print",ExpressionUUID->"324f09ba-4b13-4220-a97f-e970644f7a73"],
+Cell[557244, 14619, 241, 4, 70, "Print",ExpressionUUID->"0bd124e8-29fd-4fd7-b163-fa7f346cee77"],
+Cell[557488, 14625, 1245, 29, 70, "Print",ExpressionUUID->"3a9960cf-27d8-4cb7-b151-20c0b1270bec"],
+Cell[558736, 14656, 490, 12, 70, "Print",ExpressionUUID->"80923af9-45dc-425e-a85c-5c566e7b6a6b"],
+Cell[559229, 14670, 2267, 56, 70, "Print",ExpressionUUID->"2e94ba09-a09c-45fb-96ec-e01a43510d98"],
+Cell[561499, 14728, 838, 19, 70, "Print",ExpressionUUID->"f6bd7cac-ff51-49c3-b47c-6380ead2adcd"],
+Cell[562340, 14749, 239, 4, 70, "Print",ExpressionUUID->"b8258aa8-8cad-4a45-bd95-b9fd0a8bf90d"],
+Cell[562582, 14755, 1246, 29, 70, "Print",ExpressionUUID->"cd048507-b6cd-4130-bf7e-377c0b368b30"],
+Cell[563831, 14786, 490, 12, 70, "Print",ExpressionUUID->"6388fd3f-29bf-4c9d-8367-847073eec5e9"],
+Cell[564324, 14800, 2265, 56, 70, "Print",ExpressionUUID->"447e7bf9-37c6-4da3-96b4-61923a30c314"],
+Cell[566592, 14858, 832, 19, 70, "Print",ExpressionUUID->"3bd2ef56-19e4-4676-99f0-0b6ca52e839c"],
+Cell[567427, 14879, 239, 4, 70, "Print",ExpressionUUID->"75397881-2392-4bbf-84fa-a23ca93b016d"],
+Cell[567669, 14885, 1248, 29, 70, "Print",ExpressionUUID->"749e0106-0166-4247-a983-9ee3b5fea6f3"],
+Cell[568920, 14916, 489, 12, 70, "Print",ExpressionUUID->"f6db08a0-7085-46be-b657-e9782dbaa95f"],
+Cell[569412, 14930, 2269, 56, 70, "Print",ExpressionUUID->"a3608b85-157c-437b-ad15-d40af3c1defb"],
+Cell[571684, 14988, 838, 19, 70, "Print",ExpressionUUID->"ca095d97-aeb7-4d6d-a3fd-d49196ce435e"],
+Cell[572525, 15009, 239, 4, 70, "Print",ExpressionUUID->"8afff9ba-54f8-444e-88b2-4dba76490823"],
+Cell[572767, 15015, 1248, 29, 70, "Print",ExpressionUUID->"388d7836-fe39-4903-8f35-708519cf714f"],
+Cell[574018, 15046, 489, 12, 70, "Print",ExpressionUUID->"f1a772c4-7017-4676-ba4d-c37ab34db620"],
+Cell[574510, 15060, 2271, 56, 70, "Print",ExpressionUUID->"5c94f1a6-e1cc-4fbb-add6-e35857ebe546"],
+Cell[576784, 15118, 811, 18, 70, "Print",ExpressionUUID->"13943621-44c9-454d-8791-c3ad2a4c86bb"],
+Cell[577598, 15138, 239, 4, 70, "Print",ExpressionUUID->"30b531e2-e09b-4fa9-9c24-02a1c4717a50"],
+Cell[577840, 15144, 1248, 29, 70, "Print",ExpressionUUID->"aaa18800-d888-41f1-b3e8-1f815a0a5da4"],
+Cell[579091, 15175, 469, 11, 70, "Print",ExpressionUUID->"74b04c5e-320c-44d9-8c7e-3649f2ead2aa"],
+Cell[579563, 15188, 2271, 56, 70, "Print",ExpressionUUID->"8c70d692-d013-4fe5-9e29-63a889d77812"],
+Cell[581837, 15246, 836, 19, 70, "Print",ExpressionUUID->"897a2bc3-08c9-40ae-a8d2-7cba69f4ca08"],
+Cell[582676, 15267, 241, 4, 70, "Print",ExpressionUUID->"e734434c-59ef-4984-a876-0ed238039ea4"],
+Cell[582920, 15273, 1249, 29, 70, "Print",ExpressionUUID->"55d612ef-9d43-4d3a-8d64-a90410685b34"],
+Cell[584172, 15304, 490, 12, 70, "Print",ExpressionUUID->"c9424817-7f05-4e2d-b9aa-9c09972b5e9c"],
+Cell[584665, 15318, 2269, 56, 70, "Print",ExpressionUUID->"ad3dab4c-d792-4908-864c-d54b450452b8"],
+Cell[586937, 15376, 834, 19, 70, "Print",ExpressionUUID->"496cdfee-a075-4f4c-b2af-6091777f9c9e"],
+Cell[587774, 15397, 239, 4, 70, "Print",ExpressionUUID->"45195f2b-1687-4cbf-a94f-1d6d9657dcb0"],
+Cell[588016, 15403, 1247, 29, 70, "Print",ExpressionUUID->"10ce226c-70a3-44e4-92e1-7a8fea40fa1e"],
+Cell[589266, 15434, 492, 12, 70, "Print",ExpressionUUID->"4aa34a7f-6b5f-4243-9416-daf7f6d943a4"],
+Cell[589761, 15448, 2268, 56, 70, "Print",ExpressionUUID->"6d45ab4a-3017-4b42-9f6b-237be7280cbd"],
+Cell[592032, 15506, 840, 19, 70, "Print",ExpressionUUID->"7b3d6b90-201f-4fd5-b453-0658d0775acf"],
+Cell[592875, 15527, 239, 4, 70, "Print",ExpressionUUID->"f9b2ef8c-c3f8-494e-a5b4-799560928c66"],
+Cell[593117, 15533, 1248, 29, 70, "Print",ExpressionUUID->"a700d899-bc6e-4514-831c-0330affd0c4b"],
+Cell[594368, 15564, 490, 12, 70, "Print",ExpressionUUID->"499fd5f4-ffee-46be-b4f4-ce04d49c3588"],
+Cell[594861, 15578, 2271, 56, 70, "Print",ExpressionUUID->"13e9a373-340c-4407-8ff6-b4d5daa65075"],
+Cell[597135, 15636, 834, 19, 70, "Print",ExpressionUUID->"46f9b31b-c2aa-468b-82e4-b35541fca63e"],
+Cell[597972, 15657, 239, 4, 70, "Print",ExpressionUUID->"b56f9810-1b3e-4841-9708-ddaf957aaef4"],
+Cell[598214, 15663, 1246, 29, 70, "Print",ExpressionUUID->"9b51c6d2-c3fc-4b28-a68e-3fdf900e54b2"],
+Cell[599463, 15694, 484, 11, 70, "Print",ExpressionUUID->"988be67c-29e6-413b-a8a6-b5ab71f701a1"],
+Cell[599950, 15707, 2269, 56, 70, "Print",ExpressionUUID->"094d6588-73b8-4a27-af3b-900e4c4ce922"],
+Cell[602222, 15765, 832, 19, 70, "Print",ExpressionUUID->"559c97f8-2e9b-45f1-9962-fc8fbbac327d"],
+Cell[603057, 15786, 239, 4, 70, "Print",ExpressionUUID->"718bad13-8339-4b12-97e7-44e498be0e31"],
+Cell[603299, 15792, 1249, 29, 70, "Print",ExpressionUUID->"71a03849-9cc8-4b0d-ba91-9206f915ea9f"],
+Cell[604551, 15823, 490, 12, 70, "Print",ExpressionUUID->"186fc374-2771-4696-bdf4-e55399999a41"],
+Cell[605044, 15837, 2269, 56, 70, "Print",ExpressionUUID->"6fc98708-6e68-4b7a-83bf-801fdc4071fa"],
+Cell[607316, 15895, 834, 19, 70, "Print",ExpressionUUID->"275b227f-470e-4ba4-9e9d-195736dc3fac"],
+Cell[608153, 15916, 241, 4, 70, "Print",ExpressionUUID->"07c10ec0-1a5b-46c9-8292-c5c653fdc998"],
+Cell[608397, 15922, 1250, 29, 70, "Print",ExpressionUUID->"f814e990-660b-4426-b181-548ce484cddb"],
+Cell[609650, 15953, 489, 12, 70, "Print",ExpressionUUID->"e17260ae-b43b-40e0-a6c7-7ccdde3f00cd"],
+Cell[610142, 15967, 2269, 56, 70, "Print",ExpressionUUID->"3d834568-bc00-4f23-ae00-0990b7402e5e"],
+Cell[612414, 16025, 828, 19, 70, "Print",ExpressionUUID->"098e7401-3ac7-4672-9129-4ab21e753254"],
+Cell[613245, 16046, 239, 4, 70, "Print",ExpressionUUID->"407689a4-c6f1-4862-a08d-e223848aa11c"],
+Cell[613487, 16052, 1247, 29, 70, "Print",ExpressionUUID->"9952fcbc-82ec-43b0-8023-110117d755a4"],
+Cell[614737, 16083, 490, 12, 70, "Print",ExpressionUUID->"9fd101ee-90ac-4285-9110-68f5b60c68b5"],
+Cell[615230, 16097, 2269, 56, 70, "Print",ExpressionUUID->"e1ea6ea2-8fa5-4b10-a431-ceda86293d51"],
+Cell[617502, 16155, 838, 19, 70, "Print",ExpressionUUID->"fd7762cd-c770-4bd2-8b0c-d772dde2437e"],
+Cell[618343, 16176, 239, 4, 70, "Print",ExpressionUUID->"cb2177ec-e1f7-47d0-937f-e8a5df23ee21"],
+Cell[618585, 16182, 1248, 29, 70, "Print",ExpressionUUID->"56a36336-fde3-4608-94a7-c63326662a5e"],
+Cell[619836, 16213, 486, 11, 70, "Print",ExpressionUUID->"30739532-f1f6-4431-81f3-c27a1023a90c"],
+Cell[620325, 16226, 2269, 56, 70, "Print",ExpressionUUID->"8fd64e7f-bb45-47c7-ad81-202a48799407"],
+Cell[622597, 16284, 836, 19, 70, "Print",ExpressionUUID->"20cdab9f-96da-4744-bb93-8b70038ef358"],
+Cell[623436, 16305, 239, 4, 70, "Print",ExpressionUUID->"5f112382-df5c-4479-bb50-666fac722960"],
+Cell[623678, 16311, 1249, 29, 70, "Print",ExpressionUUID->"8c4463c7-a7fc-4789-b9e1-a22e3cf9ca72"],
+Cell[624930, 16342, 483, 11, 70, "Print",ExpressionUUID->"5ad011e3-1ef3-419d-83c5-cb160d51ec4c"],
+Cell[625416, 16355, 2269, 56, 70, "Print",ExpressionUUID->"f479392c-8251-498c-a917-01fddfccb79b"],
+Cell[627688, 16413, 817, 18, 70, "Print",ExpressionUUID->"cf38b2d3-376c-45da-8ec7-c63daef932dc"],
+Cell[628508, 16433, 239, 4, 70, "Print",ExpressionUUID->"84f6927b-e34e-4eaf-a0b8-46b7b15950e4"],
+Cell[628750, 16439, 1249, 29, 70, "Print",ExpressionUUID->"fa7816a4-db3f-4119-bd9a-22d3dded1648"],
+Cell[630002, 16470, 490, 12, 70, "Print",ExpressionUUID->"ff2aec10-ea9c-405a-b2d0-ee83329963fa"],
+Cell[630495, 16484, 2271, 56, 70, "Print",ExpressionUUID->"e2ebd718-177e-40ca-83ae-86a567381b75"],
+Cell[632769, 16542, 834, 19, 70, "Print",ExpressionUUID->"13c4940f-7f89-4ae2-8809-9b952305f91a"],
+Cell[633606, 16563, 241, 4, 70, "Print",ExpressionUUID->"dc818708-6094-433a-9837-93f6daf26e29"],
+Cell[633850, 16569, 1248, 29, 70, "Print",ExpressionUUID->"31cacc7c-cc4d-428f-9954-d577f196a0ce"],
+Cell[635101, 16600, 482, 11, 70, "Print",ExpressionUUID->"18c449ce-5c0e-4d07-ad6f-482088da349c"],
+Cell[635586, 16613, 2271, 56, 70, "Print",ExpressionUUID->"6151ee65-fa62-42a4-84c3-9b7d4be5b460"],
+Cell[637860, 16671, 834, 19, 70, "Print",ExpressionUUID->"31ade8bf-693d-4512-ad3f-61c0a0102ab6"],
+Cell[638697, 16692, 239, 4, 70, "Print",ExpressionUUID->"cf3a2cd5-253f-44b1-bc29-9f15a3e5cbce"],
+Cell[638939, 16698, 1247, 29, 70, "Print",ExpressionUUID->"05a5e07e-fdbb-4365-99ec-7d94cbf235b1"],
+Cell[640189, 16729, 490, 12, 70, "Print",ExpressionUUID->"2819ff6c-e37d-42da-9e45-978082a40ab1"],
+Cell[640682, 16743, 2272, 56, 70, "Print",ExpressionUUID->"217c2a3e-1fe1-4415-ad4a-f29da73b21a9"],
+Cell[642957, 16801, 836, 19, 70, "Print",ExpressionUUID->"58856342-5200-41ff-bf1c-93448951c1b1"],
+Cell[643796, 16822, 239, 4, 70, "Print",ExpressionUUID->"6d02ba6d-11bd-429d-a4fc-301e4dc44394"],
+Cell[644038, 16828, 1246, 29, 70, "Print",ExpressionUUID->"924ba63a-a608-435d-b2fa-77d24536f759"],
+Cell[645287, 16859, 492, 12, 70, "Print",ExpressionUUID->"9691bd2c-99be-401f-b719-f67d079e7647"],
+Cell[645782, 16873, 2274, 56, 70, "Print",ExpressionUUID->"097159ad-9934-4a51-8e10-353615a1db99"],
+Cell[648059, 16931, 836, 19, 70, "Print",ExpressionUUID->"844cc629-f604-4de4-aa31-76e33ed31819"],
+Cell[648898, 16952, 239, 4, 70, "Print",ExpressionUUID->"c6b37652-42ef-4223-8897-170ee85fd51e"],
+Cell[649140, 16958, 1249, 29, 70, "Print",ExpressionUUID->"2a8638ac-5352-4185-8c80-cde13cef1de5"],
+Cell[650392, 16989, 492, 12, 70, "Print",ExpressionUUID->"b41fde67-91e1-4a51-9f35-c12282824f69"],
+Cell[650887, 17003, 2272, 56, 70, "Print",ExpressionUUID->"5065eebd-a3b8-4847-a33b-d1479ed6a387"],
+Cell[653162, 17061, 819, 18, 70, "Print",ExpressionUUID->"e2ab3da5-e115-4fb3-a08d-0469714d2045"],
+Cell[653984, 17081, 241, 4, 70, "Print",ExpressionUUID->"0f3ce07d-d00b-406e-aab3-dc77fbae1fc0"],
+Cell[654228, 17087, 1250, 29, 70, "Print",ExpressionUUID->"982f9488-3677-4eed-9c58-0a94e41ee11b"],
+Cell[655481, 17118, 492, 12, 70, "Print",ExpressionUUID->"591b2c9d-3301-4ab3-bdf2-dc8856237e92"],
+Cell[655976, 17132, 2275, 56, 70, "Print",ExpressionUUID->"e3442c85-56ba-447f-b7d1-a83d4d94f1a9"],
+Cell[658254, 17190, 834, 19, 70, "Print",ExpressionUUID->"1286031f-9388-4ac0-968d-00ada20f064f"],
+Cell[659091, 17211, 241, 4, 70, "Print",ExpressionUUID->"93fcf523-62b0-4cd3-9f27-80320c685c04"],
+Cell[659335, 17217, 1250, 29, 70, "Print",ExpressionUUID->"c79bee69-2eb7-475d-ba0d-77266e45b827"],
+Cell[660588, 17248, 490, 12, 70, "Print",ExpressionUUID->"da75ae05-b0d3-4790-8eb3-ebacee6334fb"],
+Cell[661081, 17262, 2271, 56, 70, "Print",ExpressionUUID->"a8227982-4cdb-45c5-b15b-ed516a383eff"],
+Cell[663355, 17320, 832, 19, 70, "Print",ExpressionUUID->"3165ad9f-29b2-46aa-a7da-2647041397ff"],
+Cell[664190, 17341, 239, 4, 70, "Print",ExpressionUUID->"e1d18c84-5504-4a47-bc10-36bf409e6aec"],
+Cell[664432, 17347, 1247, 29, 70, "Print",ExpressionUUID->"fb10deb9-3d59-44dc-b23a-723278e8ce27"],
+Cell[665682, 17378, 482, 11, 70, "Print",ExpressionUUID->"2b7a4cdd-b63d-4981-a2df-5a6d5676a899"],
+Cell[666167, 17391, 2275, 56, 70, "Print",ExpressionUUID->"dc591a05-dca0-4678-8efa-d25efd590568"],
+Cell[668445, 17449, 813, 18, 70, "Print",ExpressionUUID->"c45992f3-06e0-4e9d-95b5-a63972c526d3"],
+Cell[669261, 17469, 239, 4, 70, "Print",ExpressionUUID->"019a3736-adff-4758-91d1-c5634bb2f749"],
+Cell[669503, 17475, 1249, 29, 70, "Print",ExpressionUUID->"dbf5bddf-03ef-4e82-a73b-76c9f675da7d"],
+Cell[670755, 17506, 490, 12, 70, "Print",ExpressionUUID->"51df1b2d-806e-40a4-841c-53f982367141"],
+Cell[671248, 17520, 2271, 56, 70, "Print",ExpressionUUID->"0422f8fe-6fb7-4c7f-bd1d-05771036078f"],
+Cell[673522, 17578, 838, 19, 70, "Print",ExpressionUUID->"c0d240b8-18fe-443b-8244-325033466329"],
+Cell[674363, 17599, 239, 4, 70, "Print",ExpressionUUID->"bfe94385-cd19-49f2-9c63-c2f0cda3fe7b"],
+Cell[674605, 17605, 1252, 29, 70, "Print",ExpressionUUID->"6c28e756-fda0-47d1-9588-96bf43e561d1"],
+Cell[675860, 17636, 482, 11, 70, "Print",ExpressionUUID->"73c40a87-9b8f-467b-8829-ecc8d3bfa30e"],
+Cell[676345, 17649, 2275, 56, 70, "Print",ExpressionUUID->"054ceadc-5b83-4234-96b6-ff25d020d4cd"],
+Cell[678623, 17707, 815, 18, 70, "Print",ExpressionUUID->"8684565f-6425-40de-8f67-8c2a29375354"],
+Cell[679441, 17727, 241, 4, 70, "Print",ExpressionUUID->"5e3224d4-3bf2-4d98-aced-840427d3410c"],
+Cell[679685, 17733, 1245, 29, 70, "Print",ExpressionUUID->"cb23182c-a787-440b-8f0f-c6acb9aa0e18"],
+Cell[680933, 17764, 490, 12, 70, "Print",ExpressionUUID->"23605e88-248d-49b5-80f3-55fd2f2b61f7"],
+Cell[681426, 17778, 2269, 56, 70, "Print",ExpressionUUID->"8adb131b-66b5-41d8-af33-5606e24fdff4"],
+Cell[683698, 17836, 832, 19, 70, "Print",ExpressionUUID->"c7425f9e-1637-46bc-99ac-efa54e0507cd"],
+Cell[684533, 17857, 239, 4, 70, "Print",ExpressionUUID->"e2c1902d-778a-4b70-bf3f-0d40c9fd33eb"],
+Cell[684775, 17863, 1249, 29, 70, "Print",ExpressionUUID->"c950a035-f839-4dca-8473-008d1d95659b"],
+Cell[686027, 17894, 483, 11, 70, "Print",ExpressionUUID->"261aba29-a7a1-4401-8889-ecc1e00fafb2"],
+Cell[686513, 17907, 2275, 56, 70, "Print",ExpressionUUID->"4b96ac29-1aaf-469d-a4de-08d229b716e2"],
+Cell[688791, 17965, 830, 19, 70, "Print",ExpressionUUID->"84639cd1-5351-40f5-97e6-756a78bd67b0"],
+Cell[689624, 17986, 241, 4, 70, "Print",ExpressionUUID->"cb96e066-e471-48ac-8c1e-85d842782d31"],
+Cell[689868, 17992, 1249, 29, 70, "Print",ExpressionUUID->"292b42a9-6bb6-4c60-aa14-1ebdbe3e21bc"],
+Cell[691120, 18023, 484, 11, 70, "Print",ExpressionUUID->"fdaf4fa9-184b-4cc0-ae7a-1ea111d34cff"],
+Cell[691607, 18036, 2269, 56, 70, "Print",ExpressionUUID->"2bc5474d-f9cd-4b04-8f62-d15ec517799b"],
+Cell[693879, 18094, 834, 19, 70, "Print",ExpressionUUID->"1aa70c00-fa61-4827-a871-88c4848f0ac9"],
+Cell[694716, 18115, 241, 4, 70, "Print",ExpressionUUID->"82819c5f-68fc-453a-8645-e3ff9d351ebb"],
+Cell[694960, 18121, 1249, 29, 70, "Print",ExpressionUUID->"7cc03ad3-047f-4036-bea1-8689bba95763"],
+Cell[696212, 18152, 492, 12, 70, "Print",ExpressionUUID->"bb279966-b62c-402d-adf2-2d3807da3e0e"],
+Cell[696707, 18166, 2275, 56, 70, "Print",ExpressionUUID->"0c73d478-408e-4ac5-a22a-9d2237e4c480"],
+Cell[698985, 18224, 815, 18, 70, "Print",ExpressionUUID->"c541783e-c502-4eb9-a3af-1390577378b8"],
+Cell[699803, 18244, 241, 4, 70, "Print",ExpressionUUID->"729d3788-8cfc-4d44-a64e-2f83d1190d58"],
+Cell[700047, 18250, 1249, 29, 70, "Print",ExpressionUUID->"4c72f50e-c3f7-4491-8368-2a20cceca8f7"],
+Cell[701299, 18281, 486, 11, 70, "Print",ExpressionUUID->"2bb4cad4-4c84-46aa-9486-285b656cdb89"],
+Cell[701788, 18294, 2277, 56, 70, "Print",ExpressionUUID->"c7d60a34-7c82-4bc6-8b45-24f96caf69d2"],
+Cell[704068, 18352, 815, 18, 70, "Print",ExpressionUUID->"b7e7a1de-f11f-4c80-9fdb-07019208f980"],
+Cell[704886, 18372, 239, 4, 70, "Print",ExpressionUUID->"65d8ff0b-4419-44f7-90e1-ace231bcc6b0"],
+Cell[705128, 18378, 1247, 29, 70, "Print",ExpressionUUID->"9f99cc37-b504-4f95-a86e-959147f9197e"],
+Cell[706378, 18409, 490, 12, 70, "Print",ExpressionUUID->"5dc867e9-a6d6-4e00-978e-aaa6970c08a4"],
+Cell[706871, 18423, 2272, 56, 70, "Print",ExpressionUUID->"5bceee5d-2521-44e7-9a03-94e2d50e4bce"],
+Cell[709146, 18481, 830, 19, 70, "Print",ExpressionUUID->"889115fb-1fe9-4a1c-b8b1-8be02d7d4d14"],
+Cell[709979, 18502, 241, 4, 70, "Print",ExpressionUUID->"2574ddb6-0bc7-4912-9c93-07fb84cedfa5"],
+Cell[710223, 18508, 1248, 29, 70, "Print",ExpressionUUID->"1fa54062-9878-4706-98d4-ab4ffe87f6c9"],
+Cell[711474, 18539, 484, 11, 70, "Print",ExpressionUUID->"224a01d0-4767-40f4-9581-9af6c94936ec"],
+Cell[711961, 18552, 2269, 56, 70, "Print",ExpressionUUID->"0385b6a9-2fb0-404b-a42e-46d99be103fa"],
+Cell[714233, 18610, 832, 19, 70, "Print",ExpressionUUID->"38072617-cee0-494c-9f52-d52bc68d8429"],
+Cell[715068, 18631, 239, 4, 70, "Print",ExpressionUUID->"b8045ab2-0d55-4a2e-b43c-fecb87dac7c7"],
+Cell[715310, 18637, 1249, 29, 70, "Print",ExpressionUUID->"c0899192-6c29-406d-a312-7175cfdf1a95"],
+Cell[716562, 18668, 484, 11, 70, "Print",ExpressionUUID->"2de90cc7-bc00-4355-b4f2-9e798d9c0663"],
+Cell[717049, 18681, 2271, 56, 70, "Print",ExpressionUUID->"3f65189e-2c55-48d4-a3c2-d24055906d8c"],
+Cell[719323, 18739, 815, 18, 70, "Print",ExpressionUUID->"74302180-04ee-4599-8512-19008741e70e"],
+Cell[720141, 18759, 241, 4, 70, "Print",ExpressionUUID->"d1833b11-b7db-4063-9e2d-b4547c31cdbe"],
+Cell[720385, 18765, 1250, 29, 70, "Print",ExpressionUUID->"909a3c34-349e-45b5-990f-7b9f9ccd5015"],
+Cell[721638, 18796, 484, 11, 70, "Print",ExpressionUUID->"61de55c9-8426-42a9-b550-b98a3fbf37e0"],
+Cell[722125, 18809, 2275, 56, 70, "Print",ExpressionUUID->"9cdd432e-63c7-4cc9-b9c4-fbb25c6ed327"],
+Cell[724403, 18867, 814, 18, 70, "Print",ExpressionUUID->"ac716e5a-1d7f-45c9-bfae-08e8f3fdabe5"],
+Cell[725220, 18887, 239, 4, 70, "Print",ExpressionUUID->"418095ce-8574-4e9a-86e4-02c9d142af03"],
+Cell[725462, 18893, 1251, 29, 70, "Print",ExpressionUUID->"9bed9c78-5797-444f-b094-c8fcd8ca8eba"],
+Cell[726716, 18924, 490, 12, 70, "Print",ExpressionUUID->"881d7d57-14f2-4ab8-bd2f-0a82f0683e55"],
+Cell[727209, 18938, 2269, 56, 70, "Print",ExpressionUUID->"20681b70-d06e-4159-aebc-469af8a6df72"],
+Cell[729481, 18996, 836, 19, 70, "Print",ExpressionUUID->"f7d7a11f-70ac-4f0b-b053-4b3be0c82386"],
+Cell[730320, 19017, 239, 4, 70, "Print",ExpressionUUID->"384baa6e-08e1-4438-a700-0af3ecb5841e"],
+Cell[730562, 19023, 1250, 29, 70, "Print",ExpressionUUID->"86e9ca8c-4c55-47a0-b6d4-ca0f02dd7a9b"],
+Cell[731815, 19054, 490, 12, 70, "Print",ExpressionUUID->"13fc7508-1305-468a-8f5c-aa5883dc62bf"],
+Cell[732308, 19068, 2269, 56, 70, "Print",ExpressionUUID->"7c821d48-82b9-4c1c-8ee7-4f3ff499ee49"],
+Cell[734580, 19126, 840, 19, 70, "Print",ExpressionUUID->"7900a994-9b71-4ce5-9371-5912ed278f4b"],
+Cell[735423, 19147, 239, 4, 70, "Print",ExpressionUUID->"17339eda-6538-4101-8f71-fcac9f4e46e1"],
+Cell[735665, 19153, 1250, 29, 70, "Print",ExpressionUUID->"509ebc9d-f2cd-409e-a371-781d6a1b5c47"],
+Cell[736918, 19184, 490, 12, 70, "Print",ExpressionUUID->"4232fd4f-acf0-45ac-81b2-8790ee531e7d"],
+Cell[737411, 19198, 2275, 56, 70, "Print",ExpressionUUID->"8dbedace-d4c8-4e3a-ab08-06b3dc69ad5f"],
+Cell[739689, 19256, 830, 19, 70, "Print",ExpressionUUID->"d6c84805-8050-45b7-8392-ba8c171824d5"],
+Cell[740522, 19277, 241, 4, 70, "Print",ExpressionUUID->"c60afc31-af61-48f8-a153-a7cf676ec9be"],
+Cell[740766, 19283, 1248, 29, 70, "Print",ExpressionUUID->"3cba981f-b491-40de-8808-cfdc790c3f37"],
+Cell[742017, 19314, 490, 12, 70, "Print",ExpressionUUID->"a4b1e78d-ffd9-4500-a5e8-9cd3d0aa72b0"],
+Cell[742510, 19328, 2267, 56, 70, "Print",ExpressionUUID->"8d4bb487-4955-4e73-8cb7-6ff4c5172fa7"],
+Cell[744780, 19386, 838, 19, 70, "Print",ExpressionUUID->"50771606-2211-4b26-8e73-4a7f681810b2"],
+Cell[745621, 19407, 239, 4, 70, "Print",ExpressionUUID->"25b22062-a737-45ea-88ec-0aafe0a10c3f"],
+Cell[745863, 19413, 1249, 29, 70, "Print",ExpressionUUID->"a2bfa9e6-4fdb-4624-a858-db0a40fc7bb6"],
+Cell[747115, 19444, 484, 11, 70, "Print",ExpressionUUID->"356eb56f-434f-40d1-bd44-3c53d4d38fa4"],
+Cell[747602, 19457, 2277, 56, 70, "Print",ExpressionUUID->"7a1fc800-970f-4493-9590-428333ca5017"],
+Cell[749882, 19515, 813, 18, 70, "Print",ExpressionUUID->"d52309e1-5077-4653-ac90-518b73c76ce2"],
+Cell[750698, 19535, 239, 4, 70, "Print",ExpressionUUID->"a0815103-1785-42b8-8820-e064bdf5935f"],
+Cell[750940, 19541, 1250, 29, 70, "Print",ExpressionUUID->"dae98de0-ddf3-4d10-acc3-e5d940b066ac"],
+Cell[752193, 19572, 490, 12, 70, "Print",ExpressionUUID->"94eb6b78-44b1-41b4-a6ea-46732dbdd53f"],
+Cell[752686, 19586, 2271, 56, 70, "Print",ExpressionUUID->"211e9fe4-c45e-4182-9210-88b7f965673c"],
+Cell[754960, 19644, 834, 19, 70, "Print",ExpressionUUID->"fb3cb240-f03f-4e04-a66c-045f513a57b9"],
+Cell[755797, 19665, 239, 4, 70, "Print",ExpressionUUID->"2853f571-4ecb-4762-b1bb-8ef6d12dcf6e"],
+Cell[756039, 19671, 1248, 29, 70, "Print",ExpressionUUID->"f67453e4-b33b-49c5-868e-8a61d8224a4e"],
+Cell[757290, 19702, 489, 12, 70, "Print",ExpressionUUID->"cfb9341c-5a6f-4d0f-9980-cc4916a2facd"],
+Cell[757782, 19716, 2277, 56, 70, "Print",ExpressionUUID->"6abd1505-50e5-4ae7-b820-c3c0cac588dc"],
+Cell[760062, 19774, 833, 19, 70, "Print",ExpressionUUID->"2d936dcd-1caa-4d14-a07e-369d8547017d"],
+Cell[760898, 19795, 239, 4, 70, "Print",ExpressionUUID->"bf772950-a0f7-4c9e-ad68-a09750925ef5"],
+Cell[761140, 19801, 1249, 29, 70, "Print",ExpressionUUID->"cf235c80-1126-4a34-9daa-f7596d11fc65"],
+Cell[762392, 19832, 486, 11, 70, "Print",ExpressionUUID->"a48fa32c-cdb7-4b2e-af37-a3347cc91c3d"],
+Cell[762881, 19845, 2275, 56, 70, "Print",ExpressionUUID->"31159048-216d-4e3d-bf43-6bd3ff7bc1b7"],
+Cell[765159, 19903, 836, 19, 70, "Print",ExpressionUUID->"cc84e712-adfc-4353-907e-9761094380d6"],
+Cell[765998, 19924, 239, 4, 70, "Print",ExpressionUUID->"930a943d-27b4-4d86-be64-dbd39050e591"],
+Cell[766240, 19930, 1252, 29, 70, "Print",ExpressionUUID->"b49b6c57-d2dc-4859-aebc-ae8fa938599d"],
+Cell[767495, 19961, 482, 11, 70, "Print",ExpressionUUID->"9c37718e-c9e5-45c2-8c4c-d62ae6859536"],
+Cell[767980, 19974, 2275, 56, 70, "Print",ExpressionUUID->"52a53eed-d859-4646-9869-25104e665d1e"],
+Cell[770258, 20032, 834, 19, 70, "Print",ExpressionUUID->"268dcca2-49d9-460d-bbc6-312479f745ad"],
+Cell[771095, 20053, 239, 4, 70, "Print",ExpressionUUID->"0b0a8f57-fca5-42e2-9b55-c40b55a716ae"],
+Cell[771337, 20059, 1250, 29, 70, "Print",ExpressionUUID->"7ed51606-a186-42ef-b7b6-bcb757183e95"],
+Cell[772590, 20090, 490, 12, 70, "Print",ExpressionUUID->"8f39012b-eb6e-43b3-95c6-7d862b821574"],
+Cell[773083, 20104, 2274, 56, 70, "Print",ExpressionUUID->"bcb0b250-204a-4c14-91a1-1a89641ede24"],
+Cell[775360, 20162, 811, 18, 70, "Print",ExpressionUUID->"ded87c84-5054-45ae-ab99-3684661cf1dd"],
+Cell[776174, 20182, 241, 4, 70, "Print",ExpressionUUID->"e398c812-8a07-4962-b063-e35553e0e3c7"],
+Cell[776418, 20188, 1248, 29, 70, "Print",ExpressionUUID->"464b6444-0242-4aac-b4ad-a3ea2cbaef47"],
+Cell[777669, 20219, 490, 12, 70, "Print",ExpressionUUID->"fa342b49-82ab-4707-8483-2d72037d9e78"],
+Cell[778162, 20233, 2275, 56, 70, "Print",ExpressionUUID->"9e0c6b22-3a2f-4359-8d39-2232a6756fb7"],
+Cell[780440, 20291, 838, 19, 70, "Print",ExpressionUUID->"de5661d4-fcf0-4582-9dd4-b05c331ffe44"],
+Cell[781281, 20312, 239, 4, 70, "Print",ExpressionUUID->"129cba15-0eeb-44db-97d7-7643d3587ea6"],
+Cell[781523, 20318, 1247, 29, 70, "Print",ExpressionUUID->"8c4e8efe-34e7-42dc-8485-b81436b0b1ae"],
+Cell[782773, 20349, 470, 11, 70, "Print",ExpressionUUID->"a4dae41f-1e0a-4b14-bf8d-646daa059fb7"],
+Cell[783246, 20362, 2277, 56, 70, "Print",ExpressionUUID->"18420c57-ddda-4022-bd76-ec029375434b"],
+Cell[785526, 20420, 836, 19, 70, "Print",ExpressionUUID->"bd2ddebe-6e14-4c7f-a4c5-59edf6170ced"],
+Cell[786365, 20441, 239, 4, 70, "Print",ExpressionUUID->"109903ec-be1a-476b-ba5d-ca6c31a2fb20"],
+Cell[786607, 20447, 1248, 29, 70, "Print",ExpressionUUID->"17c9c5a8-4993-4e93-b7b3-7698dcc4a7d8"],
+Cell[787858, 20478, 490, 12, 70, "Print",ExpressionUUID->"9462a008-7f06-416b-b2f8-2254b0084e1b"],
+Cell[788351, 20492, 2275, 56, 70, "Print",ExpressionUUID->"8581e3d5-57dc-4ee4-9490-d8bdfca7b41c"],
+Cell[790629, 20550, 834, 19, 70, "Print",ExpressionUUID->"b0a5e0a6-8614-4284-8194-48b29a30ab7d"],
+Cell[791466, 20571, 237, 4, 70, "Print",ExpressionUUID->"7951aa0c-ea59-4842-9cfd-c4a93e02e2f4"],
+Cell[791706, 20577, 1250, 29, 70, "Print",ExpressionUUID->"1a2508fd-3058-4534-b9a1-9ed30c7c53b8"],
+Cell[792959, 20608, 486, 11, 70, "Print",ExpressionUUID->"7f22a845-0485-4f26-b924-05c1636c40c3"],
+Cell[793448, 20621, 2271, 56, 70, "Print",ExpressionUUID->"37e4311c-9c61-4dd9-8fe9-b6b9a59924d0"],
+Cell[795722, 20679, 813, 18, 70, "Print",ExpressionUUID->"96308ace-d843-475a-8953-32b413885afb"],
+Cell[796538, 20699, 238, 4, 70, "Print",ExpressionUUID->"232f6234-870b-4f73-8198-86d4e4a20208"],
+Cell[796779, 20705, 1250, 29, 70, "Print",ExpressionUUID->"f2c4bfce-50fb-4899-92f7-f693fa2d62dd"],
+Cell[798032, 20736, 490, 12, 70, "Print",ExpressionUUID->"ccfd9535-0b0e-45d8-9458-0b3ccd082120"],
+Cell[798525, 20750, 2275, 56, 70, "Print",ExpressionUUID->"698adb12-c7c9-472a-9505-9eee7226ba03"],
+Cell[800803, 20808, 830, 19, 70, "Print",ExpressionUUID->"b5e64703-54ca-4cf5-9b10-d1ccde66fe00"],
+Cell[801636, 20829, 241, 4, 70, "Print",ExpressionUUID->"753a498a-8abc-4e00-8278-639f6b093d0d"],
+Cell[801880, 20835, 1249, 29, 70, "Print",ExpressionUUID->"e57733b4-ca36-4bc2-a1c8-7afc76b9201d"],
+Cell[803132, 20866, 486, 11, 70, "Print",ExpressionUUID->"f560ae66-2425-45d4-b89e-ff2f3859cb60"],
+Cell[803621, 20879, 2275, 56, 70, "Print",ExpressionUUID->"74d9a9f5-7638-434a-9ebf-9722201e6f88"],
+Cell[805899, 20937, 832, 19, 70, "Print",ExpressionUUID->"adba9671-276c-452f-a4ab-fc63ad560fe4"],
+Cell[806734, 20958, 238, 4, 70, "Print",ExpressionUUID->"923d8d34-5b9e-41b1-9d47-7127d5462963"],
+Cell[806975, 20964, 1249, 29, 70, "Print",ExpressionUUID->"d7748f22-aed9-4e94-a4e4-88eeb55708fc"],
+Cell[808227, 20995, 484, 11, 70, "Print",ExpressionUUID->"7e0acd42-fb39-421d-b2f9-6d211a71ed40"],
+Cell[808714, 21008, 2274, 56, 70, "Print",ExpressionUUID->"1b2fe879-cd79-478a-a980-ca1264486022"],
+Cell[810991, 21066, 817, 18, 70, "Print",ExpressionUUID->"1f7c4730-bd72-4e1f-a74d-c42d70805b4e"],
+Cell[811811, 21086, 241, 4, 70, "Print",ExpressionUUID->"c9d440ab-b215-4c90-ad7a-263af0795d53"],
+Cell[812055, 21092, 1250, 29, 70, "Print",ExpressionUUID->"1bfde587-01a7-4da1-b824-f3d44637da8c"],
+Cell[813308, 21123, 483, 11, 70, "Print",ExpressionUUID->"e5bd1963-3a67-4750-84c1-c74405b56267"],
+Cell[813794, 21136, 2275, 56, 70, "Print",ExpressionUUID->"f0b36ee1-f661-4712-8d74-97b5ad87be17"],
+Cell[816072, 21194, 838, 19, 70, "Print",ExpressionUUID->"ae1b06c9-5a59-439c-b9eb-8c848bbe4722"],
+Cell[816913, 21215, 239, 4, 70, "Print",ExpressionUUID->"24572c2d-76d6-4e5a-931c-cc27b3a549ff"],
+Cell[817155, 21221, 1250, 29, 70, "Print",ExpressionUUID->"a8b20eb2-2ba9-4612-9e84-51d7da10658b"],
+Cell[818408, 21252, 490, 12, 70, "Print",ExpressionUUID->"cffb5ce7-74e1-4b52-b272-512ea627fdcd"],
+Cell[818901, 21266, 2266, 56, 70, "Print",ExpressionUUID->"4e267710-bad9-49cb-8ef9-d4975cfdc56c"],
+Cell[821170, 21324, 830, 19, 70, "Print",ExpressionUUID->"3f37e200-55ae-4d4a-8446-fcc0015bf2a1"],
+Cell[822003, 21345, 239, 4, 70, "Print",ExpressionUUID->"b165c668-b52f-40e6-94e3-a11c439d35b0"],
+Cell[822245, 21351, 1248, 29, 70, "Print",ExpressionUUID->"a36b796a-e694-48a6-9b7a-9f70036835f8"],
+Cell[823496, 21382, 490, 12, 70, "Print",ExpressionUUID->"2ab3d75a-07da-4e7e-b828-b310cd949e5a"],
+Cell[823989, 21396, 2275, 56, 70, "Print",ExpressionUUID->"f3bfdd7e-5eab-41e9-bf6d-160de03d41ef"],
+Cell[826267, 21454, 811, 18, 70, "Print",ExpressionUUID->"74523f3b-28b7-4733-aae8-fdfa2dd5f1d5"],
+Cell[827081, 21474, 239, 4, 70, "Print",ExpressionUUID->"c3cd6cb2-7ed2-4d12-8887-674bb6fe4fb8"],
+Cell[827323, 21480, 1248, 29, 70, "Print",ExpressionUUID->"2383f051-23ea-49cf-a002-21515d8cf9d6"],
+Cell[828574, 21511, 492, 12, 70, "Print",ExpressionUUID->"8474c12d-9ed1-48b3-bc72-c599c66f6820"],
+Cell[829069, 21525, 2272, 56, 70, "Print",ExpressionUUID->"f161e8e5-d2bf-4d3a-b1eb-8369e12d17cd"],
+Cell[831344, 21583, 817, 18, 70, "Print",ExpressionUUID->"a47ea919-d889-4618-85d8-f187d6005351"],
+Cell[832164, 21603, 239, 4, 70, "Print",ExpressionUUID->"527159e9-61f7-4c15-bdac-4efa001628ed"],
+Cell[832406, 21609, 1248, 29, 70, "Print",ExpressionUUID->"394b5eeb-b809-4976-8a39-002c5766c2df"],
+Cell[833657, 21640, 490, 12, 70, "Print",ExpressionUUID->"06569e55-e864-4dc4-b90a-2f25aa6689c5"],
+Cell[834150, 21654, 2277, 56, 70, "Print",ExpressionUUID->"12da7882-8b52-48ec-bf3d-d5aaf2ecc7ea"],
+Cell[836430, 21712, 811, 18, 70, "Print",ExpressionUUID->"3593c211-cf6d-4875-8fbc-2a5a3c371c5c"],
+Cell[837244, 21732, 239, 4, 70, "Print",ExpressionUUID->"5650013a-3601-4a38-8d45-2988a3e180d1"],
+Cell[837486, 21738, 1251, 29, 70, "Print",ExpressionUUID->"077bed31-a8a0-4f3b-bb44-e8be3d510679"],
+Cell[838740, 21769, 490, 12, 70, "Print",ExpressionUUID->"3500e032-9a58-4f06-a85e-3daf7c94616a"],
+Cell[839233, 21783, 2269, 56, 70, "Print",ExpressionUUID->"d50baea9-a41b-4ca5-8a0e-c3ac1ab17851"],
+Cell[841505, 21841, 836, 19, 70, "Print",ExpressionUUID->"42e6619e-45ef-43c4-b814-8d38462160f4"],
+Cell[842344, 21862, 239, 4, 70, "Print",ExpressionUUID->"be1bdd03-678a-43d2-9fb1-62ac0f37565e"],
+Cell[842586, 21868, 1249, 29, 70, "Print",ExpressionUUID->"5ce16abd-58f2-402e-8f23-c13d86c45e27"],
+Cell[843838, 21899, 490, 12, 70, "Print",ExpressionUUID->"d7138dda-e4ae-4559-a356-dbcf805e1f10"],
+Cell[844331, 21913, 2275, 56, 70, "Print",ExpressionUUID->"d67664f0-13b3-4fe3-9cc0-8440ecc16b2c"],
+Cell[846609, 21971, 815, 18, 70, "Print",ExpressionUUID->"5c871143-e628-47da-8cad-e44a462fd279"],
+Cell[847427, 21991, 239, 4, 70, "Print",ExpressionUUID->"2fd7c658-a9b8-4994-bc5b-f248c59ab350"],
+Cell[847669, 21997, 1252, 29, 70, "Print",ExpressionUUID->"438fcc46-b505-4180-9b30-f072bea7e4ef"],
+Cell[848924, 22028, 490, 12, 70, "Print",ExpressionUUID->"62b72bf9-b4b6-4aaf-997b-e957f360894a"],
+Cell[849417, 22042, 2272, 56, 70, "Print",ExpressionUUID->"256a54d4-c52f-4000-bf1b-2e5adbb56dd5"],
+Cell[851692, 22100, 813, 18, 70, "Print",ExpressionUUID->"4e8c2fe3-ffba-4c62-9ca5-793e9bcc77c4"],
+Cell[852508, 22120, 241, 4, 70, "Print",ExpressionUUID->"8ad75135-f258-4794-bbd9-b9ea2e13fcb2"],
+Cell[852752, 22126, 1248, 29, 70, "Print",ExpressionUUID->"b1d42fbc-9559-4156-88f8-b077d1b60abc"],
+Cell[854003, 22157, 484, 11, 70, "Print",ExpressionUUID->"94d5408b-2cd1-4e1d-98dc-3e8410356d0a"],
+Cell[854490, 22170, 2274, 56, 70, "Print",ExpressionUUID->"2df9fca4-8775-4d0d-a139-d4d6d8e948f1"],
+Cell[856767, 22228, 815, 18, 70, "Print",ExpressionUUID->"6a538ff1-df3f-42bc-b04a-80121f884a9a"],
+Cell[857585, 22248, 239, 4, 70, "Print",ExpressionUUID->"d5b34743-0d6d-4d0d-bf8b-f05e73656b96"],
+Cell[857827, 22254, 1248, 29, 70, "Print",ExpressionUUID->"dda4d1bd-8507-4856-9a0e-329f4b1940a8"],
+Cell[859078, 22285, 490, 12, 70, "Print",ExpressionUUID->"17fd4168-9397-4c3b-a3d5-d7206fea9b4f"],
+Cell[859571, 22299, 2275, 56, 70, "Print",ExpressionUUID->"a14fea95-0308-4c38-96f6-b6ca710a4a8e"],
+Cell[861849, 22357, 815, 18, 70, "Print",ExpressionUUID->"cf220ff5-2697-46ff-9a66-717d3b5a12a9"],
+Cell[862667, 22377, 241, 4, 70, "Print",ExpressionUUID->"7a7b1637-4bd2-4d5a-9146-bf0bc26b03c8"],
+Cell[862911, 22383, 1248, 29, 70, "Print",ExpressionUUID->"c46755d2-9256-4b3b-b340-9f24951244fe"],
+Cell[864162, 22414, 492, 12, 70, "Print",ExpressionUUID->"82e83a70-b383-4fab-970b-c756be31cd77"],
+Cell[864657, 22428, 2266, 56, 70, "Print",ExpressionUUID->"5f215e0e-7407-4713-ba98-24a2b998e828"],
+Cell[866926, 22486, 834, 19, 70, "Print",ExpressionUUID->"5ab0ea8f-ed68-4f51-b81d-6416c7f6a6f3"],
+Cell[867763, 22507, 239, 4, 70, "Print",ExpressionUUID->"c8e494ef-f3d2-4453-b752-173bd41ac2e5"],
+Cell[868005, 22513, 1250, 29, 70, "Print",ExpressionUUID->"c1643572-d3f4-47a9-a9bd-1811938e55b8"],
+Cell[869258, 22544, 492, 12, 70, "Print",ExpressionUUID->"ef9231d1-6a51-4693-ab28-429b55a19f22"],
+Cell[869753, 22558, 2272, 56, 70, "Print",ExpressionUUID->"5a7545ea-a428-4e75-9324-2cae5b07124e"],
+Cell[872028, 22616, 834, 19, 70, "Print",ExpressionUUID->"d9e11f9d-64cc-49ea-9a74-548043a81b4e"],
+Cell[872865, 22637, 239, 4, 70, "Print",ExpressionUUID->"69568202-3fac-487f-b99e-46a3c72aa4b9"],
+Cell[873107, 22643, 1249, 29, 70, "Print",ExpressionUUID->"c741d9e2-5770-469d-b72f-03b13209d3c8"],
+Cell[874359, 22674, 490, 12, 70, "Print",ExpressionUUID->"3ebd8ce9-17c6-4790-934e-56a4aa248b1d"],
+Cell[874852, 22688, 2271, 56, 70, "Print",ExpressionUUID->"cb9b268a-c8ba-4bfd-bed7-cc81052d62db"],
+Cell[877126, 22746, 815, 18, 70, "Print",ExpressionUUID->"e1dfa275-461b-4c51-85c9-a87942b6232a"],
+Cell[877944, 22766, 239, 4, 70, "Print",ExpressionUUID->"7f335dde-5351-418c-8985-91986292c81e"],
+Cell[878186, 22772, 1249, 29, 70, "Print",ExpressionUUID->"0d28450b-d783-4640-8afc-8e92362cc053"],
+Cell[879438, 22803, 484, 11, 70, "Print",ExpressionUUID->"27b61f5a-ef4b-4944-b7bf-8214303eb6b4"],
+Cell[879925, 22816, 2277, 56, 70, "Print",ExpressionUUID->"1b9f2538-9721-44ef-9cf5-b94b342fea0a"],
+Cell[882205, 22874, 813, 18, 70, "Print",ExpressionUUID->"a3a20756-f90b-40bf-9a6f-a29c5dede57c"],
+Cell[883021, 22894, 239, 4, 70, "Print",ExpressionUUID->"a612c2a1-7ce0-4f21-8f83-9ade9573b8a9"],
+Cell[883263, 22900, 1251, 29, 70, "Print",ExpressionUUID->"dc5345fd-8c42-47f0-bd3f-6a4fa04118ff"],
+Cell[884517, 22931, 490, 12, 70, "Print",ExpressionUUID->"e6a86ef3-2c96-4089-92ad-ee138afec414"],
+Cell[885010, 22945, 2266, 56, 70, "Print",ExpressionUUID->"aaffec28-065f-4495-997a-dcdfb3d37b3a"],
+Cell[887279, 23003, 815, 18, 70, "Print",ExpressionUUID->"e3bdfea6-b051-4a9e-9d7a-cd052347554a"],
+Cell[888097, 23023, 239, 4, 70, "Print",ExpressionUUID->"77399f66-d8c0-4635-8d68-52dcfbf2e2fb"],
+Cell[888339, 23029, 1246, 29, 70, "Print",ExpressionUUID->"36df6363-c808-40f5-8660-650d4b0ce4a8"],
+Cell[889588, 23060, 492, 12, 70, "Print",ExpressionUUID->"66bc7336-3921-47bf-83a4-1aa7eb8b4159"],
+Cell[890083, 23074, 2275, 56, 70, "Print",ExpressionUUID->"17502234-28e5-44d7-8e44-a36fe2455a0d"],
+Cell[892361, 23132, 815, 18, 70, "Print",ExpressionUUID->"9f92d565-2e84-41f9-a00e-31d24d2e84e5"],
+Cell[893179, 23152, 241, 4, 70, "Print",ExpressionUUID->"f1683701-c140-4ac7-b873-e5596c95e186"],
+Cell[893423, 23158, 1250, 29, 70, "Print",ExpressionUUID->"76be098c-caa1-4ae0-afdc-947c476e291a"],
+Cell[894676, 23189, 490, 12, 70, "Print",ExpressionUUID->"0035d210-f612-4e86-92ce-ca3c62accf22"],
+Cell[895169, 23203, 2271, 56, 70, "Print",ExpressionUUID->"c7e1aabd-3cbc-4760-90e7-b08a5a4aeab8"],
+Cell[897443, 23261, 830, 19, 70, "Print",ExpressionUUID->"5f85dbcc-aece-48c6-a91c-671c172150d5"],
+Cell[898276, 23282, 239, 4, 70, "Print",ExpressionUUID->"5db185b4-a737-4533-9efa-89136fdaf024"],
+Cell[898518, 23288, 1249, 29, 70, "Print",ExpressionUUID->"4d1fb91d-abd3-4ad5-b0d1-20b45cea5fc5"],
+Cell[899770, 23319, 492, 12, 70, "Print",ExpressionUUID->"0f4c54dd-b23e-4b18-9faf-c0e9ac8b6227"],
+Cell[900265, 23333, 2275, 56, 70, "Print",ExpressionUUID->"b7a7f1b1-aea2-4fa7-8f22-1d26b3ab51db"],
+Cell[902543, 23391, 811, 18, 70, "Print",ExpressionUUID->"546847d3-8128-48d1-9c9d-b117cabb6adc"],
+Cell[903357, 23411, 239, 4, 70, "Print",ExpressionUUID->"647e9acd-d51b-4e09-9cff-cc4aa737a164"],
+Cell[903599, 23417, 1248, 29, 70, "Print",ExpressionUUID->"30aabbcb-d674-4975-84aa-17dcece6d54b"],
+Cell[904850, 23448, 490, 12, 70, "Print",ExpressionUUID->"d58f46a8-b7ed-463a-995d-ad286c7c990a"],
+Cell[905343, 23462, 2277, 56, 70, "Print",ExpressionUUID->"11885655-5e60-49a0-826c-c17809e604d3"],
+Cell[907623, 23520, 817, 18, 70, "Print",ExpressionUUID->"8682de5e-2172-425b-b638-4cfc42dc5880"],
+Cell[908443, 23540, 239, 4, 70, "Print",ExpressionUUID->"e1d7bb71-165c-4dad-ab54-1f980443010e"],
+Cell[908685, 23546, 1248, 29, 70, "Print",ExpressionUUID->"c0ab5618-5768-43a2-81fb-f361e533cfd6"],
+Cell[909936, 23577, 490, 12, 70, "Print",ExpressionUUID->"f13d7c90-a790-4e98-8beb-77ae41e91fc9"],
+Cell[910429, 23591, 2275, 56, 70, "Print",ExpressionUUID->"b6420b48-d636-47c6-86b3-a2bebc706bf2"],
+Cell[912707, 23649, 815, 18, 70, "Print",ExpressionUUID->"eced28e0-2ac3-45d7-96ef-49d9ced03644"],
+Cell[913525, 23669, 239, 4, 70, "Print",ExpressionUUID->"8e2073db-7561-4ec4-bb8f-df4fb5535662"],
+Cell[913767, 23675, 1250, 29, 70, "Print",ExpressionUUID->"04991ebc-9cac-4a8a-bdfd-182a21555f62"],
+Cell[915020, 23706, 490, 12, 70, "Print",ExpressionUUID->"8563d433-1218-4e92-ab82-54db089b0165"],
+Cell[915513, 23720, 2266, 56, 70, "Print",ExpressionUUID->"873391fa-7cb8-4c84-b35b-9867e810089f"],
+Cell[917782, 23778, 815, 18, 70, "Print",ExpressionUUID->"adc4c956-97c7-46a4-8616-0e3cb3701460"],
+Cell[918600, 23798, 241, 4, 70, "Print",ExpressionUUID->"52252aa1-5332-4550-a898-1d3e86352da8"],
+Cell[918844, 23804, 1250, 29, 70, "Print",ExpressionUUID->"f83ffdf5-2458-4eaf-9b12-f3cff1424ac9"],
+Cell[920097, 23835, 492, 12, 70, "Print",ExpressionUUID->"8bdc598a-20fd-4eb8-abde-4729f3f70175"],
+Cell[920592, 23849, 2275, 56, 70, "Print",ExpressionUUID->"0ad4282f-68af-4930-8e21-c6ed0955ceea"],
+Cell[922870, 23907, 813, 18, 70, "Print",ExpressionUUID->"b3583bfc-8058-41f4-a7ce-ec64e2e7bb29"],
+Cell[923686, 23927, 241, 4, 70, "Print",ExpressionUUID->"5dc8c56c-0caa-421b-b10e-5b570b844444"],
+Cell[923930, 23933, 1252, 29, 70, "Print",ExpressionUUID->"46958bac-6bf9-4d22-a62a-969d320b2d70"],
+Cell[925185, 23964, 486, 11, 70, "Print",ExpressionUUID->"7bd644c0-080a-465c-aef0-fa0f54f9a439"],
+Cell[925674, 23977, 2269, 56, 70, "Print",ExpressionUUID->"f7d8d3de-c86c-4bb0-9932-5e7e52c47009"],
+Cell[927946, 24035, 833, 19, 70, "Print",ExpressionUUID->"cfb34a16-b81e-475c-a7c5-14e875de8bd7"],
+Cell[928782, 24056, 241, 4, 70, "Print",ExpressionUUID->"8e537388-f10a-468b-acf2-618bb81166af"],
+Cell[929026, 24062, 1250, 29, 70, "Print",ExpressionUUID->"7190208d-f1cf-43c1-b41f-5894ed8f1486"],
+Cell[930279, 24093, 490, 12, 70, "Print",ExpressionUUID->"f232c1df-2aee-43d1-9a02-7003263bb1fd"],
+Cell[930772, 24107, 2277, 56, 70, "Print",ExpressionUUID->"da0a7311-24df-4658-9718-53fddc40def7"],
+Cell[933052, 24165, 813, 18, 70, "Print",ExpressionUUID->"e13b2837-056d-4ad8-b43c-e992909366da"],
+Cell[933868, 24185, 239, 4, 70, "Print",ExpressionUUID->"af372319-2bc2-4dc0-b0d0-0f8b0ae6941a"],
+Cell[934110, 24191, 1247, 29, 70, "Print",ExpressionUUID->"fe7a7799-1968-4819-95f3-94a4b7e31205"],
+Cell[935360, 24222, 486, 11, 70, "Print",ExpressionUUID->"25e2ab7e-1d61-4edf-bcc2-ef359f4462e1"],
+Cell[935849, 24235, 2275, 56, 70, "Print",ExpressionUUID->"e4cbc629-0138-4ba7-83d1-74549b13cef2"],
+Cell[938127, 24293, 815, 18, 70, "Print",ExpressionUUID->"9524a21f-2461-4e3f-8877-7f3b7a59cf76"],
+Cell[938945, 24313, 238, 4, 70, "Print",ExpressionUUID->"ac967fa4-497b-49dd-b8e6-eb2714f34652"],
+Cell[939186, 24319, 1252, 29, 70, "Print",ExpressionUUID->"35be8194-04ea-425e-ab75-ab5300e4f518"],
+Cell[940441, 24350, 490, 12, 70, "Print",ExpressionUUID->"dcd51e30-448a-4849-8e4e-28dd4ea5df82"],
+Cell[940934, 24364, 2274, 56, 70, "Print",ExpressionUUID->"599d76a4-5a60-4649-92d7-771851436bc6"],
+Cell[943211, 24422, 817, 18, 70, "Print",ExpressionUUID->"e7f3a471-92d1-4622-be50-07e4f528bac4"],
+Cell[944031, 24442, 241, 4, 70, "Print",ExpressionUUID->"fa33fa85-aad1-4e83-9e90-005ef45da8ee"],
+Cell[944275, 24448, 1250, 29, 70, "Print",ExpressionUUID->"afb9ec85-39a4-4055-a036-ed6af09813a3"],
+Cell[945528, 24479, 490, 12, 70, "Print",ExpressionUUID->"ffaffd0f-c2e4-4c02-a6f6-a2e31cd367e4"],
+Cell[946021, 24493, 2265, 56, 70, "Print",ExpressionUUID->"47a06e43-a135-48b2-8151-2c8d32c13135"],
+Cell[948289, 24551, 813, 18, 70, "Print",ExpressionUUID->"7d946498-1ce5-477d-9311-09aefaec5343"],
+Cell[949105, 24571, 238, 4, 70, "Print",ExpressionUUID->"8bab179f-cbbb-48d5-912e-71949d61b066"],
+Cell[949346, 24577, 1247, 29, 70, "Print",ExpressionUUID->"bb557c46-a780-4229-90c2-b04fa6f3c545"],
+Cell[950596, 24608, 490, 12, 70, "Print",ExpressionUUID->"522773e2-03fb-4c84-9766-17fff383e749"],
+Cell[951089, 24622, 2271, 56, 70, "Print",ExpressionUUID->"612d3051-9ca7-4b91-be43-4237bb637017"],
+Cell[953363, 24680, 811, 18, 70, "Print",ExpressionUUID->"1100485b-08b0-43d3-a792-bc277ad08d05"],
+Cell[954177, 24700, 241, 4, 70, "Print",ExpressionUUID->"350e69e3-e587-4041-bbc6-e695b4aa0d4d"],
+Cell[954421, 24706, 1246, 29, 70, "Print",ExpressionUUID->"5417508d-2c45-44c8-bab1-6ab7ee8d9ede"],
+Cell[955670, 24737, 490, 12, 70, "Print",ExpressionUUID->"23681509-062f-4bfe-8997-8a45166a3263"],
+Cell[956163, 24751, 2275, 56, 70, "Print",ExpressionUUID->"83655b12-3f35-4c7c-8e94-d5213fa297e1"],
+Cell[958441, 24809, 811, 18, 70, "Print",ExpressionUUID->"a49cd89a-8663-4dfe-926c-b45c79f54017"],
+Cell[959255, 24829, 241, 4, 70, "Print",ExpressionUUID->"28ab2da9-bb06-47c9-a9cc-a1aead2ac5fe"],
+Cell[959499, 24835, 1249, 29, 70, "Print",ExpressionUUID->"0e20ca25-6098-4214-b911-3e8b10383f3f"],
+Cell[960751, 24866, 490, 12, 70, "Print",ExpressionUUID->"e15af2bb-9ba4-46ec-9dcb-bac04ae5173d"],
+Cell[961244, 24880, 2269, 56, 70, "Print",ExpressionUUID->"17af50c1-17d5-494c-8471-4eda6e2a4fa2"],
+Cell[963516, 24938, 836, 19, 70, "Print",ExpressionUUID->"5b5b8f78-cf52-43bd-8a9a-c338a8c0748f"],
+Cell[964355, 24959, 239, 4, 70, "Print",ExpressionUUID->"ff89301c-cd6d-4672-9b49-a621543253c4"],
+Cell[964597, 24965, 1250, 29, 70, "Print",ExpressionUUID->"6aaf854e-269a-4c59-8560-c4ded7196189"],
+Cell[965850, 24996, 482, 11, 70, "Print",ExpressionUUID->"953be425-ca47-4f73-b5c8-17488c189978"],
+Cell[966335, 25009, 2275, 56, 70, "Print",ExpressionUUID->"8cb1cece-35bc-43a4-a8e4-879b366079d2"],
+Cell[968613, 25067, 815, 18, 70, "Print",ExpressionUUID->"35fd26b0-50d6-4ad2-adba-de1230fea42e"],
+Cell[969431, 25087, 241, 4, 70, "Print",ExpressionUUID->"d13cf3b4-eefc-4c54-bee7-d15af87bb603"],
+Cell[969675, 25093, 1250, 29, 70, "Print",ExpressionUUID->"c44d6498-a6ba-4f08-8022-e6560589653e"],
+Cell[970928, 25124, 490, 12, 70, "Print",ExpressionUUID->"38b6c2d1-393a-4b06-8af1-cd9899a91f04"],
+Cell[971421, 25138, 2275, 56, 70, "Print",ExpressionUUID->"9b17697b-a92b-4b4d-975a-b4c080f28722"],
+Cell[973699, 25196, 811, 18, 70, "Print",ExpressionUUID->"7dd342c5-7420-4541-9627-b35226b1017d"],
+Cell[974513, 25216, 239, 4, 70, "Print",ExpressionUUID->"ea32b32f-82a7-4194-9fd9-a7703583c0af"],
+Cell[974755, 25222, 1251, 29, 70, "Print",ExpressionUUID->"76f8b2af-d0ae-4b6d-8611-25647b1889e7"],
+Cell[976009, 25253, 490, 12, 70, "Print",ExpressionUUID->"cd9fcb7b-0db5-4401-a477-b65f9fd0fed5"],
+Cell[976502, 25267, 2277, 56, 70, "Print",ExpressionUUID->"9a279257-d169-4a92-b3db-ed8494ae2ccc"],
+Cell[978782, 25325, 817, 18, 70, "Print",ExpressionUUID->"0e28f50c-5590-495a-96b5-93f8d51f1c64"],
+Cell[979602, 25345, 238, 4, 70, "Print",ExpressionUUID->"8ae0e9d1-e9f0-4f84-a046-f650823a1485"],
+Cell[979843, 25351, 1251, 29, 70, "Print",ExpressionUUID->"8af5faf0-4a01-43f8-adf3-3dc20fa91b24"],
+Cell[981097, 25382, 490, 12, 70, "Print",ExpressionUUID->"538f3d0a-4d79-4b36-8df6-cc86f423ae81"],
+Cell[981590, 25396, 2275, 56, 70, "Print",ExpressionUUID->"3880e6d1-8f95-4828-8330-754d983ed3b9"],
+Cell[983868, 25454, 815, 18, 70, "Print",ExpressionUUID->"4a63efba-8049-4e7d-9dbb-4b591b3638da"],
+Cell[984686, 25474, 241, 4, 70, "Print",ExpressionUUID->"17f3d501-156b-4ca5-b204-eebfd0fcc70f"],
+Cell[984930, 25480, 1248, 29, 70, "Print",ExpressionUUID->"48b304c7-260e-4652-bc0b-d430978943c1"],
+Cell[986181, 25511, 490, 12, 70, "Print",ExpressionUUID->"293c9299-3ac2-4a5c-abe3-55ffcda0ecda"],
+Cell[986674, 25525, 2269, 56, 70, "Print",ExpressionUUID->"fed4c5d5-60da-484b-8978-498e1d2723d7"],
+Cell[988946, 25583, 832, 19, 70, "Print",ExpressionUUID->"ab9c9e16-62fa-4195-bda9-da643eae8600"],
+Cell[989781, 25604, 239, 4, 70, "Print",ExpressionUUID->"a6882267-ce77-4b06-abb1-47ca2ec739c6"],
+Cell[990023, 25610, 1249, 29, 70, "Print",ExpressionUUID->"674bccc8-58f9-4709-b233-272968fe3d19"],
+Cell[991275, 25641, 490, 12, 70, "Print",ExpressionUUID->"63f0ac84-1a22-464e-8b4c-d30cb51c2f47"],
+Cell[991768, 25655, 2269, 56, 70, "Print",ExpressionUUID->"de0221f3-31ed-4faf-9007-7383c44114e2"],
+Cell[994040, 25713, 815, 18, 70, "Print",ExpressionUUID->"228c49af-c420-4b59-8f0b-18c00bf608f4"],
+Cell[994858, 25733, 239, 4, 70, "Print",ExpressionUUID->"de8cebed-53ee-4293-b15b-158a9df7ef5c"],
+Cell[995100, 25739, 1249, 29, 70, "Print",ExpressionUUID->"0ffbdc01-b26a-4b5a-959f-71c8ddbd6db1"],
+Cell[996352, 25770, 490, 12, 70, "Print",ExpressionUUID->"71ae2e7f-d599-4328-933e-ea4d44da58d8"],
+Cell[996845, 25784, 2268, 56, 70, "Print",ExpressionUUID->"87ce12a3-ccc1-4a84-abd9-2f26dab30e6e"],
+Cell[999116, 25842, 830, 19, 70, "Print",ExpressionUUID->"17db951b-e058-4b9e-84b9-20927aaa1211"],
+Cell[999949, 25863, 241, 4, 70, "Print",ExpressionUUID->"6ccabce8-fa6a-42c4-abc5-c7cb3753554a"],
+Cell[1000193, 25869, 1249, 29, 70, "Print",ExpressionUUID->"d7a59a8a-e37b-45b1-a650-ae5e6644c393"],
+Cell[1001445, 25900, 489, 12, 70, "Print",ExpressionUUID->"4313b999-7ba8-4be2-9735-9045b6bc1640"],
+Cell[1001937, 25914, 2275, 56, 70, "Print",ExpressionUUID->"9602251f-653f-443f-ae06-18c68033db08"],
+Cell[1004215, 25972, 840, 19, 70, "Print",ExpressionUUID->"8d88bcb4-b168-4663-bb28-7269da75eb55"],
+Cell[1005058, 25993, 238, 4, 70, "Print",ExpressionUUID->"70de6c9e-5092-444b-bd46-0bc1b18fe2d0"],
+Cell[1005299, 25999, 1250, 29, 70, "Print",ExpressionUUID->"294567f1-9f54-45b7-8c0a-c67762850cb5"],
+Cell[1006552, 26030, 484, 11, 70, "Print",ExpressionUUID->"e5041cf5-736e-4c52-98ee-41c4f5b3b6fd"],
+Cell[1007039, 26043, 2271, 56, 70, "Print",ExpressionUUID->"adb9ac38-cbee-448d-8dc0-d9fd876e87d4"],
+Cell[1009313, 26101, 815, 18, 70, "Print",ExpressionUUID->"744a5713-aa54-491b-b33c-7947ea589bec"],
+Cell[1010131, 26121, 239, 4, 70, "Print",ExpressionUUID->"ea5ec983-02a0-48bf-b936-e5c8930c483d"],
+Cell[1010373, 26127, 1249, 29, 70, "Print",ExpressionUUID->"6b4cf7e7-0631-48cf-9bdb-779cdb6201c2"],
+Cell[1011625, 26158, 484, 11, 70, "Print",ExpressionUUID->"1d0589b7-0ab1-449b-a320-cf4b6aa619c0"],
+Cell[1012112, 26171, 2267, 56, 70, "Print",ExpressionUUID->"50f94cef-7afc-460a-9781-62cbaa5fe834"],
+Cell[1014382, 26229, 838, 19, 70, "Print",ExpressionUUID->"63a3db84-1615-40af-abd1-bb772f6b345b"],
+Cell[1015223, 26250, 239, 4, 70, "Print",ExpressionUUID->"099ff8e9-04d6-4c84-94a0-04403593191c"],
+Cell[1015465, 26256, 1248, 29, 70, "Print",ExpressionUUID->"0b45590d-2c63-42f3-b460-f108c528da86"],
+Cell[1016716, 26287, 490, 12, 70, "Print",ExpressionUUID->"c666ae4f-cc96-4343-a40a-d66e4b639083"],
+Cell[1017209, 26301, 2277, 56, 70, "Print",ExpressionUUID->"984a1c85-3c1b-45f4-bed5-96dd12c32233"],
+Cell[1019489, 26359, 838, 19, 70, "Print",ExpressionUUID->"dc3fc037-8235-4306-a1a7-f577581dd343"],
+Cell[1020330, 26380, 239, 4, 70, "Print",ExpressionUUID->"f49ccd42-bfea-4b4c-935f-7b07847ecaf1"],
+Cell[1020572, 26386, 1248, 29, 70, "Print",ExpressionUUID->"e9e00c63-d97b-4bbf-b041-4753ff80513a"],
+Cell[1021823, 26417, 488, 12, 70, "Print",ExpressionUUID->"dcd6fea4-16fa-4529-8ac6-373e34d368fb"],
+Cell[1022314, 26431, 2274, 56, 70, "Print",ExpressionUUID->"f5287332-66a6-47da-a741-96094c44cd96"],
+Cell[1024591, 26489, 813, 18, 70, "Print",ExpressionUUID->"f86c28f8-ccd1-400a-977a-01b54e4551e1"],
+Cell[1025407, 26509, 239, 4, 70, "Print",ExpressionUUID->"895d898e-e106-488e-8548-d42937b80997"],
+Cell[1025649, 26515, 1250, 29, 70, "Print",ExpressionUUID->"a1904af8-88ba-4be2-9eb8-d8541b866b50"],
+Cell[1026902, 26546, 490, 12, 70, "Print",ExpressionUUID->"4c6d6d3a-b5dd-4b2e-875f-dafd3bf1c6cf"],
+Cell[1027395, 26560, 2266, 56, 70, "Print",ExpressionUUID->"512b03d8-fcaf-442e-aa42-f5affeee8944"],
+Cell[1029664, 26618, 819, 18, 70, "Print",ExpressionUUID->"05fa7d17-b303-4a79-a30d-122533b04f23"],
+Cell[1030486, 26638, 239, 4, 70, "Print",ExpressionUUID->"074fc820-2fcd-4702-82f5-cc4debb9cfd6"],
+Cell[1030728, 26644, 1250, 29, 70, "Print",ExpressionUUID->"2bedf229-f626-4746-bb03-aaf8c49dc760"],
+Cell[1031981, 26675, 484, 11, 70, "Print",ExpressionUUID->"a26cf25b-5392-45b1-bd3d-c0c464f72908"],
+Cell[1032468, 26688, 2270, 56, 70, "Print",ExpressionUUID->"fc24e05b-0852-490c-978e-63c6aa21ec9d"],
+Cell[1034741, 26746, 815, 18, 70, "Print",ExpressionUUID->"42cfc865-d45e-419a-9933-f6452ae7184c"],
+Cell[1035559, 26766, 241, 4, 70, "Print",ExpressionUUID->"60882851-f290-447e-b978-f05c4a05eee8"],
+Cell[1035803, 26772, 1250, 29, 70, "Print",ExpressionUUID->"1651f5a5-fe59-4369-9df9-ff8ab032aab7"],
+Cell[1037056, 26803, 464, 11, 70, "Print",ExpressionUUID->"9a8c63dd-b39a-4ebf-ab19-19aa7368d8a7"],
+Cell[1037523, 26816, 2269, 56, 70, "Print",ExpressionUUID->"5c4a6013-0338-412a-820a-269a60f2a4d4"],
+Cell[1039795, 26874, 838, 19, 70, "Print",ExpressionUUID->"10ed75b4-8b5a-43e0-856e-62bbce457278"],
+Cell[1040636, 26895, 241, 4, 70, "Print",ExpressionUUID->"6d94bf17-0a53-4852-a0b7-89b0c75ebb71"],
+Cell[1040880, 26901, 1252, 29, 70, "Print",ExpressionUUID->"6e169ea6-5724-4b8e-bb39-80a688c7300c"],
+Cell[1042135, 26932, 492, 12, 70, "Print",ExpressionUUID->"14cc0e2c-bb36-45bd-81f5-f1f5d90f0334"],
+Cell[1042630, 26946, 2272, 56, 70, "Print",ExpressionUUID->"8c11cba9-7c11-4db1-9406-8616d211a42a"],
+Cell[1044905, 27004, 812, 18, 70, "Print",ExpressionUUID->"e3a9b541-3d17-4f84-81af-7517d68d245e"],
+Cell[1045720, 27024, 239, 4, 70, "Print",ExpressionUUID->"4e340a06-f29f-4e5b-bf2e-ebd37027a189"],
+Cell[1045962, 27030, 1248, 29, 70, "Print",ExpressionUUID->"bbfc0772-212b-4f8b-a8f9-9f7d9135b1f4"],
+Cell[1047213, 27061, 490, 12, 70, "Print",ExpressionUUID->"14bd8b5d-cc69-425a-bf84-43793f9b452d"],
+Cell[1047706, 27075, 2275, 56, 70, "Print",ExpressionUUID->"145deafe-86b7-4095-9c4a-9fe664c231cc"],
+Cell[1049984, 27133, 836, 19, 70, "Print",ExpressionUUID->"e7930df0-50d3-4c37-9fcb-388956be3c58"],
+Cell[1050823, 27154, 239, 4, 70, "Print",ExpressionUUID->"bb511371-6aea-47b0-bdc5-7a4734c9600e"],
+Cell[1051065, 27160, 1248, 29, 70, "Print",ExpressionUUID->"d2295971-afef-4bf4-98ed-ed9bcaec0425"],
+Cell[1052316, 27191, 492, 12, 70, "Print",ExpressionUUID->"01e1f038-5499-4034-9d9e-0cf6f867ce3d"],
+Cell[1052811, 27205, 2265, 56, 70, "Print",ExpressionUUID->"05cdd8b4-a799-4470-ae6d-368a97c49248"],
+Cell[1055079, 27263, 813, 18, 70, "Print",ExpressionUUID->"c176b5a6-0010-43c6-8ab3-5946b4b27a0e"],
+Cell[1055895, 27283, 239, 4, 70, "Print",ExpressionUUID->"9c675c80-d4fe-4039-84ad-6cf424df5c31"],
+Cell[1056137, 27289, 1252, 29, 70, "Print",ExpressionUUID->"796c2442-31a5-418b-824a-2ba5b593daf6"],
+Cell[1057392, 27320, 490, 12, 70, "Print",ExpressionUUID->"15710fec-7ebd-451b-ae77-35b561df9b32"],
+Cell[1057885, 27334, 2269, 56, 70, "Print",ExpressionUUID->"440ac9df-6eda-4880-9624-62034d378cad"],
+Cell[1060157, 27392, 819, 18, 70, "Print",ExpressionUUID->"f5b63227-647c-4bef-ba6c-1381132a8434"],
+Cell[1060979, 27412, 239, 4, 70, "Print",ExpressionUUID->"c3756552-9d11-4072-b2de-3754ec136fb3"],
+Cell[1061221, 27418, 1251, 29, 70, "Print",ExpressionUUID->"c4acf745-a5aa-4dba-9538-ba5089eab16d"],
+Cell[1062475, 27449, 484, 11, 70, "Print",ExpressionUUID->"60c27dc7-bee7-451d-b3ae-93edfd3ea7ec"],
+Cell[1062962, 27462, 2266, 56, 70, "Print",ExpressionUUID->"53ecad83-d705-4e45-8dc4-5c94090abb81"],
+Cell[1065231, 27520, 811, 18, 70, "Print",ExpressionUUID->"20a6dbf1-f4f2-405e-8f53-d7dcb6b14f1d"],
+Cell[1066045, 27540, 239, 4, 70, "Print",ExpressionUUID->"653edb9b-677f-4823-bdf5-b88f911180fc"],
+Cell[1066287, 27546, 1251, 29, 70, "Print",ExpressionUUID->"e88610a5-7b2b-499d-b325-738fea1e3954"],
+Cell[1067541, 27577, 478, 11, 70, "Print",ExpressionUUID->"af98e0e4-6695-46d7-b4db-b00f7afe94b1"],
+Cell[1068022, 27590, 2272, 56, 70, "Print",ExpressionUUID->"fe8a7e78-dde8-405c-b5f1-e2c0b955c3f1"],
+Cell[1070297, 27648, 836, 19, 70, "Print",ExpressionUUID->"249c161d-f218-47f7-aee8-fe8d682e73cc"],
+Cell[1071136, 27669, 239, 4, 70, "Print",ExpressionUUID->"1a8c3c2c-9e15-4144-9d82-a482576f9b73"],
+Cell[1071378, 27675, 1254, 29, 70, "Print",ExpressionUUID->"f51ddc27-ab6b-44a0-a88f-15f42a1f99f8"],
+Cell[1072635, 27706, 490, 12, 70, "Print",ExpressionUUID->"82a0950d-1272-4170-aef9-c002b918c9a4"],
+Cell[1073128, 27720, 2269, 56, 70, "Print",ExpressionUUID->"fbd1d117-575e-4d49-ac4d-d7043a5a8763"],
+Cell[1075400, 27778, 838, 19, 70, "Print",ExpressionUUID->"b09a72c1-ced8-4312-89f6-fb7c78fe37f2"],
+Cell[1076241, 27799, 241, 4, 70, "Print",ExpressionUUID->"86d86bd1-3581-4431-98fc-6cd6eae673bd"],
+Cell[1076485, 27805, 1253, 29, 70, "Print",ExpressionUUID->"d5b2f4c3-ae61-42b1-a376-2a425174d705"],
+Cell[1077741, 27836, 482, 11, 70, "Print",ExpressionUUID->"c93a8f9a-1759-422a-b7b9-b340278cf6bc"],
+Cell[1078226, 27849, 2272, 56, 70, "Print",ExpressionUUID->"cd670e08-dc00-49d7-9565-1786a12a4f84"],
+Cell[1080501, 27907, 814, 18, 70, "Print",ExpressionUUID->"054cd626-ae92-42d9-8042-4c6554225d37"],
+Cell[1081318, 27927, 239, 4, 70, "Print",ExpressionUUID->"e98b64fd-d743-4112-9482-1db6ce256561"],
+Cell[1081560, 27933, 1251, 29, 70, "Print",ExpressionUUID->"ff196bb4-de55-456f-8b6f-edb5a9453fef"],
+Cell[1082814, 27964, 492, 12, 70, "Print",ExpressionUUID->"7a82b92e-1c47-4809-a0dd-b7a6563cbea5"],
+Cell[1083309, 27978, 2275, 56, 70, "Print",ExpressionUUID->"ec0d7e26-4eff-4a3e-9d03-f016df1ea016"],
+Cell[1085587, 28036, 815, 18, 70, "Print",ExpressionUUID->"a046af61-a864-4999-9f93-40ec8da1541c"],
+Cell[1086405, 28056, 239, 4, 70, "Print",ExpressionUUID->"f6c310f6-418c-490f-b65c-e92303cba8d7"],
+Cell[1086647, 28062, 1254, 29, 70, "Print",ExpressionUUID->"c219e82d-43a0-4388-aa55-551a5b54ac00"],
+Cell[1087904, 28093, 492, 12, 70, "Print",ExpressionUUID->"2187d312-8005-456a-a37c-a9ec6dcc1fbe"],
+Cell[1088399, 28107, 2271, 56, 70, "Print",ExpressionUUID->"16656446-70e8-430f-93a8-6f82db38a5e6"],
+Cell[1090673, 28165, 838, 19, 70, "Print",ExpressionUUID->"b5914c15-c8de-4939-9d84-3e444dedd9cb"],
+Cell[1091514, 28186, 241, 4, 70, "Print",ExpressionUUID->"875a0215-8256-4896-96b4-a55090f50933"],
+Cell[1091758, 28192, 1250, 29, 70, "Print",ExpressionUUID->"ca3bf8bc-ced1-43bd-baf6-b0481bd7ad72"],
+Cell[1093011, 28223, 489, 12, 70, "Print",ExpressionUUID->"1d1b9293-961e-4095-bd76-3553a3738cf8"],
+Cell[1093503, 28237, 2272, 56, 70, "Print",ExpressionUUID->"7c3a4593-62b6-43bf-b873-8c0b756bebc4"],
+Cell[1095778, 28295, 836, 19, 70, "Print",ExpressionUUID->"3cdfa9f7-98cc-480e-8279-7db61972439b"],
+Cell[1096617, 28316, 239, 4, 70, "Print",ExpressionUUID->"72d56d6f-dc15-4453-97f1-26a01599bf73"],
+Cell[1096859, 28322, 1250, 29, 70, "Print",ExpressionUUID->"55ac5783-aa52-4f3d-b7e5-d9dcb35f2744"],
+Cell[1098112, 28353, 486, 11, 70, "Print",ExpressionUUID->"84a01057-5e01-4e2d-b410-c8080ca342b0"],
+Cell[1098601, 28366, 2271, 56, 70, "Print",ExpressionUUID->"b9b2b1dc-e5b6-454f-b10e-093536432290"],
+Cell[1100875, 28424, 836, 19, 70, "Print",ExpressionUUID->"c75ec2f3-465f-4d61-9ce7-c26a85f273dd"],
+Cell[1101714, 28445, 239, 4, 70, "Print",ExpressionUUID->"f92fb48c-13bf-4160-8027-4af9991dde19"],
+Cell[1101956, 28451, 1253, 29, 70, "Print",ExpressionUUID->"8c666713-60f8-4aaa-9ded-972ebdada4a1"],
+Cell[1103212, 28482, 489, 12, 70, "Print",ExpressionUUID->"d94c507e-2828-4d85-8003-9dac7b14fd87"],
+Cell[1103704, 28496, 2269, 56, 70, "Print",ExpressionUUID->"28edfe48-9084-45cc-ba4d-00af5d820589"],
+Cell[1105976, 28554, 838, 19, 70, "Print",ExpressionUUID->"a36d058a-cfb0-4915-8bef-0a1a79339c68"],
+Cell[1106817, 28575, 239, 4, 70, "Print",ExpressionUUID->"77182456-8503-4b24-8064-1dae266ab3d6"],
+Cell[1107059, 28581, 1249, 29, 70, "Print",ExpressionUUID->"22cbda3d-fa05-4a3c-8787-f3732a049a75"],
+Cell[1108311, 28612, 484, 11, 70, "Print",ExpressionUUID->"e360320d-9537-45bf-b258-5e91aeb8c573"],
+Cell[1108798, 28625, 2269, 56, 70, "Print",ExpressionUUID->"4034c300-860b-42bc-b00e-36adbf821839"],
+Cell[1111070, 28683, 813, 18, 70, "Print",ExpressionUUID->"3abc83fc-85b8-45dd-bc12-b4003a6ae241"],
+Cell[1111886, 28703, 239, 4, 70, "Print",ExpressionUUID->"a56282e9-e9d0-4928-b6e3-8828e3ef823d"],
+Cell[1112128, 28709, 1252, 29, 70, "Print",ExpressionUUID->"99b6fa90-c5c6-4996-a555-06f4b5aa5741"],
+Cell[1113383, 28740, 492, 12, 70, "Print",ExpressionUUID->"20a15a9f-2192-40d2-bc64-86f615b5b758"],
+Cell[1113878, 28754, 2274, 56, 70, "Print",ExpressionUUID->"9ab312cc-8406-4b17-b466-61a57a6a45db"],
+Cell[1116155, 28812, 813, 18, 70, "Print",ExpressionUUID->"1ceb9f63-a822-4a54-8c90-05ca363352f1"],
+Cell[1116971, 28832, 239, 4, 70, "Print",ExpressionUUID->"e197a5dc-0f4e-49e0-ac81-2a49aa0a5bdc"],
+Cell[1117213, 28838, 1251, 29, 70, "Print",ExpressionUUID->"455e54c1-9080-4d1c-9adc-c3c10857f200"],
+Cell[1118467, 28869, 489, 12, 70, "Print",ExpressionUUID->"d464b479-ff3f-44f4-b449-884250179ab6"],
+Cell[1118959, 28883, 2266, 56, 70, "Print",ExpressionUUID->"07ef1b60-306a-4253-bbc2-689346a2f278"],
+Cell[1121228, 28941, 836, 19, 70, "Print",ExpressionUUID->"b091bc0a-9a43-46cf-970e-de09082f7c87"],
+Cell[1122067, 28962, 241, 4, 70, "Print",ExpressionUUID->"9c88dd99-08fc-4e7a-9696-95be8a746ec0"],
+Cell[1122311, 28968, 1254, 29, 70, "Print",ExpressionUUID->"c9088f23-12ff-4f29-9e19-3b29d0307550"],
+Cell[1123568, 28999, 484, 11, 70, "Print",ExpressionUUID->"f7a0ee9c-54ea-44cc-9347-c68a2aa77c99"],
+Cell[1124055, 29012, 2270, 56, 70, "Print",ExpressionUUID->"86326734-9ed5-4ea6-989d-a90f080a2217"],
+Cell[1126328, 29070, 809, 18, 70, "Print",ExpressionUUID->"f7dcb9ad-130e-4e22-86e4-54aa64b2967d"],
+Cell[1127140, 29090, 239, 4, 70, "Print",ExpressionUUID->"aa9235b4-478d-4ed8-93f2-e26fb3a1a135"],
+Cell[1127382, 29096, 1251, 29, 70, "Print",ExpressionUUID->"f80a4116-ca2e-4575-956f-91e6218b1aef"],
+Cell[1128636, 29127, 490, 12, 70, "Print",ExpressionUUID->"7a4682eb-8c6e-41fc-9829-97c143de7e41"],
+Cell[1129129, 29141, 2269, 56, 70, "Print",ExpressionUUID->"0f41da14-c4fa-4ef1-9c04-352d79b3af6f"],
+Cell[1131401, 29199, 836, 19, 70, "Print",ExpressionUUID->"484b31b9-106d-49b0-97f4-46641cd36f45"],
+Cell[1132240, 29220, 239, 4, 70, "Print",ExpressionUUID->"5e73ba3e-52af-4d75-9ec9-772c24410879"],
+Cell[1132482, 29226, 1252, 29, 70, "Print",ExpressionUUID->"0cf9f705-311b-4721-976c-e05620060f6c"],
+Cell[1133737, 29257, 482, 11, 70, "Print",ExpressionUUID->"8154b4ef-9708-4ca1-9caa-b1050afd3e51"],
+Cell[1134222, 29270, 2272, 56, 70, "Print",ExpressionUUID->"b4d47704-e4f5-426e-9b1b-daa6608d6f9f"],
+Cell[1136497, 29328, 836, 19, 70, "Print",ExpressionUUID->"a2b0a66c-37e1-4db1-9fa2-16752e8efef5"],
+Cell[1137336, 29349, 239, 4, 70, "Print",ExpressionUUID->"2afaded4-4d50-4b92-9b4e-88dae09ef26e"],
+Cell[1137578, 29355, 1251, 29, 70, "Print",ExpressionUUID->"aa6010da-6b54-498f-b6ef-f0cc113469de"],
+Cell[1138832, 29386, 490, 12, 70, "Print",ExpressionUUID->"c7ab4607-6cc5-485b-b313-8a63a06074b5"],
+Cell[1139325, 29400, 2272, 56, 70, "Print",ExpressionUUID->"7628a22d-3048-476b-b4eb-de3416dd8a03"],
+Cell[1141600, 29458, 834, 19, 70, "Print",ExpressionUUID->"2ff7f0ba-604e-4cde-b6cc-e9a7520b6f59"],
+Cell[1142437, 29479, 239, 4, 70, "Print",ExpressionUUID->"e402e31e-5105-4a89-8079-2f9079058433"],
+Cell[1142679, 29485, 1252, 29, 70, "Print",ExpressionUUID->"505d3a38-9fdd-4d26-b669-e49d3b267754"],
+Cell[1143934, 29516, 486, 11, 70, "Print",ExpressionUUID->"385f0f14-3cf7-40e2-a9b4-e0a6238a2b55"],
+Cell[1144423, 29529, 2269, 56, 70, "Print",ExpressionUUID->"55cef685-c83b-4b5c-bafc-4f04c88a17ab"],
+Cell[1146695, 29587, 815, 18, 70, "Print",ExpressionUUID->"51bf478a-6954-4055-9961-b34ef412d4e6"],
+Cell[1147513, 29607, 239, 4, 70, "Print",ExpressionUUID->"6302778f-a4bc-4898-adad-2bc9809825a7"],
+Cell[1147755, 29613, 1249, 29, 70, "Print",ExpressionUUID->"be9d9b98-ab8d-4734-8f46-d879d3148e53"],
+Cell[1149007, 29644, 490, 12, 70, "Print",ExpressionUUID->"7398d7bc-a8e7-40df-addc-01837f5e7024"],
+Cell[1149500, 29658, 2274, 56, 70, "Print",ExpressionUUID->"475872c6-a6f5-4046-a24b-9d69acd1d10e"],
+Cell[1151777, 29716, 838, 19, 70, "Print",ExpressionUUID->"1f63ecf0-3515-4c70-9899-bc9f5a34eac7"],
+Cell[1152618, 29737, 241, 4, 70, "Print",ExpressionUUID->"59ae776a-bc41-4ac1-a769-cce37dc5780a"],
+Cell[1152862, 29743, 1252, 29, 70, "Print",ExpressionUUID->"f43df338-3820-41f4-8f70-24329e1cb865"],
+Cell[1154117, 29774, 490, 12, 70, "Print",ExpressionUUID->"90456c8d-3631-4f01-9310-4404a71893c7"],
+Cell[1154610, 29788, 2271, 56, 70, "Print",ExpressionUUID->"68dab623-686d-496e-9ffd-7e13ba9af720"],
+Cell[1156884, 29846, 834, 19, 70, "Print",ExpressionUUID->"c6aa42b1-dbfe-4278-8edc-0648a626f916"],
+Cell[1157721, 29867, 239, 4, 70, "Print",ExpressionUUID->"25f968d4-d861-4797-b684-27364d428b16"],
+Cell[1157963, 29873, 1248, 29, 70, "Print",ExpressionUUID->"fe5c3e44-0280-47a8-a9a2-923749ebb66c"],
+Cell[1159214, 29904, 484, 11, 70, "Print",ExpressionUUID->"44d2a36e-419a-4532-a04e-793103f62154"],
+Cell[1159701, 29917, 2272, 56, 70, "Print",ExpressionUUID->"255e0003-0b5a-4a28-9614-7d7b1e42be2e"],
+Cell[1161976, 29975, 834, 19, 70, "Print",ExpressionUUID->"a2d9a4ca-c74a-4bda-8781-4329cf294499"],
+Cell[1162813, 29996, 241, 4, 70, "Print",ExpressionUUID->"160abf41-e2e4-4558-974c-d59861886da3"],
+Cell[1163057, 30002, 1251, 29, 70, "Print",ExpressionUUID->"37a0a9fb-cae8-4ee2-9c74-ab5e4f6c925e"],
+Cell[1164311, 30033, 490, 12, 70, "Print",ExpressionUUID->"17cace8e-8c82-4c09-8bf1-4b84400c3ca2"],
+Cell[1164804, 30047, 2275, 56, 70, "Print",ExpressionUUID->"47ee1581-7a8c-4689-a4bf-f406dbf48da0"],
+Cell[1167082, 30105, 811, 18, 70, "Print",ExpressionUUID->"3de3c0c3-e947-4440-89b1-84f31edef4a0"],
+Cell[1167896, 30125, 239, 4, 70, "Print",ExpressionUUID->"db152814-5028-4ff6-b282-26580073c31b"],
+Cell[1168138, 30131, 1254, 29, 70, "Print",ExpressionUUID->"58073454-cbdf-447f-aa8b-935c0495255b"],
+Cell[1169395, 30162, 490, 12, 70, "Print",ExpressionUUID->"3e319f16-3608-498f-8252-94c038e61bdb"],
+Cell[1169888, 30176, 2269, 56, 70, "Print",ExpressionUUID->"3316334d-2567-477e-89fe-6ac45a1326da"],
+Cell[1172160, 30234, 830, 19, 70, "Print",ExpressionUUID->"b1979334-517e-40ef-bbf3-3e1573a3da69"],
+Cell[1172993, 30255, 239, 4, 70, "Print",ExpressionUUID->"7f806123-2ad9-4ab7-8338-4ddc39539c2d"],
+Cell[1173235, 30261, 1251, 29, 70, "Print",ExpressionUUID->"669229e3-e5e7-4f17-b22a-aa41cec4e208"],
+Cell[1174489, 30292, 484, 11, 70, "Print",ExpressionUUID->"66abd4e0-34df-4c0b-a686-957b8b0fc843"],
+Cell[1174976, 30305, 2269, 56, 70, "Print",ExpressionUUID->"a60a8481-ca63-4eeb-baed-a39d4bce07f6"],
+Cell[1177248, 30363, 834, 19, 70, "Print",ExpressionUUID->"dea00dd9-da9e-4b38-a7f1-bcdaccfab787"],
+Cell[1178085, 30384, 241, 4, 70, "Print",ExpressionUUID->"0aed1533-5d13-43db-aa60-ef187a32d614"],
+Cell[1178329, 30390, 1250, 29, 70, "Print",ExpressionUUID->"dbcea1ff-5259-49ee-bc50-1b8426697c0f"],
+Cell[1179582, 30421, 490, 12, 70, "Print",ExpressionUUID->"9d36f73b-df44-4746-86e0-76f012af0a2b"],
+Cell[1180075, 30435, 2272, 56, 70, "Print",ExpressionUUID->"21e8788d-95d2-4d07-a728-e018c94e3d40"],
+Cell[1182350, 30493, 813, 18, 70, "Print",ExpressionUUID->"d379f697-cde4-4a9c-b2c9-67ad5259675f"],
+Cell[1183166, 30513, 238, 4, 70, "Print",ExpressionUUID->"2b58eb61-9322-4a30-ac4e-ddd71ebe6dbe"],
+Cell[1183407, 30519, 1253, 29, 70, "Print",ExpressionUUID->"d63537bb-7602-472d-b762-ad300b53ff46"],
+Cell[1184663, 30550, 483, 11, 70, "Print",ExpressionUUID->"9e379964-bb83-4c06-9951-fd6145d8e037"],
+Cell[1185149, 30563, 2269, 56, 70, "Print",ExpressionUUID->"b5faa05d-b64f-433c-9635-e25f3a7e789f"],
+Cell[1187421, 30621, 836, 19, 70, "Print",ExpressionUUID->"81e1255d-239b-47c1-8511-1a298dc10966"],
+Cell[1188260, 30642, 239, 4, 70, "Print",ExpressionUUID->"973d3fd9-1b85-4fd7-a49f-d2cacdbe618c"],
+Cell[1188502, 30648, 1251, 29, 70, "Print",ExpressionUUID->"8dd91ab7-30cc-47c7-8b74-87cebb5d2be4"],
+Cell[1189756, 30679, 484, 11, 70, "Print",ExpressionUUID->"90545944-6dc3-43d2-a686-ef11def5233f"],
+Cell[1190243, 30692, 2275, 56, 70, "Print",ExpressionUUID->"96486074-2118-4652-a731-fb4fc2bd93ed"],
+Cell[1192521, 30750, 838, 19, 70, "Print",ExpressionUUID->"7ead141e-5afd-4d2c-841a-d16e2018dbd0"],
+Cell[1193362, 30771, 239, 4, 70, "Print",ExpressionUUID->"8b44b5c1-6105-430c-b9c8-e9e7d3b61d98"],
+Cell[1193604, 30777, 1252, 29, 70, "Print",ExpressionUUID->"a27b4424-9bc6-4460-bc26-6307679633d6"],
+Cell[1194859, 30808, 490, 12, 70, "Print",ExpressionUUID->"c7d7b613-c332-4e25-b889-f78187fa55c7"],
+Cell[1195352, 30822, 2260, 56, 70, "Print",ExpressionUUID->"4576947b-41ca-4599-852e-a4b60b570a99"],
+Cell[1197615, 30880, 835, 19, 70, "Print",ExpressionUUID->"e774bb9e-8a7b-4e7b-be0e-e9ba1ac5923f"],
+Cell[1198453, 30901, 239, 4, 70, "Print",ExpressionUUID->"604715f7-6846-4e4f-a71e-02d2458a5609"],
+Cell[1198695, 30907, 1250, 29, 70, "Print",ExpressionUUID->"2f9e8a2b-669a-480b-83f9-6edc23effea5"],
+Cell[1199948, 30938, 484, 11, 70, "Print",ExpressionUUID->"8d87d43e-3533-4db1-b29c-30c6d8e1304c"],
+Cell[1200435, 30951, 2275, 56, 70, "Print",ExpressionUUID->"655b555c-248a-4246-a3c7-1fb1582db9d1"],
+Cell[1202713, 31009, 814, 18, 70, "Print",ExpressionUUID->"1c63b16d-6867-45dd-ad5f-82499c80b138"],
+Cell[1203530, 31029, 241, 4, 70, "Print",ExpressionUUID->"3a6b5923-1627-408b-b655-daf2780f736c"],
+Cell[1203774, 31035, 1250, 29, 70, "Print",ExpressionUUID->"ff053286-2d3d-4232-8a01-959793911f5b"],
+Cell[1205027, 31066, 486, 11, 70, "Print",ExpressionUUID->"1f514df0-1053-4454-a0ee-b4de091a9a3e"],
+Cell[1205516, 31079, 2269, 56, 70, "Print",ExpressionUUID->"6af6a127-70cc-45d0-9c62-728632e957db"],
+Cell[1207788, 31137, 836, 19, 70, "Print",ExpressionUUID->"178222e1-29b0-4633-8c9a-d90ac6473551"],
+Cell[1208627, 31158, 239, 4, 70, "Print",ExpressionUUID->"9cd5265e-15c1-4ea5-b6f8-8bf085a77227"],
+Cell[1208869, 31164, 1252, 29, 70, "Print",ExpressionUUID->"21094872-95e3-46e8-b00b-ccb3593f9004"],
+Cell[1210124, 31195, 484, 11, 70, "Print",ExpressionUUID->"57944f53-5899-445d-877b-4f563eb8c802"],
+Cell[1210611, 31208, 2272, 56, 70, "Print",ExpressionUUID->"68060c10-432f-4d59-96b6-20ba51bc4df7"],
+Cell[1212886, 31266, 834, 19, 70, "Print",ExpressionUUID->"7bd8c471-3161-4288-af26-5c59aae178b8"],
+Cell[1213723, 31287, 238, 4, 70, "Print",ExpressionUUID->"2ad4dc03-cfdb-416f-a0ff-0c5558f3fe8a"],
+Cell[1213964, 31293, 1252, 29, 70, "Print",ExpressionUUID->"04d7a411-1413-4420-9bda-9b19e9f54535"],
+Cell[1215219, 31324, 484, 11, 70, "Print",ExpressionUUID->"ed0f06a7-8eae-44cc-9ff1-ff4f1468136c"],
+Cell[1215706, 31337, 2269, 56, 70, "Print",ExpressionUUID->"cb511f6b-9693-4a28-9a63-d5d0c49327d6"],
+Cell[1217978, 31395, 815, 18, 70, "Print",ExpressionUUID->"bc04b2be-09c9-41c0-894c-ed85b31255a9"],
+Cell[1218796, 31415, 239, 4, 70, "Print",ExpressionUUID->"863beb88-e3b6-44ff-be18-31ee8cbb52c7"],
+Cell[1219038, 31421, 1252, 29, 70, "Print",ExpressionUUID->"ef0c5fca-1b8e-419a-b41c-162b46c3f728"],
+Cell[1220293, 31452, 483, 11, 70, "Print",ExpressionUUID->"6b28b967-f853-4605-a353-4d28462e27b4"],
+Cell[1220779, 31465, 2266, 56, 70, "Print",ExpressionUUID->"1faa1b42-f362-4d90-a956-9b55812e93ad"],
+Cell[1223048, 31523, 834, 19, 70, "Print",ExpressionUUID->"97a12f4c-5bac-48c3-b2ed-7b5dad8da8f3"],
+Cell[1223885, 31544, 239, 4, 70, "Print",ExpressionUUID->"23e28c09-0bee-4076-b77f-ada2c061b92d"],
+Cell[1224127, 31550, 1252, 29, 70, "Print",ExpressionUUID->"d4ee61d3-5ad0-42a6-9c47-270d2f8765ef"],
+Cell[1225382, 31581, 490, 12, 70, "Print",ExpressionUUID->"83515d63-2791-48d6-8ebb-3212213f1700"],
+Cell[1225875, 31595, 2268, 56, 70, "Print",ExpressionUUID->"8df3ae74-355d-43bf-854d-89f7f74ead6f"],
+Cell[1228146, 31653, 821, 18, 70, "Print",ExpressionUUID->"8978b8cf-6b6f-4457-bd9b-dff792e88707"],
+Cell[1228970, 31673, 239, 4, 70, "Print",ExpressionUUID->"23c01cbe-e1f1-4e14-9c66-095a3e521c98"],
+Cell[1229212, 31679, 1252, 29, 70, "Print",ExpressionUUID->"409762b3-c56f-40cc-9c4c-d2abe755ef43"],
+Cell[1230467, 31710, 490, 12, 70, "Print",ExpressionUUID->"7e741844-6f74-436b-a9a2-9fbca8f0dc56"],
+Cell[1230960, 31724, 2269, 56, 70, "Print",ExpressionUUID->"7996b165-cd8f-4c85-8aa8-0d79250b5b38"],
+Cell[1233232, 31782, 832, 19, 70, "Print",ExpressionUUID->"0c2de0cd-5101-4ec1-9b59-b774fd6f719b"],
+Cell[1234067, 31803, 239, 4, 70, "Print",ExpressionUUID->"0f6f4125-26ac-4856-bfb9-ca70d57dce83"],
+Cell[1234309, 31809, 1252, 29, 70, "Print",ExpressionUUID->"2d8de64a-cee6-4b38-8aa8-335029e0d3a6"],
+Cell[1235564, 31840, 492, 12, 70, "Print",ExpressionUUID->"23e88e77-1626-4ba4-a82d-6e7ee25cc4c8"],
+Cell[1236059, 31854, 2275, 56, 70, "Print",ExpressionUUID->"c45b3461-8bb2-43fa-a813-1582aee6b8c4"],
+Cell[1238337, 31912, 833, 19, 70, "Print",ExpressionUUID->"37b0d445-169e-4e84-bf92-ddd9907361cb"],
+Cell[1239173, 31933, 239, 4, 70, "Print",ExpressionUUID->"6469dbef-4462-434c-a592-4a9dbfd5a937"],
+Cell[1239415, 31939, 1252, 29, 70, "Print",ExpressionUUID->"b5995c65-17ce-42f8-b16c-e2e683cd2941"],
+Cell[1240670, 31970, 484, 11, 70, "Print",ExpressionUUID->"b65961bc-8b10-47c5-8077-ae9d94d87227"],
+Cell[1241157, 31983, 2275, 56, 70, "Print",ExpressionUUID->"e2988ede-c54d-4206-90eb-eb4505543f7e"],
+Cell[1243435, 32041, 832, 19, 70, "Print",ExpressionUUID->"fcdd1e52-e71e-4b4f-b923-2d6f4bd75383"],
+Cell[1244270, 32062, 238, 4, 70, "Print",ExpressionUUID->"7c0044c8-59ec-4cc5-9a35-709cbcf1c6ef"],
+Cell[1244511, 32068, 1252, 29, 70, "Print",ExpressionUUID->"004aa918-fb00-4299-94fa-66046a7ecfbd"],
+Cell[1245766, 32099, 484, 11, 70, "Print",ExpressionUUID->"deaeb059-1a27-4dc2-9138-bf5da443170a"],
+Cell[1246253, 32112, 2275, 56, 70, "Print",ExpressionUUID->"366af2c5-39fb-47f6-9b79-31d0e9b0b2ca"],
+Cell[1248531, 32170, 834, 19, 70, "Print",ExpressionUUID->"e3871e80-c1bf-4ca2-bd39-98093e7f2896"],
+Cell[1249368, 32191, 239, 4, 70, "Print",ExpressionUUID->"ac7d17f2-23eb-4ef7-82a0-75b9c5731db7"],
+Cell[1249610, 32197, 1252, 29, 70, "Print",ExpressionUUID->"a716ee1b-adb9-490a-b300-8bf77f21c68d"],
+Cell[1250865, 32228, 484, 11, 70, "Print",ExpressionUUID->"7c53f10d-209e-4fc9-8310-e769df8051a8"],
+Cell[1251352, 32241, 2269, 56, 70, "Print",ExpressionUUID->"d70eb64f-938c-432e-b39f-25e98aa6137b"],
+Cell[1253624, 32299, 834, 19, 70, "Print",ExpressionUUID->"47fccf0b-aaa7-4ffd-b68d-7d256ebb57e3"],
+Cell[1254461, 32320, 239, 4, 70, "Print",ExpressionUUID->"2e1dbbf6-3c1a-4511-a2f5-2d5c3b4a1384"],
+Cell[1254703, 32326, 1251, 29, 70, "Print",ExpressionUUID->"685f8a7e-3298-40c8-9800-2b6676b6ec07"],
+Cell[1255957, 32357, 490, 12, 70, "Print",ExpressionUUID->"1ff5a700-9268-443d-84ea-ef8b37ecc8c3"],
+Cell[1256450, 32371, 2265, 56, 70, "Print",ExpressionUUID->"c334cdad-525b-4024-8207-114f5fc35d55"],
+Cell[1258718, 32429, 815, 18, 70, "Print",ExpressionUUID->"f0499bd0-158b-4dbe-8ea1-d6d673c038a3"],
+Cell[1259536, 32449, 239, 4, 70, "Print",ExpressionUUID->"f949353e-4e4a-4775-a0e8-4bac9a647cbb"],
+Cell[1259778, 32455, 1250, 29, 70, "Print",ExpressionUUID->"3ae1a364-8368-430d-adbd-eee7b18c95a2"],
+Cell[1261031, 32486, 490, 12, 70, "Print",ExpressionUUID->"98c292f0-8547-49df-82dd-39309390d947"],
+Cell[1261524, 32500, 2277, 56, 70, "Print",ExpressionUUID->"6d451dba-1e5b-4753-ad90-2a905331bb2a"],
+Cell[1263804, 32558, 813, 18, 70, "Print",ExpressionUUID->"0174a1ab-349f-47ea-82b7-7d16d482fd61"],
+Cell[1264620, 32578, 238, 4, 70, "Print",ExpressionUUID->"2c1cb5ba-9f31-4922-8402-f9faa6a65463"],
+Cell[1264861, 32584, 1249, 29, 70, "Print",ExpressionUUID->"8a67a529-905e-497a-86aa-03e148ab55a7"],
+Cell[1266113, 32615, 490, 12, 70, "Print",ExpressionUUID->"15a9fabd-215b-4049-97e4-9224d7ad4530"],
+Cell[1266606, 32629, 2269, 56, 70, "Print",ExpressionUUID->"0ac74549-65ca-4656-bc38-cd38f97a0040"],
+Cell[1268878, 32687, 838, 19, 70, "Print",ExpressionUUID->"7178167b-8388-438f-9d21-eac8e74e37ec"],
+Cell[1269719, 32708, 239, 4, 70, "Print",ExpressionUUID->"3a072c99-0abb-4ff1-8454-9a02cfeca9ff"],
+Cell[1269961, 32714, 1247, 29, 70, "Print",ExpressionUUID->"b8c1f126-f24a-4d4b-a642-96f0c53f4b4b"],
+Cell[1271211, 32745, 484, 11, 70, "Print",ExpressionUUID->"dc95de3f-aea7-4f1c-973a-d0526dbeae50"],
+Cell[1271698, 32758, 2269, 56, 70, "Print",ExpressionUUID->"01d9f810-f0aa-40cb-a7bc-4158f4d96e63"],
+Cell[1273970, 32816, 832, 19, 70, "Print",ExpressionUUID->"a8148218-abcc-4642-9a14-89165f9af6b4"],
+Cell[1274805, 32837, 239, 4, 70, "Print",ExpressionUUID->"1cd49e5b-3c43-4e5d-9652-4babcb147586"],
+Cell[1275047, 32843, 1252, 29, 70, "Print",ExpressionUUID->"ceb928d7-f331-4251-a0bb-327aab8083b4"],
+Cell[1276302, 32874, 484, 11, 70, "Print",ExpressionUUID->"23368991-4c64-47f9-8a04-ba86d0e7ae69"],
+Cell[1276789, 32887, 2269, 56, 70, "Print",ExpressionUUID->"5c825c44-83ae-4039-8ed2-39b78391de3c"],
+Cell[1279061, 32945, 834, 19, 70, "Print",ExpressionUUID->"af5dee69-6cff-419a-b72a-717a6a2d8ee6"],
+Cell[1279898, 32966, 239, 4, 70, "Print",ExpressionUUID->"b2d6a658-03a7-4383-b9d2-e1489508b1d9"],
+Cell[1280140, 32972, 1253, 29, 70, "Print",ExpressionUUID->"e36ea031-d423-409d-b969-2e544f57dab7"],
+Cell[1281396, 33003, 484, 11, 70, "Print",ExpressionUUID->"fb0d8040-1097-428f-acea-6531fe344c1e"],
+Cell[1281883, 33016, 2266, 56, 70, "Print",ExpressionUUID->"1a1c1c5e-fe88-47aa-8e20-12b6e5ea3a28"],
+Cell[1284152, 33074, 834, 19, 70, "Print",ExpressionUUID->"332d53c1-fd6d-41d6-9f14-b2037abf9557"],
+Cell[1284989, 33095, 239, 4, 70, "Print",ExpressionUUID->"056b6dc1-4833-4e0d-bcdb-9a55e5de6128"],
+Cell[1285231, 33101, 1251, 29, 70, "Print",ExpressionUUID->"30a1ffce-6185-4229-b841-bb286231957d"],
+Cell[1286485, 33132, 484, 11, 70, "Print",ExpressionUUID->"a12b9caf-a59c-439a-af70-ed3ad915fb55"],
+Cell[1286972, 33145, 2274, 56, 70, "Print",ExpressionUUID->"e207eb95-c858-4e2e-8378-80ffdf6cd66a"],
+Cell[1289249, 33203, 838, 19, 70, "Print",ExpressionUUID->"9725b14d-6a9b-414f-bb2e-14580a6bff06"],
+Cell[1290090, 33224, 239, 4, 70, "Print",ExpressionUUID->"5686d765-a23f-4772-a940-9b9f84ff8f7e"],
+Cell[1290332, 33230, 1252, 29, 70, "Print",ExpressionUUID->"d4123eaf-f143-42b5-bf32-6d096b2d2aef"],
+Cell[1291587, 33261, 486, 11, 70, "Print",ExpressionUUID->"a7216ebc-1d57-4803-b216-47305ec4cad3"],
+Cell[1292076, 33274, 2272, 56, 70, "Print",ExpressionUUID->"a81efc81-9757-4269-a80e-d8b7e83cecc1"],
+Cell[1294351, 33332, 836, 19, 70, "Print",ExpressionUUID->"2431ff48-a994-4a63-b18a-b5113c945cd2"],
+Cell[1295190, 33353, 241, 4, 70, "Print",ExpressionUUID->"81223f25-41a5-4f47-9ad7-e9f292b870fb"],
+Cell[1295434, 33359, 1254, 29, 70, "Print",ExpressionUUID->"671057cc-0187-4fa5-8407-7d5c725f6c59"],
+Cell[1296691, 33390, 490, 12, 70, "Print",ExpressionUUID->"107ea11d-c3e7-4f15-94f9-7d193b324317"],
+Cell[1297184, 33404, 2269, 56, 70, "Print",ExpressionUUID->"f204e57c-ba46-4112-a7d3-46df22eab190"],
+Cell[1299456, 33462, 834, 19, 70, "Print",ExpressionUUID->"bfd61556-c7e9-4475-b9d4-675851bbbc6a"],
+Cell[1300293, 33483, 238, 4, 70, "Print",ExpressionUUID->"fe764d26-6598-4b9c-bc2c-b358d81f2418"],
+Cell[1300534, 33489, 1252, 29, 70, "Print",ExpressionUUID->"ba7cb3f2-aca2-4d3a-b120-207f06e06479"],
+Cell[1301789, 33520, 492, 12, 70, "Print",ExpressionUUID->"63d0f6b3-c85c-4d2c-bda8-75935daecb1e"],
+Cell[1302284, 33534, 2271, 56, 70, "Print",ExpressionUUID->"fa0792a9-8170-44c5-8ad5-5a59d40f0ea2"],
+Cell[1304558, 33592, 836, 19, 70, "Print",ExpressionUUID->"53433c3b-e81e-4066-8667-ef4a9388d82d"],
+Cell[1305397, 33613, 241, 4, 70, "Print",ExpressionUUID->"4f1d818b-67df-4dba-83a4-ccf6d4e0ccfc"],
+Cell[1305641, 33619, 1250, 29, 70, "Print",ExpressionUUID->"a1a465e8-d8e8-4266-b360-d6f907cd0137"],
+Cell[1306894, 33650, 484, 11, 70, "Print",ExpressionUUID->"39b5af94-9cd1-4213-8074-c6ab10e59e68"],
+Cell[1307381, 33663, 2275, 56, 70, "Print",ExpressionUUID->"b5ac264f-3c13-4674-accc-03b0cbec92e9"],
+Cell[1309659, 33721, 836, 19, 70, "Print",ExpressionUUID->"73a44c2a-7955-49c4-9195-70e005e0c5d2"],
+Cell[1310498, 33742, 239, 4, 70, "Print",ExpressionUUID->"95a14447-1299-4312-815c-d11eb7a9ca66"],
+Cell[1310740, 33748, 1252, 29, 70, "Print",ExpressionUUID->"329d1525-3a6a-4ca1-bde8-35ff2100c0f0"],
+Cell[1311995, 33779, 483, 11, 70, "Print",ExpressionUUID->"d3c61a67-05d6-4687-a86f-1415835f8c08"],
+Cell[1312481, 33792, 2272, 56, 70, "Print",ExpressionUUID->"333a20ee-5223-40b2-9729-ae337f6d0430"],
+Cell[1314756, 33850, 834, 19, 70, "Print",ExpressionUUID->"3b714156-0fe9-4038-a2d3-e9ac1b399793"],
+Cell[1315593, 33871, 239, 4, 70, "Print",ExpressionUUID->"c5034d38-1a22-4854-ae37-98397dee1ac2"],
+Cell[1315835, 33877, 1251, 29, 70, "Print",ExpressionUUID->"7f8c2c1a-0880-4ec7-a2b5-d09ba133e233"],
+Cell[1317089, 33908, 490, 12, 70, "Print",ExpressionUUID->"8eca6126-1fc7-438b-9eda-346ed4a79ad7"],
+Cell[1317582, 33922, 2275, 56, 70, "Print",ExpressionUUID->"d30b3224-ad16-4c10-99a4-b2c409afb5ce"],
+Cell[1319860, 33980, 815, 18, 70, "Print",ExpressionUUID->"c071f64c-61b4-4c1d-ba87-559c7db29cd6"],
+Cell[1320678, 34000, 239, 4, 70, "Print",ExpressionUUID->"12a543ed-9e41-4f0a-a87c-20f2c0e3d558"],
+Cell[1320920, 34006, 1251, 29, 70, "Print",ExpressionUUID->"94f05bbe-3fdd-495f-b7ac-1f565587595c"],
+Cell[1322174, 34037, 482, 11, 70, "Print",ExpressionUUID->"e2c9c504-1399-4430-b9fe-f422ebb7fca7"],
+Cell[1322659, 34050, 2272, 56, 70, "Print",ExpressionUUID->"5e66b915-e487-42b5-a238-6a7e84d67ea9"],
+Cell[1324934, 34108, 840, 19, 70, "Print",ExpressionUUID->"88c9227c-2983-4a31-86c5-c2cc8c845529"],
+Cell[1325777, 34129, 239, 4, 70, "Print",ExpressionUUID->"93f0447c-8b13-45a6-99fa-ff859d35e2bf"],
+Cell[1326019, 34135, 1249, 29, 70, "Print",ExpressionUUID->"b2015e5b-1dc8-46c1-b8f6-8763e5bb2296"],
+Cell[1327271, 34166, 490, 12, 70, "Print",ExpressionUUID->"35ceb1ff-a8fb-464d-823d-d0336fed0fe5"],
+Cell[1327764, 34180, 2269, 56, 70, "Print",ExpressionUUID->"d8836511-ceed-4601-bf5d-df17114a4d90"],
+Cell[1330036, 34238, 834, 19, 70, "Print",ExpressionUUID->"d157ffdf-8c3a-491e-9e42-297789b46629"],
+Cell[1330873, 34259, 239, 4, 70, "Print",ExpressionUUID->"6fd986dc-3a95-4fdb-9d47-d34ceb6027cb"],
+Cell[1331115, 34265, 1250, 29, 70, "Print",ExpressionUUID->"358d5906-4a54-43a0-9340-f3b93a420150"],
+Cell[1332368, 34296, 492, 12, 70, "Print",ExpressionUUID->"2566fc8b-dced-46f2-afdf-96313f090f09"],
+Cell[1332863, 34310, 2272, 56, 70, "Print",ExpressionUUID->"21bd3c26-6d56-4b62-8d2d-9b152c8d90e3"],
+Cell[1335138, 34368, 834, 19, 70, "Print",ExpressionUUID->"d62591f7-e888-44e5-add4-7026464966e7"],
+Cell[1335975, 34389, 239, 4, 70, "Print",ExpressionUUID->"dc6502ce-ebdd-4714-9f16-856482140573"],
+Cell[1336217, 34395, 1252, 29, 70, "Print",ExpressionUUID->"ce9edb65-6d61-428b-897d-cbae4ca0857e"],
+Cell[1337472, 34426, 484, 11, 70, "Print",ExpressionUUID->"005055a6-b10f-42d1-a1b0-4781e901e59f"],
+Cell[1337959, 34439, 2274, 56, 70, "Print",ExpressionUUID->"dd630cf4-b36c-4a71-a6df-a26d4c1358da"],
+Cell[1340236, 34497, 836, 19, 70, "Print",ExpressionUUID->"7f0a8ff2-6810-424c-83cd-75f98ea9cc01"],
+Cell[1341075, 34518, 241, 4, 70, "Print",ExpressionUUID->"1bb6d07d-53a6-41f4-8554-69c99280a47c"],
+Cell[1341319, 34524, 1252, 29, 70, "Print",ExpressionUUID->"c3a1e0cd-b21c-4715-abbc-bf7aaa7e8aa5"],
+Cell[1342574, 34555, 486, 11, 70, "Print",ExpressionUUID->"1c6f94dd-6bc3-43ba-8237-8c314f071222"],
+Cell[1343063, 34568, 2269, 56, 70, "Print",ExpressionUUID->"2db62df7-b8a8-4e57-a670-1f20e100d2c4"],
+Cell[1345335, 34626, 834, 19, 70, "Print",ExpressionUUID->"3a7ffdfc-2ce9-45f5-a8c3-55a177c2300a"],
+Cell[1346172, 34647, 239, 4, 70, "Print",ExpressionUUID->"16ced7b9-e08d-4161-bbd3-365f9b919596"],
+Cell[1346414, 34653, 1251, 29, 70, "Print",ExpressionUUID->"f82ffb5c-ba0b-4d40-a6b3-5252ca5d9f5f"],
+Cell[1347668, 34684, 484, 11, 70, "Print",ExpressionUUID->"d144a476-0e5d-4ab4-ab3f-2f87b57462e9"],
+Cell[1348155, 34697, 2269, 56, 70, "Print",ExpressionUUID->"45e17c0d-e58a-4f76-8fd3-8bed52584317"],
+Cell[1350427, 34755, 838, 19, 70, "Print",ExpressionUUID->"d46ae3fa-e25c-47b1-94c8-4849b673bb60"],
+Cell[1351268, 34776, 239, 4, 70, "Print",ExpressionUUID->"013f2998-43a3-42f5-b87d-720c613510f4"],
+Cell[1351510, 34782, 1252, 29, 70, "Print",ExpressionUUID->"bcf9af9f-d1ba-4730-87f6-37b4e4e9f559"],
+Cell[1352765, 34813, 490, 12, 70, "Print",ExpressionUUID->"f019970b-9a35-4321-bab4-e39c4f7dcf74"],
+Cell[1353258, 34827, 2269, 56, 70, "Print",ExpressionUUID->"666e252f-ac25-4802-8175-3c2e272b6055"],
+Cell[1355530, 34885, 838, 19, 70, "Print",ExpressionUUID->"78193e13-e3da-4bc7-b386-0e99203c1f42"],
+Cell[1356371, 34906, 241, 4, 70, "Print",ExpressionUUID->"703fa41a-11fd-4f5c-986d-8a017545d487"],
+Cell[1356615, 34912, 1249, 29, 70, "Print",ExpressionUUID->"7b5ce632-8e55-4d75-88e2-a88822e63942"],
+Cell[1357867, 34943, 484, 11, 70, "Print",ExpressionUUID->"888b8ce2-f2a8-4260-b9d4-0e3e824351bb"],
+Cell[1358354, 34956, 2277, 56, 70, "Print",ExpressionUUID->"68ae0339-aa1a-4eb9-9b6d-793334ac22f7"],
+Cell[1360634, 35014, 817, 18, 70, "Print",ExpressionUUID->"54858d56-4102-4805-b436-ecb29bb6c2e1"],
+Cell[1361454, 35034, 241, 4, 70, "Print",ExpressionUUID->"57b149a6-fc8d-49d3-bed8-06f35cb94093"],
+Cell[1361698, 35040, 1254, 29, 70, "Print",ExpressionUUID->"cd9ed5f0-5dd8-4cf6-9b5a-0f841d474c2e"],
+Cell[1362955, 35071, 486, 11, 70, "Print",ExpressionUUID->"079d8c88-392f-4e9b-ae49-b7360f5fe650"],
+Cell[1363444, 35084, 2269, 56, 70, "Print",ExpressionUUID->"082d67e2-3b47-49f2-8cfd-95a91c8cf65c"],
+Cell[1365716, 35142, 813, 18, 70, "Print",ExpressionUUID->"5e6bedab-0a8f-4f06-8159-345d82da7a39"],
+Cell[1366532, 35162, 238, 4, 70, "Print",ExpressionUUID->"d1a9085b-e697-4d00-a1f6-18841d84c030"],
+Cell[1366773, 35168, 1249, 29, 70, "Print",ExpressionUUID->"5ba52e86-ad61-4fee-bfb6-09489b2824e5"],
+Cell[1368025, 35199, 484, 11, 70, "Print",ExpressionUUID->"4b876983-6675-4140-a5af-0dd35c0d5769"],
+Cell[1368512, 35212, 2272, 56, 70, "Print",ExpressionUUID->"0e2c208c-ba55-4ecd-8482-2ee47ecdfef4"],
+Cell[1370787, 35270, 815, 18, 70, "Print",ExpressionUUID->"9517163a-a6a4-4048-8d91-9707efba6e6e"],
+Cell[1371605, 35290, 239, 4, 70, "Print",ExpressionUUID->"dc6b4dda-392d-41a5-8c48-9f6c27faca94"],
+Cell[1371847, 35296, 1250, 29, 70, "Print",ExpressionUUID->"844cec0f-7922-4d14-95a1-64582d4f21a7"],
+Cell[1373100, 35327, 484, 11, 70, "Print",ExpressionUUID->"0e48878e-1089-473e-9b90-47cb060fd578"],
+Cell[1373587, 35340, 2269, 56, 70, "Print",ExpressionUUID->"070111c8-be63-402f-9077-b20b8b3f349b"],
+Cell[1375859, 35398, 834, 19, 70, "Print",ExpressionUUID->"1ceded92-be83-491e-9d4e-c620f9f74a86"],
+Cell[1376696, 35419, 239, 4, 70, "Print",ExpressionUUID->"86f8e2d4-ad75-4afe-8a13-7325cb94c5e5"],
+Cell[1376938, 35425, 1252, 29, 70, "Print",ExpressionUUID->"75f5bf9c-dfc5-4225-8c66-43fb45dfd7e4"],
+Cell[1378193, 35456, 484, 11, 70, "Print",ExpressionUUID->"56e27c9f-f5a3-4c34-938c-80376891fb36"],
+Cell[1378680, 35469, 2271, 56, 70, "Print",ExpressionUUID->"fe03426d-4e91-46d2-9bcd-07f60026537f"],
+Cell[1380954, 35527, 838, 19, 70, "Print",ExpressionUUID->"7beb0339-a572-4ea8-bfc2-784459641eae"],
+Cell[1381795, 35548, 239, 4, 70, "Print",ExpressionUUID->"4e9c85c6-133b-43db-bed3-0c71abb2d1cd"],
+Cell[1382037, 35554, 1249, 29, 70, "Print",ExpressionUUID->"ed1ef3c3-ed32-48cc-a0ab-35158041801c"],
+Cell[1383289, 35585, 490, 12, 70, "Print",ExpressionUUID->"211eea56-cdb0-4e1f-8ba6-a469b4ae568c"],
+Cell[1383782, 35599, 2266, 56, 70, "Print",ExpressionUUID->"2787b179-52da-489f-b5d4-3980786ca18e"],
+Cell[1386051, 35657, 815, 18, 70, "Print",ExpressionUUID->"1e3c378c-bf56-462d-979b-f38991df515a"],
+Cell[1386869, 35677, 239, 4, 70, "Print",ExpressionUUID->"2d525daa-683b-4483-b9ae-90d1edbdf47d"],
+Cell[1387111, 35683, 1249, 29, 70, "Print",ExpressionUUID->"975a93bb-18ea-4ec5-acb2-727aa54c402c"],
+Cell[1388363, 35714, 482, 11, 70, "Print",ExpressionUUID->"6a17c120-4862-4f44-9a21-878d8b867007"],
+Cell[1388848, 35727, 2269, 56, 70, "Print",ExpressionUUID->"10f0ae7b-c41a-4485-90e3-a2ebd157ca07"],
+Cell[1391120, 35785, 815, 18, 70, "Print",ExpressionUUID->"7c447ce8-fab2-4203-a1c9-d9c33d6e0625"],
+Cell[1391938, 35805, 238, 4, 70, "Print",ExpressionUUID->"12bc8635-8fc6-4d0d-b6ea-43bd0c3533b0"],
+Cell[1392179, 35811, 1253, 29, 70, "Print",ExpressionUUID->"eee7c6ce-1dba-4010-a10d-84fc58e8a5af"],
+Cell[1393435, 35842, 474, 11, 70, "Print",ExpressionUUID->"d9daf9a1-3351-4137-8bfd-2cc651a3e148"],
+Cell[1393912, 35855, 2272, 56, 70, "Print",ExpressionUUID->"2f0a2d06-f47b-499a-9e39-705494fd91c1"],
+Cell[1396187, 35913, 815, 18, 70, "Print",ExpressionUUID->"671e9ea8-a53a-4c43-b39c-ecdea3e7c278"],
+Cell[1397005, 35933, 241, 4, 70, "Print",ExpressionUUID->"447bd565-b60e-42ec-98c1-f7124fa02638"],
+Cell[1397249, 35939, 1251, 29, 70, "Print",ExpressionUUID->"eabca750-4116-4286-b457-b11f19522dda"],
+Cell[1398503, 35970, 484, 11, 70, "Print",ExpressionUUID->"02accbbc-6b3b-4093-a09c-f10d8cab66cf"],
+Cell[1398990, 35983, 2269, 56, 70, "Print",ExpressionUUID->"143785b6-3b6c-4948-b35c-e352771348c5"],
+Cell[1401262, 36041, 834, 19, 70, "Print",ExpressionUUID->"f282a84e-29d9-482d-976c-5599b29e6740"],
+Cell[1402099, 36062, 239, 4, 70, "Print",ExpressionUUID->"97014005-47ca-4299-afe7-92c5307bef9f"],
+Cell[1402341, 36068, 1253, 29, 70, "Print",ExpressionUUID->"8c815745-c4c3-4742-8eee-87806e2382e8"],
+Cell[1403597, 36099, 492, 12, 70, "Print",ExpressionUUID->"8df7b742-4bd8-4f80-b79d-24073ce5e467"],
+Cell[1404092, 36113, 2272, 56, 70, "Print",ExpressionUUID->"da42c461-08a8-4d15-94e8-cb5d5a2d8e6c"],
+Cell[1406367, 36171, 817, 18, 70, "Print",ExpressionUUID->"034b989b-b754-49c1-be9b-74d2133f8795"],
+Cell[1407187, 36191, 239, 4, 70, "Print",ExpressionUUID->"161a45c3-e293-4eb8-b650-ab73b69d06ac"],
+Cell[1407429, 36197, 1249, 29, 70, "Print",ExpressionUUID->"430e7735-c4b9-4ec9-8027-defd655bcf4c"],
+Cell[1408681, 36228, 490, 12, 70, "Print",ExpressionUUID->"12170ffc-cc22-4da7-a489-80b8ef5afd18"],
+Cell[1409174, 36242, 2269, 56, 70, "Print",ExpressionUUID->"84230d1d-c925-4f00-a1ce-df16a4940769"],
+Cell[1411446, 36300, 811, 18, 70, "Print",ExpressionUUID->"8d50e6fb-7212-47ef-b215-2a10722f4775"],
+Cell[1412260, 36320, 241, 4, 70, "Print",ExpressionUUID->"9479bd30-2f6a-453f-8e90-e16a651bb9cb"],
+Cell[1412504, 36326, 1254, 29, 70, "Print",ExpressionUUID->"b2e1e88d-3c22-45ab-ac38-fc0d9d8925a2"],
+Cell[1413761, 36357, 486, 11, 70, "Print",ExpressionUUID->"69771414-255b-4f92-b58b-99c12fc8d405"],
+Cell[1414250, 36370, 2266, 56, 70, "Print",ExpressionUUID->"b840514b-d967-49b4-8471-03bf90cac273"],
+Cell[1416519, 36428, 819, 18, 70, "Print",ExpressionUUID->"39b42f95-85f2-4c4c-9846-b119fc26aa8f"],
+Cell[1417341, 36448, 239, 4, 70, "Print",ExpressionUUID->"8df17835-6027-4400-8391-0da074c16ebc"],
+Cell[1417583, 36454, 1252, 29, 70, "Print",ExpressionUUID->"2efe50d7-1c71-487b-8adb-798b8758182c"],
+Cell[1418838, 36485, 486, 11, 70, "Print",ExpressionUUID->"af993af8-135c-418a-b4d6-99ba40452f64"],
+Cell[1419327, 36498, 2271, 56, 70, "Print",ExpressionUUID->"68b1632a-6b36-4a70-b468-0ac066022918"],
+Cell[1421601, 36556, 811, 18, 70, "Print",ExpressionUUID->"e869b57e-b883-4a7c-b3f2-8c83050277dd"],
+Cell[1422415, 36576, 239, 4, 70, "Print",ExpressionUUID->"23e6fa1a-2d8e-49e1-83cf-fec8070aad87"],
+Cell[1422657, 36582, 1251, 29, 70, "Print",ExpressionUUID->"03036ac2-fa1a-4857-910e-eaac30cf1da6"],
+Cell[1423911, 36613, 490, 12, 70, "Print",ExpressionUUID->"2c005ea8-3d17-429b-9839-885eeee0a432"],
+Cell[1424404, 36627, 2269, 56, 70, "Print",ExpressionUUID->"6f167375-cbcc-4e58-acb5-77fa019c6b4d"],
+Cell[1426676, 36685, 832, 19, 70, "Print",ExpressionUUID->"78a5adf9-6281-4880-b656-461440aac844"],
+Cell[1427511, 36706, 239, 4, 70, "Print",ExpressionUUID->"86dac073-9051-4dad-8385-7ea49df37f7a"],
+Cell[1427753, 36712, 1250, 29, 70, "Print",ExpressionUUID->"b7e1ee99-b2d6-44f4-b8da-b09044d602d4"],
+Cell[1429006, 36743, 490, 12, 70, "Print",ExpressionUUID->"47c641a3-683d-4955-a8cf-044f4d41dc83"],
+Cell[1429499, 36757, 2265, 56, 70, "Print",ExpressionUUID->"c0a1d791-60d1-4d38-b766-8d7959de2157"],
+Cell[1431767, 36815, 815, 18, 70, "Print",ExpressionUUID->"c6f26a21-09cb-4f39-93f5-6a2c513df48e"],
+Cell[1432585, 36835, 239, 4, 70, "Print",ExpressionUUID->"ea273d13-d4e2-41a2-9166-c2de55202db5"],
+Cell[1432827, 36841, 1248, 29, 70, "Print",ExpressionUUID->"e4911070-e877-4c1f-bb95-5e434e096c50"],
+Cell[1434078, 36872, 484, 11, 70, "Print",ExpressionUUID->"1b21a76c-2833-4ca9-b399-5475dd51085f"],
+Cell[1434565, 36885, 2269, 56, 70, "Print",ExpressionUUID->"1b0b0a63-cc9c-416c-a168-4cab2dec970e"],
+Cell[1436837, 36943, 838, 19, 70, "Print",ExpressionUUID->"d50df4ff-007c-4730-b64c-6299281676a1"],
+Cell[1437678, 36964, 239, 4, 70, "Print",ExpressionUUID->"d9662a26-b9a3-4b2a-90e7-df563a69652e"],
+Cell[1437920, 36970, 1252, 29, 70, "Print",ExpressionUUID->"9a4f4542-63ee-4676-9ca1-220a4d4cb369"],
+Cell[1439175, 37001, 486, 11, 70, "Print",ExpressionUUID->"152d5d68-fb01-4ab3-8268-02fc8845ec8e"],
+Cell[1439664, 37014, 2263, 56, 70, "Print",ExpressionUUID->"fb1e135f-be68-49f0-9b2d-c6cf6b294201"],
+Cell[1441930, 37072, 834, 19, 70, "Print",ExpressionUUID->"af9952ae-fc2d-4541-8819-d66a70bf38f9"],
+Cell[1442767, 37093, 239, 4, 70, "Print",ExpressionUUID->"c5598e87-4a34-4450-b2f9-9ce800554847"],
+Cell[1443009, 37099, 1252, 29, 70, "Print",ExpressionUUID->"61ae7cca-70d0-4e3f-8f82-c86514764640"],
+Cell[1444264, 37130, 484, 11, 70, "Print",ExpressionUUID->"ffc110bc-cb04-4bdf-aad4-d6af8c8d74b8"],
+Cell[1444751, 37143, 2265, 56, 70, "Print",ExpressionUUID->"9e35134c-d3de-4ed4-be96-6cbb566a64ac"],
+Cell[1447019, 37201, 836, 19, 70, "Print",ExpressionUUID->"12c70c73-1ab2-4a79-9911-f5c6b03e5d3d"],
+Cell[1447858, 37222, 239, 4, 70, "Print",ExpressionUUID->"41d9cd2f-9b2d-45c3-a568-5ac28b86ff4a"],
+Cell[1448100, 37228, 1253, 29, 70, "Print",ExpressionUUID->"84cab3d5-a050-431b-b4c4-e6ff65a9e8d5"],
+Cell[1449356, 37259, 484, 11, 70, "Print",ExpressionUUID->"c290c93c-f946-41d3-a7e2-7b8242798f5b"],
+Cell[1449843, 37272, 2261, 56, 70, "Print",ExpressionUUID->"88f43237-67c4-4031-ac49-6e63269f8222"],
+Cell[1452107, 37330, 830, 19, 70, "Print",ExpressionUUID->"3051ea11-b277-4ae2-9b72-ebd7be93e9a1"],
+Cell[1452940, 37351, 241, 4, 70, "Print",ExpressionUUID->"365d358f-582f-4322-b900-4d7daead3973"],
+Cell[1453184, 37357, 1252, 29, 70, "Print",ExpressionUUID->"b7f3370d-d908-4c01-b7c2-d81c369a7047"],
+Cell[1454439, 37388, 482, 11, 70, "Print",ExpressionUUID->"3bb9b885-5013-45ba-af65-529033ca1a91"],
+Cell[1454924, 37401, 2263, 56, 70, "Print",ExpressionUUID->"cc48ec1b-8cfb-4e66-ac55-0f1bacb45bfe"],
+Cell[1457190, 37459, 836, 19, 70, "Print",ExpressionUUID->"945025c2-51d6-47e9-9da0-7986f7bb8a4a"],
+Cell[1458029, 37480, 239, 4, 70, "Print",ExpressionUUID->"986f7ff2-e4a3-4f48-aa44-9f08168794c7"],
+Cell[1458271, 37486, 1251, 29, 70, "Print",ExpressionUUID->"514b5a4d-d77c-4159-ad3e-467fc93da91b"],
+Cell[1459525, 37517, 484, 11, 70, "Print",ExpressionUUID->"48d0e3ad-3bf2-42f9-a0bc-17041fa1a244"],
+Cell[1460012, 37530, 2266, 56, 70, "Print",ExpressionUUID->"c3d265e9-36e4-4c4c-883a-a27281f428f7"],
+Cell[1462281, 37588, 834, 19, 70, "Print",ExpressionUUID->"bf3eaa59-5b2b-4944-aa96-47f74041beb3"],
+Cell[1463118, 37609, 239, 4, 70, "Print",ExpressionUUID->"9e923df4-141f-4ec7-a72f-9fb7b93b2c72"],
+Cell[1463360, 37615, 1251, 29, 70, "Print",ExpressionUUID->"2940de0a-2a74-43fe-b0d5-38566a6dbfcb"],
+Cell[1464614, 37646, 484, 11, 70, "Print",ExpressionUUID->"5a73d8ba-eb39-431b-8609-e5d04cf8b9e5"],
+Cell[1465101, 37659, 2271, 56, 70, "Print",ExpressionUUID->"58a12739-e20c-42d8-a334-2c048c7d8814"],
+Cell[1467375, 37717, 838, 19, 70, "Print",ExpressionUUID->"69af438a-d2b8-431d-bb80-8091589b1568"],
+Cell[1468216, 37738, 239, 4, 70, "Print",ExpressionUUID->"f9d0c22b-0d6e-49c8-8598-32beb2201675"],
+Cell[1468458, 37744, 1250, 29, 70, "Print",ExpressionUUID->"e06da46b-5e11-425b-abc4-1cfbc2a00b88"],
+Cell[1469711, 37775, 484, 11, 70, "Print",ExpressionUUID->"1c2778aa-9840-45ac-a047-f1956196bd93"],
+Cell[1470198, 37788, 2266, 56, 70, "Print",ExpressionUUID->"bf0b5b79-67f6-40d5-a592-d15ef387afae"],
+Cell[1472467, 37846, 836, 19, 70, "Print",ExpressionUUID->"79e44ee8-2094-4029-b767-c45f6170f51b"],
+Cell[1473306, 37867, 239, 4, 70, "Print",ExpressionUUID->"13230a0d-12bd-4e26-9019-6d7383b2949c"],
+Cell[1473548, 37873, 1254, 29, 70, "Print",ExpressionUUID->"e4a359de-d3dd-4864-b305-3b626b1cd7f3"],
+Cell[1474805, 37904, 486, 11, 70, "Print",ExpressionUUID->"67712731-36b5-4f45-9a76-0591a015f0e5"],
+Cell[1475294, 37917, 2272, 56, 70, "Print",ExpressionUUID->"fc12d5d5-d3a0-49ed-804f-e2a2b6fb8060"],
+Cell[1477569, 37975, 838, 19, 70, "Print",ExpressionUUID->"9bf24b17-4cf0-4fe9-a1d5-eebea5d53476"],
+Cell[1478410, 37996, 239, 4, 70, "Print",ExpressionUUID->"ffefae73-9a05-4bbb-8392-b4e25a8d6920"],
+Cell[1478652, 38002, 1249, 29, 70, "Print",ExpressionUUID->"700d51ba-6c15-4c27-8f29-d6d1b6b0b28b"],
+Cell[1479904, 38033, 489, 12, 70, "Print",ExpressionUUID->"16580a5a-75f1-446e-ba64-4643473dc155"],
+Cell[1480396, 38047, 2268, 56, 70, "Print",ExpressionUUID->"44576307-3cfe-4a87-952f-b43ef5691c01"],
+Cell[1482667, 38105, 838, 19, 70, "Print",ExpressionUUID->"f7a56c35-6608-4a07-8113-bc6d0ab1ddc9"],
+Cell[1483508, 38126, 241, 4, 70, "Print",ExpressionUUID->"1dbc6ba3-eb43-4266-9213-21fb265603ac"],
+Cell[1483752, 38132, 1250, 29, 70, "Print",ExpressionUUID->"94b2c8cc-2a2f-455a-ae13-bda43c61c058"],
+Cell[1485005, 38163, 486, 11, 70, "Print",ExpressionUUID->"2e2a558f-a8be-4cb3-9670-70727b08eccc"],
+Cell[1485494, 38176, 2268, 56, 70, "Print",ExpressionUUID->"c3cb51c5-c606-49c3-a5d8-45b281a85979"],
+Cell[1487765, 38234, 840, 19, 70, "Print",ExpressionUUID->"72b23a8c-b015-4ae1-bda0-419772d9f1d8"],
+Cell[1488608, 38255, 239, 4, 70, "Print",ExpressionUUID->"c9e9cf86-cf7b-48a0-bf57-9542c71aa32c"],
+Cell[1488850, 38261, 1251, 29, 70, "Print",ExpressionUUID->"c7e5789f-f928-4989-8cd4-304e0ebbe88e"],
+Cell[1490104, 38292, 490, 12, 70, "Print",ExpressionUUID->"bd985727-848c-4e3c-a386-744beb4f50aa"],
+Cell[1490597, 38306, 2266, 56, 70, "Print",ExpressionUUID->"f3a1d702-c466-4132-af43-3406b61bb16e"],
+Cell[1492866, 38364, 839, 19, 70, "Print",ExpressionUUID->"7ce73ee9-11c3-4bcf-807b-fe98ce28e3db"],
+Cell[1493708, 38385, 241, 4, 70, "Print",ExpressionUUID->"6236fa60-6c27-4cac-a357-3335eb7e149b"],
+Cell[1493952, 38391, 1250, 29, 70, "Print",ExpressionUUID->"db203770-a572-462f-b38c-0728dd53c696"],
+Cell[1495205, 38422, 484, 11, 70, "Print",ExpressionUUID->"975e4f81-9cf0-4cde-bc6a-756d158da9d8"],
+Cell[1495692, 38435, 2272, 56, 70, "Print",ExpressionUUID->"60a75556-43d9-4e5f-b77c-5eceb5ab650c"],
+Cell[1497967, 38493, 836, 19, 70, "Print",ExpressionUUID->"4452d210-f467-46a0-bdf1-210391f0c0e0"],
+Cell[1498806, 38514, 238, 4, 70, "Print",ExpressionUUID->"531f927a-785e-43fc-b643-abead8f8ad17"],
+Cell[1499047, 38520, 1251, 29, 70, "Print",ExpressionUUID->"a92943d8-76b9-4045-b99a-e6688eef68e9"],
+Cell[1500301, 38551, 490, 12, 70, "Print",ExpressionUUID->"f68570d5-c99e-4ab8-81bf-d1703eee0c73"],
+Cell[1500794, 38565, 2272, 56, 70, "Print",ExpressionUUID->"b94f2189-0663-4fde-8149-84ccc9be3b81"],
+Cell[1503069, 38623, 834, 19, 70, "Print",ExpressionUUID->"e558ddf5-1d0b-4d59-8d1c-2635c4bad8ef"],
+Cell[1503906, 38644, 239, 4, 70, "Print",ExpressionUUID->"eaa2ef2b-95ca-4a6b-b6ea-86ac68c234d7"],
+Cell[1504148, 38650, 1252, 29, 70, "Print",ExpressionUUID->"5b030958-7cee-4236-8505-fab920eb79dd"],
+Cell[1505403, 38681, 482, 11, 70, "Print",ExpressionUUID->"82b7ec65-6cbd-436f-a65d-e51e9dc228d6"],
+Cell[1505888, 38694, 2263, 56, 70, "Print",ExpressionUUID->"9e212192-87ea-4a16-a1df-1b8c60ed91ae"],
+Cell[1508154, 38752, 832, 19, 70, "Print",ExpressionUUID->"9df1b64f-f6bb-4ec9-8b4c-4f105b27ff7f"],
+Cell[1508989, 38773, 239, 4, 70, "Print",ExpressionUUID->"b995f40d-d451-4d16-b5f1-375a2fa7b988"],
+Cell[1509231, 38779, 1252, 29, 70, "Print",ExpressionUUID->"4d398b45-69e8-4f2d-8fcd-a9aa81afcc70"],
+Cell[1510486, 38810, 486, 11, 70, "Print",ExpressionUUID->"201d03cd-feb3-45f7-adc1-4cd97a19d5e0"],
+Cell[1510975, 38823, 2272, 56, 70, "Print",ExpressionUUID->"77795851-d16e-494a-9cba-694996456eec"],
+Cell[1513250, 38881, 838, 19, 70, "Print",ExpressionUUID->"16043f41-af11-41da-a003-9f543f8434e8"],
+Cell[1514091, 38902, 239, 4, 70, "Print",ExpressionUUID->"1695a3b0-50d9-4c47-bdd4-cd652d39932c"],
+Cell[1514333, 38908, 1252, 29, 70, "Print",ExpressionUUID->"d7fadbc8-5d5e-4ddf-9fb2-3c5e100f7b69"],
+Cell[1515588, 38939, 490, 12, 70, "Print",ExpressionUUID->"090db7c2-5672-4e4a-ae1a-5e6891d91a5c"],
+Cell[1516081, 38953, 2263, 56, 70, "Print",ExpressionUUID->"48dfa233-2d8f-4430-bc66-d7cf6e6e2432"],
+Cell[1518347, 39011, 834, 19, 70, "Print",ExpressionUUID->"a3ebe1fd-433c-4803-a8e6-aba526768766"],
+Cell[1519184, 39032, 241, 4, 70, "Print",ExpressionUUID->"71b19912-523c-4eb9-9244-0605cdc7c205"],
+Cell[1519428, 39038, 1252, 29, 70, "Print",ExpressionUUID->"5136b96b-f201-4d64-bb0b-c1d73e62dbe4"],
+Cell[1520683, 39069, 490, 12, 70, "Print",ExpressionUUID->"d19fa418-7183-48a3-9bd9-9ca0af26495d"],
+Cell[1521176, 39083, 2277, 56, 70, "Print",ExpressionUUID->"e191ace6-7e04-4884-9d4d-5a2b09365c97"],
+Cell[1523456, 39141, 838, 19, 70, "Print",ExpressionUUID->"bc3bf3e5-f03b-4e22-bd13-da9302a3269d"],
+Cell[1524297, 39162, 239, 4, 70, "Print",ExpressionUUID->"21f0e823-341e-4f1f-b06e-db989632a363"],
+Cell[1524539, 39168, 1251, 29, 70, "Print",ExpressionUUID->"1685382f-ff91-4116-be33-b693846f5f8d"],
+Cell[1525793, 39199, 484, 11, 70, "Print",ExpressionUUID->"cf86f918-7954-4fcb-b4c0-1af59d602865"],
+Cell[1526280, 39212, 2269, 56, 70, "Print",ExpressionUUID->"ed66a9c3-1d43-435e-ab83-4999a4ad79d8"],
+Cell[1528552, 39270, 840, 19, 70, "Print",ExpressionUUID->"bf937ce7-92b6-4c20-992b-a3b047996b66"],
+Cell[1529395, 39291, 239, 4, 70, "Print",ExpressionUUID->"dc3d62a5-a065-4e4d-8a02-7688fd727c71"],
+Cell[1529637, 39297, 1252, 29, 70, "Print",ExpressionUUID->"d49b6311-5ba5-441f-839d-2fdf9c47dbdc"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1530938, 39332, 154, 3, 26, "Input",ExpressionUUID->"e2730574-ac04-482f-83d9-9c4de55b5fc0"],
+Cell[1531095, 39337, 209, 4, 34, "Output",ExpressionUUID->"c5c505fe-4051-4f67-824a-cb39dfd29847"]
+}, Open  ]],
+Cell[1531319, 39344, 487, 13, 52, "Input",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
+Cell[1531809, 39359, 1685, 46, 157, "Input",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
+Cell[1533497, 39407, 1491, 43, 157, "Input",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
+Cell[1534991, 39452, 1493, 43, 157, "Input",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+Cell[1536487, 39497, 1490, 43, 157, "Input",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
+Cell[1537980, 39542, 1493, 43, 157, "Input",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
+Cell[1539476, 39587, 1491, 43, 157, "Input",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
+Cell[1540970, 39632, 1491, 43, 157, "Input",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
 }
 ]
 *)
-- 
GitLab