diff --git a/.DS_Store b/.DS_Store
index 9ff987074f822072901ea51ab76e0255e35f9a57..b9074ed7f61975a4415e685ad19b14b0f83bf3fc 100644
Binary files a/.DS_Store and b/.DS_Store differ
diff --git a/plots/.DS_Store b/plots/.DS_Store
index d366bae2f9357b22b901c23a06f71b37260a3ea8..16d68b5883a72cf1d2fee932fd9aa24b823d3a26 100644
Binary files a/plots/.DS_Store and b/plots/.DS_Store differ
diff --git a/plots/2jets/.DS_Store b/plots/2jets/.DS_Store
index 5828fe8085d79a16ffd72fa594c405f59f1aad9d..bfaccb20d7ec0620dfd261b51e662d29fad7a814 100644
Binary files a/plots/2jets/.DS_Store and b/plots/2jets/.DS_Store differ
diff --git a/plots/2jets/kt3_20/.DS_Store b/plots/2jets/kt3_20/.DS_Store
index 357dde64be46581092f74c7fa2385bc576d3bb32..3778e97745096479f0be9c72b39ef61eec7ab1cd 100644
Binary files a/plots/2jets/kt3_20/.DS_Store and b/plots/2jets/kt3_20/.DS_Store differ
diff --git a/plots/2jets/kt4_20/.DS_Store b/plots/2jets/kt4_20/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..700f1fde3b42fc55cab15a46785120e780b1897b
Binary files /dev/null and b/plots/2jets/kt4_20/.DS_Store differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..bbf2015effe28b6de7183fbe08ae121bf8c0aacf
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..a8f5c50c366d1d8100878c9e5462c830c725b54f
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..5460f25afeb1110f85ddcf1733b60c919de04eba
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..50c50b9cd2b28c12e12f3520f325263d210ded7b
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..1072195324515f3c0a86b4f2f082338ec823c6b2
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..8e9052106027e0c6df3308dada7de67a773850f2
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..d3d8660d7c17449f8e397608e0fc1afecd232e1c
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..ed1a1fae5906b97f85d1c6048e49ddb990cd6d9f
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..fc5649ee70276029a757c2fb5fdf9d4dd66928fa
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++++_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..550fb55262518ccac0fae29b3d61748f73da1dc7
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..74f865c4b5e75807a09d9dc94ceb3561b4d20d1b
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..3402c0246515011384eba6a4594c9866aaef9036
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..3309d05ac5831f1d81e9484a77d582c9b9937f2a
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..4c80dc83e78dd01e0e1a0164e611b04a5242e871
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..7ebbc71aca6df1ac5e42d5f3620d03e64382470d
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..846699eea9829661b02d6f82ad74f68faf2eb045
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..dcada9c9802cfde358e3ae83b197a25265990fd3
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..d47bf4c9f09ac7778c0ffdad8f3d72af1fde3bb9
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+++-_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..1ce667556dc70b648ff52a6bb9f3411f585aafce
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..e6e429aca895395e5eb902df6a46658a004192bf
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..4b0f4c378ec5b3911f1a6c15540f90facc925d4c
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..b0b98839998428e244c009acda7400a815a208ef
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..bdf44efc4639eecdd92b21adb3efab8da9ced039
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..d620df14db021e3e96b523875c4f00dbd6f88a81
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..f715e413eda39a61333d2b1ccba01508a7367270
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..b97da6b1dfc5a3d3b8cac7883a79c755ce6a2378
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..3938d58d2cc5177ca65624b4d28fe02c975def90
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++-+_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..7b96f3e92648b3fe2751665b18d45e255baf71cc
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..d20e1a4b361dfcff1b222bfe072f73f8ff746f09
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..4d134fab66d75313bb728621172409725af7ea81
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..f205f961b208759eb9257c4dc1568b3ca102f1bb
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..876b33444fe907ff4144dd66822c9d13e5a74030
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..91cf88043781472aaef3a8e7cca3dc821c8f604d
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..910222269f1ac09bfab7f8f88a4c5033b1127b63
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..a250c7b60dc495c86ca0bb812bb8ec90c3b516c8
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..c2de285157b40eae5e23810cbd563e25353dd9b4
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_++--_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..deeebacb3bfe6980b53279533d418a15186ed84c
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..7b14ceb54b826feaae112aa60bbe6737e3635f85
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..c57edf9dca678857b29339b0f54eef754167315b
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..72995f1cb2c4a29680c2ce0c5b4c13d69dfad83a
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..0ba4be508d9f5ed33ffd0ae403d9d8b12a242db5
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..c067abc49b564a290b182773d9ebc2c5a580624b
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..364987d8dc1ac70b76ed88e7290c1359ab0aa215
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..66e0c2c0c004e7c29c0d5cf73173d4a9213654ca
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..6c78bcf2eada4edba341895fa1b30cdfb004c685
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-++_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..8d8a17dd8e1cae83f375e18242de816e8854157d
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..08fac1f6efaeddcf29434d617ce9802eec97e4d2
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..52e9d43fd889814c7ed96ffc0b6c6b639fbd309f
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..c0ac01a9e73256b004fe112fe768e8a6f7ca63c6
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..dd1def773ce2cc1e4071ef47aac58400b41ef150
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..39143525999939b9d7e168d48f00eb2e708a1b99
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..5f2100b397468a40c84868d5fba6d99edd536d2a
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..4b4be5635ff3f77ea23972b1b2171c9d654e3fbc
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..cd4618d89b24200374484ea6aaefc7e128a7ce11
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+-+-_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_S.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..04b6b7ff05a69794a2890ee6a92ba86a72ae9ef5
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_S34.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..bb10b0b1066e033fce53d0201959cc0cd5988cfd
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S34.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_S35.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..5910a2eb6d64843aba49a7b6c011389afe09d56c
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_S35.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_T.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..b542cd76cff5d0fef39304301560cd1146edc533
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_T14.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..3943ff9d7e74aeefb55c6e7d26d758ff6449c2f1
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T14.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_T24.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..014fa380dbba1abc28b0f21b0c6b0457e89e4924
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_T24.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_U.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..2fc49af7d7dab4b3a5d5218e55d275e560797b1d
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_U.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT3.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..67616d91fe199fa15b749ce90beaece17284eeea
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT3.png differ
diff --git a/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT5.png b/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..9cc239ef3cb7313be2ebc585468034a3f0e05fa5
Binary files /dev/null and b/plots/2jets/kt4_20/TOnly/ggHgg_+---_kT5.png differ
diff --git a/plots/2jets/kt4_20/TOnly/pmmmList.m b/plots/2jets/kt4_20/TOnly/pmmmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/pmmmList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/pmpmList.m b/plots/2jets/kt4_20/TOnly/pmpmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/pmpmList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/pmppList.m b/plots/2jets/kt4_20/TOnly/pmppList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/pmppList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/ppmmList.m b/plots/2jets/kt4_20/TOnly/ppmmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/ppmmList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/ppmpList.m b/plots/2jets/kt4_20/TOnly/ppmpList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/ppmpList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/pppmList.m b/plots/2jets/kt4_20/TOnly/pppmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/pppmList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_20/TOnly/ppppList.m b/plots/2jets/kt4_20/TOnly/ppppList.m
new file mode 100644
index 0000000000000000000000000000000000000000..67f8a9b735e78f8294f0b3ad956e11c5deda35f7
--- /dev/null
+++ b/plots/2jets/kt4_20/TOnly/ppppList.m
@@ -0,0 +1,96 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.1659880579591333 - 6.938893903907228*^-18*I,
+ 0.16779121232458782 + 3.469446951953614*^-18*I,
+ 0.17000073024004744 + 6.347569742785348*^-18*I,
+ 0.17256756343503124 + 5.796590212160135*^-19*I,
+ 0.17545447446812243 - 5.77615249361844*^-18*I,
+ 0.17863335183812457 - 7.674694061703866*^-19*I,
+ 0.18208336141969741 + 6.380523996552772*^-19*I,
+ 0.18578968475793656 + 3.669441561861026*^-18*I,
+ 0.18974268490182994 - 4.192270922277485*^-18*I,
+ 0.19393740621904604 - 5.612643376038706*^-19*I,
+ 0.19837335490339508 - 1.734723475976807*^-18*I,
+ 0.2030545416874246 + 6.754716667223678*^-18*I,
+ 0.20798979985819271 + 7.29420352189746*^-18*I,
+ 0.213193427940559 + 8.503330987743008*^-18*I, 0.21868625595403055 + 0.*I,
+ 0.22449731124205224 - 2.5500748848857404*^-18*I,
+ 0.23066639126750246 + 3.1822283586281*^-18*I,
+ 0.23724809130197358 - 3.469446951953614*^-18*I,
+ 0.24431830604287186 - 7.334966330034487*^-19*I,
+ 0.25198521785496086 - 4.983205706862855*^-18*I,
+ 0.26040907501253713 - 5.106232302879463*^-18*I,
+ 0.2698409768903212 - 1.6908616075282113*^-19*I,
+ 0.2807086655433402 + 5.2743545499223614*^-18*I,
+ 0.2938440992558283 - 4.930718171010891*^-18*I,
+ 0.3113114041393306 + 5.39317418444456*^-18*I,
+ 0.3435072181944877 + 8.654518030025353*^-18*I,
+ 0.36548462947062865 + 3.469446951953614*^-18*I,
+ 0.3614760180513321 + 1.1952480495036552*^-17*I,
+ 0.3580926255205619 - 1.7941860158754617*^-18*I,
+ 0.3556690534997442 + 1.8474314162577475*^-18*I,
+ 0.3530759934029579 - 3.0357660829594124*^-18*I,
+ 0.3495674704791556 + 1.235990476633475*^-17*I,
+ 0.346470008199134 + 8.673617379884035*^-19*I,
+ 0.3437124964432476 - 8.673617379884035*^-18*I,
+ 0.3412579002232941 - 4.7704895589362195*^-18*I, 0.3390786077408272 + 0.*I,
+ 0.3371515076641899 - 8.673617379884035*^-19*I,
+ 0.33545634596505153 + 1.0408340855860843*^-17*I,
+ 0.3339749902351892 - 3.122502256758253*^-17*I,
+ 0.3326910233787507 - 6.071532165918825*^-18*I,
+ 0.3315894817010322 + 1.734723475976807*^-17*I,
+ 0.33065666651193154 + 2.6020852139652106*^-18*I,
+ 0.32987999814057367 + 1.5612511283791264*^-17*I,
+ 0.3292478971097255 + 6.505213034913027*^-19*I,
+ 0.3287496842334654 + 3.0357660829594124*^-18*I,
+ 0.328375494805928 + 1.734723475976807*^-18*I,
+ 0.3281162037747787 + 2.6020852139652106*^-18*I,
+ 0.3279633598478574 - 8.673617379884035*^-19*I,
+ 0.32790912700406183 + 8.890457814381136*^-18*I,
+ 0.32794623228860426 + 1.0408340855860843*^-17*I,
+ 0.3280679190077603 + 2.5153490401663703*^-17*I,
+ 0.32826790461274424 + 1.474514954580286*^-17*I,
+ 0.3285403426884457 - 3.5128150388530344*^-17*I,
+ 0.328879788558091 - 1.691355389077387*^-17*I,
+ 0.3292811680890545 - 1.3444106938820255*^-17*I,
+ 0.32973974934427897 - 3.903127820947816*^-18*I,
+ 0.33025111677213925 - 3.903127820947816*^-17*I,
+ 0.33081114766735525 + 3.903127820947816*^-18*I,
+ 0.33141599066909644 + 1.474514954580286*^-17*I,
+ 0.3320620460907508 + 2.2985086056692694*^-17*I,
+ 0.3327459479000122 - 1.2576745200831851*^-17*I,
+ 0.33346454718885576 - 2.6020852139652106*^-18*I,
+ 0.3342148969908173 + 2.1250362580715887*^-17*I,
+ 0.33499423831887326 - 3.903127820947816*^-18*I,
+ 0.3357999873106717 - 1.2576745200831851*^-17*I,
+ 0.33662972338005726 - 1.214306433183765*^-17*I,
+ 0.3374811782842561 + 1.3444106938820255*^-17*I,
+ 0.3383522260253988 + 8.673617379884035*^-19*I,
+ 0.33924087351325494 - 1.3010426069826053*^-18*I,
+ 0.34014525192342837 + 3.209238430557093*^-17*I,
+ 0.3410636086915738 - 1.3444106938820255*^-17*I,
+ 0.34199430009010806 + 1.3877787807814457*^-17*I,
+ 0.34293578433882355 + 4.336808689942018*^-19*I,
+ 0.34388661520558494 + 1.5612511283791264*^-17*I,
+ 0.3448454360572615 + 1.431146867680866*^-17*I,
+ 0.34581097432471875 + 6.938893903907228*^-18*I,
+ 0.34678203634901417 + 3.0357660829594124*^-18*I,
+ 0.34775750257890214 - 1.3444106938820255*^-17*I,
+ 0.3487363230923667 + 2.3852447794681098*^-17*I,
+ 0.3497175134173463 + 2.168404344971009*^-18*I,
+ 0.35070015062890875 - 8.673617379884035*^-18*I,
+ 0.35168336970216646 + 1.0408340855860843*^-17*I,
+ 0.3526663601019028 - 1.1275702593849246*^-17*I,
+ 0.35364836259154425 + 3.0357660829594124*^-18*I,
+ 0.3546286662454753 + 1.3877787807814457*^-17*I,
+ 0.35560660565015945 - 1.2576745200831851*^-17*I,
+ 0.3565815582804669 + 8.673617379884035*^-19*I,
+ 0.35755294203899485 - 1.3010426069826053*^-18*I,
+ 0.35852021294688396 + 2.47198095326695*^-17*I,
+ 0.3594828629757567 - 1.3010426069826053*^-18*I,
+ 0.3604404180109544 + 1.5612511283791264*^-17*I,
+ 0.36139243593736664 + 3.426078865054194*^-17*I,
+ 0.36233850483939467 - 5.204170427930421*^-18*I,
+ 0.36327824130766045 + 1.3877787807814457*^-17*I,
+ 0.36421128884523674 - 1.5612511283791264*^-17*I,
+ 0.3651373163669449 + 1.3010426069826053*^-18*I,
+ 0.36605601678576233 - 4.7704895589362195*^-18*I}
diff --git a/plots/2jets/kt4_50/.DS_Store b/plots/2jets/kt4_50/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..99f830b5ffaa1739c501ef0b7aabcb9bf232e899
Binary files /dev/null and b/plots/2jets/kt4_50/.DS_Store differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..2c4f9c46128b76f8cfdacdc4c7e325980acc445e
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..ae9c89b4b1991ae7af436a3d8b0d27332c98edef
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..c05cbf5ba52dafab1e40d8b12277949d00f25759
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..c96e07c5126654f5acb7a1222eb63264dcccaf34
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..2c256f189da77997ac66ccf05bb2ba88a6c2bc23
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..365befa5f7e90caf26f1c2238f4711e515abf48e
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..a21e3b9d291360757b9d9c18fc19a49edcdedf40
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..744403ecc9ed954c0cc03124d6f8fba73692d48d
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..518e75f112170d16a4aaf03f4bf43f856a44c794
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++++_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..ee3a9d4ddc08dcddf4ee9cb89da010984e997183
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..04d63b512b6e40ee4f7dfe30a833ba5ad6124717
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..4934639fcfcf08ff67097a9beab1107014530c99
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..6510103c35ab81d84bd18e845e9262048d3960e4
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..19c311d1924f5c98d54b591dde923e91876a0124
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..8bcec66dfc6ed69dff461879f4e56ab26d512ced
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..64ef2dbf7fe04e235d850bd1507fc2ba458f63bc
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..10028a29801951a3ad4b2ec836e168f43485deb0
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..19584ac1ccc82a2db1f042e8d66da197565e5172
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+++-_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..bf3b92402cde24413cf4cecca426901df67be07b
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..b4a368d89c9baea6f68249ac87eac64508d625f8
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..7e5fc804943dca55206b742332e86657baded485
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..2b9fa5971fc84f5ffaa9c0bc0be803bd60b031e3
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..5668d6dc8b39f030b528afafb1f33978cc9a13f9
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..4dc8c090ea6007202a806f298e339ad8083724ac
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..b9c0666828d1cf172d153cec03450be0e7b9a79e
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..0ac6772f7d620369d981f15a101aea7654faa9ed
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..d828b384cb435914b2a5890bcdd0d602d35285b3
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++-+_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..c03bfde29e9560cc7a9e2d105c9dd3a47be110ea
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..ac3a44f9f93e6e1a1a872b57b2141e0ff1d46776
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..156ee59b1453af3eb6fc9ed54aacdf8710c8efcf
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..d7c32a97c064d651735f4a080e354602ec239ebe
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..c700574c3138237bf3612545ebeddbe6123b6680
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..cd0fc93100b2dd039c3ec1a45b5af116f1fe3e43
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..3641869b0aeee6bb95fecb3619b9bd1e292a62aa
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..be86cf35909c6ed4c9abb2cb984437f272c00ec0
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..e80c76b9a2b2c3d7f4b1e2b213ac4be80ffec6e6
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_++--_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..e51cc5d1c4c332df5fee9a05203a9d88c34fc9ba
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..0c16fa4cb1cb2a04a904b394a25f898c8fba0fc7
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..cfdd832242173e0e7badf0bd99d70b8e9983542f
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..db51d78f21e50b0fa017368aebe97c4108c56ca1
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..3b39c1eee56e7b7d3517874d86d9f3f7a4fca9f2
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..baf7f2f4b370ed436c6eb0f3981e5955f36c3676
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..5dcca4a6d5681f27a3bc4803065ae9ce66b791b7
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..0c9366563a17ea29d52f2942dd058d4da7eb1649
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..e290d4a996ecbae9c4aeb6e73fa177fc51b38a0d
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-++_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..a13aee166dcbd1171bc3476ce02cf5b3e0e2bafb
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..66abf6b36b603732b9381517c41ccae23179ef91
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..2a1ed420d4ca3367c9d8d34321bcab4b911f62b7
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..45eb74417211b5960e6d8d32719314b15a2d5f03
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..44ff59edb1ba3fac3fd1e7eb755ea2dd6bda28aa
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..21aba5b77fe15104351202e640162245731d75d6
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..b6335d45588e997f0658e284c569cbaba21f6f7f
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..a351f62c212d6f0a7f7ff7a0adc7e1b93fbbbe4b
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..0abb02da324a346b5ad113085935f8650f44dbd5
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+-+-_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_S.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S.png
new file mode 100644
index 0000000000000000000000000000000000000000..09642b034f4a224d494fd73e79b926c7cc355bf6
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_S34.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S34.png
new file mode 100644
index 0000000000000000000000000000000000000000..3b6d2b25e57315439c269775d712f1025140eb53
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S34.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_S35.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S35.png
new file mode 100644
index 0000000000000000000000000000000000000000..0a3ce1cf4c03ed37c27543a7ba6db830d62714bf
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_S35.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_T.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T.png
new file mode 100644
index 0000000000000000000000000000000000000000..1311cc76c03cd780e97828e96a6d1db70323d7cd
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_T14.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T14.png
new file mode 100644
index 0000000000000000000000000000000000000000..a4c01b15e9a918eafac25eb6df21099bfc23383a
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T14.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_T24.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T24.png
new file mode 100644
index 0000000000000000000000000000000000000000..65f9eb68160fa694171fffb0d7b1bc21ac19efe1
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_T24.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_U.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_U.png
new file mode 100644
index 0000000000000000000000000000000000000000..706a5b8f2040ef4b0a3980c2d149ac72798c257b
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_U.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT3.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT3.png
new file mode 100644
index 0000000000000000000000000000000000000000..0469c5262ffd3010f6be401980ed640d872c11a2
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT3.png differ
diff --git a/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT5.png b/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT5.png
new file mode 100644
index 0000000000000000000000000000000000000000..3d65eaa6f6f628d49f138ed6c47c0c2971f13134
Binary files /dev/null and b/plots/2jets/kt4_50/TOnly/ggHgg_+---_kT5.png differ
diff --git a/plots/2jets/kt4_50/TOnly/pmmmList.m b/plots/2jets/kt4_50/TOnly/pmmmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/pmmmList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/pmpmList.m b/plots/2jets/kt4_50/TOnly/pmpmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/pmpmList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/pmppList.m b/plots/2jets/kt4_50/TOnly/pmppList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/pmppList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/ppmmList.m b/plots/2jets/kt4_50/TOnly/ppmmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/ppmmList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/ppmpList.m b/plots/2jets/kt4_50/TOnly/ppmpList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/ppmpList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/pppmList.m b/plots/2jets/kt4_50/TOnly/pppmList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/pppmList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/plots/2jets/kt4_50/TOnly/ppppList.m b/plots/2jets/kt4_50/TOnly/ppppList.m
new file mode 100644
index 0000000000000000000000000000000000000000..b273afd5503936e4c16d50e404ccc42d47fdb6b7
--- /dev/null
+++ b/plots/2jets/kt4_50/TOnly/ppppList.m
@@ -0,0 +1,93 @@
+(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
+{0.03846756779481183 - 1.779272751036318*^-18*I,
+ 0.03696044541900438 + 1.5073200104482176*^-18*I,
+ 0.0359306861943051 + 7.130513979913695*^-19*I,
+ 0.03526258884045652 + 1.8401234436469493*^-18*I,
+ 0.034869405817260446 - 1.1279702717235006*^-18*I,
+ 0.03468909849006485 - 1.6142872933439536*^-19*I,
+ 0.03467751431109441 + 8.945955278349537*^-19*I,
+ 0.034803028571496746 + 2.9932137097688713*^-18*I,
+ 0.035042820735756756 - 2.215790770386818*^-18*I,
+ 0.035380370017882364 + 8.673617379884035*^-19*I,
+ 0.03580378627602725 + 4.5201034084545256*^-20*I,
+ 0.03630470555271822 - 7.452805300229665*^-20*I,
+ 0.03687757484416955 + 2.2654267299241435*^-19*I,
+ 0.037519218841981374 + 1.286279012880014*^-18*I,
+ 0.03822862935124382 - 2.222475806701328*^-19*I,
+ 0.03900695612369126 - 2.205750877077507*^-19*I, 0.03985771605240116 + 0.*I,
+ 0.0407872853026937 + 1.3033575120109522*^-18*I,
+ 0.04180582245736529 + 2.1624790885546444*^-19*I,
+ 0.04292893299632568 + 4.302451328521396*^-19*I,
+ 0.044180754457191926 + 2.168404344971009*^-18*I,
+ 0.04560008799113583 + 1.2881646809785586*^-18*I,
+ 0.047254044116456694 - 1.5273953009924609*^-18*I,
+ 0.04927434103148314 + 8.755911451009432*^-19*I,
+ 0.05198953029118283 - 2.3831638624834786*^-18*I,
+ 0.0570593544366096 + 7.908571307183777*^-21*I,
+ 0.0605367634027682 - 1.727734064453029*^-18*I,
+ 0.059857544027960105 - 8.784800290084425*^-19*I,
+ 0.05924883755641537 + 8.799455784749736*^-19*I,
+ 0.05870667922150834 - 1.949981248981192*^-18*I,
+ 0.05822795292756988 + 3.0379008048503036*^-18*I,
+ 0.05781064214727849 - 1.951563910473908*^-18*I,
+ 0.05745437831213966 + 1.7236943303299498*^-18*I,
+ 0.057161756999007975 - 1.283734234538858*^-18*I,
+ 0.05694214876078557 - 1.3010426069826053*^-18*I,
+ 0.05682779444764255 - 1.6138332054086468*^-18*I,
+ 0.057078195327797565 + 1.4907779871675686*^-19*I,
+ 0.05659697205456349 + 1.7889335846010823*^-18*I,
+ 0.0562245229644104 + 1.734723475976807*^-18*I,
+ 0.055906016801514996 - 3.2526065174565133*^-18*I,
+ 0.05563024995421002 + 4.0115480381963664*^-18*I,
+ 0.0553913057326773 - 4.119968255444917*^-18*I,
+ 0.0551850946114764 - 3.2526065174565133*^-19*I,
+ 0.05500841944730801 + 4.336808689942018*^-19*I,
+ 0.054858616332650906 - 1.3010426069826053*^-18*I,
+ 0.0547333847366428 - 1.0842021724855044*^-18*I,
+ 0.05463069458780737 - 2.6020852139652106*^-18*I,
+ 0.05454872952633072 + 3.686287386450715*^-18*I,
+ 0.05448584912911536 + 1.951563910473908*^-18*I,
+ 0.054440561995354075 + 2.3852447794681098*^-18*I,
+ 0.054411505550655964 + 1.4094628242311558*^-18*I,
+ 0.05439743018735415 - 1.3010426069826053*^-18*I,
+ 0.054397186486749335 + 1.951563910473908*^-18*I,
+ 0.05440971460499839 - 6.505213034913027*^-19*I,
+ 0.05443403530789151 - 1.0842021724855044*^-19*I,
+ 0.05446924227897535 + 1.8431436932253575*^-18*I,
+ 0.054514495440672314 + 3.686287386450715*^-18*I,
+ 0.05456901509915012 + 2.2768245622195593*^-18*I,
+ 0.05463207677127119 - 1.6263032587282567*^-18*I,
+ 0.054703006584846774 + 8.673617379884035*^-19*I,
+ 0.054781177166761064 + 1.0842021724855044*^-19*I,
+ 0.05486600395058502 + 6.505213034913027*^-19*I,
+ 0.05495694184800972 - 1.5178830414797062*^-18*I,
+ 0.05505348223813133 - 1.6263032587282567*^-18*I,
+ 0.05515515023616589 - 6.505213034913027*^-19*I,
+ 0.05526150220913234 - 2.6020852139652106*^-18*I,
+ 0.055372123510829624 - 1.5178830414797062*^-18*I,
+ 0.05548662641232072 + 0.*I, 0.05560464820735829 + 1.3010426069826053*^-18*I,
+ 0.055725849474849605 + 0.*I, 0.05584991248266844 -
+ 4.7704895589362195*^-18*I, 0.05597653971908076 + 6.505213034913027*^-19*I,
+ 0.05610545253959495 - 8.673617379884035*^-19*I,
+ 0.05623638991848651 - 2.168404344971009*^-18*I,
+ 0.05636910729541904 + 5.421010862427522*^-19*I,
+ 0.05650337550863354 + 3.3610267347050637*^-18*I,
+ 0.056638979807062485 - 4.336808689942018*^-19*I,
+ 0.05677571893454944 + 4.336808689942018*^-19*I, 0.05691340428001408 + 0.*I,
+ 0.05705185908803938 + 2.710505431213761*^-18*I,
+ 0.05719091772488698 - 5.421010862427522*^-19*I,
+ 0.057330424995434275 + 7.589415207398531*^-19*I,
+ 0.05747023550693856 + 7.589415207398531*^-19*I,
+ 0.05761021307593283 + 1.8431436932253575*^-18*I,
+ 0.05775023017488691 + 2.3852447794681098*^-18*I,
+ 0.057890167415558004 - 3.903127820947816*^-18*I,
+ 0.05802991306626156 + 2.168404344971009*^-18*I,
+ 0.05816936260049117 + 1.3010426069826053*^-18*I,
+ 0.058308418274584876 + 4.336808689942018*^-19*I,
+ 0.058446988732289554 + 0.*I, 0.05858498863428965 -
+ 3.2526065174565133*^-19*I, 0.05872233831090055 + 1.0842021724855044*^-19*I,
+ 0.05885896343628958 + 2.710505431213761*^-18*I,
+ 0.05899479472272232 + 1.951563910473908*^-18*I,
+ 0.0591297676334397 - 3.2526065174565133*^-18*I,
+ 0.059263822112884404 + 1.1926223897340549*^-18*I,
+ 0.05939690233311459 - 1.0842021724855044*^-19*I}
diff --git a/scripts/plot2jets.nb b/scripts/plot2jets.nb
index 32c2b169d2cbaffd205f2d4e4b63e4f03e53967e..9d6415353b9801e37d91400cc22626037cbed861 100644
--- a/scripts/plot2jets.nb
+++ b/scripts/plot2jets.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 964711, 22747]
-NotebookOptionsPosition[ 897966, 22013]
-NotebookOutlinePosition[ 898301, 22028]
-CellTagsIndexPosition[ 898258, 22025]
+NotebookDataLength[ 820003, 20536]
+NotebookOptionsPosition[ 765745, 19947]
+NotebookOutlinePosition[ 766081, 19962]
+CellTagsIndexPosition[ 766038, 19959]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -46,33 +46,29 @@ Cell[BoxData[{
RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\[IndentingNewLine]",
RowBox[{"<<", "helicityvec`"}]}], "Input",
CellChangeTimes->{{3.779639534042067*^9, 3.779639561284994*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.1, by \
-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.77972107483569*^9,
- 3.77979550837192*^9, 3.7800589696368847`*^9, 3.780064697313336*^9,
- 3.780163599516865*^9, 3.7808370132436028`*^9},
CellLabel->
- "During evaluation of \
-In[2]:=",ExpressionUUID->"576d08ad-0792-44db-8dc1-d2a28bb26e28"],
+ "In[105]:=",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
Cell[BoxData["\<\"helicityvec by J.G. Reyes v1. August 2019\"\>"], "Print",
CellChangeTimes->{3.77963956193819*^9, 3.779640733886427*^9,
3.779652767315526*^9, 3.779652799856619*^9, 3.77972107483569*^9,
3.77979550837192*^9, 3.7800589696368847`*^9, 3.780064697313336*^9,
- 3.780163599516865*^9, 3.780837013249639*^9},
+ 3.780163599516865*^9, 3.7808370132436028`*^9, 3.7821430728216267`*^9,
+ 3.782154696125413*^9, 3.7821557252025547`*^9, 3.7822130721796303`*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"25a80889-f43b-4c01-bd07-3a44032d2266"]
-}, Open ]]
+In[105]:=",ExpressionUUID->"728721dc-3abd-4a2b-85bc-af1071341aad"]
}, Open ]],
+Cell[BoxData[{
+ RowBox[{"SetOptions", "[",
+ RowBox[{"$FrontEndSession", ",",
+ RowBox[{"NotebookAutoSave", "\[Rule]", "True"}]}], "]"}], "\n",
+ RowBox[{"NotebookSave", "[", "]"}]}], "Input",
+ CellChangeTimes->{{3.782143156748302*^9, 3.782143156756002*^9}},
+ CellLabel->
+ "In[107]:=",ExpressionUUID->"2cf60ca3-dfd4-4c9c-b083-7be09df20591"],
+
Cell[BoxData[
RowBox[{
RowBox[{"$Assumptions", "=",
@@ -106,7 +102,8 @@ Cell[BoxData[
RowBox[{"S", ">",
RowBox[{"MH", "^", "2"}]}]}], "}"}]}], ";"}]], "Input",
CellChangeTimes->{{3.779638797404049*^9, 3.779638797726428*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
+ CellLabel->
+ "In[183]:=",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
Cell[BoxData[{
RowBox[{
@@ -134,20 +131,74 @@ Cell[BoxData[{
RowBox[{"MH", "\[Rule]", "125"}], ",",
RowBox[{"MW", "\[Rule]", "80.4"}], ",",
RowBox[{"MT", "\[Rule]", "173"}], ",",
- RowBox[{"GS", "\[Rule]", "1.22"}], ",",
- RowBox[{"c1", "\[Rule]",
- RowBox[{"1", "/", "2"}]}], ",",
- RowBox[{"c2", "\[Rule]",
- RowBox[{
- RowBox[{"-", "1"}], "/", "2"}]}]}], "\[IndentingNewLine]", "}"}]}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"GS", "\[Rule]", "1.22"}]}],
+ RowBox[{"(*",
+ RowBox[{",",
+ RowBox[{"c1", "\[Rule]",
+ RowBox[{"1", "/", "2"}]}], ",",
+ RowBox[{"c2", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "2"}]}]}], "*)"}], "\[IndentingNewLine]",
+ "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Defines", " ", "the", " ", "center", " ", "of", " ", "mass", " ",
RowBox[{"frame", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"CMSFrame", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k1x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1z", "\[Rule]", " ",
+ RowBox[{"rS", "/", "2"}]}], ",",
+ RowBox[{"k2x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2z", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "rS"}], "/", "2"}]}], ",",
+ RowBox[{"k5x", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4x", "+", "k3x"}], ")"}]}]}], ",",
+ RowBox[{"k5y", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4y", "+", "k3y"}], ")"}]}]}], ",",
+ RowBox[{"k5z", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4z", " ", "+", "k3z"}], ")"}]}]}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"CMSFrame3", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k1x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k1z", "\[Rule]", " ",
+ RowBox[{"rS", "/", "2"}]}], ",",
+ RowBox[{"k2x", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2y", "\[Rule]", " ", "0"}], ",",
+ RowBox[{"k2z", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "rS"}], "/", "2"}]}], ",",
+ RowBox[{"k3x", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4x", "+", "k5x"}], ")"}]}]}], ",",
+ RowBox[{"k3y", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4y", "+", "k5y"}], ")"}]}]}], ",",
+ RowBox[{"k3z", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"k4z", " ", "+", "k5z"}], ")"}]}]}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
- RowBox[{"CMSFrame", "=",
+ RowBox[{"CMSFrame4", "=",
RowBox[{"{",
RowBox[{
RowBox[{"k1x", "\[Rule]", " ", "0"}], ",",
@@ -159,18 +210,18 @@ Cell[BoxData[{
RowBox[{"k2z", "\[Rule]", " ",
RowBox[{
RowBox[{"-", "rS"}], "/", "2"}]}], ",",
- RowBox[{"k5x", "\[Rule]", " ",
+ RowBox[{"k4x", "\[Rule]", " ",
RowBox[{"-",
RowBox[{"(",
- RowBox[{"k4x", "+", "k3x"}], ")"}]}]}], ",",
- RowBox[{"k5y", "\[Rule]", " ",
+ RowBox[{"k5x", "+", "k3x"}], ")"}]}]}], ",",
+ RowBox[{"k4y", "\[Rule]", " ",
RowBox[{"-",
RowBox[{"(",
- RowBox[{"k4y", "+", "k3y"}], ")"}]}]}], ",",
- RowBox[{"k5z", "\[Rule]", " ",
+ RowBox[{"k5y", "+", "k3y"}], ")"}]}]}], ",",
+ RowBox[{"k4z", "\[Rule]", " ",
RowBox[{"-",
RowBox[{"(",
- RowBox[{"k4z", " ", "+", "k3z"}], ")"}]}]}]}], "}"}]}], ";"}],
+ RowBox[{"k5z", " ", "+", "k3z"}], ")"}]}]}]}], "}"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Returns", " ", "vector", " ",
@@ -243,7 +294,7 @@ Cell[BoxData[{
RowBox[{
RowBox[{"vec4Tep", "[",
RowBox[{"MH", ",", "kT3", ",", "\[Eta]3", ",", "\[Phi]3"}], "]"}], "//",
- "Simplify"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "Simplify"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Definition", " ", "of", " ", "the", " ", "four", " ", "vector", " ", "of",
@@ -259,6 +310,21 @@ Cell[BoxData[{
RowBox[{"vec4Tep", "[",
RowBox[{"0", ",", "kT4", ",", "\[Eta]4", ",", "\[Phi]4"}], "]"}], "//",
"Simplify"}], ")"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Definition", " ", "of", " ", "the", " ", "four", " ", "vector", " ", "of",
+ " ", "particle", " ", "5", " ",
+ RowBox[{"(",
+ RowBox[{"outgoing", " ", "gluon"}], ")"}]}], " ",
+ "*)"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"vecetaphi5", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"vec4Tep", "[",
+ RowBox[{"0", ",", "kT5", ",", "\[Eta]5", ",", "\[Phi]5"}], "]"}],
+ ")"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
@@ -267,19 +333,65 @@ Cell[BoxData[{
"from", " ", "Euclidean", " ", "to", " ", "Collider", " ", "coordinates",
" ", "for", " ", "particles", " ", "3"}], ",", "4."}], " ",
"*)"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"vecsubetaphi", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k4x", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k4y", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k4z", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"k3x", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k3y", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k3z", "\[Rule]", " ",
+ RowBox[{"vecetaphi3", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"vecsubetaphi3", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k4x", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k4y", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k4z", "\[Rule]", " ",
+ RowBox[{"vecetaphi4", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"k5x", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"k5y", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"k5z", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
- RowBox[{"vecsubetaphi", "=",
+ RowBox[{"vecsubetaphi4", "=",
RowBox[{"{",
RowBox[{
- RowBox[{"k4x", "\[Rule]", " ",
- RowBox[{"vecetaphi4", "[",
+ RowBox[{"k5x", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
RowBox[{"[", "2", "]"}], "]"}]}], ",",
- RowBox[{"k4y", "\[Rule]", " ",
- RowBox[{"vecetaphi4", "[",
+ RowBox[{"k5y", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
RowBox[{"[", "3", "]"}], "]"}]}], ",",
- RowBox[{"k4z", "\[Rule]", " ",
- RowBox[{"vecetaphi4", "[",
+ RowBox[{"k5z", "\[Rule]", " ",
+ RowBox[{"vecetaphi5", "[",
RowBox[{"[", "4", "]"}], "]"}]}], ",",
RowBox[{"k3x", "\[Rule]", " ",
RowBox[{"vecetaphi3", "[",
@@ -293,131 +405,263 @@ Cell[BoxData[{
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
- RowBox[{"KinRules", "[",
- RowBox[{"m1_", ",", "m2_", ",", "m3_", ",", "m4_"}], "]"}], ":=", " ",
- RowBox[{"{",
- RowBox[{
- RowBox[{"k1", "\[Rule]",
- RowBox[{
- RowBox[{"(",
- RowBox[{"1", "/",
- RowBox[{"(",
- RowBox[{"2",
- RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{"Kallen\[Lambda]", "[",
- RowBox[{"S", ",",
- RowBox[{"m1", "^", "2"}], ",",
- RowBox[{"m2", "^", "2"}]}], "]"}], "]"}]}]}], ",",
- RowBox[{"k2", "->",
- RowBox[{
- RowBox[{"(",
- RowBox[{"1", "/",
- RowBox[{"(",
- RowBox[{"2",
- RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{"Kallen\[Lambda]", "[",
- RowBox[{"S", ",",
- RowBox[{"m1", "^", "2"}], ",",
- RowBox[{"m2", "^", "2"}]}], "]"}], "]"}]}]}], ",", " ",
- RowBox[{"k3", "->",
- RowBox[{
- RowBox[{"(",
- RowBox[{"1", "/",
- RowBox[{"(",
- RowBox[{"2",
- RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{"Kallen\[Lambda]", "[",
- RowBox[{"S", ",",
- RowBox[{"m3", "^", "2"}], ",",
- RowBox[{"m4", "^", "2"}]}], "]"}], "]"}]}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"k4", "->",
- RowBox[{
- RowBox[{"(",
- RowBox[{"1", "/",
- RowBox[{"(",
- RowBox[{"2",
- RowBox[{"Sqrt", "[", "S", "]"}]}], ")"}]}], ")"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{"Kallen\[Lambda]", "[",
- RowBox[{"S", ",",
- RowBox[{"m3", "^", "2"}], ",",
- RowBox[{"m4", "^", "2"}]}], "]"}], "]"}]}]}]}], "}"}]}],
+ RowBox[{"mat", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"2", "/", "3"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"2", "/", "3"}], ",",
+ RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{"SetAttributes", "[",
+ RowBox[{"f", ",", "Listable"}], "]"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"kinrules", "=",
- RowBox[{
- RowBox[{"KinRules", "[",
- RowBox[{"0", ",", "0", ",", "MH", ",", "0"}], "]"}], "//",
- "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k1vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k2vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec1", "=",
- RowBox[{
- RowBox[{
- RowBox[{"k1vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"f", "[",
+ RowBox[{"a_", ",", "b_"}], "]"}], ":=",
+ RowBox[{"a", "\[Rule]", "b"}]}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"kvec2", "=",
- RowBox[{
+ RowBox[{"variables", "=",
+ RowBox[{"{",
RowBox[{
- RowBox[{"k2vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ "kT3", ",", "kT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",", "T14",
+ ",", "S34", ",",
+ RowBox[{"Sqrt", "[", "S", "]"}], ",",
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
+ RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"kvec3", "=",
+ RowBox[{"GraphArrows", "[", "kinOut_", "]"}], ":=", "\[IndentingNewLine]",
+ RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- RowBox[{"vec4M", "[",
- RowBox[{"MH", ",", "k3", ",", "\[Theta]3", ",", "\[Phi]3"}], "]"}], "//.",
- "kinrules"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"kvec4", "=",
- RowBox[{
+ RowBox[{"px1", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"py1", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"pz1", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1", ",", "4"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"px2", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"py2", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "2", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"pz2", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "2", ",", "4"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"px3", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "3", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"py3", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "3", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"pz3", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "3", ",", "4"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"px4", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"py4", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "4", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"pz4", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "4", ",", "4"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"px5", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "5", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"py5", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "5", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"pz5", "=",
+ RowBox[{"kinOut", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "5", ",", "4"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Arrow1", "=",
+ RowBox[{"Arrow", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"px1", ",", "py1", ",", "pz1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"text1", "=",
+ RowBox[{"Text", "[",
+ RowBox[{"\"\<gluon 1\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"px1", ",", "py1", ",", "pz1"}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Arrow2", "=",
+ RowBox[{"Arrow", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"px2", ",", "py2", ",", "pz2"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"text2", "=",
+ RowBox[{"Text", "[",
+ RowBox[{"\"\<gluon 2\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"px2", ",", "py2", ",", "pz2"}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Arrow3", "=",
+ RowBox[{"Arrow", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"px3", ",", "py3", ",", "pz3"}], "}"}]}], "}"}], "]"}]}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{"text3", "=",
+ RowBox[{"Text", "[",
+ RowBox[{"\"\<Higgs\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"px3", ",", "py3", ",", "pz3"}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Arrow4", "=",
+ RowBox[{"Arrow", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"px4", ",", "py4", ",", "pz4"}], "}"}]}], "}"}], "]"}]}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{"text4", "=",
+ RowBox[{"Text", "[",
+ RowBox[{"\"\<gluon 4\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"px4", ",", "py4", ",", "pz4"}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Arrow5", "=",
+ RowBox[{"Arrow", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"px5", ",", "py5", ",", "pz5"}], "}"}]}], "}"}], "]"}]}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{"text5", "=",
+ RowBox[{"Text", "[",
+ RowBox[{"\"\<gluon 5\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"px5", ",", "py5", ",", "pz5"}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Graphics3D", "[",
RowBox[{
- RowBox[{"vec4M", "[",
- RowBox[{"0", ",", "k4", ",", "\[Theta]4", ",", "\[Phi]4"}], "]"}], "//.",
- "kinrules"}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SS", "=",
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"kvec1", "+", "kvec2"}], ",",
- RowBox[{"kvec1", "+", "kvec2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"TT", "=",
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"kvec4", "-", "kvec2"}], ",",
- RowBox[{"kvec4", "-", "kvec2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"UU", "=",
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"kvec1", "-", "kvec4"}], ",",
- RowBox[{"kvec1", "-", "kvec4"}]}], "]"}]}],
- ";"}], "\[IndentingNewLine]"}], "Input",
+ RowBox[{"{",
+ RowBox[{
+ "Arrow1", ",", "text1", ",", "Arrow2", ",", "text2", ",", "Arrow3",
+ ",", "text3", ",", "Arrow4", ",", "text4", ",", "Arrow5", ",",
+ "text5"}], "}"}], ",",
+ RowBox[{"ImageSize", "\[Rule]", "Large"}], ",",
+ RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], "\[IndentingNewLine]",
+ "}"}]}]}], "Input",
CellChangeTimes->{{3.779635969502471*^9, 3.779636032668161*^9}, {
3.779636070338065*^9, 3.779636089586961*^9}, {3.779636127506967*^9,
3.779636161454482*^9}, {3.779636299077375*^9, 3.779636302228191*^9}, {
@@ -429,4560 +673,1800 @@ Cell[BoxData[{
3.7796382216643343`*^9, 3.779638240589849*^9}, {3.7796386164009533`*^9,
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[5]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+ 3.779640863344008*^9}, {3.779645656896225*^9, 3.779645659004375*^9}, {
+ 3.782142949996084*^9, 3.782143006358357*^9}, {3.7821432353853083`*^9,
+ 3.7821433675287027`*^9}, {3.782143673580646*^9, 3.782143673698393*^9}, {
+ 3.7821437898700867`*^9, 3.782143792234625*^9}, 3.782154668467175*^9,
+ 3.7822132194332333`*^9},
+ CellLabel->
+ "In[184]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
-Cell[BoxData[
- RowBox[{"Kinematics", ":=",
- RowBox[{"{", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"T", "\[Rule]", "TT"}], ",",
- RowBox[{"U", "\[Rule]", "UU"}], ",",
- RowBox[{"\[Phi]4", "\[Rule]", "0"}], ",",
- RowBox[{"\[Phi]3", "\[Rule]", "0"}], ",",
- RowBox[{"\[Theta]3", "\[Rule]",
- RowBox[{"Pi", "/", "2"}]}], ",",
- RowBox[{"\[Theta]4", "\[Rule]",
- RowBox[{"Pi", "/", "2"}]}], ",",
- RowBox[{"\[Eta]3", "\[Rule]",
- RowBox[{"-",
- RowBox[{"Log", "[",
- RowBox[{"Tan", "[",
- RowBox[{"\[Theta]3", "/", "2"}], "]"}], "]"}]}]}], ",",
- RowBox[{"\[Eta]4", "\[Rule]",
- RowBox[{"-",
- RowBox[{"Log", "[",
- RowBox[{"Tan", "[",
- RowBox[{"\[Theta]4", "/", "2"}], "]"}], "]"}]}]}], ",",
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"kT3condition", " ", "=", " ",
+ RowBox[{"{",
RowBox[{"kT3", "\[Rule]",
- RowBox[{"k3", "*",
- RowBox[{"Cosh", "[", "\[Eta]3", "]"}]}]}], ",",
- RowBox[{"kT4", "\[Rule]",
- RowBox[{"k4", "*",
- RowBox[{"Cosh", "[", "\[Eta]4", "]"}]}]}]}], "\[IndentingNewLine]",
- "}"}]}]], "Input",
- CellChangeTimes->{{3.779637438812982*^9, 3.779637465684292*^9}, {
- 3.779637502965968*^9, 3.779637541139387*^9}, {3.779638077074128*^9,
- 3.779638122031776*^9}, {3.779639046841374*^9, 3.7796391364973383`*^9}, {
- 3.779639187821389*^9, 3.779639212489912*^9}, {3.779639393945671*^9,
- 3.779639465518195*^9}},
- CellLabel->"In[24]:=",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
-
-Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"MH", "^", "2"}]}], "+",
+ RowBox[{"rS", "^", "2"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "*", "rS"}], ")"}]}]}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"(*", " ",
- RowBox[{
- RowBox[{"for", " ", "g", " ", "g"}], " ", "\[Rule]", " ",
- RowBox[{"H", " ", "g", " ", "g", " ",
- RowBox[{"(",
- RowBox[{"triangles", " ", "and", " ", "boxes"}], ")"}]}]}], " ", "*)"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</helicities/2jets\>\""}], "]"}], "]"}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetspppp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_++++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetspppm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_+++-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
+ RowBox[{"sprec", "=", "60"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
RowBox[{
- RowBox[{"tjetsppmp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_++-+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
+ "rrS_", ",", "rkT3_", ",", "r\[Eta]3_", ",", "r\[Phi]3_", ",", "r\[Eta]4_",
+ ",", "r\[Phi]4_", ",", "mh_"}], "]"}], ":=",
+ RowBox[{"Block", "[",
RowBox[{
- RowBox[{"tjetspmpp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_+-++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmppp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_-+++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsppmm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_++--.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetspmpm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_+-+-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetspmmp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_+--+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmpmp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_-+-+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmppm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_-++-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmmpp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_--++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetspmmm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_+---.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmpmm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_-+--.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmmpm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_--+-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmmmp", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_---+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"tjetsmmmm", "=",
- RowBox[{"Import", "[", "\"\<ggHgg_T_----.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspppp", "=",
- RowBox[{"Import", "[", "\"\<box_++++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspppm", "=",
- RowBox[{"Import", "[", "\"\<box_+++-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsppmp", "=",
- RowBox[{"Import", "[", "\"\<box_++-+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspmpp", "=",
- RowBox[{"Import", "[", "\"\<box_+-++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmppp", "=",
- RowBox[{"Import", "[", "\"\<box_-+++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsppmm", "=",
- RowBox[{"Import", "[", "\"\<box_++--.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspmpm", "=",
- RowBox[{"Import", "[", "\"\<box_+-+-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspmmp", "=",
- RowBox[{"Import", "[", "\"\<box_+--+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmpmp", "=",
- RowBox[{"Import", "[", "\"\<box_-+-+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmppm", "=",
- RowBox[{"Import", "[", "\"\<box_-++-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmmpp", "=",
- RowBox[{"Import", "[", "\"\<box_--++.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetspmmm", "=",
- RowBox[{"Import", "[", "\"\<box_+---.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmpmm", "=",
- RowBox[{"Import", "[", "\"\<box_-+--.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmmpm", "=",
- RowBox[{"Import", "[", "\"\<box_--+-.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmmmp", "=",
- RowBox[{"Import", "[", "\"\<box_---+.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"bjetsmmmm", "=",
- RowBox[{"Import", "[", "\"\<box_----.m\>\"", "]"}]}], ";"}]}]}]], "Input",\
-
- 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}, {
- 3.780064364018285*^9, 3.780064364465892*^9}, {3.780064443063561*^9,
- 3.7800644967519608`*^9}, {3.780064644913237*^9, 3.780064667077899*^9}, {
- 3.7800647137737017`*^9, 3.780064716501062*^9}, {3.780163655649253*^9,
- 3.7801636565351133`*^9}},
- CellLabel->"In[25]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"(*", " ",
- RowBox[{
- "Four", " ", "momentum", " ", "vectors", " ", "for", " ", "all", " ",
- RowBox[{"particles", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{
- RowBox[{
- RowBox[{"g",
- RowBox[{"(", "k1", ")"}], " ", "g",
- RowBox[{"(", "k2", ")"}]}], " ", "\[Rule]", " ",
- RowBox[{"h",
- RowBox[{"(", "k3", ")"}]}]}], ",",
- RowBox[{"g",
- RowBox[{"(", "k4", ")"}]}], ",",
- RowBox[{"g",
- RowBox[{"(", "k5", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"k1vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k2vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k3vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"MH", ",", "k3x", ",", "k3y", ",", "k3z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k4vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"k5vec", "=",
- RowBox[{
- RowBox[{
- RowBox[{"vec4xyz", "[",
- RowBox[{"0", ",", "k5x", ",", "k5y", ",", "k5z"}], "]"}], "/.",
- "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec1", "=",
- RowBox[{
- RowBox[{
- RowBox[{"k1vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec2", "=",
- RowBox[{
- RowBox[{
- RowBox[{"k2vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec3", "=",
- RowBox[{
- RowBox[{
- RowBox[{"k3vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec4", "=",
- RowBox[{
- RowBox[{
- RowBox[{"k4vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kvec5", "=",
+ RowBox[{"{",
RowBox[{
- RowBox[{
- RowBox[{"k5vec", "/.", " ", "vecsubetaphi"}], "/.",
- RowBox[{"rS", "\[Rule]",
- RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mat", "=",
- RowBox[{"{",
- RowBox[{
- RowBox[{"{",
+ RowBox[{"rkT4", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"19", "/", "6"}], ",",
- RowBox[{"2", "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
- RowBox[{"{",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"mh", "^", "2"}], "+",
+ RowBox[{"rrS", "*",
+ RowBox[{"(",
+ RowBox[{"rrS", "-",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "2", "]"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"2", "*",
+ RowBox[{"mh", "^", "2"}]}], "+",
+ RowBox[{"rkT3", "^", "2"}], "+",
+ RowBox[{
+ RowBox[{"rkT3", "^", "2"}], "*",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}]}]}],
+ ")"}]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", "*", "rrS"}], "-",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "2", "]"}], "*",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{"2", "*",
+ RowBox[{"mh", "^", "2"}]}], "+",
+ RowBox[{"rkT3", "^", "2"}], "+",
+ RowBox[{
+ RowBox[{"rkT3", "^", "2"}], "*",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}]}]}],
+ ")"}], "*",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"2", "*", "rkT3", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "+",
+ RowBox[{
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "*",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}]}]}],
+ ")"}]}], ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"mh2", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"mh", "^", "2"}], ",", "sprec"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"SS", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"2", "/", "3"}], ",",
- RowBox[{"19", "/", "6"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
- RowBox[{"{",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k1vec", "+", "k2vec"}], ",",
+ RowBox[{"k1vec", "+", "k2vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"TT", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k1vec", "-", "k3vec"}], ",",
+ RowBox[{"k1vec", "-", "k3vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"UU", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{"2", "/", "3"}], ",",
- RowBox[{"19", "/", "6"}], ",",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k2vec", "-", "k3vec"}], ",",
+ RowBox[{"k2vec", "-", "k3vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"TT14", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k1vec", "-", "k4vec"}], ",",
+ RowBox[{"k1vec", "-", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"TT24", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
- RowBox[{"{",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k2vec", "-", "k4vec"}], ",",
+ RowBox[{"k2vec", "-", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"SS34", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{"19", "/", "6"}], ",",
- RowBox[{"2", "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}]}], "}"}], ",",
- RowBox[{"{",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k3vec", "+", "k4vec"}], ",",
+ RowBox[{"k3vec", "+", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"SS35", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k3vec", "+", "k5vec"}], ",",
+ RowBox[{"k3vec", "+", "k5vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]", "rl1", ",",
+ "rl1a", ",", "rl2", ",", "rl3", ",",
+ RowBox[{"sqmetemp", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"0", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p1v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k1vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p2v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k2vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p3v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k3vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p4v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k4vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p5v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k5vec", ",", "sprec"}], "]"}]}], ",", "sexpr", ",", "abbr",
+ ",", "ll1", ",", "ll2"}], "}"}], ",", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ RowBox[{"**", "**"}], "**"}], "**"}], "******)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<kT3_max = \>\"", ",", " ",
+ RowBox[{"(",
+ RowBox[{"kT3condition", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}], ",",
+ "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", " ", "[",
+ RowBox[{
+ RowBox[{"rkT3", ">", " ",
+ RowBox[{"(",
+ RowBox[{"kT3", "/.",
+ RowBox[{"(",
+ RowBox[{"kT3condition", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ "Print", "[", " ",
+ "\"\<UNPHYSICAL kT3. kT3 should be less than kT3_max!!!\>\"", "]"}]}],
+ "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"rkT4", "<", "0"}], ",",
+ RowBox[{
+ "Print", "[", "\"\<UNPHYSICAL kT4, kT4 should be positive!!!\>\"",
+ "]"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"rkT3", "<", "0"}], ",",
+ RowBox[{
+ "Print", "[", "\"\<UNPHYSICAL kT3, kT3 should be positive!!!\>\"",
+ "]"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"rl1", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"{",
RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{"19", "/", "6"}], ",",
- RowBox[{"2", "/", "3"}]}], "}"}], ",",
- RowBox[{"{",
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"kT3", "\[Rule]", " ", "rkT3"}], ",",
+ RowBox[{"kT4", "\[Rule]", "rkT4"}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", " ", "r\[Eta]4"}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "r\[Eta]3"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]", " ", "r\[Phi]3"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", " ", "r\[Phi]4"}], ",",
+ RowBox[{"MH2", "\[Rule]", " ",
+ RowBox[{"mh", "^", "2"}]}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}], ",", "sprec"}],
+ "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p1v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{
- RowBox[{"-", "1"}], "/", "3"}], ",",
- RowBox[{"2", "/", "3"}], ",",
- RowBox[{"19", "/", "6"}]}], "}"}]}], "}"}]}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"kT3condition", " ", "=", " ",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]",
+ RowBox[{"p1v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p2v", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"-",
- RowBox[{"MH", "^", "2"}]}], "+",
- RowBox[{"rS", "^", "2"}]}], ")"}], "/",
- RowBox[{"(",
- RowBox[{"2", "*", "rS"}], ")"}]}]}], "}"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"sprec", "=", "60"}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"testOutputPS", "[",
+ RowBox[{
+ RowBox[{"p2v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p3v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p3v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p4v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p4v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p5v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p5v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<Four Momenta : \\n\>\"", ",",
+ RowBox[{"MatrixForm", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"p1", "\[Rule]", " ", "p1v"}], ",",
+ RowBox[{"p2", "\[Rule]", " ", "p2v"}], ",",
+ RowBox[{"p3", "\[Rule]", " ", "p3v"}], ",",
+ RowBox[{"p4", "\[Rule]", " ", "p4v"}], ",",
+ RowBox[{"p5", "\[Rule]", " ", "p5v"}]}], "}"}], "//", "N"}], "]"}],
+ ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
RowBox[{
- "rrS_", ",", "rkT3_", ",", "r\[Eta]3_", ",", "r\[Phi]3_", ",",
- "r\[Eta]4_", ",", "r\[Phi]4_", ",", "mh_"}], "]"}], ":=",
- RowBox[{"Block", "[",
+ "\"\<Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \>\"", ",",
+ " ",
+ RowBox[{
+ "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v", " ",
+ "-", "p2v"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
RowBox[{
- RowBox[{"{",
- RowBox[{"rkT4", "=",
- RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{"Total", "[",
RowBox[{
- RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"-",
- RowBox[{"mh", "^", "2"}]}], "-",
- RowBox[{"rrS", "^", "2"}], "+",
- RowBox[{
- RowBox[{"Sqrt", "[", "2", "]"}], "*", "rrS", "*",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{"2", "*",
- RowBox[{"mh", "^", "2"}]}], "+",
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "*",
- RowBox[{"Cosh", "[",
- RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}]}]}],
- ")"}], "/",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "2"}], "*", "rkT3", "*",
- RowBox[{"Cos", "[",
- RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "-",
- RowBox[{"2", "*", "rrS", "*",
- RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
- RowBox[{
- RowBox[{"Sqrt", "[", "2", "]"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{"2", "*",
- RowBox[{"mh", "^", "2"}]}], "+",
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "*",
- RowBox[{"Cosh", "[",
- RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}], "*",
- RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "-",
- RowBox[{"2", "*", "rkT3", "*",
- RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "*",
- RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}]}], ",",
- "sprec"}], "]"}]}], "}"}], ",", "rkT4"}], "]"}]}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"OutputPS", "[",
- RowBox[{
- "rrS_", ",", "rkT3_", ",", "r\[Eta]3_", ",", "r\[Phi]3_", ",",
- "r\[Eta]4_", ",", "r\[Phi]4_", ",", "mh_"}], "]"}], ":=",
- RowBox[{"Block", "[",
- RowBox[{
+ "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v", " ",
+ "-", "p2v"}], " ", "]"}], "]"}], ">",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], ",",
+ RowBox[{
+ "Print", "[", "\"\<Energy-Momentum NOT CONSERVED !!!, TRY AGAIN.\>\"",
+ "]"}], ",", " ",
+ RowBox[{
+ "Print", "[", "\"\<MOMENTUM IS CONSERVED, ALL IS WELL!\>\"", "]"}]}],
+ "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"rl2", " ", "=", " ",
RowBox[{"{",
RowBox[{
- RowBox[{"rkT4", "=",
- RowBox[{"SetPrecision", "[",
+ RowBox[{"kkT3", "\[Rule]", " ", "rkT3"}], ",",
+ RowBox[{"kkT4", "\[Rule]", " ", "rkT4"}], ",",
+ RowBox[{"S", "\[Rule]", " ", "SS"}], ",",
+ RowBox[{"T", "\[Rule]", " ", "TT"}], ",",
+ RowBox[{"U", "\[Rule]", " ", "UU"}], ",",
+ RowBox[{"T24", "\[Rule]", " ", "TT24"}], ",",
+ RowBox[{"T14", "\[Rule]", " ", "TT14"}], ",",
+ RowBox[{"S34", "\[Rule]", " ", "SS34"}], ",", " ",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS", "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS34", "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "/",
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}]}], ",",
+ RowBox[{"kT5", "\[Rule]", " ",
+ RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"mh", "^", "2"}], "+",
- RowBox[{"rrS", "*",
- RowBox[{"(",
- RowBox[{"rrS", "-",
- RowBox[{
- RowBox[{"Sqrt", "[", "2", "]"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{"2", "*",
- RowBox[{"mh", "^", "2"}]}], "+",
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "*",
- RowBox[{"Cosh", "[",
- RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}]}]}],
- ")"}]}]}], ")"}], "/",
- RowBox[{"(",
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", "+",
+ RowBox[{
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS35", "]"}]}]}], "}"}]}], ";", " ",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"rl3", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ "kkT3", ",", "kkT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",",
+ "T14", ",", "S34", ",", " ",
+ RowBox[{"Sqrt", "[", "S", "]"}], ",",
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
+ RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"ll1", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p1v", ",",
+ RowBox[{"Re", "[",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p1v", ",", "p1v"}], "]"}], "]"}], "]"}]}], "]"}],
+ ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p2v", ",",
+ RowBox[{"Re", "[",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p2v", ",", "p2v"}], "]"}], "]"}], "]"}]}], "]"}],
+ ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p3v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p3v", ",", "p3v"}], "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p4v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p4v", ",", "p4v"}], "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p5v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p5v", ",", "p5v"}], "]"}], "]"}]}], "]"}]}], "}"}],
+ "]"}], ",", "sprec"}], "]"}]}], ";",
+ RowBox[{"ll2", "=",
+ RowBox[{"(",
+ RowBox[{"rl2", "/.", "rl1"}], ")"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"N", "[",
+ RowBox[{"ll2", ",", "10"}], "]"}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"{",
+ RowBox[{"ll1", ",",
+ RowBox[{"(",
+ RowBox[{"rl3", "/.", "ll2"}], ")"}]}], "}"}]}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{
+ 3.7821436705190067`*^9, {3.782143797307807*^9, 3.782143798448188*^9}, {
+ 3.782144164853756*^9, 3.7821441866787157`*^9}, {3.782144929306569*^9,
+ 3.782144934859687*^9}, {3.7821453821647987`*^9, 3.7821453856244*^9}, {
+ 3.78214592354963*^9, 3.7821459814169683`*^9}},
+ CellLabel->
+ "In[128]:=",ExpressionUUID->"0127c673-10d6-4656-a651-b4638482a09e"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"OutputPS3", "[",
+ RowBox[{
+ "rrS_", ",", "rkT4_", ",", "r\[Eta]3_", ",", "r\[Phi]3_", ",", "r\[Eta]4_",
+ ",", "r\[Phi]4_", ",", "mh_"}], "]"}], ":=", "\[IndentingNewLine]",
+ RowBox[{"Block", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"rkT3", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"(",
+ RowBox[{"-", "rkT4"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
+ RowBox[{
RowBox[{
- RowBox[{"2", "*", "rrS"}], "-",
- RowBox[{
- RowBox[{"Sqrt", "[", "2", "]"}], "*",
- RowBox[{"Sqrt", "[",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"(",
RowBox[{
- RowBox[{"2", "*",
- RowBox[{"mh", "^", "2"}]}], "+",
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "*",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}], "2"]}],
+ "-",
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["mh", "4"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["mh", "2"], " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ SuperscriptBox["rrS", "4"], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ", "rkT4", " ",
+ SuperscriptBox["rrS", "3"], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox["rrS", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}]}], ")"}],
+ " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"], " ",
RowBox[{"Cosh", "[",
- RowBox[{"2", "*", "r\[Eta]3"}], "]"}]}]}], "]"}]}]}],
- ")"}], "*",
- RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
- RowBox[{"2", "*", "rkT3", "*",
- RowBox[{"(",
- RowBox[{
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"8", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}], "2"]}]}],
+ ")"}]}]}], ")"}]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
RowBox[{"Cos", "[",
- RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "+",
- RowBox[{
- RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "*",
- RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}]}]}],
- ")"}]}], ",", "sprec"}], "]"}]}],
- RowBox[{"(*",
- RowBox[{"SetPrecision", "[",
- RowBox[{
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"8", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}], "2"]}]}], ")"}]}],
+ ")"}]}], ",", "sprec"}], "]"}]}], ","}], "*)"}],
+ RowBox[{
+ RowBox[{"rkT3", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
RowBox[{
- RowBox[{"(",
- RowBox[{
+ RowBox[{
+ RowBox[{"-", "rkT4"}], " ",
+ RowBox[{"(",
RowBox[{
- RowBox[{"-", "2"}], "*",
- RowBox[{"rkT3", "^", "2"}], "*", "rrS"}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}]}], "+",
+ RowBox[{"\[Sqrt]",
+ RowBox[{"(",
RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"Sqrt", "[",
+ RowBox[{
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"(",
RowBox[{
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{"mh", "^", "2"}]}], "]"}], "-", "rrS"}], ")"}],
- "*",
- RowBox[{"(",
- RowBox[{
- RowBox[{"mh", "^", "2"}], "-",
- RowBox[{"rrS", "^", "2"}]}], ")"}]}], "+",
- RowBox[{"rkT3", "*",
- RowBox[{"(",
- RowBox[{
- RowBox[{"mh", "^", "2"}], "+",
- RowBox[{"rrS", "*",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "2"}], "*",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "+",
- RowBox[{"mh", "^", "2"}]}], "]"}]}], "+", "rrS"}],
- ")"}]}]}], ")"}], "*",
- RowBox[{"Cos", "[",
- RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}]}], ")"}], "/",
-
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"8", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}]}], ")"}], "2"]}],
+ "-",
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["mh", "4"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["mh", "2"], " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ SuperscriptBox["rrS", "4"], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ", "rkT4", " ",
+ SuperscriptBox["rrS", "3"], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"4", " ",
+ SuperscriptBox["mh", "2"], " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox["rrS", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}]}], ")"}],
+ " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"8", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}], "2"]}]}],
+ ")"}]}]}], ")"}]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"-",
- RowBox[{"rkT3", "^", "2"}]}], "-",
- RowBox[{"2", "*",
- RowBox[{"mh", "^", "2"}]}], "+",
- RowBox[{"2", "*",
- RowBox[{"rrS", "^", "2"}]}], "+",
- RowBox[{
- RowBox[{"rkT3", "^", "2"}], "*",
- RowBox[{"Cos", "[",
- RowBox[{
- RowBox[{"2", "*", "r\[Phi]3"}], "-",
- RowBox[{"2", "*", "r\[Phi]4"}]}], "]"}]}], "+",
- RowBox[{"4", "*", "rkT3", "*", "rrS", "*",
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cos", "[",
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rrS", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ", "rkT4", " ", "rrS", " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ RowBox[{"Cosh", "[",
+ RowBox[{"2", " ", "r\[Eta]3"}], "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"Cosh", "[", "r\[Eta]4", "]"}], "2"]}], "-",
+ RowBox[{"8", " ",
+ SuperscriptBox["rkT4", "2"], " ",
RowBox[{"Cos", "[",
- RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}]}]}], ")"}]}],
- ",", "sprec"}], "]"}], "*)"}], ",",
- RowBox[{"mh2", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{"mh", "^", "2"}], ",", "sprec"}], "]"}]}], ",",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"p4x", "=",
- RowBox[{"p4vec3", "[",
- RowBox[{"[", "1", "]"}], "]"}]}], ",",
- RowBox[{"p4y", "=",
- RowBox[{"p4vec3", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], ",",
- RowBox[{"p4z", "=",
- RowBox[{"p4vec3", "[",
- RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
- RowBox[{"p5x", "=",
- RowBox[{"p5vec3", "[",
- RowBox[{"[", "1", "]"}], "]"}]}], ",",
- RowBox[{"p5y", "=",
- RowBox[{"p5vec3", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], ",",
- RowBox[{"p5z", "=",
- RowBox[{"p5vec3", "[",
- RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
- RowBox[{"E4", "=",
- RowBox[{"mf3", "[", "p4vec3", "]"}]}], ",",
- RowBox[{"E5", "=",
- RowBox[{"mf3", "[", "p5vec3", "]"}]}], ",",
- RowBox[{"E3", "=",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{"MH", "^", "2"}], "+",
- RowBox[{
- RowBox[{"mf3", "[",
- RowBox[{"p4vec3", "+", "p5vec3"}], "]"}], "^", "2"}]}],
- "]"}]}], ","}], "*)"}], "\[IndentingNewLine]",
- RowBox[{"SS", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k1vec", "+", "k2vec"}], ",",
- RowBox[{"k1vec", "+", "k2vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- RowBox[{"TT", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k1vec", "-", "k3vec"}], ",",
- RowBox[{"k1vec", "-", "k3vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- RowBox[{"UU", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k2vec", "-", "k3vec"}], ",",
- RowBox[{"k2vec", "-", "k3vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"TT14", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k1vec", "-", "k4vec"}], ",",
- RowBox[{"k1vec", "-", "k4vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"TT24", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k2vec", "-", "k4vec"}], ",",
- RowBox[{"k2vec", "-", "k4vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"TT15", "=",
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k1vec", "-", "k5vec"}], ",",
- RowBox[{"k1vec", "-", "k5vec"}]}], "]"}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"TT25", "=",
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k2vec", "-", "k5vec"}], ",",
- RowBox[{"k2vec", "-", "k5vec"}]}], "]"}]}], ","}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"SS34", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k3vec", "+", "k4vec"}], ",",
- RowBox[{"k3vec", "+", "k4vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- "\[IndentingNewLine]",
- RowBox[{"SS35", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"MyPair", "[",
- RowBox[{
- RowBox[{"k3vec", "+", "k5vec"}], ",",
- RowBox[{"k3vec", "+", "k5vec"}]}], "]"}], "/.",
- "vecsubetaphi"}], ",", "sprec"}], "]"}]}], ",",
- "\[IndentingNewLine]", "rl1", ",", "rl1a", ",", "rl2", ",", "rl3",
- ",",
- RowBox[{"sqmetemp", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"0", ",", "sprec"}], "]"}]}], ",",
- RowBox[{"p1v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"k1vec", ",", "sprec"}], "]"}]}], ",",
- RowBox[{"p2v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"k2vec", ",", "sprec"}], "]"}]}], ",",
- RowBox[{"p3v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"k3vec", ",", "sprec"}], "]"}]}], ",",
- RowBox[{"p4v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"k4vec", ",", "sprec"}], "]"}]}], ",",
- RowBox[{"p5v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{"k5vec", ",", "sprec"}], "]"}]}], ",", "sexpr", ",", "abbr",
- ",", "ll1", ",", "ll2"}], "}"}], ",", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
+ RowBox[{"r\[Phi]3", "-", "r\[Phi]4"}], "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], " ",
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["rkT4", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]3", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sinh", "[", "r\[Eta]4", "]"}], "2"]}]}], ")"}]}],
+ ")"}]}], ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"mh2", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"**", "**"}], "**"}], "**"}], "******)"}],
+ RowBox[{"mh", "^", "2"}], ",", "sprec"}], "]"}]}], ",",
"\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Print", "[",
- RowBox[{"\"\<kT3_max = \>\"", ",", " ",
- RowBox[{"(",
- RowBox[{"kT3condition", "/.",
- RowBox[{"{",
- RowBox[{
- RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
- RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}], ",",
- "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"If", " ", "[",
+ RowBox[{"SS", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"rkT3", ">", " ",
- RowBox[{"(",
- RowBox[{"kT3", "/.",
- RowBox[{"(",
- RowBox[{"kT3condition", "/.",
- RowBox[{"{",
- RowBox[{
- RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
- RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}]}],
- ")"}]}], ",",
RowBox[{
- "Print", "[", " ",
- "\"\<UNPHYSICAL kT3. kT3 should be less than kT3_max!!!\>\"",
- "]"}]}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"If", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k1vec", "+", "k2vec"}], ",",
+ RowBox[{"k1vec", "+", "k2vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"TT", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"rkT4", "<", "0"}], ",",
- RowBox[{
- "Print", "[", "\"\<UNPHYSICAL kT4, kT4 should be positive!!!\>\"",
- "]"}]}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"rl1", "=",
- RowBox[{"SetPrecision", "[",
RowBox[{
- RowBox[{"{",
+ RowBox[{"MyPair", "[",
RowBox[{
- RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
- RowBox[{"kT3", "\[Rule]", " ", "rkT3"}], ",",
- RowBox[{"kT4", "\[Rule]", "rkT4"}], ",",
- RowBox[{"\[Eta]4", "\[Rule]", " ", "r\[Eta]4"}], ",",
- RowBox[{"\[Eta]3", "\[Rule]", "r\[Eta]3"}], ",",
- RowBox[{"\[Phi]3", "\[Rule]", " ", "r\[Phi]3"}], ",",
- RowBox[{"\[Phi]4", "\[Rule]", " ", "r\[Phi]4"}], ",",
- RowBox[{"MH2", "\[Rule]", " ",
- RowBox[{"mh", "^", "2"}]}], ",",
- RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}], ",", "sprec"}],
- "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"p1v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p1v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
- "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"p2v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p2v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
- "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"p3v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p3v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
- "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"p4v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p4v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
- "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"p5v", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p5v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
- "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"Print", "[",
- RowBox[{"\"\<Four Momenta : \\n\>\"", ",",
- RowBox[{"MatrixForm", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{
- RowBox[{"p1", "\[Rule]", " ", "p1v"}], ",",
- RowBox[{"p2", "\[Rule]", " ", "p2v"}], ",",
- RowBox[{"p3", "\[Rule]", " ", "p3v"}], ",",
- RowBox[{"p4", "\[Rule]", " ", "p4v"}], ",",
- RowBox[{"p5", "\[Rule]", " ", "p5v"}]}], "}"}], "//", "N"}],
- "]"}], ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"Print", "[",
+ RowBox[{"k1vec", "-", "k3vec"}], ",",
+ RowBox[{"k1vec", "-", "k3vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"UU", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
- "\"\<Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \>\"", ",",
- " ",
RowBox[{
- "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v", " ",
- "-", "p2v"}]}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"If", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k2vec", "-", "k3vec"}], ",",
+ RowBox[{"k2vec", "-", "k3vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"TT14", "=",
+ RowBox[{"SetPrecision", "[",
RowBox[{
RowBox[{
- RowBox[{"Abs", "[",
- RowBox[{"Total", "[",
- RowBox[{
- "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v",
- " ", "-", "p2v"}], " ", "]"}], "]"}], ">",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], ",",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k1vec", "-", "k4vec"}], ",",
+ RowBox[{"k1vec", "-", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"TT24", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- "Print", "[",
- "\"\<Energy-Momentum NOT CONSERVED !!!, TRY AGAIN.\>\"", "]"}], ",",
- " ",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k2vec", "-", "k4vec"}], ",",
+ RowBox[{"k2vec", "-", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"SS34", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- "Print", "[", "\"\<MOMENTUM IS CONSERVED, ALL IS WELL!\>\"", "]"}]}],
- "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"rl2", " ", "=", " ",
- RowBox[{"{",
+ RowBox[{"MyPair", "[",
+ RowBox[{
+ RowBox[{"k3vec", "+", "k4vec"}], ",",
+ RowBox[{"k3vec", "+", "k4vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"SS35", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"kkT3", "\[Rule]", " ", "rkT3"}], ",",
- RowBox[{"kkT4", "\[Rule]", " ", "rkT4"}], ",",
- RowBox[{"S", "\[Rule]", " ", "SS"}], ",",
- RowBox[{"T", "\[Rule]", " ", "TT"}], ",",
- RowBox[{"U", "\[Rule]", " ", "UU"}], ",",
- RowBox[{"T24", "\[Rule]", " ", "TT24"}], ",",
- RowBox[{"T14", "\[Rule]", " ", "TT14"}], ",",
- RowBox[{"S34", "\[Rule]", " ", "SS34"}], ",", " ",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], "\[Rule]", " ",
- RowBox[{"Sqrt", "[", "SS", "]"}]}], ",",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], "\[Rule]", " ",
- RowBox[{"Sqrt", "[", "SS34", "]"}]}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", " ",
+ RowBox[{"MyPair", "[",
RowBox[{
- RowBox[{"p5v", "[",
- RowBox[{"[", "2", "]"}], "]"}], "/",
- RowBox[{"p5v", "[",
- RowBox[{"[", "3", "]"}], "]"}]}]}], ",",
- RowBox[{"kT5", "\[Rule]", " ",
- RowBox[{"Sqrt", "[",
- RowBox[{
- RowBox[{
- RowBox[{"p5v", "[",
- RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", "+",
- RowBox[{
- RowBox[{"p5v", "[",
- RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], ",",
+ RowBox[{"k3vec", "+", "k5vec"}], ",",
+ RowBox[{"k3vec", "+", "k5vec"}]}], "]"}], "/.", "vecsubetaphi"}],
+ ",", "sprec"}], "]"}]}], ",", "\[IndentingNewLine]", "rl1", ",",
+ "rl1a", ",", "rl2", ",", "rl3", ",",
+ RowBox[{"sqmetemp", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"0", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p1v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k1vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p2v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k2vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p3v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k3vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p4v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k4vec", ",", "sprec"}], "]"}]}], ",",
+ RowBox[{"p5v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"k5vec", ",", "sprec"}], "]"}]}], ",", "sexpr", ",", "abbr",
+ ",", "ll1", ",", "ll2"}], "}"}], ",", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ RowBox[{"**", "**"}], "**"}], "**"}], "******)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<kT3_max = \>\"", ",", " ",
+ RowBox[{"(",
+ RowBox[{"kT3condition", "/.",
+ RowBox[{"{",
RowBox[{
- RowBox[{"Sqrt", "[", "S35", "]"}], "\[Rule]", " ",
- RowBox[{"Sqrt", "[", "SS35", "]"}]}]}], "}"}]}], ";", " ",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"rl3", "=", " ",
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}], ",",
+ "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", " ", "[",
+ RowBox[{
+ RowBox[{"rkT3", ">", " ",
+ RowBox[{"(",
+ RowBox[{"kT3", "/.",
+ RowBox[{"(",
+ RowBox[{"kT3condition", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}]}], ")"}]}],
+ ")"}]}], ",",
+ RowBox[{
+ "Print", "[", " ",
+ "\"\<UNPHYSICAL kT3. kT3 should be less than kT3_max!!!\>\"", "]"}]}],
+ "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"rkT4", "<", "0"}], ",",
+ RowBox[{
+ "Print", "[", "\"\<UNPHYSICAL kT4, kT4 should be positive!!!\>\"",
+ "]"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"rkT3", "<", "0"}], ",",
+ RowBox[{
+ "Print", "[", "\"\<UNPHYSICAL kT3, kT3 should be positive!!!\>\"",
+ "]"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"rl1", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{"{",
RowBox[{
- "kkT3", ",", "kkT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",",
- "T14", ",", "S34", ",", " ",
- RowBox[{"Sqrt", "[", "S", "]"}], ",",
- RowBox[{"Sqrt", "[", "S34", "]"}], ",",
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
- RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}], ";",
- RowBox[{"(*",
+ RowBox[{"rS", "\[Rule]", " ", "rrS"}], ",",
+ RowBox[{"kT3", "\[Rule]", " ", "rkT3"}], ",",
+ RowBox[{"kT4", "\[Rule]", "rkT4"}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", " ", "r\[Eta]4"}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "r\[Eta]3"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]", " ", "r\[Phi]3"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]", " ", "r\[Phi]4"}], ",",
+ RowBox[{"MH2", "\[Rule]", " ",
+ RowBox[{"mh", "^", "2"}]}], ",",
+ RowBox[{"MH", "\[Rule]", " ", "mh"}]}], "}"}], ",", "sprec"}],
+ "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p1v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<PS.dat\>\"", ",",
- RowBox[{"N", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"AppendTo", "[",
- RowBox[{"p1v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p1v", ",", "p1v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p2v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p2v", ",", "p2v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p3v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p3v", ",", "p3v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p4v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p4v", ",", "p4v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p5v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p5v", ",", "p5v"}], "]"}], "]"}]}], "]"}]}], "}"}],
- "]"}]}], "]"}], ";"}], "*)"}],
- RowBox[{"(*",
+ RowBox[{"p1v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p2v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{
- RowBox[{"ll1", "=",
- RowBox[{"SetPrecision", "[",
- RowBox[{
- RowBox[{"N", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"AppendTo", "[",
- RowBox[{"p1v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p1v", ",", "p1v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p2v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p2v", ",", "p2v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p3v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p3v", ",", "p3v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p4v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p4v", ",", "p4v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p5v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p5v", ",", "p5v"}], "]"}], "]"}], "]"}]}],
- "]"}]}], "}"}], "]"}], ",", "sprec"}], "]"}]}], ";"}], "*)"}],
- RowBox[{"ll1", "=",
- RowBox[{"SetPrecision", "[",
+ RowBox[{"p2v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p3v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p3v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p4v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p4v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"p5v", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p5v", "/.", "vecsubetaphi"}], "//.", "rl1"}], ",",
+ "sprec"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<Four Momenta : \\n\>\"", ",",
+ RowBox[{"MatrixForm", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"p1", "\[Rule]", " ", "p1v"}], ",",
+ RowBox[{"p2", "\[Rule]", " ", "p2v"}], ",",
+ RowBox[{"p3", "\[Rule]", " ", "p3v"}], ",",
+ RowBox[{"p4", "\[Rule]", " ", "p4v"}], ",",
+ RowBox[{"p5", "\[Rule]", " ", "p5v"}]}], "}"}], "//", "N"}], "]"}],
+ ",", "\"\<\\n\>\""}], "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{
+ "\"\<Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \>\"", ",",
+ " ",
+ RowBox[{
+ "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v", " ",
+ "-", "p2v"}]}], "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{"Total", "[",
+ RowBox[{
+ "p3v", " ", "+", " ", "p4v", " ", "+", "p5v", " ", "-", "p1v", " ",
+ "-", "p2v"}], " ", "]"}], "]"}], ">",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], ",",
+ RowBox[{
+ "Print", "[", "\"\<Energy-Momentum NOT CONSERVED !!!, TRY AGAIN.\>\"",
+ "]"}], ",", " ",
+ RowBox[{
+ "Print", "[", "\"\<MOMENTUM IS CONSERVED, ALL IS WELL!\>\"", "]"}]}],
+ "]"}], ";", "\[IndentingNewLine]",
+ RowBox[{"rl2", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", " ", "rkT3"}], ",",
+ RowBox[{"kkT4", "\[Rule]", " ", "rkT4"}], ",",
+ RowBox[{"S", "\[Rule]", " ", "SS"}], ",",
+ RowBox[{"T", "\[Rule]", " ", "TT"}], ",",
+ RowBox[{"U", "\[Rule]", " ", "UU"}], ",",
+ RowBox[{"T24", "\[Rule]", " ", "TT24"}], ",",
+ RowBox[{"T14", "\[Rule]", " ", "TT14"}], ",",
+ RowBox[{"S34", "\[Rule]", " ", "SS34"}], ",", " ",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS", "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS34", "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]", " ",
RowBox[{
- RowBox[{"N", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"AppendTo", "[",
- RowBox[{"p1v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p1v", ",", "p1v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p2v", ",",
- RowBox[{"Re", "[",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p2v", ",", "p2v"}], "]"}], "]"}], "]"}]}], "]"}],
- ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p3v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p3v", ",", "p3v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p4v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p4v", ",", "p4v"}], "]"}], "]"}]}], "]"}], ",",
- RowBox[{"AppendTo", "[",
- RowBox[{"p5v", ",",
- RowBox[{"Sqrt", "[",
- RowBox[{"MyPair", "[",
- RowBox[{"p5v", ",", "p5v"}], "]"}], "]"}]}], "]"}]}], "}"}],
- "]"}], ",", "sprec"}], "]"}]}], ";",
- RowBox[{"ll2", "=",
- RowBox[{"(",
- RowBox[{"rl2", "/.", "rl1"}], ")"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"Print", "[",
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "/",
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}]}], ",",
+ RowBox[{"kT5", "\[Rule]", " ",
+ RowBox[{"Sqrt", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", "+",
+ RowBox[{
+ RowBox[{"p5v", "[",
+ RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], ",",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], "\[Rule]", " ",
+ RowBox[{"Sqrt", "[", "SS35", "]"}]}]}], "}"}]}], ";", " ",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"rl3", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ "kkT3", ",", "kkT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",",
+ "T14", ",", "S34", ",", " ",
+ RowBox[{"Sqrt", "[", "S", "]"}], ",",
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
+ RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}], ";",
+ RowBox[{"ll1", "=",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
RowBox[{"N", "[",
- RowBox[{"ll2", ",", "10"}], "]"}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"{",
- RowBox[{"ll1", ",",
- RowBox[{"(",
- RowBox[{"rl3", "/.", "ll2"}], ")"}]}], "}"}]}]}], "]"}]}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"SetAttributes", "[",
- RowBox[{"f", ",", "Listable"}], "]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"f", "[",
- RowBox[{"a_", ",", "b_"}], "]"}], ":=",
- RowBox[{"a", "\[Rule]", "b"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"variables", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p1v", ",",
+ RowBox[{"Re", "[",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p1v", ",", "p1v"}], "]"}], "]"}], "]"}]}], "]"}],
+ ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p2v", ",",
+ RowBox[{"Re", "[",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p2v", ",", "p2v"}], "]"}], "]"}], "]"}]}], "]"}],
+ ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p3v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p3v", ",", "p3v"}], "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p4v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p4v", ",", "p4v"}], "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"AppendTo", "[",
+ RowBox[{"p5v", ",",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"MyPair", "[",
+ RowBox[{"p5v", ",", "p5v"}], "]"}], "]"}]}], "]"}]}], "}"}],
+ "]"}], ",", "sprec"}], "]"}]}], ";",
+ RowBox[{"ll2", "=",
+ RowBox[{"(",
+ RowBox[{"rl2", "/.", "rl1"}], ")"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"N", "[",
+ RowBox[{"ll2", ",", "10"}], "]"}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"{",
- RowBox[{
- "kT3", ",", "kT4", ",", "S", ",", "T", ",", "U", ",", "T24", ",", "T14",
- ",", "S34", ",",
- RowBox[{"Sqrt", "[", "S", "]"}], ",",
- RowBox[{"Sqrt", "[", "S34", "]"}], ",",
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], ",", "kT5", ",",
- RowBox[{"Sqrt", "[", "S35", "]"}]}], "}"}]}], ";"}],
- "\[IndentingNewLine]"}]}]], "Input",
- CellChangeTimes->{{3.779652440025276*^9, 3.77965244069526*^9}, {
- 3.779652923832428*^9, 3.7796529263944063`*^9}, {3.779654115212576*^9,
- 3.779654116375017*^9}},
- CellLabel->"In[59]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"output", "=",
- RowBox[{
- RowBox[{"N", "[",
- RowBox[{
- RowBox[{"OutputPS", "[",
- RowBox[{"300.", ",", "100.", ",", "0", ",",
- RowBox[{"Pi", "/", "3"}], ",", "0", ",",
- RowBox[{"3", "*",
- RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}], "]"}],
- "[",
- RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"KinRules", "=",
- RowBox[{"f", "[",
- RowBox[{"variables", ",", "output"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"KinSub", "=",
- RowBox[{"{",
- RowBox[{
- RowBox[{"S", "\[Rule]",
- RowBox[{"300.", "^", "2"}]}], ",",
- RowBox[{"kT3", "\[Rule]", "100."}], ",",
- 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."}]}], "}"}]}], ";"}]}], "Input",
- CellChangeTimes->{{3.780058998656476*^9, 3.780059002458571*^9}},
- CellLabel->"In[77]:=",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
-
-Cell[CellGroupData[{
-
-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.779652878644693*^9, 3.779652947957752*^9,
- 3.77972112359286*^9, 3.780059015473105*^9, 3.780065067789596*^9,
- 3.7801641054814253`*^9, 3.78083736956564*^9},
- CellLabel->
- "During evaluation of \
-In[77]:=",ExpressionUUID->"8ec48464-d6f1-46f0-a9bc-d9b5b7488766"],
-
-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[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"89.81857221076743`", ",", "0.`", ",",
- RowBox[{"-", "89.81857221076743`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"50.10332185341126`", ",",
- RowBox[{"-", "50.`"}], ",", "3.2160318323235635`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- 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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {89.81857221076743,
- 0., -89.81857221076743, 0.}, $CellContext`p5 -> {
- 50.10332185341126, -50., 3.2160318323235635`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9,
- 3.77972112359286*^9, 3.780059015473105*^9, 3.780065067789596*^9,
- 3.7801641054814253`*^9, 3.7808373696158953`*^9},
- CellLabel->
- "During evaluation of \
-In[77]:=",ExpressionUUID->"ff135c2c-5123-4b56-9af3-729c41b05186"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.362360261819959419050121245404251043415135430054710445906600012`\
-44.193234098297346*^-14"}], ",", "0``58.", ",", "0``57.74560385726011", ",",
- "0``57.522878745280345"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.362360261819959419050121245404251043415135430054710445906600012`44.\
-193234098297346*^-14, 0``58., 0``57.74560385726011, 0``57.522878745280345}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9,
- 3.77972112359286*^9, 3.780059015473105*^9, 3.780065067789596*^9,
- 3.7801641054814253`*^9, 3.780837369624194*^9},
- CellLabel->
- "During evaluation of \
-In[77]:=",ExpressionUUID->"cb74f11b-36ac-4182-a31c-18964eeb0f53"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9,
- 3.77972112359286*^9, 3.780059015473105*^9, 3.780065067789596*^9,
- 3.7801641054814253`*^9, 3.780837369629216*^9},
+ RowBox[{"ll1", ",",
+ RowBox[{"(",
+ RowBox[{"rl3", "/.", "ll2"}], ")"}]}], "}"}]}]}], "]"}]}]], "Input",
CellLabel->
- "During evaluation of \
-In[77]:=",ExpressionUUID->"16f69396-903c-4586-955f-136c16885f64"],
+ "In[202]:=",ExpressionUUID->"cdb738e1-b06c-4056-a83b-fed75692cbe0"],
Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "89.8185722107674280323`10."}], ",",
- RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32398.4317807463651486616`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32398.4317807463651486616`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "26945.5716632302284097022`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "26945.5716632302284097022`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59938.0068879531964984348`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ RowBox[{
+ RowBox[{"(*", " ",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "244.8223986647324646673`10."}], ",",
+ "Four", " ", "momentum", " ", "vectors", " ", "for", " ", "all", " ",
+ RowBox[{"particles", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "15.5471097945803930026`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "50.1033218534112611819`10."}], ",",
+ RowBox[{
+ RowBox[{"g",
+ RowBox[{"(", "k1", ")"}], " ", "g",
+ RowBox[{"(", "k2", ")"}]}], " ", "\[Rule]", " ",
+ RowBox[{"h",
+ RowBox[{"(", "k3", ")"}]}]}], ",",
+ RowBox[{"g",
+ RowBox[{"(", "k4", ")"}]}], ",",
+ RowBox[{"g",
+ RowBox[{"(", "k5", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "190.0233056062847882188`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779652878644693*^9, 3.779652947957752*^9,
- 3.77972112359286*^9, 3.780059015473105*^9, 3.780065067789596*^9,
- 3.7801641054814253`*^9, 3.780837369637095*^9},
- CellLabel->
- "During evaluation of \
-In[77]:=",ExpressionUUID->"353952ec-11ff-47b0-b053-a81853341ffe"]
-}, Open ]]
-}, Open ]],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"ppppT", "=",
- RowBox[{"Chop", "[",
RowBox[{
+ "For", " ", "everything", " ", "n", " ", "terms", " ", "of", " ", "3"}],
+ ",", "4"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k1vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k2vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k3vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"MH", ",", "k3x", ",", "k3y", ",", "k3z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k4vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k5vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k5x", ",", "k5y", ",", "k5z"}], "]"}], "/.",
+ "CMSFrame"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec1", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k1vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec2", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k2vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec3", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetspmmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k3vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec4", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmpmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mppmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k4vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec5", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsmmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"k5vec", "/.", " ", "vecsubetaphi"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.779652440025276*^9, 3.77965244069526*^9}, {
+ 3.779652923832428*^9, 3.7796529263944063`*^9}, {3.779654115212576*^9,
+ 3.779654116375017*^9}, {3.7821434729718943`*^9, 3.782143522956732*^9}},
+ CellLabel->
+ "In[203]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+
+Cell[BoxData[
RowBox[{
- RowBox[{"mpmmT", "=",
- RowBox[{"Chop", "[",
+ RowBox[{"(*", " ",
+ RowBox[{
RowBox[{
+ "For", " ", "everything", " ", "in", " ", "terms", " ", "of", " ", "4"}],
+ ",", "5"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k1vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmpmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmpmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
+ "CMSFrame3"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k2vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
+ "CMSFrame3"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k3vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmmmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"MH", ",", "k3x", ",", "k3y", ",", "k3z"}], "]"}], "/.",
+ "CMSFrame3"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k4vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"tjetsmmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}]}], "Input",
- CellChangeTimes->{{3.779653476534589*^9, 3.7796535140142593`*^9}, {
- 3.779653545142555*^9, 3.779653659309304*^9}, {3.77965456709722*^9,
- 3.779654570430402*^9}, {3.78006493877393*^9, 3.780064949739119*^9}},
- CellLabel->
- "In[117]:=",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"ppppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z"}], "]"}], "/.",
+ "CMSFrame3"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k5vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k5x", ",", "k5y", ",", "k5z"}], "]"}], "/.",
+ "CMSFrame3"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec1", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k1vec", "/.", " ", "vecsubetaphi3"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec2", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k2vec", "/.", " ", "vecsubetaphi3"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec3", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k3vec", "/.", " ", "vecsubetaphi3"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec4", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k4vec", "/.", " ", "vecsubetaphi3"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec5", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"k5vec", "/.", " ", "vecsubetaphi3"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.782143196438087*^9, 3.7821432103764057`*^9}, {
+ 3.7821433789956627`*^9, 3.782143419667918*^9}, {3.78214432515156*^9,
+ 3.782144327578875*^9}, {3.782144816691866*^9, 3.7821448185145903`*^9}},
+ CellLabel->
+ "In[233]:=",ExpressionUUID->"96d025ea-e02d-427d-8502-00b9913d5e7e"],
+
+Cell[BoxData[
RowBox[{
- RowBox[{"pmpmB", "=",
- RowBox[{"Chop", "[",
+ RowBox[{"(*", " ",
+ RowBox[{
RowBox[{
+ "For", " ", "everything", " ", "in", " ", "terms", " ", "of", " ", "3"}],
+ ",", "5"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"k1vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k1x", ",", "k1y", ",", "k1z"}], "]"}], "/.",
+ "CMSFrame4"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k2vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspmmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k2x", ",", "k2y", ",", "k2z"}], "]"}], "/.",
+ "CMSFrame4"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k3vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmpmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mppmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"MH", ",", "k3x", ",", "k3y", ",", "k3z"}], "]"}], "/.",
+ "CMSFrame4"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k4vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k4x", ",", "k4y", ",", "k4z"}], "]"}], "/.",
+ "CMSFrame4"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"k5vec", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"vec4xyz", "[",
+ RowBox[{"0", ",", "k5x", ",", "k5y", ",", "k5z"}], "]"}], "/.",
+ "CMSFrame4"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec1", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k1vec", "/.", " ", "vecsubetaphi4"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec2", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmpmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmpmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k2vec", "/.", " ", "vecsubetaphi4"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec3", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k3vec", "/.", " ", "vecsubetaphi4"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec4", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmmmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"k4vec", "/.", " ", "vecsubetaphi4"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kvec5", "=",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"bjetsmmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}]}], "Input",
- CellChangeTimes->{{3.780064952293789*^9, 3.780064962460958*^9}, {
- 3.780065226743945*^9, 3.780065240060474*^9}},
- CellLabel->
- "In[133]:=",ExpressionUUID->"12f49257-6a3a-4c21-886e-9427c2f30bde"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"pppp", "=",
- RowBox[{"ppppT", "+", "ppppB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppm", "=",
- RowBox[{"pppmT", "+", "pppmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmp", "=",
- RowBox[{"ppmpT", "+", "ppmpB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpp", "=",
- RowBox[{"pmppT", "+", "pmppB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mppp", "=",
- RowBox[{"mpppT", "+", "mpppB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmm", "=",
- RowBox[{"ppmmT", "+", "ppmmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpm", "=",
- RowBox[{"pmpmT", "+", "pmpmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmp", "=",
- RowBox[{"pmmpT", "+", "pmmpB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpmp", "=",
- RowBox[{"mpmpT", "+", "mpmpB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mppm", "=",
- RowBox[{"mppmT", "+", "mppmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmpp", "=",
- RowBox[{"mmppT", "+", "mmppB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmm", "=",
- RowBox[{"pmmmT", "+", "pmmmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mpmm", "=",
- RowBox[{"mpmmT", "+", "mpmmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmpm", "=",
- RowBox[{"mmpmT", "+", "mmpmB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmp", "=",
- RowBox[{"mmmpT", "+", "mmmpB"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"mmmm", "=",
- RowBox[{"mmmmT", "+", "mmmmB"}]}], ";"}]}], "Input",
- CellChangeTimes->{{3.780064787569343*^9, 3.780064934117441*^9}, {
- 3.7800650236443663`*^9, 3.780065066499531*^9}, {3.78006511096343*^9,
- 3.780065166401495*^9}},
- CellLabel->
- "In[149]:=",ExpressionUUID->"6ef128b9-9837-4c81-b458-191e09ea160e"],
-
-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[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"ppppM", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppMdagger", "=",
- RowBox[{"Conjugate", "[", "ppppM", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"ppppMdagger", ",", "mat", ",", "ppppM"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{"MdagM1", "+",
- RowBox[{"pppp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
- CellChangeTimes->{{3.779654744567768*^9, 3.779654773337262*^9}},
+ RowBox[{"k5vec", "/.", " ", "vecsubetaphi4"}], "/.",
+ RowBox[{"rS", "\[Rule]",
+ RowBox[{"Sqrt", "[", "S", "]"}]}]}], "//", "Simplify"}]}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.782143426234679*^9, 3.782143458128838*^9}},
CellLabel->
- "In[279]:=",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
+ "In[145]:=",ExpressionUUID->"d4ab7d6b-2de7-429b-8012-7d8382df3f9a"],
Cell[BoxData[
- RowBox[{"0.00317894246517188`", "\[VeryThinSpace]", "-",
- RowBox[{"0.009446977930413915`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{
- 3.779654776170195*^9, 3.779721149582095*^9, {3.7800658976342497`*^9,
- 3.780065903236964*^9}, 3.7801430825305843`*^9},
- CellLabel->
- "Out[282]=",ExpressionUUID->"24d2d47f-06f2-479a-9035-29c3e65c94b1"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"mmmmM", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"mmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"mmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"mmmmMdagger", "=",
- RowBox[{"Conjugate", "[", "mmmmM", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"mmmmMdagger", ",", "mat", ",", "mmmmM"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{"MdagM1", "+",
- RowBox[{"mmmm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
- CellChangeTimes->{{3.779654124016089*^9, 3.779654147770977*^9}, {
- 3.779654182820999*^9, 3.779654216013234*^9}, {3.779654582528047*^9,
- 3.779654600872354*^9}},
- CellLabel->
- "In[198]:=",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
-
-Cell[BoxData[
- RowBox[{"0.003178942465171879`", "\[VeryThinSpace]", "+",
- RowBox[{"0.009446977930413918`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{{3.779654131947855*^9, 3.779654148338374*^9},
- 3.779654217384095*^9, 3.779654603348544*^9, 3.7797211497410517`*^9,
- 3.780065900297752*^9},
- CellLabel->
- "Out[201]=",ExpressionUUID->"b5d8e8b3-292f-464e-8af7-64af35df4b1c"]
-}, 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[{"for", " ", "g", " ", "g"}], " ", "\[Rule]", " ",
+ RowBox[{"H", " ", "g", " ", "g", " ",
+ RowBox[{"(",
+ RowBox[{"triangles", " ", "and", " ", "boxes"}], ")"}]}]}], " ", "*)"}],
+ "\[IndentingNewLine]",
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"],
-
-Cell[CellGroupData[{
-
-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[206]:=",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
-
-Cell[BoxData[
- RowBox[{"0.000588403938077485`", "\[VeryThinSpace]", "-",
- RowBox[{"0.004969664528391753`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779724434833102*^9, 3.780065909575511*^9},
- CellLabel->
- "Out[209]=",ExpressionUUID->"76fb84b6-447c-4500-a79b-097b64b7c182"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-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[210]:=",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
-
-Cell[BoxData[
- RowBox[{"0.0005884039380774843`", "\[VeryThinSpace]", "+",
- RowBox[{"0.004969664528391758`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{{3.779724914096778*^9, 3.779724917073429*^9},
- 3.780065911214353*^9},
- CellLabel->
- "Out[213]=",ExpressionUUID->"936f2da2-2370-48ac-8f2b-634af0c669cf"]
-}, 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->"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[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[214]:=",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
-
-Cell[BoxData[
- RowBox[{"0.00002923842956908394`", "\[VeryThinSpace]", "-",
- RowBox[{"0.0017665062643631875`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{{3.779724468472705*^9, 3.779724495678466*^9},
- 3.779724543632782*^9, 3.780065920332753*^9},
- CellLabel->
- "Out[217]=",ExpressionUUID->"5fff36a7-5bc7-451c-a708-e06c24a893d5"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-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[218]:=",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
-
-Cell[BoxData[
- RowBox[{"0.00002923842956908216`", "\[VeryThinSpace]", "+",
- RowBox[{"0.0017665062643631873`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779725150885038*^9, 3.780065921849408*^9},
- CellLabel->
- "Out[221]=",ExpressionUUID->"8d2a86af-89aa-4321-adca-042e99f93fc1"]
-}, 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.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[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[222]:=",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"-", "0.0012676506794254293`"}], "-",
- RowBox[{"0.0007256775684681871`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779724688064608*^9, 3.780065923990307*^9},
- CellLabel->
- "Out[225]=",ExpressionUUID->"ad7356e2-a175-4c71-b9fb-fcbe1f3042cc"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-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[226]:=",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"-", "0.0012676506794254293`"}], "+",
- RowBox[{"0.0007256775684681905`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.7797252894874697`*^9, 3.7800659254548693`*^9},
- CellLabel->
- "Out[229]=",ExpressionUUID->"fec63eb8-aaf2-4448-a56e-c8beff3c626e"]
-}, 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[230]:=",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
-
-Cell[BoxData[
- RowBox[{"0.0014200297995517364`", "\[VeryThinSpace]", "-",
- RowBox[{"0.0007255587258674269`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779724804322815*^9, 3.780065929070094*^9},
- CellLabel->
- "Out[233]=",ExpressionUUID->"ba599fef-014b-4efb-beb5-6b6822120c87"]
-}, 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[234]:=",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
-
-Cell[BoxData[
- RowBox[{"0.0014200297995517375`", "\[VeryThinSpace]", "+",
- RowBox[{"0.0007255587258674268`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779725442520694*^9, 3.780065931284789*^9},
- CellLabel->
- "Out[237]=",ExpressionUUID->"e7eb6211-922a-4f87-8608-c31bf1fa38a8"]
-}, 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[238]:=",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"-", "0.000031780135891045924`"}], "-",
- RowBox[{"0.001055198703833652`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779724804322815*^9, 3.779725577696227*^9,
- 3.780065933928732*^9},
- CellLabel->
- "Out[241]=",ExpressionUUID->"8ec3cbdc-d749-432a-8791-dcaae606bb53"]
-}, 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[242]:=",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"-", "0.00003178013589104672`"}], "+",
- RowBox[{"0.0010551987038336524`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779725442520694*^9, 3.779725637820459*^9,
- 3.780065936021255*^9},
- CellLabel->
- "Out[245]=",ExpressionUUID->"1905b858-0577-4f24-9178-a4769e1113d7"]
-}, 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[246]:=",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
-
-Cell[BoxData[
- RowBox[{"0.00006772953975567126`", "\[VeryThinSpace]", "+",
- RowBox[{"0.0010553319312093321`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779724804322815*^9, 3.779725577696227*^9,
- 3.7797257537171907`*^9, 3.78006594171246*^9},
- CellLabel->
- "Out[249]=",ExpressionUUID->"3fb8f3a3-8dd1-47fb-9ef3-1aef606a8abb"]
-}, 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[250]:=",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
-
-Cell[BoxData[
- RowBox[{"0.00006772953975566973`", "\[VeryThinSpace]", "-",
- RowBox[{"0.0010553319312093328`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{3.779725442520694*^9, 3.779725637820459*^9,
- 3.779725755335648*^9, 3.78006594343125*^9},
- CellLabel->
- "Out[253]=",ExpressionUUID->"ae016ef3-45db-4bd5-8cc5-a1be6252b110"]
-}, 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[254]:=",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
-
-Cell[BoxData[
- RowBox[{"6.418863824526681`*^-7", "-",
- RowBox[{"0.0011296317810479753`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{
- 3.779724804322815*^9, 3.779725577696227*^9, 3.7797257537171907`*^9, {
- 3.779726023229521*^9, 3.779726047809375*^9}, 3.780065946014638*^9},
- CellLabel->
- "Out[257]=",ExpressionUUID->"eb116717-90f4-4b5f-90d8-15dc956263f5"]
-}, 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", "[", "mmppM", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"mppmMdagger", ",", "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}, {
- 3.780065955408873*^9, 3.780065976666642*^9}},
- CellLabel->
- "In[270]:=",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
-
-Cell[BoxData[
- RowBox[{"6.418863824511502`*^-7", "+",
- RowBox[{"0.001129631781047977`", " ", "\[ImaginaryI]"}]}]], "Output",
- CellChangeTimes->{
- 3.779725442520694*^9, 3.779725637820459*^9, 3.779725755335648*^9,
- 3.7797260170740843`*^9, 3.7797260512273397`*^9, {3.780065947888851*^9,
- 3.780065977202661*^9}},
- CellLabel->
- "Out[273]=",ExpressionUUID->"371b7580-2d6f-44cd-98e9-c5d5f003195e"]
-}, 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[{"(*", " ",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"First", " ", "trial"}], " ", "-", " ",
- RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
- RowBox[{"20", " ", "GeV"}]}], ",", " ",
- RowBox[{"\[Phi]3", " ", "=", " ",
- RowBox[{"Pi", "/", "3"}]}], ",", " ",
- RowBox[{"\[Phi]4", " ", "=", " ",
- RowBox[{"3", " ",
- RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
- RowBox[{"S", " ", "is", " ", "in", " ",
- RowBox[{"(",
- RowBox[{"150", " ", "-", " ",
- RowBox[{"4", "*", "MT"}]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"Second", " ", "trial"}], " ", "-", " ",
- RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
- RowBox[{"100", " ", "GeV"}]}], ",", " ",
- RowBox[{"\[Phi]3", " ", "=", " ",
- RowBox[{"Pi", "/", "3"}]}], ",", " ",
- RowBox[{"\[Phi]4", " ", "=", " ",
- RowBox[{"3", " ",
- RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
- RowBox[{"S", " ", "is", " ", "in", " ",
- RowBox[{"(",
- RowBox[{"262", " ", "-", " ",
- RowBox[{"4", "MT"}]}], ")"}]}]}], " ", "*)"}]}]], "Input",
- CellChangeTimes->{{3.779795593445994*^9, 3.779795625039445*^9}, {
- 3.779796159020555*^9, 3.77979621806664*^9}, {3.779796325174335*^9,
- 3.7797963663910303`*^9}},ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-\
-1256848d2e3b"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"subAll", "[",
- RowBox[{"ss_", ",", "tkT3_"}], "]"}], ":=", "\[IndentingNewLine]",
- RowBox[{"{", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"output", "=",
- RowBox[{
- RowBox[{"N", "[",
- RowBox[{
- RowBox[{"OutputPS", "[",
- RowBox[{"ss", ",", "tkT3", ",", "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]", "tkT3"}], ",",
- 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}, {
- 3.779796371739184*^9, 3.7797963720035667`*^9}, {3.7797964664023314`*^9,
- 3.779796512446917*^9}},
- CellLabel->"In[80]:=",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"range", "=",
- RowBox[{"Range", "[",
- RowBox[{"270", ",", "700", ",", "5"}], "]"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.780163584746355*^9, 3.780163585938582*^9}, {
- 3.780163763429172*^9, 3.780163771751495*^9}, {3.780237537077243*^9,
- 3.780237537696865*^9}},
- CellLabel->"In[81]:=",ExpressionUUID->"f5941321-f681-4658-b2ae-0bbf629be6c2"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"(*", " ",
- RowBox[{
- "Check", " ", "that", " ", "the", " ", "lower", " ", "limit", " ", "on",
- " ", "S", " ", "conserves", " ", "momentum"}], " ", "*)"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"output", "=",
- RowBox[{
- RowBox[{"N", "[",
- RowBox[{
- RowBox[{"OutputPS", "[",
- RowBox[{"270", ",", "100.", ",", "0", ",",
- RowBox[{"Pi", "/", "3"}], ",", "0", ",",
- RowBox[{"2", "*",
- RowBox[{"Pi", "/", "3"}]}], ",", "125."}], "]"}], ",", "10"}],
- "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}]], "Input",
- CellChangeTimes->{{3.779796230126852*^9, 3.77979632179935*^9}, {
- 3.779796380065503*^9, 3.7797964188256207`*^9}, {3.779807819470285*^9,
- 3.7798078202954607`*^9}, {3.780059117104713*^9, 3.780059117765244*^9}, {
- 3.780163780296208*^9, 3.780163782409382*^9}, {3.780267762679554*^9,
- 3.780267762956894*^9}, {3.7808386861521263`*^9, 3.780838686478498*^9}, {
- 3.780839947052187*^9, 3.780839967006749*^9}, {3.780840164510552*^9,
- 3.780840235132061*^9}},
- CellLabel->
- "In[278]:=",ExpressionUUID->"a8132637-c3e1-4436-93bd-91c4f1b0f8d4"],
-
-Cell[CellGroupData[{
-
-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.779796245753159*^9, 3.779796322208068*^9},
- 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
- 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
- 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
- 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
- 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
- 3.780840235474806*^9}},
- CellLabel->
- "During evaluation of \
-In[278]:=",ExpressionUUID->"fbe079aa-93e0-4794-b2b1-aa9eb8a86047"],
-
-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[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"6.512000144960343`", ",",
- RowBox[{"-", "3.2560000724801714`"}], ",", "5.639557554983604`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"103.40989391921838`", ",",
- RowBox[{"-", "46.74399992751983`"}], ",",
- RowBox[{"-", "92.24209793342747`"}], ",", "0.`"}], "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- 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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {
- 6.512000144960343, -3.2560000724801714`, 5.639557554983604,
- 0.}, $CellContext`p5 -> {
- 103.40989391921838`, -46.74399992751983, -92.24209793342747, 0.}}],
- "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
- 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
- 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
- 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
- 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
- 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
- 3.780840235479714*^9}},
- CellLabel->
- "During evaluation of \
-In[278]:=",ExpressionUUID->"405c459d-d5f3-4ca1-93a5-973d5e2da2ee"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.323779798835526876490922071842068980142148525252183103517227057`\
-44.068582979075465*^-14"}], ",", "0``58.", ",", "0``57.73404083244151", ",",
- "0``57.56863623584101"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.323779798835526876490922071842068980142148525252183103517227057`44.\
-068582979075465*^-14, 0``58., 0``57.73404083244151, 0``57.56863623584101}],
- Editable->False]], "Print",
- CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
- 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
- 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
- 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
- 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
- 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
- 3.780840235485165*^9}},
- CellLabel->
- "During evaluation of \
-In[278]:=",ExpressionUUID->"b1106a4d-144a-4a7f-9003-f33743a52bee"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
- 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
- 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
- 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
- 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
- 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
- 3.780840235488449*^9}},
- CellLabel->
- "During evaluation of \
-In[278]:=",ExpressionUUID->"4d7ca716-d582-4200-aa20-ba6db43e5d3e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "6.5120001449603428512`10."}], ",",
- RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "1758.2400391392925698142`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "1758.2400391392925698142`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "17058.6572836220554860473`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "130.6087948172788840624`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "0.50675343443788201243401173324711807935`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "103.4098939192183767488`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "263.4075168284333178429`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
- 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
- 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
- 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
- 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
- 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
- 3.780840235491537*^9}},
- CellLabel->
- "During evaluation of \
-In[278]:=",ExpressionUUID->"25ad62ad-8c1e-47ff-aedf-9355a55e3c27"]
-}, Open ]]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"range", "=",
- RowBox[{"Range", "[",
- RowBox[{"270", ",", "700", ",", "5"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"size", "=",
- RowBox[{"Length", "[", "range", "]"}]}], ";"}], "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{
- "Initialize", " ", "where", " ", "the", " ", "scattering", " ",
- "amplitude", " ", "will", " ", "be", " ", "saved", " ", "for", " ",
- "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"pmpmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{"Initialize", " ", "where", " ", "the", " ", "sqrt",
- RowBox[{"(", "S34", ")"}], " ", "will", " ", "be", " ", "saved", " ",
- "for", " ", "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"S34List", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{"Do", "[", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"subAll", "[",
- RowBox[{
- RowBox[{"range", "[",
- RowBox[{"[", "n", "]"}], "]"}], ",", "20."}], "]"}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"S34List", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"KinRules", "[",
- RowBox[{"[",
- RowBox[{"10", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pppp", "=",
- RowBox[{"ppppT", "+", "ppppB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pppp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pppmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pppmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pppm", "=",
- RowBox[{"pppmT", "+", "pppmB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pppm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pppm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pppm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"ppmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppmp", "=",
- RowBox[{"ppmpT", "+", "ppmpB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"ppmp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"ppmp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"ppmp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmpp", "=",
- RowBox[{"pmppT", "+", "pmppB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmpp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmpp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmpp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"ppmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppmm", "=",
- RowBox[{"ppmmT", "+", "ppmmB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"ppmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"ppmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"ppmm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmmm", "=",
- RowBox[{"pmmmT", "+", "pmmmB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmmm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmpmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmpmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"pmpm", "=",
- RowBox[{"pmpmT", "+", "pmpmB"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmpm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmpm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmpm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[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}, {3.779796426176527*^9,
- 3.77979642793825*^9}, {3.779796528984577*^9, 3.779796533540606*^9}, {
- 3.779796841082293*^9, 3.7797970134691257`*^9}, {3.7798015953525887`*^9,
- 3.7798016667376423`*^9}, {3.779807801518634*^9, 3.779807801688882*^9}, {
- 3.780059131994137*^9, 3.7800591326317987`*^9}, {3.7801431276872387`*^9,
- 3.780143403710545*^9}, {3.780163577620269*^9, 3.7801635802159023`*^9}, {
- 3.780163789253108*^9, 3.780163857369306*^9}, {3.780163894247944*^9,
- 3.780163967952449*^9}, {3.7801640024360723`*^9, 3.780164048249914*^9}, {
- 3.780237553402011*^9, 3.7802375537609987`*^9}, {3.7802678656313047`*^9,
- 3.7802678658792143`*^9}},
- CellLabel->
- "In[399]:=",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
-
-Cell[CellGroupData[{
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"e611d832-d11f-4300-900f-002a03ff4624"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267872019883*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"af400a18-2db3-4b9a-b7c0-795723192178"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267872035358*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"72fa7020-2ef9-478d-b9e3-6a3858f7af2f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267872045444*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"6a277dac-23da-412b-8e45-e48bdb9761ab"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267872056243*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"fab93893-0733-4f33-ac41-f3b5269699a6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "109.0909090909091`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 109.0909090909091}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802681302548532`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"0c1f953c-d902-46c2-b0cf-0a0cf1a30b38"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",", "137.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "137.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.48389102976`", ",", "0.`", ",",
- RowBox[{"-", "82.48389102976`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"65.92621995851833`", ",",
- RowBox[{"-", "10.`"}], ",", "65.16338295407122`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 137.5}, $CellContext`p2 -> {
- 137.5, 0., 0., -137.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {82.48389102976,
- 0., -82.48389102976, 0.}, $CellContext`p5 -> {65.92621995851833, -10.,
- 65.16338295407122, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268130274477*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"223bada9-7069-43f2-9be5-b2fce50f3b99"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.838208488973340220322547576795127437387452118619683474917264905`\
-43.843765872138*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.78260086451334", ",", "0``57.56066730616974"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.838208488973340220322547576795127437387452118619683474917264905`43.\
-843765872138*^-14, 0``58.69897000433602, 0``57.78260086451334,
- 0``57.56066730616974}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268130289249*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"2f2a5471-ce8e-44c8-b0c8-983e48184bc5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802681303002577`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"19411246-35af-419a-8f89-0e30161dec09"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "82.4838910297600023114`10."}], ",",
- RowBox[{"S", "\[Rule]", "75625.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "19187.2194782234475099438`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "19187.2194782234475099438`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "22683.0700331840006356288`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "22683.0700331840006356288`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "39365.5790228149013519166`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "275.`10."}], ",",
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "198.4076082785509043442`10."}], ",",
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</helicities/2jets\>\""}], "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.15346041820830954015596116976864378302`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "65.9262199585183319977`10."}], ",",
+ RowBox[{"tjetspppp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_++++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "173.9507399628756507418`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268130314259*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"0ddbef6f-cf5f-4d9b-bf03-36d80aa1f5f7"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802683703312263`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"67151f63-65f5-42e9-b1a7-220323e910d1"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268370367692*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"297d3c2c-698b-4b51-b34b-b936e14d4f86"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268370385482*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"ff0bdc9e-e7b5-486e-9cfd-208c900e9564"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268370396702*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"b3de093d-3305-449c-8d94-433015a10da6"],
-
-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[{"tjetspppm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_+++-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "280.`10."}], ",",
+ RowBox[{"tjetsppmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_++-+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "200.222786881941721079`10."}], ",",
+ RowBox[{"tjetspmpp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_+-++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14775982119601653651333407211128100458`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "68.4122064521938116852`10."}], ",",
+ RowBox[{"tjetsmppp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_-+++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "175.5026309198601459554`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268370413659*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"3e334f4b-6f9f-44ac-81f5-c120fb44e74c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "115.08771929824562`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.08771929824562`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78026861954099*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"f9ac8e1a-151b-41e7-8c07-dede4f87ff8a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",", "142.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "142.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"87.51092480789458`", ",", "0.`", ",",
- RowBox[{"-", "87.51092480789458`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"70.89918618038375`", ",",
- RowBox[{"-", "10.`"}], ",", "70.1904167322058`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 142.5}, $CellContext`p2 -> {
- 142.5, 0., 0., -142.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {87.51092480789458,
- 0., -87.51092480789458, 0.}, $CellContext`p5 -> {
- 70.89918618038375, -10., 70.1904167322058, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268619598631*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"4b4d1b7c-3782-47c7-b8c8-a9284d6db224"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.611314815524570232525376624230116269647957411218358303554055767`\
-43.90794991694336*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.756907730883796", ",", "0``57.54515513999149"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.611314815524570232525376624230116269647957411218358303554055767`43.\
-90794991694336*^-14, 0``58.69897000433602, 0``57.756907730883796,
- 0``57.54515513999149}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268619633456*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"7aa6fcbe-4c9d-4fae-95a4-b4e811d1f7d3"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268619649343*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"19f85bf8-f073-40da-b5fb-493ddc228db3"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "87.5109248078945825`10."}], ",",
- RowBox[{"S", "\[Rule]", "81225.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "20453.1183683406637830326`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "20453.1183683406637830326`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "24940.6135702499560125034`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "24940.6135702499560125034`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "40812.4638771812461298414`10."}], ",",
+ RowBox[{"tjetsppmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_++--.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tjetspmpm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_+-+-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tjetspmmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_+--+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tjetsmpmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_-+-+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tjetsmppm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_-++-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"tjetsmmpp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_--++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "285.`10."}], ",",
+ RowBox[{"tjetspmmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_+---.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "202.020949104743209376`10."}], ",",
+ RowBox[{"tjetsmpmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_-+--.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14246959151350431385813596749003788222`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "70.899186180383744078`10."}], ",",
+ RowBox[{"tjetsmmpm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_--+-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "177.0417263232034510804`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268619669838*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"bd78fc5a-47ee-4087-ac5d-69554eaea2c6"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268856368805*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"39d4c48a-2005-433f-8fdc-0cadf5219548"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268856399776*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"403a126c-0ed5-49c4-a049-8afd1837481a"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802688564248247`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"a49f7988-b912-4eea-b560-6bb59e22cfd8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268856436659*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"b48e1c57-7aef-4e29-93fd-76b76cfe7ee2"],
-
-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[{"tjetsmmmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_---+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "290.`10."}], ",",
+ RowBox[{"tjetsmmmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHgg_T_----.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "203.8026173693555673276`10."}], ",",
+ RowBox[{"bjetspppp", "=",
+ RowBox[{"Import", "[", "\"\<box_++++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13754676533849038019543946132928078401`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "73.3870571610345461992`10."}], ",",
+ RowBox[{"bjetspppm", "=",
+ RowBox[{"Import", "[", "\"\<box_+++-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "178.5682748424215063912`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780268856455867*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"0b2abd76-ae2d-405f-be8e-4e3c3a78325a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "121.01694915254237`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 121.01694915254237`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269100410729*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"dcdd608b-7776-4c1c-8001-28be67aa8d1c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",", "147.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "147.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"92.5343800766396`", ",", "0.`", ",",
- RowBox[{"-", "92.5343800766396`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"75.87573091163875`", ",",
- RowBox[{"-", "10.`"}], ",", "75.21387200095081`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 147.5}, $CellContext`p2 -> {
- 147.5, 0., 0., -147.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {92.5343800766396,
- 0., -92.5343800766396, 0.}, $CellContext`p5 -> {75.87573091163875, -10.,
- 75.21387200095081, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269100454287*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"c152028d-fe83-4059-924b-0a7f34cb6cfb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.932900845428829588032103306802300088597211139268770959488147215`\
-43.51535756437937*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.73266688453218", ",", "0``57.53017798402184"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.932900845428829588032103306802300088597211139268770959488147215`43.\
-51535756437937*^-14, 0``58.69897000433602, 0``57.73266688453218,
- 0``57.53017798402184}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269100483026*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"794ae55a-bc8b-4f6a-b038-cf0cfa73072b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269100494701*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"f96e0e3b-0538-4c10-b672-ab720c9451f5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "92.5343800766395929713`10."}], ",",
- RowBox[{"S", "\[Rule]", "87025.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "21719.0172584578800561215`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "21719.0172584578800561215`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "27297.6421226086799265431`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "27297.6421226086799265431`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "42258.3187621331228985345`10."}], ",",
+ RowBox[{"bjetsppmp", "=",
+ RowBox[{"Import", "[", "\"\<box_++-+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "295.`10."}], ",",
+ RowBox[{"bjetspmpp", "=",
+ RowBox[{"Import", "[", "\"\<box_+-++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "205.5682824808660089578`10."}], ",",
+ RowBox[{"bjetsmppp", "=",
+ RowBox[{"Import", "[", "\"\<box_-+++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13295419759633680985134457480738248528`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "75.8757309116387603908`10."}], ",",
+ RowBox[{"bjetsppmm", "=",
+ RowBox[{"Import", "[", "\"\<box_++--.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "180.082524845645787386`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269100511841*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"19ff40de-2954-44b6-a99f-bc3463f24adb"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802693418992043`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"04597d3f-fd1a-463f-ae5c-89a6a84c0d31"],
+ RowBox[{"bjetspmpm", "=",
+ RowBox[{"Import", "[", "\"\<box_+-+-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetspmmp", "=",
+ RowBox[{"Import", "[", "\"\<box_+--+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmpmp", "=",
+ RowBox[{"Import", "[", "\"\<box_-+-+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmppm", "=",
+ RowBox[{"Import", "[", "\"\<box_-++-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmmpp", "=",
+ RowBox[{"Import", "[", "\"\<box_--++.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetspmmm", "=",
+ RowBox[{"Import", "[", "\"\<box_+---.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmpmm", "=",
+ RowBox[{"Import", "[", "\"\<box_-+--.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmmpm", "=",
+ RowBox[{"Import", "[", "\"\<box_--+-.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmmmp", "=",
+ RowBox[{"Import", "[", "\"\<box_---+.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"bjetsmmmm", "=",
+ RowBox[{"Import", "[", "\"\<box_----.m\>\"", "]"}]}], ";"}]}]}]], "Input",\
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269341950706*^9},
+ 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}, {
+ 3.780064364018285*^9, 3.780064364465892*^9}, {3.780064443063561*^9,
+ 3.7800644967519608`*^9}, {3.780064644913237*^9, 3.780064667077899*^9}, {
+ 3.7800647137737017`*^9, 3.780064716501062*^9}, {3.780163655649253*^9,
+ 3.7801636565351133`*^9}},
CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"4f8d70ba-23c4-465b-b370-f9c71ed3523f"],
+ "In[142]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ 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[{
- "-", "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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269341989457*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"7bea9042-8dbc-4df4-a000-81c4ad144938"],
+ 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["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269342007515*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"1a8b789d-88e5-408b-98d1-e3393140e8f7"],
+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[{
- 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[{"(*", " ",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"First", " ", "trial"}], " ", "-", " ",
+ RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
+ RowBox[{"20", " ", "GeV"}]}], ",", " ",
+ RowBox[{"\[Phi]3", " ", "=", " ",
+ RowBox[{"Pi", "/", "3"}]}], ",", " ",
+ RowBox[{"\[Phi]4", " ", "=", " ",
+ RowBox[{"3", " ",
+ RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
+ RowBox[{"S", " ", "is", " ", "in", " ",
+ RowBox[{"(",
+ RowBox[{"150", " ", "-", " ",
+ RowBox[{"4", "*", "MT"}]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269342057329*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"03d803ee-4bcf-464c-9c76-70cf761d15ce"],
+ RowBox[{
+ RowBox[{
+ RowBox[{"Second", " ", "trial"}], " ", "-", " ",
+ RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
+ RowBox[{"100", " ", "GeV"}]}], ",", " ",
+ RowBox[{"\[Phi]3", " ", "=", " ",
+ RowBox[{"Pi", "/", "3"}]}], ",", " ",
+ RowBox[{"\[Phi]4", " ", "=", " ",
+ RowBox[{"3", " ",
+ RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"S", " ", "is", " ", "in", " ",
+ RowBox[{"(",
+ RowBox[{"262", " ", "-", " ",
+ RowBox[{"4", "MT"}]}], ")"}], " ", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "First", " ", "trial", " ", "new", " ", "setup",
+ " ", "with", " ", "kt4", " ", "fixed"}], " ", "-", " ", "kT4"}], " ",
+ "="}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}]}]], "Input",\
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "126.88524590163935`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 126.88524590163935`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269586646308*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"d5ab5936-fbfc-4f72-aac2-f76a3e439734"],
+ CellChangeTimes->{{3.779795593445994*^9, 3.779795625039445*^9}, {
+ 3.779796159020555*^9, 3.77979621806664*^9}, {3.779796325174335*^9,
+ 3.7797963663910303`*^9}, {3.782154831866652*^9, 3.782154849772801*^9},
+ 3.782154935587801*^9},ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-\
+1256848d2e3b"],
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",", "152.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "152.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"97.55492326809086`", ",", "0.`", ",",
- RowBox[{"-", "97.55492326809086`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.85518772018752`", ",",
- RowBox[{"-", "10.`"}], ",", "80.23441519240208`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 152.5}, $CellContext`p2 -> {
- 152.5, 0., 0., -152.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {97.55492326809086,
- 0., -97.55492326809086, 0.}, $CellContext`p5 -> {
- 80.85518772018752, -10., 80.23441519240208, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269588196484*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"b3e06eb9-5ccc-4286-b4e4-2a9aae10c24d"],
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"For", " ", "substitution", " ", "of", " ", "kt3"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"subAll", "[",
+ RowBox[{"ss_", ",", "tkT3_"}], "]"}], ":=", "\[IndentingNewLine]",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"ss", ",", "tkT3", ",", "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]", "tkT3"}], ",",
+ 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]", "}"}]}], "\[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}, {
+ 3.779796371739184*^9, 3.7797963720035667`*^9}, {3.7797964664023314`*^9,
+ 3.779796512446917*^9}, {3.7821549531328278`*^9, 3.782154973617135*^9}, {
+ 3.782155501999219*^9, 3.782155531375428*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{"For", " ", "substitution", " ", "of", " ", "kt4"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"subAll", "[",
+ RowBox[{"ss_", ",", "tkT4_"}], "]"}], ":=", "\[IndentingNewLine]",
+ RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
- "8.4530295816280687934472705286291170423568471712798966138658022`43.\
-14168255379397*^-15", ",", "0``58.69897000433602", ",",
- "0``57.70972081267405", ",", "0``57.51570016065321"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 8.4530295816280687934472705286291170423568471712798966138658022`43.\
-14168255379397*^-15, 0``58.69897000433602, 0``57.70972081267405,
- 0``57.51570016065321}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269590209567*^9},
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS3", "[",
+ RowBox[{"ss", ",", "tkT4", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{
+ 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[{"kT4", "\[Rule]", "tkT4"}], ",",
+ RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]3", "\[Rule]",
+ RowBox[{"Pi", "/", "3"}]}], ",",
+ RowBox[{"\[Eta]4", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Phi]4", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "Pi"}], "/", "2"}]}], ",",
+ RowBox[{"MH", "\[Rule]", "125."}], ",",
+ RowBox[{"MT", "\[Rule]", "173."}]}], "}"}]}], ";"}],
+ "\[IndentingNewLine]", "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.782155534054648*^9, 3.7821555445794563`*^9}, {
+ 3.782155793616396*^9, 3.7821557994535017`*^9}, {3.782156963406249*^9,
+ 3.782156974111663*^9}},
CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"9781054b-6206-4108-830d-516dc4c02cef"],
+ "In[213]:=",ExpressionUUID->"7e306956-b6ed-45d6-bb0d-203b9a69e80b"],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"range", "=",
+ RowBox[{"Range", "[",
+ RowBox[{"220", ",", "700", ",", "5"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"size", "=",
+ RowBox[{"Length", "[", "range", "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802695926829653`*^9},
+ 3.78215557634336*^9, {3.782156656182519*^9, 3.782156670612153*^9}},
CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"5d3604f4-b587-48f9-96fa-32feda800a5c"],
+ "In[214]:=",ExpressionUUID->"a99344e1-89ec-4175-836b-1a838c40d241"],
+
+Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "97.5549232680908602333`10."}], ",",
- RowBox[{"S", "\[Rule]", "93025.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "22984.9161485750963292103`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "22984.9161485750963292103`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "29754.251596767712371161`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "29754.251596767712371161`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "43703.3354906856160338001`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "305.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "209.0534273593370581404`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12463479637783867467517036061976366088`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "80.8551877201875209108`10."}], ",",
+ RowBox[{
+ RowBox[{"(*", " ",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "183.0751124715333303808`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802695941331177`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"810e7fed-98f1-4647-9418-6061f5bec100"],
+ "Check", " ", "that", " ", "the", " ", "lower", " ", "limit", " ", "on",
+ " ", "S", " ", "conserves", " ", "momentum"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"output", "=",
+ RowBox[{
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS", "[",
+ RowBox[{"210", ",", "100.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"2", "*",
+ RowBox[{"Pi", "/", "3"}]}], ",", "125."}], "]"}], ",", "10"}],
+ "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}]], "Input",
+ CellChangeTimes->{{3.779796230126852*^9, 3.77979632179935*^9}, {
+ 3.779796380065503*^9, 3.7797964188256207`*^9}, {3.779807819470285*^9,
+ 3.7798078202954607`*^9}, {3.780059117104713*^9, 3.780059117765244*^9}, {
+ 3.780163780296208*^9, 3.780163782409382*^9}, {3.780267762679554*^9,
+ 3.780267762956894*^9}, {3.7808386861521263`*^9, 3.780838686478498*^9}, {
+ 3.780839947052187*^9, 3.780839967006749*^9}, {3.780840164510552*^9,
+ 3.780840235132061*^9}, {3.7821552791183863`*^9,
+ 3.782155290561821*^9}},ExpressionUUID->"a8132637-c3e1-4436-93bd-\
+91c4f1b0f8d4"],
+
+Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78026984081399*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
+ 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
+ 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
+ 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
+ 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
+ 3.780840235474806*^9}},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c4343d11-a847-4731-af64-b29b4a9ba855"],
+In[278]:=",ExpressionUUID->"fbe079aa-93e0-4794-b2b1-aa9eb8a86047"],
Cell[BoxData[
InterpretationBox[
@@ -4993,58 +2477,61 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "155.`"}]}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "135.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
+ "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"100.06426720830291`", ",", "0.`", ",",
- RowBox[{"-", "100.06426720830291`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"6.512000144960343`", ",",
+ RowBox[{"-", "3.2560000724801714`"}], ",", "5.639557554983604`",
+ ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"83.34584377997541`", ",",
- RowBox[{"-", "10.`"}], ",", "82.74375913261413`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"103.40989391921838`", ",",
+ RowBox[{"-", "46.74399992751983`"}], ",",
+ RowBox[{"-", "92.24209793342747`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {135., 0., 0., 135.}, $CellContext`p2 -> {
+ 135., 0., 0., -135.}, $CellContext`p3 -> {160.0781059358212, 50.,
+ 86.60254037844386, 0.}, $CellContext`p4 -> {
+ 6.512000144960343, -3.2560000724801714`, 5.639557554983604,
+ 0.}, $CellContext`p5 -> {
+ 103.40989391921838`, -46.74399992751983, -92.24209793342747, 0.}}],
+ "\n"],
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269840870616*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
+ 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
+ 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
+ 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
+ 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
+ 3.780840235479714*^9}},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4787270b-95f8-44d9-8ddd-3c05b7b962fd"],
+In[278]:=",ExpressionUUID->"405c459d-d5f3-4ca1-93a5-973d5e2da2ee"],
Cell[BoxData[
InterpretationBox[
@@ -5053,233 +2540,116 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.798544610675157123465611696424417056534299503158204543759852266`\
-43.97092731322533*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.698690985046035", ",", "0``57.50863830616573"}], "}"}]}],
+ "-", "6.323779798835526876490922071842068980142148525252183103517227057`\
+44.068582979075465*^-14"}], ",", "0``58.", ",", "0``57.73404083244151", ",",
+ "0``57.56863623584101"}], "}"}]}],
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}],
+{-6.323779798835526876490922071842068980142148525252183103517227057`44.\
+068582979075465*^-14, 0``58., 0``57.73404083244151, 0``57.56863623584101}],
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269840918783*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
+ 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
+ 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
+ 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
+ 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
+ 3.780840235485165*^9}},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f39339e1-8c70-4313-87b8-675804283b9c"],
+In[278]:=",ExpressionUUID->"b1106a4d-144a-4a7f-9003-f33743a52bee"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780269840949945*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
+ 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
+ 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
+ 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
+ 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
+ 3.780840235488449*^9}},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cb01b2cb-ce0c-48b4-9493-effa76d0bd6b"],
+In[278]:=",ExpressionUUID->"4d7ca716-d582-4200-aa20-ba6db43e5d3e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "100.0642672083029083296`10."}], ",",
- RowBox[{"S", "\[Rule]", "96100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "6.5120001449603428512`10."}], ",",
+ RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
+ RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
+ RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
+ RowBox[{"-", "1758.2400391392925698142`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "44425.5768564152217615797`10."}], ",",
+ RowBox[{"-", "1758.2400391392925698142`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "17058.6572836220554860473`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "310.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "210.7737575136317148291`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "130.6087948172788840624`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12085503613599321581184351047099920758`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "83.345843779975406376`10."}], ",",
+ "0.50675343443788201243401173324711807935`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "103.4098939192183767488`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.553933393065812731`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "263.4075168284333178429`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78026984097088*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"28b0300d-7b91-4742-b2d5-4de9da994eea"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "132.6984126984127`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.6984126984127}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802700854066772`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"d0f793eb-11da-4fca-8233-5c1a770a4c5c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",", "157.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "157.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"102.57306500543835`", ",", "0.`", ",",
- RowBox[{"-", "102.57306500543835`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"85.83704598284002`", ",",
- RowBox[{"-", "10.`"}], ",", "85.25255692974957`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 157.5}, $CellContext`p2 -> {
- 157.5, 0., 0., -157.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {102.57306500543835`,
- 0., -102.57306500543835`, 0.}, $CellContext`p5 -> {
- 85.83704598284002, -10., 85.25255692974957, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802700854593973`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"0d69ac0b-11ad-4106-aa02-2d24b1329b0e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "4.31044238211909165991703168710690629985911114534157194692535963`42.\
-83518129478001*^-15", ",", "0``58.69897000433602", ",",
- "0``57.68793667138912", ",", "0``57.5016894462104"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.31044238211909165991703168710690629985911114534157194692535963`42.\
-83518129478001*^-15, 0``58.69897000433602, 0``57.68793667138912,
- 0``57.5016894462104}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270085675702*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9,
+ 3.7800590870487337`*^9, 3.780059118318512*^9, 3.7800669054355993`*^9,
+ 3.780163988432776*^9, 3.78016512540021*^9, 3.780237548789586*^9,
+ 3.78026776349371*^9, 3.780837369843412*^9, 3.780838687077087*^9, {
+ 3.780839948254056*^9, 3.7808399674897623`*^9}, {3.7808401912254972`*^9,
+ 3.780840235491537*^9}},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fab2be44-b25b-4840-a82f-3d53c8b3006e"],
+In[278]:=",ExpressionUUID->"25ad62ad-8c1e-47ff-aedf-9355a55e3c27"]
+}, Open ]]
+}, Closed]],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270085772352*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"d32f6c46-b3d6-44ad-8eb0-26858ea1c96a"],
+Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "102.5730650054383517045`10."}], ",",
- RowBox[{"S", "\[Rule]", "99225.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24250.8150386923126022992`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24250.8150386923126022992`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "32310.515476713080786908`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "32310.515476713080786908`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45147.6610308107860384232`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "315.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "212.479789699657755564`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11729853461451333907117508270742420992`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "85.8370459828400252971`10."}], ",",
+ RowBox[{
+ RowBox[{"output", "=",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.0214209347241822575`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802700857870407`*^9},
+ RowBox[{"N", "[",
+ RowBox[{
+ RowBox[{"OutputPS3", "[",
+ RowBox[{"210", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{
+ RowBox[{"-", "Pi"}], "/", "2"}], ",", "125."}], "]"}], ",", "10"}],
+ "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7821552978466387`*^9, 3.782155321372765*^9}, {
+ 3.782155420344111*^9, 3.7821554329319477`*^9}, {3.782156435535347*^9,
+ 3.782156470806625*^9}, {3.782219804289157*^9, 3.782219905984806*^9}, {
+ 3.782221988582955*^9, 3.782221988647067*^9}},
CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"09c47cfb-6b6c-471d-8a56-d22ab59b531f"],
+ "In[944]:=",ExpressionUUID->"a3fcb34d-2f52-43e7-954a-3be2c4b0017a"],
+
+Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "135.5859375`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "67.79761904761905`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 135.5859375}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 67.79761904761905}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270386598463*^9},
+ CellChangeTimes->{{3.782155309082288*^9, 3.782155321878237*^9}, {
+ 3.7821554240510178`*^9, 3.782155433334601*^9}, 3.7821563132160892`*^9, {
+ 3.782156436289488*^9, 3.78215647112015*^9}, 3.782213495454331*^9,
+ 3.7822135924573507`*^9, {3.782219806377696*^9, 3.7822199065410233`*^9},
+ 3.782221989607266*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"250b353a-a17a-4c23-868d-e438aa4d283c"],
+In[944]:=",ExpressionUUID->"0e62ce95-37c7-4dfa-ac13-03e4e74b03a1"],
Cell[BoxData[
InterpretationBox[
@@ -5290,58 +2660,57 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", "160.`"}], "}"}]}]},
+ RowBox[{"105.`", ",", "0.`", ",", "0.`", ",", "105.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "160.`"}]}], "}"}]}]},
+ RowBox[{"105.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "105.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "141.01609560954617`", ",", "32.636403068355534`", ",",
+ "56.527908290688586`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"105.08136318209702`", ",", "0.`", ",",
- RowBox[{"-", "105.08136318209702`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"88.32874780618133`", ",",
- RowBox[{"-", "10.`"}], ",", "87.76085510640824`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"48.98390439045384`", ",",
+ RowBox[{"-", "32.636403068355534`"}], ",",
+ RowBox[{"-", "36.527908290688586`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {105., 0., 0., 105.}, $CellContext`p2 -> {
+ 105., 0., 0., -105.}, $CellContext`p3 -> {141.01609560954617`,
+ 32.636403068355534`, 56.527908290688586`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 48.98390439045384, -32.636403068355534`, -36.527908290688586`, 0.}}],
+ "\n"],
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270388430396*^9},
+ CellChangeTimes->{{3.782155309082288*^9, 3.782155321878237*^9}, {
+ 3.7821554240510178`*^9, 3.782155433334601*^9}, 3.7821563132160892`*^9, {
+ 3.782156436289488*^9, 3.78215647112015*^9}, 3.782213495454331*^9,
+ 3.7822135924573507`*^9, {3.782219806377696*^9, 3.7822199065410233`*^9},
+ 3.782221989743312*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2a304107-f5b7-4c3e-a9a5-e2a78cbe784d"],
+In[944]:=",ExpressionUUID->"e50c8c74-414c-4f1e-a495-cd9dea97de29"],
Cell[BoxData[
InterpretationBox[
@@ -5349,237 +2718,698 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.315647236212468485324966756393451641943982677217856680465741455`\
-43.55849242604768*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.67744430624194", ",", "0``57.494850021680094"}], "}"}]}],
+ "4.24629595821951878659228405794508932334919420511985189449106618`43.\
+0047609699319*^-15", ",", "0``58.18526771619183", ",", "0``57.94670708883201",
+ ",", "0``57.67778070526607"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 4.24629595821951878659228405794508932334919420511985189449106618`43.\
+0047609699319*^-15, 0``58.18526771619183, 0``57.94670708883201,
+ 0``57.67778070526607}],
Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027038892632*^9},
+ CellChangeTimes->{{3.782155309082288*^9, 3.782155321878237*^9}, {
+ 3.7821554240510178`*^9, 3.782155433334601*^9}, 3.7821563132160892`*^9, {
+ 3.782156436289488*^9, 3.78215647112015*^9}, 3.782213495454331*^9,
+ 3.7822135924573507`*^9, {3.782219806377696*^9, 3.7822199065410233`*^9},
+ 3.782221989861483*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c7d554d9-7ebc-4d4a-9c7f-f19068b73b60"],
+In[944]:=",ExpressionUUID->"f0bfefa5-1ce0-405a-bb32-ba159976b7c1"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270389381905*^9},
+ CellChangeTimes->{{3.782155309082288*^9, 3.782155321878237*^9}, {
+ 3.7821554240510178`*^9, 3.782155433334601*^9}, 3.7821563132160892`*^9, {
+ 3.782156436289488*^9, 3.78215647112015*^9}, 3.782213495454331*^9,
+ 3.7822135924573507`*^9, {3.782219806377696*^9, 3.7822199065410233`*^9},
+ 3.782221989969513*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"00e1d222-b563-412c-bb85-6d28bb3a62ca"],
+In[944]:=",ExpressionUUID->"576a5818-0358-427b-9dde-d9f59f14f67f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "105.0813631820970215358`10."}], ",",
- RowBox[{"S", "\[Rule]", "102400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "65.2728061367110683477`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "44100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24883.7644837509207388437`10."}]}], ",",
+ RowBox[{"-", "13988.3800780046953281178`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24883.7644837509207388437`10."}]}], ",",
+ RowBox[{"-", "13988.3800780046953281178`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "33626.0362182710468914593`10."}]}], ",",
+ RowBox[{"-", "4200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "33626.0362182710468914593`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45869.6014040439393513703`10."}], ",",
+ RowBox[{"-", "4200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "23526.7601560093902402353`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "320.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "210.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "214.1718968586773743041`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "153.3843543390569879287`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11394601827745643271241178234875140925`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "88.3287478061813279988`10."}], ",",
+ "0.89346487646200518811515804774659416457`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "48.9839043904538360172`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "187.4778055223014825429`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "188.9444362769118470811`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270406680155*^9},
+ CellChangeTimes->{{3.782155309082288*^9, 3.782155321878237*^9}, {
+ 3.7821554240510178`*^9, 3.782155433334601*^9}, 3.7821563132160892`*^9, {
+ 3.782156436289488*^9, 3.78215647112015*^9}, 3.782213495454331*^9,
+ 3.7822135924573507`*^9, {3.782219806377696*^9, 3.7822199065410233`*^9},
+ 3.78222199007837*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c59f9f42-a5b6-4ab8-b021-383e893b9ae0"],
+In[944]:=",ExpressionUUID->"9a4fe0f4-5ac0-43a9-b246-26ff47cbf573"]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["KinRules"], "Input",
+ CellChangeTimes->{{3.7822201699885683`*^9,
+ 3.782220175244048*^9}},ExpressionUUID->"4a094de2-cc82-4853-9031-\
+71a36e2a1d27"],
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "138.46153846153845`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 138.46153846153845`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270689462384*^9},
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kT3", "\[Rule]", "120.6399461668260499891`10."}], ",",
+ RowBox[{"kT4", "\[Rule]", "50.`"}], ",",
+ RowBox[{"S", "\[Rule]", "93025.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "37359.9144545011442723891`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "37359.9144545011442723891`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "15250.`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "15250.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "43444.8289090022878739953`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "305.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "208.4342316151602960446`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ "1.10725053345974450041465243783244932582`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "81.278969001635596676`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "250.0499950009997542781`10."}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.7822201716693974`*^9},
CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"6c93ebd8-8610-4908-9246-336eaeb4a6bd"],
+ "Out[576]=",ExpressionUUID->"99975541-eef5-4cb7-93e5-8c453e3a4b68"]
+}, Open ]],
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",", "162.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "162.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"107.5892031228037`", ",", "0.`", ",",
- RowBox[{"-", "107.5892031228037`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"90.82090786547462`", ",",
- RowBox[{"-", "10.`"}], ",", "90.26869504711492`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- 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.5, 0., 0., 162.5}, $CellContext`p2 -> {
- 162.5, 0., 0., -162.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {107.5892031228037,
- 0., -107.5892031228037, 0.}, $CellContext`p5 -> {
- 90.82090786547462, -10., 90.26869504711492, 0.}}], "\n"],
- Editable->False]], "Print",
+Cell[BoxData[""], "Input",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802706910137587`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"25e77e61-246c-4427-8ce2-4118c569e10f"],
+ 3.7822201787428493`*^9},ExpressionUUID->"f380996b-1a8f-4db8-abc3-\
+d4715e786f63"],
+
+Cell[CellGroupData[{
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Initialize", " ", "where", " ", "the", " ", "scattering", " ",
+ "amplitude", " ", "will", " ", "be", " ", "saved", " ", "for", " ",
+ "each", " ", "S"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ppppList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pppmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmpList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmppList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmmmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmpmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"Initialize", " ", "where", " ", "the", " ", "sqrt",
+ RowBox[{"(", "S34", ")"}], " ", "will", " ", "be", " ", "saved", " ",
+ "for", " ", "each", " ", "S"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"S34List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", " ", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kT3List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kT5List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"S35List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"Do", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
- "-", "5.45287774061811768249898941950907469498825778264381382533510041`\
-43.92371240380389*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.667201313483886", ",", "0``57.48811663902113"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.45287774061811768249898941950907469498825778264381382533510041`43.\
-92371240380389*^-14, 0``58.69897000433602, 0``57.667201313483886,
- 0``57.48811663902113}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270692108636*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"d3c019db-0273-4a53-bf08-baaf2f9348d6"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270694950933*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"e7d2479a-0e9b-4c85-b026-c7f7bfae225b"],
+ RowBox[{"subAll", "[",
+ RowBox[{
+ RowBox[{"range", "[",
+ RowBox[{"[", "n", "]"}], "]"}], ",", "20."}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"9", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"TList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"4", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"UList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"5", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"S34List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"10", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"7", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"T24List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"6", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"kT3List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{
+ RowBox[{"kT5List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", " ",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"12", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"S35List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"13", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"ppppT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"ppppB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"pppp", "=", "ppppT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "ppppB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppppList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pppmT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"pppmB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"pppm", "=", "pppmT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "pppmB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pppmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ppmpT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"ppmpB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"ppmp", "=", "ppmpT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "ppmpB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmpList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmppT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"pmppB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"pmpp", "=", "pmppT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "pmppB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmppList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ppmmT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"ppmmB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"ppmm", "=", "ppmmT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "ppmmB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmmmT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"pmmmB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"pmmm", "=", "pmmmT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "pmmmB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmmmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmpmT", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"pmpmB", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"bjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"pmpm", "=", "pmpmT"}],
+ RowBox[{"(*",
+ RowBox[{"+", "pmpmB"}], "*)"}], ";", "\[IndentingNewLine]",
+ RowBox[{"M", "=",
+ RowBox[{"List", "[",
+ RowBox[{
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"pppp", "[",
+ RowBox[{"[",
+ RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Mdagger", "=",
+ RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"MdagM1", "=", " ",
+ RowBox[{"Dot", "[",
+ RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmpmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "MdagM1"}], ";"}],
+ "\[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}, {3.779796426176527*^9,
+ 3.77979642793825*^9}, {3.779796528984577*^9, 3.779796533540606*^9}, {
+ 3.779796841082293*^9, 3.7797970134691257`*^9}, {3.7798015953525887`*^9,
+ 3.7798016667376423`*^9}, {3.779807801518634*^9, 3.779807801688882*^9}, {
+ 3.780059131994137*^9, 3.7800591326317987`*^9}, {3.7801431276872387`*^9,
+ 3.780143403710545*^9}, {3.780163577620269*^9, 3.7801635802159023`*^9}, {
+ 3.780163789253108*^9, 3.780163857369306*^9}, {3.780163894247944*^9,
+ 3.780163967952449*^9}, {3.7801640024360723`*^9, 3.780164048249914*^9}, {
+ 3.780237553402011*^9, 3.7802375537609987`*^9}, {3.7802678656313047`*^9,
+ 3.7802678658792143`*^9}, {3.782155458641797*^9, 3.782155464650257*^9}, {
+ 3.782155498148542*^9, 3.7821554991017027`*^9}, 3.782155571598528*^9, {
+ 3.782156003093628*^9, 3.78215607747113*^9}, {3.782156772925523*^9,
+ 3.782156837059286*^9}, {3.782156875579508*^9, 3.7821568823927937`*^9},
+ 3.782156933247075*^9, {3.7821577777243137`*^9, 3.7821577797243347`*^9},
+ 3.7821578673208523`*^9, {3.78221759594048*^9, 3.782217692707542*^9}, {
+ 3.782217818867588*^9, 3.782217866404619*^9}, {3.782219898037174*^9,
+ 3.782219898102149*^9}, 3.782220163026243*^9, {3.782220231850781*^9,
+ 3.782220303692367*^9}, {3.782220624447091*^9, 3.78222064568344*^9}, {
+ 3.7822219965147257`*^9, 3.7822219965932407`*^9}},
+ CellLabel->
+ "In[945]:=",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "107.5892031228036955781`10."}], ",",
- RowBox[{"S", "\[Rule]", "105625.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "25516.7139288095288753881`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "25516.7139288095288753881`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "34966.4910149112010628869`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "34966.4910149112010628869`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "46591.4098874414697812561`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "325.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "215.8504340682257460196`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11078037623985359645572242860100022265`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "90.8209078654746225842`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.9233124052655767534`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270695900611*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"7fb34c7c-a1ac-4019-bd9a-11338550b883"],
+Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "74.48863636363636`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 74.48863636363636}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780270994315474*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222004568481*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b3df9704-a7c5-47e1-96bb-01bf8f2b005a"],
+In[945]:=",ExpressionUUID->"eb472e6e-4421-4699-99b4-2a9eb6515042"],
Cell[BoxData[
InterpretationBox[
@@ -5590,58 +3420,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
+ RowBox[{"110.`", ",", "0.`", ",", "0.`", ",", "110.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "165.`"}]}], "}"}]}]},
+ RowBox[{"110.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "110.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "144.30724665436745`", ",", "36.05406161920055`", ",",
+ "62.44746654367438`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"110.09662176427692`", ",", "0.`", ",",
- RowBox[{"-", "110.09662176427692`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"93.31348922400144`", ",",
- RowBox[{"-", "10.`"}], ",", "92.77611368858814`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"55.69275334563255`", ",",
+ RowBox[{"-", "36.05406161920055`"}], ",",
+ RowBox[{"-", "42.44746654367438`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {110., 0., 0., 110.}, $CellContext`p2 -> {
+ 110., 0., 0., -110.}, $CellContext`p3 -> {144.30724665436745`,
+ 36.05406161920055, 62.44746654367438, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 55.69275334563255, -36.05406161920055, -42.44746654367438, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802709958996763`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220046610928`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"59aa65f3-e883-422e-890b-65ccc0ba8529"],
+In[945]:=",ExpressionUUID->"37262882-c7c3-4602-b120-ab1ab97ef378"],
Cell[BoxData[
InterpretationBox[
@@ -5650,86 +3478,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.608922410266737868290049163607647665020758462409887673440837738`\
-43.3869911653592*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.657196011173916", ",", "0``57.48148606012211"}], "}"}]}],
+ "-", "7.12626482483320626146644791704308070040109956842008203333104353`\
+43.20940928099368*^-15"}], ",", "0``58.1420158076954", ",",
+ "0``57.90345518033557", ",", "0``57.657577319177804"}], "}"}]}],
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}],
+{-7.12626482483320626146644791704308070040109956842008203333104353`43.\
+20940928099368*^-15, 0``58.1420158076954, 0``57.90345518033557,
+ 0``57.657577319177804}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271000004685*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222004695054*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c4332442-3a3e-44d8-9357-6a692233e2b7"],
+In[945]:=",ExpressionUUID->"4f76621c-9896-4c85-9479-ef342cff2ac7"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802710022605133`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220047247963`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4c231296-b961-4d6e-ac48-95fc6d2fb737"],
+In[945]:=",ExpressionUUID->"90c5cf8c-1081-4b71-b522-a8ebae27717b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "110.0966217642769180429`10."}], ",",
- RowBox[{"S", "\[Rule]", "108900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "72.1081232384011059366`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "48400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
+ RowBox[{"-", "16122.5942639608359555117`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
+ RowBox[{"-", "16122.5942639608359555117`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
+ RowBox[{"-", "4400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "47313.0971121590429348782`10."}], ",",
+ RowBox[{"-", "4400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "23895.188527921672704786`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "330.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "220.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "217.5157399181931453057`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "154.5806861413212666323`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10778636442528678963403670052967910275`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "93.313489224001438559`10."}], ",",
+ "0.84938076533034953735106306393704625775`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "55.6927533456325567123`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "190.3581614630095838159`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "198.9974874213239837847`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802710025528803`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222004762278*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"078dd53d-a6ec-4b6c-a4e2-21bf63e845cd"],
+In[945]:=",ExpressionUUID->"5d0a8995-2ac8-4c28-ab08-81104cd35b9b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "144.17910447761193`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "77.77777777777777`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 144.17910447761193`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 77.77777777777777}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271269269408*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222016942032*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cf798d00-816c-49b1-b422-98d449dc0fab"],
+In[945]:=",ExpressionUUID->"2ba0b823-2676-4a82-af0d-b9bee55c70a8"],
Cell[BoxData[
InterpretationBox[
@@ -5740,58 +3563,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",", "167.5`"}], "}"}]}]},
+ RowBox[{"112.5`", ",", "0.`", ",", "0.`", ",", "112.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "167.5`"}]}], "}"}]}]},
+ RowBox[{"112.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "112.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "146.00954564319375`", ",", "37.72859465621492`", ",",
+ "65.34784284273589`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"112.60365217732954`", ",", "0.`", ",",
- RowBox[{"-", "112.60365217732954`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"95.80645881094885`", ",",
- RowBox[{"-", "10.`"}], ",", "95.28314410164076`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"58.990454356806254`", ",",
+ RowBox[{"-", "37.72859465621492`"}], ",",
+ RowBox[{"-", "45.347842842735886`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {167.5, 0., 0., 167.5}, $CellContext`p2 -> {
- 167.5, 0., 0., -167.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {112.60365217732954`,
- 0., -112.60365217732954`, 0.}, $CellContext`p5 -> {
- 95.80645881094885, -10., 95.28314410164076, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {112.5, 0., 0., 112.5}, $CellContext`p2 -> {
+ 112.5, 0., 0., -112.5}, $CellContext`p3 -> {146.00954564319375`,
+ 37.72859465621492, 65.34784284273589, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 58.990454356806254`, -37.72859465621492, -45.347842842735886`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802712693560963`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222017018364*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ad0b39fc-8807-4989-acca-89efaad9d582"],
+In[945]:=",ExpressionUUID->"9eeb1d09-b62a-4cec-854d-0c20fd4a7bc8"],
Cell[BoxData[
InterpretationBox[
@@ -5799,86 +3620,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.590364826216705047590110261407555483573736025905165075103469121`43.\
-37542195925374*^-14", ",", "0``58.69897000433602", ",",
- "0``57.647417527721764", ",", "0``57.47495519296315"}], "}"}]}],
+ RowBox[{
+ "-", "4.91675929439038443320300318730543520911520865681461930537536113`\
+43.03846643364907*^-15"}], ",", "0``58.12229937576948", ",",
+ "0``57.883738748409655", ",", "0``57.64781748188863"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.590364826216705047590110261407555483573736025905165075103469121`43.\
-37542195925374*^-14, 0``58.69897000433602, 0``57.647417527721764,
- 0``57.47495519296315}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.91675929439038443320300318730543520911520865681461930537536113`43.\
+03846643364907*^-15, 0``58.12229937576948, 0``57.883738748409655,
+ 0``57.64781748188863}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802712751076393`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222017059066*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d8fcf254-a7db-448b-a65d-ff313429d6d1"],
+In[945]:=",ExpressionUUID->"e1f23ac5-ecb1-4c7d-9d68-a67c1158e2bc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271276563895*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222017097122*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e9745f3a-5e17-438b-ba71-199125476839"],
+In[945]:=",ExpressionUUID->"303446df-f358-4a84-8894-d9416578834b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "112.6036521773295362436`10."}], ",",
- RowBox[{"S", "\[Rule]", "112225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "75.4571893124298469502`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "50625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26782.612818926745148477`10."}]}], ",",
+ RowBox[{"-", "17227.147769718592314061`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26782.612818926745148477`10."}]}], ",",
+ RowBox[{"-", "17227.147769718592314061`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "37722.223479405394641617`10."}]}], ",",
+ RowBox[{"-", "4500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "37722.223479405394641617`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48034.6725966642765328435`10."}], ",",
+ RowBox[{"-", "4500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24079.2955394371852082058`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "335.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "225.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "219.1681377314327515542`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "155.1750480568225414854`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10495035710967687625722802999832899926`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "95.8064588109488523511`10."}], ",",
+ "0.8319821250826826482486261979135809566`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "58.9904543568062514652`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "191.7825670940641512576`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "204.0220576310316452351`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271279821628*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222017135744*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ebf08e9b-d1ea-43ce-872e-e99a183a21c8"],
+In[945]:=",ExpressionUUID->"da522714-73ec-4638-9bbe-9110fa9dd448"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "147.02205882352942`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "81.03260869565217`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 147.02205882352942`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 81.03260869565217}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271509185068*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222030572382*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cdae5a6d-025a-463e-bbe9-982c89f4e038"],
+In[945]:=",ExpressionUUID->"91456264-ffb4-4699-b874-fa10be3117ad"],
Cell[BoxData[
InterpretationBox[
@@ -5889,58 +3706,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", "170.`"}], "}"}]}]},
+ RowBox[{"115.`", ",", "0.`", ",", "0.`", ",", "115.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "170.`"}]}], "}"}]}]},
+ RowBox[{"115.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "115.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "147.74647829727704`", ",", "39.38280668403331`", ",",
+ "68.21302212140888`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"115.11032405974366`", ",", "0.`", ",",
- RowBox[{"-", "115.11032405974366`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"98.29978692853467`", ",",
- RowBox[{"-", "10.`"}], ",", "97.78981598405488`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"62.25352170272298`", ",",
+ RowBox[{"-", "39.38280668403331`"}], ",",
+ RowBox[{"-", "48.213022121408876`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {115., 0., 0., 115.}, $CellContext`p2 -> {
+ 115., 0., 0., -115.}, $CellContext`p3 -> {147.74647829727704`,
+ 39.38280668403331, 68.21302212140888, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 62.25352170272298, -39.38280668403331, -48.213022121408876`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802715092800713`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222030658566*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"144b3462-fb0b-4ebd-b10f-cfa60c7251a1"],
+In[945]:=",ExpressionUUID->"cb39f871-1bfb-455c-82e7-e8d360c75d39"],
Cell[BoxData[
InterpretationBox[
@@ -5948,87 +3763,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.506421982188818096642193333088953966131680307633327727362005252`\
-43.71235526759348*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.63785572778611", ",", "0``57.46852108295775"}], "}"}]}],
+ "1.769188147115406939122873902978667514608350350498952825371962753`43.\
+58501618941865*^-14", ",", "0``58.1036633406814", ",", "0``57.86510271332156",
+ ",", "0``57.638272163982414"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.769188147115406939122873902978667514608350350498952825371962753`43.\
+58501618941865*^-14, 0``58.1036633406814, 0``57.86510271332156,
+ 0``57.638272163982414}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271509329081*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222030694203*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3cc2a0e4-c9d7-439e-8e6a-00f4f4798a21"],
+In[945]:=",ExpressionUUID->"9f422d40-1f3b-4f34-9443-952d0b72821d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802715093490267`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220307272177`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2ab44ba5-ea37-49dd-8d90-d76144e250d5"],
+In[945]:=",ExpressionUUID->"6b6da121-cc82-4452-a820-5f20cf51d53c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "115.110324059743660996`10."}], ",",
- RowBox[{"S", "\[Rule]", "115600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "78.765613368066624389`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "52900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27415.5622639853532850214`10."}]}], ",",
+ RowBox[{"-", "18356.6900083737194617272`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27415.5622639853532850214`10."}]}], ",",
+ RowBox[{"-", "18356.6900083737194617272`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "39137.5101803128447386371`10."}]}], ",",
+ RowBox[{"-", "4600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "39137.5101803128447386371`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48756.1448885964029409276`10."}], ",",
+ RowBox[{"-", "4600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24263.3800167474367206906`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "340.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "230.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "220.8079366521873980915`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "155.7670697443700284513`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10226013720723791253166746773743084087`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "98.2997869285346766309`10."}], ",",
+ "0.81684999096012841122390111545183179954`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "62.2535217027229765539`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "193.1967381696034089427`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "209.0454496036687411123`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802715104732647`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222030759354*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"423326ee-15e0-42c1-a2e7-85630f699843"],
+In[945]:=",ExpressionUUID->"ed347ef1-d840-49eb-90aa-d507aab90b03"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "149.85507246376812`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "84.25531914893617`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 149.85507246376812`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 84.25531914893617}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802717856578407`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222043003812*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cd8a9b1a-d7aa-45c9-ae45-5f904eb1f21f"],
+In[945]:=",ExpressionUUID->"b484015c-4d3b-4d85-8f0c-1276e1c88f43"],
Cell[BoxData[
InterpretationBox[
@@ -6039,58 +3848,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",", "172.5`"}], "}"}]}]},
+ RowBox[{"117.5`", ",", "0.`", ",", "0.`", ",", "117.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "172.5`"}]}], "}"}]}]},
+ RowBox[{"117.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "117.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "149.5158845040547`", ",", "41.0182877477529`", ",",
+ "71.045758418588`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"117.61666415561501`", ",", "0.`", ",",
- RowBox[{"-", "117.61666415561501`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"100.7934468326633`", ",",
- RowBox[{"-", "10.`"}], ",", "100.29615607992623`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"65.4841154959453`", ",",
+ RowBox[{"-", "41.0182877477529`"}], ",",
+ RowBox[{"-", "51.045758418587994`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {172.5, 0., 0., 172.5}, $CellContext`p2 -> {
- 172.5, 0., 0., -172.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {117.61666415561501`,
- 0., -117.61666415561501`, 0.}, $CellContext`p5 -> {
- 100.7934468326633, -10., 100.29615607992623`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {117.5, 0., 0., 117.5}, $CellContext`p2 -> {
+ 117.5, 0., 0., -117.5}, $CellContext`p3 -> {149.5158845040547,
+ 41.0182877477529, 71.045758418588, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 65.4841154959453, -41.0182877477529, -51.045758418587994`, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271785730548*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220430906*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9ac5909f-b9cd-4211-a449-ab395c84930d"],
+In[945]:=",ExpressionUUID->"e9bd4019-1304-4f47-b4f1-adf8686cf030"],
Cell[BoxData[
InterpretationBox[
@@ -6099,86 +3906,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.135906886886530401093209272661247146681793783297580922252301226`\
-43.87176805071023*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.62850114655748", ",", "0``57.462180904926726"}], "}"}]}],
+ "-", "7.96422890150680195236022634846364252878704735532740562407838312`\
+43.229045875744205*^-15"}], ",", "0``58.08599247695366", ",",
+ "0``57.84743184959384", ",", "0``57.62893213772826"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.135906886886530401093209272661247146681793783297580922252301226`43.\
-87176805071023*^-14, 0``58.69897000433602, 0``57.62850114655748,
- 0``57.462180904926726}],
+{-7.96422890150680195236022634846364252878704735532740562407838312`43.\
+229045875744205*^-15, 0``58.08599247695366, 0``57.84743184959384,
+ 0``57.62893213772826}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271785783531*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222043126293*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a5759c44-5d39-465d-8275-0fcdbeeb31ba"],
+In[945]:=",ExpressionUUID->"13b997af-9abb-4fb1-b255-70abb35795b3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780271785803072*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220431597643`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"48575f7c-5b28-4234-a02f-7cf027ee5bfb"],
+In[945]:=",ExpressionUUID->"0fa4d801-6af4-419e-b610-69abada29d3b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "117.6166641556150125325`10."}], ",",
- RowBox[{"S", "\[Rule]", "119025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "82.0365754955058008591`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "55225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28048.5117090439614215658`10."}]}], ",",
+ RowBox[{"-", "19511.2328584528532991633`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28048.5117090439614215658`10."}]}], ",",
+ RowBox[{"-", "19511.2328584528532991633`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "40577.7491336871793237151`10."}]}], ",",
+ RowBox[{"-", "4700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "40577.7491336871793237151`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "49477.521685462291843877`10."}], ",",
+ RowBox[{"-", "4700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24447.4657169057076413876`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "345.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "235.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "222.4354326213840685637`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "156.3568537573767747416`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09970471841444229215557004067334037645`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "100.7934468326633087996`10."}], ",",
+ "0.80355917942079876122427330379067902836`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "65.4841154959452971457`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "194.6008780366255644408`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "214.0677462860764472513`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802717858420687`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220431940737`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d59b2f4e-f4aa-4a93-a9b0-6e5e10dfe03d"],
+In[945]:=",ExpressionUUID->"f9453062-8704-4278-9b57-721fe1b306b2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "87.44791666666667`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 87.44791666666667}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027202696043*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222054664757*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"996867b8-ea5a-4558-a4b6-becf43f9d75d"],
+In[945]:=",ExpressionUUID->"b579cb17-f4f0-472f-b4c2-e91cd986b0e4"],
Cell[BoxData[
InterpretationBox[
@@ -6189,58 +3991,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
+ RowBox[{"120.`", ",", "0.`", ",", "0.`", ",", "120.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "175.`"}]}], "}"}]}]},
+ RowBox[{"120.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "120.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "151.31577011925282`", ",", "42.636434791099035`", ",",
+ "73.84847131178086`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"120.12269661365401`", ",", "0.`", ",",
- RowBox[{"-", "120.12269661365401`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"103.28741437462433`", ",",
- RowBox[{"-", "10.`"}], ",", "102.80218853796524`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"68.6842298807472`", ",",
+ RowBox[{"-", "42.636434791099035`"}], ",",
+ RowBox[{"-", "53.84847131178086`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {120., 0., 0., 120.}, $CellContext`p2 -> {
+ 120., 0., 0., -120.}, $CellContext`p3 -> {151.31577011925282`,
+ 42.636434791099035`, 73.84847131178086, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 68.6842298807472, -42.636434791099035`, -53.84847131178086, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272027451103*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220547501707`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"30273eed-0e16-4a42-818c-2e40ff774b9a"],
+In[945]:=",ExpressionUUID->"9432b990-fe0b-49e1-9666-9ab52fea5170"],
Cell[BoxData[
InterpretationBox[
@@ -6248,87 +4047,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.16431009216937713133550040690197115995678615888482562993169278`\
-43.65518099635347*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.61934493129788", ",", "0``57.455931955649724"}], "}"}]}],
+ "6.18552608867916779165658119042544355413690046312854839283752748`43.\
+11013540558614*^-15", ",", "0``58.06918912199682", ",", "0``57.830628494637",
+ ",", "0``57.6197887582884"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.18552608867916779165658119042544355413690046312854839283752748`43.\
+11013540558614*^-15, 0``58.06918912199682, 0``57.830628494637,
+ 0``57.6197887582884}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802720275513153`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220547826967`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"28a09f11-61cb-4566-8d04-f92f88cd837e"],
+In[945]:=",ExpressionUUID->"8106f21a-8eaf-4857-a3ed-7238c35f473d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802720287885857`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222054822112*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7056bbe9-dc20-44c1-92eb-3b956a7cc8c7"],
+In[945]:=",ExpressionUUID->"4ef8ced0-16f5-4997-958e-4964de6bc41d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "120.1226966136540141861`10."}], ",",
- RowBox[{"S", "\[Rule]", "122500.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "85.2728695821980693381`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "57600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
+ RowBox[{"-", "20690.7848286206737517271`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
+ RowBox[{"-", "20690.7848286206737517271`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
+ RowBox[{"-", "4800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "50198.8099377629555831361`10."}], ",",
+ RowBox[{"-", "4800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24631.5696572413466537579`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "350.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "240.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "224.0509092544883103294`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "156.9444795373234740071`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09727419369391111521846896188281508563`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "103.2874143746243268619`10."}], ",",
+ "0.79178542588953908098597997510778163961`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "68.6842298807471988867`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "195.9951845593206800654`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "219.089023002066451594`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272031388591*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220548575497`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f5cbc613-3570-449e-bf94-8647c5ca7059"],
+In[945]:=",ExpressionUUID->"b7bfb80c-0f83-46ff-ab85-97b164841fe2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "155.49295774647888`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "90.61224489795919`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 155.49295774647888`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 90.61224489795919}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802723083944387`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222066296894*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1dd17060-6f49-4080-aa68-94ed2ba70dae"],
+In[945]:=",ExpressionUUID->"61e4c2a6-3280-43a6-ae5c-894ec40267bb"],
Cell[BoxData[
InterpretationBox[
@@ -6339,58 +4132,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",", "177.5`"}], "}"}]}]},
+ RowBox[{"122.5`", ",", "0.`", ",", "0.`", ",", "122.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "177.5`"}]}], "}"}]}]},
+ RowBox[{"122.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "122.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "153.14429389047055`", ",", "44.238486499909826`", ",",
+ "76.6233062677937`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"122.62844329456539`", ",", "0.`", ",",
- RowBox[{"-", "122.62844329456539`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"105.78166769371295`", ",",
- RowBox[{"-", "10.`"}], ",", "105.30793521887661`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"71.85570610952945`", ",",
+ RowBox[{"-", "44.238486499909826`"}], ",",
+ RowBox[{"-", "56.62330626779369`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {177.5, 0., 0., 177.5}, $CellContext`p2 -> {
- 177.5, 0., 0., -177.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {122.62844329456539`,
- 0., -122.62844329456539`, 0.}, $CellContext`p5 -> {
- 105.78166769371295`, -10., 105.30793521887661`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {122.5, 0., 0., 122.5}, $CellContext`p2 -> {
+ 122.5, 0., 0., -122.5}, $CellContext`p3 -> {153.14429389047055`,
+ 44.238486499909826`, 76.6233062677937, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 71.85570610952945, -44.238486499909826`, -56.62330626779369, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802723161451607`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222066382807*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"898ef2ae-bf99-4cca-b558-94384e213d24"],
+In[945]:=",ExpressionUUID->"24ccdf30-44a1-4374-b6ee-0ae177ec3624"],
Cell[BoxData[
InterpretationBox[
@@ -6398,87 +4189,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.962222697792990899170343161527646795497374842650544827084305355`\
-43.74668053280767*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.610378789184836", ",", "0``57.44977164694491"}], "}"}]}],
+ "6.5529638055078797655858210024689159767330719657454118157649505`42.\
+12624168916192*^-16", ",", "0``58.053169743995554", ",",
+ "0``57.81460911663572", ",", "0``57.61083391563546"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.962222697792990899170343161527646795497374842650544827084305355`43.\
-74668053280767*^-14, 0``58.69897000433602, 0``57.610378789184836,
- 0``57.44977164694491}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.5529638055078797655858210024689159767330719657454118157649505`42.\
+12624168916192*^-16, 0``58.053169743995554, 0``57.81460911663572,
+ 0``57.61083391563546}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272316624017*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220664175673`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a762aac1-c0ba-4e1f-bc0a-c78bf2cef19a"],
+In[945]:=",ExpressionUUID->"8f770c4a-ed05-48fd-b229-fd7de0e1b315"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272318658525*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222066447761*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"200c62ae-f714-4e09-971c-8bc77cc0e8b5"],
+In[945]:=",ExpressionUUID->"bc42330e-8495-46ad-8835-3764b308b90f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "122.628443294565386168`10."}], ",",
- RowBox[{"S", "\[Rule]", "126025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "88.4769729998196510223`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "60025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29314.4105991611776946547`10."}]}], ",",
+ RowBox[{"-", "21895.352003165284837721`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29314.4105991611776946547`10."}]}], ",",
+ RowBox[{"-", "21895.352003165284837721`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "43533.0973695707120896259`10."}]}], ",",
+ RowBox[{"-", "4900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "43533.0973695707120896259`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "50920.0159374637879511716`10."}], ",",
+ RowBox[{"-", "4900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24815.7040063305695812684`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "355.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "245.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "225.6546386349365253198`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "157.530009859488581133`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09495960564809824750464279803860527019`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "105.7816676937129469009`10."}], ",",
+ "0.78127699379984589870106376550172409064`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "71.8557061095294502973`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "197.3798501895737010912`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "224.109348310149704685`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272319171974*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222066491414*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9c836582-3143-44dd-9dc0-ab1cbf44260f"],
+In[945]:=",ExpressionUUID->"f97a301f-e310-4c66-af7c-af060e39369a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "158.29861111111111`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "93.75`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 158.29861111111111`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 93.75}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027253183646*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222077924508*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0cbc4fb7-06e9-4ff9-aeb4-5555c212e466"],
+In[945]:=",ExpressionUUID->"f0dde102-dca9-4476-aee5-00409c064e3c"],
Cell[BoxData[
InterpretationBox[
@@ -6489,58 +4274,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", "180.`"}], "}"}]}]},
+ RowBox[{"125.`", ",", "0.`", ",", "0.`", ",", "125.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "180.`"}]}], "}"}]}]},
+ RowBox[{"125.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "125.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "154.99975480084353`", ",", "45.825549610238234`", ",",
+ "79.37218020970079`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"125.1339240357539`", ",", "0.`", ",",
- RowBox[{"-", "125.1339240357539`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"108.27618695252445`", ",",
- RowBox[{"-", "10.`"}], ",", "107.81341596006513`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"75.00024519915645`", ",",
+ RowBox[{"-", "45.825549610238234`"}], ",",
+ RowBox[{"-", "59.37218020970078`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {125., 0., 0., 125.}, $CellContext`p2 -> {
+ 125., 0., 0., -125.}, $CellContext`p3 -> {154.99975480084353`,
+ 45.825549610238234`, 79.37218020970079, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 75.00024519915645, -45.825549610238234`, -59.37218020970078, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272531919344*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222207800981*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0b8aa3c5-65ff-4952-9662-c9dd9eb60589"],
+In[945]:=",ExpressionUUID->"e9d1c091-f766-4b34-9936-f3d1cf61dec2"],
Cell[BoxData[
InterpretationBox[
@@ -6548,86 +4331,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "9.3268854149248249474018816661842718715386545750526678620883626`43.\
-11240414485699*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.60159494065158", ",", "0``57.443697499232705"}], "}"}]}],
+ "1.7565777170182833225700129577165909494026488252032340379855262`42.\
+54569736489337*^-15", ",", "0``58.037862321945354", ",",
+ "0``57.79930169458551", ",", "0``57.602059991327955"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.7565777170182833225700129577165909494026488252032340379855262`42.\
+54569736489337*^-15, 0``58.037862321945354, 0``57.79930169458551,
+ 0``57.602059991327955}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802725327665577`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222078044161*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"907d8f20-5474-472d-bfe5-8dc1d877467d"],
+In[945]:=",ExpressionUUID->"ab4b6d06-344f-4cd3-88e3-5697a4f9c4a9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272533270281*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222078078566*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f4de2e3d-fc7f-4e10-842d-d339703a0000"],
+In[945]:=",ExpressionUUID->"eea77730-72d0-43d2-88cc-02ee2cf5c17d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "125.1339240357539068782`10."}], ",",
- RowBox[{"S", "\[Rule]", "129600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "91.6510992204764676217`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "62500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29947.3600442197858311991`10."}]}], ",",
+ RowBox[{"-", "23124.9387002108867295255`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29947.3600442197858311991`10."}]}], ",",
+ RowBox[{"-", "23124.9387002108867295255`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "45048.2126528714064761516`10."}]}], ",",
+ RowBox[{"-", "5000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "45048.2126528714064761516`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51641.1453941823866344606`10."}], ",",
+ RowBox[{"-", "5000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "24999.8774004217731955636`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "360.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "250.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "227.2468820340168861663`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "158.1134953140362816499`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09275283517316687237750101301906531409`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "108.276186952524456486`10."}], ",",
+ "0.77183538567025413436168714232889593417`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "75.0002451991564548385`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "198.7550620594534258026`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "229.1287847477920020926`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272537116784*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220781170397`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6f428f60-6566-4669-ad8a-8d4d6d060934"],
+In[945]:=",ExpressionUUID->"7b59cb25-cb92-453b-9a1c-6f727550a316"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "161.0958904109589`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "96.86274509803921`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.0958904109589}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 96.86274509803921}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802727834290123`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222089906147*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4cd869ea-5780-4a16-baf0-3b597e4d590d"],
+In[945]:=",ExpressionUUID->"c86125f8-098c-4170-92f0-58daee02e05e"],
Cell[BoxData[
InterpretationBox[
@@ -6638,58 +4416,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",", "182.5`"}], "}"}]}]},
+ RowBox[{"127.5`", ",", "0.`", ",", "0.`", ",", "127.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "182.5`"}]}], "}"}]}]},
+ RowBox[{"127.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "127.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "156.88058014918235`", ",", "47.3986192518939`", ",",
+ "82.09681675289256`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"127.6391568801116`", ",", "0.`", ",",
- RowBox[{"-", "127.6391568801116`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"110.77095410816673`", ",",
- RowBox[{"-", "10.`"}], ",", "110.31864880442282`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"78.11941985081766`", ",",
+ RowBox[{"-", "47.3986192518939`"}], ",",
+ RowBox[{"-", "62.09681675289256`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {182.5, 0., 0., 182.5}, $CellContext`p2 -> {
- 182.5, 0., 0., -182.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {127.6391568801116,
- 0., -127.6391568801116, 0.}, $CellContext`p5 -> {
- 110.77095410816673`, -10., 110.31864880442282`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {127.5, 0., 0., 127.5}, $CellContext`p2 -> {
+ 127.5, 0., 0., -127.5}, $CellContext`p3 -> {156.88058014918235`,
+ 47.3986192518939, 82.09681675289256, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 78.11941985081766, -47.3986192518939, -62.09681675289256, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802727881725817`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222089979257*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"175a6244-7db3-4b67-b424-778e9e8a35bf"],
+In[945]:=",ExpressionUUID->"ccaa5fee-bba4-414a-ae39-d56db8525a9c"],
Cell[BoxData[
InterpretationBox[
@@ -6697,87 +4472,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.346778579041363941506617575799863655039940436346207610893293725`\
-43.66130412051294*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.59298607753536", ",", "0``57.437707135543526"}], "}"}]}],
+ "1.497139553553317584911403357656117757993128706015392186174323907`43.\
+46769210822196*^-14", ",", "0``58.02320431371715", ",",
+ "0``57.78464368635733", ",", "0``57.59345981956606"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.346778579041363941506617575799863655039940436346207610893293725`43.\
-66130412051294*^-14, 0``58.69897000433602, 0``57.59298607753536,
- 0``57.437707135543526}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.497139553553317584911403357656117757993128706015392186174323907`43.\
+46769210822196*^-14, 0``58.02320431371715, 0``57.78464368635733,
+ 0``57.59345981956606}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780272803788631*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822220900138493`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1f499e3e-4933-45de-b094-a2f0a0ad329d"],
+In[945]:=",ExpressionUUID->"3c77f75e-3b4a-466e-9ebd-d1d800a09643"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802728039170322`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222090045802*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3b7a894c-4a65-4a79-8294-497ad4069b12"],
+In[945]:=",ExpressionUUID->"18e8767f-3cba-4a33-81bb-e35cce78a77d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "127.6391568801115994347`10."}], ",",
- RowBox[{"S", "\[Rule]", "133225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "94.7972385037877955938`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "65025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30580.3094892783939677436`10."}]}], ",",
+ RowBox[{"-", "24379.5479380414993839514`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30580.3094892783939677436`10."}]}], ",",
+ RowBox[{"-", "24379.5479380414993839514`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "46588.2922612407337936702`10."}]}], ",",
+ RowBox[{"-", "5100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "46588.2922612407337936702`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "52362.2035010382629373446`10."}], ",",
+ RowBox[{"-", "5100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "25184.0958760829964287894`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "365.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "255.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "228.8278905663342930283`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "158.6949774759207570958`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09064650544921364404544567240294428966`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "110.7709541081667397886`10."}], ",",
+ "0.76330191675543498864050713856929138376`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "78.1194198508176644461`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "200.1210020900318111456`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "234.1473894793619240545`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027280393775*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222090083313*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f9d90ae2-2cf6-4a4d-8910-bd20f772a9cf"],
+In[945]:=",ExpressionUUID->"08533abf-88ab-4064-b0b2-fc298d373eba"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "99.95192307692308`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 99.95192307692308}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273024377975*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222101832798*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"71781ef1-5288-4c41-95f7-13327c823833"],
+In[945]:=",ExpressionUUID->"ad7027d8-3baa-4c05-8538-13d704d9a417"],
Cell[BoxData[
InterpretationBox[
@@ -6788,58 +4557,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
+ RowBox[{"130.`", ",", "0.`", ",", "0.`", ",", "130.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "185.`"}]}], "}"}]}]},
+ RowBox[{"130.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "130.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "158.78531450208396`", ",", "48.95859501028832`", ",",
+ "84.79877402500749`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"130.14415827444728`", ",", "0.`", ",",
- RowBox[{"-", "130.14415827444728`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"113.26595271383108`", ",",
- RowBox[{"-", "10.`"}], ",", "112.8236501987585`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"81.21468549791604`", ",",
+ RowBox[{"-", "48.95859501028832`"}], ",",
+ RowBox[{"-", "64.79877402500749`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {130., 0., 0., 130.}, $CellContext`p2 -> {
+ 130., 0., 0., -130.}, $CellContext`p3 -> {158.78531450208396`,
+ 48.95859501028832, 84.79877402500749, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 81.21468549791604, -48.95859501028832, -64.79877402500749, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273025330711*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222101904327*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c99fb7f9-fd5c-4476-b3e0-9219a698de9d"],
+In[945]:=",ExpressionUUID->"ee772637-1cdd-4abf-b791-8a822ae8bdfb"],
Cell[BoxData[
InterpretationBox[
@@ -6848,86 +4615,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.97750690671065495877468642544235768570612631218831305148357505`\
-42.9072883668627*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.5845453254452", ",", "0``57.431798275933005"}], "}"}]}],
+ "-", "3.12085948854709960894775817984962438362875094607405106872302856`\
+42.778270872091625*^-15"}], ",", "0``58.009141058189414", ",",
+ "0``57.770580430829575", ",", "0``57.585026652029185"}], "}"}]}],
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}],
+{-3.12085948854709960894775817984962438362875094607405106872302856`42.\
+778270872091625*^-15, 0``58.009141058189414, 0``57.770580430829575,
+ 0``57.585026652029185}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802730263924847`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222101939904*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cff6cb6a-c29b-4731-ac4c-29241a3c5caa"],
+In[945]:=",ExpressionUUID->"3dc0d850-3c00-423e-9e62-2888302d749a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027302659846*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222101974388*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c257dbf0-5a16-4f2a-910b-136b8768cd9a"],
+In[945]:=",ExpressionUUID->"d5911480-3962-4748-9133-258a5fac051d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "130.1441582744472782451`10."}], ",",
- RowBox[{"S", "\[Rule]", "136900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "97.9171900205766405634`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "67600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
+ RowBox[{"-", "25659.1817705418287072889`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
+ RowBox[{"-", "25659.1817705418287072889`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
+ RowBox[{"-", "5200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53083.1949917649914640711`10."}], ",",
+ RowBox[{"-", "5200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "25368.3635410836579214971`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "370.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "260.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "230.3979057885834852583`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "159.274491181367953292`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08863389885350508288015910765924317557`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "113.2659527138310884685`10."}], ",",
+ "0.75554816810876631573045083078854702366`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "81.2146854979160403127`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "201.4778471120559974481`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "239.1652148620279572909`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802730268347063`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222102005598*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4542ccb5-e8ed-44ab-91b4-44c41f2baaa3"],
+In[945]:=",ExpressionUUID->"956bc6e1-45b2-47cd-b53d-7c9aed1eacf7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "166.66666666666666`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "103.01886792452831`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.66666666666666`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 103.01886792452831`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027326504309*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222113650413*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1c9a44c3-61b6-4a27-be35-473b3fd4b6d6"],
+In[945]:=",ExpressionUUID->"a17f83a3-db93-4caf-9998-cc93f8cd2f76"],
Cell[BoxData[
InterpretationBox[
@@ -6938,58 +4701,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",", "187.5`"}], "}"}]}]},
+ RowBox[{"132.5`", ",", "0.`", ",", "0.`", ",", "132.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "187.5`"}]}], "}"}]}]},
+ RowBox[{"132.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "132.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "160.7126095536069`", ",", "50.506293839308036`", ",",
+ "87.4794670316845`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"132.64894324215567`", ",", "0.`", ",",
- RowBox[{"-", "132.64894324215567`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"115.7611677461227`", ",",
- RowBox[{"-", "10.`"}], ",", "115.32843516646689`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"84.2873904463931`", ",",
+ RowBox[{"-", "50.506293839308036`"}], ",",
+ RowBox[{"-", "67.4794670316845`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {187.5, 0., 0., 187.5}, $CellContext`p2 -> {
- 187.5, 0., 0., -187.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {132.64894324215567`,
- 0., -132.64894324215567`, 0.}, $CellContext`p5 -> {
- 115.7611677461227, -10., 115.32843516646689`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {132.5, 0., 0., 132.5}, $CellContext`p2 -> {
+ 132.5, 0., 0., -132.5}, $CellContext`p3 -> {160.7126095536069,
+ 50.506293839308036`, 87.4794670316845, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 84.2873904463931, -50.506293839308036`, -67.4794670316845, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802732652896957`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222113727789*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2b9107ae-3efd-49a1-ac2c-5bd4fe87f932"],
+In[945]:=",ExpressionUUID->"f558ff58-d8d3-40cf-b4e9-601226be305c"],
Cell[BoxData[
InterpretationBox[
@@ -6997,87 +4758,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "8.64374461414953948499824479903100997194885104719765452005538554`\
-43.06164066345623*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.576266209843745", ",", "0``57.42596873227228"}], "}"}]}],
+ "3.33989052042692335453378892808195720554563562497518433051428596`42.\
+799456361536*^-15", ",", "0``57.99562450325965", ",", "0``57.75706387589981",
+ ",", "0``57.576754126063186"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.64374461414953948499824479903100997194885104719765452005538554`43.\
-06164066345623*^-15, 0``58.69897000433602, 0``57.576266209843745,
- 0``57.42596873227228}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.33989052042692335453378892808195720554563562497518433051428596`42.\
+799456361536*^-15, 0``57.99562450325965, 0``57.75706387589981,
+ 0``57.576754126063186}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802732653383217`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221137658033`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b1e5563e-2333-49ad-92ab-db82228c62e9"],
+In[945]:=",ExpressionUUID->"c2a13aea-2a7a-4781-b230-8fa286536d20"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802732654456673`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222113801406*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ffeeb593-1934-4ddf-bef9-96f5ee3f3506"],
+In[945]:=",ExpressionUUID->"09e18511-2088-423b-bc50-7c605f0579d3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "132.6489432421556671216`10."}], ",",
- RowBox[{"S", "\[Rule]", "140625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "101.0125876786160716847`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "70225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31846.2083793956102408324`10."}]}], ",",
+ RowBox[{"-", "26963.8415317058281673605`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31846.2083793956102408324`10."}]}], ",",
+ RowBox[{"-", "26963.8415317058281673605`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "49743.3537158083751705817`10."}]}], ",",
+ RowBox[{"-", "5300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "49743.3537158083751705817`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53804.1241904079728240482`10."}], ",",
+ RowBox[{"-", "5300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "25552.6830634116557716997`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "375.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "265.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "231.9571602481974963878`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "159.852066184368276284`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08670888480855429320240347729270283293`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "115.7611677461226969258`10."}], ",",
+ "0.74846906860709452507162278009481578244`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "84.2873904463931045951`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "202.8257689949263953467`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "244.1823089414955991614`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273265582238*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222113843692*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f8cc6164-0e64-4f1a-aaa7-a328d203d397"],
+In[945]:=",ExpressionUUID->"33d2f4bb-f6e4-4239-b217-10bad769d517"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "169.44078947368422`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 169.44078947368422`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273507262241*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222125223144*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9f399401-e8ad-4760-8804-6c4bde95501a"],
+In[945]:=",ExpressionUUID->"c6417ce0-080b-4f6a-b9f4-25d483f31a3f"],
Cell[BoxData[
InterpretationBox[
@@ -7088,58 +4844,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.`", ",", "0.`", ",", "0.`", ",", "190.`"}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "190.`"}]}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "135.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "162.66121487381122`", ",", "52.042460607239214`", ",",
+ "90.14018592264017`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"135.1535255339457`", ",", "0.`", ",",
- RowBox[{"-", "135.1535255339457`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"118.25658545433265`", ",",
- RowBox[{"-", "10.`"}], ",", "117.83301745825692`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"87.33878512618878`", ",",
+ RowBox[{"-", "52.042460607239214`"}], ",",
+ RowBox[{"-", "70.14018592264017`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {135., 0., 0., 135.}, $CellContext`p2 -> {
+ 135., 0., 0., -135.}, $CellContext`p3 -> {162.66121487381122`,
+ 52.042460607239214`, 90.14018592264017, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 87.33878512618878, -52.042460607239214`, -70.14018592264017, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273507315851*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221252991457`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"58d1a577-5faa-4aff-972b-00ca0edcfe72"],
+In[945]:=",ExpressionUUID->"74eba83f-2c11-44bc-9047-3ec5bf364dd3"],
Cell[BoxData[
InterpretationBox[
@@ -7148,85 +4902,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.394241012643721559652036359843014919659633636655203059803680426`\
-43.498354273586095*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.56814262540769", ",", "0``57.420216403383186"}], "}"}]}],
+ "-", "7.30282147688494634993162874100160003403896205715132253072550215`\
+43.13109692428398*^-15"}], ",", "0``57.98261218218662", ",",
+ "0``57.74405155482678", ",", "0``57.56863623584101"}], "}"}]}],
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}],
+{-7.30282147688494634993162874100160003403896205715132253072550215`43.\
+13109692428398*^-15, 0``57.98261218218662, 0``57.74405155482678,
+ 0``57.56863623584101}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273507399905*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222125336445*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a8803a88-6115-4507-abc3-d5fb179c7271"],
+In[945]:=",ExpressionUUID->"c98ee2fa-3d71-4e50-a011-362b0217ca2d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273507418529*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221253717833`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d8e5e975-2a3a-425e-8015-2eaad170e809"],
+In[945]:=",ExpressionUUID->"f6102031-5e3e-4aa5-baec-887530d1434c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "135.1535255339456966794`10."}], ",",
- RowBox[{"S", "\[Rule]", "144400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "104.0849212144784274869`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32479.1578244542183773768`10."}]}], ",",
+ RowBox[{"-", "28293.5280159290268610107`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32479.1578244542183773768`10."}]}], ",",
+ RowBox[{"-", "28293.5280159290268610107`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "51358.3397028993647381867`10."}]}], ",",
+ RowBox[{"-", "5400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "51358.3397028993647381867`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "54524.9950547071718938225`10."}], ",",
+ RowBox[{"-", "5400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "25737.0560318580549976605`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "380.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "233.5058779874870128401`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "160.4277283759202737583`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08486585691945436207560101605078341859`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "118.2565854543326520693`10."}], ",",
+ "0.74197779664625488948021508065030348406`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "87.3387851261887821009`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "204.1649347811745531898`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "249.1987158875422382512`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273507451296*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221254045343`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a6af10d7-3f77-4408-a740-c22348e3db2f"],
+In[945]:=",ExpressionUUID->"69149dbb-58bf-4b82-b224-75b6c08a1416"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "172.2077922077922`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "109.0909090909091`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.2077922077922}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 109.0909090909091}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802737661187773`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222136944539*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a86e15fb-1227-476a-9ea9-4519370254ac"],
+In[945]:=",ExpressionUUID->"db672a18-b413-4739-abb1-821caae45b13"],
Cell[BoxData[
InterpretationBox[
@@ -7237,58 +4987,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",", "192.5`"}], "}"}]}]},
+ RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",", "137.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "192.5`"}]}], "}"}]}]},
+ RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "137.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "164.62996949922905`", ",", "53.56777682832536`", ",",
+ "92.78211111517032`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"137.65791775981276`", ",", "0.`", ",",
- RowBox[{"-", "137.65791775981276`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"120.75219322846561`", ",",
- RowBox[{"-", "10.`"}], ",", "120.33740968412398`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"90.37003050077095`", ",",
+ RowBox[{"-", "53.56777682832536`"}], ",",
+ RowBox[{"-", "72.78211111517032`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {192.5, 0., 0., 192.5}, $CellContext`p2 -> {
- 192.5, 0., 0., -192.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {137.65791775981276`,
- 0., -137.65791775981276`, 0.}, $CellContext`p5 -> {
- 120.75219322846561`, -10., 120.33740968412398`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {137.5, 0., 0., 137.5}, $CellContext`p2 -> {
+ 137.5, 0., 0., -137.5}, $CellContext`p3 -> {164.62996949922905`,
+ 53.56777682832536, 92.78211111517032, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 90.37003050077095, -53.56777682832536, -72.78211111517032, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273776028934*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221370253077`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"29800c34-b75d-47ff-9f3d-f36da1722f2f"],
+In[945]:=",ExpressionUUID->"cdca3564-8e33-4416-acf0-f06c70dcccf6"],
Cell[BoxData[
InterpretationBox[
@@ -7296,86 +5044,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "6.96064850907010343692750375539628809639111447726643846756008266`42.\
-956158978632054*^-15", ",", "0``58.69897000433602", ",",
- "0``57.56016880829063", ",", "0``57.414539270491495"}], "}"}]}],
+ RowBox[{
+ "-", "1.327615341841499024291774641746951996369280552713349474085947433`\
+43.38270957295173*^-14"}], ",", "0``57.97006638169334", ",",
+ "0``57.731505754333504", ",", "0``57.56066730616974"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 6.96064850907010343692750375539628809639111447726643846756008266`42.\
-956158978632054*^-15, 0``58.69897000433602, 0``57.56016880829063,
- 0``57.414539270491495}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.327615341841499024291774641746951996369280552713349474085947433`43.\
+38270957295173*^-14, 0``57.97006638169334, 0``57.731505754333504,
+ 0``57.56066730616974}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802737801754017`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222137060918*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5e8125fe-e947-434a-8325-9299f3fc5829"],
+In[945]:=",ExpressionUUID->"4709c608-dce2-406c-8b6a-a5f0e9d0199d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273783126055*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222137098338*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"312d90a3-3a34-4ff3-ba7f-74c2e29ad957"],
+In[945]:=",ExpressionUUID->"fc88d9a9-cbec-4b76-b7a4-5f77405f0eca"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "137.6579177598127614601`10."}], ",",
- RowBox[{"S", "\[Rule]", "148225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "107.1355536566507140606`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "75625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33112.1072695128265139213`10."}]}], ",",
+ RowBox[{"-", "29648.2416122879861513453`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33112.1072695128265139213`10."}]}], ",",
+ RowBox[{"-", "29648.2416122879861513453`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "52998.2983375279131621483`10."}]}], ",",
+ RowBox[{"-", "5500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "52998.2983375279131621483`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55245.8112140814776711119`10."}], ",",
+ RowBox[{"-", "5500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "25921.4832245759747022235`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "385.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "275.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "235.0442750080960335474`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "161.0015006904469033689`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08309967803236910991963200249316127754`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "120.7521932284656181917`10."}], ",",
+ "0.7360019654219670819404083916718697262`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "90.3700305007709461735`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "205.4955068242227458728`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "254.2144763777232125178`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780273785219122*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222137141243*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2b7c3e55-2bdc-4256-85d2-4c31abc673ee"],
+In[945]:=",ExpressionUUID->"fb32dc72-a7c7-4caa-bd4b-1dc6d2c3bca4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "174.96794871794873`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "112.09821428571428`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 174.96794871794873`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 112.09821428571428`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274008920862*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222148957387*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c355a64d-e069-4a9b-9f76-1b31263eb8d7"],
+In[945]:=",ExpressionUUID->"973b5e7a-a9f2-4cdb-9cf8-ce04b314d9a0"],
Cell[BoxData[
InterpretationBox[
@@ -7386,58 +5131,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", "195.`"}], "}"}]}]},
+ RowBox[{"140.`", ",", "0.`", ",", "0.`", ",", "140.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "195.`"}]}], "}"}]}]},
+ RowBox[{"140.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "140.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "166.61779430507067`", ",", "55.08286797881633`", ",",
+ "95.40632596591868`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"140.16213150492257`", ",", "0.`", ",",
- RowBox[{"-", "140.16213150492257`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"123.24797948335576`", ",",
- RowBox[{"-", "10.`"}], ",", "122.84162342923379`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"93.38220569492933`", ",",
+ RowBox[{"-", "55.08286797881633`"}], ",",
+ RowBox[{"-", "75.40632596591868`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {140., 0., 0., 140.}, $CellContext`p2 -> {
+ 140., 0., 0., -140.}, $CellContext`p3 -> {166.61779430507067`,
+ 55.08286797881633, 95.40632596591868, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 93.38220569492933, -55.08286797881633, -75.40632596591868, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274018491107*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221490257072`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"46b3ce37-1342-43c9-99b7-d0ec8ce13f1c"],
+In[945]:=",ExpressionUUID->"4923bb6f-504c-496d-9116-27a6e6748bf5"],
Cell[BoxData[
InterpretationBox[
@@ -7446,86 +5189,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.515988256078900152723922502675472783178446955234038201311955858`\
-43.76265820117211*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.552339310961585", ",", "0``57.4089353929735"}], "}"}]}],
+ "-", "9.82847740054755014617200371259925317044425209756570007614421295`\
+43.24429821638467*^-15"}], ",", "0``57.957953459916205", ",",
+ "0``57.71939283255637", ",", "0``57.55284196865779"}], "}"}]}],
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}],
+{-9.82847740054755014617200371259925317044425209756570007614421295`43.\
+24429821638467*^-15, 0``57.957953459916205, 0``57.71939283255637,
+ 0``57.55284196865779}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027402808072*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222149063386*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"099cd7f5-8f63-4975-b61a-cfe717b8aa90"],
+In[945]:=",ExpressionUUID->"315b146d-fd68-4357-920f-ca08702ed8ca"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027402821874*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221490988693`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"013fa9a5-d956-4d01-8374-a3b6cca12173"],
+In[945]:=",ExpressionUUID->"a90c61c7-1cd8-4914-b364-5d079ff29393"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "140.1621315049225700022`10."}], ",",
- RowBox[{"S", "\[Rule]", "152100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "110.1657359576326626893`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "78400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
+ RowBox[{"-", "31027.9824054197859323969`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
+ RowBox[{"-", "31027.9824054197859323969`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
+ RowBox[{"-", "5600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55966.5760029824850344042`10."}], ",",
+ RowBox[{"-", "5600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "26105.9648108395737004036`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "390.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "280.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "236.5725596999417112119`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "161.5734037855227387993`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08140563207193991114172428899867074449`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "123.247979483355757529`10."}], ",",
+ "0.73048072921245466794754699340057560649`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "93.3822056949293261272`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "206.8176429276776494057`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "259.2296279363143993809`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802740282385674`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221491336317`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"bfcdd38e-7f4c-4df6-9a00-18e1d37d9e0c"],
+In[945]:=",ExpressionUUID->"414aded3-80f3-4ce3-ad6e-16a1a2d10d48"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "177.72151898734177`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "115.08771929824562`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.72151898734177`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.08771929824562`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802742475271053`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222160816586*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"52c58755-7dc1-4294-8e3b-f8212ade9619"],
+In[945]:=",ExpressionUUID->"5a8e8864-1d08-4f5d-98c7-eb994a0df279"],
Cell[BoxData[
InterpretationBox[
@@ -7536,58 +5275,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",", "197.5`"}], "}"}]}]},
+ RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",", "142.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "197.5`"}]}], "}"}]}]},
+ RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "142.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "168.6236850942955`", ",", "56.588309691092846`", ",",
+ "98.01382749941509`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"142.66617743164963`", ",", "0.`", ",",
- RowBox[{"-", "142.66617743164963`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"125.74393355662875`", ",",
- RowBox[{"-", "10.`"}], ",", "125.34566935596085`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"96.37631490570453`", ",",
+ RowBox[{"-", "56.588309691092846`"}], ",",
+ RowBox[{"-", "78.01382749941509`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {197.5, 0., 0., 197.5}, $CellContext`p2 -> {
- 197.5, 0., 0., -197.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {142.66617743164963`,
- 0., -142.66617743164963`, 0.}, $CellContext`p5 -> {
- 125.74393355662875`, -10., 125.34566935596085`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {142.5, 0., 0., 142.5}, $CellContext`p2 -> {
+ 142.5, 0., 0., -142.5}, $CellContext`p3 -> {168.6236850942955,
+ 56.588309691092846`, 98.01382749941509, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 96.37631490570453, -56.588309691092846`, -78.01382749941509, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274247598534*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221609042873`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cf19b917-b1e5-41e4-9832-5836201a2135"],
+In[945]:=",ExpressionUUID->"49581c3f-aa68-4d04-9082-9e97e5bd1a4e"],
Cell[BoxData[
InterpretationBox[
@@ -7595,85 +5332,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.11246687114082947687626233861105930662001156520022550750891576`42.\
-14865999542324*^-15", ",", "0``58.69897000433602", ",",
- "0``57.54464897933526", ",", "0``57.403402904373536"}], "}"}]}],
+ "2.332140642103893889540637726797529556468020227243248658582174482`43.\
+611879881772914*^-14", ",", "0``57.94624328270666", ",",
+ "0``57.70768265534682", ",", "0``57.54515513999149"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.11246687114082947687626233861105930662001156520022550750891576`42.\
-14865999542324*^-15, 0``58.69897000433602, 0``57.54464897933526,
- 0``57.403402904373536}],
+ 2.332140642103893889540637726797529556468020227243248658582174482`43.\
+611879881772914*^-14, 0``57.94624328270666, 0``57.70768265534682,
+ 0``57.54515513999149}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274247682822*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222160942305*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"816a30ba-6470-4d12-b566-85b4acf1e46e"],
+In[945]:=",ExpressionUUID->"47b78bab-87d6-4411-b249-b2214f1167cf"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274247701601*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222160977055*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8eb2f2c6-6611-439c-b0f0-f6cdc00f3a1f"],
+In[945]:=",ExpressionUUID->"f766e3fd-0bf4-45d2-9902-8baf24ff4c11"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "142.6661774316496291704`10."}], ",",
- RowBox[{"S", "\[Rule]", "156025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "113.1766193821856916202`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "81225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "34378.0061596300427870101`10."}]}], ",",
+ RowBox[{"-", "32432.750251874213760396`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "34378.0061596300427870101`10."}]}], ",",
+ RowBox[{"-", "32432.750251874213760396`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "56353.1400855016035222889`10."}]}], ",",
+ RowBox[{"-", "5700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "56353.1400855016035222889`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "56687.2924902632923388261`10."}], ",",
+ RowBox[{"-", "5700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "26290.5005037484230255295`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "395.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "285.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "238.0909332382551948798`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "162.1434565554479075523`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07977938170007025117188495667908810366`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "125.7439335566287446332`10."}], ",",
+ "0.72536256077830713440146049689151100704`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "96.3763149057045364428`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "208.1314964847867361743`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "264.2442052344762627914`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274247777041*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222161018599*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c9519cf2-1a27-4817-ad80-1d40db82eebf"],
+In[945]:=",ExpressionUUID->"e5328376-42f3-4dc3-b98a-160de41938ec"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "180.46875`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "118.0603448275862`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 180.46875}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 118.0603448275862}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274485440032*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222172756662*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"734e7bb5-3036-44e9-9ad1-423fff7e0077"],
+In[945]:=",ExpressionUUID->"aa2ebf56-6c23-431d-a0d1-6276e58b6105"],
Cell[BoxData[
InterpretationBox[
@@ -7684,58 +5417,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.`", ",", "0.`", ",", "0.`", ",", "200.`"}], "}"}]}]},
+ RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", "145.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "200.`"}]}], "}"}]}]},
+ RowBox[{"145.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "145.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "170.6467063388485`", ",", "58.08463304587798`", ",",
+ "100.60553557445485`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"145.17006536966173`", ",", "0.`", ",",
- RowBox[{"-", "145.17006536966173`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"128.24004561861662`", ",",
- RowBox[{"-", "10.`"}], ",", "127.84955729397295`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"99.3532936611515`", ",",
+ RowBox[{"-", "58.08463304587798`"}], ",",
+ RowBox[{"-", "80.60553557445485`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {145., 0., 0., 145.}, $CellContext`p2 -> {
+ 145., 0., 0., -145.}, $CellContext`p3 -> {170.6467063388485,
+ 58.08463304587798, 100.60553557445485`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 99.3532936611515, -58.08463304587798, -80.60553557445485, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274485492218*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222172848781*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"519ae8b3-9c85-45af-be94-35949ea88061"],
+In[945]:=",ExpressionUUID->"74878574-346f-41bd-8c7c-6265167da24b"],
Cell[BoxData[
InterpretationBox[
@@ -7743,87 +5473,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.886324500412347572470674555333478218976146161689912077164571647`\
-43.37252641859702*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.53709293194614", ",", "0``57.39794000867204"}], "}"}]}],
+ "9.50603788564063844309010065535216457713885729611967521079547247`43.\
+21457154724916*^-15", ",", "0``57.934908754322855", ",",
+ "0``57.69634812696303", ",", "0``57.537602002101046"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 9.50603788564063844309010065535216457713885729611967521079547247`43.\
+21457154724916*^-15, 0``57.934908754322855, 0``57.69634812696303,
+ 0``57.537602002101046}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802744855393763`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222172885511*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"dbbb6bea-90fd-4577-bd09-99f1483543dc"],
+In[945]:=",ExpressionUUID->"a89bf91f-d552-429e-b0bb-1aec7984d987"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274485554454*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221729208193`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"20f647b0-06ca-4209-8ac0-0b3f7fd85c79"],
+In[945]:=",ExpressionUUID->"b3cd9af8-09a1-48b7-9aec-c93aa62c17ff"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "145.1700653696617280275`10."}], ",",
- RowBox[{"S", "\[Rule]", "160000.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "116.1692660917559578593`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "84100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35010.9556046886509235546`10."}]}], ",",
+ RowBox[{"-", "33862.5448382660681683916`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35010.9556046886509235546`10."}]}], ",",
+ RowBox[{"-", "33862.5448382660681683916`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "58068.026147864691210998`10."}]}], ",",
+ RowBox[{"-", "5800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "58068.026147864691210998`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57407.9635051066891071519`10."}], ",",
+ RowBox[{"-", "5800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "26475.0896765321344478708`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "400.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "290.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "239.5995899518751035944`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "162.7116765217915590016`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07821693099027584161706817100099761167`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "128.2400456186166258004`10."}], ",",
+ "0.72060352470737634876939398271722611805`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "99.3532936611514985805`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "209.4372166169866953911`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "269.2582403567252110947`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274485591508*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222172959647*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"06063a17-d5ee-4e94-8e70-fcc448574192"],
+In[945]:=",ExpressionUUID->"f794b3b3-384e-4d8a-a3d3-6ad4291e3f53"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "183.20987654320987`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "121.01694915254237`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 183.20987654320987`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 121.01694915254237`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027474927628*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221846314287`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b80856e1-cb87-4f3b-8068-f3aebee7bdb0"],
+In[945]:=",ExpressionUUID->"55521f8c-664a-4b74-80f4-43689c7cf35f"],
Cell[BoxData[
InterpretationBox[
@@ -7834,58 +5559,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"202.5`", ",", "0.`", ",", "0.`", ",", "202.5`"}], "}"}]}]},
+ RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",", "147.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"202.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "202.5`"}]}], "}"}]}]},
+ RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "147.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "172.68598551117393`", ",", "59.57232913015356`", ",",
+ "103.18230077864143`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"147.67380439565406`", ",", "0.`", ",",
- RowBox[{"-", "147.67380439565406`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"130.73630659262435`", ",",
- RowBox[{"-", "10.`"}], ",", "130.3532963199653`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"102.31401448882609`", ",",
+ RowBox[{"-", "59.57232913015356`"}], ",",
+ RowBox[{"-", "83.18230077864143`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {202.5, 0., 0., 202.5}, $CellContext`p2 -> {
- 202.5, 0., 0., -202.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {147.67380439565406`,
- 0., -147.67380439565406`, 0.}, $CellContext`p5 -> {
- 130.73630659262435`, -10., 130.3532963199653, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {147.5, 0., 0., 147.5}, $CellContext`p2 -> {
+ 147.5, 0., 0., -147.5}, $CellContext`p3 -> {172.68598551117393`,
+ 59.57232913015356, 103.18230077864143`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 102.31401448882609`, -59.57232913015356, -83.18230077864143, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274749353492*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222184675548*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"63561700-23eb-4395-bb8b-9679763ee60e"],
+In[945]:=",ExpressionUUID->"53368979-aac0-4351-a6e4-d4dd2b225727"],
Cell[BoxData[
InterpretationBox[
@@ -7893,85 +5616,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.586811111388805059474814824295306725204613095039623914926745038`43.\
-75302583702166*^-14", ",", "0``58.69897000433602", ",",
- "0``57.52966654094957", ",", "0``57.39254497678533"}], "}"}]}],
+ "7.82385537102261103305533743971309731955649947233987767850962861`43.\
+122568801999954*^-15", ",", "0``57.92392542406933", ",",
+ "0``57.68536479670949", ",", "0``57.53017798402184"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.586811111388805059474814824295306725204613095039623914926745038`43.\
-75302583702166*^-14, 0``58.69897000433602, 0``57.52966654094957,
- 0``57.39254497678533}],
+ 7.82385537102261103305533743971309731955649947233987767850962861`43.\
+122568801999954*^-15, 0``57.92392542406933, 0``57.68536479670949,
+ 0``57.53017798402184}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274749402369*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221847142878`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e679e55a-0285-4c72-a044-d6d7c9deaebf"],
+In[945]:=",ExpressionUUID->"30c3227c-959a-4498-a3e5-1b37ad3ecacc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274749452072*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222184753541*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9f5ac182-af79-4ee4-8300-b62893ca0ae1"],
+In[945]:=",ExpressionUUID->"6a7678da-d7dc-4f6b-9fe0-06a01bb93612"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "147.6738043956540593626`10."}], ",",
- RowBox[{"S", "\[Rule]", "164025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "119.1446582603071249196`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "87025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35643.905049747259060099`10."}]}], ",",
+ RowBox[{"-", "35317.3657257963079293139`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35643.905049747259060099`10."}]}], ",",
+ RowBox[{"-", "35317.3657257963079293139`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "59807.8907802398940418698`10."}]}], ",",
+ RowBox[{"-", "5900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "59807.8907802398940418698`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "58128.5916599742942106827`10."}], ",",
+ RowBox[{"-", "5900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "26659.7314515926142576477`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "405.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "295.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "241.0987176655535308546`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "163.2780801320024532387`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07671459243695681816707107172043323303`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "130.7363065926243591966`10."}], ",",
+ "0.71616592198721487559386972591882233555`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "102.3140144888260826397`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "210.7349483107162164338`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "274.2717630380495517901`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780274749471634*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222184791603*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"44d2bf67-46c9-4859-9696-2775f000232b"],
+In[945]:=",ExpressionUUID->"da265576-b366-44a9-b169-7084923182d2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "185.9451219512195`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 185.9451219512195}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027500205916*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822221988027353`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6e0b7eae-3f09-4653-a135-212c1568a073"],
+In[945]:=",ExpressionUUID->"57afebc2-c950-4099-9d6a-1dd3fc0d2d25"],
Cell[BoxData[
InterpretationBox[
@@ -7982,58 +5702,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", "205.`"}], "}"}]}]},
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "205.`"}]}], "}"}]}]},
+ RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "150.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "174.7407079482605`", ",", "61.051852990427875`", ",",
+ "105.74491127564697`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"150.17740290409319`", ",", "0.`", ",",
- RowBox[{"-", "150.17740290409319`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"133.23270808418522`", ",",
- RowBox[{"-", "10.`"}], ",", "132.85689482840442`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"105.2592920517395`", ",",
+ RowBox[{"-", "61.051852990427875`"}], ",",
+ RowBox[{"-", "85.74491127564697`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
+ 150., 0., 0., -150.}, $CellContext`p3 -> {174.7407079482605,
+ 61.051852990427875`, 105.74491127564697`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 105.2592920517395, -61.051852990427875`, -85.74491127564697, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275002104946*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222198890296*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d00b2ed5-9d53-4d92-b87d-d3717d10f478"],
+In[945]:=",ExpressionUUID->"040683d4-b1bf-4e3f-809f-6263c5af08ee"],
Cell[BoxData[
InterpretationBox[
@@ -8041,86 +5759,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.239922691743123484216280624221296081919976368381523463402770007`43.\
-43641917705368*^-14", ",", "0``58.69897000433602", ",",
- "0``57.522365414759484", ",", "0``57.38721614328027"}], "}"}]}],
+ RowBox[{
+ "-", "1.087442387483888160272226738266406327549046371057366517899411334`\
+43.258255007003385*^-14"}], ",", "0``57.91327115454316", ",",
+ "0``57.67471052718332", ",", "0``57.522878745280345"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.087442387483888160272226738266406327549046371057366517899411334`43.\
+258255007003385*^-14, 0``57.91327115454316, 0``57.67471052718332,
+ 0``57.522878745280345}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275002127584*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222198930417*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"dde4c821-fa7b-4d78-b796-5e88f3c799d3"],
+In[945]:=",ExpressionUUID->"3920610a-ee5e-400e-b954-4cea07652c72"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275002144252*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222198966464*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ade22e74-a54a-4740-8107-0eed0631eb6c"],
+In[945]:=",ExpressionUUID->"694ea38d-8ef3-4fd1-a79c-69b35791b237"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "150.1774029040931850432`10."}], ",",
- RowBox[{"S", "\[Rule]", "168100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "122.1037059808557501128`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
+ RowBox[{"-", "36797.2123844781482841945`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
+ RowBox[{"-", "36797.2123844781482841945`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
+ RowBox[{"-", "6000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "58849.1793709681401600638`10."}], ",",
+ RowBox[{"-", "6000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "26844.4247689562988576573`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "410.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "242.5884980186986115057`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "163.8426829887630314792`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07526895772263698508415493914310951142`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "133.2327080841852100472`10."}], ",",
+ "0.71201721574079751334774422829239440673`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "105.2592920517394948449`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "212.0248325518584153381`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "279.2848008753788124954`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802750021750174`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222199010212*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5983f225-2c81-477e-ac28-d65afe2350ab"],
+In[945]:=",ExpressionUUID->"989083e7-fde0-42f6-9602-735d3f75261e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "188.67469879518075`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "126.88524590163935`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 188.67469879518075`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 126.88524590163935`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275340066863*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222210529582*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b9d3fdd9-b6cd-4949-ba3d-0867ed123763"],
+In[945]:=",ExpressionUUID->"99753c6c-2c88-4d4c-8aab-a5b352fb7ee7"],
Cell[BoxData[
InterpretationBox[
@@ -8131,58 +5846,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"207.5`", ",", "0.`", ",", "0.`", ",", "207.5`"}], "}"}]}]},
+ RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",", "152.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"207.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "207.5`"}]}], "}"}]}]},
+ RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "152.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "176.8101121951789`", ",", "62.52362708303107`", ",",
+ "108.2940987812993`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"152.68086867013272`", ",", "0.`", ",",
- RowBox[{"-", "152.68086867013272`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"135.72924231814562`", ",",
- RowBox[{"-", "10.`"}], ",", "135.36036059444396`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"108.18988780482108`", ",",
+ RowBox[{"-", "62.52362708303107`"}], ",",
+ RowBox[{"-", "88.2940987812993`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {207.5, 0., 0., 207.5}, $CellContext`p2 -> {
- 207.5, 0., 0., -207.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {152.68086867013272`,
- 0., -152.68086867013272`, 0.}, $CellContext`p5 -> {
- 135.72924231814562`, -10., 135.36036059444396`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {152.5, 0., 0., 152.5}, $CellContext`p2 -> {
+ 152.5, 0., 0., -152.5}, $CellContext`p3 -> {176.8101121951789,
+ 62.52362708303107, 108.2940987812993, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 108.18988780482108`, -62.52362708303107, -88.2940987812993, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027534012221*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222106166286`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"32c84384-b885-4744-869c-4d945a769a18"],
+In[945]:=",ExpressionUUID->"56fa9b25-60f6-4701-9547-7683ad865878"],
Cell[BoxData[
InterpretationBox[
@@ -8191,86 +5903,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.633973336148942548436739407243158777863041177342614840639247117`\
-43.294166872881604*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.515185382155295", ",", "0``57.381951903287906"}], "}"}]}],
+ "-", "2.223294113170810036872515320819274548677475985857673044730402765`\
+43.561667083054*^-14"}], ",", "0``57.902925840227915", ",",
+ "0``57.66436521286809", ",", "0``57.51570016065321"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.633973336148942548436739407243158777863041177342614840639247117`43.\
-294166872881604*^-14, 0``58.69897000433602, 0``57.515185382155295,
- 0``57.381951903287906}],
+{-2.223294113170810036872515320819274548677475985857673044730402765`43.\
+561667083054*^-14, 0``57.902925840227915, 0``57.66436521286809,
+ 0``57.51570016065321}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275340157585*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222106518383`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"064e31a0-366e-4c35-8dba-feab7429244d"],
+In[945]:=",ExpressionUUID->"c4ea1d58-4b84-49e6-8dd5-ce394940f362"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275340180026*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222106883307`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"26fd904d-bff5-4328-a288-2454bbbfff6c"],
+In[945]:=",ExpressionUUID->"5e974506-d775-488c-bf02-4403227bfc7b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "152.6808686701327246737`10."}], ",",
- RowBox[{"S", "\[Rule]", "172225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "125.0472541660621459414`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "93025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36909.8039398644753331879`10."}]}], ",",
+ RowBox[{"-", "38302.0842195295613415381`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36909.8039398644753331879`10."}]}], ",",
+ RowBox[{"-", "38302.0842195295613415381`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "63362.5604981050807396059`10."}]}], ",",
+ RowBox[{"-", "6100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "63362.5604981050807396059`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59569.7288759391165811468`10."}], ",",
+ RowBox[{"-", "6100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27029.168439059127493835`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "415.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "305.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "244.0691067626935790871`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "164.4055000267908539955`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07387687175244170755309793426715902102`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "135.7292423181456316776`10."}], ",",
+ "0.7081291722326700480407791694013436068`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "108.1898878048210881227`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "213.3070064573356435822`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "284.2973795165899648698`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275340228198*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222210730929*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e119183d-c9cd-4f40-b372-4e4929905e0a"],
+In[945]:=",ExpressionUUID->"c74ec13b-fa7f-4c5b-94d2-13dc0acaeeb8"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "191.39880952380955`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 191.39880952380955`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802756353354073`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222222228257*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"28a5e215-9a8a-46eb-9200-365a85b3f320"],
+In[945]:=",ExpressionUUID->"65a22e74-ee57-4c82-aa49-973da4bbcd28"],
Cell[BoxData[
InterpretationBox[
@@ -8281,58 +5988,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.`", ",", "0.`", ",", "0.`", ",", "210.`"}], "}"}]}]},
+ RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "210.`"}]}], "}"}]}]},
+ RowBox[{"155.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "155.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "178.89348577988764`", ",", "63.98804430219535`", ",",
+ "110.83054380837055`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.18420890569223`", ",", "0.`", ",",
- RowBox[{"-", "155.18420890569223`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"138.22590208258615`", ",",
- RowBox[{"-", "10.`"}], ",", "137.86370083000347`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"111.10651422011239`", ",",
+ RowBox[{"-", "63.98804430219535`"}], ",",
+ RowBox[{"-", "90.83054380837055`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {155., 0., 0., 155.}, $CellContext`p2 -> {
+ 155., 0., 0., -155.}, $CellContext`p3 -> {178.89348577988764`,
+ 63.98804430219535, 110.83054380837055`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 111.10651422011239`, -63.98804430219535, -90.83054380837055, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802756411035337`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222222389222*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"887df43d-38a3-4cf0-a8ed-74e1a0653b6a"],
+In[945]:=",ExpressionUUID->"5967d291-d8f2-42ac-a9e1-8df41f647703"],
Cell[BoxData[
InterpretationBox[
@@ -8340,85 +6045,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.453654361579060748769997376229502506723074240156278449834192991`43.\
-23818186963349*^-14", ",", "0``58.69897000433602", ",",
- "0``57.50812247771046", ",", "0``57.3767507096021"}], "}"}]}],
+ "1.955304709247715670053488056990338050417739379560971693653553217`43.\
+498822756751835*^-14", ",", "0``57.89287116751814", ",",
+ "0``57.65431054015832", ",", "0``57.50863830616573"}], "}"}]}],
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}],
+ 1.955304709247715670053488056990338050417739379560971693653553217`43.\
+498822756751835*^-14, 0``57.89287116751814, 0``57.65431054015832,
+ 0``57.50863830616573}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802756411281233`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222222425192*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"61d3c800-f20d-4c34-8c21-200c1b25b568"],
+In[945]:=",ExpressionUUID->"6bd095b3-8a72-44bc-816f-10881faf6163"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275641146044*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222222461602*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a81d4e10-b200-4ae6-b3e3-56d1aa12fdfd"],
+In[945]:=",ExpressionUUID->"4a394819-508f-4818-bb87-e30a579ae51a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "155.1842089056922304735`10."}], ",",
- RowBox[{"S", "\[Rule]", "176400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "127.976088604390696446`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "96100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37542.7533849230834697323`10."}]}], ",",
+ RowBox[{"-", "39831.980591765165809802`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37542.7533849230834697323`10."}]}], ",",
+ RowBox[{"-", "39831.980591765165809802`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "65177.3677403907367988722`10."}]}], ",",
+ RowBox[{"-", "6200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "65177.3677403907367988722`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "60290.2422506276365185554`10."}], ",",
+ RowBox[{"-", "6200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27213.9611835303272746621`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "420.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "310.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "245.5407140386857238614`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "164.9665456495053341052`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0725354095370671125922395115741934374`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "138.2259020825861567541`10."}], ",",
+ "0.70447716835422586895281064206934040682`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "111.1065142201123879085`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "214.5816034035036613517`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "289.3095228297886694725`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275641167717*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222225027018`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2d475003-10c7-445a-b5ba-7d4c94b4beeb"],
+In[945]:=",ExpressionUUID->"14cb1131-0cb2-47b3-931c-40aa3e573442"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "194.1176470588235`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "132.6984126984127`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 194.1176470588235}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.6984126984127}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802759409644947`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222339171257`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"27ed30f7-386a-47a6-9b10-b12d650a5324"],
+In[945]:=",ExpressionUUID->"81584c25-e13c-4fcc-851f-5e9088212cca"],
Cell[BoxData[
InterpretationBox[
@@ -8429,58 +6130,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"212.5`", ",", "0.`", ",", "0.`", ",", "212.5`"}], "}"}]}]},
+ RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",", "157.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"212.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "212.5`"}]}], "}"}]}]},
+ RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "157.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "180.99016137575993`", ",", "65.44547065080903`", ",",
+ "113.35488029245903`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"157.6874303095509`", ",", "0.`", ",",
- RowBox[{"-", "157.6874303095509`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"140.72268067872747`", ",",
- RowBox[{"-", "10.`"}], ",", "140.36692223386214`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"114.00983862424006`", ",",
+ RowBox[{"-", "65.44547065080903`"}], ",",
+ RowBox[{"-", "93.35488029245903`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {212.5, 0., 0., 212.5}, $CellContext`p2 -> {
- 212.5, 0., 0., -212.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {157.6874303095509,
- 0., -157.6874303095509, 0.}, $CellContext`p5 -> {
- 140.72268067872747`, -10., 140.36692223386214`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {157.5, 0., 0., 157.5}, $CellContext`p2 -> {
+ 157.5, 0., 0., -157.5}, $CellContext`p3 -> {180.99016137575993`,
+ 65.44547065080903, 113.35488029245903`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 114.00983862424006`, -65.44547065080903, -93.35488029245903, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802759410255003`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222234000628*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ffa957b2-1c39-417b-8b14-389337d8b69b"],
+In[945]:=",ExpressionUUID->"2a58ff05-8594-41d4-abe2-5edef61d186d"],
Cell[BoxData[
InterpretationBox[
@@ -8488,86 +6187,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "8.34627061110737189679733693728871453881368939482973635796944268`42.\
-99207353601837*^-15", ",", "0``58.69897000433602", ",",
- "0``57.50117292841212", ",", "0``57.37161106994969"}], "}"}]}],
+ "2.29523996589011994702998605702599615315771150495131041793630611`42.\
+56148754800744*^-15", ",", "0``57.88309040905546", ",",
+ "0``57.644529781695645", ",", "0``57.5016894462104"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 8.34627061110737189679733693728871453881368939482973635796944268`42.\
-99207353601837*^-15, 0``58.69897000433602, 0``57.50117292841212,
- 0``57.37161106994969}],
+ 2.29523996589011994702998605702599615315771150495131041793630611`42.\
+56148754800744*^-15, 0``57.88309040905546, 0``57.644529781695645,
+ 0``57.5016894462104}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275941042594*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222234041336*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e8106119-a22c-4693-8288-a29b3fe5cc2d"],
+In[945]:=",ExpressionUUID->"cf4b7523-34c4-4ef1-a84b-9171f4d33668"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275941060923*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222340804453`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"00279d64-5f59-4571-825c-15182f7ec56c"],
+In[945]:=",ExpressionUUID->"9ac17eb7-0b3d-4750-a6f7-f1c0d4c9bdf0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "157.6874303095509048944`10."}], ",",
- RowBox[{"S", "\[Rule]", "180625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "130.8909413016180565137`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "99225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38175.7028299816916062767`10."}]}], ",",
+ RowBox[{"-", "41386.9008333643796669446`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38175.7028299816916062767`10."}]}], ",",
+ RowBox[{"-", "41386.9008333643796669446`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "67017.1578815591345801295`10."}]}], ",",
+ RowBox[{"-", "6300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "67017.1578815591345801295`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "61010.7214230816500237933`10."}], ",",
+ RowBox[{"-", "6300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27398.8016667287588105294`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "425.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "315.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "247.0034846375282415396`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "165.5258338348692892955`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07124185556579510785780054059426511337`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "140.722680678727476143`10."}], ",",
+ "0.70103962905617419226163414165789507527`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "114.0098386242400668446`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "215.8487531510935907029`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "294.3212530552287543284`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780275941084319*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222234120699*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6405305d-88cd-40d7-affe-821f9d4022e7"],
+In[945]:=",ExpressionUUID->"f90701c9-3905-4850-9979-dea825651b98"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "196.83139534883722`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "135.5859375`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 196.83139534883722`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 135.5859375}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802762922024717`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222245626459*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"867847bd-d846-4b62-b680-2153640a505d"],
+In[945]:=",ExpressionUUID->"78e8eb7d-1e50-4f02-8230-a251a1d97d20"],
Cell[BoxData[
InterpretationBox[
@@ -8578,58 +6272,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", "215.`"}], "}"}]}]},
+ RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", "160.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "215.`"}]}], "}"}]}]},
+ RowBox[{"160.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "160.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "183.09951331268212`", ",", "66.89624760653818`", ",",
+ "115.86769969023203`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.19053911218865`", ",", "0.`", ",",
- RowBox[{"-", "160.19053911218865`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"143.21957187608976`", ",",
- RowBox[{"-", "10.`"}], ",", "142.87003103649988`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"116.90048668731787`", ",",
+ RowBox[{"-", "66.89624760653818`"}], ",",
+ RowBox[{"-", "95.86769969023203`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {160., 0., 0., 160.}, $CellContext`p2 -> {
+ 160., 0., 0., -160.}, $CellContext`p3 -> {183.09951331268212`,
+ 66.89624760653818, 115.86769969023203`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 116.90048668731787`, -66.89624760653818, -95.86769969023203, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276301630748*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222245716199*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"65310395-2463-45b7-b7d7-ae3c929484a3"],
+In[945]:=",ExpressionUUID->"1ca2c8b7-9bbe-4896-b9b5-0560825f0103"],
Cell[BoxData[
InterpretationBox[
@@ -8637,86 +6329,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.80978887981847983440149229495342366920239317747480297368403574`43.\
-323129464135235*^-14", ",", "0``58.69897000433602", ",",
- "0``57.49433314135622", ",", "0``57.36653154442041"}], "}"}]}],
+ RowBox[{
+ "-", "5.11963296427616640916324361015971421117579911394175219969959408`\
+42.90305885275301*^-15"}], ",", "0``57.873568246650095", ",",
+ "0``57.635007619290256", ",", "0``57.494850021680094"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.11963296427616640916324361015971421117579911394175219969959408`42.\
+90305885275301*^-15, 0``57.873568246650095, 0``57.635007619290256,
+ 0``57.494850021680094}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276305430765*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222245753302*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6f815251-e13d-48f6-94a5-a1556ba7bdfb"],
+In[945]:=",ExpressionUUID->"5667f65c-12b5-4c23-bc25-2eedff1e4bcc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276309105679*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222457923*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ba39af51-e6a9-46df-a1eb-c911c231dee0"],
+In[945]:=",ExpressionUUID->"3370626f-ea42-4f26-ab1b-5f560bef11ea"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "160.1905391121886452765`10."}], ",",
- RowBox[{"S", "\[Rule]", "184900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "133.7924952130763642799`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "102400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
+ RowBox[{"-", "42966.8442600582827352105`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
+ RowBox[{"-", "42966.8442600582827352105`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
+ RowBox[{"-", "6400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "61731.1681865628292395286`10."}], ",",
+ RowBox[{"-", "6400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27583.6885201165666673963`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "430.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "320.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "248.4575782433750384146`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "166.0833782174380226663`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06999368536180439003053741827675679905`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "143.2195718760897455124`10."}], ",",
+ "0.69779756709187260964529924985421960468`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "116.9004866873178613329`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "217.1085819665306893005`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "299.3325909419153057156`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276311649829*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222245827594*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"741bdc1a-347a-47bd-9eab-c8793fc7bd97"],
+In[945]:=",ExpressionUUID->"75ecad4a-0a7f-4c28-b76a-2e7cc0c58d9c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "199.54022988505747`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "138.46153846153845`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 199.54022988505747`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 138.46153846153845`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276573721998*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222257135459*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1f1929f4-1a57-455f-ad66-3763b98a88cd"],
+In[945]:=",ExpressionUUID->"45434714-0de9-4153-9b4d-34cea3cfa48d"],
Cell[BoxData[
InterpretationBox[
@@ -8727,58 +6416,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"217.5`", ",", "0.`", ",", "0.`", ",", "217.5`"}], "}"}]}]},
+ RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",", "162.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"217.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "217.5`"}]}], "}"}]}]},
+ RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "162.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "185.22095440163028`", ",", "68.34069422651997`", ",",
+ "118.36955462486162`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"162.69354111600543`", ",", "0.`", ",",
- RowBox[{"-", "162.69354111600543`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"145.71656987227294`", ",",
- RowBox[{"-", "10.`"}], ",", "145.37303304031667`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"119.77904559836973`", ",",
+ RowBox[{"-", "68.34069422651997`"}], ",",
+ RowBox[{"-", "98.36955462486162`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {217.5, 0., 0., 217.5}, $CellContext`p2 -> {
- 217.5, 0., 0., -217.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {162.69354111600543`,
- 0., -162.69354111600543`, 0.}, $CellContext`p5 -> {
- 145.71656987227294`, -10., 145.37303304031667`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {162.5, 0., 0., 162.5}, $CellContext`p2 -> {
+ 162.5, 0., 0., -162.5}, $CellContext`p3 -> {185.22095440163028`,
+ 68.34069422651997, 118.36955462486162`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 119.77904559836973`, -68.34069422651997, -98.36955462486162, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027658483561*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222572209578`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cdadae78-72c0-4156-bace-87fde12c19d1"],
+In[945]:=",ExpressionUUID->"0fc42285-3661-4190-9aea-d41aa72449ca"],
Cell[BoxData[
InterpretationBox[
@@ -8786,87 +6473,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "5.77133003307475740798195473798784745961808083052285860456240209`\
-42.82175665749752*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.487599692415486", ",", "0``57.36151074304536"}], "}"}]}],
+ "5.92773482863870407602761544652353158553183002489421099354950641`42.\
+959975411028346*^-15", ",", "0``57.86429061814931", ",",
+ "0``57.62572999078947", ",", "0``57.48811663902113"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.77133003307475740798195473798784745961808083052285860456240209`42.\
-82175665749752*^-15, 0``58.69897000433602, 0``57.487599692415486,
- 0``57.36151074304536}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.92773482863870407602761544652353158553183002489421099354950641`42.\
+959975411028346*^-15, 0``57.86429061814931, 0``57.62572999078947,
+ 0``57.48811663902113}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276608303146*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222257259849*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c22f0899-8b41-4423-964a-4e33ab7d55a3"],
+In[945]:=",ExpressionUUID->"a8e25977-d636-4019-90a8-19397b7236ea"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276608315943*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222573030643`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9fed6e92-97aa-4e24-8ca7-27881a1f0634"],
+In[945]:=",ExpressionUUID->"e3fefeed-9fc8-4669-b164-525dad58cc77"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "162.6935411160054343327`10."}], ",",
- RowBox[{"S", "\[Rule]", "189225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "136.6813884530399434425`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "105625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39441.6017200989078793656`10."}]}], ",",
+ RowBox[{"-", "44571.8101805298387088393`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39441.6017200989078793656`10."}]}], ",",
+ RowBox[{"-", "44571.8101805298387088393`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "70771.690385462363934721`10."}]}], ",",
+ RowBox[{"-", "6500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "70771.690385462363934721`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62451.58421112254531013`10."}], ",",
+ RowBox[{"-", "6500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27768.6203610596759976418`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "435.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "325.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "249.9031496622692535009`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "166.6391921519654871303`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06878854895478912766283200767034199702`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "145.7165698722729325871`10."}], ",",
+ "0.69473420396322246928809847860083068651`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "119.7790455983697329775`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "218.3612127395231082536`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "304.3435558706640392925`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276608339456*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222573458548`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"001064f4-a0bd-42c3-90b1-a23b097aab1c"],
+In[945]:=",ExpressionUUID->"a91e35c0-70c9-46f7-ae1f-df7d7fa18b22"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "202.24431818181816`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 202.24431818181816`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276829064991*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222268838623*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"67e8ad73-d692-44f5-b99d-2238330711e1"],
+In[945]:=",ExpressionUUID->"f73018a3-b4d5-4dd4-be09-e9bf3000ce73"],
Cell[BoxData[
InterpretationBox[
@@ -8877,58 +6559,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.`", ",", "0.`", ",", "0.`", ",", "220.`"}], "}"}]}]},
+ RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "220.`"}]}], "}"}]}]},
+ RowBox[{"165.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "165.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "187.35393304132603`", ",", "69.77910902636562`", ",",
+ "120.8609621405533`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.1964417314659`", ",", "0.`", ",",
- RowBox[{"-", "165.1964417314659`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"148.2136692568125`", ",",
- RowBox[{"-", "10.`"}], ",", "147.87593365577715`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"122.646066958674`", ",",
+ RowBox[{"-", "69.77910902636562`"}], ",",
+ RowBox[{"-", "100.8609621405533`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {165., 0., 0., 165.}, $CellContext`p2 -> {
+ 165., 0., 0., -165.}, $CellContext`p3 -> {187.35393304132603`,
+ 69.77910902636562, 120.8609621405533, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 122.646066958674, -69.77910902636562, -100.8609621405533, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802768329745493`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222689248457`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7b67fb19-4661-4182-bf6f-f4b09869a120"],
+In[945]:=",ExpressionUUID->"d3655c24-c754-435b-a97d-01c900846210"],
Cell[BoxData[
InterpretationBox[
@@ -8936,86 +6615,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.936544294448554840685984545033080579404499093798268664095320931`43.\
-34254476287427*^-14", ",", "0``58.69897000433602", ",",
- "0``57.480969315788904", ",", "0``57.35654732351381"}], "}"}]}],
+ "3.160768907605780468975099161526821895746485555697162549283756242`43.\
+68024880901001*^-14", ",", "0``57.85524458447189", ",",
+ "0``57.61668395711207", ",", "0``57.48148606012211"}], "}"}]}],
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}],
+ 3.160768907605780468975099161526821895746485555697162549283756242`43.\
+68024880901001*^-14, 0``57.85524458447189, 0``57.61668395711207,
+ 0``57.48148606012211}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78027683749684*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222268964603*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3523b15a-41d7-4f9b-9916-a8c872f60f04"],
+In[945]:=",ExpressionUUID->"a81ffd96-a954-4bd8-8121-e32a0904f35a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276842932866*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222269002355*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"301f6901-2147-4177-a84c-3f293f2895f6"],
+In[945]:=",ExpressionUUID->"1bce163b-726e-4979-b79e-909a45fcfea0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "165.1964417314659101521`10."}], ",",
- RowBox[{"S", "\[Rule]", "193600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "139.558218052731234593`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "108900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40074.55116515751601591`10."}]}], ",",
+ RowBox[{"-", "46201.7979036375905649197`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40074.55116515751601591`10."}]}], ",",
+ RowBox[{"-", "46201.7979036375905649197`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "72686.4343618450004669285`10."}]}], ",",
+ RowBox[{"-", "6600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "72686.4343618450004669285`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "63171.9710540050272252303`10."}], ",",
+ RowBox[{"-", "6600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "27953.595807275173376722`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "440.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "330.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "251.3403490369284643268`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "167.1932887626628791314`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06762425604208062015274701315861198249`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "148.2136692568124819045`10."}], ",",
+ "0.69183465580197392631053500298911133827`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "122.6460669586739995928`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "219.6067650968658335733`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "309.3541659651604232728`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780276842974321*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222269043285*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9fa5b93f-5e26-4164-89bf-62bb6d1f280f"],
+In[945]:=",ExpressionUUID->"85b46f8e-169b-45ca-8fc1-f2362686f591"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "204.94382022471913`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "144.17910447761193`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 204.94382022471913`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 144.17910447761193`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277056413023*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222280990806*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1abf8fc7-c08a-4aec-a06a-f22061ce7090"],
+In[945]:=",ExpressionUUID->"7ec78437-62b4-48cd-846b-cf927ddd6400"],
Cell[BoxData[
InterpretationBox[
@@ -9026,58 +6701,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"222.5`", ",", "0.`", ",", "0.`", ",", "222.5`"}], "}"}]}]},
+ RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",", "167.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"222.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "222.5`"}]}], "}"}]}]},
+ RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "167.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "189.49793057890673`", ",", "71.21177166327236`", ",",
+ "123.34240661778138`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.6992460096423`", ",", "0.`", ",",
- RowBox[{"-", "167.6992460096423`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"150.7108649786361`", ",",
- RowBox[{"-", "10.`"}], ",", "150.37873793395354`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"125.50206942109324`", ",",
+ RowBox[{"-", "71.21177166327236`"}], ",",
+ RowBox[{"-", "103.34240661778138`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {222.5, 0., 0., 222.5}, $CellContext`p2 -> {
- 222.5, 0., 0., -222.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {167.6992460096423,
- 0., -167.6992460096423, 0.}, $CellContext`p5 -> {
- 150.7108649786361, -10., 150.37873793395354`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {167.5, 0., 0., 167.5}, $CellContext`p2 -> {
+ 167.5, 0., 0., -167.5}, $CellContext`p3 -> {189.49793057890673`,
+ 71.21177166327236, 123.34240661778138`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 125.50206942109324`, -71.21177166327236, -103.34240661778138`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277063730823*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222281081979*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2405fdd7-ab7c-4d18-adea-10ed918c4dbd"],
+In[945]:=",ExpressionUUID->"66808d8c-c14e-48f3-9025-643de7d822c5"],
Cell[BoxData[
InterpretationBox[
@@ -9085,86 +6758,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.894815488312800909127343517995904897009743454747721204260982104`43.\
-32817691936947*^-14", ",", "0``58.69897000433602", ",", "0``57.4744388943512",
- ",", "0``57.35163998901907"}], "}"}]}],
+ RowBox[{
+ "-", "2.217150982726888223847786847745214997305126714717237670477904137`\
+43.519720465845545*^-14"}], ",", "0``57.84641821370719", ",",
+ "0``57.60785758634736", ",", "0``57.47495519296315"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.894815488312800909127343517995904897009743454747721204260982104`43.\
-32817691936947*^-14, 0``58.69897000433602, 0``57.4744388943512,
- 0``57.35163998901907}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.217150982726888223847786847745214997305126714717237670477904137`43.\
+519720465845545*^-14, 0``57.84641821370719, 0``57.60785758634736,
+ 0``57.47495519296315}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277080105448*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222281121567*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d66e2824-382b-44fd-93c4-5e500c66f2ca"],
+In[945]:=",ExpressionUUID->"74dda525-8ec6-4456-a155-8662458f76a9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802770801262712`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222281161643*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"13afce5b-dbaf-42f3-bbb6-49561e9f477e"],
+In[945]:=",ExpressionUUID->"3e54770e-e5e8-4dd1-a997-4c61f9566b01"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "167.6992460096423087634`10."}], ",",
- RowBox[{"S", "\[Rule]", "198025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "142.423543326544717047`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "112225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40707.5006102161241524544`10."}]}], ",",
+ RowBox[{"-", "47856.8067439337597429041`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40707.5006102161241524544`10."}]}], ",",
+ RowBox[{"-", "47856.8067439337597429041`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "74626.1644742908273997273`10."}]}], ",",
+ RowBox[{"-", "6700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "74626.1644742908273997273`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "63892.3301690138973929779`10."}], ",",
+ RowBox[{"-", "6700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "28138.613487867525050949`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "445.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "335.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "252.7693220488077690666`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "167.7456809812625996928`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06649876264018127445774005046094428243`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "150.7108649786360828758`10."}], ",",
+ "0.68908567154482605026613481336917538111`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "125.5020694210932323273`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "220.8453555124453046491`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "314.3644381923629510456`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277080154537*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222281212203*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0c4e321a-2adb-4c0c-a1cf-0263c597eaf1"],
+In[945]:=",ExpressionUUID->"2411cca8-8c80-40a4-8a5e-ba686435293d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "207.63888888888889`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "147.02205882352942`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 207.63888888888889`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 147.02205882352942`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802773408589077`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822222938592653`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c4c5a7ed-ffca-4889-affc-d63effb43ca0"],
+In[945]:=",ExpressionUUID->"7157a62f-f9ab-42a6-b1b8-648631340c6b"],
Cell[BoxData[
InterpretationBox[
@@ -9175,58 +6845,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", "225.`"}], "}"}]}]},
+ RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", "170.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "225.`"}]}], "}"}]}]},
+ RowBox[{"170.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "170.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "191.65245889953664`", ",", "72.63894444827544`", ",",
+ "125.81434239258628`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.20195867156812`", ",", "0.`", ",",
- RowBox[{"-", "170.20195867156812`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"153.20815231671028`", ",",
- RowBox[{"-", "10.`"}], ",", "152.88145059587936`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"128.34754110046336`", ",",
+ RowBox[{"-", "72.63894444827544`"}], ",",
+ RowBox[{"-", "105.81434239258628`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {170., 0., 0., 170.}, $CellContext`p2 -> {
+ 170., 0., 0., -170.}, $CellContext`p3 -> {191.65245889953664`,
+ 72.63894444827544, 125.81434239258628`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 128.34754110046336`, -72.63894444827544, -105.81434239258628`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277348193325*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222293939069*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7160f8cf-37e2-4fa3-b7b3-2186a47a5757"],
+In[945]:=",ExpressionUUID->"118b90c2-da9e-4136-9466-9ce8f8e8f885"],
Cell[BoxData[
InterpretationBox[
@@ -9234,86 +6902,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.02284991097175327795790023519202466001211411128996309167036244`43.\
-52617407490191*^-14", ",", "0``58.69897000433602", ",",
- "0``57.468005450729876", ",", "0``57.346787486224656"}], "}"}]}],
+ RowBox[{
+ "-", "1.056645987443112433375317595161256434303030978576285978350181315`\
+43.19142059546009*^-14"}], ",", "0``57.83780047972084", ",",
+ "0``57.59923985236101", ",", "0``57.46852108295775"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.056645987443112433375317595161256434303030978576285978350181315`43.\
+19142059546009*^-14, 0``57.83780047972084, 0``57.59923985236101,
+ 0``57.46852108295775}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277357276247*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222293980958*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"76b77001-3382-49da-97d3-e178104130fb"],
+In[945]:=",ExpressionUUID->"bd1635b9-8218-42cc-a9b8-18c3f010168c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277357367979*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222294021926*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5b251d4b-4b79-49c9-95f1-fd9063eb6390"],
+In[945]:=",ExpressionUUID->"0e66d9df-5553-44be-a5dc-c7b23ea66c6f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "170.2019586715681214173`10."}], ",",
- RowBox[{"S", "\[Rule]", "202500.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "145.277888896550877007`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "115600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
+ RowBox[{"-", "49536.8360258424572032999`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
+ RowBox[{"-", "49536.8360258424572032999`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
+ RowBox[{"-", "6800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64612.6629149607645910579`10."}], ",",
+ RowBox[{"-", "6800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "28323.6720516849171189581`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "450.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "340.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "254.1902101084161828642`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "168.2963815763277695995`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06541015905476718750600558698856411314`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "153.2081523167102815023`10."}], ",",
+ "0.68647541350089010930919888666997242978`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "128.3475411004633506003`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "222.0770974134629391099`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "319.3743884534262293942`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802773573873568`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222294058885*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"465533a5-2f85-44ad-bdbd-20db0669462f"],
+In[945]:=",ExpressionUUID->"45854814-c1b2-4632-a75d-b75e25298cf5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "210.32967032967034`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "149.85507246376812`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 210.32967032967034`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 149.85507246376812`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277588742268*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223055495453`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"49d5a5e7-4dc4-4a02-8de6-6842f85d91e5"],
+In[945]:=",ExpressionUUID->"4bc4ece6-a7fb-4d10-a7f0-b8ff2e5ab83c"],
Cell[BoxData[
InterpretationBox[
@@ -9324,58 +6989,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"227.5`", ",", "0.`", ",", "0.`", ",", "227.5`"}], "}"}]}]},
+ RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",", "172.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"227.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "227.5`"}]}], "}"}]}]},
+ RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "172.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "193.8170582225597`", ",", "74.06087370880641`", ",",
+ "128.27719611659478`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.7045841347608`", ",", "0.`", ",",
- RowBox[{"-", "172.7045841347608`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.70552685351757`", ",",
- RowBox[{"-", "10.`"}], ",", "155.38407605907204`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"131.18294177744033`", ",",
+ RowBox[{"-", "74.06087370880641`"}], ",",
+ RowBox[{"-", "108.27719611659478`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {227.5, 0., 0., 227.5}, $CellContext`p2 -> {
- 227.5, 0., 0., -227.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {172.7045841347608,
- 0., -172.7045841347608, 0.}, $CellContext`p5 -> {
- 155.70552685351757`, -10., 155.38407605907204`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {172.5, 0., 0., 172.5}, $CellContext`p2 -> {
+ 172.5, 0., 0., -172.5}, $CellContext`p3 -> {193.8170582225597,
+ 74.06087370880641, 128.27719611659478`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 131.18294177744033`, -74.06087370880641, -108.27719611659478`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277588789378*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222305629651*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2fcc2668-0873-4a51-9319-05e9fa03fe7e"],
+In[945]:=",ExpressionUUID->"9e787b2a-756d-4d8a-a200-e357e7696aa6"],
Cell[BoxData[
InterpretationBox[
@@ -9383,85 +7046,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.096823860374950832655232530336058005229477966516341550302827235`43.\
-08109549723249*^-14", ",", "0``58.69897000433602", ",",
- "0``57.461666139044134", ",", "0``57.34198860334289"}], "}"}]}],
+ "1.793952213026910548215951199672670400944228046456163699166957091`43.\
+4149617794674*^-14", ",", "0``57.82938117314602", ",", "0``57.5908205457862",
+ ",", "0``57.462180904926726"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.096823860374950832655232530336058005229477966516341550302827235`43.\
-08109549723249*^-14, 0``58.69897000433602, 0``57.461666139044134,
- 0``57.34198860334289}],
+ 1.793952213026910548215951199672670400944228046456163699166957091`43.\
+4149617794674*^-14, 0``57.82938117314602, 0``57.5908205457862,
+ 0``57.462180904926726}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277588821924*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222305671732*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7f3de7f6-d030-4c3c-8e6d-fc2498df26c0"],
+In[945]:=",ExpressionUUID->"ba26eefd-c991-40e8-9205-20c2bd142d1e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277588835924*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223057124453`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0bd7bfec-f653-4ad0-ae1f-4843aacc95c5"],
+In[945]:=",ExpressionUUID->"048865a4-8fda-44fe-835e-cf354ebb4e6f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "172.7045841347608075012`10."}], ",",
- RowBox[{"S", "\[Rule]", "207025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "148.1217474176128234831`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "119025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41973.3995003333404255433`10."}]}], ",",
+ RowBox[{"-", "51241.8850867830916280354`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41973.3995003333404255433`10."}]}], ",",
+ RowBox[{"-", "51241.8850867830916280354`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "78580.5857813161674130242`10."}]}], ",",
+ RowBox[{"-", "6900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "78580.5857813161674130242`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "65332.9705632990122615044`10."}], ",",
+ RowBox[{"-", "6900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "28508.7701735661785493523`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "455.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "345.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "255.6031505347674940147`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "168.8454031757044268433`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06435665901954020831486822579440588004`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "155.7055268535175761582`10."}], ",",
+ "0.68399327249900679068097981753682340266`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "131.1829417774403320612`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "223.3021012829204689983`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "324.3840316661718964472`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277588858103*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222305749205*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1a15df26-edc0-4689-82f8-39982434bfc9"],
+In[945]:=",ExpressionUUID->"fee89764-0fee-4485-a689-360bd32a870a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "213.0163043478261`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 213.0163043478261}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277845346589*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222317381968*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"60f44850-e87b-4745-89e6-d5c5476d19b5"],
+In[945]:=",ExpressionUUID->"5b3b65f2-f070-4d6f-8e26-235e30c5d7f3"],
Cell[BoxData[
InterpretationBox[
@@ -9472,58 +7132,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.`", ",", "0.`", ",", "0.`", ",", "230.`"}], "}"}]}]},
+ RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "230.`"}]}], "}"}]}]},
+ RowBox[{"175.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "175.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "195.99129508417914`", ",", "75.47779101956712`", ",",
+ "130.73136888895618`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.20712653722742`", ",", "0.`", ",",
- RowBox[{"-", "175.20712653722742`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"158.20298445105098`", ",",
- RowBox[{"-", "10.`"}], ",", "157.88661846153866`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"134.00870491582083`", ",",
+ RowBox[{"-", "75.47779101956712`"}], ",",
+ RowBox[{"-", "110.73136888895618`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {175., 0., 0., 175.}, $CellContext`p2 -> {
+ 175., 0., 0., -175.}, $CellContext`p3 -> {195.99129508417914`,
+ 75.47779101956712, 130.73136888895618`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 134.00870491582083`, -75.47779101956712, -110.73136888895618`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802778453936663`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222231746772*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c61dd27c-7c22-4546-b159-6568f5fc3576"],
+In[945]:=",ExpressionUUID->"dbab813c-ea33-414a-9483-3b448fb9f6bf"],
Cell[BoxData[
InterpretationBox[
@@ -9531,86 +7189,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.962108601180817656806943482264579950923354693654296541886918446`43.\
-507813149874394*^-14", ",", "0``58.69897000433602", ",",
- "0``57.45541823724798", ",", "0``57.33724216831843"}], "}"}]}],
+ RowBox[{
+ "-", "1.662721634282064806796487470152696414598698363024685973423590458`\
+43.37572150757306*^-14"}], ",", "0``57.82115082299218", ",",
+ "0``57.582590195632356", ",", "0``57.455931955649724"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.662721634282064806796487470152696414598698363024685973423590458`43.\
+37572150757306*^-14, 0``57.82115082299218, 0``57.582590195632356,
+ 0``57.455931955649724}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802778454159517`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222317510198*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2565cb46-1645-417f-8f96-13d0d44a1bf7"],
+In[945]:=",ExpressionUUID->"dbb1c476-92f7-43e8-97fd-67ebcc8a10b5"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802778454319077`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223175606213`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a0880fce-a83f-41c2-85cb-1c55e33f9870"],
+In[945]:=",ExpressionUUID->"9ee00836-7aef-41c4-8c36-df3fbb9d6fa3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "175.2071265372274240235`10."}], ",",
- RowBox[{"S", "\[Rule]", "211600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "150.9555820391342422226`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "122500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42606.3489453919485620878`10."}]}], ",",
+ RowBox[{"-", "52971.9532794627046207579`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42606.3489453919485620878`10."}]}], ",",
+ RowBox[{"-", "52971.9532794627046207579`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "80595.2782071246150508159`10."}]}], ",",
+ RowBox[{"-", "7000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "80595.2782071246150508159`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66053.2543050331178535189`10."}], ",",
+ RowBox[{"-", "7000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "28693.9065589254136978993`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "460.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "350.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "257.0082767247644844873`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "169.3927582835978667325`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06333658987342243118597695696189899774`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "158.2029844510509782887`10."}], ",",
+ "0.68162971140777536794627752838354175788`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "134.0087049158208273135`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "224.5204747584299643758`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "329.3933818400120634489`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780277845451213*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222317632814*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1af4e409-6e4e-4e2d-9457-138d56573e56"],
+In[945]:=",ExpressionUUID->"03b5aeda-9575-4b63-a3f9-0ab122d33c47"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "215.69892473118279`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "155.49295774647888`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 215.69892473118279`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 155.49295774647888`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802781068891077`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222329097528*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9e1d06e6-53fc-4922-87c4-89714c5ff339"],
+In[945]:=",ExpressionUUID->"150e0913-ad00-41aa-af2c-d416beb7167e"],
Cell[BoxData[
InterpretationBox[
@@ -9621,58 +7276,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"232.5`", ",", "0.`", ",", "0.`", ",", "232.5`"}], "}"}]}]},
+ RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",", "177.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"232.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "232.5`"}]}], "}"}]}]},
+ RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "177.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "198.17476048876915`", ",", "76.8899143171278`", ",",
+ "133.177238186883`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"177.70958975922716`", ",", "0.`", ",",
- RowBox[{"-", "177.70958975922716`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.70052122905125`", ",",
- RowBox[{"-", "10.`"}], ",", "160.3890816835384`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"136.8252395112309`", ",",
+ RowBox[{"-", "76.8899143171278`"}], ",",
+ RowBox[{"-", "113.17723818688299`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {232.5, 0., 0., 232.5}, $CellContext`p2 -> {
- 232.5, 0., 0., -232.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {177.70958975922716`,
- 0., -177.70958975922716`, 0.}, $CellContext`p5 -> {
- 160.70052122905125`, -10., 160.3890816835384, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {177.5, 0., 0., 177.5}, $CellContext`p2 -> {
+ 177.5, 0., 0., -177.5}, $CellContext`p3 -> {198.17476048876915`,
+ 76.8899143171278, 133.177238186883, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 136.8252395112309, -76.8899143171278, -113.17723818688299`, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278106922926*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222329190565*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"026a66ef-aa38-4376-bc03-086fd4d2d55a"],
+In[945]:=",ExpressionUUID->"64bf5370-0c38-4dee-bf62-d3ea94ce2e05"],
Cell[BoxData[
InterpretationBox[
@@ -9680,86 +7332,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.328135298689589104618933430338774466195620402851178126905705205`43.\
-398525267014485*^-14", ",", "0``58.69897000433602", ",",
- "0``57.44925914002458", ",", "0``57.33254704711005"}], "}"}]}],
+ "5.694707019087238735619416781670403369111771280524565216361255699`43.\
+904213036716804*^-14", ",", "0``57.813100627391265", ",",
+ "0``57.57454000003143", ",", "0``57.44977164694491"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.328135298689589104618933430338774466195620402851178126905705205`43.\
-398525267014485*^-14, 0``58.69897000433602, 0``57.44925914002458,
- 0``57.33254704711005}],
+ 5.694707019087238735619416781670403369111771280524565216361255699`43.\
+904213036716804*^-14, 0``57.813100627391265, 0``57.57454000003143,
+ 0``57.44977164694491}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278106955159*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222329233873*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"68dda53f-e2c0-43c7-b553-9dd0a33fe555"],
+In[945]:=",ExpressionUUID->"236f56b1-4c90-45da-8a43-07d51c50152f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278106971074*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222329277452*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"95cbb80c-6308-436a-a745-84ac3730a66b"],
+In[945]:=",ExpressionUUID->"b2aaea1a-96c2-43e9-b576-7f7d5cc12c3a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "177.7095897592271569465`10."}], ",",
- RowBox[{"S", "\[Rule]", "216225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "153.7798286342556082218`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "126025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43239.2983904505566986322`10."}]}], ",",
+ RowBox[{"-", "54727.0399735130508034255`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43239.2983904505566986322`10."}]}], ",",
+ RowBox[{"-", "54727.0399735130508034255`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "82634.9592380406279801264`10."}]}], ",",
+ RowBox[{"-", "7100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "82634.9592380406279801264`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66773.515256982361874866`10."}], ",",
+ RowBox[{"-", "7100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "28879.0799470260860232579`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "465.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "355.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "258.4057183132415935485`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "169.9384592934338863728`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06234838366199309157441226640576985658`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "160.700521229051239026`10."}], ",",
+ "0.67937613206432868518913027613340909328`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "136.8252395112308997543`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "225.7323227274258953656`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "334.4024521441193591095`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278106991888*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222329333241*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2f5c0850-754a-4649-873e-4648c2301ab2"],
+In[945]:=",ExpressionUUID->"a205f6e9-c0cc-4407-986a-959578ebce6c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "218.37765957446808`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "158.29861111111111`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 218.37765957446808`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 158.29861111111111`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278612216606*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223419331713`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f036bf68-b4ac-4fdb-b3c4-b3074915007c"],
+In[945]:=",ExpressionUUID->"9b365298-2fb1-4cd3-84e9-d4756cd404ea"],
Cell[BoxData[
InterpretationBox[
@@ -9770,58 +7418,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", "235.`"}], "}"}]}]},
+ RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", "180.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "235.`"}]}], "}"}]}]},
+ RowBox[{"180.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "180.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "200.36706821280873`", ",", "78.29744891150085`", ",",
+ "135.61515961774796`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.2119774430319`", ",", "0.`", ",",
- RowBox[{"-", "180.2119774430319`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"163.19813354524644`", ",",
- RowBox[{"-", "10.`"}], ",", "162.89146936734315`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"139.63293178719132`", ",",
+ RowBox[{"-", "78.29744891150085`"}], ",",
+ RowBox[{"-", "115.61515961774796`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {180., 0., 0., 180.}, $CellContext`p2 -> {
+ 180., 0., 0., -180.}, $CellContext`p3 -> {200.36706821280873`,
+ 78.29744891150085, 135.61515961774796`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 139.63293178719132`, -78.29744891150085, -115.61515961774796`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278767659987*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222342021284*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1be88f5b-e346-4721-b7d8-2cce21abaeac"],
+In[945]:=",ExpressionUUID->"e145d498-c097-47c0-bd2e-e528fae1eac7"],
Cell[BoxData[
InterpretationBox[
@@ -9829,87 +7475,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.913758809530085472281171704219943912216377225393075893504471841`\
-43.49132574598754*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.443186352184924", ",", "0``57.32790214206428"}], "}"}]}],
+ "4.339404563676998030236282996572743750213907200430514087289150202`43.\
+78009764495905*^-14", ",", "0``57.80522239223602", ",",
+ "0``57.56666176487618", ",", "0``57.443697499232705"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 4.339404563676998030236282996572743750213907200430514087289150202`43.\
+78009764495905*^-14, 0``57.80522239223602, 0``57.56666176487618,
+ 0``57.443697499232705}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802787677132072`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223420682907`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"214deec8-c559-4296-8607-b7374b9cea24"],
+In[945]:=",ExpressionUUID->"3bf8b1b2-4f10-4082-9f08-4e77782ee054"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278767734898*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222342109581*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"883305e0-f372-4448-ba56-3c59356659a2"],
+In[945]:=",ExpressionUUID->"0ce67dba-7ae0-448d-b462-574b2dfd75aa"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "180.2119774430319125713`10."}], ",",
- RowBox[{"S", "\[Rule]", "220900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "156.5948978230017019087`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "129600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
+ RowBox[{"-", "56507.1445566111397138555`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
+ RowBox[{"-", "56507.1445566111397138555`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
+ RowBox[{"-", "7200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "67493.7544674683369977884`10."}], ",",
+ RowBox[{"-", "7200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29064.2891132222673092352`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "470.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "360.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "259.7956013243263843652`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "170.4825184974174039998`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06139056906318768367351095823215175003`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "163.1981335452464309822`10."}], ",",
+ "0.67722476161751968114190769595948675718`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "139.6329317871913219667`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "226.9377474188681227193`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "339.4112549695428551817`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802787677533092`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222342148822*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"00012b4a-36d3-474e-b99c-d69b402e701a"],
+In[945]:=",ExpressionUUID->"06b6fac9-f39a-4ad7-aac7-135a67372caa"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "221.05263157894737`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "161.0958904109589`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 221.05263157894737`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.0958904109589}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802788451238613`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222353693101*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8e3c6758-e766-43f9-97ea-41fb0fe216c3"],
+In[945]:=",ExpressionUUID->"af2eacb5-2178-4292-858a-7d83c90a0f4a"],
Cell[BoxData[
InterpretationBox[
@@ -9920,58 +7560,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"237.5`", ",", "0.`", ",", "0.`", ",", "237.5`"}], "}"}]}]},
+ RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",", "182.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"237.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "237.5`"}]}], "}"}]}]},
+ RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "182.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "202.56785324710563`", ",", "79.70058840614185`", ",",
+ "138.04546851257268`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.7142930108964`", ",", "0.`", ",",
- RowBox[{"-", "182.7142930108964`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.695817977382`", ",",
- RowBox[{"-", "10.`"}], ",", "165.39378493520763`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"142.4321467528943`", ",",
+ RowBox[{"-", "79.70058840614185`"}], ",",
+ RowBox[{"-", "118.04546851257268`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {237.5, 0., 0., 237.5}, $CellContext`p2 -> {
- 237.5, 0., 0., -237.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {182.7142930108964,
- 0., -182.7142930108964, 0.}, $CellContext`p5 -> {165.695817977382, -10.,
- 165.39378493520763`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {182.5, 0., 0., 182.5}, $CellContext`p2 -> {
+ 182.5, 0., 0., -182.5}, $CellContext`p3 -> {202.56785324710563`,
+ 79.70058840614185, 138.04546851257268`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 142.4321467528943, -79.70058840614185, -118.04546851257268`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278845359507*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223537882137`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fe224d70-6fa3-4c5f-89e9-3ccdcf88e5da"],
+In[945]:=",ExpressionUUID->"85ca47f3-d722-4de6-b720-68a83052879e"],
Cell[BoxData[
InterpretationBox[
@@ -9979,86 +7617,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.984039741745301749118912602141585693879809436905047434034018346`43.\
-62260005667531*^-14", ",", "0``58.69897000433602", ",",
- "0``57.437197482528276", ",", "0``57.32330639037513"}], "}"}]}],
+ RowBox[{
+ "-", "4.446063348896071198567363417884751498259854766189018740656144145`\
+43.784652786249715*^-14"}], ",", "0``57.7975084766589", ",",
+ "0``57.55894784929906", ",", "0``57.437707135543526"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.984039741745301749118912602141585693879809436905047434034018346`43.\
-62260005667531*^-14, 0``58.69897000433602, 0``57.437197482528276,
- 0``57.32330639037513}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.446063348896071198567363417884751498259854766189018740656144145`43.\
+784652786249715*^-14, 0``57.7975084766589, 0``57.55894784929906,
+ 0``57.437707135543526}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278858645792*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222353834667*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ef0c43fa-3023-406a-808f-aef6406d790f"],
+In[945]:=",ExpressionUUID->"deae2805-44d8-4c25-a5ff-f13caf3c39fb"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278858666716*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222353876803*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3decf42b-f023-4ff7-8991-afc19d2a6b3f"],
+In[945]:=",ExpressionUUID->"cf40d59b-33e8-4471-99e2-ad0216fe5cbf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "182.7142930108963980729`10."}], ",",
- RowBox[{"S", "\[Rule]", "225625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "159.401176812283694062`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "133225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44505.1972805677729717211`10."}]}], ",",
+ RowBox[{"-", "58312.2664351935602567902`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44505.1972805677729717211`10."}]}], ",",
+ RowBox[{"-", "58312.2664351935602567902`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "86789.2891801757890846147`10."}]}], ",",
+ RowBox[{"-", "7300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "86789.2891801757890846147`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68213.9729214871109098971`10."}], ",",
+ RowBox[{"-", "7300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29249.5328703871331788275`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "475.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "365.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "261.1780483147217158366`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "171.0249480935080803827`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06046176404946208396606201396825195353`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "165.6958179773820144586`10."}], ",",
+ "0.67516855505260810170479315823056097911`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "142.4321467528943110002`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "228.1368484915324789591`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "344.4198019858904240964`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780278858691451*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222353930015*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e7b42db7-a0f1-4439-88a4-f6748a27d728"],
+In[945]:=",ExpressionUUID->"4245d48b-788e-4653-9b2d-d38083991e1d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "223.72395833333334`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 223.72395833333334`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802791878293257`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222236522292*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d4ce6ff4-b068-4f76-a54d-21a542df254b"],
+In[945]:=",ExpressionUUID->"bc9f2d52-f742-4e89-ac81-d47df87b7d17"],
Cell[BoxData[
InterpretationBox[
@@ -10069,58 +7704,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.`", ",", "0.`", ",", "0.`", ",", "240.`"}], "}"}]}]},
+ RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "240.`"}]}], "}"}]}]},
+ RowBox[{"185.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "185.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "204.776770364464`", ",", "81.09951553631566`", ",",
+ "140.46848137812026`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.2165396814238`", ",", "0.`", ",",
- RowBox[{"-", "185.2165396814238`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"168.19357130685458`", ",",
- RowBox[{"-", "10.`"}], ",", "167.89603160573503`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"145.22322963553597`", ",",
+ RowBox[{"-", "81.09951553631566`"}], ",",
+ RowBox[{"-", "120.46848137812026`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {185., 0., 0., 185.}, $CellContext`p2 -> {
+ 185., 0., 0., -185.}, $CellContext`p3 -> {204.776770364464,
+ 81.09951553631566, 140.46848137812026`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 145.22322963553597`, -81.09951553631566, -120.46848137812026`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802791952206907`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222365312196*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ff48de81-f87b-4c29-bd5c-478de73d02ba"],
+In[945]:=",ExpressionUUID->"444d6113-4f09-47a2-9a58-30554b98907b"],
Cell[BoxData[
InterpretationBox[
@@ -10129,86 +7762,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.99750501366478842079570918250019634241787599127044377429934265`\
-42.49448868513837*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.43129023812594", ",", "0``57.31875876262442"}], "}"}]}],
+ "-", "2.598906099438902978978943421318604631931075274639395062725925146`\
+43.545558868645664*^-14"}], ",", "0``57.78995174445942", ",",
+ "0``57.55139111709959", ",", "0``57.431798275933005"}], "}"}]}],
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}],
+{-2.598906099438902978978943421318604631931075274639395062725925146`43.\
+545558868645664*^-14, 0``57.78995174445942, 0``57.55139111709959,
+ 0``57.431798275933005}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279201414542*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222365355682*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6fa7798b-e356-477d-b974-ac07a832986d"],
+In[945]:=",ExpressionUUID->"a508e26b-571a-4ee7-8eda-7bb520d50f5e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279201428982*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222365400333*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e9e56419-5d1f-4d98-8b1f-7e6c5b10405d"],
+In[945]:=",ExpressionUUID->"a5acc606-bf34-4a0e-b4bd-511f4976c6e5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "185.2165396814237965373`10."}], ",",
- RowBox[{"S", "\[Rule]", "230400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "162.199031072631328243`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "136900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45138.1467256263811082655`10."}]}], ",",
+ RowBox[{"-", "60142.4050348516814386088`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45138.1467256263811082655`10."}]}], ",",
+ RowBox[{"-", "60142.4050348516814386088`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "88903.9390470834223378915`10."}]}], ",",
+ RowBox[{"-", "7400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "88903.9390470834223378915`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68934.1715454196079006362`10."}], ",",
+ RowBox[{"-", "7400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29434.8100697033704256483`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "480.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "370.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "262.5531785094585517474`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "171.5657601903811412877`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0595606692091608564042711637363739033`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "168.1935713068545731563`10."}], ",",
+ "0.67320111126631278004599716446660649483`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "145.2232296355359701228`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "229.3297231189911709413`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "349.4281041931229403494`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279201451302*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223654558372`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3c543775-d741-4f05-b835-bf00f792363c"],
+In[945]:=",ExpressionUUID->"b044c176-2f1f-4dc3-8944-147134ced60a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "226.39175257731958`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "166.66666666666666`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 226.39175257731958`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.66666666666666`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279531087596*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222376873556*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"89b8e3c2-7625-427f-9185-f596320d2ce6"],
+In[945]:=",ExpressionUUID->"1214b469-f193-48f4-aa8b-02765389cc2f"],
Cell[BoxData[
InterpretationBox[
@@ -10219,58 +7848,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.5`", ",", "0.`", ",", "0.`", ",", "242.5`"}], "}"}]}]},
+ RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",", "187.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "242.5`"}]}], "}"}]}]},
+ RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "187.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "206.99349280127282`", ",", "82.4944029344879`", ",",
+ "142.88449722259213`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"187.7187204844927`", ",", "0.`", ",",
- RowBox[{"-", "187.7187204844927`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.6913905037857`", ",",
- RowBox[{"-", "10.`"}], ",", "170.39821240880394`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"148.00650719872723`", ",",
+ RowBox[{"-", "82.4944029344879`"}], ",",
+ RowBox[{"-", "122.88449722259212`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {242.5, 0., 0., 242.5}, $CellContext`p2 -> {
- 242.5, 0., 0., -242.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {187.7187204844927,
- 0., -187.7187204844927, 0.}, $CellContext`p5 -> {
- 170.6913905037857, -10., 170.39821240880394`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {187.5, 0., 0., 187.5}, $CellContext`p2 -> {
+ 187.5, 0., 0., -187.5}, $CellContext`p3 -> {206.99349280127282`,
+ 82.4944029344879, 142.88449722259213`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 148.00650719872723`, -82.4944029344879, -122.88449722259212`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279577908575*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222376961856*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7fe153bf-cb85-41f9-9aa3-907caa527aff"],
+In[945]:=",ExpressionUUID->"044ec3b1-56fd-406a-813e-059ae3c43f8e"],
Cell[BoxData[
InterpretationBox[
@@ -10278,85 +7905,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.351215169239519937496644850504013870718871019838162907840549916`43.\
-53843057892068*^-14", ",", "0``58.69897000433602", ",",
- "0``57.425462418993824", ",", "0``57.31425826139774"}], "}"}]}],
+ "4.049045601019842551822347159077249876015114903201520118658028212`43.\
+732291404500394*^-14", ",", "0``57.78254552072096", ",",
+ "0``57.54398489336113", ",", "0``57.42596873227228"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.351215169239519937496644850504013870718871019838162907840549916`43.\
-53843057892068*^-14, 0``58.69897000433602, 0``57.425462418993824,
- 0``57.31425826139774}],
+ 4.049045601019842551822347159077249876015114903201520118658028212`43.\
+732291404500394*^-14, 0``57.78254552072096, 0``57.54398489336113,
+ 0``57.42596873227228}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279579343405*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822223770039043`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"64f34ff0-2abd-4146-ae23-b641d080b009"],
+In[945]:=",ExpressionUUID->"62fd9fbc-639a-48bb-a4a1-b8fbf2b2e551"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279579459922*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222377046196*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e4df8e1a-2769-4c80-986c-d5929c9042e9"],
+In[945]:=",ExpressionUUID->"2ffbc4af-2673-4220-ad29-1af4c4160817"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "187.7187204844927066461`10."}], ",",
- RowBox[{"S", "\[Rule]", "235225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "164.9888058689757883712`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "140625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45771.0961706849892448099`10."}]}], ",",
+ RowBox[{"-", "61997.5598004773045965708`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45771.0961706849892448099`10."}]}], ",",
+ RowBox[{"-", "61997.5598004773045965708`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "91043.5794349789627233349`10."}]}], ",",
+ RowBox[{"-", "7500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "91043.5794349789627233349`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "69654.3512113278924958181`10."}], ",",
+ RowBox[{"-", "7500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29620.1196009545972074397`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "485.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "375.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "263.9211079306236401732`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "172.1049668108233220592`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05868606165896216763015719647771432575`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "170.6913905037856995572`10."}], ",",
+ "0.67131660053959540779966636212457126752`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "148.0065071987272282329`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "230.5164660713895606774`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "354.4361719689456706287`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279581294578*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222377102386*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"21f314d6-a900-4c3b-8f9e-4fc6da6849a6"],
+In[945]:=",ExpressionUUID->"00e79565-aded-49c9-a2d0-4246486dfc58"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "229.0561224489796`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "169.44078947368422`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 229.0561224489796}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 169.44078947368422`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279963172389*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222388613132*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e95a64f0-213c-40af-ac6d-432ca3ee165a"],
+In[945]:=",ExpressionUUID->"d18588f6-e5d1-4181-9c82-5637f7e4a5a1"],
Cell[BoxData[
InterpretationBox[
@@ -10367,58 +7991,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", "245.`"}], "}"}]}]},
+ RowBox[{"190.`", ",", "0.`", ",", "0.`", ",", "190.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "245.`"}]}], "}"}]}]},
+ RowBox[{"190.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "190.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "209.2177110426694`", ",", "83.88541383031664`", ",",
+ "145.29379876804938`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.2208382748894`", ",", "0.`", ",",
- RowBox[{"-", "190.2208382748894`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"173.18927271338893`", ",",
- RowBox[{"-", "10.`"}], ",", "172.90033019920062`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"150.78228895733056`", ",",
+ RowBox[{"-", "83.88541383031664`"}], ",",
+ RowBox[{"-", "125.2937987680494`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {190., 0., 0., 190.}, $CellContext`p2 -> {
+ 190., 0., 0., -190.}, $CellContext`p3 -> {209.2177110426694,
+ 83.88541383031664, 145.29379876804938`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 150.78228895733056`, -83.88541383031664, -125.2937987680494, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279963229855*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222388706456*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4b2723db-e17c-4d68-b1ba-0fd772b97168"],
+In[945]:=",ExpressionUUID->"8177d52e-0bd0-4d01-b640-3c3f3b96a4be"],
Cell[BoxData[
InterpretationBox[
@@ -10427,85 +8049,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.188151436885577835073268085849232706652672178769581553956471316`\
-43.72378656852061*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.419711913122235", ",", "0``57.309803919971486"}], "}"}]}],
+ "-", "1.954642611543360770912254858742795827595186883099491174708452742`\
+43.41025376995069*^-14"}], ",", "0``57.775283552967615", ",",
+ "0``57.536722925607776", ",", "0``57.420216403383186"}], "}"}]}],
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}],
+{-1.954642611543360770912254858742795827595186883099491174708452742`43.\
+41025376995069*^-14, 0``57.775283552967615, 0``57.536722925607776,
+ 0``57.420216403383186}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279963253878*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222388750032*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9847a783-ebe9-4fff-bcde-161462cd3952"],
+In[945]:=",ExpressionUUID->"861cf6af-09f2-4265-a767-684d46f63ecc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780279963272271*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222388795059*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"dac346e4-7508-4d40-a07a-91cb5fe8e89b"],
+In[945]:=",ExpressionUUID->"26e71a6d-c132-45d9-aba6-0d20d162bc8b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "190.2208382748893882308`10."}], ",",
- RowBox[{"S", "\[Rule]", "240100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "167.7708276606332731262`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "144400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
+ RowBox[{"-", "63877.7301962143730819052`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
+ RowBox[{"-", "63877.7301962143730819052`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
+ RowBox[{"-", "7600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "70374.51274087881319954`10."}], ",",
+ RowBox[{"-", "7600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29805.4603924287520583201`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "490.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "380.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "265.2819495195231205302`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "172.642579893920584502`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05783678948720847408116609260368431049`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "173.1892727133889325788`10."}], ",",
+ "0.6695097016382256435048795196118685357`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "150.7822889573305776064`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "231.6971697941266792025`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "359.4440151122285495754`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802799633064613`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222388849401*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6ee8a5ce-cbc2-44f3-87e5-77be6d3dae6d"],
+In[945]:=",ExpressionUUID->"e409a58e-d852-4c3c-9990-dd20e19c365d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "231.7171717171717`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "172.2077922077922`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 231.7171717171717}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.2077922077922}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802804241835423`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222400413571*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1bb7198e-c552-4aa4-ae89-0fb29e3d95fa"],
+In[945]:=",ExpressionUUID->"ca7795a7-e2c9-473b-9a2b-44772df29dd0"],
Cell[BoxData[
InterpretationBox[
@@ -10516,58 +8134,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.5`", ",", "0.`", ",", "0.`", ",", "247.5`"}], "}"}]}]},
+ RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",", "192.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "247.5`"}]}], "}"}]}]},
+ RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "192.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "211.44913170197665`", ",", "85.27270269189295`", ",",
+ "147.69665356107396`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"192.722895744776`", ",", "0.`", ",",
- RowBox[{"-", "192.722895744776`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.68721524350246`", ",",
- RowBox[{"-", "10.`"}], ",", "175.40238766908723`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"153.55086829802335`", ",",
+ RowBox[{"-", "85.27270269189295`"}], ",",
+ RowBox[{"-", "127.69665356107396`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {247.5, 0., 0., 247.5}, $CellContext`p2 -> {
- 247.5, 0., 0., -247.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {192.722895744776,
- 0., -192.722895744776, 0.}, $CellContext`p5 -> {
- 175.68721524350246`, -10., 175.40238766908723`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {192.5, 0., 0., 192.5}, $CellContext`p2 -> {
+ 192.5, 0., 0., -192.5}, $CellContext`p3 -> {211.44913170197665`,
+ 85.27270269189295, 147.69665356107396`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 153.55086829802335`, -85.27270269189295, -127.69665356107396`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280439293227*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222400494226*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7e1ac5f0-d63a-4dc1-b458-262ce18af15a"],
+In[945]:=",ExpressionUUID->"87b4d5f3-c8fc-4fc8-afae-ccfed3b2f824"],
Cell[BoxData[
InterpretationBox[
@@ -10575,85 +8191,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "8.012146889268226339935641174892816663577112547111667818938771574`43.\
-90811370815753*^-14", ",", "0``58.69897000433602", ",",
- "0``57.414036691834475", ",", "0``57.305394801066434"}], "}"}]}],
+ RowBox[{
+ "-", "1.87678928033817647178785021082300047100289345882925964708221177`\
+43.386924789045224*^-14"}], ",", "0``57.768159976305526", ",",
+ "0``57.52959934894569", ",", "0``57.414539270491495"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 8.012146889268226339935641174892816663577112547111667818938771574`43.\
-90811370815753*^-14, 0``58.69897000433602, 0``57.414036691834475,
- 0``57.305394801066434}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.87678928033817647178785021082300047100289345882925964708221177`43.\
+386924789045224*^-14, 0``57.768159976305526, 0``57.52959934894569,
+ 0``57.414539270491495}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280442577611*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222400536727*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"89d11b46-0dba-49ab-86a2-6315946dd83b"],
+In[945]:=",ExpressionUUID->"f63735df-3cbe-4fc0-96b6-977c9a6a9121"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280480016306*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222400579508*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6d1f0500-da18-4f02-af0d-db466ff1492e"],
+In[945]:=",ExpressionUUID->"a9442270-25db-4c94-ae4a-96ec2a6b99cf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "192.7228957447759967181`10."}], ",",
- RowBox[{"S", "\[Rule]", "245025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "170.5454053837858907627`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "148225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47036.9950608022055178988`10."}]}], ",",
+ RowBox[{"-", "65782.9157052610091136325`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47036.9950608022055178988`10."}]}], ",",
+ RowBox[{"-", "65782.9157052610091136325`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "95397.8333936641183754546`10."}]}], ",",
+ RowBox[{"-", "7700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "95397.8333936641183754546`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71094.6569089326196340712`10."}], ",",
+ RowBox[{"-", "7700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "29990.8314105220239909175`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "495.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "385.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "266.6358132527073333735`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "173.178611296320377876`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05701176667484094907201591917699295205`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "175.6872152435024560945`10."}], ",",
+ "0.66777554707891584009651674820288159913`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "153.5508682980233341837`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "232.8719244835491363335`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "364.4516428828384171747`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802804800492563`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224006231956`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"00879e3d-6bff-49d5-a395-c8a4744ead86"],
+In[945]:=",ExpressionUUID->"8e84c977-c68d-4465-937f-fc93ff370808"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "234.375`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "174.96794871794873`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 234.375}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 174.96794871794873`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280683044447*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224121519623`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"92bac50d-1ca6-44fe-9487-937a7b7a15e0"],
+In[945]:=",ExpressionUUID->"dfaf82e6-b526-4dd0-8829-73790c8a282d"],
Cell[BoxData[
InterpretationBox[
@@ -10664,58 +8278,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.`", ",", "0.`", ",", "0.`", ",", "250.`"}], "}"}]}]},
+ RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", "195.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "250.`"}]}], "}"}]}]},
+ RowBox[{"195.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "195.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "213.6874764860437`", ",", "86.65641581408366`", ",",
+ "150.09331499180803`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.2248954351073`", ",", "0.`", ",",
- RowBox[{"-", "195.2248954351073`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"178.18521555317105`", ",",
- RowBox[{"-", "10.`"}], ",", "177.90438735941854`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"156.31252351395634`", ",",
+ RowBox[{"-", "86.65641581408366`"}], ",",
+ RowBox[{"-", "130.09331499180803`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {195., 0., 0., 195.}, $CellContext`p2 -> {
+ 195., 0., 0., -195.}, $CellContext`p3 -> {213.6874764860437,
+ 86.65641581408366, 150.09331499180803`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 156.31252351395634`, -86.65641581408366, -130.09331499180803`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280691140086*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222412243298*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e22ddfe9-2d1d-4cee-8719-0689c89d6d51"],
+In[945]:=",ExpressionUUID->"1c144ba6-70d8-44d9-b4fa-4f3365b80c6f"],
Cell[BoxData[
InterpretationBox[
@@ -10723,87 +8335,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.133411185703668337240941341642941935979042236416828599381294722`\
-43.054387494405184*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.40843480544857", ",", "0``57.30102999566398"}], "}"}]}],
+ "2.122399146484330331278976099679335217780452230583465394761087269`43.\
+43473245963376*^-14", ",", "0``57.761169282069645", ",",
+ "0``57.52260865470982", ",", "0``57.4089353929735"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.122399146484330331278976099679335217780452230583465394761087269`43.\
+43473245963376*^-14, 0``57.761169282069645, 0``57.52260865470982,
+ 0``57.4089353929735}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028069309748*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222241229817*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"53d847a7-4cbe-49e2-8387-65b3f3f31343"],
+In[945]:=",ExpressionUUID->"0a2a9d58-cf47-4bb9-bcb0-614492b41927"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280694153501*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222412359766*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"51eef8e6-6fd0-4d70-8b11-e26ba1fb0206"],
+In[945]:=",ExpressionUUID->"2784086e-b2ba-444f-90b7-e52fa27b9b3a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "195.2248954351072995905`10."}], ",",
- RowBox[{"S", "\[Rule]", "250000.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "173.3128316281673164667`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "152100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47669.9445058608136544432`10."}]}], ",",
+ RowBox[{"-", "67713.1158295570376323876`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47669.9445058608136544432`10."}]}], ",",
+ RowBox[{"-", "67713.1158295570376323876`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "97612.4477175536497952635`10."}]}], ",",
+ RowBox[{"-", "7800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "97612.4477175536497952635`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71814.7844468289309385557`10."}], ",",
+ RowBox[{"-", "7800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "30176.2316591140686296238`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "500.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "390.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "267.9828062522462110404`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "173.7130727927926230016`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05620996844668645499761465916788424625`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "178.1852155531710617665`10."}], ",",
+ "0.66610967534757961268880088584240545216`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "156.3125235139563349871`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "234.0408181597660829301`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "369.4590640382233411714`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802806978547773`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224124188433`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1eef8ead-54fa-4b97-8501-dfc688fde0ab"],
+In[945]:=",ExpressionUUID->"174197e0-2e63-4f08-bab6-40f0fe61f499"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "237.02970297029702`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "177.72151898734177`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 237.02970297029702`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.72151898734177`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802809526826897`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222423915121*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a912994a-d822-4df1-bc91-24a9afae3041"],
+In[945]:=",ExpressionUUID->"03d2c137-7281-47b5-93e3-b30be0165b33"],
Cell[BoxData[
InterpretationBox[
@@ -10814,58 +8421,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.5`", ",", "0.`", ",", "0.`", ",", "252.5`"}], "}"}]}]},
+ RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",", "197.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "252.5`"}]}], "}"}]}]},
+ RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "197.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "215.93248123895086`", ",", "88.03669185914738`", ",",
+ "152.48402323032863`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"197.7268397461003`", ",", "0.`", ",",
- RowBox[{"-", "197.7268397461003`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.68327124217817`", ",",
- RowBox[{"-", "10.`"}], ",", "180.40633167041153`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"159.06751876104914`", ",",
+ RowBox[{"-", "88.03669185914738`"}], ",",
+ RowBox[{"-", "132.48402323032863`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {252.5, 0., 0., 252.5}, $CellContext`p2 -> {
- 252.5, 0., 0., -252.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {197.7268397461003,
- 0., -197.7268397461003, 0.}, $CellContext`p5 -> {
- 180.68327124217817`, -10., 180.40633167041153`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {197.5, 0., 0., 197.5}, $CellContext`p2 -> {
+ 197.5, 0., 0., -197.5}, $CellContext`p3 -> {215.93248123895086`,
+ 88.03669185914738, 152.48402323032863`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 159.06751876104914`, -88.03669185914738, -132.48402323032863`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280953784836*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222424011732*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"90124aae-f546-4ea4-b649-8d723e30171c"],
+In[945]:=",ExpressionUUID->"aa4c1b24-ec3b-4207-9a44-26661d45175b"],
Cell[BoxData[
InterpretationBox[
@@ -10873,85 +8478,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "9.049907870601029097941313646849959167264061715072231325646098426`43.\
-95232278426309*^-14", ",", "0``58.69897000433602", ",",
- "0``57.40290437921827", ",", "0``57.296708621881336"}], "}"}]}],
+ "1.332849006977917956579362711808775254472074569673467596487118526`43.\
+227153861461346*^-14", ",", "0``57.75430628956319", ",",
+ "0``57.51574566220337", ",", "0``57.403402904373536"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 9.049907870601029097941313646849959167264061715072231325646098426`43.\
-95232278426309*^-14, 0``58.69897000433602, 0``57.40290437921827,
- 0``57.296708621881336}],
+ 1.332849006977917956579362711808775254472074569673467596487118526`43.\
+227153861461346*^-14, 0``57.75430628956319, 0``57.51574566220337,
+ 0``57.403402904373536}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802809566358137`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222424054831*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0eea9fcb-21e2-4eb8-99da-5d5f08f61a21"],
+In[945]:=",ExpressionUUID->"6ee3ed2c-d4aa-4b08-b77c-a5eb44d52e82"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780280958141276*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222424099977*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f8962516-6ef2-49b3-b9b6-d83fcb427c42"],
+In[945]:=",ExpressionUUID->"953dce61-51e0-4ba4-a725-f123e317202e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "197.7268397461002962245`10."}], ",",
- RowBox[{"S", "\[Rule]", "255025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "176.0733837182947638667`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "156025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48302.8939509194217909877`10."}]}], ",",
+ RowBox[{"-", "69668.3300893855920007325`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48302.8939509194217909877`10."}]}], ",",
+ RowBox[{"-", "69668.3300893855920007325`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "99852.0540717806495933928`10."}]}], ",",
+ RowBox[{"-", "7900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "99852.0540717806495933928`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "72534.8960454001100654218`10."}], ",",
+ RowBox[{"-", "7900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "30361.6601787711797612054`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "505.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "395.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "269.3230328906165241602`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "174.2459760762674822269`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05543042701111638366451232310883396811`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "180.6832712421781669657`10."}], ",",
+ "0.66450798905836493493196558572110537098`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "159.0675187610491475038`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "235.2039367366940064438`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "374.4662868670556436215`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028095913923*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222424154714*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"279e3750-01a5-435c-8787-5c39442647d0"],
+In[945]:=",ExpressionUUID->"d39f8db8-5595-4644-b8ea-9dfaf36e7d65"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "239.6813725490196`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "180.46875`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 239.6813725490196}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 180.46875}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281208567974*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224356358547`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"33904483-2810-4859-95ed-ad6b65ea37df"],
+In[945]:=",ExpressionUUID->"38a388b3-da96-4e12-afae-2236a6b3244f"],
Cell[BoxData[
InterpretationBox[
@@ -10962,58 +8563,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", "255.`"}], "}"}]}]},
+ RowBox[{"200.`", ",", "0.`", ",", "0.`", ",", "200.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "255.`"}]}], "}"}]}]},
+ RowBox[{"200.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "200.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "218.1838950572783`", ",", "89.41366235420266`", ",",
+ "154.86900608828765`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.2287309468443`", ",", "0.`", ",",
- RowBox[{"-", "200.2287309468443`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"183.1813800414341`", ",",
- RowBox[{"-", "10.`"}], ",", "182.90822287115554`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"161.8161049427217`", ",",
+ RowBox[{"-", "89.41366235420266`"}], ",",
+ RowBox[{"-", "134.86900608828765`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {200., 0., 0., 200.}, $CellContext`p2 -> {
+ 200., 0., 0., -200.}, $CellContext`p3 -> {218.1838950572783,
+ 89.41366235420266, 154.86900608828765`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 161.8161049427217, -89.41366235420266, -134.86900608828765`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281212488771*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222435727614*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b86aa01a-08f8-49e8-8b8b-4f84c0270fb4"],
+In[945]:=",ExpressionUUID->"f1f3e65a-6354-48d4-9e4a-ee6ac31a19bc"],
Cell[BoxData[
InterpretationBox[
@@ -11021,86 +8620,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.843500018677066577035041785216950462993836543366240578087207553`43.\
-25704297458019*^-14", ",", "0``58.69897000433602", ",", "0``57.3974436095323",
- ",", "0``57.29242982390206"}], "}"}]}],
+ "5.46684329280157620113831883554317589810095497793135340915400068`42.\
+83464663801595*^-15", ",", "0``57.747566120532255", ",",
+ "0``57.50900549317243", ",", "0``57.39794000867204"}], "}"}]}],
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}],
+ 5.46684329280157620113831883554317589810095497793135340915400068`42.\
+83464663801595*^-15, 0``57.747566120532255, 0``57.50900549317243,
+ 0``57.39794000867204}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281216046125*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222435774849*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b57903a7-619c-4d05-aa88-b505421d6c97"],
+In[945]:=",ExpressionUUID->"ba39f9a4-effc-4e8a-b270-c3d2651a6687"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802812165677357`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222435821953*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"42ecca8e-0cd6-43c3-8f96-f6d1b5a26781"],
+In[945]:=",ExpressionUUID->"730b6b16-96f0-4768-817a-352d8437d9fe"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "200.2287309468443083915`10."}], ",",
- RowBox[{"S", "\[Rule]", "260100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "178.8273247084053139133`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "160000.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
+ RowBox[{"-", "71648.5580229113195431353`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
+ RowBox[{"-", "71648.5580229113195431353`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
+ RowBox[{"-", "8000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73254.992357737247660516`10."}], ",",
+ RowBox[{"-", "8000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "30547.1160458226373170239`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "510.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "400.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "270.6565948905314364288`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "174.7773327574907160822`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05467222765071756176359006858501958503`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "183.1813800414340827346`10."}], ",",
+ "0.66296671820707934883488292653136314307`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "161.816104942721706609`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "236.3613640894357693204`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "379.4733192202055253143`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802812168858023`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222435883666*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c7d9672e-c824-4c15-8704-1033838c918a"],
+In[945]:=",ExpressionUUID->"00c8ea1e-806f-4cec-b838-34dc1409d0a4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "242.33009708737862`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "183.20987654320987`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 242.33009708737862`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 183.20987654320987`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028145795227*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222447443254*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"49acde02-fe9a-4bf9-b0f3-4230d1599045"],
+In[945]:=",ExpressionUUID->"0619e94c-c78e-4a8b-9132-c7f5bf155615"],
Cell[BoxData[
InterpretationBox[
@@ -11111,58 +8706,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.5`", ",", "0.`", ",", "0.`", ",", "257.5`"}], "}"}]}]},
+ RowBox[{"202.5`", ",", "0.`", ",", "0.`", ",", "202.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "257.5`"}]}], "}"}]}]},
+ RowBox[{"202.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "202.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "220.441479470798`", ",", "90.78745214961461`", ",",
+ "157.24847981286078`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"202.7305711841356`", ",", "0.`", ",",
- RowBox[{"-", "202.7305711841356`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.67953980414276`", ",",
- RowBox[{"-", "10.`"}], ",", "185.41006310844685`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"164.55852052920207`", ",",
+ RowBox[{"-", "90.78745214961461`"}], ",",
+ RowBox[{"-", "137.24847981286078`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {257.5, 0., 0., 257.5}, $CellContext`p2 -> {
- 257.5, 0., 0., -257.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {202.7305711841356,
- 0., -202.7305711841356, 0.}, $CellContext`p5 -> {
- 185.67953980414276`, -10., 185.41006310844685`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {202.5, 0., 0., 202.5}, $CellContext`p2 -> {
+ 202.5, 0., 0., -202.5}, $CellContext`p3 -> {220.441479470798,
+ 90.78745214961461, 157.24847981286078`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 164.55852052920207`, -90.78745214961461, -137.24847981286078`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281458607026*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224475537167`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d3adb6b9-6c01-45e3-9364-ffe336db584c"],
+In[945]:=",ExpressionUUID->"3764a5ac-8307-46f1-b623-76576d71adec"],
Cell[BoxData[
InterpretationBox[
@@ -11170,86 +8763,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.164200836719947238113307650128109011194311652925852927441489728`43.\
-05319068237453*^-14", ",", "0``58.69897000433602", ",",
- "0``57.392050760352106", ",", "0``57.2881927709588"}], "}"}]}],
+ "4.879496631220260553388446080992359732004463808210353392100830415`43.\
+779890003624274*^-14", ",", "0``57.740944176065526", ",",
+ "0``57.502383548705694", ",", "0``57.39254497678533"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.164200836719947238113307650128109011194311652925852927441489728`43.\
-05319068237453*^-14, 0``58.69897000433602, 0``57.392050760352106,
- 0``57.2881927709588}],
+ 4.879496631220260553388446080992359732004463808210353392100830415`43.\
+779890003624274*^-14, 0``57.740944176065526, 0``57.502383548705694,
+ 0``57.39254497678533}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281461949716*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224476143837`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"542bef2b-6e65-46a6-9259-7c7b5fa4e427"],
+In[945]:=",ExpressionUUID->"2a165a1d-15fb-4a86-8b66-148b20699830"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802814622638397`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224476772337`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2b3afb84-98a6-43d7-873b-08353d4eec97"],
+In[945]:=",ExpressionUUID->"6cf36925-ac3c-4d7d-86e2-b8ddc58b755f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "202.7305711841356128389`10."}], ",",
- RowBox[{"S", "\[Rule]", "265225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "181.5749042992292174858`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "164025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "49568.7928410366380640765`10."}]}], ",",
+ RowBox[{"-", "73653.7991856731834644291`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "49568.7928410366380640765`10."}]}], ",",
+ RowBox[{"-", "73653.7991856731834644291`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "104406.2441598298406120193`10."}]}], ",",
+ RowBox[{"-", "8100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "104406.2441598298406120193`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73975.0740017329530288262`10."}], ",",
+ RowBox[{"-", "8100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "30732.5983713463508696033`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "515.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "405.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "271.9835914200210590138`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "175.3071543644079315121`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05393450513066797974614066128915758767`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "185.6795398041427714943`10."}], ",",
+ "0.661482387807893403484966080104330301`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "164.5585205292020649322`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "237.5131821190990781149`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "384.4801685392889514152`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281464768471*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222447712572*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4e65a463-0ca8-46b4-9030-944d9f69a5ef"],
+In[945]:=",ExpressionUUID->"3c8531b3-5d15-4a6e-a822-cbb824c43a7e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "244.97596153846155`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "185.9451219512195`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 244.97596153846155`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 185.9451219512195}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281729832806*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222459251845*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b0c2eefc-961a-4d83-a410-fab0b7088621"],
+In[945]:=",ExpressionUUID->"7b3e81c8-bd03-47bd-a00a-03bea9e70ba2"],
Cell[BoxData[
InterpretationBox[
@@ -11260,58 +8848,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.`", ",", "0.`", ",", "0.`", ",", "260.`"}], "}"}]}]},
+ RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", "205.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "260.`"}]}], "}"}]}]},
+ RowBox[{"205.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "205.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "222.70500768303978`", ",", "92.15817984192017`", ",",
+ "159.62264981927567`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.23236249060622`", ",", "0.`", ",",
- RowBox[{"-", "205.23236249060622`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"188.1777484976721`", ",",
- RowBox[{"-", "10.`"}], ",", "187.91185441491746`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"167.29499231696022`", ",",
+ RowBox[{"-", "92.15817984192017`"}], ",",
+ RowBox[{"-", "139.62264981927567`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {205., 0., 0., 205.}, $CellContext`p2 -> {
+ 205., 0., 0., -205.}, $CellContext`p3 -> {222.70500768303978`,
+ 92.15817984192017, 159.62264981927567`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 167.29499231696022`, -92.15817984192017, -139.62264981927567`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281731390568*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222459346579*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b2719dfc-f3dc-4737-8c2b-622dc6934cf5"],
+In[945]:=",ExpressionUUID->"87eadff7-1573-460c-9b2f-c1e8a4e3cc4b"],
Cell[BoxData[
InterpretationBox[
@@ -11319,87 +8905,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "6.360373241827288974098655013347079771582113602143394584404408899`\
-43.78644926253042*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.38672415987041", ",", "0``57.283996656365204"}], "}"}]}],
+ "3.37697250004746476583321419605806575581787215044150471428385356`42.\
+614713671643386*^-15", ",", "0``57.73443611564854", ",",
+ "0``57.495875488288725", ",", "0``57.38721614328027"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.37697250004746476583321419605806575581787215044150471428385356`42.\
+614713671643386*^-15, 0``57.73443611564854, 0``57.495875488288725,
+ 0``57.38721614328027}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281760543384*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222459391279*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"bede673c-ea87-4ee3-9538-3477a96fb7d4"],
+In[945]:=",ExpressionUUID->"7ce986fd-6c09-4f85-9e11-6d8bfbeea750"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281760687603*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222459435631*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6831114a-fbac-444c-ac22-3cf27e262bc4"],
+In[945]:=",ExpressionUUID->"0257cd5d-bfa8-4be0-8250-e143f7020f75"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "205.2323624906062207174`10."}], ",",
- RowBox[{"S", "\[Rule]", "270400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "184.3163596838403464062`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "168100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50201.742286095246200621`10."}]}], ",",
+ RowBox[{"-", "75684.053150046309434121`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50201.742286095246200621`10."}]}], ",",
+ RowBox[{"-", "75684.053150046309434121`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "106720.8284951152347730385`10."}]}], ",",
+ RowBox[{"-", "8200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "106720.8284951152347730385`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74695.1415624209858849333`10."}], ",",
+ RowBox[{"-", "8200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "30918.1063000926177383408`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "520.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "410.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "273.3041191830466829727`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "175.8354523413654989831`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05321644039507784522857009597978212829`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "188.17774849767208837`10."}], ",",
+ "0.66005178931360774430798226096951886418`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "167.2949923169602242694`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "238.6594708151543069895`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "389.4868418830089343818`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281760711504*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222459494463*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7ec25a09-3a3a-47fd-b630-8958fd93a816"],
+In[945]:=",ExpressionUUID->"69774b37-a257-4385-a8af-b5064a76b9f4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "247.61904761904762`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "188.67469879518075`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 247.61904761904762`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 188.67469879518075`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028196918265*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222470965642*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d0fd0a4b-92cb-46e2-a416-db409d075b5c"],
+In[945]:=",ExpressionUUID->"7ab1b056-bd51-43a0-b702-a1a9af876394"],
Cell[BoxData[
InterpretationBox[
@@ -11410,58 +8991,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.5`", ",", "0.`", ",", "0.`", ",", "262.5`"}], "}"}]}]},
+ RowBox[{"207.5`", ",", "0.`", ",", "0.`", ",", "207.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "262.5`"}]}], "}"}]}]},
+ RowBox[{"207.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "207.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "224.97426386670955`", ",", "93.52595816452224`", ",",
+ "161.99171136751377`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"207.7341067922135`", ",", "0.`", ",",
- RowBox[{"-", "207.7341067922135`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.67600419606478`", ",",
- RowBox[{"-", "10.`"}], ",", "190.41359871652475`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"170.02573613329042`", ",",
+ RowBox[{"-", "93.52595816452224`"}], ",",
+ RowBox[{"-", "141.99171136751377`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {262.5, 0., 0., 262.5}, $CellContext`p2 -> {
- 262.5, 0., 0., -262.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {207.7341067922135,
- 0., -207.7341067922135, 0.}, $CellContext`p5 -> {
- 190.67600419606478`, -10., 190.41359871652475`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {207.5, 0., 0., 207.5}, $CellContext`p2 -> {
+ 207.5, 0., 0., -207.5}, $CellContext`p3 -> {224.97426386670955`,
+ 93.52595816452224, 161.99171136751377`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 170.02573613329042`, -93.52595816452224, -141.99171136751377`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281972964004*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224710512657`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"768d5e5a-6a67-4735-8829-a91ca891a9e6"],
+In[945]:=",ExpressionUUID->"e539b2f6-8dfb-43b4-99cd-a9dc1873f2b2"],
Cell[BoxData[
InterpretationBox[
@@ -11470,86 +9049,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.028184861045199635182081930136820694410607270664290466873544035`\
-43.93441114403737*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.38146219737433", ",", "0``57.27984069659404"}], "}"}]}],
+ "-", "1.687973372787222010845334798166674118627094306127513325644289173`\
+43.30828749911807*^-14"}], ",", "0``57.72803783813743", ",",
+ "0``57.48947721077761", ",", "0``57.381951903287906"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.028184861045199635182081930136820694410607270664290466873544035`43.\
-93441114403737*^-14, 0``58.69897000433602, 0``57.38146219737433,
- 0``57.27984069659404}],
+{-1.687973372787222010845334798166674118627094306127513325644289173`43.\
+30828749911807*^-14, 0``57.72803783813743, 0``57.48947721077761,
+ 0``57.381951903287906}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281982921543*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222247109869*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"eaaa3cdc-c06a-477d-9d72-c0d8cdc9585e"],
+In[945]:=",ExpressionUUID->"8a94e2a3-93de-4b5e-86dd-6d46488569d5"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281983011812*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222247114261*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"51c887d8-e014-4d97-a5ce-649c8f4024f6"],
+In[945]:=",ExpressionUUID->"71fc5159-cabe-4765-8ff3-9cec9200f271"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "207.7341067922135096069`10."}], ",",
- RowBox[{"S", "\[Rule]", "275625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "187.0519163290444737413`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "172225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50834.6917311538543371654`10."}]}], ",",
+ RowBox[{"-", "77739.3195046844636092533`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50834.6917311538543371654`10."}]}], ",",
+ RowBox[{"-", "77739.3195046844636092533`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "109060.4060659120925436127`10."}]}], ",",
+ RowBox[{"-", "8300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "109060.4060659120925436127`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "75415.1955941319281907205`10."}], ",",
+ RowBox[{"-", "8300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "31103.639009368932958485`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "525.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "415.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "274.6182725059130660009`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "176.3622380481970776424`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0525172575246967702453775276829039049`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "190.6760041960647728024`10."}], ",",
+ "0.65867195531189296916888440326417049241`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "170.0257361332904322546`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "239.8003083154309825294`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "394.4933459514874842308`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780281983035201*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224711919727`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e27591ff-dd98-4b81-813f-7c4d49b710dc"],
+In[945]:=",ExpressionUUID->"117119ef-5e86-499d-80d8-9b48bea99582"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "250.25943396226415`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "191.39880952380955`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 250.25943396226415`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 191.39880952380955`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802822186337137`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224834739647`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"88874554-d5e4-409e-b90c-19681fb3cc0e"],
+In[945]:=",ExpressionUUID->"36a853e1-70bd-4988-9c8f-f69eb9ec726a"],
Cell[BoxData[
InterpretationBox[
@@ -11560,58 +9135,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", "265.`"}], "}"}]}]},
+ RowBox[{"210.`", ",", "0.`", ",", "0.`", ",", "210.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "265.`"}]}], "}"}]}]},
+ RowBox[{"210.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "210.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "227.24904250940946`", ",", "94.89089434904093`", ",",
+ "164.35585018818938`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.23580591514747`", ",", "0.`", ",",
- RowBox[{"-", "210.23580591514747`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"193.17430507313094`", ",",
- RowBox[{"-", "10.`"}], ",", "192.9152978394587`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"172.75095749059054`", ",",
+ RowBox[{"-", "94.89089434904093`"}], ",",
+ RowBox[{"-", "144.35585018818938`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {210., 0., 0., 210.}, $CellContext`p2 -> {
+ 210., 0., 0., -210.}, $CellContext`p3 -> {227.24904250940946`,
+ 94.89089434904093, 164.35585018818938`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 172.75095749059054`, -94.89089434904093, -144.35585018818938`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282231121397*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222483556739*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"728cf557-883d-4e19-a73c-1d5788f1a0d2"],
+In[945]:=",ExpressionUUID->"20735443-1a94-4043-9970-d98922afdbe9"],
Cell[BoxData[
InterpretationBox[
@@ -11619,86 +9192,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.80195811728710267194764958082504825972226263781023841334654998`43.\
-23043882723704*^-14", ",", "0``58.69897000433602", ",",
- "0``57.376263320298015", ",", "0``57.27572413039921"}], "}"}]}],
+ "1.666503866108112532445692887884012139077993815331198116352869228`43.\
+29752703945191*^-14", ",", "0``57.72174546444504", ",",
+ "0``57.48318483708521", ",", "0``57.3767507096021"}], "}"}]}],
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}],
+ 1.666503866108112532445692887884012139077993815331198116352869228`43.\
+29752703945191*^-14, 0``57.72174546444504, 0``57.48318483708521,
+ 0``57.3767507096021}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802822327436733`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224836032553`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a280d909-a034-4b10-bcce-0febc7015373"],
+In[945]:=",ExpressionUUID->"edd7bef6-6c4a-4f43-bf98-c3f8d1540435"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282233198591*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224836492033`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4f10b418-677a-489a-9371-e925631e36ca"],
+In[945]:=",ExpressionUUID->"286c94bf-6265-491e-a813-59b0ed25b7de"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "210.235805915147466294`10."}], ",",
- RowBox[{"S", "\[Rule]", "280900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "189.7817886980818684606`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "176400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
+ RowBox[{"-", "79819.5978539519796871595`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
+ RowBox[{"-", "79819.5978539519796871595`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
+ RowBox[{"-", "8400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76135.2366224812322572214`10."}], ",",
+ RowBox[{"-", "8400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "31289.1957079039536165162`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "530.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "420.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "275.9261434197224310874`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "176.8875227592493410588`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05183622093216192030450049728488438185`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "193.1743050731309244167`10."}], ",",
+ "0.65734013706639884194685527927372358468`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "172.7509574905905412194`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "240.9357709638477431628`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "399.4996871087635950015`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282233875651*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222483695105*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"50b111e4-baa5-4a2e-b5ef-4e3f6b37f78e"],
+In[945]:=",ExpressionUUID->"8839f899-37b7-472d-9bb9-efed66e4315b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "252.89719626168224`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "194.1176470588235`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 252.89719626168224`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 194.1176470588235}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802824759578876`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222495026547*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fda9376d-11f5-425f-a4cc-80a709e13e6b"],
+In[945]:=",ExpressionUUID->"39dbc99a-db1a-4830-a8c8-9cb2eaf5e8e4"],
Cell[BoxData[
InterpretationBox[
@@ -11709,58 +9277,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.5`", ",", "0.`", ",", "0.`", ",", "267.5`"}], "}"}]}]},
+ RowBox[{"212.5`", ",", "0.`", ",", "0.`", ",", "212.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "267.5`"}]}], "}"}]}]},
+ RowBox[{"212.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "212.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "229.52914780553527`", ",", "96.25309045991102`", ",",
+ "166.7152430620891`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"212.73746159220804`", ",", "0.`", ",",
- RowBox[{"-", "212.73746159220804`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.6726493960703`", ",",
- RowBox[{"-", "10.`"}], ",", "195.41695351651927`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"175.47085219446475`", ",",
+ RowBox[{"-", "96.25309045991102`"}], ",",
+ RowBox[{"-", "146.7152430620891`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {267.5, 0., 0., 267.5}, $CellContext`p2 -> {
- 267.5, 0., 0., -267.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {212.73746159220804`,
- 0., -212.73746159220804`, 0.}, $CellContext`p5 -> {
- 195.6726493960703, -10., 195.41695351651927`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {212.5, 0., 0., 212.5}, $CellContext`p2 -> {
+ 212.5, 0., 0., -212.5}, $CellContext`p3 -> {229.52914780553527`,
+ 96.25309045991102, 166.7152430620891, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 175.47085219446475`, -96.25309045991102, -146.7152430620891, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282476457796*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222495107259*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"68098a97-cf2e-418c-be66-3b1442a487eb"],
+In[945]:=",ExpressionUUID->"e5e4250d-a544-4a44-9e91-a925bfa572a3"],
Cell[BoxData[
InterpretationBox[
@@ -11768,87 +9334,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.922339912738055974229876131395355684292812009619705541765697256`\
-43.56416144954297*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.37112603145146", ",", "0``57.27164621797877"}], "}"}]}],
+ "1.511114946464564289276487663986229285648275196407660134831062787`43.\
+2498785754987*^-14", ",", "0``57.715555321759226", ",", "0``57.4769946943994",
+ ",", "0``57.37161106994969"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.922339912738055974229876131395355684292812009619705541765697256`43.\
-56416144954297*^-14, 0``58.69897000433602, 0``57.37112603145146,
- 0``57.27164621797877}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.511114946464564289276487663986229285648275196407660134831062787`43.\
+2498785754987*^-14, 0``57.715555321759226, 0``57.4769946943994,
+ 0``57.37161106994969}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282476880455*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222495158256*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"57023bfa-2eca-4f13-abbb-853e866811e7"],
+In[945]:=",ExpressionUUID->"6839cde6-2a25-4100-b5f8-52783cea0d5d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802824774869957`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222495204192*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b1397a8c-cce3-470b-acfc-064e610e8905"],
+In[945]:=",ExpressionUUID->"c73e60ee-e458-4db5-b65f-532d875163ab"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "212.7374615922080351993`10."}], ",",
- RowBox[{"S", "\[Rule]", "286225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "192.5061809198220430517`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "180625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52100.5906212710706102542`10."}]}], ",",
+ RowBox[{"-", "81924.887817352489721768`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52100.5906212710706102542`10."}]}], ",",
+ RowBox[{"-", "81924.887817352489721768`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "113814.5419518312988316211`10."}]}], ",",
+ RowBox[{"-", "8500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "113814.5419518312988316211`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76855.2651462047542336435`10."}], ",",
+ RowBox[{"-", "8500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "31474.7756347049741404034`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "535.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "425.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "277.2278217390973806474`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "177.4113176623886476803`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05117263277341321288419195298231772644`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "195.6726493960702982684`10."}], ",",
+ "0.65605378453537539563721999203539115986`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "175.4708521944647451776`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "242.065933365968242054`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "404.505871403617591841`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028247838151*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822224952621593`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e8ad01b0-96a8-478a-be7b-26062daad9f5"],
+In[945]:=",ExpressionUUID->"9220e165-77ca-4914-b608-7c1ef8990a7e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "255.53240740740742`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "196.83139534883722`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 255.53240740740742`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 196.83139534883722`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282715858305*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222506683886*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"05d2b8ea-8ef8-46d2-8dd2-fac8fb28a790"],
+In[945]:=",ExpressionUUID->"05d03f08-cea0-4ef2-a801-cc9f96da35d9"],
Cell[BoxData[
InterpretationBox[
@@ -11859,58 +9420,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.`", ",", "0.`", ",", "0.`", ",", "270.`"}], "}"}]}]},
+ RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", "215.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "270.`"}]}], "}"}]}]},
+ RowBox[{"215.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "215.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "231.8143930906048`", ",", "97.61264370454967`", ",",
+ "169.07005835739835`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.23907546870007`", ",", "0.`", ",",
- RowBox[{"-", "215.23907546870007`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"198.17103551957828`", ",",
- RowBox[{"-", "10.`"}], ",", "197.9185673930113`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"178.1856069093952`", ",",
+ RowBox[{"-", "97.61264370454967`"}], ",",
+ RowBox[{"-", "149.07005835739835`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {215., 0., 0., 215.}, $CellContext`p2 -> {
+ 215., 0., 0., -215.}, $CellContext`p3 -> {231.8143930906048,
+ 97.61264370454967, 169.07005835739835`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 178.1856069093952, -97.61264370454967, -149.07005835739835`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028271825207*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225067685947`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d8c5925c-a00f-4fd4-9c6e-19037eb68bbe"],
+In[945]:=",ExpressionUUID->"7a1b3dc4-5a1b-48ea-992d-bcf37ebd46fa"],
Cell[BoxData[
InterpretationBox[
@@ -11919,86 +9478,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "3.665831845517155200200429999137621788249359296223915690484707932`\
-43.53074878417936*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.36604888641271", ",", "0``57.26760624017703"}], "}"}]}],
+ "-", "4.12808618320740898657719128384494406649831225033077407558571678`\
+42.68125030435735*^-15"}], ",", "0``57.709463929133754", ",",
+ "0``57.470903301773916", ",", "0``57.36653154442041"}], "}"}]}],
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}],
+{-4.12808618320740898657719128384494406649831225033077407558571678`42.\
+68125030435735*^-15, 0``57.709463929133754, 0``57.470903301773916,
+ 0``57.36653154442041}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028272215543*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225068170433`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9e5490e6-5dd5-474a-bc95-edb53cd631bf"],
+In[945]:=",ExpressionUUID->"a276da53-5b21-43ce-a5cf-4fdf2a4ca42a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802827223545303`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222250686654*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"506b3b15-a0b0-4668-ad51-30e2d040b581"],
+In[945]:=",ExpressionUUID->"bb3df4ef-7955-48a8-a717-fca6746e64ab"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "215.2390754687000651302`10."}], ",",
- RowBox[{"S", "\[Rule]", "291600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "195.2252874090993373102`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "184900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52733.5400663296787467986`10."}]}], ",",
+ RowBox[{"-", "84055.1890289600619643602`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52733.5400663296787467986`10."}]}], ",",
+ RowBox[{"-", "84055.1890289600619643602`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "116229.1007530980351702965`10."}]}], ",",
+ RowBox[{"-", "8600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "116229.1007530980351702965`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "77575.2816388554423634242`10."}], ",",
+ RowBox[{"-", "8600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "31660.3780579201253998516`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "540.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "430.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "278.5233951373841815775`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "177.9336338580205735013`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05052583055607298351112748235227024372`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "198.1710355195782709026`10."}], ",",
+ "0.65481052855377216605113984986814192886`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "178.185606909395200606`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "243.1908684424723745245`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "409.5119045888653975102`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802827229985332`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222506925947*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"13fd006b-a47e-4615-9557-f9c0a56f681b"],
+In[945]:=",ExpressionUUID->"85b265bc-fd1d-4cba-a7b9-1735bc05c7eb"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "258.16513761467894`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "199.54022988505747`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 258.16513761467894`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 199.54022988505747`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282968059394*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222518693684*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c5093dc7-5be5-4fce-934d-f9a7ebfed700"],
+In[945]:=",ExpressionUUID->"a85ee481-f28d-4b86-a544-5b2b9106c2ad"],
Cell[BoxData[
InterpretationBox[
@@ -12009,58 +9564,55 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.5`", ",", "0.`", ",", "0.`", ",", "272.5`"}], "}"}]}]},
+ RowBox[{"217.5`", ",", "0.`", ",", "0.`", ",", "217.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "272.5`"}]}], "}"}]}]},
+ RowBox[{"217.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "217.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "234.10460031461375`", ",", "98.9696467211855`", ",",
+ "171.42045652823583`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"217.74064910788653`", ",", "0.`", ",",
- RowBox[{"-", "217.74064910788653`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.66946188039185`", ",",
- RowBox[{"-", "10.`"}], ",", "200.42014103219776`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"180.8953996853862`", ",",
+ RowBox[{"-", "98.9696467211855`"}], ",",
+ RowBox[{"-", "151.42045652823583`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {272.5, 0., 0., 272.5}, $CellContext`p2 -> {
- 272.5, 0., 0., -272.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {217.74064910788653`,
- 0., -217.74064910788653`, 0.}, $CellContext`p5 -> {
- 200.66946188039185`, -10., 200.42014103219776`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {217.5, 0., 0., 217.5}, $CellContext`p2 -> {
+ 217.5, 0., 0., -217.5}, $CellContext`p3 -> {234.10460031461375`,
+ 98.9696467211855, 171.42045652823583`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 180.8953996853862, -98.9696467211855, -151.42045652823583`, 0.}}], "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282972975359*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222518790923*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8e2749de-2ea7-4a15-af7c-6b6da85f1318"],
+In[945]:=",ExpressionUUID->"d2676965-161a-4ab1-b287-b9752b89ca69"],
Cell[BoxData[
InterpretationBox[
@@ -12068,86 +9620,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.0331112992454423932721266591871258343454364724572824508987062`42.\
-270734656066345*^-15", ",", "0``58.69897000433602", ",",
- "0``57.361030491072135", ",", "0``57.26360349772336"}], "}"}]}],
+ RowBox[{
+ "-", "5.100535821445503941052239134714850898332783122907172818483830052`\
+43.768096549376104*^-14"}], ",", "0``57.70346798431164", ",",
+ "0``57.4649073569518", ",", "0``57.36151074304536"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.0331112992454423932721266591871258343454364724572824508987062`42.\
-270734656066345*^-15, 0``58.69897000433602, 0``57.361030491072135,
- 0``57.26360349772336}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.100535821445503941052239134714850898332783122907172818483830052`43.\
+768096549376104*^-14, 0``57.70346798431164, 0``57.4649073569518,
+ 0``57.36151074304536}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282973322091*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225188380203`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c2e717c1-e648-4bbe-8190-8b818debe76f"],
+In[945]:=",ExpressionUUID->"b626899b-53cf-408d-a4a4-f1ae93da2350"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282973476138*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225188876047`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ecc97351-17e0-4ca8-9b54-d58ab34b2fe0"],
+In[945]:=",ExpressionUUID->"e3c79aa5-93fd-4ff8-98c8-8413e0b4fef8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "217.740649107886525826`10."}], ",",
- RowBox[{"S", "\[Rule]", "297025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "197.9392934423709959901`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "189225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53366.4895113882868833431`10."}]}], ",",
+ RowBox[{"-", "86210.5011368569824393934`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53366.4895113882868833431`10."}]}], ",",
+ RowBox[{"-", "86210.5011368569824393934`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "118668.6537637981565751488`10."}]}], ",",
+ RowBox[{"-", "8700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "118668.6537637981565751488`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "78295.2865503728861010171`10."}], ",",
+ RowBox[{"-", "8700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "31846.0022737139833320561`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "545.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "435.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "279.8129492185322114118`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "178.4544823581463961319`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0498951849275142819367080504547091405`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "200.6694618803918488983`10."}], ",",
+ "0.65360816490954330594930921231326366345`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "180.8953996853861962604`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "244.3106474806280074839`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "414.5177921392517955492`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780282973762924*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225189452763`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"66fe1c8d-465e-460b-88d9-b436e1312d67"],
+In[945]:=",ExpressionUUID->"fa5859fa-c928-4c87-a002-83a0f3479a3d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "260.79545454545456`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "202.24431818181816`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 260.79545454545456`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 202.24431818181816`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028320336339*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222530408209*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"032de291-5e86-4e0d-be54-6ee80584a657"],
+In[945]:=",ExpressionUUID->"c9aedd3b-4005-482b-a813-e8d3a4dcb271"],
Cell[BoxData[
InterpretationBox[
@@ -12158,58 +9707,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", "275.`"}], "}"}]}]},
+ RowBox[{"220.`", ",", "0.`", ",", "0.`", ",", "220.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "275.`"}]}], "}"}]}]},
+ RowBox[{"220.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "220.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "236.3995995513219`", ",", "100.32418784623347`", ",",
+ "173.76659057776044`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.24218399603933`", ",", "0.`", ",",
- RowBox[{"-", "220.24218399603933`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"203.16792699223905`", ",",
- RowBox[{"-", "10.`"}], ",", "202.92167592035057`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"183.60040044867804`", ",",
+ RowBox[{"-", "100.32418784623347`"}], ",",
+ RowBox[{"-", "153.76659057776044`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {220., 0., 0., 220.}, $CellContext`p2 -> {
+ 220., 0., 0., -220.}, $CellContext`p3 -> {236.3995995513219,
+ 100.32418784623347`, 173.76659057776044`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 183.60040044867804`, -100.32418784623347`, -153.76659057776044`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283206234991*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225304998713`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"823b7c60-11f6-4059-a1aa-286115eda88c"],
+In[945]:=",ExpressionUUID->"952c9934-f158-4f6e-b5c2-4717a3fc8d42"],
Cell[BoxData[
InterpretationBox[
@@ -12217,85 +9764,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.296535748861395319313636941343275196935028569922347183292216922`43.\
-0713918107402*^-14", ",", "0``58.69897000433602", ",", "0``57.35606949931833",
- ",", "0``57.25963731050576"}], "}"}]}],
+ RowBox[{
+ "-", "3.145593940721862742396055947325994169345164469701867802343281091`\
+43.55321998743219*^-14"}], ",", "0``57.69756435165729", ",",
+ "0``57.45900372429748", ",", "0``57.35654732351381"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.145593940721862742396055947325994169345164469701867802343281091`43.\
+55321998743219*^-14, 0``57.69756435165729, 0``57.45900372429748,
+ 0``57.35654732351381}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283206476397*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222530548736*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1695ce35-2af0-4e26-a4da-71ecfe1a0edd"],
+In[945]:=",ExpressionUUID->"a5cd9247-4619-45a8-b53e-abccd71af58f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283208379487*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222253059848*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a9304af4-b410-4dcb-938a-f0f2bbccc457"],
+In[945]:=",ExpressionUUID->"51e51cfd-d8c7-4af4-8813-4c150b99d784"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "220.2421839960393299407`10."}], ",",
- RowBox[{"S", "\[Rule]", "302500.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "200.6483756924669421551`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "193600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
+ RowBox[{"-", "88390.8238025816410114201`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
+ RowBox[{"-", "88390.8238025816410114201`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
+ RowBox[{"-", "8800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79015.2803085370477062401`10."}], ",",
+ RowBox[{"-", "8800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32031.6476051632935734864`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "550.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "440.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "281.0965675858334768689`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "178.9738740854745357028`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04928009762705257927553130648701718556`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "203.1679269922390557158`10."}], ",",
+ "0.65244464008258735926527954035963336668`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "183.6004004486780571545`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "245.4253401838464308174`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "419.5235392680605873049`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802832105383787`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222530661786*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d8d3c756-21dd-40a5-9f00-742629a71380"],
+In[945]:=",ExpressionUUID->"834bdbb6-67e3-4ccb-9c99-cbb7bef4db3b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "263.4234234234234`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "204.94382022471913`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 263.4234234234234}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 204.94382022471913`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283456173863*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222542065527*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"81077897-3556-4138-8cf5-bfaaedb35dde"],
+In[945]:=",ExpressionUUID->"fc8e892c-8d3a-4df4-ae0f-738bf8db9925"],
Cell[BoxData[
InterpretationBox[
@@ -12306,58 +9851,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.5`", ",", "0.`", ",", "0.`", ",", "277.5`"}], "}"}]}]},
+ RowBox[{"222.5`", ",", "0.`", ",", "0.`", ",", "222.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "277.5`"}]}], "}"}]}]},
+ RowBox[{"222.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "222.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "238.69922854064924`", ",", "101.67635136291662`", ",",
+ "176.10860648879665`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"222.7436815471215`", ",", "0.`", ",",
- RowBox[{"-", "222.7436815471215`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.66642944115682`", ",",
- RowBox[{"-", "10.`"}], ",", "205.42317347143273`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"186.30077145935076`", ",",
+ RowBox[{"-", "101.67635136291662`"}], ",",
+ RowBox[{"-", "156.10860648879665`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {277.5, 0., 0., 277.5}, $CellContext`p2 -> {
- 277.5, 0., 0., -277.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {222.7436815471215,
- 0., -222.7436815471215, 0.}, $CellContext`p5 -> {
- 205.66642944115682`, -10., 205.42317347143273`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {222.5, 0., 0., 222.5}, $CellContext`p2 -> {
+ 222.5, 0., 0., -222.5}, $CellContext`p3 -> {238.69922854064924`,
+ 101.67635136291662`, 176.10860648879665`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 186.30077145935076`, -101.67635136291662`, -156.10860648879665`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283460990856*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225421574097`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cce03e5e-8645-4cf7-8b89-7342e8b76357"],
+In[945]:=",ExpressionUUID->"6d927d5c-0a20-44f0-9c49-4dc9b30600ce"],
Cell[BoxData[
InterpretationBox[
@@ -12365,86 +9908,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.469079683005335015974560638299794859440177529723308415962040483`\
-43.60489511934674*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.35116461085556", ",", "0``57.255707016877324"}], "}"}]}],
+ "9.79742412403745953309653629992620643070968674097370817436577669`43.\
+041721902133*^-15", ",", "0``57.69175005108769", ",", "0``57.45318942372786",
+ ",", "0``57.35163998901907"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.469079683005335015974560638299794859440177529723308415962040483`43.\
-60489511934674*^-14, 0``58.69897000433602, 0``57.35116461085556,
- 0``57.255707016877324}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 9.79742412403745953309653629992620643070968674097370817436577669`43.\
+041721902133*^-15, 0``57.69175005108769, 0``57.45318942372786,
+ 0``57.35163998901907}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802834612811337`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222542205102*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"605b7b69-f76e-43e1-8e1e-be7b20aa7500"],
+In[945]:=",ExpressionUUID->"48b15110-9274-492a-b1ed-5c26db27c93e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283461427597*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225422544947`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"571a5c8b-4997-4e73-b225-c1a36e174465"],
+In[945]:=",ExpressionUUID->"3d532098-9c56-4558-b90e-75977af46bd9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "222.743681547121497033`10."}], ",",
- RowBox[{"S", "\[Rule]", "308025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "203.3527027258332395832`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "198025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "54632.388401505503156432`10."}]}], ",",
+ RowBox[{"-", "90596.156700588919967607`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "54632.388401505503156432`10."}]}], ",",
+ RowBox[{"-", "90596.156700588919967607`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "123622.7432586524308533171`10."}]}], ",",
+ RowBox[{"-", "8900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "123622.7432586524308533171`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79735.2633203158864022914`10."}], ",",
+ RowBox[{"-", "8900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32217.3134011778362846787`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "555.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "445.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "282.3743319076928536014`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "179.4918198725998663015`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04867999958821907197903879551420982804`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "205.6664294411568309673`10."}], ",",
+ "0.65131803844660905703121462328541951148`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "186.3007714593507514433`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "246.5350147194006772568`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "424.5291509425471813177`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283463725691*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222542314279*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ed321a46-b9f9-4309-a422-013e483ae1f7"],
+In[945]:=",ExpressionUUID->"8256026b-5f35-4fa4-b780-8e19dcf0ef19"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "266.0491071428571`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "207.63888888888889`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 266.0491071428571}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 207.63888888888889`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283691815246*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222553763905*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8b4c520f-6698-42e5-b912-30fc755530b8"],
+In[945]:=",ExpressionUUID->"d1b1cbd9-1b20-4df7-b48d-5bcf0abe602d"],
Cell[BoxData[
InterpretationBox[
@@ -12455,58 +9994,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.`", ",", "0.`", ",", "0.`", ",", "280.`"}], "}"}]}]},
+ RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", "225.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "280.`"}]}], "}"}]}]},
+ RowBox[{"225.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "225.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "241.00333226161132`", ",", "103.02621773267306`", ",",
+ "178.44664362464337`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.24514310713178`", ",", "0.`", ",",
- RowBox[{"-", "225.24514310713178`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"208.16496788114657`", ",",
- RowBox[{"-", "10.`"}], ",", "207.92463503144302`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"188.99666773838868`", ",",
+ RowBox[{"-", "103.02621773267306`"}], ",",
+ RowBox[{"-", "158.44664362464337`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {225., 0., 0., 225.}, $CellContext`p2 -> {
+ 225., 0., 0., -225.}, $CellContext`p3 -> {241.00333226161132`,
+ 103.02621773267306`, 178.44664362464337`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 188.99666773838868`, -103.02621773267306`, -158.44664362464337`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283699288982*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225538781137`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a36cd784-ef4a-4156-9fc1-e6b6bc042dfb"],
+In[945]:=",ExpressionUUID->"54ac73ee-8eb0-4384-8bf2-9788c736ce59"],
Cell[BoxData[
InterpretationBox[
@@ -12514,86 +10051,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.581188361392918591372314708680722310835119713656294907194842683`\
-43.50480914172685*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.34631456914447", ",", "0``57.251811972993806"}], "}"}]}],
+ "2.32150336347326420648331353414509832837988993541028093814959846`43.\
+41152680778398*^-14", ",", "0``57.68602224790517", ",",
+ "0``57.447461620545354", ",", "0``57.346787486224656"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.32150336347326420648331353414509832837988993541028093814959846`43.\
+41152680778398*^-14, 0``57.68602224790517, 0``57.447461620545354,
+ 0``57.346787486224656}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283702494865*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225539274673`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4e0acf48-aa31-4178-a6bd-1a6db9ff167b"],
+In[945]:=",ExpressionUUID->"73940ca1-9c24-4f92-958e-8e78117cca62"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283704947053*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222553975162*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c1b12a9c-7b81-4b79-9ec9-e8c59560ca24"],
+In[945]:=",ExpressionUUID->"19f387bf-d40c-40a5-ace4-6a281c734553"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "225.2451431071317813348`10."}], ",",
- RowBox[{"S", "\[Rule]", "313600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "206.0524354653461216458`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "202500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55265.3378465641112929764`10."}]}], ",",
+ RowBox[{"-", "92826.4995177250981975535`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55265.3378465641112929764`10."}]}], ",",
+ RowBox[{"-", "92826.4995177250981975535`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "126137.2801399937975475041`10."}]}], ",",
+ RowBox[{"-", "9000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "126137.2801399937975475041`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "80455.2359731158325905201`10."}], ",",
+ RowBox[{"-", "9000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32402.999035450187619979`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "560.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "450.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "283.6463219805887639716`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "180.0083304612600078208`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04809434917843077601079596280528346878`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "208.1649678811465555444`10."}], ",",
+ "0.65022657076119530118127725230259336212`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "188.9966677383886938871`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "247.6397377643830023619`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "429.5346318982906178734`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802837140530167`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222554038951*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f2d3b2c8-3d4e-4181-b0f2-4312ad0ac44c"],
+In[945]:=",ExpressionUUID->"53b92845-5efb-4734-9802-80e8e5b30bb4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "268.6725663716814`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "210.32967032967034`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 268.6725663716814}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 210.32967032967034`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802839379621*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225654791*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"53c2c0fc-ff4e-4cf4-8f4b-3116d323fba2"],
+In[945]:=",ExpressionUUID->"b4fddcf3-f928-42b9-9de4-646ea79a0acd"],
Cell[BoxData[
InterpretationBox[
@@ -12604,58 +10137,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.5`", ",", "0.`", ",", "0.`", ",", "282.5`"}], "}"}]}]},
+ RowBox[{"227.5`", ",", "0.`", ",", "0.`", ",", "227.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "282.5`"}]}], "}"}]}]},
+ RowBox[{"227.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "227.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "243.31176253344725`", ",", "104.37386381074123`", ",",
+ "180.78083510247836`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"227.7465699581395`", ",", "0.`", ",",
- RowBox[{"-", "227.7465699581395`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.66354103013882`", ",",
- RowBox[{"-", "10.`"}], ",", "210.42606188245074`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"191.6882374665527`", ",",
+ RowBox[{"-", "104.37386381074123`"}], ",",
+ RowBox[{"-", "160.78083510247836`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {282.5, 0., 0., 282.5}, $CellContext`p2 -> {
- 282.5, 0., 0., -282.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {227.7465699581395,
- 0., -227.7465699581395, 0.}, $CellContext`p5 -> {
- 210.66354103013882`, -10., 210.42606188245074`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {227.5, 0., 0., 227.5}, $CellContext`p2 -> {
+ 227.5, 0., 0., -227.5}, $CellContext`p3 -> {243.31176253344725`,
+ 104.37386381074123`, 180.78083510247836`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 191.6882374665527, -104.37386381074123`, -160.78083510247836`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802839452813387`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225655699177`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"412a1fd0-27dd-4808-9561-7c7a3af84572"],
+In[945]:=",ExpressionUUID->"c3de7d0a-5c3f-4281-a2ff-d0a8ce3f7d88"],
Cell[BoxData[
InterpretationBox[
@@ -12664,85 +10195,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.516853602526724064126634197429946051891243853421661673272532949`\
-43.60175757122118*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.34151815945704", ",", "0``57.24795155218056"}], "}"}]}],
+ "-", "5.229240731645504485385582532515332254918328613953356761455980244`\
+43.75939724300994*^-14"}], ",", "0``57.680378243445915", ",",
+ "0``57.44181761608608", ",", "0``57.34198860334289"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.516853602526724064126634197429946051891243853421661673272532949`43.\
-60175757122118*^-14, 0``58.69897000433602, 0``57.34151815945704,
- 0``57.24795155218056}],
+{-5.229240731645504485385582532515332254918328613953356761455980244`43.\
+75939724300994*^-14, 0``57.680378243445915, 0``57.44181761608608,
+ 0``57.34198860334289}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802839472005367`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222565621666*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"aa0965a2-d587-44a8-8ccd-79f9f2cb4539"],
+In[945]:=",ExpressionUUID->"92ecadfb-3ed1-4575-a08d-089f3db30b68"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283948506864*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222565670157*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"eaef0f19-8033-4cbe-ba02-7ece0b9b5cb5"],
+In[945]:=",ExpressionUUID->"237c5a2e-2362-4260-a2c2-ccfd7400d3d3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "227.7465699581395028872`10."}], ",",
- RowBox[{"S", "\[Rule]", "319225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "208.7477276214824541967`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "207025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55898.2872916227194295209`10."}]}], ",",
+ RowBox[{"-", "95081.8519527185023090733`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55898.2872916227194295209`10."}]}], ",",
+ RowBox[{"-", "95081.8519527185023090733`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "128676.8120263488191312717`10."}]}], ",",
+ RowBox[{"-", "9100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "128676.8120263488191312717`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81175.1986359430961523126`10."}], ",",
+ RowBox[{"-", "9100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32588.7039054370246658254`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "565.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "455.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "284.9126157893733847643`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "180.523416501674443204`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04752263056458401304697157265273192746`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "210.6635410301388246354`10."}], ",",
+ "0.64916856380435826247486055019857956663`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "191.6882374665526898854`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "248.7395745499745186677`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "434.5399866525518667456`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780283950778818*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222565729661*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e6d2eb3c-1b41-4cef-a159-7af8a811726a"],
+In[945]:=",ExpressionUUID->"46839579-92e8-4eef-97f5-3149a0150d68"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "271.2938596491228`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "213.0163043478261`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 271.2938596491228}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 213.0163043478261}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802841934142027`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222577115704*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"62b99f91-dcc1-4604-ad21-d591a43ecd58"],
+In[945]:=",ExpressionUUID->"0759c978-15e9-41e7-83a5-4ff3d383f983"],
Cell[BoxData[
InterpretationBox[
@@ -12753,58 +10280,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", "285.`"}], "}"}]}]},
+ RowBox[{"230.`", ",", "0.`", ",", "0.`", ",", "230.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "285.`"}]}], "}"}]}]},
+ RowBox[{"230.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "230.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "245.6243776427976`", ",", "105.71936304718693`", ",",
+ "183.11130814154745`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.24796332203567`", ",", "0.`", ",",
- RowBox[{"-", "230.24796332203567`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"213.1621476662427`", ",",
- RowBox[{"-", "10.`"}], ",", "212.9274552463469`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"194.3756223572024`", ",",
+ RowBox[{"-", "105.71936304718693`"}], ",",
+ RowBox[{"-", "163.11130814154745`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {230., 0., 0., 230.}, $CellContext`p2 -> {
+ 230., 0., 0., -230.}, $CellContext`p3 -> {245.6243776427976,
+ 105.71936304718693`, 183.11130814154745`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 194.3756223572024, -105.71936304718693`, -163.11130814154745`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284202958434*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225772343483`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0fdd63cc-8334-4376-81d9-fc213058c2be"],
+In[945]:=",ExpressionUUID->"0f61eabc-2f56-43fb-a1cb-09f892393fd0"],
Cell[BoxData[
InterpretationBox[
@@ -12812,85 +10337,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "9.71399158215401782909042014500412701318371795596477035166766863`42.\
-93049287145448*^-15", ",", "0``58.69897000433602", ",",
- "0``57.336774207038964", ",", "0``57.24412514432751"}], "}"}]}],
+ RowBox[{
+ "-", "2.47358688148357760873054724442298362422461992979040754218501468`\
+42.42953934164462*^-15"}], ",", "0``57.674815466466626", ",",
+ "0``57.4362548391068", ",", "0``57.33724216831843"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.47358688148357760873054724442298362422461992979040754218501468`42.\
+42953934164462*^-15, 0``57.674815466466626, 0``57.4362548391068,
+ 0``57.33724216831843}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802842036845217`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222577283049*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9d7fa61e-35aa-439a-b8c3-e9c30ec76338"],
+In[945]:=",ExpressionUUID->"0ab3bc74-7f72-48fe-bb8a-21a382f9cfd8"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802842057195683`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822225773348207`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"aa5223f5-30dc-4507-842a-a2fb9eb19b97"],
+In[945]:=",ExpressionUUID->"8c66019e-a426-46de-a320-30d6ab0268be"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "230.2479633220356731726`10."}], ",",
- RowBox[{"S", "\[Rule]", "324900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "211.4387260943738624519`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "211600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
+ RowBox[{"-", "97362.2137156869006918587`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
+ RowBox[{"-", "97362.2137156869006918587`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
+ RowBox[{"-", "9200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81895.1516604833184076405`10."}], ",",
+ RowBox[{"-", "9200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32774.4274313738023453274`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "570.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "460.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "286.1732895650523817552`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "181.037088551969931268`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04696435219418030152714364954892959178`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "213.1621476662427092325`10."}], ",",
+ "0.64814245101537669640473578367388770591`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "194.3756223572023873267`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "249.8345889040973829582`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "439.5452195167182088679`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284211528803*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222577395204*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"63ec9a35-648b-4cd3-beb5-047bf515cc9b"],
+In[945]:=",ExpressionUUID->"54007b3c-da38-4b55-995a-b6628055361b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "273.9130434782609`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "215.69892473118279`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 273.9130434782609}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 215.69892473118279`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284442792886*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222588829451*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5fe6b30b-0cec-42a3-8f7d-b34114c86f30"],
+In[945]:=",ExpressionUUID->"9139ebd3-7f2f-4a36-9ed6-6153b6641d05"],
Cell[BoxData[
InterpretationBox[
@@ -12901,58 +10424,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.5`", ",", "0.`", ",", "0.`", ",", "287.5`"}], "}"}]}]},
+ RowBox[{"232.5`", ",", "0.`", ",", "0.`", ",", "232.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "287.5`"}]}], "}"}]}]},
+ RowBox[{"232.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "232.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "247.94104199497193`", ",", "107.06278567451955`", ",",
+ "185.4381843881252`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"232.74932436402273`", ",", "0.`", ",",
- RowBox[{"-", "232.74932436402273`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.66078662425568`", ",",
- RowBox[{"-", "10.`"}], ",", "215.42881628833396`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"197.05895800502807`", ",",
+ RowBox[{"-", "107.06278567451955`"}], ",",
+ RowBox[{"-", "165.4381843881252`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {287.5, 0., 0., 287.5}, $CellContext`p2 -> {
- 287.5, 0., 0., -287.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {232.74932436402273`,
- 0., -232.74932436402273`, 0.}, $CellContext`p5 -> {
- 215.66078662425568`, -10., 215.42881628833396`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {232.5, 0., 0., 232.5}, $CellContext`p2 -> {
+ 232.5, 0., 0., -232.5}, $CellContext`p3 -> {247.94104199497193`,
+ 107.06278567451955`, 185.4381843881252, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 197.05895800502807`, -107.06278567451955`, -165.4381843881252, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802844486745853`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222588934978*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9409403f-d6be-405c-ad52-c7786728120e"],
+In[945]:=",ExpressionUUID->"81c2eab9-9fea-4bc2-8f74-32f28c8ef387"],
Cell[BoxData[
InterpretationBox[
@@ -12960,85 +10481,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.015997771698733732627085865485737162657050412902261647465031994`43.\
-54309562281243*^-14", ",", "0``58.69897000433602", ",", "0``57.3320815753718",
- ",", "0``57.24033215531037"}], "}"}]}],
+ "8.41082454277390008967432069512333847125348227795658601712449493`42.\
+95635562474976*^-15", ",", "0``57.66933146520143", ",", "0``57.4307708378416",
+ ",", "0``57.33254704711005"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.015997771698733732627085865485737162657050412902261647465031994`43.\
-54309562281243*^-14, 0``58.69897000433602, 0``57.3320815753718,
- 0``57.24033215531037}],
+ 8.41082454277390008967432069512333847125348227795658601712449493`42.\
+95635562474976*^-15, 0``57.66933146520143, 0``57.4307708378416,
+ 0``57.33254704711005}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284453092211*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222258898615*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f5b7d243-4034-45a9-8676-688c8c54f8fa"],
+In[945]:=",ExpressionUUID->"9ed62661-a10f-4c2c-98b1-214623281309"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802844538111897`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222258903615*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"dddd76e5-3657-4368-8b80-8697fbf9a512"],
+In[945]:=",ExpressionUUID->"e567893c-04a8-457e-a0a7-7b53c5c8e892"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "232.7493243640227262858`10."}], ",",
- RowBox[{"S", "\[Rule]", "330625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "214.1255713490390917286`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "216225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57164.1861817399357026097`10."}]}], ",",
+ RowBox[{"-", "99667.5845276619442498596`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57164.1861817399357026097`10."}]}], ",",
+ RowBox[{"-", "99667.5845276619442498596`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "133830.8615093130676143574`10."}]}], ",",
+ RowBox[{"-", "9300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "133830.8615093130676143574`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "82615.0953821059893120693`10."}], ",",
+ RowBox[{"-", "9300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "32960.1690553238851848626`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "575.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "465.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "287.4284178401745809395`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "181.5493570776935722742`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04641904538256299535196047831059520096`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "215.6607866242556865652`10."}], ",",
+ "0.64714676403450834805640474675291853879`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "197.0589580050280852928`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "250.9248432925163595206`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "444.5503346079046733053`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802844541711693`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222589100913*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fbae8cc0-4419-48de-a4dc-06c8e6f0ff81"],
+In[945]:=",ExpressionUUID->"805b7e34-cc4d-4249-8039-e6a65efbc963"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "276.5301724137931`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "218.37765957446808`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 276.5301724137931}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 218.37765957446808`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284683071102*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226004362307`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"40a4f949-880e-45ed-9c2b-bbaeced2a95c"],
+In[945]:=",ExpressionUUID->"988cfefd-b073-4fcf-acf0-8a79a9c7fed7"],
Cell[BoxData[
InterpretationBox[
@@ -13049,58 +10567,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.`", ",", "0.`", ",", "0.`", ",", "290.`"}], "}"}]}]},
+ RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", "235.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "290.`"}]}], "}"}]}]},
+ RowBox[{"235.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "235.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "250.26162578751362`", ",", "108.40419888294169`", ",",
+ "187.76158021905633`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.25065419586443`", ",", "0.`", ",",
- RowBox[{"-", "235.25065419586443`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"218.15945679241392`", ",",
- RowBox[{"-", "10.`"}], ",", "217.93014612017566`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"199.73837421248638`", ",",
+ RowBox[{"-", "108.40419888294169`"}], ",",
+ RowBox[{"-", "167.76158021905633`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {235., 0., 0., 235.}, $CellContext`p2 -> {
+ 235., 0., 0., -235.}, $CellContext`p3 -> {250.26162578751362`,
+ 108.40419888294169`, 187.76158021905633`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 199.73837421248638`, -108.40419888294169`, -167.76158021905633`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284688037285*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222600542844*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fee65f95-46c5-4e9d-b91f-e4c514b9c5cc"],
+In[945]:=",ExpressionUUID->"73c6deb0-81bf-4233-9672-9415453c51ac"],
Cell[BoxData[
InterpretationBox[
@@ -13108,87 +10624,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.426623585426426816243667421403196156521471276926899151949872381`\
-43.4704084105777*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.32743916452893", ",", "0``57.23657200643707"}], "}"}]}],
+ "7.70431522408445297732303264497808586689289269665980883647839564`42.\
+913606190153295*^-15", ",", "0``57.66392390002688", ",",
+ "0``57.42536327266704", ",", "0``57.32790214206428"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 7.70431522408445297732303264497808586689289269665980883647839564`42.\
+913606190153295*^-15, 0``57.66392390002688, 0``57.42536327266704,
+ 0``57.32790214206428}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284689170611*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226005913982`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"99032320-9f84-48e7-b32c-eb0b88a0fdf2"],
+In[945]:=",ExpressionUUID->"acfc28b0-aded-47c0-9781-93d3fd2e5869"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802846896253233`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226006411743`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"15908c11-bc31-4338-8efd-77adb8a740a5"],
+In[945]:=",ExpressionUUID->"6d0b7dea-01ed-4811-86c7-d672fb9f947b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "235.2506541958644277202`10."}], ",",
- RowBox[{"S", "\[Rule]", "336400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "216.8083977658833703117`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "220900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57797.1356267985438391541`10."}]}], ",",
+ RowBox[{"-", "101997.9641201314005334882`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57797.1356267985438391541`10."}]}], ",",
+ RowBox[{"-", "101997.9641201314005334882`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "136445.3794336013680776887`10."}]}], ",",
+ RowBox[{"-", "9400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "136445.3794336013680776887`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83335.0301207998387846924`10."}], ",",
+ RowBox[{"-", "9400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "33145.9282402627979892815`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "580.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "470.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "288.6780735019544895132`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "182.0602324514137216564`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04588626299771114868439965312912250832`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "218.1594567924139107047`10."}], ",",
+ "0.64618012504049996088121230953690055482`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "199.738374212486389548`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "252.0103988584543314779`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "449.5553358597804552744`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284690771995*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226007017593`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8b4abb45-ed33-49c6-bee4-6ea34ff9f65e"],
+In[945]:=",ExpressionUUID->"3b70f8e5-acdc-415d-bf29-f37ff2d6526b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "279.14529914529913`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "221.05263157894737`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 279.14529914529913`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 221.05263157894737`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802849273711653`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222612570931*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6fc29962-73bf-4fb3-9aa3-9718ec9f5bbb"],
+In[945]:=",ExpressionUUID->"c1eb45b2-77c9-4f18-b698-8ef94ff35ca9"],
Cell[BoxData[
InterpretationBox[
@@ -13199,58 +10710,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"292.5`", ",", "0.`", ",", "0.`", ",", "292.5`"}], "}"}]}]},
+ RowBox[{"237.5`", ",", "0.`", ",", "0.`", ",", "237.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"292.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "292.5`"}]}], "}"}]}]},
+ RowBox[{"237.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "237.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "252.5860047044186`", ",", "109.74366698418248`", ",",
+ "190.0816070255232`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"237.7519538789148`", ",", "0.`", ",",
- RowBox[{"-", "237.7519538789148`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.65815710936357`", ",",
- RowBox[{"-", "10.`"}], ",", "220.43144580322604`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"202.4139952955814`", ",",
+ RowBox[{"-", "109.74366698418248`"}], ",",
+ RowBox[{"-", "170.0816070255232`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {292.5, 0., 0., 292.5}, $CellContext`p2 -> {
- 292.5, 0., 0., -292.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {237.7519538789148,
- 0., -237.7519538789148, 0.}, $CellContext`p5 -> {
- 220.65815710936357`, -10., 220.43144580322604`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {237.5, 0., 0., 237.5}, $CellContext`p2 -> {
+ 237.5, 0., 0., -237.5}, $CellContext`p3 -> {252.5860047044186,
+ 109.74366698418248`, 190.0816070255232, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 202.4139952955814, -109.74366698418248`, -170.0816070255232, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284932697728*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222612695468*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"38afbb7c-0048-4201-a587-b217141d7096"],
+In[945]:=",ExpressionUUID->"06cbb60c-19e0-4b37-9c36-513a523e6a55"],
Cell[BoxData[
InterpretationBox[
@@ -13258,87 +10767,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.55999004670895001666843818129173657722765845162962078673209369`\
-42.12493596566396*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.32284590961891", ",", "0``57.23284413391782"}], "}"}]}],
+ "2.31307129309957047938598152521542751187333230649169365261125425`42.\
+38646541344052*^-15", ",", "0``57.65859053668091", ",",
+ "0``57.42002990932108", ",", "0``57.32330639037513"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.55999004670895001666843818129173657722765845162962078673209369`42.\
-12493596566396*^-15, 0``58.69897000433602, 0``57.32284590961891,
- 0``57.23284413391782}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.31307129309957047938598152521542751187333230649169365261125425`42.\
+38646541344052*^-15, 0``57.65859053668091, 0``57.42002990932108,
+ 0``57.32330639037513}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284934514073*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226127496147`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"740cbb10-4c21-4dca-a27d-1c414bd046b4"],
+In[945]:=",ExpressionUUID->"e9bf4be3-8b4c-4b85-8acf-9d8bc76a7534"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802849359547853`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222612802127*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7237268f-03a9-4b43-80e1-1c3fccb57e5f"],
+In[945]:=",ExpressionUUID->"dc0c164c-3fbd-41b4-9838-521f79cd4eeb"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "237.7519538789148043634`10."}], ",",
- RowBox[{"S", "\[Rule]", "342225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "219.4873339683649646759`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "225625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "58430.0850718571519756985`10."}]}], ",",
+ RowBox[{"-", "104353.3522345988366376395`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "58430.0850718571519756985`10."}]}], ",",
+ RowBox[{"-", "104353.3522345988366376395`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "139084.8930191651605525749`10."}]}], ",",
+ RowBox[{"-", "9500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "139084.8930191651605525749`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "84054.9561820446257449959`10."}], ",",
+ RowBox[{"-", "9500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "33331.7044691976723388829`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "585.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "475.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "289.9223278432425696451`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "182.5697249524073537839`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04536557823481666434209128571266135649`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "220.6581571093635667678`10."}], ",",
+ "0.64524123979916216269246029887776982887`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "202.4139952955813988654`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "253.0913154607832011128`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "454.5602270326782583904`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780284939517272*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222612862051*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"86de8a66-8b2a-4428-be15-6957f3a158a3"],
+In[945]:=",ExpressionUUID->"87dca45f-b5d8-4232-9651-8f0d3c49df93"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "281.75847457627117`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "223.72395833333334`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 281.75847457627117`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 223.72395833333334`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802851715005093`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222625234859*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"24a1cb5c-5da7-42b1-a92e-4b960df4b34e"],
+In[945]:=",ExpressionUUID->"0e16592f-5756-4adf-8ecf-b38ae5a74b70"],
Cell[BoxData[
InterpretationBox[
@@ -13349,58 +10853,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", "295.`"}], "}"}]}]},
+ RowBox[{"240.`", ",", "0.`", ",", "0.`", ",", "240.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"295.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "295.`"}]}], "}"}]}]},
+ RowBox[{"240.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "240.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "254.9140596295018`", ",", "111.08125156478162`", ",",
+ "192.39837147854163`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.25322442694286`", ",", "0.`", ",",
- RowBox[{"-", "240.25322442694286`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"223.1568865613354`", ",",
- RowBox[{"-", "10.`"}], ",", "222.9327163512541`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"205.08594037049818`", ",",
+ RowBox[{"-", "111.08125156478162`"}], ",",
+ RowBox[{"-", "172.39837147854163`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {240., 0., 0., 240.}, $CellContext`p2 -> {
+ 240., 0., 0., -240.}, $CellContext`p3 -> {254.9140596295018,
+ 111.08125156478162`, 192.39837147854163`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 205.08594037049818`, -111.08125156478162`, -172.39837147854163`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285175226573*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226253769608`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"06ad49cf-0f50-4db0-9954-64898b44bde4"],
+In[945]:=",ExpressionUUID->"b1a12ae3-025b-4c8c-af94-4b4a9b20c04d"],
Cell[BoxData[
InterpretationBox[
@@ -13409,85 +10911,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.1409643732876621471598784630089027144651248928891282713496134874`\
-43.98539007644063*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.31830077931102", ",", "0``57.22914798835786"}], "}"}]}],
+ "-", "1.910052656237176493640142866794702898910427498777592640972619359`\
+43.298774106981995*^-14"}], ",", "0``57.65332923998614", ",",
+ "0``57.41476861262631", ",", "0``57.31875876262442"}], "}"}]}],
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}],
+{-1.910052656237176493640142866794702898910427498777592640972619359`43.\
+298774106981995*^-14, 0``57.65332923998614, 0``57.41476861262631,
+ 0``57.31875876262442}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802851765499477`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222625444435*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3c654a19-811b-49cf-ac74-a04ea22832da"],
+In[945]:=",ExpressionUUID->"baf4fe41-c8c2-4c85-9b3b-767a1a888186"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285179461446*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222625535839*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"132ba350-f60a-49c2-a144-6074e32bd9c3"],
+In[945]:=",ExpressionUUID->"bd8ec186-ae96-4b93-b74f-ef54608c3659"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "240.2532244269428645111`10."}], ",",
- RowBox[{"S", "\[Rule]", "348100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "222.1625031295632481942`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "230400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
+ RowBox[{"-", "106733.7486221608646403937`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
+ RowBox[{"-", "106733.7486221608646403937`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
+ RowBox[{"-", "9600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "84774.8738576241512704514`10."}], ",",
+ RowBox[{"-", "9600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "33517.4972443217371152864`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "590.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "480.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "291.1612506114509586983`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "183.0778447664319023985`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0448565834735711985888757108094605926`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "223.1568865613353940836`10."}], ",",
+ "0.64432889134691086147268945204777477668`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "205.0859403704981795653`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "254.1676517108487983032`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "459.5650117230422736694`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028518210004*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222625620306*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"49e32c4e-7804-42d6-865a-347c9e382c60"],
+In[945]:=",ExpressionUUID->"558f4aeb-7d17-4968-bc87-8f133ea46997"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "284.3697478991597`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "226.39175257731958`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 284.3697478991597}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 226.39175257731958`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802854132651043`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226374794827`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2d0c7a73-f2c4-4ad4-bd4d-ae76eb12761d"],
+In[945]:=",ExpressionUUID->"df841c41-901b-42d8-aafc-a65990cdf190"],
Cell[BoxData[
InterpretationBox[
@@ -13498,58 +10997,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"297.5`", ",", "0.`", ",", "0.`", ",", "297.5`"}], "}"}]}]},
+ RowBox[{"242.5`", ",", "0.`", ",", "0.`", ",", "242.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"297.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "297.5`"}]}], "}"}]}]},
+ RowBox[{"242.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "242.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "257.24567637752926`", ",", "112.4170116296156`", ",",
+ "194.71197577755558`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.75446680877033`", ",", "0.`", ",",
- RowBox[{"-", "242.75446680877033`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.655644179508`", ",",
- RowBox[{"-", "10.`"}], ",", "225.43395873308157`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"207.7543236224707`", ",",
+ RowBox[{"-", "112.4170116296156`"}], ",",
+ RowBox[{"-", "174.71197577755558`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {297.5, 0., 0., 297.5}, $CellContext`p2 -> {
- 297.5, 0., 0., -297.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {242.75446680877033`,
- 0., -242.75446680877033`, 0.}, $CellContext`p5 -> {
- 225.655644179508, -10., 225.43395873308157`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {242.5, 0., 0., 242.5}, $CellContext`p2 -> {
+ 242.5, 0., 0., -242.5}, $CellContext`p3 -> {257.24567637752926`,
+ 112.4170116296156, 194.71197577755558`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 207.7543236224707, -112.4170116296156, -174.71197577755558`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802854236562433`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226375971003`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"49fc231c-4e4b-40b3-a57e-435849dc5a97"],
+In[945]:=",ExpressionUUID->"e44671b4-d90f-49fd-b6f0-2c462b834370"],
Cell[BoxData[
InterpretationBox[
@@ -13558,85 +11055,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.928850803011542328399315682621935027710738493518025971583980282`\
-43.61719871080774*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.313802774437534", ",", "0``57.22548303427145"}], "}"}]}],
+ "-", "1.971249556767200330642534310603951030550449365759493828439095291`\
+43.3079698744202*^-14"}], ",", "0``57.648137968033225", ",",
+ "0``57.4095773406734", ",", "0``57.31425826139774"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.928850803011542328399315682621935027710738493518025971583980282`43.\
-61719871080774*^-14, 0``58.69897000433602, 0``57.313802774437534,
- 0``57.22548303427145}],
+{-1.971249556767200330642534310603951030550449365759493828439095291`43.\
+3079698744202*^-14, 0``57.648137968033225, 0``57.4095773406734,
+ 0``57.31425826139774}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285425124621*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222637650147*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0fcaf768-0e9c-4943-8fed-ee75ebf22bd7"],
+In[945]:=",ExpressionUUID->"210912e4-d8e6-4cf2-9b6f-767a6698c3dc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285425476*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222637700762*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2eb8b654-1234-4a8b-a404-e0883e620f7a"],
+In[945]:=",ExpressionUUID->"c67cf293-1547-4936-8bc6-6cbd02111dcd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "242.7544668087703314541`10."}], ",",
- RowBox[{"S", "\[Rule]", "354025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "224.8340232592312020188`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "235225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59695.9839619743682487874`10."}]}], ",",
+ RowBox[{"-", "109139.1530431016926099165`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59695.9839619743682487874`10."}]}], ",",
+ RowBox[{"-", "109139.1530431016926099165`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "144438.9077512183472151719`10."}]}], ",",
+ RowBox[{"-", "9700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "144438.9077512183472151719`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85494.7834263854531723787`10."}], ",",
+ RowBox[{"-", "9700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "33703.3060862033934105454`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "595.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "485.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "292.3949100555367963986`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "183.5846019855788270585`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04435888921171900979758526399018393146`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "225.6556441795079919485`10."}], ",",
+ "0.64344193424236512513813433161041820338`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "207.7543236224707171743`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "255.2394650079867073971`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "464.5696933722646329932`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802854259835978`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222637766489*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"30dfb2d1-c846-4e22-8b27-2f5c228c4eb7"],
+In[945]:=",ExpressionUUID->"415ccf06-c7a1-489b-986a-7375a5b1ffa7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "286.9791666666667`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "229.0561224489796`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 286.9791666666667}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 229.0561224489796}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285658209208*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222649496813*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"791a22e1-519e-4a93-9f68-dd22af54596e"],
+In[945]:=",ExpressionUUID->"e85e736e-71d7-46aa-8135-135b5b9c538e"],
Cell[BoxData[
InterpretationBox[
@@ -13647,58 +11140,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"300.`", ",", "0.`", ",", "0.`", ",", "300.`"}], "}"}]}]},
+ RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", "245.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"300.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "300.`"}]}], "}"}]}]},
+ RowBox[{"245.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "245.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "259.5807454418461`", ",", "113.75100373638963`", ",",
+ "197.02251788338404`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.25568195073484`", ",", "0.`", ",",
- RowBox[{"-", "245.25568195073484`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"228.1544290375435`", ",",
- RowBox[{"-", "10.`"}], ",", "227.93517387504608`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"210.41925455815385`", ",",
+ RowBox[{"-", "113.75100373638963`"}], ",",
+ RowBox[{"-", "177.02251788338404`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {245., 0., 0., 245.}, $CellContext`p2 -> {
+ 245., 0., 0., -245.}, $CellContext`p3 -> {259.5807454418461,
+ 113.75100373638963`, 197.02251788338404`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 210.41925455815385`, -113.75100373638963`, -177.02251788338404`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285666686825*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222649594401*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1f6e197a-c720-4c82-863b-634493cd0835"],
+In[945]:=",ExpressionUUID->"9c0368bc-01de-4ad1-8cef-ef2541fe4675"],
Cell[BoxData[
InterpretationBox[
@@ -13707,86 +11198,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.095749349250547280307915504636423438775091921353455234927449683`\
-42.96052997535734*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30935092666827", ",", "0``57.22184874961636"}], "}"}]}],
+ "-", "2.514839097197331989540050379859341374774612569208008073626952228`\
+43.4092841278407*^-14"}], ",", "0``57.64301476678488", ",",
+ "0``57.40445413942504", ",", "0``57.309803919971486"}], "}"}]}],
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}],
+{-2.514839097197331989540050379859341374774612569208008073626952228`43.\
+4092841278407*^-14, 0``57.64301476678488, 0``57.40445413942504,
+ 0``57.309803919971486}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285668361739*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222649644446*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"108031df-86ea-4750-bf92-039a47378fe9"],
+In[945]:=",ExpressionUUID->"5060f31a-372b-494d-9429-13f6b848d2d4"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802856684733467`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226496968412`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c51e0ebb-dd40-41dc-b6c1-d23436879405"],
+In[945]:=",ExpressionUUID->"8d667221-a4da-460f-a26a-25c36961535a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "245.2556819507348393472`10."}], ",",
- RowBox[{"S", "\[Rule]", "360000.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "227.5020074727792689373`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "240100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60328.9334070329763853319`10."}]}], ",",
+ RowBox[{"-", "111569.5652665045979702145`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60328.9334070329763853319`10."}]}], ",",
+ RowBox[{"-", "111569.5652665045979702145`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "147153.4091704409036083234`10."}]}], ",",
+ RowBox[{"-", "9800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "147153.4091704409036083234`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86214.6851549477649873119`10."}], ",",
+ RowBox[{"-", "9800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "33889.1305330092065238404`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "600.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "490.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "293.6233729711375769573`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "184.0900066082056680304`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04387212306900028668822935182400073271`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "228.1544290375435223864`10."}], ",",
+ "0.6425792893270483933125462279631391215`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "210.4192545581538565451`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "256.3068115737819891175`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "469.5742752749558110747`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802856696635513`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222649751933*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f0fb42c0-400e-4da5-a7e7-b5d5f3b5369b"],
+In[945]:=",ExpressionUUID->"bbff6f69-49bc-4c0b-a04f-d7a71514b188"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "289.58677685950414`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "231.7171717171717`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 289.58677685950414`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 231.7171717171717}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285906287002*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222662029216*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a90e2265-3175-4bff-b282-93e4609078af"],
+In[945]:=",ExpressionUUID->"65dc8ebb-9c7b-4741-8d75-f3e035e2e130"],
Cell[BoxData[
InterpretationBox[
@@ -13797,58 +11283,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"302.5`", ",", "0.`", ",", "0.`", ",", "302.5`"}], "}"}]}]},
+ RowBox[{"247.5`", ",", "0.`", ",", "0.`", ",", "247.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"302.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "302.5`"}]}], "}"}]}]},
+ RowBox[{"247.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "247.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "261.91916175733337`", ",", "115.08328212175755`", ",",
+ "199.3300917366671`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.75687073899374`", ",", "0.`", ",",
- RowBox[{"-", "247.75687073899374`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.65324024928464`", ",",
- RowBox[{"-", "10.`"}], ",", "230.43636266330498`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"213.08083824266666`", ",",
+ RowBox[{"-", "115.08328212175755`"}], ",",
+ RowBox[{"-", "179.3300917366671`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {302.5, 0., 0., 302.5}, $CellContext`p2 -> {
- 302.5, 0., 0., -302.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {247.75687073899374`,
- 0., -247.75687073899374`, 0.}, $CellContext`p5 -> {
- 230.65324024928464`, -10., 230.43636266330498`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {247.5, 0., 0., 247.5}, $CellContext`p2 -> {
+ 247.5, 0., 0., -247.5}, $CellContext`p3 -> {261.91916175733337`,
+ 115.08328212175755`, 199.3300917366671, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 213.08083824266666`, -115.08328212175755`, -179.3300917366671, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285906829988*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222662121616*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"99d350cd-b738-4eb8-939a-6f5ce496ac09"],
+In[945]:=",ExpressionUUID->"c891ac46-a391-4751-a28d-798e8560c6bc"],
Cell[BoxData[
InterpretationBox[
@@ -13856,87 +11340,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.0644601207053569439990343049675417355896977107586409871580005`42.\
-94434402520704*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.304944297252746", ",", "0``57.21824462534753"}], "}"}]}],
+ "3.732584195782736598715100783290045706748667986686607298714456727`43.\
+57637441827679*^-14", ",", "0``57.63795776506419", ",",
+ "0``57.399397137704355", ",", "0``57.305394801066434"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0644601207053569439990343049675417355896977107586409871580005`42.\
-94434402520704*^-14, 0``58.69897000433602, 0``57.304944297252746,
- 0``57.21824462534753}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.732584195782736598715100783290045706748667986686607298714456727`43.\
+57637441827679*^-14, 0``57.63795776506419, 0``57.399397137704355,
+ 0``57.305394801066434}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802859115398197`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222662186252*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"881d6b69-e0fe-4678-97c4-aa67e1a6cb2c"],
+In[945]:=",ExpressionUUID->"0b91a459-88d8-4fda-a71c-f6ddcf0c565a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285911679452*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222662263826*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"87d32be3-9faf-441c-813a-e750b86f2a83"],
+In[945]:=",ExpressionUUID->"99784b7b-7ba6-48df-b801-cb4664bb57f3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "247.7568707389937401331`10."}], ",",
- RowBox[{"S", "\[Rule]", "366025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "230.1665642435150971323`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "245025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60961.8828520915845218763`10."}]}], ",",
+ RowBox[{"-", "114024.9850698800173264687`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60961.8828520915845218763`10."}]}], ",",
+ RowBox[{"-", "114024.9850698800173264687`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "149892.906797091212780515`10."}]}], ",",
+ RowBox[{"-", "9900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "149892.906797091212780515`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86934.579298365599515206`10."}], ",",
+ RowBox[{"-", "9900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "34074.970139760018746094`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "605.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "495.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "294.846704743949274335`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "184.5940685389430890478`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04339592885612065353458615128968777485`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "230.6532402492846219134`10."}], ",",
+ "0.64173993894314618168525473543459472542`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "213.0808382426666689895`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "257.3697464851251059598`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "474.5787605866912745056`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780285912393827*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222266234035*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1794987d-5317-4912-84e5-b2374ed1e571"],
+In[945]:=",ExpressionUUID->"2932ff90-8638-4e72-9c64-c71a73d9a95e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "292.19262295081967`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "234.375`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 292.19262295081967`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 234.375}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028615548582*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222673752015*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"98626f39-558f-4556-be83-662c0efa85bf"],
+In[945]:=",ExpressionUUID->"554d1c37-ffc9-400a-8c6f-88514c78675b"],
Cell[BoxData[
InterpretationBox[
@@ -13947,58 +11425,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", "305.`"}], "}"}]}]},
+ RowBox[{"250.`", ",", "0.`", ",", "0.`", ",", "250.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"305.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "305.`"}]}], "}"}]}]},
+ RowBox[{"250.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "250.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "264.2608244776192`", ",", "116.41389881967604`", ",",
+ "201.63478746286145`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.25803402167924`", ",", "0.`", ",",
- RowBox[{"-", "250.25803402167924`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"233.15207696659917`", ",",
- RowBox[{"-", "10.`"}], ",", "232.93752594599047`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"215.73917552238078`", ",",
+ RowBox[{"-", "116.41389881967604`"}], ",",
+ RowBox[{"-", "181.63478746286145`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {250., 0., 0., 250.}, $CellContext`p2 -> {
+ 250., 0., 0., -250.}, $CellContext`p3 -> {264.2608244776192,
+ 116.41389881967604`, 201.63478746286145`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 215.73917552238078`, -116.41389881967604`, -181.63478746286145`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802861566883497`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222673897057*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5f27f16f-5b02-4c04-b0cb-7cf279e7e1cd"],
+In[945]:=",ExpressionUUID->"7c85e190-6f5f-40c4-9121-6577a368c33d"],
Cell[BoxData[
InterpretationBox[
@@ -14006,85 +11482,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.77721954393205063200975424068012008067495019812978549751405131`43.\
-35725038215058*^-14", ",", "0``58.69897000433602", ",",
- "0``57.300581975825914", ",", "0``57.214670164989236"}], "}"}]}],
+ "1.17976539639747624020552081481028510604836873229421132843802948`42.\
+071795653763935*^-15", ",", "0``57.632965169895506", ",",
+ "0``57.39440454253567", ",", "0``57.30102999566398"}], "}"}]}],
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}],
+ 1.17976539639747624020552081481028510604836873229421132843802948`42.\
+071795653763935*^-15, 0``57.632965169895506, 0``57.39440454253567,
+ 0``57.30102999566398}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286158436152*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222673951056*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"fcf8b532-9f15-4383-a3d7-943caca2ea59"],
+In[945]:=",ExpressionUUID->"d32671d8-4fd2-4951-ac08-36ca1c347419"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802861590567007`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222674036255*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f9998155-461f-4c55-895e-73c2a08b8a32"],
+In[945]:=",ExpressionUUID->"a4993675-ee4e-4c80-a942-b9d091269c0b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "250.2580340216792365027`10."}], ",",
- RowBox[{"S", "\[Rule]", "372100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "232.8277976393520702914`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "250000.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
+ RowBox[{"-", "116505.412238809613761838`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
+ RowBox[{"-", "116505.412238809613761838`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
+ RowBox[{"-", "10000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "87654.4661007490408998181`10."}], ",",
+ RowBox[{"-", "10000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "34260.8244776192270146328`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "610.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "500.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "296.0649693914311114372`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "185.096797588773066851`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0429299657038455347324843500837582055`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "233.1520769665991639606`10."}], ",",
+ "0.64092292256228165837681811255047823831`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "215.7391755223807736561`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "258.4283237061126615557`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "479.5831523312719553405`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802861630379267`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222674094081*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c4ae2f5c-7621-4352-b6a0-59bb950e4c17"],
+In[945]:=",ExpressionUUID->"f8514ed3-b7e9-4324-a2dd-73c4982689b2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "294.7967479674797`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "237.02970297029702`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 294.7967479674797}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 237.02970297029702`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286406751954*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222685421728*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c82a552a-7b0f-4a1c-94ca-27e75449f73a"],
+In[945]:=",ExpressionUUID->"ef8f28fe-f874-4401-93d0-67720f0a9f4e"],
Cell[BoxData[
InterpretationBox[
@@ -14095,58 +11568,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"307.5`", ",", "0.`", ",", "0.`", ",", "307.5`"}], "}"}]}]},
+ RowBox[{"252.5`", ",", "0.`", ",", "0.`", ",", "252.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"307.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "307.5`"}]}], "}"}]}]},
+ RowBox[{"252.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "252.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "266.6056367655567`", ",", "117.74290377255011`", ",",
+ "203.93669156475002`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.75917261091618`", ",", "0.`", ",",
- RowBox[{"-", "252.75917261091618`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.6509383773622`", ",",
- RowBox[{"-", "10.`"}], ",", "235.43866453522742`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"218.39436323444335`", ",",
+ RowBox[{"-", "117.74290377255011`"}], ",",
+ RowBox[{"-", "183.93669156475002`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {307.5, 0., 0., 307.5}, $CellContext`p2 -> {
- 307.5, 0., 0., -307.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {252.75917261091618`,
- 0., -252.75917261091618`, 0.}, $CellContext`p5 -> {
- 235.6509383773622, -10., 235.43866453522742`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {252.5, 0., 0., 252.5}, $CellContext`p2 -> {
+ 252.5, 0., 0., -252.5}, $CellContext`p3 -> {266.6056367655567,
+ 117.74290377255011`, 203.93669156475002`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 218.39436323444335`, -117.74290377255011`, -183.93669156475002`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286409473219*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222268553192*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"359d7c29-a60f-4544-8f0b-5f2ccf03b267"],
+In[945]:=",ExpressionUUID->"23fcf42b-fe21-4c90-b736-fce3d823679e"],
Cell[BoxData[
InterpretationBox[
@@ -14154,86 +11625,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.01891426371084346777649911457289727925707913219810937104202694`\
-42.918232530502465*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.29626307927368", ",", "0``57.21112488422458"}], "}"}]}],
+ "7.475891855238211751815128710409659649132147903559548758669771519`43.\
+869341636552164*^-14", ",", "0``57.62803526216813", ",",
+ "0``57.3894746348083", ",", "0``57.296708621881336"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.01891426371084346777649911457289727925707913219810937104202694`42.\
-918232530502465*^-14, 0``58.69897000433602, 0``57.29626307927368,
- 0``57.21112488422458}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 7.475891855238211751815128710409659649132147903559548758669771519`43.\
+869341636552164*^-14, 0``57.62803526216813, 0``57.3894746348083,
+ 0``57.296708621881336}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286410709674*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222685596856*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"283f7e0f-ee31-4daa-bba4-6d691266009f"],
+In[945]:=",ExpressionUUID->"4f7686d0-920a-4a93-8cb7-c75b5401e730"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802864107952747`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222685661543*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"47b6264e-e68a-449e-be61-a0020563224e"],
+In[945]:=",ExpressionUUID->"55710dae-4d95-45d7-8d1d-646e4a40a40a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "252.7591726109161811564`10."}], ",",
- RowBox[{"S", "\[Rule]", "378225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "235.4858075451002150658`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "255025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62227.7817422088007949652`10."}]}], ",",
+ RowBox[{"-", "119010.8465666061514920936`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62227.7817422088007949652`10."}]}], ",",
+ RowBox[{"-", "119010.8465666061514920936`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "155446.8911557134514112022`10."}]}], ",",
+ RowBox[{"-", "10100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "155446.8911557134514112022`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "88374.3457958445092144967`10."}], ",",
+ RowBox[{"-", "10100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "34446.6931332122703303344`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "615.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "505.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "297.278229602916784483`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "185.5982034751744851337`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.042473907247735659537928934552200445`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "235.6509383773621813456`10."}], ",",
+ "0.64012733278450780576702953054771603736`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "218.394363234443339131`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "259.4825961188400970476`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "484.5874534075351733778`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802864123401127`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226857448673`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7ccc8f8c-30ce-4f24-8ebe-637914073509"],
+In[945]:=",ExpressionUUID->"06652d6d-85c3-44c4-8a13-a61b34507c4d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "297.3991935483871`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "239.6813725490196`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 297.3991935483871}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 239.6813725490196}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286668747835*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222697323235*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"169157f1-b469-4181-a3f2-721374f9ff0f"],
+In[945]:=",ExpressionUUID->"5fc7e109-6612-4f8b-83ff-c13c2cb5e015"],
Cell[BoxData[
InterpretationBox[
@@ -14244,58 +11710,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"310.`", ",", "0.`", ",", "0.`", ",", "310.`"}], "}"}]}]},
+ RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", "255.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"310.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "310.`"}]}], "}"}]}]},
+ RowBox[{"255.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "255.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "268.95350559605504`", ",", "119.07034493567996`", ",",
+ "206.23588710334926`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.26028728471306`", ",", "0.`", ",",
- RowBox[{"-", "255.26028728471306`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"238.1498237035653`", ",",
- RowBox[{"-", "10.`"}], ",", "237.9397792090243`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"221.0464944039449`", ",",
+ RowBox[{"-", "119.07034493567996`"}], ",",
+ RowBox[{"-", "186.23588710334926`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {255., 0., 0., 255.}, $CellContext`p2 -> {
+ 255., 0., 0., -255.}, $CellContext`p3 -> {268.95350559605504`,
+ 119.07034493567996`, 206.23588710334926`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 221.0464944039449, -119.07034493567996`, -186.23588710334926`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286670848473*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222697443109*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b7713064-8fb8-4af9-8df3-33fe489865b1"],
+In[945]:=",ExpressionUUID->"c429feed-cf5c-4b7a-8d7f-7768fb7334c8"],
Cell[BoxData[
InterpretationBox[
@@ -14304,85 +11768,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.941418606505987424554359614490273289157422116169032899659559197`\
-43.37513515014345*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.29198675065462", ",", "0``57.20760831050175"}], "}"}]}],
+ "-", "2.408558117455491379088336697845688208450977020692995065429304268`\
+43.373156958351146*^-14"}], ",", "0``57.62316639259677", ",",
+ "0``57.38460576523695", ",", "0``57.29242982390206"}], "}"}]}],
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}],
+{-2.408558117455491379088336697845688208450977020692995065429304268`43.\
+373156958351146*^-14, 0``57.62316639259677, 0``57.38460576523695,
+ 0``57.29242982390206}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802866954779882`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226975058403`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"40da8b0e-77a7-498c-9815-6bbd94a3687b"],
+In[945]:=",ExpressionUUID->"4ce7b49a-da0d-4cab-ba77-1537f65e527c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286695647348*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822226975834017`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"18f3226e-ceed-4a41-b42a-b00fb3c21dbf"],
+In[945]:=",ExpressionUUID->"f00b8883-c00b-42e8-b2f8-7ce0332d04d0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "255.2602872847130583978`10."}], ",",
- RowBox[{"S", "\[Rule]", "384400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "238.1406898713599105122`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "260100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62860.7311872674089315096`10."}]}], ",",
+ RowBox[{"-", "121541.2878539880807865094`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62860.7311872674089315096`10."}]}], ",",
+ RowBox[{"-", "121541.2878539880807865094`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "158261.3781165220962066087`10."}]}], ",",
+ RowBox[{"-", "10200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "158261.3781165220962066087`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89094.218607579024286203`10."}], ",",
+ RowBox[{"-", "10200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "34632.5757079761722210852`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "620.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "510.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "298.4865467782074500614`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "186.0982958223319470629`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04202744086441823669802720318908186057`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "238.1498237035652848792`10."}], ",",
+ "0.63935231167129123965592414666827557521`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "221.0464944039449155487`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "260.5326155531314396544`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "489.5916665957458639025`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802866956893587`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222697637919*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"42e19531-5f25-4049-acbb-ede77021dcbd"],
+In[945]:=",ExpressionUUID->"4e5e349c-c5ad-4815-995f-48b42196ae5c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "300.`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "242.33009708737862`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 300.}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 242.33009708737862`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286916472938*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222709220365*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"29b54d75-8355-4825-89cf-b0a82af3d4d2"],
+In[945]:=",ExpressionUUID->"499ec497-99ac-4549-9227-c019b9e9a17a"],
Cell[BoxData[
InterpretationBox[
@@ -14393,58 +11854,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"312.5`", ",", "0.`", ",", "0.`", ",", "312.5`"}], "}"}]}]},
+ RowBox[{"257.5`", ",", "0.`", ",", "0.`", ",", "257.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"312.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "312.5`"}]}], "}"}]}]},
+ RowBox[{"257.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "257.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "271.3043415704254`", ",", "120.39626837547962`", ",",
+ "208.53245386802877`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.7613787887347`", ",", "0.`", ",",
- RowBox[{"-", "257.7613787887347`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.64873219954364`", ",",
- RowBox[{"-", "10.`"}], ",", "240.44087071304594`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"223.6956584295746`", ",",
+ RowBox[{"-", "120.39626837547962`"}], ",",
+ RowBox[{"-", "188.53245386802877`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {312.5, 0., 0., 312.5}, $CellContext`p2 -> {
- 312.5, 0., 0., -312.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {257.7613787887347,
- 0., -257.7613787887347, 0.}, $CellContext`p5 -> {
- 240.64873219954364`, -10., 240.44087071304594`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {257.5, 0., 0., 257.5}, $CellContext`p2 -> {
+ 257.5, 0., 0., -257.5}, $CellContext`p3 -> {271.3043415704254,
+ 120.39626837547962`, 208.53245386802877`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 223.6956584295746, -120.39626837547962`, -188.53245386802877`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802869243055162`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227093165703`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"4ddb2023-2dbd-4c69-809a-ca8f4924072a"],
+In[945]:=",ExpressionUUID->"13bcec86-fb34-4e5b-998b-0a6daf20bd4f"],
Cell[BoxData[
InterpretationBox[
@@ -14453,85 +11912,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "3.774715111378162170021392961164997650185042299494646464150962121`\
-43.479974166738536*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.28775215817453", ",", "0``57.204119982655925"}], "}"}]}],
+ "-", "1.57058548013381326280136608919298790719359048868235730701568662`\
+42.183224353431555*^-15"}], ",", "0``57.61835697795453", ",",
+ "0``57.37979635059469", ",", "0``57.2881927709588"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.774715111378162170021392961164997650185042299494646464150962121`43.\
-479974166738536*^-14, 0``58.69897000433602, 0``57.28775215817453,
- 0``57.204119982655925}],
+{-1.57058548013381326280136608919298790719359048868235730701568662`42.\
+183224353431555*^-15, 0``57.61835697795453, 0``57.37979635059469,
+ 0``57.2881927709588}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286926304921*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222709382328*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e2405a3e-3346-4a67-8e0f-082e2a1c1e60"],
+In[945]:=",ExpressionUUID->"769ad505-383a-4fc3-b333-108433ad49c3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286927967846*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222709442993*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1836b33e-e3c7-4199-9b81-e2015a181e8a"],
+In[945]:=",ExpressionUUID->"fb76988a-f297-407c-86c8-86dcc735be3b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "257.7613787887347029937`10."}], ",",
- RowBox[{"S", "\[Rule]", "390625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "240.7925367509592433635`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "265225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "63493.680632326017068054`10."}]}], ",",
+ RowBox[{"-", "124096.735908769082945212`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "63493.680632326017068054`10."}]}], ",",
+ RowBox[{"-", "124096.735908769082945212`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "161100.8617429591893710494`10."}]}], ",",
+ RowBox[{"-", "10300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "161100.8617429591893710494`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89814.084750570431045815`10."}], ",",
+ RowBox[{"-", "10300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "34818.4718175381665930904`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "625.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "515.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "299.689981064716995063`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "186.5970841614042118875`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0415902669556312511148565618967703435`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "240.6487321995436319503`10."}], ",",
+ "0.6385970473802672998370062003713655838`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "223.6956584295745946523`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "261.5784328152487298128`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "494.5957945636011960582`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780286928324527*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222709530479*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"19c1749e-4318-40cd-8c1f-634ccd363b45"],
+In[945]:=",ExpressionUUID->"08363ff7-faaa-4b80-becb-4110adb815e9"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "302.5992063492063`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "244.97596153846155`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 302.5992063492063}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 244.97596153846155`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287169085127*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227209038363`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f9795097-59ed-40b8-a501-c608cc61ec59"],
+In[945]:=",ExpressionUUID->"b50be71e-4cfb-48db-9f3d-dc4fb14deefa"],
Cell[BoxData[
InterpretationBox[
@@ -14542,58 +11998,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", "315.`"}], "}"}]}]},
+ RowBox[{"260.`", ",", "0.`", ",", "0.`", ",", "260.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"315.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "315.`"}]}], "}"}]}]},
+ RowBox[{"260.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "260.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "273.65805874146355`", ",", "121.72071836189836`", ",",
+ "210.82646853658994`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.26244783796585`", ",", "0.`", ",",
- RowBox[{"-", "260.26244783796585`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"243.14766315031255`", ",",
- RowBox[{"-", "10.`"}], ",", "242.9419397622771`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"226.34194125853637`", ",",
+ RowBox[{"-", "121.72071836189836`"}], ",",
+ RowBox[{"-", "190.82646853658994`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {260., 0., 0., 260.}, $CellContext`p2 -> {
+ 260., 0., 0., -260.}, $CellContext`p3 -> {273.65805874146355`,
+ 121.72071836189836`, 210.82646853658994`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 226.34194125853637`, -121.72071836189836`, -190.82646853658994`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287173446704*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222721024362*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e01f1322-9e1b-4f10-b055-b39964960734"],
+In[945]:=",ExpressionUUID->"bef06474-16e4-4b7e-9f08-cc04374b1b1b"],
Cell[BoxData[
InterpretationBox[
@@ -14601,85 +12055,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.87911027084614351155413775063410171489292250963116797709759106`43.\
-488361580277626*^-14", ",", "0``58.69897000433602", ",",
- "0``57.28355849421085", ",", "0``57.20065945054642"}], "}"}]}],
+ RowBox[{
+ "-", "6.084195350267129582591705977438739245689509957684489665754884985`\
+43.76716981055638*^-14"}], ",", "0``57.613605497556826", ",",
+ "0``57.375044870196994", ",", "0``57.283996656365204"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-6.084195350267129582591705977438739245689509957684489665754884985`43.\
+76716981055638*^-14, 0``57.613605497556826, 0``57.375044870196994,
+ 0``57.283996656365204}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802871758229313`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222721092682*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9a7cda4c-a42b-4fc4-9738-4c598c59c097"],
+In[945]:=",ExpressionUUID->"b9c1df15-cf07-457c-ba1b-b6276e72bd1a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802871772280693`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222721168935*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8c53e228-f253-46e1-b107-abb2054d8228"],
+In[945]:=",ExpressionUUID->"7049fa57-e4f5-4c38-9eb8-71163b9b8e2d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "260.2624478379658512495`10."}], ",",
- RowBox[{"S", "\[Rule]", "396900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "243.4414367237967269375`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "270400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
+ RowBox[{"-", "126677.1905455610562496508`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
+ RowBox[{"-", "126677.1905455610562496508`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
+ RowBox[{"-", "10400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "90533.94443060620411959`10."}], ",",
+ RowBox[{"-", "10400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35004.3810911221400414734`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "630.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "520.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "300.8885913932367827216`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "187.0945779308479587171`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04116209827658894246513868195832337417`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "243.1476631503125602328`10."}], ",",
+ "0.63786077107306045261567979070224830641`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "226.3419412585363694472`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "262.6200977156223969383`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "499.5998398718717955771`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287177443001*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222721221878*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"42e9d2f8-8c27-4eba-8d51-240f932fa895"],
+In[945]:=",ExpressionUUID->"cb7a4e6e-f440-439a-b646-b03e940468ea"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "305.1968503937008`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "247.61904761904762`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 305.1968503937008}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 247.61904761904762`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287419751409*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222732619211*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6bf3d020-c0c6-457f-800e-881efbb216d6"],
+In[945]:=",ExpressionUUID->"b5135631-ade6-411f-a3ac-3f46854a904f"],
Cell[BoxData[
InterpretationBox[
@@ -14690,58 +12142,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"317.5`", ",", "0.`", ",", "0.`", ",", "317.5`"}], "}"}]}]},
+ RowBox[{"262.5`", ",", "0.`", ",", "0.`", ",", "262.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"317.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "317.5`"}]}], "}"}]}]},
+ RowBox[{"262.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "262.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "276.0145744485542`", ",", "123.04373745544353`", ",",
+ "213.1180048259939`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.7634951182728`", ",", "0.`", ",",
- RowBox[{"-", "262.7634951182728`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.64661587000555`", ",",
- RowBox[{"-", "10.`"}], ",", "245.442987042584`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"228.9854255514458`", ",",
+ RowBox[{"-", "123.04373745544353`"}], ",",
+ RowBox[{"-", "193.1180048259939`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {317.5, 0., 0., 317.5}, $CellContext`p2 -> {
- 317.5, 0., 0., -317.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {262.7634951182728,
- 0., -262.7634951182728, 0.}, $CellContext`p5 -> {
- 245.64661587000555`, -10., 245.442987042584, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {262.5, 0., 0., 262.5}, $CellContext`p2 -> {
+ 262.5, 0., 0., -262.5}, $CellContext`p3 -> {276.0145744485542,
+ 123.04373745544353`, 213.1180048259939, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 228.9854255514458, -123.04373745544353`, -193.1180048259939, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287423518705*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222732737855*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3e2492cc-e27c-480e-b4bc-61f01d010eb1"],
+In[945]:=",ExpressionUUID->"f14427d4-dcc5-4d08-996e-05839acaaa47"],
Cell[BoxData[
InterpretationBox[
@@ -14750,85 +12200,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.257517529194772713436212322927365156516814742387579360070020296`\
-43.6925983539159*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.279404974384", ",", "0``57.19722627470802"}], "}"}]}],
+ "-", "1.83138674908715326619369750387543394490216126981607959027673573`\
+43.24159076847485*^-14"}], ",", "0``57.60891048997666", ",",
+ "0``57.37034986261682", ",", "0``57.27984069659404"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.257517529194772713436212322927365156516814742387579360070020296`43.\
-6925983539159*^-14, 0``58.69897000433602, 0``57.279404974384,
- 0``57.19722627470802}],
+{-1.83138674908715326619369750387543394490216126981607959027673573`43.\
+24159076847485*^-14, 0``57.60891048997666, 0``57.37034986261682,
+ 0``57.27984069659404}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802874249459248`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222273279554*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3a268b9c-239d-4f9e-b153-2f8100bb3f67"],
+In[945]:=",ExpressionUUID->"8c5c70df-07b9-4dbd-a50d-504212ac0047"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802874255829687`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227328824377`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"26f462bd-49c8-40e9-b41b-287292eb065c"],
+In[945]:=",ExpressionUUID->"b037bb3b-4b09-472a-a468-df44581a9b54"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "262.7634951182727718333`10."}], ",",
- RowBox[{"S", "\[Rule]", "403225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "246.0874749108870673808`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "275625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64759.5795224432333411429`10."}]}], ",",
+ RowBox[{"-", "129282.6515854909576559829`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64759.5795224432333411429`10."}]}], ",",
+ RowBox[{"-", "129282.6515854909576559829`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "166854.8194001032101141391`10."}]}], ",",
+ RowBox[{"-", "10500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "166854.8194001032101141391`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91253.797845092917653324`10."}], ",",
+ RowBox[{"-", "10500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35190.3031709819236991832`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "635.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "525.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "302.0824355123828076776`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "187.5907864767934803361`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0407426593054989778177382349007728729`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "245.6466158700055382826`10."}], ",",
+ "0.63714275407055011511942543838265816854`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "228.9854255514457766271`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "263.6576590956415458749`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "504.6038049797087900502`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028742687155*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222732928166*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f24b9f7e-b4ef-4152-8f84-835552e0e007"],
+In[945]:=",ExpressionUUID->"f43cdc90-7627-4e11-9155-b7e91828bfb8"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "307.79296875`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "250.25943396226415`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 307.79296875}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 250.25943396226415`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802876524257936`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222744485978*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"0ae8029b-12cb-4a6d-a408-edb01885dfd7"],
+In[945]:=",ExpressionUUID->"84c71e59-7f8f-462f-b597-b6f23002a5b0"],
Cell[BoxData[
InterpretationBox[
@@ -14839,58 +12286,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"320.`", ",", "0.`", ",", "0.`", ",", "320.`"}], "}"}]}]},
+ RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", "265.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"320.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "320.`"}]}], "}"}]}]},
+ RowBox[{"265.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "265.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "278.37380916213226`", ",", "124.36536658917066`", ",",
+ "215.4071336343725`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.26452128787116`", ",", "0.`", ",",
- RowBox[{"-", "265.26452128787116`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"248.14558970040727`", ",",
- RowBox[{"-", "10.`"}], ",", "247.9440132121824`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"231.62619083786774`", ",",
+ RowBox[{"-", "124.36536658917066`"}], ",",
+ RowBox[{"-", "195.4071336343725`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {265., 0., 0., 265.}, $CellContext`p2 -> {
+ 265., 0., 0., -265.}, $CellContext`p3 -> {278.37380916213226`,
+ 124.36536658917066`, 215.4071336343725, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 231.62619083786774`, -124.36536658917066`, -195.4071336343725, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287664578038*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222744588655*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c15cc78b-f724-4a53-9714-3c5f14a379e2"],
+In[945]:=",ExpressionUUID->"96f9c4e5-de98-4934-9471-f59038fc8aae"],
Cell[BoxData[
InterpretationBox[
@@ -14898,85 +12343,83 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "6.800618502789848346561442236283038024362637429118554138356545502`43.\
-72533844307799*^-14", ",", "0``58.69897000433602", ",",
- "0``57.27529083667283", ",", "0``57.19382002601611"}], "}"}]}],
+ RowBox[{
+ "-", "8.88895695202306537084231875418384309422708235978049532329247562`\
+42.92354493771252*^-15"}], ",", "0``57.604270549972775", ",",
+ "0``57.36570992261294", ",", "0``57.27572413039921"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-8.88895695202306537084231875418384309422708235978049532329247562`42.\
+92354493771252*^-15, 0``57.604270549972775, 0``57.36570992261294,
+ 0``57.27572413039921}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287671176543*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222744661964*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8e05b057-3ab4-4ddb-9db5-90d804dce19e"],
+In[945]:=",ExpressionUUID->"7ef35b23-12b2-49fe-af4f-f07c69d59a08"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802876713027697`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222744738592*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b8370cdf-56c5-4a3b-b1ce-58ef441d08b7"],
+In[945]:=",ExpressionUUID->"36e80bab-b403-4ccc-8b5a-baf313819d6d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "265.2645212878711618032`10."}], ",",
- RowBox[{"S", "\[Rule]", "409600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "248.730733178341324674`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "280900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "65392.5289675018414776873`10."}]}], ",",
+ RowBox[{"-", "131913.1188559300932974844`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "65392.5289675018414776873`10."}]}], ",",
+ RowBox[{"-", "131913.1188559300932974844`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "169769.2936242375435540453`10."}]}], ",",
+ RowBox[{"-", "10600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "169769.2936242375435540453`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91973.6451834787363125954`10."}], ",",
+ RowBox[{"-", "10600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35376.2377118601907127992`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "640.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "530.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "303.271570021785484726`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "188.0857190534682532434`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04033168565131809248982859913067384946`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "248.1455897004072788941`10."}], ",",
+ "0.63644230523268132528724949457732212785`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "231.6261908378677396063`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "264.6911648535420304624`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "509.607692249636270081`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802876717826433`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222744787387*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e6f9e71c-facb-4d81-83a0-9a04bc6ecd0f"],
+In[945]:=",ExpressionUUID->"af1008f9-5969-4b68-97dd-7a843a5b86d6"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "310.3875968992248`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "252.89719626168224`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 310.3875968992248}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 252.89719626168224`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028791296595*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222275614806*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5a435994-e554-455c-b36c-b7e6e5a9ae4a"],
+In[945]:=",ExpressionUUID->"4590c298-1f67-4f6b-8c31-d32943616813"],
Cell[BoxData[
InterpretationBox[
@@ -14987,58 +12430,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"322.5`", ",", "0.`", ",", "0.`", ",", "322.5`"}], "}"}]}]},
+ RowBox[{"267.5`", ",", "0.`", ",", "0.`", ",", "267.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"322.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "322.5`"}]}], "}"}]}]},
+ RowBox[{"267.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "267.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "280.73568633688967`", ",", "125.68564514597969`", ",",
+ "217.69392317490946`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.7655269787049`", ",", "0.`", ",",
- RowBox[{"-", "267.7655269787049`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.6445840095734`", ",",
- RowBox[{"-", "10.`"}], ",", "250.44501890301612`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"234.26431366311033`", ",",
+ RowBox[{"-", "125.68564514597969`"}], ",",
+ RowBox[{"-", "197.69392317490946`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {322.5, 0., 0., 322.5}, $CellContext`p2 -> {
- 322.5, 0., 0., -322.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {267.7655269787049,
- 0., -267.7655269787049, 0.}, $CellContext`p5 -> {
- 250.6445840095734, -10., 250.44501890301612`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {267.5, 0., 0., 267.5}, $CellContext`p2 -> {
+ 267.5, 0., 0., -267.5}, $CellContext`p3 -> {280.73568633688967`,
+ 125.68564514597969`, 217.69392317490946`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 234.26431366311033`, -125.68564514597969`, -197.69392317490946`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028792245045*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222756266801*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"510f5612-f2d7-49b1-afe6-562f0a6d4847"],
+In[945]:=",ExpressionUUID->"7d43be44-178d-422b-83b9-583e35e715e9"],
Cell[BoxData[
InterpretationBox[
@@ -15046,86 +12487,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "9.027667941705683584286444744512445320737676039336503299837402245`\
-43.84498586605496*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.27121534057197", ",", "0``57.19044028536473"}], "}"}]}],
+ "8.1591563622666052244226969450775674690073817508846659018387795`42.\
+88226147835376*^-15", ",", "0``57.59968432561497", ",",
+ "0``57.36112369825515", ",", "0``57.27164621797877"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.027667941705683584286444744512445320737676039336503299837402245`43.\
-84498586605496*^-14, 0``58.69897000433602, 0``57.27121534057197,
- 0``57.19044028536473}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 8.1591563622666052244226969450775674690073817508846659018387795`42.\
+88226147835376*^-15, 0``57.59968432561497, 0``57.36112369825515,
+ 0``57.27164621797877}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287923356038*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222756325429*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b8cc288f-6888-4188-ad98-af5b212ed1af"],
+In[945]:=",ExpressionUUID->"098cae01-c72f-421e-8738-0344e5fa8db6"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780287923464963*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227564155207`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"44b11a43-a0c4-4236-8c75-c5cd2fb6e713"],
+In[945]:=",ExpressionUUID->"19521bbb-3c46-416c-9740-7564cf5c8872"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "267.7655269787048837316`10."}], ",",
- RowBox[{"S", "\[Rule]", "416025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "251.371290291959383012`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "286225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66025.4784125604496142317`10."}]}], ",",
+ RowBox[{"-", "134568.5921902359850889911`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66025.4784125604496142317`10."}]}], ",",
+ RowBox[{"-", "134568.5921902359850889911`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "172708.7649012646500068513`10."}]}], ",",
+ RowBox[{"-", "10700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "172708.7649012646500068513`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "92693.4866276502444968876`10."}], ",",
+ RowBox[{"-", "10700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35562.1843804719663551839`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "645.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "535.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "304.4560504040776071515`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "188.5793848236650875813`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03992892349706688433864771426426839411`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "250.6445840095733986829`10."}], ",",
+ "0.63575876854231611398875185249644121674`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "234.264313663110316404`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "265.7206619694272699697`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "514.6115039522532947511`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802879240536613`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222756471252*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"97409cc9-d5f2-4bf3-b941-215d2b7ec251"],
+In[945]:=",ExpressionUUID->"e2d20e3d-da75-4e01-a7b4-2c0a8b7f16c5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "312.9807692307692`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "255.53240740740742`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 312.9807692307692}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 255.53240740740742`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288164368587*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222767866891*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3d284432-7c18-42f9-b9db-7d94c5928f7e"],
+In[945]:=",ExpressionUUID->"17529da9-abce-4ea3-839c-f77992b5a764"],
Cell[BoxData[
InterpretationBox[
@@ -15136,58 +12573,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", "325.`"}], "}"}]}]},
+ RowBox[{"270.`", ",", "0.`", ",", "0.`", ",", "270.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"325.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "325.`"}]}], "}"}]}]},
+ RowBox[{"270.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "270.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "283.1001322731589`", ",", "127.00461103152915`", ",",
+ "219.9784391021312`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.2665127977447`", ",", "0.`", ",",
- RowBox[{"-", "270.2665127977447`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"253.14359819053365`", ",",
- RowBox[{"-", "10.`"}], ",", "252.94600472205596`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"236.8998677268411`", ",",
+ RowBox[{"-", "127.00461103152915`"}], ",",
+ RowBox[{"-", "199.9784391021312`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {270., 0., 0., 270.}, $CellContext`p2 -> {
+ 270., 0., 0., -270.}, $CellContext`p3 -> {283.1001322731589,
+ 127.00461103152915`, 219.9784391021312, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 236.8998677268411, -127.00461103152915`, -199.9784391021312, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288172256452*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222767971397*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d255501c-93c2-49cf-8b24-c88491e3ba7b"],
+In[945]:=",ExpressionUUID->"0ac1f98a-73f9-48aa-8851-3645948b3936"],
Cell[BoxData[
InterpretationBox[
@@ -15195,86 +12630,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.69658764672265044036637304177327771025001065320730677867617446`42.\
-11563294816399*^-15", ",", "0``58.69897000433602", ",",
- "0``57.26717776628844", ",", "0``57.18708664335715"}], "}"}]}],
+ "1.437089262872862999935573898458827092965668962416013771407582112`43.\
+12405998910458*^-14", ",", "0``57.59515051559111", ",",
+ "0``57.356589888231284", ",", "0``57.26760624017703"}], "}"}]}],
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}],
+ 1.437089262872862999935573898458827092965668962416013771407582112`43.\
+12405998910458*^-14, 0``57.59515051559111, 0``57.356589888231284,
+ 0``57.26760624017703}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288172521343*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222768041391*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2fad2389-c69e-4ff2-90e3-26f9f4c2d886"],
+In[945]:=",ExpressionUUID->"bc0fa157-25db-49be-8753-577481e4558d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802881735551443`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227681272163`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"91d6c1af-9130-40c9-8308-a5bc0bb3c78c"],
+In[945]:=",ExpressionUUID->"c84df97b-7330-4758-9517-303729c79144"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "270.2665127977447241392`10."}], ",",
- RowBox[{"S", "\[Rule]", "422500.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "254.0092220630583028651`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "291600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
+ RowBox[{"-", "137249.071427505805559589`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
+ RowBox[{"-", "137249.071427505805559589`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
+ RowBox[{"-", "10800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "93413.3223523062560235424`10."}], ",",
+ RowBox[{"-", "10800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35748.1428550116043102528`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "650.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "540.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "305.6359310557354217303`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "189.0717928592512297444`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03953412907623615522639296572227960108`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "253.1435981905336502485`10."}], ",",
+ "0.63509152087474033564113028276846124076`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "236.8998677268411151864`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "266.746196529457304102`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "519.6152422706632024397`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288173893093*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222276819872*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ebb0b86e-f9ac-46c9-a598-d6dc61a5a088"],
+In[945]:=",ExpressionUUID->"c292acc8-f18e-41cf-b447-2464c04d0bbe"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "315.57251908396944`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "258.16513761467894`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 315.57251908396944`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 258.16513761467894`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288409113079*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222779586137*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"c7fa4783-33bc-4f59-ba7e-44eb88a931c6"],
+In[945]:=",ExpressionUUID->"d30e20ea-e5f2-4a78-b02d-f311cb794089"],
Cell[BoxData[
InterpretationBox[
@@ -15285,58 +12716,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"327.5`", ",", "0.`", ",", "0.`", ",", "327.5`"}], "}"}]}]},
+ RowBox[{"272.5`", ",", "0.`", ",", "0.`", ",", "272.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"327.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "327.5`"}]}], "}"}]}]},
+ RowBox[{"272.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "272.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "285.467075985947`", ",", "128.32230074305718`", ",",
+ "222.26074463110854`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.767479328209`", ",", "0.`", ",",
- RowBox[{"-", "272.767479328209`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.64263166006936`", ",",
- RowBox[{"-", "10.`"}], ",", "255.44697125252023`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"239.53292401405307`", ",",
+ RowBox[{"-", "128.32230074305718`"}], ",",
+ RowBox[{"-", "202.26074463110854`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {327.5, 0., 0., 327.5}, $CellContext`p2 -> {
- 327.5, 0., 0., -327.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {272.767479328209,
- 0., -272.767479328209, 0.}, $CellContext`p5 -> {
- 255.64263166006936`, -10., 255.44697125252023`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {272.5, 0., 0., 272.5}, $CellContext`p2 -> {
+ 272.5, 0., 0., -272.5}, $CellContext`p3 -> {285.467075985947,
+ 128.32230074305718`, 222.26074463110854`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 239.53292401405307`, -128.32230074305718`, -202.26074463110854`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288410480585*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227796973743`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cae1298d-2777-488d-ac1c-13392adc53aa"],
+In[945]:=",ExpressionUUID->"8c00bd54-8375-405f-9803-d7c1d6a493ff"],
Cell[BoxData[
InterpretationBox[
@@ -15344,86 +12773,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.174430794778408785362756922780692159454598254965311566591746193`\
-43.38439456787826*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.26317741397553", ",", "0``57.18375870000822"}], "}"}]}],
+ "9.038611565875760895271357750583611339822494142689967531699478223`43.\
+91867522505804*^-14", ",", "0``57.590667866682594", ",",
+ "0``57.352107239322756", ",", "0``57.26360349772336"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.174430794778408785362756922780692159454598254965311566591746193`43.\
-38439456787826*^-14, 0``58.69897000433602, 0``57.26317741397553,
- 0``57.18375870000822}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 9.038611565875760895271357750583611339822494142689967531699478223`43.\
+91867522505804*^-14, 0``57.590667866682594, 0``57.352107239322756,
+ 0``57.26360349772336}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802884168879223`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227797571707`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5e040826-8754-4c0d-8bc4-acd4caed65db"],
+In[945]:=",ExpressionUUID->"213f847c-5ed2-4ca0-a261-eaa731e11a26"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288416901668*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222779847486*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9b414a4e-d57a-42fe-8865-87ccd15039de"],
+In[945]:=",ExpressionUUID->"db032aa9-62af-4f81-baf8-117ac8ec73d6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "272.7674793282089922286`10."}], ",",
- RowBox[{"S", "\[Rule]", "429025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "256.6446014861143680719`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "297025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67291.3773026776658873206`10."}]}], ",",
+ RowBox[{"-", "139954.5564123411330820627`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67291.3773026776658873206`10."}]}], ",",
+ RowBox[{"-", "139954.5564123411330820627`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "178662.6989599768899097398`10."}]}], ",",
+ RowBox[{"-", "10900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "178662.6989599768899097398`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "94133.1525253091278245178`10."}], ",",
+ RowBox[{"-", "10900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "35934.1128246822228632243`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "655.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "545.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "306.8112653168216504764`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "189.5629521417152409695`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03914706818001210027458955267224940223`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "255.6426316600693487182`10."}], ",",
+ "0.63443996993631498708069817396382245084`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "239.532924014053057208`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "267.7678137492372250726`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "524.6189093046495354332`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028841692332*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222779897221*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"1d75e5a7-a578-40da-afdc-b96564f9c0f0"],
+In[945]:=",ExpressionUUID->"01bc1cc0-12dc-4475-9496-d3cdd6ec3763"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "318.1628787878788`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "260.79545454545456`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 318.1628787878788}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 260.79545454545456`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288645105423*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222279128263*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"cf5bd3e5-a2e0-4704-8e01-8089e902daaa"],
+In[945]:=",ExpressionUUID->"6481fd7d-860b-4ee6-9173-07c6dfe068a4"],
Cell[BoxData[
InterpretationBox[
@@ -15434,58 +12859,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"330.`", ",", "0.`", ",", "0.`", ",", "330.`"}], "}"}]}]},
+ RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", "275.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"330.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "330.`"}]}], "}"}]}]},
+ RowBox[{"275.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "275.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "287.8364490811332`", ",", "129.63874943437608`", ",",
+ "224.54090065003044`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.2684271307148`", ",", "0.`", ",",
- RowBox[{"-", "275.2684271307148`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"258.1416838575635`", ",",
- RowBox[{"-", "10.`"}], ",", "257.94791905502603`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"242.16355091886675`", ",",
+ RowBox[{"-", "129.63874943437608`"}], ",",
+ RowBox[{"-", "204.54090065003044`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {275., 0., 0., 275.}, $CellContext`p2 -> {
+ 275., 0., 0., -275.}, $CellContext`p3 -> {287.8364490811332,
+ 129.63874943437608`, 224.54090065003044`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 242.16355091886675`, -129.63874943437608`, -204.54090065003044`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288651655624*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222279139539*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"bdef0b17-51bf-453a-a755-4d72a249fded"],
+In[945]:=",ExpressionUUID->"087a4b73-4599-4bea-955a-5d401eb731f9"],
Cell[BoxData[
InterpretationBox[
@@ -15494,86 +12917,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.113954379481472526707182222703044844717883303158999294478928787`\
-43.20452167950763*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.259213603001704", ",", "0``57.18045606445813"}], "}"}]}],
+ "-", "7.849442818476713516981654148967182790116530189368185891775244157`\
+43.85344614490561*^-14"}], ",", "0``57.586235171395536", ",",
+ "0``57.34767454403571", ",", "0``57.25963731050576"}], "}"}]}],
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}],
+{-7.849442818476713516981654148967182790116530189368185891775244157`43.\
+85344614490561*^-14, 0``57.586235171395536, 0``57.34767454403571,
+ 0``57.25963731050576}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288658262805*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822227914600286`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f07e7b78-3c3f-4e60-af3f-39ce1d57447b"],
+In[945]:=",ExpressionUUID->"4bed8a72-1d1c-4be5-a5b9-a2e983499f25"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802886589617043`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222791537047*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7b5bb3e8-e033-4d22-93ca-b01bc69bdda2"],
+In[945]:=",ExpressionUUID->"09591a8f-a834-48a8-a047-b293f340703e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "275.2684271307148264896`10."}], ",",
- RowBox[{"S", "\[Rule]", "435600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "259.2774988687521613429`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "302500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67924.3267477362740238651`10."}]}], ",",
+ RowBox[{"-", "142685.0469946232532455533`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67924.3267477362740238651`10."}]}], ",",
+ RowBox[{"-", "142685.0469946232532455533`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "181677.1619062717854831135`10."}]}], ",",
+ RowBox[{"-", "11000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "181677.1619062717854831135`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "94852.9773080161299279519`10."}], ",",
+ RowBox[{"-", "11000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "36120.0939892465445080856`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "660.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "550.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "307.9821054996801757009`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "190.052871562748413286`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03876751569322323784786131435793154963`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "258.141683857563525062`10."}], ",",
+ "0.63380355235742332304603079489544104038`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "242.1635509188667337864`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "268.7855579964377713472`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "529.6225070746143401628`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288660215158*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222791584725*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"025400ab-2269-4342-bb58-eb810247443d"],
+In[945]:=",ExpressionUUID->"a4b19dee-595b-4032-a92a-6a06e394932c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "320.75187969924815`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "263.4234234234234`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 320.75187969924815`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 263.4234234234234}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288889472163*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228029989223`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b2f904c9-e8bf-4ef9-b839-9520c156e38c"],
+In[945]:=",ExpressionUUID->"fa8549ff-74f9-4549-b557-d9c27839e102"],
Cell[BoxData[
InterpretationBox[
@@ -15584,58 +13002,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"332.5`", ",", "0.`", ",", "0.`", ",", "332.5`"}], "}"}]}]},
+ RowBox[{"277.5`", ",", "0.`", ",", "0.`", ",", "277.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"332.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "332.5`"}]}], "}"}]}]},
+ RowBox[{"277.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "277.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "290.2081856383768`", ",", "130.95399097728804`", ",",
+ "226.81896582657922`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.7693567443621`", ",", "0.`", ",",
- RowBox[{"-", "277.7693567443621`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.64075424391615`", ",",
- RowBox[{"-", "10.`"}], ",", "260.4488486686733`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"244.79181436162318`", ",",
+ RowBox[{"-", "130.95399097728804`"}], ",",
+ RowBox[{"-", "206.81896582657922`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {332.5, 0., 0., 332.5}, $CellContext`p2 -> {
- 332.5, 0., 0., -332.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {277.7693567443621,
- 0., -277.7693567443621, 0.}, $CellContext`p5 -> {
- 260.64075424391615`, -10., 260.4488486686733, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {277.5, 0., 0., 277.5}, $CellContext`p2 -> {
+ 277.5, 0., 0., -277.5}, $CellContext`p3 -> {290.2081856383768,
+ 130.95399097728804`, 226.81896582657922`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 244.79181436162318`, -130.95399097728804`, -206.81896582657922`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802889047188597`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222803116465*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"ee1d0ec5-7f0b-4c79-a793-b75e3f4c887c"],
+In[945]:=",ExpressionUUID->"86280c2b-6c7d-4893-8707-f5b5cd9ec60e"],
Cell[BoxData[
InterpretationBox[
@@ -15644,85 +13060,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.4242632288908629315972709192054347932883193868821224041650733726`\
-44.029738621009365*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.25528567125291", ",", "0``57.1771783546969"}], "}"}]}],
+ "-", "5.033492941631838505114471964012050590033705053901864421005711449`\
+43.656546485158565*^-14"}], ",", "0``57.581851265736645", ",",
+ "0``57.34329063837682", ",", "0``57.255707016877324"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.4242632288908629315972709192054347932883193868821224041650733726`44.\
-029738621009365*^-13, 0``58.69897000433602, 0``57.25528567125291,
- 0``57.1771783546969}],
+{-5.033492941631838505114471964012050590033705053901864421005711449`43.\
+656546485158565*^-14, 0``57.581851265736645, 0``57.34329063837682,
+ 0``57.255707016877324}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288905390625*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228031810083`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b4bde86c-486b-4e80-bf92-302bca052fa3"],
+In[945]:=",ExpressionUUID->"501647e7-300b-40e4-aaf3-86714d7f7398"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780288905813799*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228032667923`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a0759080-7b13-471b-98c0-547afba38867"],
+In[945]:=",ExpressionUUID->"b35a7e0e-8608-441f-a846-47a8265e5a29"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "277.7693567443620850099`10."}], ",",
- RowBox[{"S", "\[Rule]", "442225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "261.9079819545760869914`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "308025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "68557.2761927948821604095`10."}]}], ",",
+ RowBox[{"-", "145440.543029299107615426`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "68557.2761927948821604095`10."}]}], ",",
+ RowBox[{"-", "145440.543029299107615426`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "184716.6222350007865316002`10."}]}], ",",
+ RowBox[{"-", "11100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "184716.6222350007865316002`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "95572.7968555914116282277`10."}], ",",
+ RowBox[{"-", "11100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "36306.0860585982398740093`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "665.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "555.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "309.1485029166264806744`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "190.5415599248579676485`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03839525515707451916303992272547840994`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "260.6407542439161452548`10."}], ",",
+ "0.6331817319263403980731109550747371109`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "244.7918143616231791868`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "269.799472812676779391`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "534.6260375252966915131`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802889068022957`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222803320806*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"237925d2-9e2a-4911-9b85-af69444385cf"],
+In[945]:=",ExpressionUUID->"30bb6182-0337-4b1b-af06-195cd16802d5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "323.339552238806`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "266.0491071428571`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 323.339552238806}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 266.0491071428571}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289138214624*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222281476952*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"b1f4995f-1c6d-4dc2-a002-42dac0a6b9a7"],
+In[945]:=",ExpressionUUID->"e67625a1-5700-4d7c-939e-4e3f7348c786"],
Cell[BoxData[
InterpretationBox[
@@ -15733,58 +13145,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", "335.`"}], "}"}]}]},
+ RowBox[{"280.`", ",", "0.`", ",", "0.`", ",", "280.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"335.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "335.`"}]}], "}"}]}]},
+ RowBox[{"280.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "280.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "292.5822221003148`", ",", "132.26805801964997`", ",",
+ "229.09499670850184`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.2702686877563`", ",", "0.`", ",",
- RowBox[{"-", "280.2702686877563`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"263.13984230052205`", ",",
- RowBox[{"-", "10.`"}], ",", "262.9497606120675`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"247.41777789968506`", ",",
+ RowBox[{"-", "132.26805801964997`"}], ",",
+ RowBox[{"-", "209.09499670850184`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {280., 0., 0., 280.}, $CellContext`p2 -> {
+ 280., 0., 0., -280.}, $CellContext`p3 -> {292.5822221003148,
+ 132.26805801964997`, 229.09499670850184`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 247.41777789968506`, -132.26805801964997`, -209.09499670850184`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289150131958*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228148783617`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d21edca2-672d-40a4-899d-c0d87f5e89f2"],
+In[945]:=",ExpressionUUID->"833c1c36-6734-45e7-908f-baac379b19ba"],
Cell[BoxData[
InterpretationBox[
@@ -15793,85 +13203,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.302139233114632455398968904176928958618017545291888417734071833`\
-42.987552625913786*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.25139297446617", ",", "0``57.17392519729917"}], "}"}]}],
+ "-", "8.746488218749674388609406226243847667471288588328035802146628807`\
+43.89261569282564*^-14"}], ",", "0``57.57751502712284", ",",
+ "0``57.33895439976301", ",", "0``57.251811972993806"}], "}"}]}],
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}],
+{-8.746488218749674388609406226243847667471288588328035802146628807`43.\
+89261569282564*^-14, 0``57.57751502712284, 0``57.33895439976301,
+ 0``57.251811972993806}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289151559987*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222814940844*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"5241701d-5d60-4e12-9ad5-2ba5e75b9d2b"],
+In[945]:=",ExpressionUUID->"c0d082a7-d067-4e89-ad20-89c8af99c86e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289153352111*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222281502013*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9a90fb53-1604-4f7e-b4fe-4e7d0abb7bd1"],
+In[945]:=",ExpressionUUID->"2b4553b9-77a0-4e39-a6dd-9346486d4dc6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "280.2702686877562996415`10."}], ",",
- RowBox[{"S", "\[Rule]", "448900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "264.5361160392999408941`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "313600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
+ RowBox[{"-", "148221.0443761763121840847`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
+ RowBox[{"-", "148221.0443761763121840847`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
+ RowBox[{"-", "11200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "96292.6113173004289663828`10."}], ",",
+ RowBox[{"-", "11200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "36492.088752352667648903`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "670.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "560.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "310.3105079066779346023`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "191.0290259420087909717`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03803007835688088857605646608645749361`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "263.1398423005220600282`10."}], ",",
+ "0.63257399795196497135744468200794976335`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "247.4177778996850693493`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "270.8096009346909183743`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "539.6295025292815710971`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289154074987*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228150848827`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f6bfa683-738c-4063-862a-dde8bd75f2d7"],
+In[945]:=",ExpressionUUID->"ffb05fe8-f45e-4d32-8427-66c76aacad60"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "325.9259259259259`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "268.6725663716814`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 325.9259259259259}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 268.6725663716814}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802893688229*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222282650315*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"123e12d6-305f-4ba3-821d-e4fa98419c4e"],
+In[945]:=",ExpressionUUID->"d79a7e99-9f75-43a4-b53d-2419c2be7a55"],
Cell[BoxData[
InterpretationBox[
@@ -15882,58 +13288,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"337.5`", ",", "0.`", ",", "0.`", ",", "337.5`"}], "}"}]}]},
+ RowBox[{"282.5`", ",", "0.`", ",", "0.`", ",", "282.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"337.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "337.5`"}]}], "}"}]}]},
+ RowBox[{"282.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "282.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "294.9584971676604`", ",", "133.58098204030088`", ",",
+ "231.36904781874682`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.77116345997274`", ",", "0.`", ",",
- RowBox[{"-", "282.77116345997274`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.6389475283056`", ",",
- RowBox[{"-", "10.`"}], ",", "265.45065538428395`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"250.04150283233957`", ",",
+ RowBox[{"-", "133.58098204030088`"}], ",",
+ RowBox[{"-", "211.36904781874682`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {337.5, 0., 0., 337.5}, $CellContext`p2 -> {
- 337.5, 0., 0., -337.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {282.77116345997274`,
- 0., -282.77116345997274`, 0.}, $CellContext`p5 -> {
- 265.6389475283056, -10., 265.45065538428395`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {282.5, 0., 0., 282.5}, $CellContext`p2 -> {
+ 282.5, 0., 0., -282.5}, $CellContext`p3 -> {294.9584971676604,
+ 133.58098204030088`, 231.36904781874682`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 250.04150283233957`, -133.58098204030088`, -211.36904781874682`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289376657958*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228266200733`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"48d9586d-f69c-4c73-be77-a2745ae72067"],
+In[945]:=",ExpressionUUID->"06ab44bf-2e1f-4dde-b2d5-51b1e5bbb28b"],
Cell[BoxData[
InterpretationBox[
@@ -15942,85 +13346,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.916741568836777331472571613777413503074707363174606784939140179`\
-43.561343613238776*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.2475348855929", ",", "0``57.170696227168975"}], "}"}]}],
+ "-", "7.19329600837404146993246550724991879042953130977849284040462921`\
+42.8038494886592*^-15"}], ",", "0``57.57322537241559", ",",
+ "0``57.33466474505577", ",", "0``57.24795155218056"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.916741568836777331472571613777413503074707363174606784939140179`43.\
-561343613238776*^-14, 0``58.69897000433602, 0``57.2475348855929,
- 0``57.170696227168975}],
+{-7.19329600837404146993246550724991879042953130977849284040462921`42.\
+8038494886592*^-15, 0``57.57322537241559, 0``57.33466474505577,
+ 0``57.24795155218056}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028938090703*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222826683042*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"916de039-31d5-4e3d-b917-169e9defd713"],
+In[945]:=",ExpressionUUID->"f9a83223-4074-4510-9248-85908ba8be60"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289385554966*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222826762506*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"be28b7b0-3800-462f-9a02-8fe0e73f7d07"],
+In[945]:=",ExpressionUUID->"ea70163e-50d7-48c9-bf35-e3537aedd28c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "282.7711634599727403838`10."}], ",",
- RowBox[{"S", "\[Rule]", "455625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "267.1619640806017628165`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "319225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69823.1750829120984334983`10."}]}], ",",
+ RowBox[{"-", "151026.5508997281435360383`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69823.1750829120984334983`10."}]}], ",",
+ RowBox[{"-", "151026.5508997281435360383`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "190870.5353354815997590777`10."}]}], ",",
+ RowBox[{"-", "11300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "190870.5353354815997590777`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "97012.4208367874225067131`10."}], ",",
+ RowBox[{"-", "11300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "36678.1017994562906693218`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "675.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "565.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "311.4681698613638794736`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "191.5152782402915516004`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03767178493314826073803243330659947202`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "265.6389475283055831399`10."}], ",",
+ "0.63197986374452153225615083021936857128`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "250.0415028323395617695`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "271.8159843148242117597`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "544.6329038903176589449`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289398155209*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228268128977`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"2620639a-7896-47ff-904b-98f4d21a1c6c"],
+In[945]:=",ExpressionUUID->"5a617c0c-5d0c-42fe-9f0d-550fb16c1173"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "328.5110294117647`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "271.2938596491228`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 328.5110294117647}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 271.2938596491228}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289646476366*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222838152025*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8b8cb8cc-60fa-4c6e-ac66-a57ad22c7ac8"],
+In[945]:=",ExpressionUUID->"36dbd6ea-bde4-4c79-9ea3-2c7ffbf91972"],
Cell[BoxData[
InterpretationBox[
@@ -16031,58 +13431,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"340.`", ",", "0.`", ",", "0.`", ",", "340.`"}], "}"}]}]},
+ RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", "285.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"340.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "340.`"}]}], "}"}]}]},
+ RowBox[{"285.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "285.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "297.33695169983656`", ",", "134.8927934010477`", ",",
+ "233.6411717455064`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.27204154146784`", ",", "0.`", ",",
- RowBox[{"-", "285.27204154146784`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"268.1380694468104`", ",",
- RowBox[{"-", "10.`"}], ",", "267.95153346577905`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"252.66304830016338`", ",",
+ RowBox[{"-", "134.8927934010477`"}], ",",
+ RowBox[{"-", "213.6411717455064`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {285., 0., 0., 285.}, $CellContext`p2 -> {
+ 285., 0., 0., -285.}, $CellContext`p3 -> {297.33695169983656`,
+ 134.8927934010477, 233.6411717455064, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 252.66304830016338`, -134.8927934010477, -213.6411717455064, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802896579607*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228382500887`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"913c6daa-3ae8-4dd5-8677-900ec67c7a6c"],
+In[945]:=",ExpressionUUID->"6129313a-dfef-4ee5-80da-27bf62381c8c"],
Cell[BoxData[
InterpretationBox[
@@ -16091,86 +13489,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.2268241771400321347290510133237157259189763338859567960942420054`\
-43.95524341770697*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.24371079419051", ",", "0``57.16749108729377"}], "}"}]}],
+ "-", "4.317768448763948121233928972076760368384511542103959135800402236`\
+43.57835449714796*^-14"}], ",", "0``57.568981256070785", ",",
+ "0``57.33042062871096", ",", "0``57.24412514432751"}], "}"}]}],
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}],
+{-4.317768448763948121233928972076760368384511542103959135800402236`43.\
+57835449714796*^-14, 0``57.568981256070785, 0``57.33042062871096,
+ 0``57.24412514432751}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802896579930067`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228383126907`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8d75b9c3-447d-49de-9985-072ed395b20a"],
+In[945]:=",ExpressionUUID->"9b35b553-e8e7-4f2c-a93d-b8402fe8083f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289658015085*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222838375043*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"436bf8e2-12dd-4b04-9336-1898bb7d737b"],
+In[945]:=",ExpressionUUID->"6072b2f8-bdfb-4dd6-859c-e0d7db3fa4b3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "285.2720415414678427624`10."}], ",",
- RowBox[{"S", "\[Rule]", "462400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "269.7855868020953948871`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "324900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "70456.1245279707065700428`10."}]}], ",",
+ RowBox[{"-", "153857.062468906848335726`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "70456.1245279707065700428`10."}]}], ",",
+ RowBox[{"-", "153857.062468906848335726`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "193984.9882481981330784038`10."}]}], ",",
+ RowBox[{"-", "11400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "193984.9882481981330784038`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "97732.2255523377450885464`10."}], ",",
+ RowBox[{"-", "11400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "36864.1249378137184902627`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "680.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "570.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "312.621537249655506022`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "192.0003253586142194334`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03732018201447289475116137614555062927`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "268.1380694468104072463`10."}], ",",
+ "0.63139886520438427654927619694581635896`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "252.6630483001633807947`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "272.8186641408604892424`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "549.6362433464517744552`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289658036077*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228384511433`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"dce8750a-dab8-4f6f-88c0-af53785a5166"],
+In[945]:=",ExpressionUUID->"18efbb75-6c14-458f-a3cc-08b853d28ce0"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "331.09489051094886`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "273.9130434782609`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 331.09489051094886`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 273.9130434782609}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802898947384243`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228499371967`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"a2231a3c-c53c-42cb-b1ab-c74b26553db6"],
+In[945]:=",ExpressionUUID->"73cbc29a-d585-41ad-8f0c-e0dc3af9c55b"],
Cell[BoxData[
InterpretationBox[
@@ -16181,58 +13574,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"342.5`", ",", "0.`", ",", "0.`", ",", "342.5`"}], "}"}]}]},
+ RowBox[{"287.5`", ",", "0.`", ",", "0.`", ",", "287.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"342.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "342.5`"}]}], "}"}]}]},
+ RowBox[{"287.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "287.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "299.7175286208101`", ",", "136.2035213958932`", ",",
+ "235.91141922748167`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.7729033949392`", ",", "0.`", ",",
- RowBox[{"-", "287.7729033949392`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.63720759333904`", ",",
- RowBox[{"-", "10.`"}], ",", "270.4523953192504`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"255.28247137918984`", ",",
+ RowBox[{"-", "136.2035213958932`"}], ",",
+ RowBox[{"-", "215.91141922748167`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {342.5, 0., 0., 342.5}, $CellContext`p2 -> {
- 342.5, 0., 0., -342.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {287.7729033949392,
- 0., -287.7729033949392, 0.}, $CellContext`p5 -> {
- 270.63720759333904`, -10., 270.4523953192504, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {287.5, 0., 0., 287.5}, $CellContext`p2 -> {
+ 287.5, 0., 0., -287.5}, $CellContext`p3 -> {299.7175286208101,
+ 136.2035213958932, 235.91141922748167`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 255.28247137918984`, -136.2035213958932, -215.91141922748167`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289894827927*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222850037299*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6ebb0fd7-d38d-4745-aac3-569b061aa283"],
+In[945]:=",ExpressionUUID->"d35ed894-74ae-4eb9-a32d-d3b39c0185dc"],
Cell[BoxData[
InterpretationBox[
@@ -16240,87 +13631,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.12318764295013539275084958905253539702051778181811644482025627`\
-43.91373174964847*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.2399201058406", ",", "0``57.16430942850758"}], "}"}]}],
+ "6.2222138406576539351026274807750259250256104541191153553073396`41.\
+73324709220206*^-16", ",", "0``57.56478166839629", ",",
+ "0``57.32622104103646", ",", "0``57.24033215531037"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.12318764295013539275084958905253539702051778181811644482025627`43.\
-91373174964847*^-13, 0``58.69897000433602, 0``57.2399201058406,
- 0``57.16430942850758}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.2222138406576539351026274807750259250256104541191153553073396`41.\
+73324709220206*^-16, 0``57.56478166839629, 0``57.32622104103646,
+ 0``57.24033215531037}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78028989968712*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222850097117*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"aebd6729-4936-42f9-acc6-96d097d766c5"],
+In[945]:=",ExpressionUUID->"43bfe4d4-1350-4b9e-bae3-f126d9bd167e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780289901089099*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222850159337*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"019484dc-74ef-4267-8c81-a6cfd020bbd2"],
+In[945]:=",ExpressionUUID->"d8ff5a11-72d5-4138-8fed-cbeac9bd3e11"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "287.7729033949391919123`10."}], ",",
- RowBox[{"S", "\[Rule]", "469225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "272.4070427917864094525`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "330625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71089.0739730293147065872`10."}]}], ",",
+ RowBox[{"-", "156712.5789569658368259243`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71089.0739730293147065872`10."}]}], ",",
+ RowBox[{"-", "156712.5789569658368259243`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "197124.4388255333464599062`10."}]}], ",",
+ RowBox[{"-", "11500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "197124.4388255333464599062`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "98452.0255971253831282602`10."}], ",",
+ RowBox[{"-", "11500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37050.1579139316733341641`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "685.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "575.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "313.770657642051327502`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "192.4841757494149785886`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03697508387084421634544359706443112715`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "270.6372075933390684601`10."}], ",",
+ "0.63083055951010542786303744785495417018`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "255.2824713791898496206`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "273.8176808552238429539`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "554.6395225729951537445`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802899016545153`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222850237075*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"8967c422-a049-4e30-a162-efeb8981b15d"],
+In[945]:=",ExpressionUUID->"2b6deabf-6095-4066-ba7d-894ea7bca7c9"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "333.67753623188406`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "276.5301724137931`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 333.67753623188406`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 276.5301724137931}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290127312051*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222861639822*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"9422e104-4fd8-469e-b0a5-bb28377182dc"],
+In[945]:=",ExpressionUUID->"e3d426a7-fd1c-4926-a33d-68fe89aa3846"],
Cell[BoxData[
InterpretationBox[
@@ -16331,58 +13716,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", "345.`"}], "}"}]}]},
+ RowBox[{"290.`", ",", "0.`", ",", "0.`", ",", "290.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"345.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "345.`"}]}], "}"}]}]},
+ RowBox[{"290.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "290.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "302.1001728298095`", ",", "137.51319429767526`", ",",
+ "238.17983923466437`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.27374946613844`", ",", "0.`", ",",
- RowBox[{"-", "290.27374946613844`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"273.13636152213985`", ",",
- RowBox[{"-", "10.`"}], ",", "272.95324139044965`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"257.8998271701906`", ",",
+ RowBox[{"-", "137.51319429767526`"}], ",",
+ RowBox[{"-", "218.17983923466437`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
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"],
+ MatrixForm[{$CellContext`p1 -> {290., 0., 0., 290.}, $CellContext`p2 -> {
+ 290., 0., 0., -290.}, $CellContext`p3 -> {302.1001728298095,
+ 137.51319429767526`, 238.17983923466437`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 257.8998271701906, -137.51319429767526`, -218.17983923466437`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802901283891087`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222861744236*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"aa3ee911-2462-447f-bf58-152b389f833c"],
+In[945]:=",ExpressionUUID->"d099ff28-8d0e-45f7-b653-32c9507feccd"],
Cell[BoxData[
InterpretationBox[
@@ -16390,86 +13773,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "6.943514411360013189695387250594172645896438148735770561459746379`\
-43.70170025482238*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.23616224159246", ",", "0``57.161150909262744"}], "}"}]}],
+ "3.94905393408697762003875374278756640015960123629612061910818218`43.\
+532035075914145*^-14", ",", "0``57.56062563390967", ",",
+ "0``57.322065006549835", ",", "0``57.23657200643707"}], "}"}]}],
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}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.94905393408697762003875374278756640015960123629612061910818218`43.\
+532035075914145*^-14, 0``57.56062563390967, 0``57.322065006549835,
+ 0``57.23657200643707}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.78029013682397*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222861804303*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"7f498179-9df5-4d46-8bcd-f1505e6c066b"],
+In[945]:=",ExpressionUUID->"877e5ec7-d8df-467d-b8c1-c46e2201cff2"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290136842154*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228618674726`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f3f99656-da3e-45bb-b1d2-4e3f71738a29"],
+In[945]:=",ExpressionUUID->"665e9463-8f48-46a8-a957-f6db51a71b45"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "290.2737494661384403116`10."}], ",",
- RowBox[{"S", "\[Rule]", "476100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "275.0263885953505109683`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "336400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
+ RowBox[{"-", "159593.1002412894865413152`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
+ RowBox[{"-", "159593.1002412894865413152`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
+ RowBox[{"-", "11600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "99171.8210994469312468303`10."}], ",",
+ RowBox[{"-", "11600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37236.2004825789527134239`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "690.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "580.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "314.915577733853825383`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "192.9668377793939823607`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03663631158603961887865809994064932551`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "273.1363615221398629443`10."}], ",",
+ "0.63027452389756456274802850840070982725`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "257.8998271701905799366`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "274.8130741735714743137`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "559.642743185328942249`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802901368640127`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222861943131*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"6c7e7653-cc5f-43c8-a71e-27d9ad1f2014"],
+In[945]:=",ExpressionUUID->"385e2b3c-ca56-4a2e-9417-adb0ed178081"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "336.2589928057554`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "279.14529914529913`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 336.2589928057554}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 279.14529914529913`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290374164585*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222873271213*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"d4a4c55a-c959-4701-b45d-a9d0226bd821"],
+In[945]:=",ExpressionUUID->"f67e588b-d207-49e2-8166-cfbbeccf7760"],
Cell[BoxData[
InterpretationBox[
@@ -16480,58 +13859,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"347.5`", ",", "0.`", ",", "0.`", ",", "347.5`"}], "}"}]}]},
+ RowBox[{"292.5`", ",", "0.`", ",", "0.`", ",", "292.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"347.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "347.5`"}]}], "}"}]}]},
+ RowBox[{"292.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "292.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "304.484831116634`", ",", "138.82183940227588`", ",",
+ "240.44647904490893`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"292.7745801846401`", ",", "0.`", ",",
- RowBox[{"-", "292.7745801846401`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.6355308036382`", ",",
- RowBox[{"-", "10.`"}], ",", "275.4540721089513`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"260.5151688833661`", ",",
+ RowBox[{"-", "138.82183940227588`"}], ",",
+ RowBox[{"-", "220.44647904490893`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {347.5, 0., 0., 347.5}, $CellContext`p2 -> {
- 347.5, 0., 0., -347.5}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {292.7745801846401,
- 0., -292.7745801846401, 0.}, $CellContext`p5 -> {
- 275.6355308036382, -10., 275.4540721089513, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {292.5, 0., 0., 292.5}, $CellContext`p2 -> {
+ 292.5, 0., 0., -292.5}, $CellContext`p3 -> {304.484831116634,
+ 138.82183940227588`, 240.44647904490893`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 260.5151688833661, -138.82183940227588`, -220.44647904490893`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290378052536*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222873385419*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"41e0eb57-d53b-454e-bdeb-4c7815c7b5d0"],
+In[945]:=",ExpressionUUID->"8d865174-e7b1-4241-ae79-0f04f9e0a98e"],
Cell[BoxData[
InterpretationBox[
@@ -16539,86 +13916,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "8.914135768470645658531492601386542436467292376040351109446828153`\
-43.80706444415262*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.23243663743048", ",", "0``57.15801519540989"}], "}"}]}],
+ "5.06730978041134718850302645404088312199537662465168897571971654`43.\
+636591593128855*^-14", ",", "0``57.5565122097893", ",",
+ "0``57.31795158242947", ",", "0``57.23284413391782"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.914135768470645658531492601386542436467292376040351109446828153`43.\
-80706444415262*^-14, 0``58.69897000433602, 0``57.23243663743048,
- 0``57.15801519540989}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.06730978041134718850302645404088312199537662465168897571971654`43.\
+636591593128855*^-14, 0``57.5565122097893, 0``57.31795158242947,
+ 0``57.23284413391782}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290380202269*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222873448824*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"96a08319-ff3b-4ed2-b1eb-c08ea9029a24"],
+In[945]:=",ExpressionUUID->"4c5b56e9-6dc6-4252-94dd-502d956a440f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802903817485113`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222873520626*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"026bf25c-ff4a-4fe1-8945-e63569fd8fde"],
+In[945]:=",ExpressionUUID->"8b1c59fd-a548-4eeb-a390-d6243aa3ddbf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "292.7745801846401150215`10."}], ",",
- RowBox[{"S", "\[Rule]", "483025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "277.6436788045517687351`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "342225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "72354.9728631465309796761`10."}]}], ",",
+ RowBox[{"-", "162498.6262032308712694941`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "72354.9728631465309796761`10."}]}], ",",
+ RowBox[{"-", "162498.6262032308712694941`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "203478.3332283248799399189`10."}]}], ",",
+ RowBox[{"-", "11700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "203478.3332283248799399189`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "99891.6121829428709802408`10."}], ",",
+ RowBox[{"-", "11700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37422.2524064617161367668`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "695.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "585.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "316.0563433676705546218`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "193.4483197302621084122`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03630369274789542393271301214279514276`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "275.6355308036381685283`10."}], ",",
+ "0.62973035452290151812079761897953980225`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "260.515168883366082691`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "275.8048831028018046362`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "564.6459067415614031838`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290383851388*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222873575061*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"f635844f-85c3-4808-9881-5fe729682e1d"],
+In[945]:=",ExpressionUUID->"df1687f5-c17a-461d-8456-517c7a8641a5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "338.8392857142857`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "281.75847457627117`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 338.8392857142857}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 281.75847457627117`}, "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290616236895*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222885045685*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"e6518bb6-b010-41f4-aa20-fa963938ee98"],
+In[945]:=",ExpressionUUID->"7f926c05-3c5a-4a0d-87be-c6476118c67d"],
Cell[BoxData[
InterpretationBox[
@@ -16629,58 +14002,56 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"350.`", ",", "0.`", ",", "0.`", ",", "350.`"}], "}"}]}]},
+ RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", "295.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"350.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "350.`"}]}], "}"}]}]},
+ RowBox[{"295.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "295.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
+ "306.8714520812825`", ",", "140.12948307054697`", ",",
+ "242.71138431655018`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"295.275395964569`", ",", "0.`", ",",
- RowBox[{"-", "295.275395964569`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"278.13471502370925`", ",",
- RowBox[{"-", "10.`"}], ",", "277.9548878888802`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"263.1285479187175`", ",",
+ RowBox[{"-", "140.12948307054697`"}], ",",
+ RowBox[{"-", "222.71138431655018`"}], ",", "0.`"}], "}"}]}]}
},
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
+ Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {350., 0., 0., 350.}, $CellContext`p2 -> {
- 350., 0., 0., -350.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {295.275395964569,
- 0., -295.275395964569, 0.}, $CellContext`p5 -> {
- 278.13471502370925`, -10., 277.9548878888802, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {295., 0., 0., 295.}, $CellContext`p2 -> {
+ 295., 0., 0., -295.}, $CellContext`p3 -> {306.8714520812825,
+ 140.12948307054697`, 242.71138431655018`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 263.1285479187175, -140.12948307054697`, -222.71138431655018`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802906178865557`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228851595287`*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"3201f01f-e1ee-4e28-8463-aa4d39dd7a90"],
+In[945]:=",ExpressionUUID->"15c97d4e-d7be-4bd4-a07f-f1c44e9d32a5"],
Cell[BoxData[
InterpretationBox[
@@ -16689,520 +14060,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.1467655120503035043887802035022937854929526967139934136153395994`\
-43.91334658777352*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.228742743764414", ",", "0``57.15490195998574"}], "}"}]}],
+ "-", "6.39416379173689943253450268679157500598327795330451984287045558`\
+42.73390174958051*^-15"}], ",", "0``57.552440484412514", ",",
+ "0``57.31387985705269", ",", "0``57.22914798835786"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1467655120503035043887802035022937854929526967139934136153395994`43.\
-91334658777352*^-13, 0``58.69897000433602, 0``57.228742743764414,
- 0``57.15490195998574}],
+{-6.39416379173689943253450268679157500598327795330451984287045558`42.\
+73390174958051*^-15, 0``57.552440484412514, 0``57.31387985705269,
+ 0``57.22914798835786}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780290619133924*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"2e779f77-566c-4822-b68e-bd13b344b28f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802906211554937`*^9},
- CellLabel->
- "During evaluation of \
-In[399]:=",ExpressionUUID->"972d90ef-d944-4cfd-92ec-2597f98afed8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "295.2753959645689860736`10."}], ",",
- RowBox[{"S", "\[Rule]", "490000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "72987.9223082051391162205`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "72987.9223082051391162205`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "206692.777175198290251501`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "206692.777175198290251501`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "100611.3989668069225265028`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "700.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "317.19299955517133469`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03597706115532590802105346666184423389`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "278.134715023709271941`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "276.7931459584997142061`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.7802906223029013`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222885222475*^9},
CellLabel->
"During evaluation of \
-In[399]:=",ExpressionUUID->"03e3475c-c39c-4dfd-b53d-43d269844b09"]
-}, Open ]]
-}, Closed]],
-
-Cell[BoxData[
- RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
- "\[IndentingNewLine]"}]], "Input",
- CellChangeTimes->{{3.7808371431200113`*^9,
- 3.7808371434482718`*^9}},ExpressionUUID->"02d4ac09-3871-468b-9144-\
-5051c9782aae"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"range", "=",
- RowBox[{"Range", "[",
- RowBox[{"270", ",", "700", ",", "5"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"size", "=",
- RowBox[{"Length", "[", "range", "]"}]}], ";"}], "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{
- "Initialize", " ", "where", " ", "the", " ", "scattering", " ",
- "amplitude", " ", "will", " ", "be", " ", "saved", " ", "for", " ",
- "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"pmpmList", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"(*", " ",
- RowBox[{"Initialize", " ", "where", " ", "the", " ", "sqrt",
- RowBox[{"(", "S34", ")"}], " ", "will", " ", "be", " ", "saved", " ",
- "for", " ", "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"S34List", "=",
- RowBox[{"Range", "[", "size", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{"Do", "[", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"subAll", "[",
- RowBox[{
- RowBox[{"range", "[",
- RowBox[{"[", "n", "]"}], "]"}], ",", "100."}], "]"}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"S34List", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"KinRules", "[",
- RowBox[{"[",
- RowBox[{"10", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"ppppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"ppppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"pppp", "=", "ppppT"}],
- RowBox[{"(*",
- RowBox[{"+", "ppppB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pppp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pppp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pppmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"pppmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"pppm", "=", "pppmT"}],
- RowBox[{"(*",
- RowBox[{"+", "pppmB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pppm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pppm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pppm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"ppmpT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"ppmpB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"ppmp", "=", "ppmpT"}],
- RowBox[{"(*",
- RowBox[{"+", "ppmpB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"ppmp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"ppmp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"ppmp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmppT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"pmppB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"pmpp", "=", "pmppT"}],
- RowBox[{"(*",
- RowBox[{"+", "pmppB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmpp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmpp", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmpp", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"ppmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"ppmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"ppmm", "=", "ppmmT"}],
- RowBox[{"(*",
- RowBox[{"+", "ppmmB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"ppmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"ppmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"ppmm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmmmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"pmmmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"pmmm", "=", "pmmmT"}],
- RowBox[{"(*",
- RowBox[{"+", "pmmmB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmmm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmmm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]",
- "\[IndentingNewLine]",
- RowBox[{"pmpmT", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"(*",
- RowBox[{
- RowBox[{"pmpmB", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"bjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";"}], "*)"}],
- "\[IndentingNewLine]",
- RowBox[{"pmpm", "=", "pmpmT"}],
- RowBox[{"(*",
- RowBox[{"+", "pmpmB"}], "*)"}], ";", "\[IndentingNewLine]",
- RowBox[{"M", "=",
- RowBox[{"List", "[",
- RowBox[{"0", ",", "0", ",", "0", ",", "0", ",",
- RowBox[{"pmpm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"pmpm", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{"Mdagger", "=",
- RowBox[{"Conjugate", "[", "M", "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{"MdagM1", "=", " ",
- RowBox[{"Dot", "[",
- RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}]}], ";",
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=",
- RowBox[{"MdagM1", "+",
- RowBox[{"pmpm", "[",
- RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
- "\[IndentingNewLine]", ",",
- RowBox[{"{",
- RowBox[{"n", ",", "1", ",", "size"}], "}"}]}],
- "]"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGAQA2IQ3fJo20VHzTeOqb1V90F0BGPNUxB9QXvGaxCdkXFc
-0AlIf2G9CaavHI6WB9H1sa4GILrknf4uZyC9fK/tdRAts8x1ZzKQVmWrA9Mr
-GuWPgeilPhvBtOoipbcgWoR5PVMKyHyPbPs0IH1kVrgHiF42w8A9E0gHcZuB
-6R/n6/8/BtKbzKeA6Tt/vzLxar1xPLmnTBVE2900/i8GpNe8aAPTZZIrJMWB
-dPRFbSUQrfH+uBqILqv6pw+i/b74moBon//sViDa7a6OnDWQloqyANPLjE1e
-ewLpNiUbMB3k7/giXvuNo8fWyR9A9CY356UJQNqn2wdMP9GOMk0E0mxy5g4g
-ese91+kgWk7kB5gGABt2nfc=
- "],
- CellLabel->
- "In[279]:=",ExpressionUUID->"62a7e33e-04ff-40da-9729-f3e2630a583f"],
+In[945]:=",ExpressionUUID->"37746e51-ec1d-4c98-94a0-a23fef6767dc"],
-Cell[CellGroupData[{
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228852920637`*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"6564d940-f3ec-41e4-8403-3a32fb4c20ff"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "280.2589661410939356756`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "348100.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "165429.1567279566514108288`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "165429.1567279566514108288`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "11800.`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "11800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37608.3134559133061866316`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "590.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "193.9286297995046067887`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ "0.62919766540256570083056321950880873636`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "263.1285479187175335875`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "569.6490147450445583985`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222885370303*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"8f7b8df2-fc5d-4621-8c36-04adf20a6ab4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "284.3697478991597`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 284.3697478991597}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840279921719*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228967266417`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"085c72ac-4bbd-4d0b-aa59-ab1af81be48d"],
+In[945]:=",ExpressionUUID->"da1a531e-2ca7-4f52-8a6d-c6e249e0a9bf"],
Cell[BoxData[
InterpretationBox[
@@ -17213,29 +14145,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
+ RowBox[{"297.5`", ",", "0.`", ",", "0.`", ",", "297.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"135.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "135.`"}]}], "}"}]}]},
+ RowBox[{"297.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "297.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "309.2599860576453`", ",", "141.43615076808948`", ",",
+ "244.97459915730286`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"44.65867327898223`", ",", "0.`", ",",
- RowBox[{"-", "44.65867327898223`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"65.26322078519647`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "41.943867099461634`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"265.7400139423546`", ",",
+ RowBox[{"-", "141.43615076808948`"}], ",",
+ RowBox[{"-", "224.97459915730286`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -17249,21 +14181,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {44.65867327898223,
- 0., -44.65867327898223, 0.}, $CellContext`p5 -> {
- 65.26322078519647, -50., -41.943867099461634`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {297.5, 0., 0., 297.5}, $CellContext`p2 -> {
+ 297.5, 0., 0., -297.5}, $CellContext`p3 -> {309.2599860576453,
+ 141.43615076808948`, 244.97459915730286`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 265.7400139423546, -141.43615076808948`, -224.97459915730286`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808402799250317`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222896830274*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"1a6b3b1a-cebf-4440-b260-a1a34c1d5232"],
+In[945]:=",ExpressionUUID->"7f8da28f-bef4-484e-b86b-eacbf3022523"],
Cell[BoxData[
InterpretationBox[
@@ -17272,88 +14203,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "8.655106823743360951177025441706845807574405052041632687036411716`\
-44.204878672605204*^-14"}], ",", "0``58.", ",", "0``57.76143937264017", ",",
- "0``57.56863623584101"}], "}"}]}],
+ "-", "9.325398053997674137473839331738497733950574584257797532393333323`\
+43.894120417315015*^-14"}], ",", "0``57.54840957597504", ",",
+ "0``57.309848948615205", ",", "0``57.22548303427145"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.655106823743360951177025441706845807574405052041632687036411716`44.\
-204878672605204*^-14, 0``58., 0``57.76143937264017, 0``57.56863623584101}],
+{-9.325398053997674137473839331738497733950574584257797532393333323`43.\
+894120417315015*^-14, 0``57.54840957597504, 0``57.309848948615205,
+ 0``57.22548303427145}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840279928762*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822228968921337`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"f7a81e7b-2152-4960-9935-cf9a0ab88bec"],
+In[945]:=",ExpressionUUID->"b46a6a8d-ca6b-4509-87bc-edbe4a8eb8df"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840279931192*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222289695718*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"0dd16c5e-cbec-4ccd-857c-f37ab63a292b"],
+In[945]:=",ExpressionUUID->"e4a7df73-5878-476d-9d0b-bb84c8422995"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "44.6586732789822278278`10."}], ",",
- RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "282.8723015361789521194`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "354025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
+ RowBox[{"-", "168384.6917042989379254367`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27596.0886026717286337955`10."}]}], ",",
+ RowBox[{"-", "168384.6917042989379254367`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "12057.8417853252015135013`10."}]}], ",",
+ RowBox[{"-", "11900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "12057.8417853252015135013`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "37657.8607759938715917964`10."}], ",",
+ RowBox[{"-", "11900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37794.3834085979254135016`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "595.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "194.0563340269878219771`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "194.407776101157860587`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "1.19206938839079447284996891682075538056`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "65.2632207851964684589`10."}], ",",
+ "0.62867608742441598281437253785452903543`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "265.7400139423546329217`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "220.8717193969150002595`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "574.6520686467594129842`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840279933393*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222897035139*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a1d9b170-a415-41b6-8398-5a996d7c34cd"],
+In[945]:=",ExpressionUUID->"803d56c0-a7a0-4a1f-9354-c3585fadf537"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "109.0909090909091`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "286.9791666666667`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 109.0909090909091}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 286.9791666666667}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084029169541*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222910638918*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"b7463bfc-c6b4-4e56-9028-eb3d313f49e4"],
+In[945]:=",ExpressionUUID->"aaa7e09f-6ca2-4f2f-b7ce-1238154baac6"],
Cell[BoxData[
InterpretationBox[
@@ -17364,29 +14288,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",", "137.5`"}], "}"}]}]},
+ RowBox[{"300.`", ",", "0.`", ",", "0.`", ",", "300.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"137.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "137.5`"}]}], "}"}]}]},
+ RowBox[{"300.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "300.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "311.6503850410229`", ",", "142.74186710301382`", ",",
+ "247.23616618966443`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"56.62279179969027`", ",", "0.`", ",",
- RowBox[{"-", "56.62279179969027`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"58.29910226448842`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "29.979748578753597`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"268.3496149589771`", ",",
+ RowBox[{"-", "142.74186710301382`"}], ",",
+ RowBox[{"-", "227.23616618966443`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -17400,21 +14324,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {137.5, 0., 0., 137.5}, $CellContext`p2 -> {
- 137.5, 0., 0., -137.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {56.62279179969027,
- 0., -56.62279179969027, 0.}, $CellContext`p5 -> {
- 58.29910226448842, -50., -29.979748578753597`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {300., 0., 0., 300.}, $CellContext`p2 -> {
+ 300., 0., 0., -300.}, $CellContext`p3 -> {311.6503850410229,
+ 142.74186710301382`, 247.23616618966443`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 268.3496149589771, -142.74186710301382`, -227.23616618966443`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840291698036*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222910741481*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"185a9a41-f87e-4edb-8611-f5c1b3bd5bac"],
+In[945]:=",ExpressionUUID->"d39e4675-7fa6-472d-a1d9-5091f07195a3"],
Cell[BoxData[
InterpretationBox[
@@ -17423,89 +14346,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.882534156475118390807809427537309393318263326813759517106359422`\
-44.254505634552196*^-14"}], ",", "0``58.", ",", "0``57.76143937264017", ",",
- "0``57.56066730616974"}], "}"}]}],
+ "-", "1.673276171486360562925593611107206940447159030783706374025851739`\
+43.144386380422304*^-14"}], ",", "0``57.544418631186275", ",",
+ "0``57.30585800382646", ",", "0``57.22184874961636"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.882534156475118390807809427537309393318263326813759517106359422`44.\
-254505634552196*^-14, 0``58., 0``57.76143937264017, 0``57.56066730616974}],
+{-1.673276171486360562925593611107206940447159030783706374025851739`43.\
+144386380422304*^-14, 0``57.544418631186275, 0``57.30585800382646,
+ 0``57.22184874961636}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840291700739*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222910804443*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"866f2339-4b25-455f-92d2-d5720f904fe1"],
+In[945]:=",ExpressionUUID->"ba749a12-8b35-4f4f-9f69-994c48ddba71"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840291703397*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222910868493*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"0c96516f-aef8-4453-935c-11c09ce7112e"],
+In[945]:=",ExpressionUUID->"5dee648c-ee79-4fb7-abcb-0055cb372168"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "56.6227917996902689879`10."}], ",",
- RowBox[{"S", "\[Rule]", "75625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "285.4837342060276341726`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "360000.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28396.4791323508347196065`10."}]}], ",",
+ RowBox[{"-", "171365.2310246137424110818`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28396.4791323508347196065`10."}]}], ",",
+ RowBox[{"-", "171365.2310246137424110818`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "15571.2677449148239716692`10."}]}], ",",
+ RowBox[{"-", "12000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "15571.2677449148239716692`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "43560.4937545313289054087`10."}], ",",
+ RowBox[{"-", "12000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37980.462049227493802624`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "275.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "600.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "208.7115084381580739511`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "194.8857666665975219511`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "1.66779250561942984011901144433338598424`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "58.2991022644884150246`10."}], ",",
+ "0.62816526742434653978038696945685843032`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "268.3496149589770792488`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "210.9086639049479847002`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "579.655069847577526206`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840291705576*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222910934456*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"2bf3679c-e92c-4452-ade2-bc8b531f12ab"],
+In[945]:=",ExpressionUUID->"1505a8ab-f1aa-45fa-8f5e-226c65bfc6d8"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "112.09821428571428`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "289.58677685950414`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 112.09821428571428`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 289.58677685950414`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840303548355*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229225318937`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a37a864b-8970-4466-8270-6843a1a2c2ec"],
+In[945]:=",ExpressionUUID->"3732002e-ef82-49ca-89c3-d1fa8f7bea2a"],
Cell[BoxData[
InterpretationBox[
@@ -17516,29 +14432,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"140.`", ",", "0.`", ",", "0.`", ",", "140.`"}], "}"}]}]},
+ RowBox[{"302.5`", ",", "0.`", ",", "0.`", ",", "302.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"140.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "140.`"}]}], "}"}]}]},
+ RowBox[{"302.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "302.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "314.0426026192487`", ",", "144.04665586180002`", ",",
+ "249.4961266130269`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"65.74648351921462`", ",", "0.`", ",",
- RowBox[{"-", "65.74648351921462`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"54.17541054496406`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "20.856056859229245`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"270.95739738075116`", ",",
+ RowBox[{"-", "144.04665586180002`"}], ",",
+ RowBox[{"-", "229.4961266130269`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -17552,21 +14468,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {65.74648351921462,
- 0., -65.74648351921462, 0.}, $CellContext`p5 -> {
- 54.17541054496406, -50., -20.856056859229245`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {302.5, 0., 0., 302.5}, $CellContext`p2 -> {
+ 302.5, 0., 0., -302.5}, $CellContext`p3 -> {314.0426026192487,
+ 144.04665586180002`, 249.4961266130269, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 270.95739738075116`, -144.04665586180002`, -229.4961266130269, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084030355089*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222922648732*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"1ee4cd65-dc4c-4aa6-a46c-fcc228f6a578"],
+In[945]:=",ExpressionUUID->"bc76a51b-a539-4285-95ae-af2fd273b032"],
Cell[BoxData[
InterpretationBox[
@@ -17575,89 +14490,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0071929017016538632910060164868235847527359306540281064656479191`\
-44.25492462936817*^-13"}], ",", "0``58.", ",", "0``57.76143937264017", ",",
- "0``57.55284196865779"}], "}"}]}],
+ "-", "6.401807951902958896123383463695472294520507183219607295097906031`\
+43.72351727126926*^-14"}], ",", "0``57.54046682403562", ",",
+ "0``57.301906196675795", ",", "0``57.21824462534753"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0071929017016538632910060164868235847527359306540281064656479191`44.\
-25492462936817*^-13, 0``58., 0``57.76143937264017, 0``57.55284196865779}],
+{-6.401807951902958896123383463695472294520507183219607295097906031`43.\
+72351727126926*^-14, 0``57.54046682403562, 0``57.301906196675795,
+ 0``57.21824462534753}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840303553183*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222292274494*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"91f39d7d-6304-41f9-a3c0-147cf0c89191"],
+In[945]:=",ExpressionUUID->"f2b49472-5b08-4211-b912-19c709cb90ef"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840303555274*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222922843726*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a06a58ce-ffb2-47bf-a66e-09aa606ccda5"],
+In[945]:=",ExpressionUUID->"857df769-177d-4053-9614-925e5b801a7f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "65.7464835192146210829`10."}], ",",
- RowBox[{"S", "\[Rule]", "78400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "288.0933117236000384764`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "366025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29196.8696620299408054175`10."}]}], ",",
+ RowBox[{"-", "174370.7745846454952126293`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29196.8696620299408054175`10."}]}], ",",
+ RowBox[{"-", "174370.7745846454952126293`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "18409.0153853800939032226`10."}]}], ",",
+ RowBox[{"-", "12100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "18409.0153853800939032226`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48061.770094820080330298`10."}], ",",
+ RowBox[{"-", "12100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38166.5491692910251176032`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "280.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "605.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "219.2299479879974800025`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "195.3626094453363537935`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "2.39738510196254805983441527050814556787`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "54.1754105449640610355`10."}], ",",
+ "0.62766486732340129675087332591649426278`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "270.9573973807511835643`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "203.9165741896419979051`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "584.6580197004056533844`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084030355758*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222922911785*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"633a345d-efd1-471d-a7b6-76f23a97d307"],
+In[945]:=",ExpressionUUID->"3ffd9988-f6f5-45d7-a647-a1b2b57c569c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "115.08771929824562`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "292.19262295081967`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.08771929824562`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 292.19262295081967`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403159299517`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222938376418*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"ca05b981-a894-48d5-b372-d9e702436d8c"],
+In[945]:=",ExpressionUUID->"1873147b-4432-4d00-9eab-d9550a9c9f27"],
Cell[BoxData[
InterpretationBox[
@@ -17668,29 +14576,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",", "142.5`"}], "}"}]}]},
+ RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", "305.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"142.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "142.5`"}]}], "}"}]}]},
+ RowBox[{"305.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "305.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "316.43659390720984`", ",", "145.3505400433693`", ",",
+ "251.75452026269025`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"73.14162528096915`", ",", "0.`", ",",
- RowBox[{"-", "73.14162528096915`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"51.78026878320952`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "13.460915097474713`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"273.56340609279016`", ",",
+ RowBox[{"-", "145.3505400433693`"}], ",",
+ RowBox[{"-", "231.75452026269025`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -17704,21 +14612,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {142.5, 0., 0., 142.5}, $CellContext`p2 -> {
- 142.5, 0., 0., -142.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {73.14162528096915,
- 0., -73.14162528096915, 0.}, $CellContext`p5 -> {
- 51.78026878320952, -50., -13.460915097474713`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {305., 0., 0., 305.}, $CellContext`p2 -> {
+ 305., 0., 0., -305.}, $CellContext`p3 -> {316.43659390720984`,
+ 145.3505400433693, 251.75452026269025`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 273.56340609279016`, -145.3505400433693, -231.75452026269025`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840315933189*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229384995193`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"60c4361e-95f8-464b-97b6-7faaa7050d07"],
+In[945]:=",ExpressionUUID->"e6505df1-5c54-4d08-a8c8-d8f96d8a223a"],
Cell[BoxData[
InterpretationBox[
@@ -17727,88 +14634,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0792329002440139559311394024797488789183620501102555802364857132`\
-44.27724032059165*^-13"}], ",", "0``58.", ",", "0``57.76143937264017", ",",
- "0``57.54515513999149"}], "}"}]}],
+ "-", "4.590168313607908790628033222439915623715016448925654444013360707`\
+43.57546877998908*^-14"}], ",", "0``57.53655335462504", ",",
+ "0``57.2979927272652", ",", "0``57.214670164989236"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0792329002440139559311394024797488789183620501102555802364857132`44.\
-27724032059165*^-13, 0``58., 0``57.76143937264017, 0``57.54515513999149}],
+{-4.590168313607908790628033222439915623715016448925654444013360707`43.\
+57546877998908*^-14, 0``57.53655335462504, 0``57.2979927272652,
+ 0``57.214670164989236}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403159357853`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222938569832*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4e4c09d4-b20c-40fd-aca0-9e6f2c717226"],
+In[945]:=",ExpressionUUID->"3b14210d-f9b5-47cb-8580-2963d4d46aea"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403159380302`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222938644649*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"63a8fc92-6538-4374-8311-2b6357242366"],
+In[945]:=",ExpressionUUID->"398381fb-276d-45df-9dae-a29bf2d6e03e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "73.1416252809691513903`10."}], ",",
- RowBox[{"S", "\[Rule]", "81225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "290.7010800867386137725`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "372100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29997.2601917090468912286`10."}]}], ",",
+ RowBox[{"-", "177401.3222833979886899485`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29997.2601917090468912286`10."}]}], ",",
+ RowBox[{"-", "177401.3222833979886899485`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "20845.3632050762081462381`10."}]}], ",",
+ RowBox[{"-", "12200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "20845.3632050762081462381`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51710.2467935705212515272`10."}], ",",
+ RowBox[{"-", "12200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38352.6445667960024939385`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "285.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "610.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "227.3988715749718078436`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "195.8383123058305016447`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "3.71445771984551560907427888991172437727`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "51.7802687832095235242`10."}], ",",
+ "0.62717456332077867262368989768989025237`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "273.5634060927901365738`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "198.8322750205497648161`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "589.6609195122226733273`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840315940813*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222293870673*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"d6d2273d-8736-4a15-80db-a169d355c27f"],
+In[945]:=",ExpressionUUID->"cc2cf897-e3a5-4100-a4a2-e8bbd77365a7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "118.0603448275862`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "294.7967479674797`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 118.0603448275862}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 294.7967479674797}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840328130414*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222295092657*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"7edbd199-4b77-49dd-91a0-aa91a0473b1d"],
+In[945]:=",ExpressionUUID->"76d5917e-ff8f-445a-adf6-0514793d1c57"],
Cell[BoxData[
InterpretationBox[
@@ -17819,29 +14719,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", "145.`"}], "}"}]}]},
+ RowBox[{"307.5`", ",", "0.`", ",", "0.`", ",", "307.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"145.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "145.`"}]}], "}"}]}]},
+ RowBox[{"307.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "307.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "318.83231548456996`", ",", "146.65354189146979`", ",",
+ "254.01138566595642`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"79.40675439358148`", ",", "0.`", ",",
- RowBox[{"-", "79.40675439358148`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"50.515139670597186`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "7.195785984862385`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"276.16768451543`", ",",
+ RowBox[{"-", "146.65354189146979`"}], ",",
+ RowBox[{"-", "234.01138566595642`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -17855,21 +14755,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {79.40675439358148,
- 0., -79.40675439358148, 0.}, $CellContext`p5 -> {
- 50.515139670597186`, -50., -7.195785984862385, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {307.5, 0., 0., 307.5}, $CellContext`p2 -> {
+ 307.5, 0., 0., -307.5}, $CellContext`p3 -> {318.83231548456996`,
+ 146.65354189146979`, 254.01138566595642`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 276.16768451543, -146.65354189146979`, -234.01138566595642`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084032813315*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222951044743*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"60efb191-c6d6-41dd-be95-a9365c79858f"],
+In[945]:=",ExpressionUUID->"7cfba746-40e3-43df-8051-3a9896fe072d"],
Cell[BoxData[
InterpretationBox[
@@ -17878,89 +14777,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.1371793775967447401065349353996514512388191969287885678513648057`\
-44.29240098172812*^-13"}], ",", "0``58.", ",", "0``57.76143937264016", ",",
- "0``57.537602002101046"}], "}"}]}],
+ "-", "6.251987108188966025854806966400358525788273418777094133910428691`\
+43.70611296237861*^-14"}], ",", "0``57.5326774480638", ",",
+ "0``57.29411682070396", ",", "0``57.21112488422458"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1371793775967447401065349353996514512388191969287885678513648057`44.\
-29240098172812*^-13, 0``58., 0``57.76143937264016, 0``57.537602002101046}],
+{-6.251987108188966025854806966400358525788273418777094133910428691`43.\
+70611296237861*^-14, 0``57.5326774480638, 0``57.29411682070396,
+ 0``57.21112488422458}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840328136133*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229511110897`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"0ccdaa53-5d35-4eee-9909-fac2671c83d0"],
+In[945]:=",ExpressionUUID->"b14bc9cb-5256-4fee-b94a-b9e9c0668ae0"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403281382713`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229511937428`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"41d52353-2a2f-489d-a0c2-d95b676035e3"],
+In[945]:=",ExpressionUUID->"e9b99e85-0c0c-42ba-b856-5e7ec0f128f8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "79.4067543935814796896`10."}], ",",
- RowBox[{"S", "\[Rule]", "84100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "293.3070837829395713925`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "378225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30797.6507213881529770396`10."}]}], ",",
+ RowBox[{"-", "180456.8740230105098013329`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30797.6507213881529770396`10."}]}], ",",
+ RowBox[{"-", "180456.8740230105098013329`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "23027.9587741386291099843`10."}]}], ",",
+ RowBox[{"-", "12300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "23027.9587741386291099843`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "54801.2189910535756630028`10."}], ",",
+ RowBox[{"-", "12300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38538.7480460210541346018`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "290.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "615.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "234.0966018357668848949`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "196.3128830362924860446`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "6.9485112682872848768`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "50.5151396705971894303`10."}], ",",
+ "0.62669404513852547711373348729019802549`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "276.1676845154300028438`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "195.0489232262580163859`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "594.6637705460119298198`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840328140444*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222951262989*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"7d94db85-6ca7-4dae-97b1-c10018cfb554"],
+In[945]:=",ExpressionUUID->"dd2b0ac2-04ce-4f3e-9a86-547e1bc98902"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "121.01694915254237`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "297.3991935483871`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 121.01694915254237`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 297.3991935483871}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840340288995*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222963811932*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"9b4253b6-65ad-40e0-81d3-c74150917422"],
+In[945]:=",ExpressionUUID->"03e79aa6-c72c-44e5-9580-d6c1c06fd129"],
Cell[BoxData[
InterpretationBox[
@@ -17971,29 +14862,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",", "147.5`"}], "}"}]}]},
+ RowBox[{"310.`", ",", "0.`", ",", "0.`", ",", "310.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"147.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "147.5`"}]}], "}"}]}]},
+ RowBox[{"310.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "310.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "321.22972533651574`", ",", "147.95568292547378`", ",",
+ "256.2667600954716`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"84.8926658997042`", ",", "0.`", ",",
- RowBox[{"-", "84.8926658997042`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"50.02922816447447`", ",",
- RowBox[{"-", "50.`"}], ",",
- RowBox[{"-", "1.7098744787396665`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"278.7702746634843`", ",",
+ RowBox[{"-", "147.95568292547378`"}], ",",
+ RowBox[{"-", "236.26676009547162`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18007,21 +14898,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {147.5, 0., 0., 147.5}, $CellContext`p2 -> {
- 147.5, 0., 0., -147.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {84.8926658997042,
- 0., -84.8926658997042, 0.}, $CellContext`p5 -> {
- 50.02922816447447, -50., -1.7098744787396665`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {310., 0., 0., 310.}, $CellContext`p2 -> {
+ 310., 0., 0., -310.}, $CellContext`p3 -> {321.22972533651574`,
+ 147.95568292547378`, 256.2667600954716, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 278.7702746634843, -147.95568292547378`, -236.26676009547162`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403402917423`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222296393955*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"dc5a1f3a-a74b-4d42-b663-eec4b58258d1"],
+In[945]:=",ExpressionUUID->"456a7b71-d5d4-4b10-a418-604599396dc7"],
Cell[BoxData[
InterpretationBox[
@@ -18029,90 +14919,223 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.1754886766844019822330254011760437177397458107603642363455005281`\
-44.299366438341856*^-13"}], ",", "0``58.", ",", "0``57.76143937264017", ",",
- "0``57.53017798402184"}], "}"}]}],
+ "1.605449025251631308745391704979887935234156155500697279789254359`43.\
+11217483563821*^-14", ",", "0``57.5288383534215", ",", "0``57.29027772606166",
+ ",", "0``57.20760831050175"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1754886766844019822330254011760437177397458107603642363455005281`44.\
-299366438341856*^-13, 0``58., 0``57.76143937264017, 0``57.53017798402184}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.605449025251631308745391704979887935234156155500697279789254359`43.\
+11217483563821*^-14, 0``57.5288383534215, 0``57.29027772606166,
+ 0``57.20760831050175}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840340294441*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222964008967*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"eac9ece2-0373-4123-9a1f-904b070d6a7f"],
+In[945]:=",ExpressionUUID->"5fc3578e-ae18-408b-af3a-ee3b379ef6d0"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403402966127`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222964084076*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"044585f7-b5e0-44a6-b580-cc115abab28b"],
+In[945]:=",ExpressionUUID->"ff891182-7314-441f-b8e7-ec15f729fb46"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "84.8926658997041982957`10."}], ",",
- RowBox[{"S", "\[Rule]", "87025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "295.9113658509475612846`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "384400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31598.0412510672590628506`10."}]}], ",",
+ RowBox[{"-", "183537.4297086397512537564`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31598.0412510672590628506`10."}]}], ",",
+ RowBox[{"-", "183537.4297086397512537564`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "25043.3364404127384972298`10."}]}], ",",
+ RowBox[{"-", "12400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "25043.3364404127384972298`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57507.7553829600068819191`10."}], ",",
+ RowBox[{"-", "12400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38724.8594172794935564835`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "295.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "620.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "239.8077467117357467997`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "196.7863293455099069334`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "29.2419125624090053064`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "50.0292281644744669933`10."}], ",",
+ "0.62622301531407659914881348006681774765`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "278.7702746634842882258`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "192.1934627378737708188`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "599.6665740225980106613`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840340299037*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222964142124*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"d6f694a2-68fa-46d9-be57-a7abeecf7d99"],
+In[945]:=",ExpressionUUID->"25410135-f666-4bd5-be50-72c0f207cd04"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "300.`"}], "}"}],
+ "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 300.}, "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222976972331*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"6ab5807f-88ad-4eff-ab7b-3cca8afb8846"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"(", "\[NoBreak]",
+ TagBox[GridBox[{
+ {
+ RowBox[{"p1", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"312.5`", ",", "0.`", ",", "0.`", ",", "312.5`"}], "}"}]}]},
+ {
+ RowBox[{"p2", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"312.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "312.5`"}]}], "}"}]}]},
+ {
+ RowBox[{"p3", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ "323.6287827973545`", ",", "149.25698396967667`", ",",
+ "258.52067961997346`", ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p4", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
+ {
+ RowBox[{"p5", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"281.37121720264554`", ",",
+ RowBox[{"-", "149.25698396967667`"}], ",",
+ RowBox[{"-", "238.52067961997344`"}], ",", "0.`"}], "}"}]}]}
+ },
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}}],
+ Column], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
+ SequenceForm["Four Momenta : \n",
+ MatrixForm[{$CellContext`p1 -> {312.5, 0., 0., 312.5}, $CellContext`p2 -> {
+ 312.5, 0., 0., -312.5}, $CellContext`p3 -> {323.6287827973545,
+ 149.25698396967667`, 258.52067961997346`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 281.37121720264554`, -149.25698396967667`, -238.52067961997344`, 0.}}],
+ "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229771022778`*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"2e5e7827-41b6-4742-86f4-9468bcaabd8b"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ "6.326675702825295970067453014083511720225750853382236023204412614`43.\
+70426556065087*^-14", ",", "0``57.52503534273542", ",",
+ "0``57.28647471537559", ",", "0``57.204119982655925"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.326675702825295970067453014083511720225750853382236023204412614`43.\
+70426556065087*^-14, 0``57.52503534273542, 0``57.28647471537559,
+ 0``57.204119982655925}],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222977167143*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"536b8c3f-7788-4172-b4f5-4b2ba775b797"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222977255808*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"c917c0bd-4e3f-4270-bea9-269fd9c867b8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "298.5139679393533356233`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "390625.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "186642.9892483465771728349`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "186642.9892483465771728349`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "12500.`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "12500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38910.9784966931187427809`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "625.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "197.2586588636684378053`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ "0.62576118853712196563390344141431206189`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "281.3712172026455397902`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "604.6693311223912872288`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222977331297*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"95041527-7636-4328-b9a0-aded367fa5db"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{"kT3", "\[Rule]", "302.5992063492063`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 302.5992063492063}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840352248583*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222990399534*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4a80f206-1e47-4ed3-9cc5-b0bf3639085b"],
+In[945]:=",ExpressionUUID->"efbc5c10-bf8e-45d9-b137-229c9710a3bb"],
Cell[BoxData[
InterpretationBox[
@@ -18123,29 +15146,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
+ RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", "315.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "150.`"}]}], "}"}]}]},
+ RowBox[{"315.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "315.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "326.0294484968062`", ",", "150.55746518118224`", ",",
+ "260.7731791525898`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"89.81857221076743`", ",", "0.`", ",",
- RowBox[{"-", "89.81857221076743`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"50.10332185341126`", ",",
- RowBox[{"-", "50.`"}], ",", "3.2160318323235635`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"283.97055150319375`", ",",
+ RowBox[{"-", "150.55746518118224`"}], ",",
+ RowBox[{"-", "240.77317915258982`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18159,21 +15182,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {89.81857221076743,
- 0., -89.81857221076743, 0.}, $CellContext`p5 -> {
- 50.10332185341126, -50., 3.2160318323235635`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {315., 0., 0., 315.}, $CellContext`p2 -> {
+ 315., 0., 0., -315.}, $CellContext`p3 -> {326.0294484968062,
+ 150.55746518118224`, 260.7731791525898, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 283.97055150319375`, -150.55746518118224`, -240.77317915258982`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840352251463*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222299052847*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"5f301b68-0e50-4d8d-ad30-49a628fc6442"],
+In[945]:=",ExpressionUUID->"64056121-35d6-48e5-9b5b-2d99ff94b061"],
Cell[BoxData[
InterpretationBox[
@@ -18182,89 +15204,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.362360261819959419050121245404251043415135430054710445906600012`\
-44.193234098297346*^-14"}], ",", "0``58.", ",", "0``57.74560385726011", ",",
- "0``57.522878745280345"}], "}"}]}],
+ "-", "4.755976472901449079978227854258447852495738013044234123434505759`\
+43.576869152445084*^-14"}], ",", "0``57.521267710069345", ",",
+ "0``57.28270708270951", ",", "0``57.20065945054642"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.362360261819959419050121245404251043415135430054710445906600012`44.\
-193234098297346*^-14, 0``58., 0``57.74560385726011, 0``57.522878745280345}],
+{-4.755976472901449079978227854258447852495738013044234123434505759`43.\
+576869152445084*^-14, 0``57.521267710069345, 0``57.28270708270951,
+ 0``57.20065945054642}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840352253886*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822229905939713`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"540fc933-e9ae-4ea5-b24b-4b865c2dd4b9"],
+In[945]:=",ExpressionUUID->"329bd961-0d27-41d1-bae1-317d44ffff5b"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403522560387`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222990670224*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"90323ce7-f023-4e1b-bad4-6867348149e2"],
+In[945]:=",ExpressionUUID->"394f9f18-78f5-4c83-b2bb-4e4ff116cd40"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "89.8185722107674280323`10."}], ",",
- RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "301.1149303623644755135`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "396900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32398.4317807463651486616`10."}]}], ",",
+ RowBox[{"-", "189773.5525529879069120459`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32398.4317807463651486616`10."}]}], ",",
+ RowBox[{"-", "189773.5525529879069120459`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "26945.5716632302284097022`10."}]}], ",",
+ RowBox[{"-", "12600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "26945.5716632302284097022`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59938.0068879531964984348`10."}], ",",
+ RowBox[{"-", "12600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39097.105105975840835237`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "630.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "244.8223986647324646673`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "197.7298791431781582558`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "15.5471097945803930026`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "50.1033218534112611819`10."}], ",",
+ "0.62530829102757561937049594035093944478`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "283.9705515031937509926`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "190.0233056062847882188`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "609.6720429870472107058`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403522584963`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782222990724679*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"65e18f3f-65b7-4cdc-bb51-16c3882b96d8"],
+In[945]:=",ExpressionUUID->"42257305-e10b-4ac1-b779-877038e68718"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "126.88524590163935`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "305.1968503937008`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 126.88524590163935`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 305.1968503937008}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840364344293*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223002710456*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"8e809a3b-7462-4767-a8c2-a7b1973d1783"],
+In[945]:=",ExpressionUUID->"c0b0f03a-2cba-4a61-bdef-bdbde2708d9b"],
Cell[BoxData[
InterpretationBox[
@@ -18275,29 +15289,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",", "152.5`"}], "}"}]}]},
+ RowBox[{"317.5`", ",", "0.`", ",", "0.`", ",", "317.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"152.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "152.5`"}]}], "}"}]}]},
+ RowBox[{"317.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "317.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "328.4316843088399`", ",", "151.8571460764536`", ",",
+ "263.02429249682643`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"94.32850918099469`", ",", "0.`", ",",
- RowBox[{"-", "94.32850918099469`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"50.59338488318397`", ",",
- RowBox[{"-", "50.`"}], ",", "7.725968802550821`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"286.56831569116014`", ",",
+ RowBox[{"-", "151.8571460764536`"}], ",",
+ RowBox[{"-", "243.02429249682643`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18311,21 +15325,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {152.5, 0., 0., 152.5}, $CellContext`p2 -> {
- 152.5, 0., 0., -152.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {94.32850918099469,
- 0., -94.32850918099469, 0.}, $CellContext`p5 -> {
- 50.59338488318397, -50., 7.725968802550821, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {317.5, 0., 0., 317.5}, $CellContext`p2 -> {
+ 317.5, 0., 0., -317.5}, $CellContext`p3 -> {328.4316843088399,
+ 151.8571460764536, 263.02429249682643`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 286.56831569116014`, -151.8571460764536, -243.02429249682643`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403643483973`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223002819605*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"6e49c90f-d3c1-4160-b8e6-85772cbc8622"],
+In[945]:=",ExpressionUUID->"217e9c7d-81fd-4312-875b-f5a90285deaa"],
Cell[BoxData[
InterpretationBox[
@@ -18333,89 +15346,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.2335932928320703973702461975965626300598490374209071746608309535`\
-44.30584216440076*^-13"}], ",", "0``58.", ",", "0``57.724327033669", ",",
- "0``57.51570016065321"}], "}"}]}],
+ "2.927336042642055121734347689272841161360649548599654767749354853`43.\
+362668859041264*^-14", ",", "0``57.51753477062012", ",",
+ "0``57.27897414326027", ",", "0``57.19722627470802"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.2335932928320703973702461975965626300598490374209071746608309535`44.\
-30584216440076*^-13, 0``58., 0``57.724327033669, 0``57.51570016065321}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.927336042642055121734347689272841161360649548599654767749354853`43.\
+362668859041264*^-14, 0``57.51753477062012, 0``57.27897414326027,
+ 0``57.19722627470802}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840364350816*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223002881475*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"0a875fdd-72ae-4f56-9068-d31ba4d8598c"],
+In[945]:=",ExpressionUUID->"309938f1-c4e7-47aa-95dc-eb46a7ac5c45"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840364352964*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222300294993*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"d215a471-b2c4-4af9-8813-a3a6206f6430"],
+In[945]:=",ExpressionUUID->"e61a0cb1-512c-4f97-92f0-0772409519bb"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "94.3285091809946862895`10."}], ",",
- RowBox[{"S", "\[Rule]", "93025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "303.7142921529072054909`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "403225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33198.8223104254712344727`10."}]}], ",",
+ RowBox[{"-", "192929.1195361133349106825`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33198.8223104254712344727`10."}]}], ",",
+ RowBox[{"-", "192929.1195361133349106825`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "28770.1953002033793183045`10."}]}], ",",
+ RowBox[{"-", "12700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "28770.1953002033793183045`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62163.0352212577135878864`10."}], ",",
+ RowBox[{"-", "12700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39283.2390722266530437298`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "305.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "635.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "249.3251596234477768832`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "198.1999976595021381579`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "6.4716802873306837648`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "50.5933848831839731889`10."}], ",",
+ "0.62486405995168838299341438270055271313`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "286.5683156911601317762`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.3735899737359398048`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "614.6747107210447420932`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403643560467`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222300302479*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"dcc84afa-287c-470f-afc2-f8dbc6c7216e"],
+In[945]:=",ExpressionUUID->"3fb43410-a576-4bb8-82ed-a7f3087dda5e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "307.79296875`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 307.79296875}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840377376749*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230164425297`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"664208c0-b266-462c-b10c-64f258d2dd8c"],
+In[945]:=",ExpressionUUID->"1e74635c-26a8-4ba8-b598-4bdb0e4714e5"],
Cell[BoxData[
InterpretationBox[
@@ -18426,29 +15431,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
+ RowBox[{"320.`", ",", "0.`", ",", "0.`", ",", "320.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "155.`"}]}], "}"}]}]},
+ RowBox[{"320.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "320.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "330.8354533029152`", ",", "153.1560455566033`", ",",
+ "265.2740523903705`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"98.52101761583249`", ",", "0.`", ",",
- RowBox[{"-", "98.52101761583249`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"51.400876448346196`", ",",
- RowBox[{"-", "50.`"}], ",", "11.918477237388627`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"289.1645466970848`", ",",
+ RowBox[{"-", "153.1560455566033`"}], ",",
+ RowBox[{"-", "245.27405239037049`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18462,21 +15467,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {98.52101761583249,
- 0., -98.52101761583249, 0.}, $CellContext`p5 -> {
- 51.400876448346196`, -50., 11.918477237388627`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {320., 0., 0., 320.}, $CellContext`p2 -> {
+ 320., 0., 0., -320.}, $CellContext`p3 -> {330.8354533029152,
+ 153.1560455566033, 265.2740523903705, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 289.1645466970848, -153.1560455566033, -245.27405239037049`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840377379348*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223016558303*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"d08fbbe8-b32d-403c-9268-0d853ebca0b0"],
+In[945]:=",ExpressionUUID->"9ab4e6fa-c8b4-445d-9bef-d99fded71ade"],
Cell[BoxData[
InterpretationBox[
@@ -18485,88 +15489,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.383173015497923614602920986213695476403551657279763651553172631`\
-44.17995803481888*^-14"}], ",", "0``58.", ",", "0``57.70544111535228", ",",
- "0``57.50863830616573"}], "}"}]}],
+ "-", "3.16466224692320630733489682192465548953483686570223921687144341`\
+42.39311739648283*^-15"}], ",", "0``57.51383585986955", ",",
+ "0``57.27527523250972", ",", "0``57.19382002601611"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.383173015497923614602920986213695476403551657279763651553172631`44.\
-17995803481888*^-14, 0``58., 0``57.70544111535228, 0``57.50863830616573}],
+{-3.16466224692320630733489682192465548953483686570223921687144341`42.\
+39311739648283*^-15, 0``57.51383585986955, 0``57.27527523250972,
+ 0``57.19382002601611}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403773819723`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223016624733*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"8488522a-1a73-4ae9-bd0c-e4c7fe305ddf"],
+In[945]:=",ExpressionUUID->"dcf7baa4-4709-4c6b-9f38-b1482a425a8d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840377388077*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223016691045*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"34643216-4ac5-4435-b394-fdf58ac44e10"],
+In[945]:=",ExpressionUUID->"62d98249-f82d-4901-8b13-8b2ee705733f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "98.5210176158324912876`10."}], ",",
- RowBox[{"S", "\[Rule]", "96100.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "306.3120911132065771199`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "409600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33999.2128401045773202837`10."}]}], ",",
+ RowBox[{"-", "196109.690113865712331505`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33999.2128401045773202837`10."}]}], ",",
+ RowBox[{"-", "196109.690113865712331505`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "30541.5154609080722991621`10."}]}], ",",
+ RowBox[{"-", "12800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "30541.5154609080722991621`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64231.4566020253088849579`10."}], ",",
+ RowBox[{"-", "12800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39469.3802277314264932264`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "310.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "640.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "253.4392562371214600408`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "198.6690218119861446186`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "4.1951667989219692415`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "51.4008764483461977185`10."}], ",",
+ "0.62442824287358750614914985124046806672`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "289.1645466970848213174`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "187.1282156121406927867`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "619.6773353931866984624`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840377390777*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230167634897`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"52951c7b-2230-4cc2-aa3e-4259cc5bf9e6"],
+In[945]:=",ExpressionUUID->"c3ee9d9f-bb96-445b-845a-965bf54a7d3c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "132.6984126984127`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "310.3875968992248`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.6984126984127}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 310.3875968992248}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808403897583303`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230284519157`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"8d419c04-18aa-4893-b305-9151b85cb730"],
+In[945]:=",ExpressionUUID->"1b30a59a-4cac-4015-af8f-b2e1ea63f16f"],
Cell[BoxData[
InterpretationBox[
@@ -18577,29 +15574,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",", "157.5`"}], "}"}]}]},
+ RowBox[{"322.5`", ",", "0.`", ",", "0.`", ",", "322.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"157.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "157.5`"}]}], "}"}]}]},
+ RowBox[{"322.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "322.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "333.2407196974986`", ",", "154.4541819314929`", ",",
+ "267.5224905468326`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"102.46579120782863`", ",", "0.`", ",",
- RowBox[{"-", "102.46579120782863`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"52.45610285635006`", ",",
- RowBox[{"-", "50.`"}], ",", "15.863250829384766`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"291.75928030250134`", ",",
+ RowBox[{"-", "154.4541819314929`"}], ",",
+ RowBox[{"-", "247.52249054683259`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18613,21 +15610,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {157.5, 0., 0., 157.5}, $CellContext`p2 -> {
- 157.5, 0., 0., -157.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {102.46579120782863`,
- 0., -102.46579120782863`, 0.}, $CellContext`p5 -> {
- 52.45610285635006, -50., 15.863250829384766`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {322.5, 0., 0., 322.5}, $CellContext`p2 -> {
+ 322.5, 0., 0., -322.5}, $CellContext`p3 -> {333.2407196974986,
+ 154.4541819314929, 267.5224905468326, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 291.75928030250134`, -154.4541819314929, -247.52249054683259`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084038976219*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230286192493`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"015c47f0-d5ec-4126-9c2a-40810b1a5f07"],
+In[945]:=",ExpressionUUID->"2920dcf1-3f72-433f-86af-8c5569867f45"],
Cell[BoxData[
InterpretationBox[
@@ -18636,88 +15632,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.72046605758436002706006937561186692301623298501624744663205104`\
-44.188346538660426*^-14"}], ",", "0``58.", ",", "0``57.68839110645051", ",",
- "0``57.5016894462104"}], "}"}]}],
+ "-", "4.713902433493910084470454421948892838537657949038346495024505542`\
+43.56279087912501*^-14"}], ",", "0``57.51017033277862", ",",
+ "0``57.27160970541878", ",", "0``57.19044028536473"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.72046605758436002706006937561186692301623298501624744663205104`44.\
-188346538660426*^-14, 0``58., 0``57.68839110645051, 0``57.5016894462104}],
+{-4.713902433493910084470454421948892838537657949038346495024505542`43.\
+56279087912501*^-14, 0``57.51017033277862, 0``57.27160970541878,
+ 0``57.19044028536473}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840389765677*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223028684431*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4f3c6b86-7440-4563-a1af-4cea8021b912"],
+In[945]:=",ExpressionUUID->"29ffb5c2-2df6-4544-bbb3-1aa217782f43"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840389768777*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223028762787*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"53100027-8848-4f52-97bc-9e927b2bb65f"],
+In[945]:=",ExpressionUUID->"fdd93cdb-8e3c-44e5-ba16-5c7322f032b6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "102.4657912078286301494`10."}], ",",
- RowBox[{"S", "\[Rule]", "99225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "308.9083638629858228342`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "416025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "34799.6033697836834060947`10."}]}], ",",
+ RowBox[{"-", "199315.2642048866105246392`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "34799.6033697836834060947`10."}]}], ",",
+ RowBox[{"-", "199315.2642048866105246392`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "32276.7242304660184970544`10."}]}], ",",
+ RowBox[{"-", "12900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "32276.7242304660184970544`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66177.6552004994140042536`10."}], ",",
+ RowBox[{"-", "12900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39655.528409773248555774`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "315.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "645.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "257.2501801758346951853`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "199.1369589246889361962`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "3.15193906581751892657244917828052166442`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "52.4561028563500554838`10."}], ",",
+ "0.62400059723974595941221017796271159195`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "291.7592803025013318925`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.2029847748631597839`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "624.679918038030050035`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840389771763*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230288173523`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"0e792d05-6284-4d3f-951f-0fc6cc4f30c6"],
+In[945]:=",ExpressionUUID->"46b365df-c2fa-4314-b291-a3ebd8a0370d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "135.5859375`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "312.9807692307692`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 135.5859375}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 312.9807692307692}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404021495047`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223040397781*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"e0249036-6ac2-489d-b047-6574758403e6"],
+In[945]:=",ExpressionUUID->"dfb1bdfc-c241-4a86-b188-9c6274780d3f"],
Cell[BoxData[
InterpretationBox[
@@ -18728,29 +15717,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", "160.`"}], "}"}]}]},
+ RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", "325.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "160.`"}]}], "}"}]}]},
+ RowBox[{"325.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "325.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "335.64744881573137`", ",", "155.7515729427066`", ",",
+ "269.7696376955378`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"106.21351265474057`", ",", "0.`", ",",
- RowBox[{"-", "106.21351265474057`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"53.70838140943812`", ",",
- RowBox[{"-", "50.`"}], ",", "19.610972276296703`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"294.35255118426863`", ",",
+ RowBox[{"-", "155.7515729427066`"}], ",",
+ RowBox[{"-", "249.76963769553785`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18764,21 +15753,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {106.21351265474057`,
- 0., -106.21351265474057`, 0.}, $CellContext`p5 -> {
- 53.70838140943812, -50., 19.610972276296703`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {325., 0., 0., 325.}, $CellContext`p2 -> {
+ 325., 0., 0., -325.}, $CellContext`p3 -> {335.64744881573137`,
+ 155.7515729427066, 269.7696376955378, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 294.35255118426863`, -155.7515729427066, -249.76963769553785`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840402152419*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230405021467`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"21d90454-6329-43e0-83fe-4dcd136c6522"],
+In[945]:=",ExpressionUUID->"75cde4dc-74f7-450a-babb-4476ee8ca6d3"],
Cell[BoxData[
InterpretationBox[
@@ -18786,90 +15774,82 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "9.676027899804967712032184865370155768933051125855017690974423936`\
-44.17951713795005*^-14"}], ",", "0``58.", ",", "0``57.672790232429776", ",",
- "0``57.494850021680094"}], "}"}]}],
+ "7.3228705880390699786333397998991359221514280503278866790804848`41.\
+75073800691575*^-16", ",", "0``57.50653756302158", ",",
+ "0``57.26797693566174", ",", "0``57.18708664335715"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.676027899804967712032184865370155768933051125855017690974423936`44.\
-17951713795005*^-14, 0``58., 0``57.672790232429776, 0``57.494850021680094}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 7.3228705880390699786333397998991359221514280503278866790804848`41.\
+75073800691575*^-16, 0``57.50653756302158, 0``57.26797693566174,
+ 0``57.18708664335715}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840402155047*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222304057271*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a483b267-9cbe-4a65-ac34-fb3fb43a1a58"],
+In[945]:=",ExpressionUUID->"ee3372de-cf48-4fd0-bc42-eeae1cb01d06"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404021585283`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222304063721*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"be978b94-1c3b-42e7-8987-1dfa689818f6"],
+In[945]:=",ExpressionUUID->"0307a6cc-976b-462f-83de-5805770307f7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "106.2135126547405690189`10."}], ",",
- RowBox[{"S", "\[Rule]", "102400.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "311.5031458854131756198`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "422500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35599.9938994627894919057`10."}]}], ",",
+ RowBox[{"-", "202545.8417302253842937616`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35599.9938994627894919057`10."}]}], ",",
+ RowBox[{"-", "202545.8417302253842937616`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "33988.324049516982086061`10."}]}], ",",
+ RowBox[{"-", "13000.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "33988.324049516982086061`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68026.6358979595535496095`10."}], ",",
+ RowBox[{"-", "13000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39841.683460450768156422`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "320.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "650.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "260.8191632107571070328`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "199.6038162472119874084`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "2.54959312039993853539043139333486465148`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "53.7083814094381170586`10."}], ",",
+ "0.62358088989408460577195111807668840104`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "294.3525511842686402804`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.5353117359765411828`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "629.6824596572466071273`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404021608143`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223040717237*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"37d296f4-a617-493e-9d85-5c650705e380"],
+In[945]:=",ExpressionUUID->"eb295915-8874-421c-bd32-927582c6ed24"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "138.46153846153845`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "315.57251908396944`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 138.46153846153845`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 315.57251908396944`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840414609833*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223052557177*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"113e1a65-5377-4d30-8d60-7e3e498ff2b8"],
+In[945]:=",ExpressionUUID->"b3ea9b35-2824-42dc-9b40-590b6c6a9cc0"],
Cell[BoxData[
InterpretationBox[
@@ -18880,29 +15860,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",", "162.5`"}], "}"}]}]},
+ RowBox[{"327.5`", ",", "0.`", ",", "0.`", ",", "327.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"162.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "162.5`"}]}], "}"}]}]},
+ RowBox[{"327.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "327.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "338.055607043133`", ",", "157.04823578545953`", ",",
+ "272.0155236194726`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"109.80192208129053`", ",", "0.`", ",",
- RowBox[{"-", "109.80192208129053`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"55.11997198288817`", ",",
- RowBox[{"-", "50.`"}], ",", "23.19938170284666`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"296.94439295686703`", ",",
+ RowBox[{"-", "157.04823578545953`"}], ",",
+ RowBox[{"-", "252.01552361947262`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -18916,21 +15896,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {162.5, 0., 0., 162.5}, $CellContext`p2 -> {
- 162.5, 0., 0., -162.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {109.80192208129053`,
- 0., -109.80192208129053`, 0.}, $CellContext`p5 -> {
- 55.11997198288817, -50., 23.19938170284666, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {327.5, 0., 0., 327.5}, $CellContext`p2 -> {
+ 327.5, 0., 0., -327.5}, $CellContext`p3 -> {338.055607043133,
+ 157.04823578545953`, 272.0155236194726, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 296.94439295686703`, -157.04823578545953`, -252.01552361947262`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840414612677*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230527042933`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"17956b63-991c-4cbb-ad5a-15f85f9cffaf"],
+In[945]:=",ExpressionUUID->"2d5d1ea5-228f-419d-a147-0e2b6b8cebe1"],
Cell[BoxData[
InterpretationBox[
@@ -18938,90 +15917,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "8.808857864319582141889485320791870133387277714639623328903814549`\
-44.13200624582381*^-14"}], ",", "0``58.", ",", "0``57.658360061835864", ",",
- "0``57.48811663902113"}], "}"}]}],
+ "2.42679425665006293898539883580911911578721647090205201153989205`43.\
+26776166279849*^-14", ",", "0``57.50293694225762", ",",
+ "0``57.26437631489778", ",", "0``57.18375870000822"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.808857864319582141889485320791870133387277714639623328903814549`44.\
-13200624582381*^-14, 0``58., 0``57.658360061835864, 0``57.48811663902113}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.42679425665006293898539883580911911578721647090205201153989205`43.\
+26776166279849*^-14, 0``57.50293694225762, 0``57.26437631489778,
+ 0``57.18375870000822}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840414615258*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223052773638*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"6ac8eb18-d955-4fa5-b32d-80aee527ad1b"],
+In[945]:=",ExpressionUUID->"8e428ade-540d-402a-bd29-7ceb159bce2c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840414617634*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223052849934*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"efc67093-4a34-4eff-9672-9f24cc7302c2"],
+In[945]:=",ExpressionUUID->"5dd255b5-2cb6-4975-8133-4cc6ab7cbe07"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "109.8019220812905274443`10."}], ",",
- RowBox[{"S", "\[Rule]", "105625.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "314.0964715709190500093`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "429025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36400.3844291418955777168`10."}]}], ",",
+ RowBox[{"-", "205801.4226132521198436675`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36400.3844291418955777168`10."}]}], ",",
+ RowBox[{"-", "205801.4226132521198436675`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "35685.6246764194214193822`10."}]}], ",",
+ RowBox[{"-", "13100.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "35685.6246764194214193822`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "69797.0182111226437050778`10."}], ",",
+ RowBox[{"-", "13100.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40027.8452265042252748761`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "325.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "655.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "264.1912530935167878104`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "200.0696009555280371477`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "2.15522985226217418645000825586172326316`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "55.119971982888167305`10."}], ",",
+ "0.62316889662159204820894035075218189348`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "296.944392956867016873`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.0776881397677261581`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "634.6849612209194537473`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840414620042*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223052920381*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"38368530-973a-4e3c-949b-6beb4ee33509"],
+In[945]:=",ExpressionUUID->"b94475f2-d210-4461-a845-9f11ad9d707e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "318.1628787878788`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 318.1628787878788}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840426603262*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223064404993*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4c10d3b4-882f-485c-8183-b40a9c7ef0af"],
+In[945]:=",ExpressionUUID->"a6982a87-6961-44d0-bd99-c3b7656e8bee"],
Cell[BoxData[
InterpretationBox[
@@ -19032,29 +16002,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
+ RowBox[{"330.`", ",", "0.`", ",", "0.`", ",", "330.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "165.`"}]}], "}"}]}]},
+ RowBox[{"330.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "330.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "340.4651617872339`", ",", "158.34418712949915`", ",",
+ "274.26017719148643`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"113.25970046254274`", ",", "0.`", ",",
- RowBox[{"-", "113.25970046254274`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"56.662193601635956`", ",",
- RowBox[{"-", "50.`"}], ",", "26.657160084098873`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"299.53483821276603`", ",",
+ RowBox[{"-", "158.34418712949915`"}], ",",
+ RowBox[{"-", "254.26017719148643`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19068,21 +16038,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {113.25970046254274`,
- 0., -113.25970046254274`, 0.}, $CellContext`p5 -> {
- 56.662193601635956`, -50., 26.657160084098873`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {330., 0., 0., 330.}, $CellContext`p2 -> {
+ 330., 0., 0., -330.}, $CellContext`p3 -> {340.4651617872339,
+ 158.34418712949915`, 274.26017719148643`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 299.53483821276603`, -158.34418712949915`, -254.26017719148643`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840426605954*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223064557488*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"fe9a9b62-9e60-43a0-a07d-22c84c12c116"],
+In[945]:=",ExpressionUUID->"f967958f-039c-4415-be83-cf6b26c9f7a2"],
Cell[BoxData[
InterpretationBox[
@@ -19091,89 +16060,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.134035137882611658177968733165510138881129656560166169176011668`\
-44.14111874242751*^-14"}], ",", "0``58.", ",", "0``57.644894595620784", ",",
- "0``57.48148606012211"}], "}"}]}],
+ "-", "4.919252138978206376230280617444911160117683280264300365061069948`\
+43.57132515192688*^-14"}], ",", "0``57.49936787943781", ",",
+ "0``57.26080725207798", ",", "0``57.18045606445813"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.134035137882611658177968733165510138881129656560166169176011668`44.\
-14111874242751*^-14, 0``58., 0``57.644894595620784, 0``57.48148606012211}],
+{-4.919252138978206376230280617444911160117683280264300365061069948`43.\
+57132515192688*^-14, 0``57.49936787943781, 0``57.26080725207798,
+ 0``57.18045606445813}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840426608938*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223064627396*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a8c42163-6f9d-4dfb-91ae-eef84d93433d"],
+In[945]:=",ExpressionUUID->"49bbf97a-bf0e-4813-93e8-21f7043455a3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840426611135*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223064710916*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"936c1e59-31b1-4cab-87be-3c95e1849b1a"],
+In[945]:=",ExpressionUUID->"eed3ef52-03f3-49aa-88a6-44ad252f6d7e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "113.2597004625427388191`10."}], ",",
- RowBox[{"S", "\[Rule]", "108900.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "316.6883742589982944082`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "435600.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37200.7749588210016635278`10."}]}], ",",
+ RowBox[{"-", "209082.0067795743923005013`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37200.7749588210016635278`10."}]}], ",",
+ RowBox[{"-", "209082.0067795743923005013`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "37375.7011526391038103156`10."}]}], ",",
+ RowBox[{"-", "13200.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "37375.7011526391038103156`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71502.9522229202212987763`10."}], ",",
+ RowBox[{"-", "13200.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40214.0135591488140707506`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "330.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "660.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "267.4003594293026026088`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "200.5343201528077938165`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.8756686699655318342628934282363864695`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "56.6621936016359526783`10."}], ",",
+ "0.62276440171851299741355476702237781173`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "299.5348382127660230795`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.7933919130274333011`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "639.6874236687789823768`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084042661346*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222306477803*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"6badad54-c523-478f-bea6-477ceda4ea1b"],
+In[945]:=",ExpressionUUID->"20c67985-764f-453a-b2f2-38ed52765a8d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "144.17910447761193`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "320.75187969924815`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 144.17910447761193`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 320.75187969924815`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840438954337*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230767667437`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4ea52e9b-2fc5-491d-8c5a-42bca7c3e18d"],
+In[945]:=",ExpressionUUID->"a52b4fa1-d510-48fe-a2a1-33f8a50988ee"],
Cell[BoxData[
InterpretationBox[
@@ -19184,29 +16146,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",", "167.5`"}], "}"}]}]},
+ RowBox[{"332.5`", ",", "0.`", ",", "0.`", ",", "332.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "167.5`"}]}], "}"}]}]},
+ RowBox[{"332.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "332.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "342.87608143903384`", ",", "159.6394431390524`", ",",
+ "276.50362640884157`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"116.60903394001313`", ",", "0.`", ",",
- RowBox[{"-", "116.60903394001313`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"58.31286012416556`", ",",
- RowBox[{"-", "50.`"}], ",", "30.00649356156927`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"302.12391856096616`", ",",
+ RowBox[{"-", "159.6394431390524`"}], ",",
+ RowBox[{"-", "256.50362640884157`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19220,21 +16182,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {167.5, 0., 0., 167.5}, $CellContext`p2 -> {
- 167.5, 0., 0., -167.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {116.60903394001313`,
- 0., -116.60903394001313`, 0.}, $CellContext`p5 -> {
- 58.31286012416556, -50., 30.00649356156927, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {332.5, 0., 0., 332.5}, $CellContext`p2 -> {
+ 332.5, 0., 0., -332.5}, $CellContext`p3 -> {342.87608143903384`,
+ 159.6394431390524, 276.50362640884157`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 302.12391856096616`, -159.6394431390524, -256.50362640884157`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840438957263*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223076905593*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"67ef63cf-4a53-424b-91e6-334807071608"],
+In[945]:=",ExpressionUUID->"57dece57-03a4-4851-8a70-92858d8aa75b"],
Cell[BoxData[
InterpretationBox[
@@ -19243,89 +16204,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "8.719754387983259219637653128589497051759701202038535187723597969`\
-44.11442944949713*^-14"}], ",", "0``58.", ",", "0``57.63223780692917", ",",
- "0``57.47495519296315"}], "}"}]}],
+ "-", "2.217205412936278167764805981088839224525816955384775808868499296`\
+43.221954289212*^-14"}], ",", "0``57.49582980014547", ",",
+ "0``57.25726917278564", ",", "0``57.1771783546969"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.719754387983259219637653128589497051759701202038535187723597969`44.\
-11442944949713*^-14, 0``58., 0``57.63223780692917, 0``57.47495519296315}],
+{-2.217205412936278167764805981088839224525816955384775808868499296`43.\
+221954289212*^-14, 0``57.49582980014547, 0``57.25726917278564,
+ 0``57.1771783546969}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840438959859*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223077005268*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"eeb13eab-907e-47fb-a4af-7917dd744b06"],
+In[945]:=",ExpressionUUID->"ed93a169-857c-48b4-9cfa-9742d87bbaf2"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840438962028*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223077121532*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a157361d-e71a-4950-8920-cc388b554f12"],
+In[945]:=",ExpressionUUID->"5ed684f7-d9cc-40a5-b2ae-03ee8e74a0ee"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "116.6090339400131341563`10."}], ",",
- RowBox[{"S", "\[Rule]", "112225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "319.2788862781047782846`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "442225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38001.1654885001077493388`10."}]}], ",",
+ RowBox[{"-", "212387.5941569575011925348`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38001.1654885001077493388`10."}]}], ",",
+ RowBox[{"-", "212387.5941569575011925348`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "39064.0263699043999423566`10."}]}], ",",
+ RowBox[{"-", "13300.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "39064.0263699043999423566`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73155.3837168090255528672`10."}], ",",
+ RowBox[{"-", "13300.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40400.1883139150157824854`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "335.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "665.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "270.4725193375641730887`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "200.9979808702441064959`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.66630599131507176554047626125167948791`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "58.312860124165561484`10."}], ",",
+ "0.62236719758730745708487080701342330885`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "302.1239185609661414482`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.6535871847367118702`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "644.6898479113813153997`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840438964305*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822230772304564`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"c7ee3859-2d57-4cd0-9ccd-991456033dfc"],
+In[945]:=",ExpressionUUID->"dfc83496-848b-44b0-a4c7-968480edbced"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "147.02205882352942`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "323.339552238806`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 147.02205882352942`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 323.339552238806}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840450523202*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223088987967*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"e5436042-2e1e-4382-b313-88b7f8a4aefa"],
+In[945]:=",ExpressionUUID->"b81eac2c-341a-4492-86ae-30f5875a4c84"],
Cell[BoxData[
InterpretationBox[
@@ -19336,29 +16289,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", "170.`"}], "}"}]}]},
+ RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", "335.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "170.`"}]}], "}"}]}]},
+ RowBox[{"335.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "335.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "345.2883353361907`", ",", "160.93401949186946`", ",",
+ "278.7458984261979`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"119.86735376983968`", ",", "0.`", ",",
- RowBox[{"-", "119.86735376983968`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"60.054540294339`", ",",
- RowBox[{"-", "50.`"}], ",", "33.26481339139582`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"304.7116646638093`", ",",
+ RowBox[{"-", "160.93401949186946`"}], ",",
+ RowBox[{"-", "258.7458984261979`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19372,21 +16325,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {119.86735376983968`,
- 0., -119.86735376983968`, 0.}, $CellContext`p5 -> {
- 60.054540294339, -50., 33.26481339139582, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {335., 0., 0., 335.}, $CellContext`p2 -> {
+ 335., 0., 0., -335.}, $CellContext`p3 -> {345.2883353361907,
+ 160.93401949186946`, 278.7458984261979, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 304.7116646638093, -160.93401949186946`, -258.7458984261979, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404505260687`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223089141334*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"d1607581-9595-49cb-b408-1268aa948804"],
+In[945]:=",ExpressionUUID->"c3614614-3180-479a-b517-4bb590e70466"],
Cell[BoxData[
InterpretationBox[
@@ -19395,89 +16347,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0253125791682521809503965595189134185503176421880530718338381128`\
-44.17834737289341*^-13"}], ",", "0``58.", ",", "0``57.620269086526235", ",",
- "0``57.46852108295775"}], "}"}]}],
+ "-", "5.03524847027572290331199832903249233686091517210026828375137415`\
+42.57491610782714*^-15"}], ",", "0``57.4923221459678", ",",
+ "0``57.25376151860796", ",", "0``57.17392519729917"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0253125791682521809503965595189134185503176421880530718338381128`44.\
-17834737289341*^-13, 0``58., 0``57.620269086526235, 0``57.46852108295775}],
+{-5.03524847027572290331199832903249233686091517210026828375137415`42.\
+57491610782714*^-15, 0``57.4923221459678, 0``57.25376151860796,
+ 0``57.17392519729917}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840450528475*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223089212985*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"76a9080c-1851-4c46-a1b7-bfdca0014a8a"],
+In[945]:=",ExpressionUUID->"e8d5ab50-b738-4970-a165-e28ecf389162"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840450532419*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223089311679*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"dbe1cc49-62fc-4038-8233-240c5fa2aa37"],
+In[945]:=",ExpressionUUID->"d27d4585-5cb3-4d84-9d2f-7c61b72b3bcd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "119.8673537698396813767`10."}], ",",
- RowBox[{"S", "\[Rule]", "115600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "321.8680389837389270724`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "448900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38801.5560181792138351499`10."}]}], ",",
+ RowBox[{"-", "215718.1846752477714117242`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38801.5560181792138351499`10."}]}], ",",
+ RowBox[{"-", "215718.1846752477714117242`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "40754.9002817454916680617`10."}]}], ",",
+ RowBox[{"-", "13400.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "40754.9002817454916680617`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74762.9125998494233213583`10."}], ",",
+ RowBox[{"-", "13400.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40586.3693504955458920463`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "340.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "670.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "273.4280757344596888632`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "201.4605900678729420167`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.50308974866917064123617956420907529568`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "60.0545402943389989299`10."}], ",",
+ "0.62197708435472128394756444646433776591`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "304.7116646638092913652`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.6353147057977409044`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "649.692234831231451016`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404505352077`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223089378998*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a5a2a931-908f-4e0b-a401-e821650bfd58"],
+In[945]:=",ExpressionUUID->"ac3daa68-9e1a-490f-b020-6274706c4492"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "149.85507246376812`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "325.9259259259259`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 149.85507246376812`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 325.9259259259259}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404622077723`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231012572727`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"de7c71b1-4cfd-4084-a512-0bbe7d682222"],
+In[945]:=",ExpressionUUID->"b3915ffa-55cf-42cc-ae4e-2557c43bc24e"],
Cell[BoxData[
InterpretationBox[
@@ -19488,29 +16432,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",", "172.5`"}], "}"}]}]},
+ RowBox[{"337.5`", ",", "0.`", ",", "0.`", ",", "337.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "172.5`"}]}], "}"}]}]},
+ RowBox[{"337.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "337.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "347.7018937278509`", ",", "162.22793139741205`", ",",
+ "280.987019587116`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"123.04854536383075`", ",", "0.`", ",",
- RowBox[{"-", "123.04854536383075`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"61.873348700347925`", ",",
- RowBox[{"-", "50.`"}], ",", "36.44600498538689`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"307.29810627214914`", ",",
+ RowBox[{"-", "162.22793139741205`"}], ",",
+ RowBox[{"-", "260.987019587116`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19524,21 +16468,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {172.5, 0., 0., 172.5}, $CellContext`p2 -> {
- 172.5, 0., 0., -172.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {123.04854536383075`,
- 0., -123.04854536383075`, 0.}, $CellContext`p5 -> {
- 61.873348700347925`, -50., 36.44600498538689, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {337.5, 0., 0., 337.5}, $CellContext`p2 -> {
+ 337.5, 0., 0., -337.5}, $CellContext`p3 -> {347.7018937278509,
+ 162.22793139741205`, 280.987019587116, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 307.29810627214914`, -162.22793139741205`, -260.987019587116, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840462210791*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223101424201*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"5b036483-d79a-491e-a024-18768381e179"],
+In[945]:=",ExpressionUUID->"b109ae0c-2110-45d8-a12b-82394cd76898"],
Cell[BoxData[
InterpretationBox[
@@ -19546,90 +16489,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.0490699312971578461443452844181210550800059221555625751814851636`\
-44.181955348613776*^-13"}], ",", "0``58.", ",", "0``57.60889352034185", ",",
- "0``57.462180904926726"}], "}"}]}],
+ "6.686166301186873553729646512226094314055324498641988644302085586`43.\
+69484340585392*^-14", ",", "0``57.488844373897166", ",",
+ "0``57.250283746537335", ",", "0``57.170696227168975"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0490699312971578461443452844181210550800059221555625751814851636`44.\
-181955348613776*^-13, 0``58., 0``57.60889352034185, 0``57.462180904926726}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.686166301186873553729646512226094314055324498641988644302085586`43.\
+69484340585392*^-14, 0``57.488844373897166, 0``57.250283746537335,
+ 0``57.170696227168975}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840462213182*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223101492445*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"2eb03c22-75be-49c1-a81d-9557ae12eee7"],
+In[945]:=",ExpressionUUID->"42e11cd7-6536-4483-aee1-c35debfc127f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840462215288*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223101571014*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"7e2706a8-86a2-48ed-9aa7-0632f75d5df3"],
+In[945]:=",ExpressionUUID->"ee1be6c0-08ad-4ec4-a67b-b15ca7513308"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "123.0485453638307546953`10."}], ",",
- RowBox[{"S", "\[Rule]", "119025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "324.4558627948240996375`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "455625.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39601.9465478583199209609`10."}]}], ",",
+ RowBox[{"-", "219073.7782662993578600916`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39601.9465478583199209609`10."}]}], ",",
+ RowBox[{"-", "219073.7782662993578600916`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "42451.7481505216103698785`10."}]}], ",",
+ RowBox[{"-", "13500.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "42451.7481505216103698785`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76332.3893967598735635728`10."}], ",",
+ RowBox[{"-", "13500.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40772.5565325986746272583`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "345.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "675.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "276.2831688625998685875`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "201.9221546353908007131`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.37189247545917901361453361889459055268`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "61.8733487003479232355`10."}], ",",
+ "0.62159386951143483956365233544323874195`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "307.2981062721491663282`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.7200684791902427789`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "654.6945852838559161966`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840462217615*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231016315823`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"364ead42-d260-4f73-b9a2-0f33705def56"],
+In[945]:=",ExpressionUUID->"6e75096f-b93e-4459-85d0-cfa1a6615e26"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "328.5110294117647`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 328.5110294117647}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840473729024*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223113266259*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"f542b9c7-3343-4573-bff3-5ed4e0ad92da"],
+In[945]:=",ExpressionUUID->"284d5a7d-a751-4110-af31-2f7937e4742d"],
Cell[BoxData[
InterpretationBox[
@@ -19640,29 +16574,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
+ RowBox[{"340.`", ",", "0.`", ",", "0.`", ",", "340.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "175.`"}]}], "}"}]}]},
+ RowBox[{"340.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "340.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "350.11672774103494`", ",", "163.52119361423001`", ",",
+ "283.22701545415384`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"126.16380627110237`", ",", "0.`", ",",
- RowBox[{"-", "126.16380627110237`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"63.7580877930763`", ",",
- RowBox[{"-", "50.`"}], ",", "39.56126589265851`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"309.883272258965`", ",",
+ RowBox[{"-", "163.52119361423001`"}], ",",
+ RowBox[{"-", "263.22701545415384`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19676,21 +16610,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {126.16380627110237`,
- 0., -126.16380627110237`, 0.}, $CellContext`p5 -> {
- 63.7580877930763, -50., 39.56126589265851, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {340., 0., 0., 340.}, $CellContext`p2 -> {
+ 340., 0., 0., -340.}, $CellContext`p3 -> {350.11672774103494`,
+ 163.52119361423001`, 283.22701545415384`, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 309.883272258965, -163.52119361423001`, -263.22701545415384`, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840473732294*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222311338762*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a23fd426-7e02-4bf1-a9d4-508aedf9c7fd"],
+In[945]:=",ExpressionUUID->"bd4e775b-b531-4cb5-86e2-afee09d5351e"],
Cell[BoxData[
InterpretationBox[
@@ -19699,89 +16632,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0653187292122388981481893113902116075069809107912780655038883727`\
-44.182381522341686*^-13"}], ",", "0``58.", ",", "0``57.59803522146602", ",",
- "0``57.455931955649724"}], "}"}]}],
+ "-", "2.065152938837724364937144019246781548850173247767714314188471538`\
+43.181413311318956*^-14"}], ",", "0``57.48539595576043", ",",
+ "0``57.24683532840059", ",", "0``57.16749108729377"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0653187292122388981481893113902116075069809107912780655038883727`44.\
-182381522341686*^-13, 0``58., 0``57.59803522146602, 0``57.455931955649724}],
+{-2.065152938837724364937144019246781548850173247767714314188471538`43.\
+181413311318956*^-14, 0``57.48539595576043, 0``57.24683532840059,
+ 0``57.16749108729377}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840473734889*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231134556713`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a285d1d5-dcfb-493c-9939-4ccb3880b4c1"],
+In[945]:=",ExpressionUUID->"6adca296-06ed-409b-96b0-b969fe765738"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404737372417`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223113537171*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"ef0fc7d1-10a3-4d89-919d-85dfe41c49d2"],
+In[945]:=",ExpressionUUID->"be6bd44c-3c31-46ca-ac5c-84baa1093edb"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "126.1638062711023735574`10."}], ",",
- RowBox[{"S", "\[Rule]", "122500.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "327.0423872284600292915`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "462400.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40402.3370775374260067719`10."}]}], ",",
+ RowBox[{"-", "222454.3748639037694541985`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40402.3370775374260067719`10."}]}], ",",
+ RowBox[{"-", "222454.3748639037694541985`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "44157.3321948858307450791`10."}]}], ",",
+ RowBox[{"-", "13600.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "44157.3321948858307450791`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "77869.3385448465270882391`10."}], ",",
+ RowBox[{"-", "13600.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40958.7497278075517075239`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "350.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "680.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "279.0507813012651772465`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "202.3826813929678907483`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.263862489528643602946890788848245518`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "63.7580877930763027485`10."}], ",",
+ "0.62121736757187237477876977487052969005`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "309.8832722589650242688`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.8927678689144693893`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "659.6969000988256673104`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404737396307`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223113600569*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"3c0ad538-32f4-4345-ac28-80ca11748e43"],
+In[945]:=",ExpressionUUID->"724a5131-ee93-49eb-912a-7e6e6c0d97c2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "155.49295774647888`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "331.09489051094886`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 155.49295774647888`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 331.09489051094886`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840485315029*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223125225377*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"a4fd086a-788f-4ed1-84f8-8b7e0f7662f8"],
+In[945]:=",ExpressionUUID->"88212c91-be83-4ecf-8f2c-b20423af0623"],
Cell[BoxData[
InterpretationBox[
@@ -19792,29 +16718,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",", "177.5`"}], "}"}]}]},
+ RowBox[{"342.5`", ",", "0.`", ",", "0.`", ",", "342.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"177.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "177.5`"}]}], "}"}]}]},
+ RowBox[{"{",
+ RowBox[{"342.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "342.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "352.5328093485002`", ",", "164.81382046656918`", ",",
+ "285.4659108376331`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"129.22226653413674`", ",", "0.`", ",",
- RowBox[{"-", "129.22226653413674`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"65.699627530042`", ",",
- RowBox[{"-", "50.`"}], ",", "42.619726155692874`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"312.4671906514997`", ",",
+ RowBox[{"-", "164.81382046656918`"}], ",",
+ RowBox[{"-", "265.4659108376331`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19828,21 +16754,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {177.5, 0., 0., 177.5}, $CellContext`p2 -> {
- 177.5, 0., 0., -177.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {129.22226653413674`,
- 0., -129.22226653413674`, 0.}, $CellContext`p5 -> {
- 65.699627530042, -50., 42.619726155692874`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {342.5, 0., 0., 342.5}, $CellContext`p2 -> {
+ 342.5, 0., 0., -342.5}, $CellContext`p3 -> {352.5328093485002,
+ 164.81382046656918`, 285.4659108376331, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 312.4671906514997, -164.81382046656918`, -265.4659108376331, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840485318038*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231253759747`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"de1b6c3b-dd06-494f-9375-021c3c889ea4"],
+In[945]:=",ExpressionUUID->"41092176-ba53-4532-bf95-39c08d5df010"],
Cell[BoxData[
InterpretationBox[
@@ -19851,89 +16776,82 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.907219974593636395756354014087973990306662969690877523107789679`\
-43.920124794810675*^-14"}], ",", "0``58.", ",", "0``57.58763265012191", ",",
- "0``57.44977164694491"}], "}"}]}],
+ "-", "7.628251028616384826855840355880831384986628613992158337623378285`\
+43.74570440910916*^-14"}], ",", "0``57.48197637767453", ",",
+ "0``57.243415750314696", ",", "0``57.16430942850758"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.907219974593636395756354014087973990306662969690877523107789679`43.\
-920124794810675*^-14, 0``58., 0``57.58763265012191, 0``57.44977164694491}],
+{-7.628251028616384826855840355880831384986628613992158337623378285`43.\
+74570440910916*^-14, 0``57.48197637767453, 0``57.243415750314696,
+ 0``57.16430942850758}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.78084048532052*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223125460659*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"ee6d9dde-8943-4d2a-bfc5-ccd85086e01b"],
+In[945]:=",ExpressionUUID->"d7ead818-19e9-44d6-a4e7-7f1408a8a2aa"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404853226557`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223125558872*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"18309103-f6b6-4dec-9ac1-d90bf9f6fa69"],
+In[945]:=",ExpressionUUID->"5441d6e7-a6e5-4493-9ea1-f27b3802aef1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "129.222266534136736027`10."}], ",",
- RowBox[{"S", "\[Rule]", "126025.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "329.6276409331383661083`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "469225.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41202.7276072165320925829`10."}]}], ",",
+ RowBox[{"-", "225859.974403722642528705`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41202.7276072165320925829`10."}]}], ",",
+ RowBox[{"-", "225859.974403722642528705`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "45873.9046196185412895829`10."}]}], ",",
+ RowBox[{"-", "13700.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "45873.9046196185412895829`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79378.2644536701545263748`10."}], ",",
+ RowBox[{"-", "13700.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "41144.9488074453327289734`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "355.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "685.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "281.7414851484781864913`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "202.8421770920568006931`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.17316567960447391830664910031365569693`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "65.6996275300419877386`10."}], ",",
+ "0.6208473997528603377685160318930306105`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "312.4671906514997156464`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.1410023759266858811`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "664.6991800807338881761`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404853247967`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231256440897`*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"e1692531-e85a-40c0-ad8f-c764ee05dda6"],
+In[945]:=",ExpressionUUID->"648d5099-f80e-4a1f-9903-30d52f444f2c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "158.29861111111111`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "333.67753623188406`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 158.29861111111111`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 333.67753623188406`}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840497048699*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223137809066*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"98de7822-108d-44bb-807e-524cef58cd68"],
+In[945]:=",ExpressionUUID->"7294b891-575e-4fc5-a693-6128cce79f94"],
Cell[BoxData[
InterpretationBox[
@@ -19944,29 +16862,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", "180.`"}], "}"}]}]},
+ RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", "345.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "180.`"}]}], "}"}]}]},
+ RowBox[{"345.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "345.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "354.9501113380042`", ",", "166.1058258602491`", ",",
+ "287.7037298231397`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"132.2314448126847`", ",", "0.`", ",",
- RowBox[{"-", "132.2314448126847`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"67.690449251494`", ",",
- RowBox[{"-", "50.`"}], ",", "45.62890443424085`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"315.0498886619959`", ",",
+ RowBox[{"-", "166.1058258602491`"}], ",",
+ RowBox[{"-", "267.7037298231397`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -19980,21 +16898,20 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {132.2314448126847,
- 0., -132.2314448126847, 0.}, $CellContext`p5 -> {67.690449251494, -50.,
- 45.62890443424085, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {345., 0., 0., 345.}, $CellContext`p2 -> {
+ 345., 0., 0., -345.}, $CellContext`p3 -> {354.9501113380042,
+ 166.1058258602491, 287.7037298231397, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 315.0498886619959, -166.1058258602491, -267.7037298231397, 0.}}], "\n"],
+
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808404970515957`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223137987669*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"2aeb2760-edf7-4640-ac69-992b1e2e26cd"],
+In[945]:=",ExpressionUUID->"43165457-386d-4daf-ba8a-a5bcb63b7719"],
Cell[BoxData[
InterpretationBox[
@@ -20002,89 +16919,81 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "7.174699186089197439496235807536893397940728842254800926235611016`\
-43.998471200673684*^-14"}], ",", "0``58.", ",", "0``57.57763526110198", ",",
- "0``57.443697499232705"}], "}"}]}],
+ "1.0294675789358175517750660288893253035231139722975795965014647998`43.\
+872733587514446*^-13", ",", "0``57.478585139527084", ",",
+ "0``57.24002451216725", ",", "0``57.161150909262744"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.174699186089197439496235807536893397940728842254800926235611016`43.\
-998471200673684*^-14, 0``58., 0``57.57763526110198, 0``57.443697499232705}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.0294675789358175517750660288893253035231139722975795965014647998`43.\
+872733587514446*^-13, 0``57.478585139527084, 0``57.24002451216725,
+ 0``57.161150909262744}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840497054804*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223138073441*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"1797c3e8-30be-44a6-9fb5-95eca67a5e16"],
+In[945]:=",ExpressionUUID->"f1504d34-dab2-4e47-9fa9-d4d6eb8e0dfa"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840497057158*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223138136429*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"717ba9e2-a62e-4423-9ee3-d1de1c1e0239"],
+In[945]:=",ExpressionUUID->"9d1512c3-b6ef-4acf-a189-396316a6793b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "132.231444812684713952`10."}], ",",
- RowBox[{"S", "\[Rule]", "129600.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "332.2116517204981960276`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "476100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42003.1181368956381783939`10."}]}], ",",
+ RowBox[{"-", "229290.5768232229118774158`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42003.1181368956381783939`10."}]}], ",",
+ RowBox[{"-", "229290.5768232229118774158`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "47603.3201325664970227081`10."}]}], ",",
+ RowBox[{"-", "13800.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "47603.3201325664970227081`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "80862.8765389242801153763`10."}], ",",
+ RowBox[{"-", "13800.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "41331.1536464457588881024`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "360.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "690.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "284.3639860089956611371`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "203.3006484161960534304`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.09579663636365970990897747034205978549`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "67.6904492514939971388`10."}], ",",
+ "0.62048379366992015982065341553678192653`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "315.0498886619958828346`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.4544680908685286108`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "669.7014260101288883537`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840497059628*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222313820385*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"de3be9e8-fe76-4070-8965-513b3fd33649"],
+In[945]:=",ExpressionUUID->"5814053d-7fa7-4a1c-88e3-50bdfd15a162"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "161.0958904109589`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "336.2589928057554`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.0958904109589}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 336.2589928057554}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840509053246*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223150265313*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"f0f7bc6d-2b21-4d27-adea-9cef1ec9eabd"],
+In[945]:=",ExpressionUUID->"941f9e17-205a-4027-8590-43e525ab773e"],
Cell[BoxData[
InterpretationBox[
@@ -20095,29 +17004,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",", "182.5`"}], "}"}]}]},
+ RowBox[{"347.5`", ",", "0.`", ",", "0.`", ",", "347.5`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "182.5`"}]}], "}"}]}]},
+ RowBox[{"347.5`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "347.5`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "357.3686072828985`", ",", "167.39722329784814`", ",",
+ "289.9404957978256`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"135.19758885696024`", ",", "0.`", ",",
- RowBox[{"-", "135.19758885696024`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"69.72430520721849`", ",",
- RowBox[{"-", "50.`"}], ",", "48.595048478516375`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"317.63139271710145`", ",",
+ RowBox[{"-", "167.39722329784814`"}], ",",
+ RowBox[{"-", "269.9404957978256`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -20131,21 +17040,20 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {182.5, 0., 0., 182.5}, $CellContext`p2 -> {
- 182.5, 0., 0., -182.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {135.19758885696024`,
- 0., -135.19758885696024`, 0.}, $CellContext`p5 -> {
- 69.72430520721849, -50., 48.595048478516375`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {347.5, 0., 0., 347.5}, $CellContext`p2 -> {
+ 347.5, 0., 0., -347.5}, $CellContext`p3 -> {357.3686072828985,
+ 167.39722329784814`, 289.9404957978256, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 317.63139271710145`, -167.39722329784814`, -269.9404957978256, 0.}}],
+ "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840509056015*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223150384739*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"4fe2fd11-826c-42f1-a44d-3d79e267c5d1"],
+In[945]:=",ExpressionUUID->"e1dd6829-3ab8-4de8-9360-05631d0c6af0"],
Cell[BoxData[
InterpretationBox[
@@ -20154,89 +17062,81 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.809535708498672778525408036645274356200002344888277332777911334`\
-43.81878029339072*^-14"}], ",", "0``58.", ",", "0``57.56800105796306", ",",
- "0``57.437707135543526"}], "}"}]}],
+ "-", "8.170528780020603194204093984831509626190131838203272801673644186`\
+43.769235363844274*^-14"}], ",", "0``57.47522175448059", ",",
+ "0``57.23666112712076", ",", "0``57.15801519540989"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.809535708498672778525408036645274356200002344888277332777911334`43.\
-81878029339072*^-14, 0``58., 0``57.56800105796306, 0``57.437707135543526}],
+{-8.170528780020603194204093984831509626190131838203272801673644186`43.\
+769235363844274*^-14, 0``57.47522175448059, 0``57.23666112712076,
+ 0``57.15801519540989}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405090585127`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.78222315046307*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"1ecf21be-22c8-4401-8ac0-76c81933df08"],
+In[945]:=",ExpressionUUID->"8e28925a-9c47-45ba-99ea-1d40fc234423"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840509060733*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223150552644*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"2a6c192c-b835-403d-84b0-6289b0bbc1c5"],
+In[945]:=",ExpressionUUID->"4537a602-a9f0-4406-a619-3d2eb271cae2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "135.1975888569602375355`10."}], ",",
- RowBox[{"S", "\[Rule]", "133225.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "334.7944465956962858399`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "483025.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42803.508666574744264205`10."}]}], ",",
+ RowBox[{"-", "232746.1820616144551119484`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42803.508666574744264205`10."}]}], ",",
+ RowBox[{"-", "232746.1820616144551119484`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "49347.119932790486700469`10."}]}], ",",
+ RowBox[{"-", "13900.`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "49347.119932790486700469`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "82326.2571987304686361788`10."}], ",",
+ RowBox[{"-", "13900.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "41517.3641232289621282255`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "365.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "695.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "286.925525526625930821`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "203.7581019818082279936`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.0289114131063116267932420732092672968`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "69.7243052072184972069`10."}], ",",
+ "0.62012638305006985400563638717454206654`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "317.6313927171014217307`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.8245412598104720374`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "674.7036386444050367508`10."}]}],
"}"}]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840509062923*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223150629507*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"9eb91b73-09fd-4201-9ed2-1107de2e220c"],
+In[945]:=",ExpressionUUID->"aa7481bf-a6f5-4766-a12b-65732f1557b1"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "338.8392857142857`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 338.8392857142857}, "\n"],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840521816332*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223162852441*^9},
CellLabel->
"During evaluation of \
-In[279]:=",ExpressionUUID->"72f84ab9-9c20-4269-bcbd-196106eff57a"],
+In[945]:=",ExpressionUUID->"9d3ca9db-d75d-40ed-973b-98514e8d1bad"],
Cell[BoxData[
InterpretationBox[
@@ -20247,29 +17147,29 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
+ RowBox[{"350.`", ",", "0.`", ",", "0.`", ",", "350.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "185.`"}]}], "}"}]}]},
+ RowBox[{"350.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "350.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
+ "359.7882715139874`", ",", "168.68802589323192`", ",",
+ "292.176231475572`", ",", "0.`"}], "}"}]}]},
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"138.1259331536419`", ",", "0.`", ",",
- RowBox[{"-", "138.1259331536419`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"20.`", ",", "0.`", ",",
+ RowBox[{"-", "20.`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"71.79596091053682`", ",",
- RowBox[{"-", "50.`"}], ",", "51.52339277519805`", ",", "0.`"}],
- "}"}]}]}
+ RowBox[{"320.2117284860126`", ",",
+ RowBox[{"-", "168.68802589323192`"}], ",",
+ RowBox[{"-", "272.176231475572`"}], ",", "0.`"}], "}"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
@@ -20283,1736 +17183,2770 @@ Cell[BoxData[
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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {138.1259331536419,
- 0., -138.1259331536419, 0.}, $CellContext`p5 -> {
- 71.79596091053682, -50., 51.52339277519805, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {350., 0., 0., 350.}, $CellContext`p2 -> {
+ 350., 0., 0., -350.}, $CellContext`p3 -> {359.7882715139874,
+ 168.68802589323192`, 292.176231475572, 0.}, $CellContext`p4 -> {20.,
+ 0., -20., 0.}, $CellContext`p5 -> {
+ 320.2117284860126, -168.68802589323192`, -272.176231475572, 0.}}], "\n"],
+ Editable->False]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231630297413`*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"6528e2a8-f791-4026-8062-8f95f07937d6"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
+ "\[InvisibleSpace]",
+ RowBox[{"{",
+ RowBox[{
+ "2.74282042136073196051407399683577787920269762048235474577083497`43.\
+292069338617814*^-14", ",", "0``57.47188574849887", ",",
+ "0``57.233325121139046", ",", "0``57.15490195998574"}], "}"}]}],
+ SequenceForm[
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.74282042136073196051407399683577787920269762048235474577083497`43.\
+292069338617814*^-14, 0``57.47188574849887, 0``57.233325121139046,
+ 0``57.15490195998574}],
Editable->False]], "Print",
CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405218192453`*^9},
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223163111804*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"c0aa5ebd-2a7a-45e1-8a6d-43f9f92d17cb"],
+
+Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.7822231631727457`*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"537b97db-8166-47e4-af1d-784318211eeb"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"kkT3", "\[Rule]", "337.3760517864638472929`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "20.`"}], ",",
+ RowBox[{"S", "\[Rule]", "490000.`10."}], ",",
+ RowBox[{"T", "\[Rule]",
+ RowBox[{"-", "236226.7900597911980343114`10."}]}], ",",
+ RowBox[{"U", "\[Rule]",
+ RowBox[{"-", "236226.7900597911980343114`10."}]}], ",",
+ RowBox[{"T24", "\[Rule]",
+ RowBox[{"-", "14000.`10."}]}], ",",
+ RowBox[{"T14", "\[Rule]",
+ RowBox[{"-", "14000.`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "41703.5801195823785029573`10."}], ",",
+ RowBox[{
+ SqrtBox["S"], "\[Rule]", "700.`10."}], ",",
+ RowBox[{
+ SqrtBox["S34"], "\[Rule]", "204.2145443389926096254`10."}], ",",
+ RowBox[{
+ RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
+ "0.61977500746009030077403734521020044401`10."}], ",",
+ RowBox[{"kT5", "\[Rule]", "320.2117284860126016649`10."}], ",",
+ RowBox[{
+ SqrtBox["S35"], "\[Rule]", "679.705818718657165287`10."}]}],
+ "}"}]], "Print",
+ CellChangeTimes->{
+ 3.782217716050836*^9, 3.78221789760775*^9, 3.782219926722378*^9, {
+ 3.782220287615864*^9, 3.782220305880253*^9}, 3.782220650724929*^9,
+ 3.782223163239946*^9},
+ CellLabel->
+ "During evaluation of \
+In[945]:=",ExpressionUUID->"20f5cf40-5040-4664-8f38-338673d523d3"]
+}, Open ]]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.780837147371307*^9,
+ 3.7808371478589773`*^9}},ExpressionUUID->"cdd70ba3-988d-4f3f-a994-\
+fa14e0bfd5a8"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_20\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.780837671208232*^9,
+ 3.780837672156287*^9}},ExpressionUUID->"65439f17-15a8-4ca3-afa9-\
+deed97ceee64"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_100\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.780837673478314*^9, 3.780837676754232*^9}, {
+ 3.780840293537464*^9,
+ 3.780840338526163*^9}},ExpressionUUID->"49341df6-9b3d-4c00-b135-\
+1380553e00b2"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_20/BOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.780837817367661*^9,
+ 3.780837817495083*^9}},ExpressionUUID->"2c82f1ac-0cf1-40bd-87e5-\
+22201b825305"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_20/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779728091472397*^9, 3.77972809597082*^9}, {
+ 3.7797956367584543`*^9, 3.7797956782390213`*^9}, {3.779795761493602*^9,
+ 3.779795764333372*^9}, {3.779796564350816*^9, 3.77979656466706*^9}, {
+ 3.779807862789379*^9, 3.7798078635434427`*^9}, {3.7798111156392727`*^9,
+ 3.779811117831358*^9}, {3.780059139220151*^9, 3.780059142632431*^9}, {
+ 3.7802677388101788`*^9, 3.780267739681431*^9}, {3.780837313596246*^9,
+ 3.7808373284031563`*^9}, {3.7808376789126987`*^9, 3.780837679204027*^9}, {
+ 3.78083781221177*^9,
+ 3.780837812742464*^9}},ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-\
+013dff2fc709"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_100/BOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7808376911136*^9, 3.780837695309383*^9}, {
+ 3.780837819209309*^9,
+ 3.780837819340238*^9}},ExpressionUUID->"d4d23c76-eedd-48b8-bd17-\
+8b5fe5d0b211"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_100/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7808376930768013`*^9, 3.7808376933266983`*^9}, {
+ 3.780837822227991*^9, 3.780837822723424*^9}},
+ CellLabel->
+ "In[185]:=",ExpressionUUID->"0141ed4e-e691-4f2f-bb31-7d2309eea73f"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_100/AltAngles\>\""}], "]"}], "]"}],
+ ";"}]}], "Input",
+ CellChangeTimes->{{3.7808403434150667`*^9, 3.7808403435875473`*^9}, {
+ 3.78084038880783*^9,
+ 3.780840389565028*^9}},ExpressionUUID->"a6df33d2-21de-4140-bfbf-\
+b2fee86951b4"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_100/AltAngles\>\""}], "]"}], "]"}],
+ ";"}]}], "Input",ExpressionUUID->"1c110370-8aeb-47a1-b2f1-0dca127d76d3"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_20/AltAngles\>\""}], "]"}], "]"}], ";"}]}], "Input",\
+
+ CellChangeTimes->{{3.7808403968966093`*^9,
+ 3.780840397077894*^9}},ExpressionUUID->"5be59de9-e61f-4004-b8ab-\
+e3748a123590"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt4_20/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.782217979642952*^9, 3.782217987049768*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"12ba59d2-107f-436e-862e-5e6e8e1f7682"],
+ "In[962]:=",ExpressionUUID->"9c5175f3-de7d-4f38-9409-1c60d3069663"],
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
RowBox[{
- RowBox[{
- "-", "5.966267540501972402405327607703204250938174081456802563862817894`\
-43.90647100444735*^-14"}], ",", "0``58.", ",", "0``57.55869477928252", ",",
- "0``57.431798275933005"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.966267540501972402405327607703204250938174081456802563862817894`43.\
-90647100444735*^-14, 0``58., 0``57.55869477928252, 0``57.431798275933005}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840521821714*^9},
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt4_50/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.782219994856173*^9, 3.78221999500171*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"de1364f1-bf4a-4124-87aa-51399677497c"],
+ "In[634]:=",ExpressionUUID->"858fb22c-fdc3-4950-bbb7-0da44a04d1dd"],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405218238983`*^9},
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ppppList.m\>\"", ",", "ppppList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<pppmList.m\>\"", ",", "pppmList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ppmpList.m\>\"", ",", "ppmpList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<pmppList.m\>\"", ",", "pmppList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ppmmList.m\>\"", ",", "ppmmList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<pmmmList.m\>\"", ",", "pmmmList"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<pmpmList.m\>\"", ",", "pmpmList"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.780237710115534*^9, 3.7802378151262827`*^9}, {
+ 3.780267548402445*^9, 3.780267550702984*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"89a96830-8fa1-4d46-ab89-76bd88d3141a"],
+ "In[964]:=",ExpressionUUID->"558af4d9-aa2b-44e1-9183-fe4bcdc64b7d"],
+
+Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"{",
+ RowBox[{"\[IndentingNewLine]",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "138.125933153641909712`10."}], ",",
- RowBox[{"S", "\[Rule]", "136900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43603.899196253850350016`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43603.899196253850350016`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "51106.5952668475065934217`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "51106.5952668475065934217`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83770.9889262027224539537`10."}], ",",
+ RowBox[{"hel", "=", "\"\<++++\>\""}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "370.`10."}], ",",
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "ppppList", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "289.4321836392814185513`10."}], ",",
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.97043298794695514040468252381902607901`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "71.7959609105368134631`10."}], ",",
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "ppppList", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.2439514891824860003`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405218262*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"9aa68817-e082-4f0e-975a-a7f56f82525f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "166.66666666666666`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.66666666666666`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840533948681*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"5df38a67-a0ab-4b33-a864-113c7d454db1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",", "187.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"187.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "187.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"141.02089633637794`", ",", "0.`", ",",
- RowBox[{"-", "141.02089633637794`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"73.9009977278008`", ",",
- RowBox[{"-", "50.`"}], ",", "54.41835595793408`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {187.5, 0., 0., 187.5}, $CellContext`p2 -> {
- 187.5, 0., 0., -187.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {141.02089633637794`,
- 0., -141.02089633637794`, 0.}, $CellContext`p5 -> {
- 73.9009977278008, -50., 54.41835595793408, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840533951413*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"2dd87a83-e80f-40f5-97b1-838c374ce64c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- 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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "3.432719133215094748056123858770859533721979830205556718124620697`\
-43.66057700729741*^-14"}], ",", "0``58.", ",", "0``57.549686533587206", ",",
- "0``57.42596873227228"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.432719133215094748056123858770859533721979830205556718124620697`43.\
-66057700729741*^-14, 0``58., 0``57.549686533587206, 0``57.42596873227228}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840533954459*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"cec9acb0-a8f7-4eab-8371-7ffbab1a3e47"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840533958004*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"b4605c1c-22cc-41f6-a448-68e0accec6ff"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "141.0208963363779446354`10."}], ",",
- RowBox[{"S", "\[Rule]", "140625.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44404.2897259329564358271`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44404.2897259329564358271`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "52882.8361261417292382703`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "52882.8361261417292382703`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85199.251704149376421822`10."}], ",",
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "375.`10."}], ",",
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "291.8891085740428520757`10."}], ",",
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.91880761775770087177281291107047689212`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "73.9009977278008038752`10."}], ",",
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.7065284014367973749`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405339601707`*^9},
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}]}]], "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}, {3.77979714774755*^9,
+ 3.779797166995288*^9}, {3.7801730791407957`*^9, 3.780173081919619*^9}, {
+ 3.780236913393011*^9, 3.780236913971846*^9}, {3.780237044829279*^9,
+ 3.780237045323559*^9}, {3.780237147158854*^9, 3.780237167850648*^9}, {
+ 3.780237437213807*^9, 3.780237452952824*^9}, {3.7802376926636047`*^9,
+ 3.7802377049589233`*^9}, {3.782218080521585*^9, 3.78221822346166*^9}, {
+ 3.782218258769381*^9, 3.782218357089418*^9}, {3.7822184266779547`*^9,
+ 3.782218597377759*^9}, {3.782219343507717*^9, 3.782219375691815*^9}, {
+ 3.782220319625392*^9, 3.782220439865556*^9}, {3.7822206754880342`*^9,
+ 3.782220716760167*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"dbad07b3-76dd-4a00-9d02-2438e438f01e"],
+ "In[971]:=",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840546084375*^9},
+Cell[BoxData["\<\"++++\"\>"], "Output",
+ CellChangeTimes->{3.7822192452341433`*^9, 3.782219534006298*^9,
+ 3.7822219270090227`*^9, 3.782223174782292*^9},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"e4e5f3ae-7eb5-408a-8341-d435b4931e28"],
+ "Out[971]=",ExpressionUUID->"ddfeb1c4-55f9-437a-a6fc-33e0b9ef994a"]
+}, Open ]],
-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[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"143.88623417426965`", ",", "0.`", ",",
- RowBox[{"-", "143.88623417426965`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"76.03565988990908`", ",",
- RowBox[{"-", "50.`"}], ",", "57.28369379582578`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- 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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {143.88623417426965`,
- 0., -143.88623417426965`, 0.}, $CellContext`p5 -> {
- 76.03565988990908, -50., 57.28369379582578, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840546087023*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"c41d8138-8dc3-434b-bcc6-241fd8bd908b"],
+Cell[CellGroupData[{
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"hel", "=", "\"\<+++-\>\""}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "pppmList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "pppmList", "]"}]}], ";"}], "\[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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "5.310496741067830655472626545856183735270226273153097414145687797`\
-43.84432155437783*^-14"}], ",", "0``58.", ",", "0``57.54095075805839", ",",
- "0``57.420216403383186"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.310496741067830655472626545856183735270226273153097414145687797`43.\
-84432155437783*^-14, 0``58., 0``57.54095075805839, 0``57.420216403383186}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840546090006*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"1f4cbf05-631f-4b02-8558-ddb1160625e5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840546092621*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"2d76fdaf-7109-4ab7-9442-c33e4455db1c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "143.8862341742696457914`10."}], ",",
- RowBox[{"S", "\[Rule]", "144400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45204.6802556120625216381`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45204.6802556120625216381`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "54676.768986222465400715`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "54676.768986222465400715`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86612.8984836690639204486`10."}], ",",
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "380.`10."}], ",",
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "294.3006939911441389947`10."}], ",",
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.87284874083387865776477059250085613222`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "76.0356598899090839415`10."}], ",",
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "187.2070031477322808782`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405460949697`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"be175467-f7d5-4d05-a597-87c87d397ba0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "172.2077922077922`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.2077922077922}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840558404976*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"00135825-cbae-4e1a-9048-fbae9952c087"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",", "192.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"192.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "192.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"146.7251593787766`", ",", "0.`", ",",
- RowBox[{"-", "146.7251593787766`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"78.19673468540212`", ",",
- RowBox[{"-", "50.`"}], ",", "60.12261900033273`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {192.5, 0., 0., 192.5}, $CellContext`p2 -> {
- 192.5, 0., 0., -192.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {146.7251593787766,
- 0., -146.7251593787766, 0.}, $CellContext`p5 -> {
- 78.19673468540212, -50., 60.12261900033273, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840558409458*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"bce24f7f-e06a-45cd-931b-5b3a08825b9a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "7.172039570869097204986762882128932143647227259259773683979605559`\
-43.969151951892044*^-14"}], ",", "0``58.", ",", "0``57.532465414402", ",",
- "0``57.414539270491495"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.172039570869097204986762882128932143647227259259773683979605559`43.\
-969151951892044*^-14, 0``58., 0``57.532465414402, 0``57.414539270491495}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840558414166*^9},
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.7822187231990128`*^9, 3.782218740164671*^9}, {
+ 3.782219380934073*^9, 3.782219404193036*^9}, {3.782220449614314*^9,
+ 3.7822204497748404`*^9}, {3.782220724700461*^9, 3.782220734047782*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"972b1bec-f062-495b-a885-51628920bf2e"],
+ "In[1014]:=",ExpressionUUID->"28bed3a1-df79-45e5-bc3e-87f1096f5d98"],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840558419497*^9},
+Cell[BoxData["\<\"+++-\"\>"], "Output",
+ CellChangeTimes->{3.782219584728477*^9, 3.782221930935851*^9,
+ 3.782223177969965*^9},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"a6beae61-4109-4459-a371-edab0588614b"],
+ "Out[1014]=",ExpressionUUID->"d0c9c3a4-9464-4ed2-929a-54b1da25d140"]
+}, Open ]],
+
+Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"{",
+ RowBox[{"\[IndentingNewLine]",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "146.7251593787765955312`10."}], ",",
- RowBox[{"S", "\[Rule]", "148225.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46005.0707852911686074491`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46005.0707852911686074491`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "56489.1863608289892795256`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "56489.1863608289892795256`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "88013.5142922403269905508`10."}], ",",
+ RowBox[{"hel", "=", "\"\<++-+\>\""}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "ppmpList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "ppmpList", "]"}]}], ";"}], "\[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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "385.`10."}], ",",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "296.6707169442921729067`10."}], ",",
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.83163376498491008494562952313406186064`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "78.1967346854021155862`10."}], ",",
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "187.7408513838743282229`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840558424384*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"780fc576-9c3f-488e-b264-007f6f67d8d5"],
-
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840570855053*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"f2a70d0b-dfa2-44b7-ae20-bc434197e751"],
-
-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[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"149.5404363323118`", ",", "0.`", ",",
- RowBox[{"-", "149.5404363323118`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.3814577318669`", ",",
- RowBox[{"-", "50.`"}], ",", "62.93789595386794`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- 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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {149.5404363323118,
- 0., -149.5404363323118, 0.}, $CellContext`p5 -> {80.3814577318669, -50.,
- 62.93789595386794, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405708588943`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"e06d3b76-6615-4db4-8baf-e8807d41763e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "7.955153114721001967262453450136863377302616337430430349442142284`\
-44.00855394034158*^-14"}], ",", "0``58.", ",", "0``57.52421136082971", ",",
- "0``57.4089353929735"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.955153114721001967262453450136863377302616337430430349442142284`44.\
-00855394034158*^-14, 0``58., 0``57.52421136082971, 0``57.4089353929735}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840570861732*^9},
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.779731215262043*^9, 3.7797312312693768`*^9}, {
+ 3.77979718251364*^9, 3.779797211163431*^9}, {3.780173096008418*^9,
+ 3.78017309890915*^9}, {3.782218614154804*^9, 3.7822186687399483`*^9}, {
+ 3.782218810595489*^9, 3.782218825307083*^9}, {3.782219408802949*^9,
+ 3.782219430665101*^9}, {3.782220452639744*^9, 3.782220453216242*^9}, {
+ 3.7822207417952337`*^9, 3.782220749766623*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"45eb3d38-b8a7-40b5-bc54-704551d5b53d"],
+ "In[1057]:=",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840570864092*^9},
+Cell[BoxData["\<\"++-+\"\>"], "Output",
+ CellChangeTimes->{3.782219605615409*^9, 3.7822219343814087`*^9,
+ 3.7822231810279617`*^9},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"a8ed04a9-e8be-4d3b-91b1-be5a04b1fed7"],
+ "Out[1057]=",ExpressionUUID->"f6e0c82c-d2e9-4f8b-87bc-720c318d6c4f"]
+}, Open ]],
+
+Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"{",
+ RowBox[{"\[IndentingNewLine]",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "149.5404363323117991058`10."}], ",",
- RowBox[{"S", "\[Rule]", "152100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46805.4613149702746932601`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46805.4613149702746932601`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "58320.7701696016016512658`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "58320.7701696016016512658`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89402.4629691437654779879`10."}], ",",
+ RowBox[{"hel", "=", "\"\<+-++\>\""}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "390.`10."}], ",",
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "pmppList", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "299.0024464266868928823`10."}], ",",
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.79443392954618117722435618053486391405`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "80.3814577318669041805`10."}], ",",
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "pmppList", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.3041679326210730372`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405708677683`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"4c2db5a6-bc71-4ac6-b46e-2d7e78f1ff82"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "177.72151898734177`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.72151898734177`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405831946173`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"6f989deb-daaf-4054-9c35-d763ecfa4d7e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",", "197.5`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"197.5`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "197.5`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.33445665643887`", ",", "0.`", ",",
- RowBox[{"-", "152.33445665643887`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.58743740773984`", ",",
- RowBox[{"-", "50.`"}], ",", "65.73191627799501`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {197.5, 0., 0., 197.5}, $CellContext`p2 -> {
- 197.5, 0., 0., -197.5}, $CellContext`p3 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {152.33445665643887`,
- 0., -152.33445665643887`, 0.}, $CellContext`p5 -> {
- 82.58743740773984, -50., 65.73191627799501, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405831973963`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"ed883f1f-223f-4759-be82-8ad66203ef44"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- 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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "7.194906865763189155598103742031959782349442937559420026743466648`\
-43.95939808530783*^-14"}], ",", "0``58.", ",", "0``57.516171856461355", ",",
- "0``57.403402904373536"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.194906865763189155598103742031959782349442937559420026743466648`43.\
-95939808530783*^-14, 0``58., 0``57.516171856461355, 0``57.403402904373536}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840583199822*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"c4c75c77-032c-4944-a7a0-3ef73b1e9111"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405832019577`*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"2a011464-744e-4dc3-88df-2a90ea9832e6"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "152.3344566564388742336`10."}], ",",
- RowBox[{"S", "\[Rule]", "156025.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47605.8518446493807790711`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47605.8518446493807790711`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "60172.110379293355322261`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "60172.110379293355322261`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "90780.9244478854840868428`10."}], ",",
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "395.`10."}], ",",
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "301.2987295822627329235`10."}], ",",
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.7606654853715018914756293499686870705`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "82.5874374077398366551`10."}], ",",
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.8935659079293638511`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405832044973`*^9},
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.77973123994528*^9, 3.779731261604753*^9}, {
+ 3.77979721461591*^9, 3.7797972263228283`*^9}, {3.780173103358138*^9,
+ 3.7801731059875183`*^9}, {3.782218874093259*^9, 3.782218888294066*^9}, {
+ 3.782219435132058*^9, 3.782219453408732*^9}, {3.782220456153345*^9,
+ 3.782220456474856*^9}, {3.7822207550045013`*^9, 3.782220763012545*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"c98b6926-8df3-4db3-9612-5631608420c4"],
+ "In[1100]:=",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
-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.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840594735732*^9},
+Cell[BoxData["\<\"+-++\"\>"], "Output",
+ CellChangeTimes->{3.782219623385734*^9, 3.782221937679453*^9,
+ 3.782223184171493*^9},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"6de47970-9d47-4667-b187-b25fe63d715b"],
+ "Out[1100]=",ExpressionUUID->"02b23778-c086-47f7-932a-3d2fe99dacaf"]
+}, Open ]],
-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[{
- "160.0781059358212`", ",", "50.`", ",", "86.60254037844386`", ",",
- "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"155.10929999363907`", ",", "0.`", ",",
- RowBox[{"-", "155.10929999363907`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"84.81259407053967`", ",",
- RowBox[{"-", "50.`"}], ",", "68.50675961519521`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}}],
- 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 -> {160.0781059358212, 50.,
- 86.60254037844386, 0.}, $CellContext`p4 -> {155.10929999363907`,
- 0., -155.10929999363907`, 0.}, $CellContext`p5 -> {
- 84.81259407053967, -50., 68.50675961519521, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840594743832*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"7ede81cd-4307-45aa-adbb-eaaab3005b2f"],
+Cell[CellGroupData[{
Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"hel", "=", "\"\<++--\>\""}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "ppmmList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "ppmmList", "]"}]}], ";"}], "\[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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
RowBox[{
- "-", "4.376742602448748085348690077438092372601788598601201032375952658`\
-43.73806101938283*^-14"}], ",", "0``58.", ",", "0``57.50833216645257", ",",
- "0``57.39794000867204"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.376742602448748085348690077438092372601788598601201032375952658`43.\
-73806101938283*^-14, 0``58., 0``57.50833216645257, 0``57.39794000867204}],
- Editable->False]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840594747272*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"4a741212-b4fe-4aab-8eb7-43d2ba9e9ae9"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.780840594749802*^9},
- CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"0b7bc1c0-5b24-4ea0-8637-8fe79ffe6855"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "100.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "155.1092999936390697258`10."}], ",",
- RowBox[{"S", "\[Rule]", "160000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48406.2423743284868648822`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48406.2423743284868648822`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "62043.7199974556278903037`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "62043.7199974556278903037`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "92149.9247435682369344297`10."}], ",",
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S"], "\[Rule]", "400.`10."}], ",",
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "303.56206077764104699`10."}], ",",
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.72985498483436813801837635621120710632`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "84.8125940705396693446`10."}], ",",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "189.5060949022187064046`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{
- 3.779727746932988*^9, 3.7797311443183804`*^9, 3.77979643481313*^9,
- 3.779796554493402*^9, 3.779796996254076*^9, 3.779801718902295*^9,
- 3.779807845791016*^9, {3.780059102202258*^9, 3.7800591339666*^9},
- 3.7801651283793297`*^9, 3.7802375543088837`*^9, 3.780267871999857*^9,
- 3.780837370238093*^9, 3.78083870193966*^9, 3.7808405947524443`*^9},
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.7797312702537937`*^9, 3.779731277655807*^9}, {
+ 3.779797231400651*^9, 3.779797242174149*^9}, {3.780173109975523*^9,
+ 3.780173112572689*^9}, {3.782219030994877*^9, 3.7822190429550877`*^9}, {
+ 3.7822194574047956`*^9, 3.782219476900722*^9}, 3.782219632083559*^9, {
+ 3.782220472578384*^9, 3.782220472902232*^9}, {3.782220766649037*^9,
+ 3.7822207731954117`*^9}},
CellLabel->
- "During evaluation of \
-In[279]:=",ExpressionUUID->"ba27db0d-09c6-4a6f-ad9a-0715713cedf0"]
-}, Open ]],
+ "In[1143]:=",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{3.780840597174275*^9},
+Cell[BoxData["\<\"++--\"\>"], "Output",
+ CellChangeTimes->{3.782219633450974*^9, 3.782221941533205*^9,
+ 3.7822231873521957`*^9},
CellLabel->
- "Out[289]=",ExpressionUUID->"857b3d19-282d-49d3-9f01-2f9fb4c18984"]
+ "Out[1143]=",ExpressionUUID->"9fa1fcc0-50e6-4081-953e-2d07190d8fa0"]
}, Open ]],
-Cell[BoxData[
- RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
- "\[IndentingNewLine]"}]], "Input",
- CellChangeTimes->{{3.780837147371307*^9,
- 3.7808371478589773`*^9}},ExpressionUUID->"cdd70ba3-988d-4f3f-a994-\
-fa14e0bfd5a8"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_20\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.780837671208232*^9,
- 3.780837672156287*^9}},ExpressionUUID->"65439f17-15a8-4ca3-afa9-\
-deed97ceee64"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_100\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.780837673478314*^9, 3.780837676754232*^9}, {
- 3.780840293537464*^9,
- 3.780840338526163*^9}},ExpressionUUID->"49341df6-9b3d-4c00-b135-\
-1380553e00b2"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_20/BOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.780837817367661*^9,
- 3.780837817495083*^9}},ExpressionUUID->"2c82f1ac-0cf1-40bd-87e5-\
-22201b825305"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_20/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779728091472397*^9, 3.77972809597082*^9}, {
- 3.7797956367584543`*^9, 3.7797956782390213`*^9}, {3.779795761493602*^9,
- 3.779795764333372*^9}, {3.779796564350816*^9, 3.77979656466706*^9}, {
- 3.779807862789379*^9, 3.7798078635434427`*^9}, {3.7798111156392727`*^9,
- 3.779811117831358*^9}, {3.780059139220151*^9, 3.780059142632431*^9}, {
- 3.7802677388101788`*^9, 3.780267739681431*^9}, {3.780837313596246*^9,
- 3.7808373284031563`*^9}, {3.7808376789126987`*^9, 3.780837679204027*^9}, {
- 3.78083781221177*^9,
- 3.780837812742464*^9}},ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-\
-013dff2fc709"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_100/BOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.7808376911136*^9, 3.780837695309383*^9}, {
- 3.780837819209309*^9,
- 3.780837819340238*^9}},ExpressionUUID->"d4d23c76-eedd-48b8-bd17-\
-8b5fe5d0b211"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_100/TOnly\>\""}], "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.7808376930768013`*^9, 3.7808376933266983`*^9}, {
- 3.780837822227991*^9, 3.780837822723424*^9}},
- CellLabel->
- "In[185]:=",ExpressionUUID->"0141ed4e-e691-4f2f-bb31-7d2309eea73f"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_100/AltAngles\>\""}], "]"}], "]"}],
- ";"}]}], "Input",
- CellChangeTimes->{{3.7808403434150667`*^9, 3.7808403435875473`*^9}, {
- 3.78084038880783*^9,
- 3.780840389565028*^9}},ExpressionUUID->"a6df33d2-21de-4140-bfbf-\
-b2fee86951b4"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_100/AltAngles\>\""}], "]"}], "]"}],
- ";"}]}], "Input",ExpressionUUID->"1c110370-8aeb-47a1-b2f1-0dca127d76d3"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</plots/2jets/kt3_20/AltAngles\>\""}], "]"}], "]"}], ";"}]}], "Input",\
-
- CellChangeTimes->{{3.7808403968966093`*^9,
- 3.780840397077894*^9}},ExpressionUUID->"5be59de9-e61f-4004-b8ab-\
-e3748a123590"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ppppList.m\>\"", ",", "ppppList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<pppmList.m\>\"", ",", "pppmList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ppmpList.m\>\"", ",", "ppmpList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<pmppList.m\>\"", ",", "pmppList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ppmmList.m\>\"", ",", "ppmmList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<pmmmList.m\>\"", ",", "pmmmList"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<pmpmList.m\>\"", ",", "pmpmList"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.780237710115534*^9, 3.7802378151262827`*^9}, {
- 3.780267548402445*^9, 3.780267550702984*^9}},
- CellLabel->
- "In[187]:=",ExpressionUUID->"558af4d9-aa2b-44e1-9183-fe4bcdc64b7d"],
+Cell[CellGroupData[{
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "ppppList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "ppppList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraph", ",", "imgraph"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"hel", "=", "\"\<+---\>\""}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "pmmmList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "pmmmList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraph", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++++]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++++.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ 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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++++]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++++_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "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}, {3.77979714774755*^9,
- 3.779797166995288*^9}, {3.7801730791407957`*^9, 3.780173081919619*^9}, {
- 3.780236913393011*^9, 3.780236913971846*^9}, {3.780237044829279*^9,
- 3.780237045323559*^9}, {3.780237147158854*^9, 3.780237167850648*^9}, {
- 3.780237437213807*^9, 3.780237452952824*^9}, {3.7802376926636047`*^9,
- 3.7802377049589233`*^9}},
- CellLabel->
- "In[194]:=",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "pppmList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "pppmList", "]"}]}], ";"}], "\[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[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+++-]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+++-.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+++-]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+++-_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.779731188134094*^9, 3.779731198577499*^9}, {
- 3.779797062184462*^9, 3.779797140563714*^9}, {3.780173086324332*^9,
- 3.7801730902395697`*^9}},
- CellLabel->
- "In[204]:=",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "ppmpList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "ppmpList", "]"}]}], ";"}], "\[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[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++-+]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++-+.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++-+]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++-+_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.779731215262043*^9, 3.7797312312693768`*^9}, {
- 3.77979718251364*^9, 3.779797211163431*^9}, {3.780173096008418*^9,
- 3.78017309890915*^9}},
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.779731292783431*^9, 3.779731303536839*^9}, {
+ 3.779797258091147*^9, 3.7797972655277576`*^9}, {3.780173116129747*^9,
+ 3.780173119255698*^9}, {3.782219067051672*^9, 3.782219102050281*^9}, {
+ 3.7822194830537663`*^9, 3.782219503891139*^9}, {3.78222047730167*^9,
+ 3.782220477690662*^9}, {3.7822207813759127`*^9, 3.782220788529725*^9}},
CellLabel->
- "In[214]:=",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+ "In[1186]:=",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "pmppList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "pmppList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraph", ",", "imgraph"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+Cell[BoxData["\<\"+---\"\>"], "Output",
+ CellChangeTimes->{3.782219637629746*^9, 3.7822219445094147`*^9,
+ 3.782223190709531*^9},
+ CellLabel->
+ "Out[1186]=",ExpressionUUID->"d80a7353-e1b1-4445-a0aa-89dda22c75fc"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"hel", "=", "\"\<+-+-\>\""}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{"Re", "[", "pmpmList", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraph", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"range", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{"Im", "[", "pmpmList", "]"}]}], ";"}], "\[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", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-++]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-++.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S34.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "TList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"TList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+-++]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-++_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.77973123994528*^9, 3.779731261604753*^9}, {
- 3.77979721461591*^9, 3.7797972263228283`*^9}, {3.780173103358138*^9,
- 3.7801731059875183`*^9}},
- CellLabel->
- "In[224]:=",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "ppmmList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "ppmmList", "]"}]}], ";"}], "\[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[{"TList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT", ",", "imgraphT"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T14List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T14List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT14", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"T14List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT14", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++--]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++--.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"T14List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT14", ",", "imgraphT14"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T14", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T14.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"T24List", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "T24List", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphT24", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"T24List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphT24", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++--]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++--_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.7797312702537937`*^9, 3.779731277655807*^9}, {
- 3.779797231400651*^9, 3.779797242174149*^9}, {3.780173109975523*^9,
- 3.780173112572689*^9}},
- CellLabel->
- "In[234]:=",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "pmmmList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "pmmmList", "]"}]}], ";"}], "\[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[{"T24List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphT24", ",", "imgraphT24"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "T24", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_T24.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"UList", "=",
+ RowBox[{"Sqrt", "[",
+ RowBox[{"Abs", "[", "UList", "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphU", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"UList", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphU", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+---]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+---.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"UList", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphU", ",", "imgraphU"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "U", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_U.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT3", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"kT3List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT3", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+---]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+---_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
- ";"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.779731292783431*^9, 3.779731303536839*^9}, {
- 3.779797258091147*^9, 3.7797972655277576`*^9}, {3.780173116129747*^9,
- 3.780173119255698*^9}},
- CellLabel->
- "In[244]:=",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{"Re", "[", "pmpmList", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraph", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"range", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{"Im", "[", "pmpmList", "]"}]}], ";"}], "\[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[{"kT3List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT3", ",", "imgraphkT3"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT3", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT3.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphkT5", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"kT5List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphkT5", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-+-]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-+-.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"regraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imgraphS34", "=",
- RowBox[{"Transpose", "[",
- RowBox[{"{",
- RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plottest", "=",
- RowBox[{"ListPlot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"kT5List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphkT5", ",", "imgraphkT5"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"kT5", ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_kT5.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS35", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"S35List", ",", "re"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS35", "=",
+ RowBox[{"Transpose", "[",
RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+-+-]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-+-_S34.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ RowBox[{"S35List", ",", "im"}], "}"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS35", ",", "imgraphS35"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S35", "]"}], ",",
+ RowBox[{"\"\<Amp[\>\"", "<>", "hel", "<>", "\"\<]\>\""}]}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"\"\<ggHgg_\>\"", "<>", "hel", "<>", "\"\<_S35.png\>\""}], ",",
+ "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.779731315920693*^9, 3.779731323922114*^9}, {
3.779797268062643*^9, 3.7797972779899273`*^9}, {3.780173122600945*^9,
- 3.780173125214747*^9}},
+ 3.780173125214747*^9}, {3.782219118211378*^9, 3.782219132550042*^9}, {
+ 3.78221950877087*^9, 3.782219526427046*^9}, {3.782220479814681*^9,
+ 3.782220480124131*^9}, {3.782220792927169*^9, 3.7822208012643538`*^9}},
+ CellLabel->
+ "In[1229]:=",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"],
+
+Cell[BoxData["\<\"+-+-\"\>"], "Output",
+ CellChangeTimes->{3.782219640530797*^9, 3.7822219481473093`*^9,
+ 3.782223193859742*^9},
CellLabel->
- "In[254]:=",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
+ "Out[1229]=",ExpressionUUID->"9ac205f6-a50b-4db3-a888-9abbe21d5167"]
+}, Open ]]
},
-WindowSize->{950, 755},
-WindowMargins->{{1, Automatic}, {Automatic, 0}},
+WindowSize->{1200, 755},
+WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
@@ -22029,726 +19963,581 @@ CellTagsIndex->{}
Notebook[{
Cell[558, 20, 883, 20, 136, "Input",ExpressionUUID->"07059ed1-da78-45a1-a93e-4a9e51106fb9"],
Cell[CellGroupData[{
-Cell[1466, 44, 270, 4, 52, "Input",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
-Cell[CellGroupData[{
-Cell[1761, 52, 651, 10, 46, "Print",ExpressionUUID->"576d08ad-0792-44db-8dc1-d2a28bb26e28"],
-Cell[2415, 64, 427, 7, 24, "Print",ExpressionUUID->"25a80889-f43b-4c01-bd07-3a44032d2266"]
-}, Open ]]
+Cell[1466, 44, 275, 5, 52, "Input",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
+Cell[1744, 51, 528, 8, 24, "Print",ExpressionUUID->"728721dc-3abd-4a2b-85bc-af1071341aad"]
}, Open ]],
-Cell[2869, 75, 1414, 33, 94, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
-Cell[4286, 110, 11819, 322, 976, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
-Cell[16108, 434, 1425, 34, 94, "Input",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
-Cell[17536, 470, 5688, 156, 787, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
-Cell[23227, 628, 31163, 803, 1921, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+Cell[2287, 62, 344, 7, 52, "Input",ExpressionUUID->"2cf60ca3-dfd4-4c9c-b083-7be09df20591"],
+Cell[2634, 71, 1419, 34, 52, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
+Cell[4056, 107, 20689, 574, 1606, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+Cell[24748, 683, 15079, 387, 892, "Input",ExpressionUUID->"0127c673-10d6-4656-a651-b4638482a09e"],
+Cell[39830, 1072, 29928, 676, 1341, "Input",ExpressionUUID->"cdb738e1-b06c-4056-a83b-fed75692cbe0"],
+Cell[69761, 1750, 3628, 104, 304, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+Cell[73392, 1856, 3063, 87, 241, "Input",ExpressionUUID->"96d025ea-e02d-427d-8502-00b9913d5e7e"],
+Cell[76458, 1945, 2914, 85, 241, "Input",ExpressionUUID->"d4ab7d6b-2de7-429b-8012-7d8382df3f9a"],
+Cell[79375, 2032, 5692, 157, 787, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
+Cell[85070, 2191, 1909, 56, 241, "Input",ExpressionUUID->"b274a7fa-02b1-4828-9d03-509e4c4311ea"],
+Cell[86982, 2249, 176, 4, 30, "Input",ExpressionUUID->"f8b20319-4c15-42df-ba5e-26e9e403ba03"],
+Cell[87161, 2255, 154, 3, 30, "Input",ExpressionUUID->"1aac05ed-9474-430e-9fd7-7c19a189fdbb"],
+Cell[87318, 2260, 1759, 44, 136, "Input",ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-1256848d2e3b"],
+Cell[89080, 2306, 2097, 48, 178, "Input",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
+Cell[91180, 2356, 1767, 45, 157, "Input",ExpressionUUID->"7e306956-b6ed-45d6-bb0d-203b9a69e80b"],
+Cell[92950, 2403, 430, 12, 52, "Input",ExpressionUUID->"a99344e1-89ec-4175-836b-1a838c40d241"],
Cell[CellGroupData[{
-Cell[54415, 1435, 1285, 35, 73, "Input",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
+Cell[93405, 2419, 1195, 27, 52, "Input",ExpressionUUID->"a8132637-c3e1-4436-93bd-91c4f1b0f8d4"],
Cell[CellGroupData[{
-Cell[55725, 1474, 605, 14, 44, "Print",ExpressionUUID->"8ec48464-d6f1-46f0-a9bc-d9b5b7488766"],
-Cell[56333, 1490, 2269, 56, 145, "Print",ExpressionUUID->"ff135c2c-5123-4b56-9af3-729c41b05186"],
-Cell[58605, 1548, 921, 20, 47, "Print",ExpressionUUID->"cb74f11b-36ac-4182-a31c-18964eeb0f53"],
-Cell[59529, 1570, 355, 6, 24, "Print",ExpressionUUID->"16f69396-903c-4586-955f-136c16885f64"],
-Cell[59887, 1578, 1346, 31, 69, "Print",ExpressionUUID->"353952ec-11ff-47b0-b053-a81853341ffe"]
+Cell[94625, 2450, 877, 18, 44, "Print",ExpressionUUID->"fbe079aa-93e0-4794-b2b1-aa9eb8a86047"],
+Cell[95505, 2470, 2640, 63, 145, "Print",ExpressionUUID->"405c459d-d5f3-4ca1-93a5-973d5e2da2ee"],
+Cell[98148, 2535, 1190, 24, 27, "Print",ExpressionUUID->"b1106a4d-144a-4a7f-9003-f33743a52bee"],
+Cell[99341, 2561, 626, 10, 24, "Print",ExpressionUUID->"4d7ca716-d582-4200-aa20-ba6db43e5d3e"],
+Cell[99970, 2573, 1618, 35, 49, "Print",ExpressionUUID->"25ad62ad-8c1e-47ff-aedf-9355a55e3c27"]
}, Open ]]
-}, Open ]],
-Cell[61260, 1613, 5718, 181, 346, "Input",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
-Cell[66981, 1796, 5623, 180, 346, "Input",ExpressionUUID->"12f49257-6a3a-4c21-886e-9427c2f30bde"],
-Cell[72607, 1978, 1897, 53, 346, "Input",ExpressionUUID->"6ef128b9-9837-4c81-b458-191e09ea160e"],
-Cell[74507, 2033, 811, 26, 30, "Input",ExpressionUUID->"182b1eb4-904f-4035-96f1-7c217edef670"],
-Cell[75321, 2061, 341, 10, 30, "Input",ExpressionUUID->"d8458a9c-2ac7-4f59-87ec-a96f24be74ef"],
-Cell[CellGroupData[{
-Cell[75687, 2075, 892, 25, 94, "Input",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
-Cell[76582, 2102, 370, 7, 34, "Output",ExpressionUUID->"24d2d47f-06f2-479a-9035-29c3e65c94b1"]
-}, Open ]],
-Cell[CellGroupData[{
-Cell[76989, 2114, 990, 27, 94, "Input",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
-Cell[77982, 2143, 392, 7, 34, "Output",ExpressionUUID->"b5d8e8b3-292f-464e-8af7-64af35df4b1c"]
-}, Open ]],
-Cell[78389, 2153, 884, 29, 30, "Input",ExpressionUUID->"cd98c05a-fc47-49fe-b336-c8fa35845f46"],
-Cell[79276, 2184, 451, 13, 30, "Input",ExpressionUUID->"af29fd58-c6e0-425f-a465-aeee85ed9b1d"],
-Cell[CellGroupData[{
-Cell[79752, 2201, 945, 26, 94, "Input",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
-Cell[80700, 2229, 292, 5, 34, "Output",ExpressionUUID->"76fb84b6-447c-4500-a79b-097b64b7c182"]
-}, Open ]],
-Cell[CellGroupData[{
-Cell[81029, 2239, 891, 25, 94, "Input",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
-Cell[81923, 2266, 321, 6, 34, "Output",ExpressionUUID->"936f2da2-2370-48ac-8f2b-634af0c669cf"]
-}, Open ]],
-Cell[82259, 2275, 811, 26, 30, "Input",ExpressionUUID->"dd8436d0-935b-4efe-969f-f9d4d49ececb"],
-Cell[83073, 2303, 429, 12, 30, "Input",ExpressionUUID->"213b6240-7175-4d90-8baa-6afebe952928"],
-Cell[CellGroupData[{
-Cell[83527, 2319, 894, 25, 94, "Input",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
-Cell[84424, 2346, 345, 6, 34, "Output",ExpressionUUID->"5fff36a7-5bc7-451c-a708-e06c24a893d5"]
-}, Open ]],
-Cell[CellGroupData[{
-Cell[84806, 2357, 940, 26, 94, "Input",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
-Cell[85749, 2385, 295, 5, 34, "Output",ExpressionUUID->"8d2a86af-89aa-4321-adca-042e99f93fc1"]
-}, Open ]],
-Cell[86059, 2393, 884, 29, 30, "Input",ExpressionUUID->"6d590f68-025d-4e76-96a4-f8d708004a9b"],
-Cell[86946, 2424, 403, 12, 30, "Input",ExpressionUUID->"69088eff-d3a7-4052-b105-6ce5c9626a01"],
+}, Closed]],
Cell[CellGroupData[{
-Cell[87374, 2440, 894, 25, 94, "Input",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
-Cell[88271, 2467, 292, 6, 34, "Output",ExpressionUUID->"ad7356e2-a175-4c71-b9fb-fcbe1f3042cc"]
-}, Open ]],
+Cell[101637, 2614, 745, 18, 26, "Input",ExpressionUUID->"a3fcb34d-2f52-43e7-954a-3be2c4b0017a"],
Cell[CellGroupData[{
-Cell[88600, 2478, 894, 25, 94, "Input",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
-Cell[89497, 2505, 296, 6, 34, "Output",ExpressionUUID->"fec63eb8-aaf2-4448-a56e-c8beff3c626e"]
+Cell[102407, 2636, 735, 15, 44, "Print",ExpressionUUID->"0e62ce95-37c7-4dfa-ac13-03e4e74b03a1"],
+Cell[103145, 2653, 2435, 59, 145, "Print",ExpressionUUID->"e50c8c74-414c-4f1e-a495-cd9dea97de29"],
+Cell[105583, 2714, 1060, 22, 27, "Print",ExpressionUUID->"f0bfefa5-1ce0-405a-bb32-ba159976b7c1"],
+Cell[106646, 2738, 490, 8, 24, "Print",ExpressionUUID->"576a5818-0358-427b-9dde-d9f59f14f67f"],
+Cell[107139, 2748, 1442, 33, 49, "Print",ExpressionUUID->"9a4fe0f4-5ac0-43a9-b246-26ff47cbf573"]
+}, Open ]]
}, Open ]],
-Cell[89808, 2514, 811, 26, 30, "Input",ExpressionUUID->"d5ad72cf-c464-4f2e-8108-84dbd216cab1"],
-Cell[90622, 2542, 332, 10, 30, "Input",ExpressionUUID->"752a3f8d-f3d4-4411-987d-dc217a127fe7"],
Cell[CellGroupData[{
-Cell[90979, 2556, 894, 25, 94, "Input",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
-Cell[91876, 2583, 294, 5, 34, "Output",ExpressionUUID->"ba599fef-014b-4efb-beb5-6b6822120c87"]
+Cell[108630, 2787, 162, 3, 30, "Input",ExpressionUUID->"4a094de2-cc82-4853-9031-71a36e2a1d27"],
+Cell[108795, 2792, 1150, 28, 61, "Output",ExpressionUUID->"99975541-eef5-4cb7-93e5-8c453e3a4b68"]
}, Open ]],
+Cell[109960, 2823, 130, 3, 30, "Input",ExpressionUUID->"f380996b-1a8f-4db8-abc3-d4715e786f63"],
Cell[CellGroupData[{
-Cell[92207, 2593, 892, 25, 94, "Input",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
-Cell[93102, 2620, 294, 5, 34, "Output",ExpressionUUID->"e7eb6211-922a-4f87-8608-c31bf1fa38a8"]
-}, Open ]],
-Cell[93411, 2628, 811, 26, 30, "Input",ExpressionUUID->"3ae73bc5-4aeb-470c-90ab-96783e700a1c"],
-Cell[94225, 2656, 447, 14, 30, "Input",ExpressionUUID->"85ad533d-c3c4-4762-ac62-6ee29af8a7df"],
+Cell[110115, 2830, 21633, 563, 1921, "Input",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
Cell[CellGroupData[{
-Cell[94697, 2674, 942, 26, 94, "Input",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
-Cell[95642, 2702, 318, 7, 34, "Output",ExpressionUUID->"8ec3cbdc-d749-432a-8791-dcaae606bb53"]
+Cell[131773, 3397, 606, 14, 44, "Print",ExpressionUUID->"eb472e6e-4421-4699-99b4-2a9eb6515042"],
+Cell[132382, 3413, 2295, 58, 145, "Print",ExpressionUUID->"37262882-c7c3-4602-b120-ab1ab97ef378"],
+Cell[134680, 3473, 954, 22, 27, "Print",ExpressionUUID->"4f76621c-9896-4c85-9479-ef342cff2ac7"],
+Cell[135637, 3497, 363, 7, 24, "Print",ExpressionUUID->"90c5cf8c-1081-4b71-b522-a8ebae27717b"],
+Cell[136003, 3506, 1313, 32, 49, "Print",ExpressionUUID->"5d0a8995-2ac8-4c28-ab08-81104cd35b9b"],
+Cell[137319, 3540, 606, 14, 44, "Print",ExpressionUUID->"2ba0b823-2676-4a82-af0d-b9bee55c70a8"],
+Cell[137928, 3556, 2308, 58, 145, "Print",ExpressionUUID->"9eeb1d09-b62a-4cec-854d-0c20fd4a7bc8"],
+Cell[140239, 3616, 956, 22, 27, "Print",ExpressionUUID->"e1f23ac5-ecb1-4c7d-9d68-a67c1158e2bc"],
+Cell[141198, 3640, 361, 7, 24, "Print",ExpressionUUID->"303446df-f358-4a84-8894-d9416578834b"],
+Cell[141562, 3649, 1311, 32, 49, "Print",ExpressionUUID->"da522714-73ec-4638-9bbe-9110fa9dd448"],
+Cell[142876, 3683, 606, 14, 44, "Print",ExpressionUUID->"91456264-ffb4-4699-b874-fa10be3117ad"],
+Cell[143485, 3699, 2297, 58, 145, "Print",ExpressionUUID->"cb39f871-1bfb-455c-82e7-e8d360c75d39"],
+Cell[145785, 3759, 935, 21, 27, "Print",ExpressionUUID->"9f422d40-1f3b-4f34-9443-952d0b72821d"],
+Cell[146723, 3782, 363, 7, 24, "Print",ExpressionUUID->"6b6da121-cc82-4452-a820-5f20cf51d53c"],
+Cell[147089, 3791, 1313, 32, 49, "Print",ExpressionUUID->"ed347ef1-d840-49eb-90aa-d507aab90b03"],
+Cell[148405, 3825, 606, 14, 44, "Print",ExpressionUUID->"b484015c-4d3b-4d85-8f0c-1276e1c88f43"],
+Cell[149014, 3841, 2289, 58, 145, "Print",ExpressionUUID->"e9bd4019-1304-4f47-b4f1-adf8686cf030"],
+Cell[151306, 3901, 956, 22, 27, "Print",ExpressionUUID->"13b997af-9abb-4fb1-b255-70abb35795b3"],
+Cell[152265, 3925, 363, 7, 24, "Print",ExpressionUUID->"0fa4d801-6af4-419e-b610-69abada29d3b"],
+Cell[152631, 3934, 1316, 32, 49, "Print",ExpressionUUID->"f9453062-8704-4278-9b57-721fe1b306b2"],
+Cell[153950, 3968, 606, 14, 44, "Print",ExpressionUUID->"b579cb17-f4f0-472f-b4c2-e91cd986b0e4"],
+Cell[154559, 3984, 2296, 57, 145, "Print",ExpressionUUID->"9432b990-fe0b-49e1-9666-9ab52fea5170"],
+Cell[156858, 4043, 929, 21, 27, "Print",ExpressionUUID->"8106f21a-8eaf-4857-a3ed-7238c35f473d"],
+Cell[157790, 4066, 361, 7, 24, "Print",ExpressionUUID->"4ef8ced0-16f5-4997-958e-4964de6bc41d"],
+Cell[158154, 4075, 1315, 32, 49, "Print",ExpressionUUID->"b7bfb80c-0f83-46ff-ab85-97b164841fe2"],
+Cell[159472, 4109, 606, 14, 44, "Print",ExpressionUUID->"61e4c2a6-3280-43a6-ae5c-894ec40267bb"],
+Cell[160081, 4125, 2306, 58, 145, "Print",ExpressionUUID->"24ccdf30-44a1-4374-b6ee-0ae177ec3624"],
+Cell[162390, 4185, 935, 21, 27, "Print",ExpressionUUID->"8f770c4a-ed05-48fd-b229-fd7de0e1b315"],
+Cell[163328, 4208, 361, 7, 24, "Print",ExpressionUUID->"bc42330e-8495-46ad-8835-3764b308b90f"],
+Cell[163692, 4217, 1310, 32, 49, "Print",ExpressionUUID->"f97a301f-e310-4c66-af7c-af060e39369a"],
+Cell[165005, 4251, 582, 14, 44, "Print",ExpressionUUID->"f0dde102-dca9-4476-aee5-00409c064e3c"],
+Cell[165590, 4267, 2299, 58, 145, "Print",ExpressionUUID->"e9d1c091-f766-4b34-9936-f3d1cf61dec2"],
+Cell[167892, 4327, 935, 21, 27, "Print",ExpressionUUID->"ab4b6d06-344f-4cd3-88e3-5697a4f9c4a9"],
+Cell[168830, 4350, 361, 7, 24, "Print",ExpressionUUID->"eea77730-72d0-43d2-88cc-02ee2cf5c17d"],
+Cell[169194, 4359, 1316, 32, 49, "Print",ExpressionUUID->"7b59cb25-cb92-453b-9a1c-6f727550a316"],
+Cell[170513, 4393, 606, 14, 44, "Print",ExpressionUUID->"c86125f8-098c-4170-92f0-58daee02e05e"],
+Cell[171122, 4409, 2294, 57, 145, "Print",ExpressionUUID->"ccaa5fee-bba4-414a-ae39-d56db8525a9c"],
+Cell[173419, 4468, 937, 21, 27, "Print",ExpressionUUID->"3c77f75e-3b4a-466e-9ebd-d1d800a09643"],
+Cell[174359, 4491, 361, 7, 24, "Print",ExpressionUUID->"18e8767f-3cba-4a33-81bb-e35cce78a77d"],
+Cell[174723, 4500, 1314, 32, 49, "Print",ExpressionUUID->"08533abf-88ab-4064-b0b2-fc298d373eba"],
+Cell[176040, 4534, 606, 14, 44, "Print",ExpressionUUID->"ad7027d8-3baa-4c05-8538-13d704d9a417"],
+Cell[176649, 4550, 2293, 58, 145, "Print",ExpressionUUID->"ee772637-1cdd-4abf-b791-8a822ae8bdfb"],
+Cell[178945, 4610, 962, 22, 27, "Print",ExpressionUUID->"3dc0d850-3c00-423e-9e62-2888302d749a"],
+Cell[179910, 4634, 361, 7, 24, "Print",ExpressionUUID->"d5911480-3962-4748-9133-258a5fac051d"],
+Cell[180274, 4643, 1313, 32, 49, "Print",ExpressionUUID->"956bc6e1-45b2-47cd-b53d-7c9aed1eacf7"],
+Cell[181590, 4677, 612, 15, 44, "Print",ExpressionUUID->"a17f83a3-db93-4caf-9998-cc93f8cd2f76"],
+Cell[182205, 4694, 2298, 58, 145, "Print",ExpressionUUID->"f558ff58-d8d3-40cf-b4e9-601226be305c"],
+Cell[184506, 4754, 933, 21, 27, "Print",ExpressionUUID->"c2a13aea-2a7a-4781-b230-8fa286536d20"],
+Cell[185442, 4777, 361, 7, 24, "Print",ExpressionUUID->"09e18511-2088-423b-bc50-7c605f0579d3"],
+Cell[185806, 4786, 1314, 32, 49, "Print",ExpressionUUID->"33d2f4bb-f6e4-4239-b217-10bad769d517"],
+Cell[187123, 4820, 612, 15, 44, "Print",ExpressionUUID->"c6417ce0-080b-4f6a-b9f4-25d483f31a3f"],
+Cell[187738, 4837, 2302, 58, 145, "Print",ExpressionUUID->"74eba83f-2c11-44bc-9047-3ec5bf364dd3"],
+Cell[190043, 4897, 954, 22, 27, "Print",ExpressionUUID->"c98ee2fa-3d71-4e50-a011-362b0217ca2d"],
+Cell[191000, 4921, 363, 7, 24, "Print",ExpressionUUID->"f6102031-5e3e-4aa5-baec-887530d1434c"],
+Cell[191366, 4930, 1317, 32, 49, "Print",ExpressionUUID->"69149dbb-58bf-4b82-b224-75b6c08a1416"],
+Cell[192686, 4964, 606, 14, 44, "Print",ExpressionUUID->"db672a18-b413-4739-abb1-821caae45b13"],
+Cell[193295, 4980, 2303, 58, 145, "Print",ExpressionUUID->"cdca3564-8e33-4416-acf0-f06c70dcccf6"],
+Cell[195601, 5040, 958, 22, 27, "Print",ExpressionUUID->"4709c608-dce2-406c-8b6a-a5f0e9d0199d"],
+Cell[196562, 5064, 361, 7, 24, "Print",ExpressionUUID->"fc88d9a9-cbec-4b76-b7a4-5f77405f0eca"],
+Cell[196926, 5073, 1314, 32, 49, "Print",ExpressionUUID->"fb32dc72-a7c7-4caa-bd4b-1dc6d2c3bca4"],
+Cell[198243, 5107, 612, 15, 44, "Print",ExpressionUUID->"973b5e7a-a9f2-4cdb-9cf8-ce04b314d9a0"],
+Cell[198858, 5124, 2295, 58, 145, "Print",ExpressionUUID->"4923bb6f-504c-496d-9116-27a6e6748bf5"],
+Cell[201156, 5184, 956, 22, 27, "Print",ExpressionUUID->"315b146d-fd68-4357-920f-ca08702ed8ca"],
+Cell[202115, 5208, 363, 7, 24, "Print",ExpressionUUID->"a90c61c7-1cd8-4914-b364-5d079ff29393"],
+Cell[202481, 5217, 1317, 32, 49, "Print",ExpressionUUID->"414aded3-80f3-4ce3-ad6e-16a1a2d10d48"],
+Cell[203801, 5251, 612, 15, 44, "Print",ExpressionUUID->"5a8e8864-1d08-4f5d-98c7-eb994a0df279"],
+Cell[204416, 5268, 2307, 58, 145, "Print",ExpressionUUID->"49581c3f-aa68-4d04-9082-9e97e5bd1a4e"],
+Cell[206726, 5328, 937, 21, 27, "Print",ExpressionUUID->"47b78bab-87d6-4411-b249-b2214f1167cf"],
+Cell[207666, 5351, 361, 7, 24, "Print",ExpressionUUID->"f766e3fd-0bf4-45d2-9902-8baf24ff4c11"],
+Cell[208030, 5360, 1313, 32, 49, "Print",ExpressionUUID->"e5328376-42f3-4dc3-b98a-160de41938ec"],
+Cell[209346, 5394, 606, 14, 44, "Print",ExpressionUUID->"aa2ebf56-6c23-431d-a0d1-6276e58b6105"],
+Cell[209955, 5410, 2288, 57, 145, "Print",ExpressionUUID->"74878574-346f-41bd-8c7c-6265167da24b"],
+Cell[212246, 5469, 937, 21, 27, "Print",ExpressionUUID->"a89bf91f-d552-429e-b0bb-1aec7984d987"],
+Cell[213186, 5492, 363, 7, 24, "Print",ExpressionUUID->"b3cd9af8-09a1-48b7-9aec-c93aa62c17ff"],
+Cell[213552, 5501, 1315, 32, 49, "Print",ExpressionUUID->"f794b3b3-384e-4d8a-a3d3-6ad4291e3f53"],
+Cell[214870, 5535, 614, 15, 44, "Print",ExpressionUUID->"55521f8c-664a-4b74-80f4-43689c7cf35f"],
+Cell[215487, 5552, 2308, 58, 145, "Print",ExpressionUUID->"53368979-aac0-4351-a6e4-d4dd2b225727"],
+Cell[217798, 5612, 937, 21, 27, "Print",ExpressionUUID->"30c3227c-959a-4498-a3e5-1b37ad3ecacc"],
+Cell[218738, 5635, 361, 7, 24, "Print",ExpressionUUID->"6a7678da-d7dc-4f6b-9fe0-06a01bb93612"],
+Cell[219102, 5644, 1316, 32, 49, "Print",ExpressionUUID->"da265576-b366-44a9-b169-7084923182d2"],
+Cell[220421, 5678, 614, 15, 44, "Print",ExpressionUUID->"57afebc2-c950-4099-9d6a-1dd3fc0d2d25"],
+Cell[221038, 5695, 2300, 58, 145, "Print",ExpressionUUID->"040683d4-b1bf-4e3f-809f-6263c5af08ee"],
+Cell[223341, 5755, 960, 22, 27, "Print",ExpressionUUID->"3920610a-ee5e-400e-b954-4cea07652c72"],
+Cell[224304, 5779, 361, 7, 24, "Print",ExpressionUUID->"694ea38d-8ef3-4fd1-a79c-69b35791b237"],
+Cell[224668, 5788, 1316, 32, 49, "Print",ExpressionUUID->"989083e7-fde0-42f6-9602-735d3f75261e"],
+Cell[225987, 5822, 612, 15, 44, "Print",ExpressionUUID->"99753c6c-2c88-4d4c-8aab-a5b352fb7ee7"],
+Cell[226602, 5839, 2298, 57, 145, "Print",ExpressionUUID->"56fa9b25-60f6-4701-9547-7683ad865878"],
+Cell[228903, 5898, 956, 22, 27, "Print",ExpressionUUID->"c4ea1d58-4b84-49e6-8dd5-ce394940f362"],
+Cell[229862, 5922, 363, 7, 24, "Print",ExpressionUUID->"5e974506-d775-488c-bf02-4403227bfc7b"],
+Cell[230228, 5931, 1314, 32, 49, "Print",ExpressionUUID->"c74ec13b-fa7f-4c5b-94d2-13dc0acaeeb8"],
+Cell[231545, 5965, 605, 14, 44, "Print",ExpressionUUID->"65a22e74-ee57-4c82-aa49-973da4bbcd28"],
+Cell[232153, 5981, 2300, 58, 145, "Print",ExpressionUUID->"5967d291-d8f2-42ac-a9e1-8df41f647703"],
+Cell[234456, 6041, 937, 21, 27, "Print",ExpressionUUID->"6bd095b3-8a72-44bc-816f-10881faf6163"],
+Cell[235396, 6064, 361, 7, 24, "Print",ExpressionUUID->"4a394819-508f-4818-bb87-e30a579ae51a"],
+Cell[235760, 6073, 1315, 32, 49, "Print",ExpressionUUID->"14cb1131-0cb2-47b3-931c-40aa3e573442"],
+Cell[237078, 6107, 608, 14, 44, "Print",ExpressionUUID->"81584c25-e13c-4fcc-851f-5e9088212cca"],
+Cell[237689, 6123, 2308, 58, 145, "Print",ExpressionUUID->"2a58ff05-8594-41d4-abe2-5edef61d186d"],
+Cell[240000, 6183, 933, 21, 27, "Print",ExpressionUUID->"cf4b7523-34c4-4ef1-a84b-9171f4d33668"],
+Cell[240936, 6206, 363, 7, 24, "Print",ExpressionUUID->"9ac17eb7-0b3d-4750-a6f7-f1c0d4c9bdf0"],
+Cell[241302, 6215, 1316, 32, 49, "Print",ExpressionUUID->"f90701c9-3905-4850-9979-dea825651b98"],
+Cell[242621, 6249, 594, 14, 44, "Print",ExpressionUUID->"78e8eb7d-1e50-4f02-8230-a251a1d97d20"],
+Cell[243218, 6265, 2300, 58, 145, "Print",ExpressionUUID->"1ca2c8b7-9bbe-4896-b9b5-0560825f0103"],
+Cell[245521, 6325, 960, 22, 27, "Print",ExpressionUUID->"5667f65c-12b5-4c23-bc25-2eedff1e4bcc"],
+Cell[246484, 6349, 359, 7, 24, "Print",ExpressionUUID->"3370626f-ea42-4f26-ab1b-5f560bef11ea"],
+Cell[246846, 6358, 1317, 32, 49, "Print",ExpressionUUID->"75ecad4a-0a7f-4c28-b76a-2e7cc0c58d9c"],
+Cell[248166, 6392, 612, 15, 44, "Print",ExpressionUUID->"45434714-0de9-4153-9b4d-34cea3cfa48d"],
+Cell[248781, 6409, 2310, 58, 145, "Print",ExpressionUUID->"0fc42285-3661-4190-9aea-d41aa72449ca"],
+Cell[251094, 6469, 935, 21, 27, "Print",ExpressionUUID->"a8e25977-d636-4019-90a8-19397b7236ea"],
+Cell[252032, 6492, 363, 7, 24, "Print",ExpressionUUID->"e3fefeed-9fc8-4669-b164-525dad58cc77"],
+Cell[252398, 6501, 1319, 32, 49, "Print",ExpressionUUID->"a91e35c0-70c9-46f7-ae1f-df7d7fa18b22"],
+Cell[253720, 6535, 612, 15, 44, "Print",ExpressionUUID->"f73018a3-b4d5-4dd4-be09-e9bf3000ce73"],
+Cell[254335, 6552, 2290, 57, 145, "Print",ExpressionUUID->"d3655c24-c754-435b-a97d-01c900846210"],
+Cell[256628, 6611, 935, 21, 27, "Print",ExpressionUUID->"a81ffd96-a954-4bd8-8121-e32a0904f35a"],
+Cell[257566, 6634, 361, 7, 24, "Print",ExpressionUUID->"1bce163b-726e-4979-b79e-909a45fcfea0"],
+Cell[257930, 6643, 1315, 32, 49, "Print",ExpressionUUID->"85b46f8e-169b-45ca-8fc1-f2362686f591"],
+Cell[259248, 6677, 612, 15, 44, "Print",ExpressionUUID->"7ec78437-62b4-48cd-846b-cf927ddd6400"],
+Cell[259863, 6694, 2311, 58, 145, "Print",ExpressionUUID->"66808d8c-c14e-48f3-9025-643de7d822c5"],
+Cell[262177, 6754, 958, 22, 27, "Print",ExpressionUUID->"74dda525-8ec6-4456-a155-8662458f76a9"],
+Cell[263138, 6778, 361, 7, 24, "Print",ExpressionUUID->"3e54770e-e5e8-4dd1-a997-4c61f9566b01"],
+Cell[263502, 6787, 1315, 32, 49, "Print",ExpressionUUID->"2411cca8-8c80-40a4-8a5e-ba686435293d"],
+Cell[264820, 6821, 614, 15, 44, "Print",ExpressionUUID->"7157a62f-f9ab-42a6-b1b8-648631340c6b"],
+Cell[265437, 6838, 2303, 58, 145, "Print",ExpressionUUID->"118b90c2-da9e-4136-9466-9ce8f8e8f885"],
+Cell[267743, 6898, 956, 22, 27, "Print",ExpressionUUID->"bd1635b9-8218-42cc-a9b8-18c3f010168c"],
+Cell[268702, 6922, 361, 7, 24, "Print",ExpressionUUID->"0e66d9df-5553-44be-a5dc-c7b23ea66c6f"],
+Cell[269066, 6931, 1316, 32, 49, "Print",ExpressionUUID->"45854814-c1b2-4632-a75d-b75e25298cf5"],
+Cell[270385, 6965, 614, 15, 44, "Print",ExpressionUUID->"4bc4ece6-a7fb-4d10-a7f0-b8ff2e5ab83c"],
+Cell[271002, 6982, 2308, 58, 145, "Print",ExpressionUUID->"9e787b2a-756d-4d8a-a200-e357e7696aa6"],
+Cell[273313, 7042, 933, 21, 27, "Print",ExpressionUUID->"ba26eefd-c991-40e8-9205-20c2bd142d1e"],
+Cell[274249, 7065, 363, 7, 24, "Print",ExpressionUUID->"048865a4-8fda-44fe-835e-cf354ebb4e6f"],
+Cell[274615, 7074, 1317, 32, 49, "Print",ExpressionUUID->"fee89764-0fee-4485-a689-360bd32a870a"],
+Cell[275935, 7108, 612, 15, 44, "Print",ExpressionUUID->"5b3b65f2-f070-4d6f-8e26-235e30c5d7f3"],
+Cell[276550, 7125, 2302, 58, 145, "Print",ExpressionUUID->"dbab813c-ea33-414a-9483-3b448fb9f6bf"],
+Cell[278855, 7185, 960, 22, 27, "Print",ExpressionUUID->"dbb1c476-92f7-43e8-97fd-67ebcc8a10b5"],
+Cell[279818, 7209, 363, 7, 24, "Print",ExpressionUUID->"9ee00836-7aef-41c4-8c36-df3fbb9d6fa3"],
+Cell[280184, 7218, 1317, 32, 49, "Print",ExpressionUUID->"03b5aeda-9575-4b63-a3f9-0ab122d33c47"],
+Cell[281504, 7252, 612, 15, 44, "Print",ExpressionUUID->"150e0913-ad00-41aa-af2c-d416beb7167e"],
+Cell[282119, 7269, 2295, 57, 145, "Print",ExpressionUUID->"64bf5370-0c38-4dee-bf62-d3ea94ce2e05"],
+Cell[284417, 7328, 939, 21, 27, "Print",ExpressionUUID->"236f56b1-4c90-45da-8a43-07d51c50152f"],
+Cell[285359, 7351, 361, 7, 24, "Print",ExpressionUUID->"b2aaea1a-96c2-43e9-b576-7f7d5cc12c3a"],
+Cell[285723, 7360, 1317, 32, 49, "Print",ExpressionUUID->"a205f6e9-c0cc-4407-986a-959578ebce6c"],
+Cell[287043, 7394, 614, 15, 44, "Print",ExpressionUUID->"9b365298-2fb1-4cd3-84e9-d4756cd404ea"],
+Cell[287660, 7411, 2303, 58, 145, "Print",ExpressionUUID->"e145d498-c097-47c0-bd2e-e528fae1eac7"],
+Cell[289966, 7471, 939, 21, 27, "Print",ExpressionUUID->"3bf8b1b2-4f10-4082-9f08-4e77782ee054"],
+Cell[290908, 7494, 361, 7, 24, "Print",ExpressionUUID->"0ce67dba-7ae0-448d-b462-574b2dfd75aa"],
+Cell[291272, 7503, 1317, 32, 49, "Print",ExpressionUUID->"06b6fac9-f39a-4ad7-aac7-135a67372caa"],
+Cell[292592, 7537, 606, 14, 44, "Print",ExpressionUUID->"af2eacb5-2178-4292-858a-7d83c90a0f4a"],
+Cell[293201, 7553, 2310, 58, 145, "Print",ExpressionUUID->"85ca47f3-d722-4de6-b720-68a83052879e"],
+Cell[295514, 7613, 958, 22, 27, "Print",ExpressionUUID->"deae2805-44d8-4c25-a5ff-f13caf3c39fb"],
+Cell[296475, 7637, 361, 7, 24, "Print",ExpressionUUID->"cf40d59b-33e8-4471-99e2-ad0216fe5cbf"],
+Cell[296839, 7646, 1316, 32, 49, "Print",ExpressionUUID->"4245d48b-788e-4653-9b2d-d38083991e1d"],
+Cell[298158, 7680, 611, 15, 44, "Print",ExpressionUUID->"bc9f2d52-f742-4e89-ac81-d47df87b7d17"],
+Cell[298772, 7697, 2298, 58, 145, "Print",ExpressionUUID->"444d6113-4f09-47a2-9a58-30554b98907b"],
+Cell[301073, 7757, 960, 22, 27, "Print",ExpressionUUID->"a508e26b-571a-4ee7-8eda-7bb520d50f5e"],
+Cell[302036, 7781, 361, 7, 24, "Print",ExpressionUUID->"a5acc606-bf34-4a0e-b4bd-511f4976c6e5"],
+Cell[302400, 7790, 1318, 32, 49, "Print",ExpressionUUID->"b044c176-2f1f-4dc3-8944-147134ced60a"],
+Cell[303721, 7824, 612, 15, 44, "Print",ExpressionUUID->"1214b469-f193-48f4-aa8b-02765389cc2f"],
+Cell[304336, 7841, 2307, 58, 145, "Print",ExpressionUUID->"044ec3b1-56fd-406a-813e-059ae3c43f8e"],
+Cell[306646, 7901, 939, 21, 27, "Print",ExpressionUUID->"62fd9fbc-639a-48bb-a4a1-b8fbf2b2e551"],
+Cell[307588, 7924, 361, 7, 24, "Print",ExpressionUUID->"2ffbc4af-2673-4220-ad29-1af4c4160817"],
+Cell[307952, 7933, 1317, 32, 49, "Print",ExpressionUUID->"00e79565-aded-49c9-a2d0-4246486dfc58"],
+Cell[309272, 7967, 612, 15, 44, "Print",ExpressionUUID->"d18588f6-e5d1-4181-9c82-5637f7e4a5a1"],
+Cell[309887, 7984, 2297, 58, 145, "Print",ExpressionUUID->"8177d52e-0bd0-4d01-b640-3c3f3b96a4be"],
+Cell[312187, 8044, 962, 22, 27, "Print",ExpressionUUID->"861cf6af-09f2-4265-a767-684d46f63ecc"],
+Cell[313152, 8068, 361, 7, 24, "Print",ExpressionUUID->"26e71a6d-c132-45d9-aba6-0d20d162bc8b"],
+Cell[313516, 8077, 1315, 32, 49, "Print",ExpressionUUID->"e409a58e-d852-4c3c-9990-dd20e19c365d"],
+Cell[314834, 8111, 606, 14, 44, "Print",ExpressionUUID->"ca7795a7-e2c9-473b-9a2b-44772df29dd0"],
+Cell[315443, 8127, 2311, 58, 145, "Print",ExpressionUUID->"87b4d5f3-c8fc-4fc8-afae-ccfed3b2f824"],
+Cell[317757, 8187, 960, 22, 27, "Print",ExpressionUUID->"f63735df-3cbe-4fc0-96b6-977c9a6a9121"],
+Cell[318720, 8211, 361, 7, 24, "Print",ExpressionUUID->"a9442270-25db-4c94-ae4a-96ec2a6b99cf"],
+Cell[319084, 8220, 1318, 32, 49, "Print",ExpressionUUID->"8e84c977-c68d-4465-937f-fc93ff370808"],
+Cell[320405, 8254, 614, 15, 44, "Print",ExpressionUUID->"dfaf82e6-b526-4dd0-8829-73790c8a282d"],
+Cell[321022, 8271, 2300, 58, 145, "Print",ExpressionUUID->"1c144ba6-70d8-44d9-b4fa-4f3365b80c6f"],
+Cell[323325, 8331, 934, 21, 27, "Print",ExpressionUUID->"0a2a9d58-cf47-4bb9-bcb0-614492b41927"],
+Cell[324262, 8354, 361, 7, 24, "Print",ExpressionUUID->"2784086e-b2ba-444f-90b7-e52fa27b9b3a"],
+Cell[324626, 8363, 1319, 32, 49, "Print",ExpressionUUID->"174197e0-2e63-4f08-bab6-40f0fe61f499"],
+Cell[325948, 8397, 612, 15, 44, "Print",ExpressionUUID->"03d2c137-7281-47b5-93e3-b30be0165b33"],
+Cell[326563, 8414, 2311, 58, 145, "Print",ExpressionUUID->"aa4c1b24-ec3b-4207-9a44-26661d45175b"],
+Cell[328877, 8474, 939, 21, 27, "Print",ExpressionUUID->"6ee3ed2c-d4aa-4b08-b77c-a5eb44d52e82"],
+Cell[329819, 8497, 361, 7, 24, "Print",ExpressionUUID->"953dce61-51e0-4ba4-a725-f123e317202e"],
+Cell[330183, 8506, 1317, 32, 49, "Print",ExpressionUUID->"d39f8db8-5595-4644-b8ea-9dfaf36e7d65"],
+Cell[331503, 8540, 592, 14, 44, "Print",ExpressionUUID->"38a388b3-da96-4e12-afae-2236a6b3244f"],
+Cell[332098, 8556, 2297, 58, 145, "Print",ExpressionUUID->"f1f3e65a-6354-48d4-9e4a-ee6ac31a19bc"],
+Cell[334398, 8616, 935, 21, 27, "Print",ExpressionUUID->"ba39f9a4-effc-4e8a-b270-c3d2651a6687"],
+Cell[335336, 8639, 361, 7, 24, "Print",ExpressionUUID->"730b6b16-96f0-4768-817a-352d8437d9fe"],
+Cell[335700, 8648, 1316, 32, 49, "Print",ExpressionUUID->"00c8ea1e-806f-4cec-b838-34dc1409d0a4"],
+Cell[337019, 8682, 612, 15, 44, "Print",ExpressionUUID->"0619e94c-c78e-4a8b-9132-c7f5bf155615"],
+Cell[337634, 8699, 2308, 58, 145, "Print",ExpressionUUID->"3764a5ac-8307-46f1-b623-76576d71adec"],
+Cell[339945, 8759, 943, 21, 27, "Print",ExpressionUUID->"2a165a1d-15fb-4a86-8b66-148b20699830"],
+Cell[340891, 8782, 363, 7, 24, "Print",ExpressionUUID->"6cf36925-ac3c-4d7d-86e2-b8ddc58b755f"],
+Cell[341257, 8791, 1315, 32, 49, "Print",ExpressionUUID->"3c8531b3-5d15-4a6e-a822-cbb824c43a7e"],
+Cell[342575, 8825, 606, 14, 44, "Print",ExpressionUUID->"7b3e81c8-bd03-47bd-a00a-03bea9e70ba2"],
+Cell[343184, 8841, 2303, 58, 145, "Print",ExpressionUUID->"87eadff7-1573-460c-9b2f-c1e8a4e3cc4b"],
+Cell[345490, 8901, 937, 21, 27, "Print",ExpressionUUID->"7ce986fd-6c09-4f85-9e11-6d8bfbeea750"],
+Cell[346430, 8924, 361, 7, 24, "Print",ExpressionUUID->"0257cd5d-bfa8-4be0-8250-e143f7020f75"],
+Cell[346794, 8933, 1315, 32, 49, "Print",ExpressionUUID->"69774b37-a257-4385-a8af-b5064a76b9f4"],
+Cell[348112, 8967, 612, 15, 44, "Print",ExpressionUUID->"7ab1b056-bd51-43a0-b702-a1a9af876394"],
+Cell[348727, 8984, 2313, 58, 145, "Print",ExpressionUUID->"e539b2f6-8dfb-43b4-99cd-a9dc1873f2b2"],
+Cell[351043, 9044, 957, 22, 27, "Print",ExpressionUUID->"8a94e2a3-93de-4b5e-86dd-6d46488569d5"],
+Cell[352003, 9068, 360, 7, 24, "Print",ExpressionUUID->"71fc5159-cabe-4765-8ff3-9cec9200f271"],
+Cell[352366, 9077, 1318, 32, 49, "Print",ExpressionUUID->"117119ef-5e86-499d-80d8-9b48bea99582"],
+Cell[353687, 9111, 614, 15, 44, "Print",ExpressionUUID->"36a853e1-70bd-4988-9c8f-f69eb9ec726a"],
+Cell[354304, 9128, 2303, 58, 145, "Print",ExpressionUUID->"20735443-1a94-4043-9970-d98922afdbe9"],
+Cell[356610, 9188, 935, 21, 27, "Print",ExpressionUUID->"edd7bef6-6c4a-4f43-bf98-c3f8d1540435"],
+Cell[357548, 9211, 363, 7, 24, "Print",ExpressionUUID->"286c94bf-6265-491e-a813-59b0ed25b7de"],
+Cell[357914, 9220, 1317, 32, 49, "Print",ExpressionUUID->"8839f899-37b7-472d-9bb9-efed66e4315b"],
+Cell[359234, 9254, 606, 14, 44, "Print",ExpressionUUID->"39dbc99a-db1a-4830-a8c8-9cb2eaf5e8e4"],
+Cell[359843, 9270, 2305, 58, 145, "Print",ExpressionUUID->"e5e4250d-a544-4a44-9e91-a925bfa572a3"],
+Cell[362151, 9330, 933, 21, 27, "Print",ExpressionUUID->"6839cde6-2a25-4100-b5f8-52783cea0d5d"],
+Cell[363087, 9353, 361, 7, 24, "Print",ExpressionUUID->"c73e60ee-e458-4db5-b65f-532d875163ab"],
+Cell[363451, 9362, 1316, 32, 49, "Print",ExpressionUUID->"9220e165-77ca-4914-b608-7c1ef8990a7e"],
+Cell[364770, 9396, 612, 15, 44, "Print",ExpressionUUID->"05d03f08-cea0-4ef2-a801-cc9f96da35d9"],
+Cell[365385, 9413, 2299, 58, 145, "Print",ExpressionUUID->"7a1b3dc4-5a1b-48ea-992d-bcf37ebd46fa"],
+Cell[367687, 9473, 960, 22, 27, "Print",ExpressionUUID->"a276da53-5b21-43ce-a5cf-4fdf2a4ca42a"],
+Cell[368650, 9497, 360, 7, 24, "Print",ExpressionUUID->"bb3df4ef-7955-48a8-a717-fca6746e64ab"],
+Cell[369013, 9506, 1316, 32, 49, "Print",ExpressionUUID->"85b265bc-fd1d-4cba-a7b9-1735bc05c7eb"],
+Cell[370332, 9540, 612, 15, 44, "Print",ExpressionUUID->"a85ee481-f28d-4b86-a544-5b2b9106c2ad"],
+Cell[370947, 9557, 2300, 57, 145, "Print",ExpressionUUID->"d2676965-161a-4ab1-b287-b9752b89ca69"],
+Cell[373250, 9616, 958, 22, 27, "Print",ExpressionUUID->"b626899b-53cf-408d-a4a4-f1ae93da2350"],
+Cell[374211, 9640, 363, 7, 24, "Print",ExpressionUUID->"e3c79aa5-93fd-4ff8-98c8-8413e0b4fef8"],
+Cell[374577, 9649, 1319, 32, 49, "Print",ExpressionUUID->"fa5859fa-c928-4c87-a002-83a0f3479a3d"],
+Cell[375899, 9683, 612, 15, 44, "Print",ExpressionUUID->"c9aedd3b-4005-482b-a813-e8d3a4dcb271"],
+Cell[376514, 9700, 2308, 58, 145, "Print",ExpressionUUID->"952c9934-f158-4f6e-b5c2-4717a3fc8d42"],
+Cell[378825, 9760, 956, 22, 27, "Print",ExpressionUUID->"a5cd9247-4619-45a8-b53e-abccd71af58f"],
+Cell[379784, 9784, 360, 7, 24, "Print",ExpressionUUID->"51e51cfd-d8c7-4af4-8813-4c150b99d784"],
+Cell[380147, 9793, 1317, 32, 49, "Print",ExpressionUUID->"834bdbb6-67e3-4ccb-9c99-cbb7bef4db3b"],
+Cell[381467, 9827, 612, 15, 44, "Print",ExpressionUUID->"fc8e892c-8d3a-4df4-ae0f-738bf8db9925"],
+Cell[382082, 9844, 2319, 58, 145, "Print",ExpressionUUID->"6d927d5c-0a20-44f0-9c49-4dc9b30600ce"],
+Cell[384404, 9904, 929, 21, 27, "Print",ExpressionUUID->"48b15110-9274-492a-b1ed-5c26db27c93e"],
+Cell[385336, 9927, 363, 7, 24, "Print",ExpressionUUID->"3d532098-9c56-4558-b90e-75977af46bd9"],
+Cell[385702, 9936, 1315, 32, 49, "Print",ExpressionUUID->"8256026b-5f35-4fa4-b780-8e19dcf0ef19"],
+Cell[387020, 9970, 612, 15, 44, "Print",ExpressionUUID->"d1b1cbd9-1b20-4df7-b48d-5bcf0abe602d"],
+Cell[387635, 9987, 2311, 58, 145, "Print",ExpressionUUID->"54ac73ee-8eb0-4384-8bf2-9788c736ce59"],
+Cell[389949, 10047, 939, 21, 27, "Print",ExpressionUUID->"73940ca1-9c24-4f92-958e-8e78117cca62"],
+Cell[390891, 10070, 361, 7, 24, "Print",ExpressionUUID->"19f387bf-d40c-40a5-ace4-6a281c734553"],
+Cell[391255, 10079, 1316, 32, 49, "Print",ExpressionUUID->"53b92845-5efb-4734-9802-80e8e5b30bb4"],
+Cell[392574, 10113, 610, 15, 44, "Print",ExpressionUUID->"b4fddcf3-f928-42b9-9de4-646ea79a0acd"],
+Cell[393187, 10130, 2316, 58, 145, "Print",ExpressionUUID->"c3de7d0a-5c3f-4281-a2ff-d0a8ce3f7d88"],
+Cell[395506, 10190, 958, 22, 27, "Print",ExpressionUUID->"92ecadfb-3ed1-4575-a08d-089f3db30b68"],
+Cell[396467, 10214, 361, 7, 24, "Print",ExpressionUUID->"237c5a2e-2362-4260-a2c2-ccfd7400d3d3"],
+Cell[396831, 10223, 1316, 32, 49, "Print",ExpressionUUID->"46839579-92e8-4eef-97f5-3149a0150d68"],
+Cell[398150, 10257, 606, 14, 44, "Print",ExpressionUUID->"0759c978-15e9-41e7-83a5-4ff3d383f983"],
+Cell[398759, 10273, 2305, 58, 145, "Print",ExpressionUUID->"0f61eabc-2f56-43fb-a1cb-09f892393fd0"],
+Cell[401067, 10333, 954, 22, 27, "Print",ExpressionUUID->"0ab3bc74-7f72-48fe-bb8a-21a382f9cfd8"],
+Cell[402024, 10357, 363, 7, 24, "Print",ExpressionUUID->"8c66019e-a426-46de-a320-30d6ab0268be"],
+Cell[402390, 10366, 1316, 32, 49, "Print",ExpressionUUID->"54007b3c-da38-4b55-995a-b6628055361b"],
+Cell[403709, 10400, 612, 15, 44, "Print",ExpressionUUID->"9139ebd3-7f2f-4a36-9ed6-6153b6641d05"],
+Cell[404324, 10417, 2311, 58, 145, "Print",ExpressionUUID->"81c2eab9-9fea-4bc2-8f74-32f28c8ef387"],
+Cell[406638, 10477, 930, 21, 27, "Print",ExpressionUUID->"9ed62661-a10f-4c2c-98b1-214623281309"],
+Cell[407571, 10500, 360, 7, 24, "Print",ExpressionUUID->"e567893c-04a8-457e-a0a7-7b53c5c8e892"],
+Cell[407934, 10509, 1317, 32, 49, "Print",ExpressionUUID->"805b7e34-cc4d-4249-8039-e6a65efbc963"],
+Cell[409254, 10543, 614, 15, 44, "Print",ExpressionUUID->"988cfefd-b073-4fcf-acf0-8a79a9c7fed7"],
+Cell[409871, 10560, 2309, 58, 145, "Print",ExpressionUUID->"73c6deb0-81bf-4233-9672-9415453c51ac"],
+Cell[412183, 10620, 937, 21, 27, "Print",ExpressionUUID->"acfc28b0-aded-47c0-9781-93d3fd2e5869"],
+Cell[413123, 10643, 363, 7, 24, "Print",ExpressionUUID->"6d0b7dea-01ed-4811-86c7-d672fb9f947b"],
+Cell[413489, 10652, 1320, 32, 49, "Print",ExpressionUUID->"3b70f8e5-acdc-415d-bf29-f37ff2d6526b"],
+Cell[414812, 10686, 612, 15, 44, "Print",ExpressionUUID->"c1eb45b2-77c9-4f18-b698-8ef94ff35ca9"],
+Cell[415427, 10703, 2305, 58, 145, "Print",ExpressionUUID->"06cbb60c-19e0-4b37-9c36-513a523e6a55"],
+Cell[417735, 10763, 935, 21, 27, "Print",ExpressionUUID->"e9bf4be3-8b4c-4b85-8acf-9d8bc76a7534"],
+Cell[418673, 10786, 361, 7, 24, "Print",ExpressionUUID->"dc0c164c-3fbd-41b4-9838-521f79cd4eeb"],
+Cell[419037, 10795, 1319, 32, 49, "Print",ExpressionUUID->"87dca45f-b5d8-4232-9651-8f0d3c49df93"],
+Cell[420359, 10829, 612, 15, 44, "Print",ExpressionUUID->"0e16592f-5756-4adf-8ecf-b38ae5a74b70"],
+Cell[420974, 10846, 2308, 58, 145, "Print",ExpressionUUID->"b1a12ae3-025b-4c8c-af94-4b4a9b20c04d"],
+Cell[423285, 10906, 958, 22, 27, "Print",ExpressionUUID->"baf4fe41-c8c2-4c85-9b3b-767a1a888186"],
+Cell[424246, 10930, 361, 7, 24, "Print",ExpressionUUID->"bd8ec186-ae96-4b93-b74f-ef54608c3659"],
+Cell[424610, 10939, 1319, 32, 49, "Print",ExpressionUUID->"558f4aeb-7d17-4968-bc87-8f133ea46997"],
+Cell[425932, 10973, 614, 15, 44, "Print",ExpressionUUID->"df841c41-901b-42d8-aafc-a65990cdf190"],
+Cell[426549, 10990, 2310, 58, 145, "Print",ExpressionUUID->"e44671b4-d90f-49fd-b6f0-2c462b834370"],
+Cell[428862, 11050, 954, 22, 27, "Print",ExpressionUUID->"210912e4-d8e6-4cf2-9b6f-767a6698c3dc"],
+Cell[429819, 11074, 361, 7, 24, "Print",ExpressionUUID->"c67cf293-1547-4936-8bc6-6cbd02111dcd"],
+Cell[430183, 11083, 1319, 32, 49, "Print",ExpressionUUID->"415ccf06-c7a1-489b-986a-7375a5b1ffa7"],
+Cell[431505, 11117, 606, 14, 44, "Print",ExpressionUUID->"e85e736e-71d7-46aa-8135-135b5b9c538e"],
+Cell[432114, 11133, 2306, 58, 145, "Print",ExpressionUUID->"9c0368bc-01de-4ad1-8cef-ef2541fe4675"],
+Cell[434423, 11193, 956, 22, 27, "Print",ExpressionUUID->"5060f31a-372b-494d-9429-13f6b848d2d4"],
+Cell[435382, 11217, 363, 7, 24, "Print",ExpressionUUID->"8d667221-a4da-460f-a26a-25c36961535a"],
+Cell[435748, 11226, 1318, 32, 49, "Print",ExpressionUUID->"bbff6f69-49bc-4c0b-a04f-d7a71514b188"],
+Cell[437069, 11260, 606, 14, 44, "Print",ExpressionUUID->"65dc8ebb-9c7b-4741-8d75-f3e035e2e130"],
+Cell[437678, 11276, 2311, 58, 145, "Print",ExpressionUUID->"c891ac46-a391-4751-a28d-798e8560c6bc"],
+Cell[439992, 11336, 939, 21, 27, "Print",ExpressionUUID->"0b91a459-88d8-4fda-a71c-f6ddcf0c565a"],
+Cell[440934, 11359, 361, 7, 24, "Print",ExpressionUUID->"99784b7b-7ba6-48df-b801-cb4664bb57f3"],
+Cell[441298, 11368, 1317, 32, 49, "Print",ExpressionUUID->"2932ff90-8638-4e72-9c64-c71a73d9a95e"],
+Cell[442618, 11402, 586, 14, 44, "Print",ExpressionUUID->"554d1c37-ffc9-400a-8c6f-88514c78675b"],
+Cell[443207, 11418, 2306, 58, 145, "Print",ExpressionUUID->"7c85e190-6f5f-40c4-9121-6577a368c33d"],
+Cell[445516, 11478, 937, 21, 27, "Print",ExpressionUUID->"d32671d8-4fd2-4951-ac08-36ca1c347419"],
+Cell[446456, 11501, 361, 7, 24, "Print",ExpressionUUID->"a4993675-ee4e-4c80-a942-b9d091269c0b"],
+Cell[446820, 11510, 1318, 32, 49, "Print",ExpressionUUID->"f8514ed3-b7e9-4324-a2dd-73c4982689b2"],
+Cell[448141, 11544, 612, 15, 44, "Print",ExpressionUUID->"ef8f28fe-f874-4401-93d0-67720f0a9f4e"],
+Cell[448756, 11561, 2313, 58, 145, "Print",ExpressionUUID->"23fcf42b-fe21-4c90-b736-fce3d823679e"],
+Cell[451072, 11621, 937, 21, 27, "Print",ExpressionUUID->"4f7686d0-920a-4a93-8cb7-c75b5401e730"],
+Cell[452012, 11644, 361, 7, 24, "Print",ExpressionUUID->"55710dae-4d95-45d7-8d1d-646e4a40a40a"],
+Cell[452376, 11653, 1322, 32, 49, "Print",ExpressionUUID->"06652d6d-85c3-44c4-8a13-a61b34507c4d"],
+Cell[453701, 11687, 606, 14, 44, "Print",ExpressionUUID->"5fc7e109-6612-4f8b-83ff-c13c2cb5e015"],
+Cell[454310, 11703, 2306, 58, 145, "Print",ExpressionUUID->"c429feed-cf5c-4b7a-8d7f-7768fb7334c8"],
+Cell[456619, 11763, 960, 22, 27, "Print",ExpressionUUID->"4ce7b49a-da0d-4cab-ba77-1537f65e527c"],
+Cell[457582, 11787, 363, 7, 24, "Print",ExpressionUUID->"f00b8883-c00b-42e8-b2f8-7ce0332d04d0"],
+Cell[457948, 11796, 1321, 32, 49, "Print",ExpressionUUID->"4e5e349c-c5ad-4815-995f-48b42196ae5c"],
+Cell[459272, 11830, 612, 15, 44, "Print",ExpressionUUID->"499ec497-99ac-4549-9227-c019b9e9a17a"],
+Cell[459887, 11847, 2313, 58, 145, "Print",ExpressionUUID->"13bcec86-fb34-4e5b-998b-0a6daf20bd4f"],
+Cell[462203, 11907, 954, 22, 27, "Print",ExpressionUUID->"769ad505-383a-4fc3-b333-108433ad49c3"],
+Cell[463160, 11931, 361, 7, 24, "Print",ExpressionUUID->"fb76988a-f297-407c-86c8-86dcc735be3b"],
+Cell[463524, 11940, 1318, 32, 49, "Print",ExpressionUUID->"08363ff7-faaa-4b80-becb-4110adb815e9"],
+Cell[464845, 11974, 614, 15, 44, "Print",ExpressionUUID->"b50be71e-4cfb-48db-9f3d-dc4fb14deefa"],
+Cell[465462, 11991, 2309, 58, 145, "Print",ExpressionUUID->"bef06474-16e4-4b7e-9f08-cc04374b1b1b"],
+Cell[467774, 12051, 962, 22, 27, "Print",ExpressionUUID->"b9c1df15-cf07-457c-ba1b-b6276e72bd1a"],
+Cell[468739, 12075, 361, 7, 24, "Print",ExpressionUUID->"7049fa57-e4f5-4c38-9eb8-71163b9b8e2d"],
+Cell[469103, 12084, 1321, 32, 49, "Print",ExpressionUUID->"cb7a4e6e-f440-439a-b646-b03e940468ea"],
+Cell[470427, 12118, 612, 15, 44, "Print",ExpressionUUID->"b5135631-ade6-411f-a3ac-3f46854a904f"],
+Cell[471042, 12135, 2305, 58, 145, "Print",ExpressionUUID->"f14427d4-dcc5-4d08-996e-05839acaaa47"],
+Cell[473350, 12195, 953, 22, 27, "Print",ExpressionUUID->"8c5c70df-07b9-4dbd-a50d-504212ac0047"],
+Cell[474306, 12219, 363, 7, 24, "Print",ExpressionUUID->"b037bb3b-4b09-472a-a468-df44581a9b54"],
+Cell[474672, 12228, 1321, 32, 49, "Print",ExpressionUUID->"f43cdc90-7627-4e11-9155-b7e91828bfb8"],
+Cell[475996, 12262, 612, 15, 44, "Print",ExpressionUUID->"84c71e59-7f8f-462f-b597-b6f23002a5b0"],
+Cell[476611, 12279, 2303, 58, 145, "Print",ExpressionUUID->"96f9c4e5-de98-4934-9471-f59038fc8aae"],
+Cell[478917, 12339, 956, 22, 27, "Print",ExpressionUUID->"7ef35b23-12b2-49fe-af4f-f07c69d59a08"],
+Cell[479876, 12363, 361, 7, 24, "Print",ExpressionUUID->"36e80bab-b403-4ccc-8b5a-baf313819d6d"],
+Cell[480240, 12372, 1319, 32, 49, "Print",ExpressionUUID->"af1008f9-5969-4b68-97dd-7a843a5b86d6"],
+Cell[481562, 12406, 611, 15, 44, "Print",ExpressionUUID->"4590c298-1f67-4f6b-8c31-d32943616813"],
+Cell[482176, 12423, 2317, 58, 145, "Print",ExpressionUUID->"7d43be44-178d-422b-83b9-583e35e715e9"],
+Cell[484496, 12483, 931, 21, 27, "Print",ExpressionUUID->"098cae01-c72f-421e-8738-0344e5fa8db6"],
+Cell[485430, 12506, 363, 7, 24, "Print",ExpressionUUID->"19521bbb-3c46-416c-9740-7564cf5c8872"],
+Cell[485796, 12515, 1319, 32, 49, "Print",ExpressionUUID->"e2d20e3d-da75-4e01-a7b4-2c0a8b7f16c5"],
+Cell[487118, 12549, 612, 15, 44, "Print",ExpressionUUID->"17529da9-abce-4ea3-839c-f77992b5a764"],
+Cell[487733, 12566, 2297, 58, 145, "Print",ExpressionUUID->"0ac1f98a-73f9-48aa-8851-3645948b3936"],
+Cell[490033, 12626, 937, 21, 27, "Print",ExpressionUUID->"bc0fa157-25db-49be-8753-577481e4558d"],
+Cell[490973, 12649, 363, 7, 24, "Print",ExpressionUUID->"c84df97b-7330-4758-9517-303729c79144"],
+Cell[491339, 12658, 1318, 32, 49, "Print",ExpressionUUID->"c292acc8-f18e-41cf-b447-2464c04d0bbe"],
+Cell[492660, 12692, 612, 15, 44, "Print",ExpressionUUID->"d30e20ea-e5f2-4a78-b02d-f311cb794089"],
+Cell[493275, 12709, 2314, 58, 145, "Print",ExpressionUUID->"8c00bd54-8375-405f-9803-d7c1d6a493ff"],
+Cell[495592, 12769, 941, 21, 27, "Print",ExpressionUUID->"213f847c-5ed2-4ca0-a261-eaa731e11a26"],
+Cell[496536, 12792, 361, 7, 24, "Print",ExpressionUUID->"db032aa9-62af-4f81-baf8-117ac8ec73d6"],
+Cell[496900, 12801, 1320, 32, 49, "Print",ExpressionUUID->"01bc1cc0-12dc-4475-9496-d3cdd6ec3763"],
+Cell[498223, 12835, 611, 15, 44, "Print",ExpressionUUID->"6481fd7d-860b-4ee6-9173-07c6dfe068a4"],
+Cell[498837, 12852, 2305, 58, 145, "Print",ExpressionUUID->"087a4b73-4599-4bea-955a-5d401eb731f9"],
+Cell[501145, 12912, 960, 22, 27, "Print",ExpressionUUID->"4bed8a72-1d1c-4be5-a5b9-a2e983499f25"],
+Cell[502108, 12936, 361, 7, 24, "Print",ExpressionUUID->"09591a8f-a834-48a8-a047-b293f340703e"],
+Cell[502472, 12945, 1320, 32, 49, "Print",ExpressionUUID->"a4b19dee-595b-4032-a92a-6a06e394932c"],
+Cell[503795, 12979, 608, 14, 44, "Print",ExpressionUUID->"fa8549ff-74f9-4549-b557-d9c27839e102"],
+Cell[504406, 12995, 2314, 58, 145, "Print",ExpressionUUID->"86280c2b-6c7d-4893-8707-f5b5cd9ec60e"],
+Cell[506723, 13055, 964, 22, 27, "Print",ExpressionUUID->"501647e7-300b-40e4-aaf3-86714d7f7398"],
+Cell[507690, 13079, 363, 7, 24, "Print",ExpressionUUID->"b35a7e0e-8608-441f-a846-47a8265e5a29"],
+Cell[508056, 13088, 1318, 32, 49, "Print",ExpressionUUID->"30bb6182-0337-4b1b-af06-195cd16802d5"],
+Cell[509377, 13122, 605, 14, 44, "Print",ExpressionUUID->"e67625a1-5700-4d7c-939e-4e3f7348c786"],
+Cell[509985, 13138, 2308, 58, 145, "Print",ExpressionUUID->"833c1c36-6734-45e7-908f-baac379b19ba"],
+Cell[512296, 13198, 958, 22, 27, "Print",ExpressionUUID->"c0d082a7-d067-4e89-ad20-89c8af99c86e"],
+Cell[513257, 13222, 360, 7, 24, "Print",ExpressionUUID->"2b4553b9-77a0-4e39-a6dd-9346486d4dc6"],
+Cell[513620, 13231, 1322, 32, 49, "Print",ExpressionUUID->"ffb05fe8-f45e-4d32-8427-66c76aacad60"],
+Cell[514945, 13265, 605, 14, 44, "Print",ExpressionUUID->"d79a7e99-9f75-43a4-b53d-2419c2be7a55"],
+Cell[515553, 13281, 2316, 58, 145, "Print",ExpressionUUID->"06ab44bf-2e1f-4dde-b2d5-51b1e5bbb28b"],
+Cell[517872, 13341, 952, 22, 27, "Print",ExpressionUUID->"f9a83223-4074-4510-9248-85908ba8be60"],
+Cell[518827, 13365, 361, 7, 24, "Print",ExpressionUUID->"ea70163e-50d7-48c9-bf35-e3537aedd28c"],
+Cell[519191, 13374, 1323, 32, 49, "Print",ExpressionUUID->"5a617c0c-5d0c-42fe-9f0d-550fb16c1173"],
+Cell[520517, 13408, 606, 14, 44, "Print",ExpressionUUID->"36dbd6ea-bde4-4c79-9ea3-2c7ffbf91972"],
+Cell[521126, 13424, 2299, 58, 145, "Print",ExpressionUUID->"6129313a-dfef-4ee5-80da-27bf62381c8c"],
+Cell[523428, 13484, 960, 22, 27, "Print",ExpressionUUID->"9b35b553-e8e7-4f2c-a93d-b8402fe8083f"],
+Cell[524391, 13508, 361, 7, 24, "Print",ExpressionUUID->"6072b2f8-bdfb-4dd6-859c-e0d7db3fa4b3"],
+Cell[524755, 13517, 1321, 32, 49, "Print",ExpressionUUID->"18efbb75-6c14-458f-a3cc-08b853d28ce0"],
+Cell[526079, 13551, 608, 14, 44, "Print",ExpressionUUID->"73cbc29a-d585-41ad-8f0c-e0dc3af9c55b"],
+Cell[526690, 13567, 2308, 58, 145, "Print",ExpressionUUID->"d35ed894-74ae-4eb9-a32d-d3b39c0185dc"],
+Cell[529001, 13627, 931, 21, 27, "Print",ExpressionUUID->"43bfe4d4-1350-4b9e-bae3-f126d9bd167e"],
+Cell[529935, 13650, 361, 7, 24, "Print",ExpressionUUID->"d8ff5a11-72d5-4138-8fed-cbeac9bd3e11"],
+Cell[530299, 13659, 1321, 32, 49, "Print",ExpressionUUID->"2b6deabf-6095-4066-ba7d-894ea7bca7c9"],
+Cell[531623, 13693, 606, 14, 44, "Print",ExpressionUUID->"e3d426a7-fd1c-4926-a33d-68fe89aa3846"],
+Cell[532232, 13709, 2303, 58, 145, "Print",ExpressionUUID->"d099ff28-8d0e-45f7-b653-32c9507feccd"],
+Cell[534538, 13769, 937, 21, 27, "Print",ExpressionUUID->"877e5ec7-d8df-467d-b8c1-c46e2201cff2"],
+Cell[535478, 13792, 363, 7, 24, "Print",ExpressionUUID->"665e9463-8f48-46a8-a957-f6db51a71b45"],
+Cell[535844, 13801, 1320, 32, 49, "Print",ExpressionUUID->"385e2b3c-ca56-4a2e-9417-adb0ed178081"],
+Cell[537167, 13835, 612, 15, 44, "Print",ExpressionUUID->"f67e588b-d207-49e2-8166-cfbbeccf7760"],
+Cell[537782, 13852, 2309, 58, 145, "Print",ExpressionUUID->"8d865174-e7b1-4241-ae79-0f04f9e0a98e"],
+Cell[540094, 13912, 933, 21, 27, "Print",ExpressionUUID->"4c5b56e9-6dc6-4252-94dd-502d956a440f"],
+Cell[541030, 13935, 361, 7, 24, "Print",ExpressionUUID->"8b1c59fd-a548-4eeb-a390-d6243aa3ddbf"],
+Cell[541394, 13944, 1320, 32, 49, "Print",ExpressionUUID->"df1687f5-c17a-461d-8456-517c7a8641a5"],
+Cell[542717, 13978, 612, 15, 44, "Print",ExpressionUUID->"7f926c05-3c5a-4a0d-87be-c6476118c67d"],
+Cell[543332, 13995, 2305, 58, 145, "Print",ExpressionUUID->"15c97d4e-d7be-4bd4-a07f-f1c44e9d32a5"],
+Cell[545640, 14055, 956, 22, 27, "Print",ExpressionUUID->"37746e51-ec1d-4c98-94a0-a23fef6767dc"],
+Cell[546599, 14079, 363, 7, 24, "Print",ExpressionUUID->"6564d940-f3ec-41e4-8403-3a32fb4c20ff"],
+Cell[546965, 14088, 1321, 32, 49, "Print",ExpressionUUID->"8f7b8df2-fc5d-4621-8c36-04adf20a6ab4"],
+Cell[548289, 14122, 608, 14, 44, "Print",ExpressionUUID->"da1a531e-2ca7-4f52-8a6d-c6e249e0a9bf"],
+Cell[548900, 14138, 2311, 58, 145, "Print",ExpressionUUID->"7f8da28f-bef4-484e-b86b-eacbf3022523"],
+Cell[551214, 14198, 962, 22, 27, "Print",ExpressionUUID->"b46a6a8d-ca6b-4509-87bc-edbe4a8eb8df"],
+Cell[552179, 14222, 360, 7, 24, "Print",ExpressionUUID->"e4a7df73-5878-476d-9d0b-bb84c8422995"],
+Cell[552542, 14231, 1320, 32, 49, "Print",ExpressionUUID->"803d56c0-a7a0-4a1f-9354-c3585fadf537"],
+Cell[553865, 14265, 606, 14, 44, "Print",ExpressionUUID->"aaa7e09f-6ca2-4f2f-b7ce-1238154baac6"],
+Cell[554474, 14281, 2303, 58, 145, "Print",ExpressionUUID->"d39e4675-7fa6-472d-a1d9-5091f07195a3"],
+Cell[556780, 14341, 960, 22, 27, "Print",ExpressionUUID->"ba749a12-8b35-4f4f-9f69-994c48ddba71"],
+Cell[557743, 14365, 361, 7, 24, "Print",ExpressionUUID->"5dee648c-ee79-4fb7-abcb-0055cb372168"],
+Cell[558107, 14374, 1319, 32, 49, "Print",ExpressionUUID->"1505a8ab-f1aa-45fa-8f5e-226c65bfc6d8"],
+Cell[559429, 14408, 614, 15, 44, "Print",ExpressionUUID->"3732002e-ef82-49ca-89c3-d1fa8f7bea2a"],
+Cell[560046, 14425, 2308, 58, 145, "Print",ExpressionUUID->"bc76a51b-a539-4285-95ae-af2fd273b032"],
+Cell[562357, 14485, 957, 22, 27, "Print",ExpressionUUID->"f2b49472-5b08-4211-b912-19c709cb90ef"],
+Cell[563317, 14509, 361, 7, 24, "Print",ExpressionUUID->"857df769-177d-4053-9614-925e5b801a7f"],
+Cell[563681, 14518, 1321, 32, 49, "Print",ExpressionUUID->"3ffd9988-f6f5-45d7-a647-a1b2b57c569c"],
+Cell[565005, 14552, 612, 15, 44, "Print",ExpressionUUID->"1873147b-4432-4d00-9eab-d9550a9c9f27"],
+Cell[565620, 14569, 2305, 58, 145, "Print",ExpressionUUID->"e6505df1-5c54-4d08-a8c8-d8f96d8a223a"],
+Cell[567928, 14629, 956, 22, 27, "Print",ExpressionUUID->"3b14210d-f9b5-47cb-8580-2963d4d46aea"],
+Cell[568887, 14653, 361, 7, 24, "Print",ExpressionUUID->"398381fb-276d-45df-9dae-a29bf2d6e03e"],
+Cell[569251, 14662, 1320, 32, 49, "Print",ExpressionUUID->"cc2cf897-e3a5-4100-a4a2-e8bbd77365a7"],
+Cell[570574, 14696, 605, 14, 44, "Print",ExpressionUUID->"76d5917e-ff8f-445a-adf6-0514793d1c57"],
+Cell[571182, 14712, 2310, 58, 145, "Print",ExpressionUUID->"7cfba746-40e3-43df-8051-3a9896fe072d"],
+Cell[573495, 14772, 956, 22, 27, "Print",ExpressionUUID->"b14bc9cb-5256-4fee-b94a-b9e9c0668ae0"],
+Cell[574454, 14796, 363, 7, 24, "Print",ExpressionUUID->"e9b99e85-0c0c-42ba-b856-5e7ec0f128f8"],
+Cell[574820, 14805, 1321, 32, 49, "Print",ExpressionUUID->"dd2b0ac2-04ce-4f3e-9a86-547e1bc98902"],
+Cell[576144, 14839, 606, 14, 44, "Print",ExpressionUUID->"03e79aa6-c72c-44e5-9580-d6c1c06fd129"],
+Cell[576753, 14855, 2302, 58, 145, "Print",ExpressionUUID->"456a7b71-d5d4-4b10-a418-604599396dc7"],
+Cell[579058, 14915, 933, 21, 27, "Print",ExpressionUUID->"5fc3578e-ae18-408b-af3a-ee3b379ef6d0"],
+Cell[579994, 14938, 361, 7, 24, "Print",ExpressionUUID->"ff891182-7314-441f-b8e7-ec15f729fb46"],
+Cell[580358, 14947, 1321, 32, 49, "Print",ExpressionUUID->"25410135-f666-4bd5-be50-72c0f207cd04"],
+Cell[581682, 14981, 580, 14, 44, "Print",ExpressionUUID->"6ab5807f-88ad-4eff-ab7b-3cca8afb8846"],
+Cell[582265, 14997, 2316, 58, 145, "Print",ExpressionUUID->"2e5e7827-41b6-4742-86f4-9468bcaabd8b"],
+Cell[584584, 15057, 937, 21, 27, "Print",ExpressionUUID->"536b8c3f-7788-4172-b4f5-4b2ba775b797"],
+Cell[585524, 15080, 361, 7, 24, "Print",ExpressionUUID->"c917c0bd-4e3f-4270-bea9-269fd9c867b8"],
+Cell[585888, 15089, 1321, 32, 49, "Print",ExpressionUUID->"95041527-7636-4328-b9a0-aded367fa5db"],
+Cell[587212, 15123, 606, 14, 44, "Print",ExpressionUUID->"efbc5c10-bf8e-45d9-b137-229c9710a3bb"],
+Cell[587821, 15139, 2302, 58, 145, "Print",ExpressionUUID->"64056121-35d6-48e5-9b5b-2d99ff94b061"],
+Cell[590126, 15199, 962, 22, 27, "Print",ExpressionUUID->"329bd961-0d27-41d1-bae1-317d44ffff5b"],
+Cell[591091, 15223, 361, 7, 24, "Print",ExpressionUUID->"394f9f18-78f5-4c83-b2bb-4e4ff116cd40"],
+Cell[591455, 15232, 1320, 32, 49, "Print",ExpressionUUID->"42257305-e10b-4ac1-b779-877038e68718"],
+Cell[592778, 15266, 606, 14, 44, "Print",ExpressionUUID->"c0b0f03a-2cba-4a61-bdef-bdbde2708d9b"],
+Cell[593387, 15282, 2308, 58, 145, "Print",ExpressionUUID->"217e9c7d-81fd-4312-875b-f5a90285deaa"],
+Cell[595698, 15342, 937, 21, 27, "Print",ExpressionUUID->"309938f1-c4e7-47aa-95dc-eb46a7ac5c45"],
+Cell[596638, 15365, 360, 7, 24, "Print",ExpressionUUID->"e61a0cb1-512c-4f97-92f0-0772409519bb"],
+Cell[597001, 15374, 1320, 32, 49, "Print",ExpressionUUID->"3fb43410-a576-4bb8-82ed-a7f3087dda5e"],
+Cell[598324, 15408, 598, 14, 44, "Print",ExpressionUUID->"1e74635c-26a8-4ba8-b598-4bdb0e4714e5"],
+Cell[598925, 15424, 2294, 58, 145, "Print",ExpressionUUID->"9ab4e6fa-c8b4-445d-9bef-d99fded71ade"],
+Cell[601222, 15484, 954, 22, 27, "Print",ExpressionUUID->"dcf7baa4-4709-4c6b-9f38-b1482a425a8d"],
+Cell[602179, 15508, 361, 7, 24, "Print",ExpressionUUID->"62d98249-f82d-4901-8b13-8b2ee705733f"],
+Cell[602543, 15517, 1321, 32, 49, "Print",ExpressionUUID->"c3ee9d9f-bb96-445b-845a-965bf54a7d3c"],
+Cell[603867, 15551, 608, 14, 44, "Print",ExpressionUUID->"1b30a59a-4cac-4015-af8f-b2e1ea63f16f"],
+Cell[604478, 15567, 2307, 58, 145, "Print",ExpressionUUID->"2920dcf1-3f72-433f-86af-8c5569867f45"],
+Cell[606788, 15627, 956, 22, 27, "Print",ExpressionUUID->"29ffb5c2-2df6-4544-bbb3-1aa217782f43"],
+Cell[607747, 15651, 361, 7, 24, "Print",ExpressionUUID->"fdd93cdb-8e3c-44e5-ba16-5c7322f032b6"],
+Cell[608111, 15660, 1321, 32, 49, "Print",ExpressionUUID->"46b365df-c2fa-4314-b291-a3ebd8a0370d"],
+Cell[609435, 15694, 606, 14, 44, "Print",ExpressionUUID->"dfb1bdfc-c241-4a86-b188-9c6274780d3f"],
+Cell[610044, 15710, 2302, 58, 145, "Print",ExpressionUUID->"75cde4dc-74f7-450a-babb-4476ee8ca6d3"],
+Cell[612349, 15770, 930, 21, 27, "Print",ExpressionUUID->"ee3372de-cf48-4fd0-bc42-eeae1cb01d06"],
+Cell[613282, 15793, 360, 7, 24, "Print",ExpressionUUID->"0307a6cc-976b-462f-83de-5805770307f7"],
+Cell[613645, 15802, 1320, 32, 49, "Print",ExpressionUUID->"eb295915-8874-421c-bd32-927582c6ed24"],
+Cell[614968, 15836, 612, 15, 44, "Print",ExpressionUUID->"b3ea9b35-2824-42dc-9b40-590b6c6a9cc0"],
+Cell[615583, 15853, 2311, 58, 145, "Print",ExpressionUUID->"2d5d1ea5-228f-419d-a147-0e2b6b8cebe1"],
+Cell[617897, 15913, 933, 21, 27, "Print",ExpressionUUID->"8e428ade-540d-402a-bd29-7ceb159bce2c"],
+Cell[618833, 15936, 361, 7, 24, "Print",ExpressionUUID->"5dd255b5-2cb6-4975-8133-4cc6ab7cbe07"],
+Cell[619197, 15945, 1320, 32, 49, "Print",ExpressionUUID->"b94475f2-d210-4461-a845-9f11ad9d707e"],
+Cell[620520, 15979, 606, 14, 44, "Print",ExpressionUUID->"a6982a87-6961-44d0-bd99-c3b7656e8bee"],
+Cell[621129, 15995, 2306, 58, 145, "Print",ExpressionUUID->"f967958f-039c-4415-be83-cf6b26c9f7a2"],
+Cell[623438, 16055, 956, 22, 27, "Print",ExpressionUUID->"49bbf97a-bf0e-4813-93e8-21f7043455a3"],
+Cell[624397, 16079, 361, 7, 24, "Print",ExpressionUUID->"eed3ef52-03f3-49aa-88a6-44ad252f6d7e"],
+Cell[624761, 16088, 1320, 32, 49, "Print",ExpressionUUID->"20c67985-764f-453a-b2f2-38ed52765a8d"],
+Cell[626084, 16122, 614, 15, 44, "Print",ExpressionUUID->"a52b4fa1-d510-48fe-a2a1-33f8a50988ee"],
+Cell[626701, 16139, 2311, 58, 145, "Print",ExpressionUUID->"57dece57-03a4-4851-8a70-92858d8aa75b"],
+Cell[629015, 16199, 950, 22, 27, "Print",ExpressionUUID->"ed93a169-857c-48b4-9cfa-9742d87bbaf2"],
+Cell[629968, 16223, 361, 7, 24, "Print",ExpressionUUID->"5ed684f7-d9cc-40a5-b2ae-03ee8e74a0ee"],
+Cell[630332, 16232, 1323, 32, 49, "Print",ExpressionUUID->"dfc83496-848b-44b0-a4c7-968480edbced"],
+Cell[631658, 16266, 604, 14, 44, "Print",ExpressionUUID->"b81eac2c-341a-4492-86ae-30f5875a4c84"],
+Cell[632265, 16282, 2297, 58, 145, "Print",ExpressionUUID->"c3614614-3180-479a-b517-4bb590e70466"],
+Cell[634565, 16342, 952, 22, 27, "Print",ExpressionUUID->"e8d5ab50-b738-4970-a165-e28ecf389162"],
+Cell[635520, 16366, 361, 7, 24, "Print",ExpressionUUID->"d27d4585-5cb3-4d84-9d2f-7c61b72b3bcd"],
+Cell[635884, 16375, 1320, 32, 49, "Print",ExpressionUUID->"ac3daa68-9e1a-490f-b020-6274706c4492"],
+Cell[637207, 16409, 608, 14, 44, "Print",ExpressionUUID->"b3915ffa-55cf-42cc-ae4e-2557c43bc24e"],
+Cell[637818, 16425, 2304, 58, 145, "Print",ExpressionUUID->"b109ae0c-2110-45d8-a12b-82394cd76898"],
+Cell[640125, 16485, 941, 21, 27, "Print",ExpressionUUID->"42e11cd7-6536-4483-aee1-c35debfc127f"],
+Cell[641069, 16508, 361, 7, 24, "Print",ExpressionUUID->"ee1be6c0-08ad-4ec4-a67b-b15ca7513308"],
+Cell[641433, 16517, 1323, 32, 49, "Print",ExpressionUUID->"6e75096f-b93e-4459-85d0-cfa1a6615e26"],
+Cell[642759, 16551, 606, 14, 44, "Print",ExpressionUUID->"284d5a7d-a751-4110-af31-2f7937e4742d"],
+Cell[643368, 16567, 2303, 58, 145, "Print",ExpressionUUID->"bd4e775b-b531-4cb5-86e2-afee09d5351e"],
+Cell[645674, 16627, 960, 22, 27, "Print",ExpressionUUID->"6adca296-06ed-409b-96b0-b969fe765738"],
+Cell[646637, 16651, 361, 7, 24, "Print",ExpressionUUID->"be6bd44c-3c31-46ca-ac5c-84baa1093edb"],
+Cell[647001, 16660, 1321, 32, 49, "Print",ExpressionUUID->"724a5131-ee93-49eb-912a-7e6e6c0d97c2"],
+Cell[648325, 16694, 612, 15, 44, "Print",ExpressionUUID->"88212c91-be83-4ecf-8f2c-b20423af0623"],
+Cell[648940, 16711, 2307, 58, 145, "Print",ExpressionUUID->"41092176-ba53-4532-bf95-39c08d5df010"],
+Cell[651250, 16771, 958, 22, 27, "Print",ExpressionUUID->"d7ead818-19e9-44d6-a4e7-7f1408a8a2aa"],
+Cell[652211, 16795, 361, 7, 24, "Print",ExpressionUUID->"5441d6e7-a6e5-4493-9ea1-f27b3802aef1"],
+Cell[652575, 16804, 1320, 32, 49, "Print",ExpressionUUID->"648d5099-f80e-4a1f-9903-30d52f444f2c"],
+Cell[653898, 16838, 612, 15, 44, "Print",ExpressionUUID->"7294b891-575e-4fc5-a693-6128cce79f94"],
+Cell[654513, 16855, 2290, 58, 145, "Print",ExpressionUUID->"43165457-386d-4daf-ba8a-a5bcb63b7719"],
+Cell[656806, 16915, 943, 21, 27, "Print",ExpressionUUID->"f1504d34-dab2-4e47-9fa9-d4d6eb8e0dfa"],
+Cell[657752, 16938, 361, 7, 24, "Print",ExpressionUUID->"9d1512c3-b6ef-4acf-a189-396316a6793b"],
+Cell[658116, 16947, 1320, 32, 49, "Print",ExpressionUUID->"5814053d-7fa7-4a1c-88e3-50bdfd15a162"],
+Cell[659439, 16981, 606, 14, 44, "Print",ExpressionUUID->"941f9e17-205a-4027-8590-43e525ab773e"],
+Cell[660048, 16997, 2308, 58, 145, "Print",ExpressionUUID->"e1dd6829-3ab8-4de8-9360-05631d0c6af0"],
+Cell[662359, 17057, 957, 22, 27, "Print",ExpressionUUID->"8e28925a-9c47-45ba-99ea-1d40fc234423"],
+Cell[663319, 17081, 361, 7, 24, "Print",ExpressionUUID->"4537a602-a9f0-4406-a619-3d2eb271cae2"],
+Cell[663683, 17090, 1321, 32, 49, "Print",ExpressionUUID->"aa7481bf-a6f5-4766-a12b-65732f1557b1"],
+Cell[665007, 17124, 606, 14, 44, "Print",ExpressionUUID->"9d3ca9db-d75d-40ed-973b-98514e8d1bad"],
+Cell[665616, 17140, 2291, 57, 145, "Print",ExpressionUUID->"6528e2a8-f791-4026-8062-8f95f07937d6"],
+Cell[667910, 17199, 937, 21, 27, "Print",ExpressionUUID->"c0aa5ebd-2a7a-45e1-8a6d-43f9f92d17cb"],
+Cell[668850, 17222, 363, 7, 24, "Print",ExpressionUUID->"537b97db-8166-47e4-af1d-784318211eeb"],
+Cell[669216, 17231, 1320, 32, 49, "Print",ExpressionUUID->"20f5cf40-5040-4664-8f38-338673d523d3"]
+}, Open ]]
}, Open ]],
+Cell[670563, 17267, 257, 5, 115, "Input",ExpressionUUID->"cdd70ba3-988d-4f3f-a994-fa14e0bfd5a8"],
+Cell[670823, 17274, 473, 13, 52, "Input",ExpressionUUID->"65439f17-15a8-4ca3-afa9-deed97ceee64"],
+Cell[671299, 17289, 523, 14, 52, "Input",ExpressionUUID->"49341df6-9b3d-4c00-b135-1380553e00b2"],
+Cell[671825, 17305, 479, 13, 52, "Input",ExpressionUUID->"2c82f1ac-0cf1-40bd-87e5-22201b825305"],
+Cell[672307, 17320, 971, 20, 52, "Input",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
+Cell[673281, 17342, 527, 14, 52, "Input",ExpressionUUID->"d4d23c76-eedd-48b8-bd17-8b5fe5d0b211"],
+Cell[673811, 17358, 556, 14, 52, "Input",ExpressionUUID->"0141ed4e-e691-4f2f-bb31-7d2309eea73f"],
+Cell[674370, 17374, 539, 15, 52, "Input",ExpressionUUID->"a6df33d2-21de-4140-bfbf-b2fee86951b4"],
+Cell[674912, 17391, 416, 11, 52, "Input",ExpressionUUID->"1c110370-8aeb-47a1-b2f1-0dca127d76d3"],
+Cell[675331, 17404, 487, 14, 52, "Input",ExpressionUUID->"5be59de9-e61f-4004-b8ab-e3748a123590"],
+Cell[675821, 17420, 502, 13, 52, "Input",ExpressionUUID->"9c5175f3-de7d-4f38-9409-1c60d3069663"],
+Cell[676326, 17435, 501, 13, 52, "Input",ExpressionUUID->"858fb22c-fdc3-4950-bbb7-0da44a04d1dd"],
+Cell[676830, 17450, 1101, 31, 157, "Input",ExpressionUUID->"558af4d9-aa2b-44e1-9183-fe4bcdc64b7d"],
Cell[CellGroupData[{
-Cell[95997, 2714, 943, 26, 94, "Input",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
-Cell[96943, 2742, 318, 7, 34, "Output",ExpressionUUID->"1905b858-0577-4f24-9178-a4769e1113d7"]
+Cell[677956, 17485, 12751, 348, 1123, "Input",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
+Cell[690710, 17835, 237, 4, 34, "Output",ExpressionUUID->"ddfeb1c4-55f9-437a-a6fc-33e0b9ef994a"]
}, Open ]],
-Cell[97276, 2752, 811, 26, 30, "Input",ExpressionUUID->"f729b907-0fbc-4b1f-ab80-ee926d31037e"],
-Cell[98090, 2780, 884, 27, 73, "Input",ExpressionUUID->"0fd68ed1-f787-4031-b35d-b4a0c9a67c5a"],
Cell[CellGroupData[{
-Cell[98999, 2811, 991, 27, 94, "Input",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
-Cell[99993, 2840, 343, 6, 34, "Output",ExpressionUUID->"3fb8f3a3-8dd1-47fb-9ef3-1aef606a8abb"]
+Cell[690984, 17844, 12073, 338, 1123, "Input",ExpressionUUID->"28bed3a1-df79-45e5-bc3e-87f1096f5d98"],
+Cell[703060, 18184, 212, 4, 34, "Output",ExpressionUUID->"d0c9c3a4-9464-4ed2-929a-54b1da25d140"]
}, Open ]],
Cell[CellGroupData[{
-Cell[100373, 2851, 994, 27, 94, "Input",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
-Cell[101370, 2880, 341, 6, 34, "Output",ExpressionUUID->"ae016ef3-45db-4bd5-8cc5-a1be6252b110"]
+Cell[703309, 18193, 12266, 341, 1123, "Input",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+Cell[715578, 18536, 216, 4, 34, "Output",ExpressionUUID->"f6e0c82c-d2e9-4f8b-87bc-720c318d6c4f"]
}, Open ]],
-Cell[101726, 2889, 811, 26, 30, "Input",ExpressionUUID->"5a313745-60dc-42eb-b195-fbaa567834c9"],
-Cell[102540, 2917, 461, 11, 30, "Input",ExpressionUUID->"bd078427-186c-41cd-af66-decc5f5b36af"],
Cell[CellGroupData[{
-Cell[103026, 2932, 1090, 28, 94, "Input",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
-Cell[104119, 2962, 373, 7, 34, "Output",ExpressionUUID->"eb116717-90f4-4b5f-90d8-15dc956263f5"]
+Cell[715831, 18545, 12240, 340, 1144, "Input",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
+Cell[728074, 18887, 212, 4, 34, "Output",ExpressionUUID->"02b23778-c086-47f7-932a-3d2fe99dacaf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[104529, 2974, 1088, 28, 94, "Input",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
-Cell[105620, 3004, 400, 8, 34, "Output",ExpressionUUID->"371b7580-2d6f-44cd-98e9-c5d5f003195e"]
+Cell[728323, 18896, 12274, 341, 1144, "Input",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
+Cell[740600, 19239, 214, 4, 34, "Output",ExpressionUUID->"9fa1fcc0-50e6-4081-953e-2d07190d8fa0"]
}, Open ]],
-Cell[106035, 3015, 1909, 56, 241, "Input",ExpressionUUID->"b274a7fa-02b1-4828-9d03-509e4c4311ea"],
-Cell[107947, 3073, 176, 4, 30, "Input",ExpressionUUID->"f8b20319-4c15-42df-ba5e-26e9e403ba03"],
-Cell[108126, 3079, 154, 3, 30, "Input",ExpressionUUID->"1aac05ed-9474-430e-9fd7-7c19a189fdbb"],
-Cell[108283, 3084, 1410, 37, 73, "Input",ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-1256848d2e3b"],
-Cell[109696, 3123, 1754, 42, 136, "Input",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
-Cell[111453, 3167, 386, 8, 30, "Input",ExpressionUUID->"f5941321-f681-4658-b2ae-0bbf629be6c2"],
Cell[CellGroupData[{
-Cell[111864, 3179, 1170, 27, 52, "Input",ExpressionUUID->"a8132637-c3e1-4436-93bd-91c4f1b0f8d4"],
-Cell[CellGroupData[{
-Cell[113059, 3210, 877, 18, 44, "Print",ExpressionUUID->"fbe079aa-93e0-4794-b2b1-aa9eb8a86047"],
-Cell[113939, 3230, 2640, 63, 145, "Print",ExpressionUUID->"405c459d-d5f3-4ca1-93a5-973d5e2da2ee"],
-Cell[116582, 3295, 1190, 24, 47, "Print",ExpressionUUID->"b1106a4d-144a-4a7f-9003-f33743a52bee"],
-Cell[117775, 3321, 626, 10, 24, "Print",ExpressionUUID->"4d7ca716-d582-4200-aa20-ba6db43e5d3e"],
-Cell[118404, 3333, 1618, 35, 69, "Print",ExpressionUUID->"25ad62ad-8c1e-47ff-aedf-9355a55e3c27"]
-}, Open ]]
+Cell[740851, 19248, 12218, 340, 1123, "Input",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
+Cell[753072, 19590, 214, 4, 34, "Output",ExpressionUUID->"d80a7353-e1b1-4445-a0aa-89dda22c75fc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[120071, 3374, 14798, 394, 1606, "Input",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
-Cell[CellGroupData[{
-Cell[134894, 3772, 730, 16, 44, "Print",ExpressionUUID->"e611d832-d11f-4300-900f-002a03ff4624"],
-Cell[135627, 3790, 2503, 60, 145, "Print",ExpressionUUID->"af400a18-2db3-4b9a-b7c0-795723192178"],
-Cell[138133, 3852, 1074, 23, 47, "Print",ExpressionUUID->"72fa7020-2ef9-478d-b9e3-6a3858f7af2f"],
-Cell[139210, 3877, 479, 8, 24, "Print",ExpressionUUID->"6a277dac-23da-412b-8e45-e48bdb9761ab"],
-Cell[139692, 3887, 1486, 33, 69, "Print",ExpressionUUID->"fab93893-0733-4f33-ac41-f3b5269699a6"],
-Cell[141181, 3922, 726, 15, 44, "Print",ExpressionUUID->"0c1f953c-d902-46c2-b0cf-0a0cf1a30b38"],
-Cell[141910, 3939, 2499, 60, 145, "Print",ExpressionUUID->"223bada9-7069-43f2-9be5-b2fce50f3b99"],
-Cell[144412, 4001, 1070, 23, 47, "Print",ExpressionUUID->"2f2a5471-ce8e-44c8-b0c8-983e48184bc5"],
-Cell[145485, 4026, 481, 8, 24, "Print",ExpressionUUID->"19411246-35af-419a-8f89-0e30161dec09"],
-Cell[145969, 4036, 1487, 33, 69, "Print",ExpressionUUID->"0ddbef6f-cf5f-4d9b-bf03-36d80aa1f5f7"],
-Cell[147459, 4071, 732, 16, 44, "Print",ExpressionUUID->"67151f63-65f5-42e9-b1a7-220323e910d1"],
-Cell[148194, 4089, 2503, 60, 145, "Print",ExpressionUUID->"297d3c2c-698b-4b51-b34b-b936e14d4f86"],
-Cell[150700, 4151, 1074, 23, 47, "Print",ExpressionUUID->"ff0bdc9e-e7b5-486e-9cfd-208c900e9564"],
-Cell[151777, 4176, 479, 8, 24, "Print",ExpressionUUID->"b3de093d-3305-449c-8d94-433015a10da6"],
-Cell[152259, 4186, 1486, 33, 69, "Print",ExpressionUUID->"3e334f4b-6f9f-44ac-81f5-c120fb44e74c"],
-Cell[153748, 4221, 729, 16, 44, "Print",ExpressionUUID->"f9ac8e1a-151b-41e7-8c07-dede4f87ff8a"],
-Cell[154480, 4239, 2509, 60, 145, "Print",ExpressionUUID->"4b4d1b7c-3782-47c7-b8c8-a9284d6db224"],
-Cell[156992, 4301, 1076, 23, 47, "Print",ExpressionUUID->"7aa6fcbe-4c9d-4fae-95a4-b4e811d1f7d3"],
-Cell[158071, 4326, 479, 8, 24, "Print",ExpressionUUID->"19f85bf8-f073-40da-b5fb-493ddc228db3"],
-Cell[158553, 4336, 1482, 33, 69, "Print",ExpressionUUID->"bd78fc5a-47ee-4087-ac5d-69554eaea2c6"],
-Cell[160038, 4371, 724, 15, 44, "Print",ExpressionUUID->"39d4c48a-2005-433f-8fdc-0cadf5219548"],
-Cell[160765, 4388, 2499, 60, 145, "Print",ExpressionUUID->"403a126c-0ed5-49c4-a049-8afd1837481a"],
-Cell[163267, 4450, 1082, 23, 47, "Print",ExpressionUUID->"a49f7988-b912-4eea-b560-6bb59e22cfd8"],
-Cell[164352, 4475, 479, 8, 24, "Print",ExpressionUUID->"b48e1c57-7aef-4e29-93fd-76b76cfe7ee2"],
-Cell[164834, 4485, 1484, 33, 69, "Print",ExpressionUUID->"0b2abd76-ae2d-405f-be8e-4e3c3a78325a"],
-Cell[166321, 4520, 730, 16, 44, "Print",ExpressionUUID->"dcdd608b-7776-4c1c-8001-28be67aa8d1c"],
-Cell[167054, 4538, 2507, 60, 145, "Print",ExpressionUUID->"c152028d-fe83-4059-924b-0a7f34cb6cfb"],
-Cell[169564, 4600, 1074, 23, 47, "Print",ExpressionUUID->"794ae55a-bc8b-4f6a-b038-cf0cfa73072b"],
-Cell[170641, 4625, 479, 8, 24, "Print",ExpressionUUID->"f96e0e3b-0538-4c10-b672-ab720c9451f5"],
-Cell[171123, 4635, 1486, 33, 69, "Print",ExpressionUUID->"19ff40de-2954-44b6-a99f-bc3463f24adb"],
-Cell[172612, 4670, 732, 16, 44, "Print",ExpressionUUID->"04597d3f-fd1a-463f-ae5c-89a6a84c0d31"],
-Cell[173347, 4688, 2501, 60, 145, "Print",ExpressionUUID->"4f8d70ba-23c4-465b-b370-f9c71ed3523f"],
-Cell[175851, 4750, 1078, 23, 47, "Print",ExpressionUUID->"7bea9042-8dbc-4df4-a000-81c4ad144938"],
-Cell[176932, 4775, 479, 8, 24, "Print",ExpressionUUID->"1a8b789d-88e5-408b-98d1-e3393140e8f7"],
-Cell[177414, 4785, 1487, 33, 69, "Print",ExpressionUUID->"03d803ee-4bcf-464c-9c76-70cf761d15ce"],
-Cell[178904, 4820, 730, 16, 44, "Print",ExpressionUUID->"d5ab5936-fbfc-4f72-aac2-f76a3e439734"],
-Cell[179637, 4838, 2511, 60, 145, "Print",ExpressionUUID->"b3e06eb9-5ccc-4286-b4e4-2a9aae10c24d"],
-Cell[182151, 4900, 1049, 22, 47, "Print",ExpressionUUID->"9781054b-6206-4108-830d-516dc4c02cef"],
-Cell[183203, 4924, 481, 8, 24, "Print",ExpressionUUID->"5d3604f4-b587-48f9-96fa-32feda800a5c"],
-Cell[183687, 4934, 1487, 33, 69, "Print",ExpressionUUID->"810e7fed-98f1-4647-9418-6061f5bec100"],
-Cell[185177, 4969, 723, 15, 44, "Print",ExpressionUUID->"c4343d11-a847-4731-af64-b29b4a9ba855"],
-Cell[185903, 4986, 2509, 60, 145, "Print",ExpressionUUID->"4787270b-95f8-44d9-8ddd-3c05b7b962fd"],
-Cell[188415, 5048, 1076, 23, 47, "Print",ExpressionUUID->"f39339e1-8c70-4313-87b8-675804283b9c"],
-Cell[189494, 5073, 479, 8, 24, "Print",ExpressionUUID->"cb01b2cb-ce0c-48b4-9493-effa76d0bd6b"],
-Cell[189976, 5083, 1485, 33, 69, "Print",ExpressionUUID->"28b0300d-7b91-4742-b2d5-4de9da994eea"],
-Cell[191464, 5118, 726, 15, 44, "Print",ExpressionUUID->"d0f793eb-11da-4fca-8233-5c1a770a4c5c"],
-Cell[192193, 5135, 2519, 60, 145, "Print",ExpressionUUID->"0d69ac0b-11ad-4106-aa02-2d24b1329b0e"],
-Cell[194715, 5197, 1049, 22, 47, "Print",ExpressionUUID->"fab2be44-b25b-4840-a82f-3d53c8b3006e"],
-Cell[195767, 5221, 479, 8, 24, "Print",ExpressionUUID->"d32f6c46-b3d6-44ad-8eb0-26858ea1c96a"],
-Cell[196249, 5231, 1487, 33, 69, "Print",ExpressionUUID->"09c47cfb-6b6c-471d-8a56-d22ab59b531f"],
-Cell[197739, 5266, 712, 15, 44, "Print",ExpressionUUID->"250b353a-a17a-4c23-868d-e438aa4d283c"],
-Cell[198454, 5283, 2509, 60, 145, "Print",ExpressionUUID->"2a304107-f5b7-4c3e-a9a5-e2a78cbe784d"],
-Cell[200966, 5345, 1075, 23, 47, "Print",ExpressionUUID->"c7d554d9-7ebc-4d4a-9c7f-f19068b73b60"],
-Cell[202044, 5370, 479, 8, 24, "Print",ExpressionUUID->"00e1d222-b563-412c-bb85-6d28bb3a62ca"],
-Cell[202526, 5380, 1489, 33, 69, "Print",ExpressionUUID->"c59f9f42-a5b6-4ab8-b021-383e893b9ae0"],
-Cell[204018, 5415, 730, 16, 44, "Print",ExpressionUUID->"6c93ebd8-8610-4908-9246-336eaeb4a6bd"],
-Cell[204751, 5433, 2513, 60, 145, "Print",ExpressionUUID->"25e77e61-246c-4427-8ce2-4118c569e10f"],
-Cell[207267, 5495, 1074, 23, 47, "Print",ExpressionUUID->"d3c019db-0273-4a53-bf08-baaf2f9348d6"],
-Cell[208344, 5520, 479, 8, 24, "Print",ExpressionUUID->"e7d2479a-0e9b-4c85-b026-c7f7bfae225b"],
-Cell[208826, 5530, 1489, 33, 69, "Print",ExpressionUUID->"7fb34c7c-a1ac-4019-bd9a-11338550b883"],
-Cell[210318, 5565, 730, 16, 44, "Print",ExpressionUUID->"b3df9704-a7c5-47e1-96bb-01bf8f2b005a"],
-Cell[211051, 5583, 2511, 60, 145, "Print",ExpressionUUID->"59aa65f3-e883-422e-890b-65ccc0ba8529"],
-Cell[213565, 5645, 1074, 23, 47, "Print",ExpressionUUID->"c4332442-3a3e-44d8-9357-6a692233e2b7"],
-Cell[214642, 5670, 481, 8, 24, "Print",ExpressionUUID->"4c231296-b961-4d6e-ac48-95fc6d2fb737"],
-Cell[215126, 5680, 1490, 33, 69, "Print",ExpressionUUID->"078dd53d-a6ec-4b6c-a4e2-21bf63e845cd"],
-Cell[216619, 5715, 730, 16, 44, "Print",ExpressionUUID->"cf798d00-816c-49b1-b422-98d449dc0fab"],
-Cell[217352, 5733, 2519, 60, 145, "Print",ExpressionUUID->"ad0b39fc-8807-4989-acca-89efaad9d582"],
-Cell[219874, 5795, 1057, 22, 47, "Print",ExpressionUUID->"d8fcf254-a7db-448b-a65d-ff313429d6d1"],
-Cell[220934, 5819, 479, 8, 24, "Print",ExpressionUUID->"e9745f3a-5e17-438b-ba71-199125476839"],
-Cell[221416, 5829, 1485, 33, 69, "Print",ExpressionUUID->"ebf08e9b-d1ea-43ce-872e-e99a183a21c8"],
-Cell[222904, 5864, 730, 16, 44, "Print",ExpressionUUID->"cdae5a6d-025a-463e-bbe9-982c89f4e038"],
-Cell[223637, 5882, 2511, 60, 145, "Print",ExpressionUUID->"144b3462-fb0b-4ebd-b10f-cfa60c7251a1"],
-Cell[226151, 5944, 1074, 23, 47, "Print",ExpressionUUID->"3cc2a0e4-c9d7-439e-8e6a-00f4f4798a21"],
-Cell[227228, 5969, 481, 8, 24, "Print",ExpressionUUID->"2ab44ba5-ea37-49dd-8d90-d76144e250d5"],
-Cell[227712, 5979, 1490, 33, 69, "Print",ExpressionUUID->"423326ee-15e0-42c1-a2e7-85630f699843"],
-Cell[229205, 6014, 732, 16, 44, "Print",ExpressionUUID->"cd8a9b1a-d7aa-45c9-ae45-5f904eb1f21f"],
-Cell[229940, 6032, 2520, 60, 145, "Print",ExpressionUUID->"9ac5909f-b9cd-4211-a449-ab395c84930d"],
-Cell[232463, 6094, 1076, 23, 47, "Print",ExpressionUUID->"a5759c44-5d39-465d-8275-0fcdbeeb31ba"],
-Cell[233542, 6119, 479, 8, 24, "Print",ExpressionUUID->"48575f7c-5b28-4234-a02f-7cf027ee5bfb"],
-Cell[234024, 6129, 1491, 33, 69, "Print",ExpressionUUID->"d59b2f4e-f4aa-4a93-a9b0-6e5e10dfe03d"],
-Cell[235518, 6164, 729, 16, 44, "Print",ExpressionUUID->"996867b8-ea5a-4558-a4b6-becf43f9d75d"],
-Cell[236250, 6182, 2515, 60, 145, "Print",ExpressionUUID->"30273eed-0e16-4a42-818c-2e40ff774b9a"],
-Cell[238768, 6244, 1076, 23, 47, "Print",ExpressionUUID->"28a09f11-61cb-4566-8d04-f92f88cd837e"],
-Cell[239847, 6269, 481, 8, 24, "Print",ExpressionUUID->"7056bbe9-dc20-44c1-92eb-3b956a7cc8c7"],
-Cell[240331, 6279, 1490, 33, 69, "Print",ExpressionUUID->"f5cbc613-3570-449e-bf94-8647c5ca7059"],
-Cell[241824, 6314, 732, 16, 44, "Print",ExpressionUUID->"1dd17060-6f49-4080-aa68-94ed2ba70dae"],
-Cell[242559, 6332, 2525, 60, 145, "Print",ExpressionUUID->"898ef2ae-bf99-4cca-b558-94384e213d24"],
-Cell[245087, 6394, 1076, 23, 47, "Print",ExpressionUUID->"a762aac1-c0ba-4e1f-bc0a-c78bf2cef19a"],
-Cell[246166, 6419, 479, 8, 24, "Print",ExpressionUUID->"200c62ae-f714-4e09-971c-8bc77cc0e8b5"],
-Cell[246648, 6429, 1489, 33, 69, "Print",ExpressionUUID->"9c836582-3143-44dd-9dc0-ab1cbf44260f"],
-Cell[248140, 6464, 729, 16, 44, "Print",ExpressionUUID->"0cbc4fb7-06e9-4ff9-aeb4-5555c212e466"],
-Cell[248872, 6482, 2509, 60, 145, "Print",ExpressionUUID->"0b8aa3c5-65ff-4952-9662-c9dd9eb60589"],
-Cell[251384, 6544, 1074, 23, 47, "Print",ExpressionUUID->"907d8f20-5474-472d-bfe5-8dc1d877467d"],
-Cell[252461, 6569, 479, 8, 24, "Print",ExpressionUUID->"f4de2e3d-fc7f-4e10-842d-d339703a0000"],
-Cell[252943, 6579, 1489, 33, 69, "Print",ExpressionUUID->"6f428f60-6566-4669-ad8a-8d4d6d060934"],
-Cell[254435, 6614, 726, 15, 44, "Print",ExpressionUUID->"4cd869ea-5780-4a16-baf0-3b597e4d590d"],
-Cell[255164, 6631, 2519, 60, 145, "Print",ExpressionUUID->"175a6244-7db3-4b67-b424-778e9e8a35bf"],
-Cell[257686, 6693, 1076, 23, 47, "Print",ExpressionUUID->"1f499e3e-4933-45de-b094-a2f0a0ad329d"],
-Cell[258765, 6718, 481, 8, 24, "Print",ExpressionUUID->"3b7a894c-4a65-4a79-8294-497ad4069b12"],
-Cell[259249, 6728, 1489, 33, 69, "Print",ExpressionUUID->"f9d90ae2-2cf6-4a4d-8910-bd20f772a9cf"],
-Cell[260741, 6763, 730, 16, 44, "Print",ExpressionUUID->"71781ef1-5288-4c41-95f7-13327c823833"],
-Cell[261474, 6781, 2512, 60, 145, "Print",ExpressionUUID->"c99fb7f9-fd5c-4476-b3e0-9219a698de9d"],
-Cell[263989, 6843, 1072, 23, 47, "Print",ExpressionUUID->"cff6cb6a-c29b-4731-ac4c-29241a3c5caa"],
-Cell[265064, 6868, 478, 8, 24, "Print",ExpressionUUID->"c257dbf0-5a16-4f2a-910b-136b8768cd9a"],
-Cell[265545, 6878, 1490, 33, 69, "Print",ExpressionUUID->"4542ccb5-e8ed-44ab-91b4-44c41f2baaa3"],
-Cell[267038, 6913, 729, 16, 44, "Print",ExpressionUUID->"1c9a44c3-61b6-4a27-be35-473b3fd4b6d6"],
-Cell[267770, 6931, 2522, 60, 145, "Print",ExpressionUUID->"2b9107ae-3efd-49a1-ac2c-5bd4fe87f932"],
-Cell[270295, 6993, 1076, 23, 47, "Print",ExpressionUUID->"b1e5563e-2333-49ad-92ab-db82228c62e9"],
-Cell[271374, 7018, 481, 8, 24, "Print",ExpressionUUID->"ffeeb593-1934-4ddf-bef9-96f5ee3f3506"],
-Cell[271858, 7028, 1490, 33, 69, "Print",ExpressionUUID->"f8cc6164-0e64-4f1a-aaa7-a328d203d397"],
-Cell[273351, 7063, 730, 16, 44, "Print",ExpressionUUID->"9f399401-e8ad-4760-8804-6c4bde95501a"],
-Cell[274084, 7081, 2509, 60, 145, "Print",ExpressionUUID->"58d1a577-5faa-4aff-972b-00ca0edcfe72"],
-Cell[276596, 7143, 1078, 23, 47, "Print",ExpressionUUID->"a8803a88-6115-4507-abc3-d5fb179c7271"],
-Cell[277677, 7168, 479, 8, 24, "Print",ExpressionUUID->"d8e5e975-2a3a-425e-8015-2eaad170e809"],
-Cell[278159, 7178, 1490, 33, 69, "Print",ExpressionUUID->"a6af10d7-3f77-4408-a740-c22348e3db2f"],
-Cell[279652, 7213, 726, 15, 44, "Print",ExpressionUUID->"a86e15fb-1227-476a-9ea9-4519370254ac"],
-Cell[280381, 7230, 2523, 60, 145, "Print",ExpressionUUID->"29800c34-b75d-47ff-9f3d-f36da1722f2f"],
-Cell[282907, 7292, 1057, 22, 47, "Print",ExpressionUUID->"5e8125fe-e947-434a-8325-9299f3fc5829"],
-Cell[283967, 7316, 479, 8, 24, "Print",ExpressionUUID->"312d90a3-3a34-4ff3-ba7f-74c2e29ad957"],
-Cell[284449, 7326, 1490, 33, 69, "Print",ExpressionUUID->"2b7c3e55-2bdc-4256-85d2-4c31abc673ee"],
-Cell[285942, 7361, 730, 16, 44, "Print",ExpressionUUID->"c355a64d-e069-4a9b-9f76-1b31263eb8d7"],
-Cell[286675, 7379, 2515, 60, 145, "Print",ExpressionUUID->"46b3ce37-1342-43c9-99b7-d0ec8ce13f1c"],
-Cell[289193, 7441, 1073, 23, 47, "Print",ExpressionUUID->"099cd7f5-8f63-4975-b61a-cfe717b8aa90"],
-Cell[290269, 7466, 478, 8, 24, "Print",ExpressionUUID->"013fa9a5-d956-4d01-8374-a3b6cca12173"],
-Cell[290750, 7476, 1491, 33, 69, "Print",ExpressionUUID->"bfcdd38e-7f4c-4df6-9a00-18e1d37d9e0c"],
-Cell[292244, 7511, 732, 16, 44, "Print",ExpressionUUID->"52c58755-7dc1-4294-8e3b-f8212ade9619"],
-Cell[292979, 7529, 2523, 60, 145, "Print",ExpressionUUID->"cf19b917-b1e5-41e4-9832-5836201a2135"],
-Cell[295505, 7591, 1053, 22, 47, "Print",ExpressionUUID->"816a30ba-6470-4d12-b566-85b4acf1e46e"],
-Cell[296561, 7615, 479, 8, 24, "Print",ExpressionUUID->"8eb2f2c6-6611-439c-b0f0-f6cdc00f3a1f"],
-Cell[297043, 7625, 1490, 33, 69, "Print",ExpressionUUID->"c9519cf2-1a27-4817-ad80-1d40db82eebf"],
-Cell[298536, 7660, 708, 15, 44, "Print",ExpressionUUID->"734e7bb5-3036-44e9-9ad1-423fff7e0077"],
-Cell[299247, 7677, 2515, 60, 145, "Print",ExpressionUUID->"519ae8b3-9c85-45af-be94-35949ea88061"],
-Cell[301765, 7739, 1076, 23, 47, "Print",ExpressionUUID->"dbbb6bea-90fd-4577-bd09-99f1483543dc"],
-Cell[302844, 7764, 479, 8, 24, "Print",ExpressionUUID->"20f647b0-06ca-4209-8ac0-0b3f7fd85c79"],
-Cell[303326, 7774, 1488, 33, 69, "Print",ExpressionUUID->"06063a17-d5ee-4e94-8e70-fcc448574192"],
-Cell[304817, 7809, 729, 16, 44, "Print",ExpressionUUID->"b80856e1-cb87-4f3b-8068-f3aebee7bdb0"],
-Cell[305549, 7827, 2520, 60, 145, "Print",ExpressionUUID->"63561700-23eb-4395-bb8b-9679763ee60e"],
-Cell[308072, 7889, 1053, 22, 47, "Print",ExpressionUUID->"e679e55a-0285-4c72-a044-d6d7c9deaebf"],
-Cell[309128, 7913, 479, 8, 24, "Print",ExpressionUUID->"9f5ac182-af79-4ee4-8300-b62893ca0ae1"],
-Cell[309610, 7923, 1488, 33, 69, "Print",ExpressionUUID->"44d2bf67-46c9-4859-9696-2775f000232b"],
-Cell[311101, 7958, 723, 15, 44, "Print",ExpressionUUID->"6e0b7eae-3f09-4653-a135-212c1568a073"],
-Cell[311827, 7975, 2515, 60, 145, "Print",ExpressionUUID->"d00b2ed5-9d53-4d92-b87d-d3717d10f478"],
-Cell[314345, 8037, 1055, 22, 47, "Print",ExpressionUUID->"dde4c821-fa7b-4d78-b796-5e88f3c799d3"],
-Cell[315403, 8061, 479, 8, 24, "Print",ExpressionUUID->"ade22e74-a54a-4740-8107-0eed0631eb6c"],
-Cell[315885, 8071, 1492, 33, 69, "Print",ExpressionUUID->"5983f225-2c81-477e-ac28-d65afe2350ab"],
-Cell[317380, 8106, 730, 16, 44, "Print",ExpressionUUID->"b9d3fdd9-b6cd-4949-ba3d-0867ed123763"],
-Cell[318113, 8124, 2522, 60, 145, "Print",ExpressionUUID->"32c84384-b885-4744-869c-4d945a769a18"],
-Cell[320638, 8186, 1080, 23, 47, "Print",ExpressionUUID->"064e31a0-366e-4c35-8dba-feab7429244d"],
-Cell[321721, 8211, 479, 8, 24, "Print",ExpressionUUID->"26fd904d-bff5-4328-a288-2454bbbfff6c"],
-Cell[322203, 8221, 1490, 33, 69, "Print",ExpressionUUID->"e119183d-c9cd-4f40-b372-4e4929905e0a"],
-Cell[323696, 8256, 732, 16, 44, "Print",ExpressionUUID->"28a5e215-9a8a-46eb-9200-365a85b3f320"],
-Cell[324431, 8274, 2517, 60, 145, "Print",ExpressionUUID->"887df43d-38a3-4cf0-a8ed-74e1a0653b6a"],
-Cell[326951, 8336, 1053, 22, 47, "Print",ExpressionUUID->"61d3c800-f20d-4c34-8c21-200c1b25b568"],
-Cell[328007, 8360, 479, 8, 24, "Print",ExpressionUUID->"a81d4e10-b200-4ae6-b3e3-56d1aa12fdfd"],
-Cell[328489, 8370, 1489, 33, 69, "Print",ExpressionUUID->"2d475003-10c7-445a-b5ba-7d4c94b4beeb"],
-Cell[329981, 8405, 726, 15, 44, "Print",ExpressionUUID->"27ed30f7-386a-47a6-9b10-b12d650a5324"],
-Cell[330710, 8422, 2519, 60, 145, "Print",ExpressionUUID->"ffa957b2-1c39-417b-8b14-389337d8b69b"],
-Cell[333232, 8484, 1051, 22, 47, "Print",ExpressionUUID->"e8106119-a22c-4693-8288-a29b3fe5cc2d"],
-Cell[334286, 8508, 479, 8, 24, "Print",ExpressionUUID->"00279d64-5f59-4571-825c-15182f7ec56c"],
-Cell[334768, 8518, 1489, 33, 69, "Print",ExpressionUUID->"6405305d-88cd-40d7-affe-821f9d4022e7"],
-Cell[336260, 8553, 732, 16, 44, "Print",ExpressionUUID->"867847bd-d846-4b62-b680-2153640a505d"],
-Cell[336995, 8571, 2515, 60, 145, "Print",ExpressionUUID->"65310395-2463-45b7-b7d7-ae3c929484a3"],
-Cell[339513, 8633, 1053, 22, 47, "Print",ExpressionUUID->"6f815251-e13d-48f6-94a5-a1556ba7bdfb"],
-Cell[340569, 8657, 479, 8, 24, "Print",ExpressionUUID->"ba39af51-e6a9-46df-a1eb-c911c231dee0"],
-Cell[341051, 8667, 1488, 33, 69, "Print",ExpressionUUID->"741bdc1a-347a-47bd-9eab-c8793fc7bd97"],
-Cell[342542, 8702, 730, 16, 44, "Print",ExpressionUUID->"1f1929f4-1a57-455f-ad66-3763b98a88cd"],
-Cell[343275, 8720, 2522, 60, 145, "Print",ExpressionUUID->"cdadae78-72c0-4156-bace-87fde12c19d1"],
-Cell[345800, 8782, 1074, 23, 47, "Print",ExpressionUUID->"c22f0899-8b41-4423-964a-4e33ab7d55a3"],
-Cell[346877, 8807, 479, 8, 24, "Print",ExpressionUUID->"9fed6e92-97aa-4e24-8ca7-27881a1f0634"],
-Cell[347359, 8817, 1486, 33, 69, "Print",ExpressionUUID->"001064f4-a0bd-42c3-90b1-a23b097aab1c"],
-Cell[348848, 8852, 730, 16, 44, "Print",ExpressionUUID->"67e8ad73-d692-44f5-b99d-2238330711e1"],
-Cell[349581, 8870, 2508, 60, 145, "Print",ExpressionUUID->"7b67fb19-4661-4182-bf6f-f4b09869a120"],
-Cell[352092, 8932, 1054, 22, 47, "Print",ExpressionUUID->"3523b15a-41d7-4f9b-9916-a8c872f60f04"],
-Cell[353149, 8956, 479, 8, 24, "Print",ExpressionUUID->"301f6901-2147-4177-a84c-3f293f2895f6"],
-Cell[353631, 8966, 1486, 33, 69, "Print",ExpressionUUID->"9fa5b93f-5e26-4164-89bf-62bb6d1f280f"],
-Cell[355120, 9001, 730, 16, 44, "Print",ExpressionUUID->"1abf8fc7-c08a-4aec-a06a-f22061ce7090"],
-Cell[355853, 9019, 2514, 60, 145, "Print",ExpressionUUID->"2405fdd7-ab7c-4d18-adea-10ed918c4dbd"],
-Cell[358370, 9081, 1051, 22, 47, "Print",ExpressionUUID->"d66e2824-382b-44fd-93c4-5e500c66f2ca"],
-Cell[359424, 9105, 481, 8, 24, "Print",ExpressionUUID->"13afce5b-dbaf-42f3-bbb6-49561e9f477e"],
-Cell[359908, 9115, 1490, 33, 69, "Print",ExpressionUUID->"0c4e321a-2adb-4c0c-a1cf-0263c597eaf1"],
-Cell[361401, 9150, 732, 16, 44, "Print",ExpressionUUID->"c4c5a7ed-ffca-4889-affc-d63effb43ca0"],
-Cell[362136, 9168, 2515, 60, 145, "Print",ExpressionUUID->"7160f8cf-37e2-4fa3-b7b3-2186a47a5757"],
-Cell[364654, 9230, 1055, 22, 47, "Print",ExpressionUUID->"76b77001-3382-49da-97d3-e178104130fb"],
-Cell[365712, 9254, 479, 8, 24, "Print",ExpressionUUID->"5b251d4b-4b79-49c9-95f1-fd9063eb6390"],
-Cell[366194, 9264, 1492, 33, 69, "Print",ExpressionUUID->"465533a5-2f85-44ad-bdbd-20db0669462f"],
-Cell[367689, 9299, 730, 16, 44, "Print",ExpressionUUID->"49d5a5e7-4dc4-4a02-8de6-6842f85d91e5"],
-Cell[368422, 9317, 2517, 60, 145, "Print",ExpressionUUID->"2fcc2668-0873-4a51-9319-05e9fa03fe7e"],
-Cell[370942, 9379, 1055, 22, 47, "Print",ExpressionUUID->"7f3de7f6-d030-4c3c-8e6d-fc2498df26c0"],
-Cell[372000, 9403, 479, 8, 24, "Print",ExpressionUUID->"0bd7bfec-f653-4ad0-ae1f-4843aacc95c5"],
-Cell[372482, 9413, 1490, 33, 69, "Print",ExpressionUUID->"1a15df26-edc0-4689-82f8-39982434bfc9"],
-Cell[373975, 9448, 724, 15, 44, "Print",ExpressionUUID->"60f44850-e87b-4745-89e6-d5c5476d19b5"],
-Cell[374702, 9465, 2517, 60, 145, "Print",ExpressionUUID->"c61dd27c-7c22-4546-b159-6568f5fc3576"],
-Cell[377222, 9527, 1057, 22, 47, "Print",ExpressionUUID->"2565cb46-1645-417f-8f96-13d0d44a1bf7"],
-Cell[378282, 9551, 481, 8, 24, "Print",ExpressionUUID->"a0880fce-a83f-41c2-85cb-1c55e33f9870"],
-Cell[378766, 9561, 1490, 33, 69, "Print",ExpressionUUID->"1af4e409-6e4e-4e2d-9457-138d56573e56"],
-Cell[380259, 9596, 732, 16, 44, "Print",ExpressionUUID->"9e1d06e6-53fc-4922-87c4-89714c5ff339"],
-Cell[380994, 9614, 2520, 60, 145, "Print",ExpressionUUID->"026a66ef-aa38-4376-bc03-086fd4d2d55a"],
-Cell[383517, 9676, 1055, 22, 47, "Print",ExpressionUUID->"68dda53f-e2c0-43c7-b553-9dd0a33fe555"],
-Cell[384575, 9700, 479, 8, 24, "Print",ExpressionUUID->"95cbb80c-6308-436a-a745-84ac3730a66b"],
-Cell[385057, 9710, 1488, 33, 69, "Print",ExpressionUUID->"2f5c0850-754a-4649-873e-4648c2301ab2"],
-Cell[386548, 9745, 730, 16, 44, "Print",ExpressionUUID->"f036bf68-b4ac-4fdb-b3c4-b3074915007c"],
-Cell[387281, 9763, 2509, 60, 145, "Print",ExpressionUUID->"1be88f5b-e346-4721-b7d8-2cce21abaeac"],
-Cell[389793, 9825, 1078, 23, 47, "Print",ExpressionUUID->"214deec8-c559-4296-8607-b7374b9cea24"],
-Cell[390874, 9850, 479, 8, 24, "Print",ExpressionUUID->"883305e0-f372-4448-ba56-3c59356659a2"],
-Cell[391356, 9860, 1492, 33, 69, "Print",ExpressionUUID->"00012b4a-36d3-474e-b99c-d69b402e701a"],
-Cell[392851, 9895, 732, 16, 44, "Print",ExpressionUUID->"8e3c6758-e766-43f9-97ea-41fb0fe216c3"],
-Cell[393586, 9913, 2512, 60, 145, "Print",ExpressionUUID->"fe224d70-6fa3-4c5f-89e9-3ccdcf88e5da"],
-Cell[396101, 9975, 1055, 22, 47, "Print",ExpressionUUID->"ef0c43fa-3023-406a-808f-aef6406d790f"],
-Cell[397159, 9999, 479, 8, 24, "Print",ExpressionUUID->"3decf42b-f023-4ff7-8991-afc19d2a6b3f"],
-Cell[397641, 10009, 1490, 33, 69, "Print",ExpressionUUID->"e7b42db7-a0f1-4439-88a4-f6748a27d728"],
-Cell[399134, 10044, 732, 16, 44, "Print",ExpressionUUID->"d4ce6ff4-b068-4f76-a54d-21a542df254b"],
-Cell[399869, 10062, 2511, 60, 145, "Print",ExpressionUUID->"ff48de81-f87b-4c29-bd5c-478de73d02ba"],
-Cell[402383, 10124, 1072, 23, 47, "Print",ExpressionUUID->"6fa7798b-e356-477d-b974-ac07a832986d"],
-Cell[403458, 10149, 479, 8, 24, "Print",ExpressionUUID->"e9e56419-5d1f-4d98-8b1f-7e6c5b10405d"],
-Cell[403940, 10159, 1489, 33, 69, "Print",ExpressionUUID->"3c543775-d741-4f05-b835-bf00f792363c"],
-Cell[405432, 10194, 730, 16, 44, "Print",ExpressionUUID->"89b8e3c2-7625-427f-9185-f596320d2ce6"],
-Cell[406165, 10212, 2514, 60, 145, "Print",ExpressionUUID->"7fe153bf-cb85-41f9-9aa3-907caa527aff"],
-Cell[408682, 10274, 1055, 22, 47, "Print",ExpressionUUID->"64f34ff0-2abd-4146-ae23-b641d080b009"],
-Cell[409740, 10298, 479, 8, 24, "Print",ExpressionUUID->"e4df8e1a-2769-4c80-986c-d5929c9042e9"],
-Cell[410222, 10308, 1490, 33, 69, "Print",ExpressionUUID->"21f314d6-a900-4c3b-8f9e-4fc6da6849a6"],
-Cell[411715, 10343, 724, 15, 44, "Print",ExpressionUUID->"e95a64f0-213c-40af-ac6d-432ca3ee165a"],
-Cell[412442, 10360, 2509, 60, 145, "Print",ExpressionUUID->"4b2723db-e17c-4d68-b1ba-0fd772b97168"],
-Cell[414954, 10422, 1078, 23, 47, "Print",ExpressionUUID->"9847a783-ebe9-4fff-bcde-161462cd3952"],
-Cell[416035, 10447, 479, 8, 24, "Print",ExpressionUUID->"dac346e4-7508-4d40-a07a-91cb5fe8e89b"],
-Cell[416517, 10457, 1490, 33, 69, "Print",ExpressionUUID->"6ee8a5ce-cbc2-44f3-87e5-77be6d3dae6d"],
-Cell[418010, 10492, 726, 15, 44, "Print",ExpressionUUID->"1bb7198e-c552-4aa4-ae89-0fb29e3d95fa"],
-Cell[418739, 10509, 2513, 60, 145, "Print",ExpressionUUID->"7e1ac5f0-d63a-4dc1-b458-262ce18af15a"],
-Cell[421255, 10571, 1057, 22, 47, "Print",ExpressionUUID->"89d11b46-0dba-49ab-86a2-6315946dd83b"],
-Cell[422315, 10595, 479, 8, 24, "Print",ExpressionUUID->"6d1f0500-da18-4f02-af0d-db466ff1492e"],
-Cell[422797, 10605, 1492, 33, 69, "Print",ExpressionUUID->"00879e3d-6bff-49d5-a395-c8a4744ead86"],
-Cell[424292, 10640, 704, 15, 44, "Print",ExpressionUUID->"92bac50d-1ca6-44fe-9487-937a7b7a15e0"],
-Cell[424999, 10657, 2509, 60, 145, "Print",ExpressionUUID->"e22ddfe9-2d1d-4cee-8719-0689c89d6d51"],
-Cell[427511, 10719, 1075, 23, 47, "Print",ExpressionUUID->"53d847a7-4cbe-49e2-8387-65b3f3f31343"],
-Cell[428589, 10744, 479, 8, 24, "Print",ExpressionUUID->"51eef8e6-6fd0-4d70-8b11-e26ba1fb0206"],
-Cell[429071, 10754, 1492, 33, 69, "Print",ExpressionUUID->"1eef8ead-54fa-4b97-8501-dfc688fde0ab"],
-Cell[430566, 10789, 732, 16, 44, "Print",ExpressionUUID->"a912994a-d822-4df1-bc91-24a9afae3041"],
-Cell[431301, 10807, 2517, 60, 145, "Print",ExpressionUUID->"90124aae-f546-4ea4-b649-8d723e30171c"],
-Cell[433821, 10869, 1057, 22, 47, "Print",ExpressionUUID->"0eea9fcb-21e2-4eb8-99da-5d5f08f61a21"],
-Cell[434881, 10893, 479, 8, 24, "Print",ExpressionUUID->"f8962516-6ef2-49b3-b9b6-d83fcb427c42"],
-Cell[435363, 10903, 1489, 33, 69, "Print",ExpressionUUID->"279e3750-01a5-435c-8787-5c39442647d0"],
-Cell[436855, 10938, 724, 15, 44, "Print",ExpressionUUID->"33904483-2810-4859-95ed-ad6b65ea37df"],
-Cell[437582, 10955, 2506, 60, 145, "Print",ExpressionUUID->"b86aa01a-08f8-49e8-8b8b-4f84c0270fb4"],
-Cell[440091, 11017, 1051, 22, 47, "Print",ExpressionUUID->"b57903a7-619c-4d05-aa88-b505421d6c97"],
-Cell[441145, 11041, 481, 8, 24, "Print",ExpressionUUID->"42ecca8e-0cd6-43c3-8f96-f6d1b5a26781"],
-Cell[441629, 11051, 1493, 33, 69, "Print",ExpressionUUID->"c7d9672e-c824-4c15-8704-1033838c918a"],
-Cell[443125, 11086, 729, 16, 44, "Print",ExpressionUUID->"49acde02-fe9a-4bf9-b0f3-4230d1599045"],
-Cell[443857, 11104, 2517, 60, 145, "Print",ExpressionUUID->"d3adb6b9-6c01-45e3-9364-ffe336db584c"],
-Cell[446377, 11166, 1053, 22, 47, "Print",ExpressionUUID->"542bef2b-6e65-46a6-9259-7c7b5fa4e427"],
-Cell[447433, 11190, 481, 8, 24, "Print",ExpressionUUID->"2b3afb84-98a6-43d7-873b-08353d4eec97"],
-Cell[447917, 11200, 1492, 33, 69, "Print",ExpressionUUID->"4e65a463-0ca8-46b4-9030-944d9f69a5ef"],
-Cell[449412, 11235, 730, 16, 44, "Print",ExpressionUUID->"b0c2eefc-961a-4d83-a410-fab0b7088621"],
-Cell[450145, 11253, 2512, 60, 145, "Print",ExpressionUUID->"b2719dfc-f3dc-4737-8c2b-622dc6934cf5"],
-Cell[452660, 11315, 1076, 23, 47, "Print",ExpressionUUID->"bede673c-ea87-4ee3-9538-3477a96fb7d4"],
-Cell[453739, 11340, 479, 8, 24, "Print",ExpressionUUID->"6831114a-fbac-444c-ac22-3cf27e262bc4"],
-Cell[454221, 11350, 1488, 33, 69, "Print",ExpressionUUID->"7ec25a09-3a3a-47fd-b630-8958fd93a816"],
-Cell[455712, 11385, 729, 16, 44, "Print",ExpressionUUID->"d0fd0a4b-92cb-46e2-a416-db409d075b5c"],
-Cell[456444, 11403, 2517, 60, 145, "Print",ExpressionUUID->"768d5e5a-6a67-4735-8829-a91ca891a9e6"],
-Cell[458964, 11465, 1074, 23, 47, "Print",ExpressionUUID->"eaaa3cdc-c06a-477d-9d72-c0d8cdc9585e"],
-Cell[460041, 11490, 479, 8, 24, "Print",ExpressionUUID->"51c887d8-e014-4d97-a5ce-649c8f4024f6"],
-Cell[460523, 11500, 1491, 33, 69, "Print",ExpressionUUID->"e27591ff-dd98-4b81-813f-7c4d49b710dc"],
-Cell[462017, 11535, 732, 16, 44, "Print",ExpressionUUID->"88874554-d5e4-409e-b90c-19681fb3cc0e"],
-Cell[462752, 11553, 2512, 60, 145, "Print",ExpressionUUID->"728cf557-883d-4e19-a73c-1d5788f1a0d2"],
-Cell[465267, 11615, 1055, 22, 47, "Print",ExpressionUUID->"a280d909-a034-4b10-bcce-0febc7015373"],
-Cell[466325, 11639, 479, 8, 24, "Print",ExpressionUUID->"4f10b418-677a-489a-9371-e925631e36ca"],
-Cell[466807, 11649, 1491, 33, 69, "Print",ExpressionUUID->"50b111e4-baa5-4a2e-b5ef-4e3f6b37f78e"],
-Cell[468301, 11684, 732, 16, 44, "Print",ExpressionUUID->"fda9376d-11f5-425f-a4cc-80a709e13e6b"],
-Cell[469036, 11702, 2520, 60, 145, "Print",ExpressionUUID->"68098a97-cf2e-418c-be66-3b1442a487eb"],
-Cell[471559, 11764, 1074, 23, 47, "Print",ExpressionUUID->"57023bfa-2eca-4f13-abbb-853e866811e7"],
-Cell[472636, 11789, 481, 8, 24, "Print",ExpressionUUID->"b1397a8c-cce3-470b-acfc-064e610e8905"],
-Cell[473120, 11799, 1490, 33, 69, "Print",ExpressionUUID->"e8ad01b0-96a8-478a-be7b-26062daad9f5"],
-Cell[474613, 11834, 730, 16, 44, "Print",ExpressionUUID->"05d2b8ea-8ef8-46d2-8dd2-fac8fb28a790"],
-Cell[475346, 11852, 2511, 60, 145, "Print",ExpressionUUID->"d8c5925c-a00f-4fd4-9c6e-19037eb68bbe"],
-Cell[477860, 11914, 1073, 23, 47, "Print",ExpressionUUID->"9e5490e6-5dd5-474a-bc95-edb53cd631bf"],
-Cell[478936, 11939, 481, 8, 24, "Print",ExpressionUUID->"506b3b15-a0b0-4668-ad51-30e2d040b581"],
-Cell[479420, 11949, 1494, 33, 69, "Print",ExpressionUUID->"13fd006b-a47e-4615-9557-f9c0a56f681b"],
-Cell[480917, 11984, 730, 16, 44, "Print",ExpressionUUID->"c5093dc7-5be5-4fce-934d-f9a7ebfed700"],
-Cell[481650, 12002, 2523, 60, 145, "Print",ExpressionUUID->"8e2749de-2ea7-4a15-af7c-6b6da85f1318"],
-Cell[484176, 12064, 1053, 22, 47, "Print",ExpressionUUID->"c2e717c1-e648-4bbe-8190-8b818debe76f"],
-Cell[485232, 12088, 479, 8, 24, "Print",ExpressionUUID->"ecc97351-17e0-4ca8-9b54-d58ab34b2fe0"],
-Cell[485714, 12098, 1490, 33, 69, "Print",ExpressionUUID->"66fe1c8d-465e-460b-88d9-b436e1312d67"],
-Cell[487207, 12133, 729, 16, 44, "Print",ExpressionUUID->"032de291-5e86-4e0d-be54-6ee80584a657"],
-Cell[487939, 12151, 2515, 60, 145, "Print",ExpressionUUID->"823b7c60-11f6-4059-a1aa-286115eda88c"],
-Cell[490457, 12213, 1051, 22, 47, "Print",ExpressionUUID->"1695ce35-2af0-4e26-a4da-71ecfe1a0edd"],
-Cell[491511, 12237, 479, 8, 24, "Print",ExpressionUUID->"a9304af4-b410-4dcb-938a-f0f2bbccc457"],
-Cell[491993, 12247, 1494, 33, 69, "Print",ExpressionUUID->"d8d3c756-21dd-40a5-9f00-742629a71380"],
-Cell[493490, 12282, 724, 15, 44, "Print",ExpressionUUID->"81077897-3556-4138-8cf5-bfaaedb35dde"],
-Cell[494217, 12299, 2517, 60, 145, "Print",ExpressionUUID->"cce03e5e-8645-4cf7-8b89-7342e8b76357"],
-Cell[496737, 12361, 1078, 23, 47, "Print",ExpressionUUID->"605b7b69-f76e-43e1-8e1e-be7b20aa7500"],
-Cell[497818, 12386, 479, 8, 24, "Print",ExpressionUUID->"571a5c8b-4997-4e73-b225-c1a36e174465"],
-Cell[498300, 12396, 1489, 33, 69, "Print",ExpressionUUID->"ed321a46-b9f9-4309-a422-013e483ae1f7"],
-Cell[499792, 12431, 724, 15, 44, "Print",ExpressionUUID->"8b4c520f-6698-42e5-b912-30fc755530b8"],
-Cell[500519, 12448, 2515, 60, 145, "Print",ExpressionUUID->"a36cd784-ef4a-4156-9fc1-e6b6bc042dfb"],
-Cell[503037, 12510, 1076, 23, 47, "Print",ExpressionUUID->"4e0acf48-aa31-4178-a6bd-1a6db9ff167b"],
-Cell[504116, 12535, 479, 8, 24, "Print",ExpressionUUID->"c1b12a9c-7b81-4b79-9ec9-e8c59560ca24"],
-Cell[504598, 12545, 1494, 33, 69, "Print",ExpressionUUID->"f2d3b2c8-3d4e-4181-b0f2-4312ad0ac44c"],
-Cell[506095, 12580, 722, 15, 44, "Print",ExpressionUUID->"53c2c0fc-ff4e-4cf4-8f4b-3116d323fba2"],
-Cell[506820, 12597, 2519, 60, 145, "Print",ExpressionUUID->"412a1fd0-27dd-4808-9561-7c7a3af84572"],
-Cell[509342, 12659, 1076, 23, 47, "Print",ExpressionUUID->"aa0965a2-d587-44a8-8ccd-79f9f2cb4539"],
-Cell[510421, 12684, 479, 8, 24, "Print",ExpressionUUID->"eaef0f19-8033-4cbe-ba02-7ece0b9b5cb5"],
-Cell[510903, 12694, 1492, 33, 69, "Print",ExpressionUUID->"e6d2eb3c-1b41-4cef-a159-7af8a811726a"],
-Cell[512398, 12729, 726, 15, 44, "Print",ExpressionUUID->"62b99f91-dcc1-4604-ad21-d591a43ecd58"],
-Cell[513127, 12746, 2509, 60, 145, "Print",ExpressionUUID->"0fdd63cc-8334-4376-81d9-fc213058c2be"],
-Cell[515639, 12808, 1055, 22, 47, "Print",ExpressionUUID->"9d7fa61e-35aa-439a-b8c3-e9c30ec76338"],
-Cell[516697, 12832, 481, 8, 24, "Print",ExpressionUUID->"aa5223f5-30dc-4507-842a-a2fb9eb19b97"],
-Cell[517181, 12842, 1492, 33, 69, "Print",ExpressionUUID->"63ec9a35-648b-4cd3-beb5-047bf515cc9b"],
-Cell[518676, 12877, 724, 15, 44, "Print",ExpressionUUID->"5fe6b30b-0cec-42a3-8f7d-b34114c86f30"],
-Cell[519403, 12894, 2525, 60, 145, "Print",ExpressionUUID->"9409403f-d6be-405c-ad52-c7786728120e"],
-Cell[521931, 12956, 1051, 22, 47, "Print",ExpressionUUID->"f5b7d243-4034-45a9-8676-688c8c54f8fa"],
-Cell[522985, 12980, 481, 8, 24, "Print",ExpressionUUID->"dddd76e5-3657-4368-8b80-8697fbf9a512"],
-Cell[523469, 12990, 1494, 33, 69, "Print",ExpressionUUID->"fbae8cc0-4419-48de-a4dc-06c8e6f0ff81"],
-Cell[524966, 13025, 724, 15, 44, "Print",ExpressionUUID->"40a4f949-880e-45ed-9c2b-bbaeced2a95c"],
-Cell[525693, 13042, 2515, 60, 145, "Print",ExpressionUUID->"fee65f95-46c5-4e9d-b91f-e4c514b9c5cc"],
-Cell[528211, 13104, 1072, 23, 47, "Print",ExpressionUUID->"99032320-9f84-48e7-b32c-eb0b88a0fdf2"],
-Cell[529286, 13129, 481, 8, 24, "Print",ExpressionUUID->"15908c11-bc31-4338-8efd-77adb8a740a5"],
-Cell[529770, 13139, 1492, 33, 69, "Print",ExpressionUUID->"8b4abb45-ed33-49c6-bee4-6ea34ff9f65e"],
-Cell[531265, 13174, 732, 16, 44, "Print",ExpressionUUID->"6fc29962-73bf-4fb3-9aa3-9718ec9f5bbb"],
-Cell[532000, 13192, 2517, 60, 145, "Print",ExpressionUUID->"38afbb7c-0048-4201-a587-b217141d7096"],
-Cell[534520, 13254, 1072, 23, 47, "Print",ExpressionUUID->"740cbb10-4c21-4dca-a27d-1c414bd046b4"],
-Cell[535595, 13279, 481, 8, 24, "Print",ExpressionUUID->"7237268f-03a9-4b43-80e1-1c3fccb57e5f"],
-Cell[536079, 13289, 1492, 33, 69, "Print",ExpressionUUID->"86de8a66-8b2a-4428-be15-6957f3a158a3"],
-Cell[537574, 13324, 732, 16, 44, "Print",ExpressionUUID->"24a1cb5c-5da7-42b1-a92e-4b960df4b34e"],
-Cell[538309, 13342, 2509, 60, 145, "Print",ExpressionUUID->"06ad49cf-0f50-4db0-9954-64898b44bde4"],
-Cell[540821, 13404, 1078, 23, 47, "Print",ExpressionUUID->"3c654a19-811b-49cf-ac74-a04ea22832da"],
-Cell[541902, 13429, 479, 8, 24, "Print",ExpressionUUID->"132ba350-f60a-49c2-a144-6074e32bd9c3"],
-Cell[542384, 13439, 1486, 33, 69, "Print",ExpressionUUID->"49e32c4e-7804-42d6-865a-347c9e382c60"],
-Cell[543873, 13474, 726, 15, 44, "Print",ExpressionUUID->"2d0c7a73-f2c4-4ad4-bd4d-ae76eb12761d"],
-Cell[544602, 13491, 2520, 60, 145, "Print",ExpressionUUID->"49fc231c-4e4b-40b3-a57e-435849dc5a97"],
-Cell[547125, 13553, 1076, 23, 47, "Print",ExpressionUUID->"0fcaf768-0e9c-4943-8fed-ee75ebf22bd7"],
-Cell[548204, 13578, 476, 8, 24, "Print",ExpressionUUID->"2eb8b654-1234-4a8b-a404-e0883e620f7a"],
-Cell[548683, 13588, 1494, 33, 69, "Print",ExpressionUUID->"30dfb2d1-c846-4e22-8b27-2f5c228c4eb7"],
-Cell[550180, 13623, 724, 15, 44, "Print",ExpressionUUID->"791a22e1-519e-4a93-9f68-dd22af54596e"],
-Cell[550907, 13640, 2512, 60, 145, "Print",ExpressionUUID->"1f6e197a-c720-4c82-863b-634493cd0835"],
-Cell[553422, 13702, 1074, 23, 47, "Print",ExpressionUUID->"108031df-86ea-4750-bf92-039a47378fe9"],
-Cell[554499, 13727, 481, 8, 24, "Print",ExpressionUUID->"c51e0ebb-dd40-41dc-b6c1-d23436879405"],
-Cell[554983, 13737, 1494, 33, 69, "Print",ExpressionUUID->"f0fb42c0-400e-4da5-a7e7-b5d5f3b5369b"],
-Cell[556480, 13772, 730, 16, 44, "Print",ExpressionUUID->"a90e2265-3175-4bff-b282-93e4609078af"],
-Cell[557213, 13790, 2523, 60, 145, "Print",ExpressionUUID->"99d350cd-b738-4eb8-939a-6f5ce496ac09"],
-Cell[559739, 13852, 1074, 23, 47, "Print",ExpressionUUID->"881d6b69-e0fe-4678-97c4-aa67e1a6cb2c"],
-Cell[560816, 13877, 479, 8, 24, "Print",ExpressionUUID->"87d32be3-9faf-441c-813a-e750b86f2a83"],
-Cell[561298, 13887, 1488, 33, 69, "Print",ExpressionUUID->"1794987d-5317-4912-84e5-b2374ed1e571"],
-Cell[562789, 13922, 729, 16, 44, "Print",ExpressionUUID->"98626f39-558f-4556-be83-662c0efa85bf"],
-Cell[563521, 13940, 2517, 60, 145, "Print",ExpressionUUID->"5f27f16f-5b02-4c04-b0cb-7cf279e7e1cd"],
-Cell[566041, 14002, 1055, 22, 47, "Print",ExpressionUUID->"fcf8b532-9f15-4383-a3d7-943caca2ea59"],
-Cell[567099, 14026, 481, 8, 24, "Print",ExpressionUUID->"f9998155-461f-4c55-895e-73c2a08b8a32"],
-Cell[567583, 14036, 1493, 33, 69, "Print",ExpressionUUID->"c4ae2f5c-7621-4352-b6a0-59bb950e4c17"],
-Cell[569079, 14071, 724, 15, 44, "Print",ExpressionUUID->"c82a552a-7b0f-4a1c-94ca-27e75449f73a"],
-Cell[569806, 14088, 2520, 60, 145, "Print",ExpressionUUID->"359d7c29-a60f-4544-8f0b-5f2ccf03b267"],
-Cell[572329, 14150, 1074, 23, 47, "Print",ExpressionUUID->"283f7e0f-ee31-4daa-bba4-6d691266009f"],
-Cell[573406, 14175, 481, 8, 24, "Print",ExpressionUUID->"47b6264e-e68a-449e-be61-a0020563224e"],
-Cell[573890, 14185, 1491, 33, 69, "Print",ExpressionUUID->"7ccc8f8c-30ce-4f24-8ebe-637914073509"],
-Cell[575384, 14220, 724, 15, 44, "Print",ExpressionUUID->"169157f1-b469-4181-a3f2-721374f9ff0f"],
-Cell[576111, 14237, 2509, 60, 145, "Print",ExpressionUUID->"b7713064-8fb8-4af9-8df3-33fe489865b1"],
-Cell[578623, 14299, 1076, 23, 47, "Print",ExpressionUUID->"40da8b0e-77a7-498c-9815-6bbd94a3687b"],
-Cell[579702, 14324, 479, 8, 24, "Print",ExpressionUUID->"18f3226e-ceed-4a41-b42a-b00fb3c21dbf"],
-Cell[580184, 14334, 1493, 33, 69, "Print",ExpressionUUID->"42e19531-5f25-4049-acbb-ede77021dcbd"],
-Cell[581680, 14369, 698, 15, 44, "Print",ExpressionUUID->"29b54d75-8355-4825-89cf-b0a82af3d4d2"],
-Cell[582381, 14386, 2519, 60, 145, "Print",ExpressionUUID->"4ddb2023-2dbd-4c69-809a-ca8f4924072a"],
-Cell[584903, 14448, 1078, 23, 47, "Print",ExpressionUUID->"e2405a3e-3346-4a67-8e0f-082e2a1c1e60"],
-Cell[585984, 14473, 479, 8, 24, "Print",ExpressionUUID->"1836b33e-e3c7-4199-9b81-e2015a181e8a"],
-Cell[586466, 14483, 1487, 33, 69, "Print",ExpressionUUID->"19c1749e-4318-40cd-8c1f-634ccd363b45"],
-Cell[587956, 14518, 724, 15, 44, "Print",ExpressionUUID->"f9795097-59ed-40b8-a501-c608cc61ec59"],
-Cell[588683, 14535, 2512, 60, 145, "Print",ExpressionUUID->"e01f1322-9e1b-4f10-b055-b39964960734"],
-Cell[591198, 14597, 1055, 22, 47, "Print",ExpressionUUID->"9a7cda4c-a42b-4fc4-9738-4c598c59c097"],
-Cell[592256, 14621, 481, 8, 24, "Print",ExpressionUUID->"8c53e228-f253-46e1-b107-abb2054d8228"],
-Cell[592740, 14631, 1490, 33, 69, "Print",ExpressionUUID->"42e9d2f8-8c27-4eba-8d51-240f932fa895"],
-Cell[594233, 14666, 724, 15, 44, "Print",ExpressionUUID->"6bf3d020-c0c6-457f-800e-881efbb216d6"],
-Cell[594960, 14683, 2512, 60, 145, "Print",ExpressionUUID->"3e2492cc-e27c-480e-b4bc-61f01d010eb1"],
-Cell[597475, 14745, 1070, 23, 47, "Print",ExpressionUUID->"3a268b9c-239d-4f9e-b153-2f8100bb3f67"],
-Cell[598548, 14770, 481, 8, 24, "Print",ExpressionUUID->"26f462bd-49c8-40e9-b41b-287292eb065c"],
-Cell[599032, 14780, 1489, 33, 69, "Print",ExpressionUUID->"f24b9f7e-b4ef-4152-8f84-835552e0e007"],
-Cell[600524, 14815, 716, 15, 44, "Print",ExpressionUUID->"0ae8029b-12cb-4a6d-a408-edb01885dfd7"],
-Cell[601243, 14832, 2512, 60, 145, "Print",ExpressionUUID->"c15cc78b-f724-4a53-9714-3c5f14a379e2"],
-Cell[603758, 14894, 1053, 22, 47, "Print",ExpressionUUID->"8e05b057-3ab4-4ddb-9db5-90d804dce19e"],
-Cell[604814, 14918, 481, 8, 24, "Print",ExpressionUUID->"b8370cdf-56c5-4a3b-b1ce-58ef441d08b7"],
-Cell[605298, 14928, 1493, 33, 69, "Print",ExpressionUUID->"e6f9e71c-facb-4d81-83a0-9a04bc6ecd0f"],
-Cell[606794, 14963, 723, 15, 44, "Print",ExpressionUUID->"5a435994-e554-455c-b36c-b7e6e5a9ae4a"],
-Cell[607520, 14980, 2513, 60, 145, "Print",ExpressionUUID->"510f5612-f2d7-49b1-afe6-562f0a6d4847"],
-Cell[610036, 15042, 1074, 23, 47, "Print",ExpressionUUID->"b8cc288f-6888-4188-ad98-af5b212ed1af"],
-Cell[611113, 15067, 479, 8, 24, "Print",ExpressionUUID->"44b11a43-a0c4-4236-8c75-c5cd2fb6e713"],
-Cell[611595, 15077, 1494, 33, 69, "Print",ExpressionUUID->"97409cc9-d5f2-4bf3-b941-215d2b7ec251"],
-Cell[613092, 15112, 724, 15, 44, "Print",ExpressionUUID->"3d284432-7c18-42f9-b9db-7d94c5928f7e"],
-Cell[613819, 15129, 2509, 60, 145, "Print",ExpressionUUID->"d255501c-93c2-49cf-8b24-c88491e3ba7b"],
-Cell[616331, 15191, 1051, 22, 47, "Print",ExpressionUUID->"2fad2389-c69e-4ff2-90e3-26f9f4c2d886"],
-Cell[617385, 15215, 481, 8, 24, "Print",ExpressionUUID->"91d6c1af-9130-40c9-8308-a5bc0bb3c78c"],
-Cell[617869, 15225, 1491, 33, 69, "Print",ExpressionUUID->"ebb0b86e-f9ac-46c9-a598-d6dc61a5a088"],
-Cell[619363, 15260, 730, 16, 44, "Print",ExpressionUUID->"c7fa4783-33bc-4f59-ba7e-44eb88a931c6"],
-Cell[620096, 15278, 2513, 60, 145, "Print",ExpressionUUID->"cae1298d-2777-488d-ac1c-13392adc53aa"],
-Cell[622612, 15340, 1076, 23, 47, "Print",ExpressionUUID->"5e040826-8754-4c0d-8bc4-acd4caed65db"],
-Cell[623691, 15365, 479, 8, 24, "Print",ExpressionUUID->"9b414a4e-d57a-42fe-8865-87ccd15039de"],
-Cell[624173, 15375, 1491, 33, 69, "Print",ExpressionUUID->"1d75e5a7-a578-40da-afdc-b96564f9c0f0"],
-Cell[625667, 15410, 724, 15, 44, "Print",ExpressionUUID->"cf5bd3e5-a2e0-4704-8e01-8089e902daaa"],
-Cell[626394, 15427, 2506, 60, 145, "Print",ExpressionUUID->"bdef0b17-51bf-453a-a755-4d72a249fded"],
-Cell[628903, 15489, 1076, 23, 47, "Print",ExpressionUUID->"f07e7b78-3c3f-4e60-af3f-39ce1d57447b"],
-Cell[629982, 15514, 481, 8, 24, "Print",ExpressionUUID->"7b5bb3e8-e033-4d22-93ca-b01bc69bdda2"],
-Cell[630466, 15524, 1491, 33, 69, "Print",ExpressionUUID->"025400ab-2269-4342-bb58-eb810247443d"],
-Cell[631960, 15559, 730, 16, 44, "Print",ExpressionUUID->"b2f904c9-e8bf-4ef9-b839-9520c156e38c"],
-Cell[632693, 15577, 2516, 60, 145, "Print",ExpressionUUID->"ee1d0ec5-7f0b-4c79-a793-b75e3f4c887c"],
-Cell[635212, 15639, 1076, 23, 47, "Print",ExpressionUUID->"b4bde86c-486b-4e80-bf92-302bca052fa3"],
-Cell[636291, 15664, 479, 8, 24, "Print",ExpressionUUID->"a0759080-7b13-471b-98c0-547afba38867"],
-Cell[636773, 15674, 1493, 33, 69, "Print",ExpressionUUID->"237925d2-9e2a-4911-9b85-af69444385cf"],
-Cell[638269, 15709, 722, 15, 44, "Print",ExpressionUUID->"b1f4995f-1c6d-4dc2-a002-42dac0a6b9a7"],
-Cell[638994, 15726, 2506, 60, 145, "Print",ExpressionUUID->"d21edca2-672d-40a4-899d-c0d87f5e89f2"],
-Cell[641503, 15788, 1076, 23, 47, "Print",ExpressionUUID->"5241701d-5d60-4e12-9ad5-2ba5e75b9d2b"],
-Cell[642582, 15813, 479, 8, 24, "Print",ExpressionUUID->"9a90fb53-1604-4f7e-b4fe-4e7d0abb7bd1"],
-Cell[643064, 15823, 1492, 33, 69, "Print",ExpressionUUID->"f6bfa683-738c-4063-862a-dde8bd75f2d7"],
-Cell[644559, 15858, 722, 15, 44, "Print",ExpressionUUID->"123e12d6-305f-4ba3-821d-e4fa98419c4e"],
-Cell[645284, 15875, 2520, 60, 145, "Print",ExpressionUUID->"48d9586d-f69c-4c73-be77-a2745ae72067"],
-Cell[647807, 15937, 1075, 23, 47, "Print",ExpressionUUID->"916de039-31d5-4e3d-b917-169e9defd713"],
-Cell[648885, 15962, 479, 8, 24, "Print",ExpressionUUID->"be28b7b0-3800-462f-9a02-8fe0e73f7d07"],
-Cell[649367, 15972, 1492, 33, 69, "Print",ExpressionUUID->"2620639a-7896-47ff-904b-98f4d21a1c6c"],
-Cell[650862, 16007, 724, 15, 44, "Print",ExpressionUUID->"8b8cb8cc-60fa-4c6e-ac66-a57ad22c7ac8"],
-Cell[651589, 16024, 2510, 60, 145, "Print",ExpressionUUID->"913c6daa-3ae8-4dd5-8677-900ec67c7a6c"],
-Cell[654102, 16086, 1078, 23, 47, "Print",ExpressionUUID->"8d75b9c3-447d-49de-9985-072ed395b20a"],
-Cell[655183, 16111, 479, 8, 24, "Print",ExpressionUUID->"436bf8e2-12dd-4b04-9336-1898bb7d737b"],
-Cell[655665, 16121, 1491, 33, 69, "Print",ExpressionUUID->"dce8750a-dab8-4f6f-88c0-af53785a5166"],
-Cell[657159, 16156, 732, 16, 44, "Print",ExpressionUUID->"a2231a3c-c53c-42cb-b1ab-c74b26553db6"],
-Cell[657894, 16174, 2514, 60, 145, "Print",ExpressionUUID->"6ebb0fd7-d38d-4745-aac3-569b061aa283"],
-Cell[660411, 16236, 1069, 23, 47, "Print",ExpressionUUID->"aebd6729-4936-42f9-acc6-96d097d766c5"],
-Cell[661483, 16261, 479, 8, 24, "Print",ExpressionUUID->"019484dc-74ef-4267-8c81-a6cfd020bbd2"],
-Cell[661965, 16271, 1493, 33, 69, "Print",ExpressionUUID->"8967c422-a049-4e30-a162-efeb8981b15d"],
-Cell[663461, 16306, 730, 16, 44, "Print",ExpressionUUID->"9422e104-4fd8-469e-b0a5-bb28377182dc"],
-Cell[664194, 16324, 2517, 60, 145, "Print",ExpressionUUID->"aa3ee911-2462-447f-bf58-152b389f833c"],
-Cell[666714, 16386, 1075, 23, 47, "Print",ExpressionUUID->"7f498179-9df5-4d46-8bcd-f1505e6c066b"],
-Cell[667792, 16411, 479, 8, 24, "Print",ExpressionUUID->"f3f99656-da3e-45bb-b1d2-4e3f71738a29"],
-Cell[668274, 16421, 1493, 33, 69, "Print",ExpressionUUID->"6c7e7653-cc5f-43c8-a71e-27d9ad1f2014"],
-Cell[669770, 16456, 724, 15, 44, "Print",ExpressionUUID->"d4a4c55a-c959-4701-b45d-a9d0226bd821"],
-Cell[670497, 16473, 2511, 60, 145, "Print",ExpressionUUID->"41e0eb57-d53b-454e-bdeb-4c7815c7b5d0"],
-Cell[673011, 16535, 1074, 23, 47, "Print",ExpressionUUID->"96a08319-ff3b-4ed2-b1eb-c08ea9029a24"],
-Cell[674088, 16560, 481, 8, 24, "Print",ExpressionUUID->"026bf25c-ff4a-4fe1-8945-e63569fd8fde"],
-Cell[674572, 16570, 1492, 33, 69, "Print",ExpressionUUID->"f635844f-85c3-4808-9881-5fe729682e1d"],
-Cell[676067, 16605, 724, 15, 44, "Print",ExpressionUUID->"e6518bb6-b010-41f4-aa20-fa963938ee98"],
-Cell[676794, 16622, 2504, 60, 145, "Print",ExpressionUUID->"3201f01f-e1ee-4e28-8463-aa4d39dd7a90"],
-Cell[679301, 16684, 1078, 23, 47, "Print",ExpressionUUID->"2e779f77-566c-4822-b68e-bd13b344b28f"],
-Cell[680382, 16709, 481, 8, 24, "Print",ExpressionUUID->"972d90ef-d944-4cfd-92ec-2597f98afed8"],
-Cell[680866, 16719, 1490, 33, 69, "Print",ExpressionUUID->"03e3475c-c39c-4dfd-b53d-43d269844b09"]
+Cell[753323, 19599, 12189, 339, 1102, "Input",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"],
+Cell[765515, 19940, 214, 4, 34, "Output",ExpressionUUID->"9ac205f6-a50b-4db3-a888-9abbe21d5167"]
}, Open ]]
-}, Closed]],
-Cell[682383, 16756, 236, 5, 90, "Input",ExpressionUUID->"02d4ac09-3871-468b-9144-5051c9782aae"],
-Cell[CellGroupData[{
-Cell[682644, 16765, 14994, 418, 1606, "Input",ExpressionUUID->"62a7e33e-04ff-40da-9729-f3e2630a583f"],
-Cell[CellGroupData[{
-Cell[697663, 17187, 799, 17, 44, "Print",ExpressionUUID->"085c72ac-4bbd-4d0b-aa59-ab1af81be48d"],
-Cell[698465, 17206, 2479, 59, 145, "Print",ExpressionUUID->"1a6b3b1a-cebf-4440-b260-a1a34c1d5232"],
-Cell[700947, 17267, 1112, 23, 47, "Print",ExpressionUUID->"f7a81e7b-2152-4960-9935-cf9a0ab88bec"],
-Cell[702062, 17292, 548, 9, 24, "Print",ExpressionUUID->"0dd16c5e-cbec-4ccd-857c-f37ab63a292b"],
-Cell[702613, 17303, 1542, 34, 69, "Print",ExpressionUUID->"a1d9b170-a415-41b6-8398-5a996d7c34cd"],
-Cell[704158, 17339, 792, 16, 44, "Print",ExpressionUUID->"b7463bfc-c6b4-4e56-9028-eb3d313f49e4"],
-Cell[704953, 17357, 2485, 59, 145, "Print",ExpressionUUID->"185a9a41-f87e-4edb-8611-f5c1b3bd5bac"],
-Cell[707441, 17418, 1112, 23, 47, "Print",ExpressionUUID->"866f2339-4b25-455f-92d2-d5720f904fe1"],
-Cell[708556, 17443, 548, 9, 24, "Print",ExpressionUUID->"0c96516f-aef8-4453-935c-11c09ce7112e"],
-Cell[709107, 17454, 1542, 34, 69, "Print",ExpressionUUID->"2bf3679c-e92c-4452-ade2-bc8b531f12ab"],
-Cell[710652, 17490, 799, 17, 44, "Print",ExpressionUUID->"a37a864b-8970-4466-8270-6843a1a2c2ec"],
-Cell[711454, 17509, 2476, 59, 145, "Print",ExpressionUUID->"1ee4cd65-dc4c-4aa6-a46c-fcc228f6a578"],
-Cell[713933, 17570, 1112, 23, 47, "Print",ExpressionUUID->"91f39d7d-6304-41f9-a3c0-147cf0c89191"],
-Cell[715048, 17595, 548, 9, 24, "Print",ExpressionUUID->"a06a58ce-ffb2-47bf-a66e-09aa606ccda5"],
-Cell[715599, 17606, 1540, 34, 69, "Print",ExpressionUUID->"633a345d-efd1-471d-a7b6-76f23a97d307"],
-Cell[717142, 17642, 801, 17, 44, "Print",ExpressionUUID->"ca05b981-a894-48d5-b372-d9e702436d8c"],
-Cell[717946, 17661, 2485, 59, 145, "Print",ExpressionUUID->"60c4361e-95f8-464b-97b6-7faaa7050d07"],
-Cell[720434, 17722, 1114, 23, 47, "Print",ExpressionUUID->"4e4c09d4-b20c-40fd-aca0-9e6f2c717226"],
-Cell[721551, 17747, 550, 9, 24, "Print",ExpressionUUID->"63a8fc92-6538-4374-8311-2b6357242366"],
-Cell[722104, 17758, 1542, 34, 69, "Print",ExpressionUUID->"d6d2273d-8736-4a15-80db-a169d355c27f"],
-Cell[723649, 17794, 793, 16, 44, "Print",ExpressionUUID->"7edbd199-4b77-49dd-91a0-aa91a0473b1d"],
-Cell[724445, 17812, 2476, 59, 145, "Print",ExpressionUUID->"60efb191-c6d6-41dd-be95-a9365c79858f"],
-Cell[726924, 17873, 1114, 23, 47, "Print",ExpressionUUID->"0ccdaa53-5d35-4eee-9909-fac2671c83d0"],
-Cell[728041, 17898, 550, 9, 24, "Print",ExpressionUUID->"41d52353-2a2f-489d-a0c2-d95b676035e3"],
-Cell[728594, 17909, 1523, 34, 69, "Print",ExpressionUUID->"7d94db85-6ca7-4dae-97b1-c10018cfb554"],
-Cell[730120, 17945, 799, 17, 44, "Print",ExpressionUUID->"9b4253b6-65ad-40e0-81d3-c74150917422"],
-Cell[730922, 17964, 2483, 59, 145, "Print",ExpressionUUID->"dc5a1f3a-a74b-4d42-b663-eec4b58258d1"],
-Cell[733408, 18025, 1114, 23, 47, "Print",ExpressionUUID->"eac9ece2-0373-4123-9a1f-904b070d6a7f"],
-Cell[734525, 18050, 550, 9, 24, "Print",ExpressionUUID->"044585f7-b5e0-44a6-b580-cc115abab28b"],
-Cell[735078, 18061, 1524, 34, 69, "Print",ExpressionUUID->"d6f694a2-68fa-46d9-be57-a7abeecf7d99"],
-Cell[736605, 18097, 799, 17, 44, "Print",ExpressionUUID->"4a80f206-1e47-4ed3-9cc5-b0bf3639085b"],
-Cell[737407, 18116, 2460, 59, 145, "Print",ExpressionUUID->"5f301b68-0e50-4d8d-ad30-49a628fc6442"],
-Cell[739870, 18177, 1114, 23, 47, "Print",ExpressionUUID->"540fc933-e9ae-4ea5-b24b-4b865c2dd4b9"],
-Cell[740987, 18202, 550, 9, 24, "Print",ExpressionUUID->"90323ce7-f023-4e1b-bad4-6867348149e2"],
-Cell[741540, 18213, 1541, 34, 69, "Print",ExpressionUUID->"65e18f3f-65b7-4cdc-bb51-16c3882b96d8"],
-Cell[743084, 18249, 799, 17, 44, "Print",ExpressionUUID->"8e809a3b-7462-4767-a8c2-a7b1973d1783"],
-Cell[743886, 18268, 2467, 59, 145, "Print",ExpressionUUID->"6e49c90f-d3c1-4160-b8e6-85772cbc8622"],
-Cell[746356, 18329, 1108, 23, 47, "Print",ExpressionUUID->"0a875fdd-72ae-4f56-9068-d31ba4d8598c"],
-Cell[747467, 18354, 548, 9, 24, "Print",ExpressionUUID->"d215a471-b2c4-4af9-8813-a3a6206f6430"],
-Cell[748018, 18365, 1540, 34, 69, "Print",ExpressionUUID->"dcc84afa-287c-470f-afc2-f8dbc6c7216e"],
-Cell[749561, 18401, 793, 16, 44, "Print",ExpressionUUID->"664208c0-b266-462c-b10c-64f258d2dd8c"],
-Cell[750357, 18419, 2463, 59, 145, "Print",ExpressionUUID->"d08fbbe8-b32d-403c-9268-0d853ebca0b0"],
-Cell[752823, 18480, 1112, 23, 47, "Print",ExpressionUUID->"8488522a-1a73-4ae9-bd0c-e4c7fe305ddf"],
-Cell[753938, 18505, 548, 9, 24, "Print",ExpressionUUID->"34643216-4ac5-4435-b394-fdf58ac44e10"],
-Cell[754489, 18516, 1538, 34, 69, "Print",ExpressionUUID->"52951c7b-2230-4cc2-aa3e-4259cc5bf9e6"],
-Cell[756030, 18552, 795, 16, 44, "Print",ExpressionUUID->"8d419c04-18aa-4893-b305-9151b85cb730"],
-Cell[756828, 18570, 2473, 59, 145, "Print",ExpressionUUID->"015c47f0-d5ec-4126-9c2a-40810b1a5f07"],
-Cell[759304, 18631, 1108, 23, 47, "Print",ExpressionUUID->"4f3c6b86-7440-4563-a1af-4cea8021b912"],
-Cell[760415, 18656, 548, 9, 24, "Print",ExpressionUUID->"53100027-8848-4f52-97bc-9e927b2bb65f"],
-Cell[760966, 18667, 1558, 34, 69, "Print",ExpressionUUID->"0e792d05-6284-4d3f-951f-0fc6cc4f30c6"],
-Cell[762527, 18703, 783, 16, 44, "Print",ExpressionUUID->"e0249036-6ac2-489d-b047-6574758403e6"],
-Cell[763313, 18721, 2466, 59, 145, "Print",ExpressionUUID->"21d90454-6329-43e0-83fe-4dcd136c6522"],
-Cell[765782, 18782, 1114, 23, 47, "Print",ExpressionUUID->"a483b267-9cbe-4a65-ac34-fb3fb43a1a58"],
-Cell[766899, 18807, 550, 9, 24, "Print",ExpressionUUID->"be978b94-1c3b-42e7-8987-1dfa689818f6"],
-Cell[767452, 18818, 1559, 34, 69, "Print",ExpressionUUID->"37d296f4-a617-493e-9d85-5c650705e380"],
-Cell[769014, 18854, 799, 17, 44, "Print",ExpressionUUID->"113e1a65-5377-4d30-8d60-7e3e498ff2b8"],
-Cell[769816, 18873, 2471, 59, 145, "Print",ExpressionUUID->"17956b63-991c-4cbb-ad5a-15f85f9cffaf"],
-Cell[772290, 18934, 1112, 23, 47, "Print",ExpressionUUID->"6ac8eb18-d955-4fa5-b32d-80aee527ad1b"],
-Cell[773405, 18959, 548, 9, 24, "Print",ExpressionUUID->"efc67093-4a34-4eff-9672-9f24cc7302c2"],
-Cell[773956, 18970, 1558, 34, 69, "Print",ExpressionUUID->"38368530-973a-4e3c-949b-6beb4ee33509"],
-Cell[775517, 19006, 799, 17, 44, "Print",ExpressionUUID->"4c10d3b4-882f-485c-8183-b40a9c7ef0af"],
-Cell[776319, 19025, 2469, 59, 145, "Print",ExpressionUUID->"fe9a9b62-9e60-43a0-a07d-22c84c12c116"],
-Cell[778791, 19086, 1112, 23, 47, "Print",ExpressionUUID->"a8c42163-6f9d-4dfb-91ae-eef84d93433d"],
-Cell[779906, 19111, 548, 9, 24, "Print",ExpressionUUID->"936c1e59-31b1-4cab-87be-3c95e1849b1a"],
-Cell[780457, 19122, 1557, 34, 69, "Print",ExpressionUUID->"6badad54-c523-478f-bea6-477ceda4ea1b"],
-Cell[782017, 19158, 799, 17, 44, "Print",ExpressionUUID->"4ea52e9b-2fc5-491d-8c5a-42bca7c3e18d"],
-Cell[782819, 19177, 2471, 59, 145, "Print",ExpressionUUID->"67ef63cf-4a53-424b-91e6-334807071608"],
-Cell[785293, 19238, 1110, 23, 47, "Print",ExpressionUUID->"eeb13eab-907e-47fb-a4af-7917dd744b06"],
-Cell[786406, 19263, 548, 9, 24, "Print",ExpressionUUID->"a157361d-e71a-4950-8920-cc388b554f12"],
-Cell[786957, 19274, 1558, 34, 69, "Print",ExpressionUUID->"c7ee3859-2d57-4cd0-9ccd-991456033dfc"],
-Cell[788518, 19310, 799, 17, 44, "Print",ExpressionUUID->"e5436042-2e1e-4382-b313-88b7f8a4aefa"],
-Cell[789320, 19329, 2461, 59, 145, "Print",ExpressionUUID->"d1607581-9595-49cb-b408-1268aa948804"],
-Cell[791784, 19390, 1114, 23, 47, "Print",ExpressionUUID->"76a9080c-1851-4c46-a1b7-bfdca0014a8a"],
-Cell[792901, 19415, 548, 9, 24, "Print",ExpressionUUID->"dbe1cc49-62fc-4038-8233-240c5fa2aa37"],
-Cell[793452, 19426, 1561, 34, 69, "Print",ExpressionUUID->"a5a2a931-908f-4e0b-a401-e821650bfd58"],
-Cell[795016, 19462, 801, 17, 44, "Print",ExpressionUUID->"de7c71b1-4cfd-4084-a512-0bbe7d682222"],
-Cell[795820, 19481, 2474, 59, 145, "Print",ExpressionUUID->"5b036483-d79a-491e-a024-18768381e179"],
-Cell[798297, 19542, 1116, 23, 47, "Print",ExpressionUUID->"2eb03c22-75be-49c1-a81d-9557ae12eee7"],
-Cell[799416, 19567, 548, 9, 24, "Print",ExpressionUUID->"7e2706a8-86a2-48ed-9aa7-0632f75d5df3"],
-Cell[799967, 19578, 1559, 34, 69, "Print",ExpressionUUID->"364ead42-d260-4f73-b9a2-0f33705def56"],
-Cell[801529, 19614, 799, 17, 44, "Print",ExpressionUUID->"f542b9c7-3343-4573-bff3-5ed4e0ad92da"],
-Cell[802331, 19633, 2461, 59, 145, "Print",ExpressionUUID->"a23fd426-7e02-4bf1-a9d4-508aedf9c7fd"],
-Cell[804795, 19694, 1116, 23, 47, "Print",ExpressionUUID->"a285d1d5-dcfb-493c-9939-4ccb3880b4c1"],
-Cell[805914, 19719, 550, 9, 24, "Print",ExpressionUUID->"ef0fc7d1-10a3-4d89-919d-85dfe41c49d2"],
-Cell[806467, 19730, 1559, 34, 69, "Print",ExpressionUUID->"3c0ad538-32f4-4345-ac28-80ca11748e43"],
-Cell[808029, 19766, 799, 17, 44, "Print",ExpressionUUID->"a4fd086a-788f-4ed1-84f8-8b7e0f7662f8"],
-Cell[808831, 19785, 2470, 59, 145, "Print",ExpressionUUID->"de1b6c3b-dd06-494f-9375-021c3c889ea4"],
-Cell[811304, 19846, 1111, 23, 47, "Print",ExpressionUUID->"ee6d9dde-8943-4d2a-bfc5-ccd85086e01b"],
-Cell[812418, 19871, 550, 9, 24, "Print",ExpressionUUID->"18309103-f6b6-4dec-9ac1-d90bf9f6fa69"],
-Cell[812971, 19882, 1560, 34, 69, "Print",ExpressionUUID->"e1692531-e85a-40c0-ad8f-c764ee05dda6"],
-Cell[814534, 19918, 799, 17, 44, "Print",ExpressionUUID->"98de7822-108d-44bb-807e-524cef58cd68"],
-Cell[815336, 19937, 2455, 59, 145, "Print",ExpressionUUID->"2aeb2760-edf7-4640-ac69-992b1e2e26cd"],
-Cell[817794, 19998, 1114, 23, 47, "Print",ExpressionUUID->"1797c3e8-30be-44a6-9fb5-95eca67a5e16"],
-Cell[818911, 20023, 548, 9, 24, "Print",ExpressionUUID->"717ba9e2-a62e-4423-9ee3-d1de1c1e0239"],
-Cell[819462, 20034, 1558, 34, 69, "Print",ExpressionUUID->"de3be9e8-fe76-4070-8965-513b3fd33649"],
-Cell[821023, 20070, 793, 16, 44, "Print",ExpressionUUID->"f0f7bc6d-2b21-4d27-adea-9cef1ec9eabd"],
-Cell[821819, 20088, 2474, 59, 145, "Print",ExpressionUUID->"4fe2fd11-826c-42f1-a44d-3d79e267c5d1"],
-Cell[824296, 20149, 1114, 23, 47, "Print",ExpressionUUID->"1ecf21be-22c8-4401-8ac0-76c81933df08"],
-Cell[825413, 20174, 548, 9, 24, "Print",ExpressionUUID->"2a6c192c-b835-403d-84b0-6289b0bbc1c5"],
-Cell[825964, 20185, 1553, 34, 69, "Print",ExpressionUUID->"9eb91b73-09fd-4201-9ed2-1107de2e220c"],
-Cell[827520, 20221, 799, 17, 44, "Print",ExpressionUUID->"72f84ab9-9c20-4269-bcbd-196106eff57a"],
-Cell[828322, 20240, 2459, 59, 145, "Print",ExpressionUUID->"12ba59d2-107f-436e-862e-5e6e8e1f7682"],
-Cell[830784, 20301, 1112, 23, 47, "Print",ExpressionUUID->"de1364f1-bf4a-4124-87aa-51399677497c"],
-Cell[831899, 20326, 550, 9, 24, "Print",ExpressionUUID->"89a96830-8fa1-4d46-ab89-76bd88d3141a"],
-Cell[832452, 20337, 1554, 34, 69, "Print",ExpressionUUID->"9aa68817-e082-4f0e-975a-a7f56f82525f"],
-Cell[834009, 20373, 799, 17, 44, "Print",ExpressionUUID->"5df38a67-a0ab-4b33-a864-113c7d454db1"],
-Cell[834811, 20392, 2469, 59, 145, "Print",ExpressionUUID->"2dd87a83-e80f-40f5-97b1-838c374ce64c"],
-Cell[837283, 20453, 1112, 23, 47, "Print",ExpressionUUID->"cec9acb0-a8f7-4eab-8371-7ffbab1a3e47"],
-Cell[838398, 20478, 548, 9, 24, "Print",ExpressionUUID->"b4605c1c-22cc-41f6-a448-68e0accec6ff"],
-Cell[838949, 20489, 1560, 34, 69, "Print",ExpressionUUID->"dbad07b3-76dd-4a00-9d02-2438e438f01e"],
-Cell[840512, 20525, 799, 17, 44, "Print",ExpressionUUID->"e4e5f3ae-7eb5-408a-8341-d435b4931e28"],
-Cell[841314, 20544, 2463, 59, 145, "Print",ExpressionUUID->"c41d8138-8dc3-434b-bcc6-241fd8bd908b"],
-Cell[843780, 20605, 1112, 23, 47, "Print",ExpressionUUID->"1f4cbf05-631f-4b02-8558-ddb1160625e5"],
-Cell[844895, 20630, 548, 9, 24, "Print",ExpressionUUID->"2d76fdaf-7109-4ab7-9442-c33e4455db1c"],
-Cell[845446, 20641, 1559, 34, 69, "Print",ExpressionUUID->"be175467-f7d5-4d05-a597-87c87d397ba0"],
-Cell[847008, 20677, 793, 16, 44, "Print",ExpressionUUID->"00135825-cbae-4e1a-9048-fbae9952c087"],
-Cell[847804, 20695, 2465, 59, 145, "Print",ExpressionUUID->"bce24f7f-e06a-45cd-931b-5b3a08825b9a"],
-Cell[850272, 20756, 1110, 23, 47, "Print",ExpressionUUID->"972b1bec-f062-495b-a885-51628920bf2e"],
-Cell[851385, 20781, 548, 9, 24, "Print",ExpressionUUID->"a6beae61-4109-4459-a371-edab0588614b"],
-Cell[851936, 20792, 1559, 34, 69, "Print",ExpressionUUID->"780fc576-9c3f-488e-b264-007f6f67d8d5"],
-Cell[853498, 20828, 799, 17, 44, "Print",ExpressionUUID->"f2a70d0b-dfa2-44b7-ae20-bc434197e751"],
-Cell[854300, 20847, 2457, 59, 145, "Print",ExpressionUUID->"e06d3b76-6615-4db4-8baf-e8807d41763e"],
-Cell[856760, 20908, 1108, 23, 47, "Print",ExpressionUUID->"45eb3d38-b8a7-40b5-bc54-704551d5b53d"],
-Cell[857871, 20933, 548, 9, 24, "Print",ExpressionUUID->"a8ed04a9-e8be-4d3b-91b1-be5a04b1fed7"],
-Cell[858422, 20944, 1561, 34, 69, "Print",ExpressionUUID->"4c2db5a6-bc71-4ac6-b46e-2d7e78f1ff82"],
-Cell[859986, 20980, 801, 17, 44, "Print",ExpressionUUID->"6f989deb-daaf-4054-9c35-d763ecfa4d7e"],
-Cell[860790, 20999, 2473, 59, 145, "Print",ExpressionUUID->"ed883f1f-223f-4759-be82-8ad66203ef44"],
-Cell[863266, 21060, 1114, 23, 47, "Print",ExpressionUUID->"c4c75c77-032c-4944-a7a0-3ef73b1e9111"],
-Cell[864383, 21085, 550, 9, 24, "Print",ExpressionUUID->"2a011464-744e-4dc3-88df-2a90ea9832e6"],
-Cell[864936, 21096, 1558, 34, 69, "Print",ExpressionUUID->"c98b6926-8df3-4db3-9612-5631608420c4"],
-Cell[866497, 21132, 777, 16, 44, "Print",ExpressionUUID->"6de47970-9d47-4667-b187-b25fe63d715b"],
-Cell[867277, 21150, 2463, 59, 145, "Print",ExpressionUUID->"7ede81cd-4307-45aa-adbb-eaaab3005b2f"],
-Cell[869743, 21211, 1110, 23, 47, "Print",ExpressionUUID->"4a741212-b4fe-4aab-8eb7-43d2ba9e9ae9"],
-Cell[870856, 21236, 548, 9, 24, "Print",ExpressionUUID->"0b7bc1c0-5b24-4ea0-8637-8fe79ffe6855"],
-Cell[871407, 21247, 1559, 34, 69, "Print",ExpressionUUID->"ba27db0d-09c6-4a6f-ad9a-0715713cedf0"]
-}, Open ]],
-Cell[872981, 21284, 160, 3, 34, "Output",ExpressionUUID->"857b3d19-282d-49d3-9f01-2f9fb4c18984"]
-}, Open ]],
-Cell[873156, 21290, 257, 5, 115, "Input",ExpressionUUID->"cdd70ba3-988d-4f3f-a994-fa14e0bfd5a8"],
-Cell[873416, 21297, 473, 13, 52, "Input",ExpressionUUID->"65439f17-15a8-4ca3-afa9-deed97ceee64"],
-Cell[873892, 21312, 523, 14, 52, "Input",ExpressionUUID->"49341df6-9b3d-4c00-b135-1380553e00b2"],
-Cell[874418, 21328, 479, 13, 52, "Input",ExpressionUUID->"2c82f1ac-0cf1-40bd-87e5-22201b825305"],
-Cell[874900, 21343, 971, 20, 52, "Input",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
-Cell[875874, 21365, 527, 14, 52, "Input",ExpressionUUID->"d4d23c76-eedd-48b8-bd17-8b5fe5d0b211"],
-Cell[876404, 21381, 556, 14, 52, "Input",ExpressionUUID->"0141ed4e-e691-4f2f-bb31-7d2309eea73f"],
-Cell[876963, 21397, 539, 15, 52, "Input",ExpressionUUID->"a6df33d2-21de-4140-bfbf-b2fee86951b4"],
-Cell[877505, 21414, 416, 11, 52, "Input",ExpressionUUID->"1c110370-8aeb-47a1-b2f1-0dca127d76d3"],
-Cell[877924, 21427, 487, 14, 52, "Input",ExpressionUUID->"5be59de9-e61f-4004-b8ab-e3748a123590"],
-Cell[878414, 21443, 1101, 31, 157, "Input",ExpressionUUID->"558af4d9-aa2b-44e1-9183-fe4bcdc64b7d"],
-Cell[879518, 21476, 3010, 80, 304, "Input",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
-Cell[882531, 21558, 2574, 74, 304, "Input",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
-Cell[885108, 21634, 2572, 74, 304, "Input",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
-Cell[887683, 21710, 2574, 74, 304, "Input",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
-Cell[890260, 21786, 2574, 74, 304, "Input",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
-Cell[892837, 21862, 2574, 74, 304, "Input",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
-Cell[895414, 21938, 2548, 73, 283, "Input",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
}
]
*)