(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 248159, 5849] NotebookOptionsPosition[ 234492, 5645] NotebookOutlinePosition[ 234924, 5662] CellTagsIndexPosition[ 234881, 5659] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["QED calculation: Peskin Sec.\t5", "Title", CellChangeTimes->{{3.536036981997404*^9, 3.536037029033853*^9}},ExpressionUUID->"359f1b74-52b3-43ff-b66d-\ 75675aeb5d61"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["e", "-"], SuperscriptBox["\[Mu]", "-"]}], TraditionalForm]], "None",ExpressionUUID-> "e1f43486-ddc1-460c-82bf-048787afe06a"], Cell[BoxData[ FormBox[ RowBox[{"\[Rule]", RowBox[{ SuperscriptBox["e", "-"], SuperscriptBox["\[Mu]", "-"]}]}], TraditionalForm]],ExpressionUUID-> "18fbd80e-92bc-45ba-b0a5-20ee2bbdaa41"], " (QED): Peskin P.153-54" }], "Section", CellChangeTimes->{{3.536037131534835*^9, 3.5360372263613586`*^9}, { 3.536037424335751*^9, 3.5360374299097357`*^9}, {3.5360374678636017`*^9, 3.536037467995038*^9}, {3.536045676079969*^9, 3.536045693740925*^9}},ExpressionUUID->"d0a6f97e-be56-47b4-bb77-\ 372047c8d34f"], Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvX1MW1e2939+P8t/EBADEkoEEqBg/Rw0CJHWkkOQY9pKQKYyeXkKTadO eluTZGKqdpyot0Rpa9qJlblTN7RWmqmc3si5k7jtKE7V+OYpTltMA1QpJClW JvjS2G2AFHDwg4Fg8vgEOP7tc44xfn8Bv4BZnz+QOfbZZ5+3/V1r7bX33ij6 8/8SMTAM2///YNj/+n8xjPzsBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAKD2+4/sBPJrgUAAAAAxJ/5PvkWJlfaPR2/Q7S2tsav 8EuXLsWvcAAAACC1sPdIOVj2i+qRx3E6AJK8mpoa979Go/HgwYMSiSTC3bdt 23aQItgPUOFKpXK5tQQAAADWAnPXpZsy8sVfT8Wn+Js3bxYXF9vtdvcW9Fko FGIYFmEJSNHWrVsX4vdjY2MFBQVITJdbVwAAACDVmeuRbmLWKO464lQ+h8Px d8SQo4e2R1UIUj1P6fShpaUFuYRLrCIAAACwVnDcVdRk1KqG45PKgvyvnJwc f7VC3l/kEU7nguqF+AE6BPoBcvqWUksAAABgrTCkruOItJY4lX7s2DHPHj2a gYEBpFB0fgvSqZs3b4ZVK09fDympkgL5d56/Qb4e9O4BAAAAJPhd7Yk3JLIv DDa7peeivOl1SfM/esZnnc45+wNr/MYs7N6920ebENeuXUMShsTr0qVL6AcF BQVho5206tE9d6hA9Dk3N9fHW4wqQwYAAABIXRx3FS/skCmlVesZmRufkfxX l7H3soSbXXt2MCK9s+qlO3mhqBZrBgPuibTJ3/86cuQIUrH+/v4//vGPTkrR BAJB6BrQqjc8PKzVajMyMpqbm/1/g1Qvqr7CEDx8+BDVraysLCalAQAAAInl rvL5f9dN9SurcnL2XrRSSofrxJnMXaqR2Qh2J3DbfXMo7lnscwH3RFLlr3o1 NTU5OTnoLx3YHBgYiDDCeezYsXXr1vmHTGlkMtnyVQ+5k8hhpKuHtG+ZpQEA AADJYOa+eQSfaRWv3yjS0voyP6nZl45VKcx4XA8cUPXQxgKKyLvhkAxhC6Ad AyZztrS0LFn1kNgh0SwuLqYPEWJsIAAAALAqoEYouJ27qa6mMixtj9o65yTG es69JxaUZlUpA4cpnRMGzSeKUHyiMUwE3BOplY+0Xbp0iU62pHv3bt686aQy MENXntYj5BUiPUIfAg5SiDbCiQ7a2tqKPLvc3FzMA5A8AACA1Q9uUlQzymSG eeo/x7Umdnq28KIVfSashvbvtU1cjKcwB97XYTG0aVSng6vep1rjZMA9a2pq fLJZkEuFpNC5kMmJVO/8+fPHjh2jv0VSGHDuMuTf0SMXkFTR0c4jR474/Cb0 /C00SG1RfYRCIV2IP7t37w5dAgAAALAaGFLX5S7o2uMR9YvZWTuUJvfIdNys qAqueksHeVI+OkJPL+ZcUD3k+qEt7mlV3D6d+/cPHz5EJdCShDQUqR4qk/4X 7Ui7ijSRhEyRpHoGS31ABYb1OgEAAIBVANmpx8AYxXXHlUppfWlJnbzrgUf+ ZrxUD6kMEiPPLcjVcksVPaGK59zR6PfIC/PUMic1IxkN8gqdVIwUOYzoX/TX LZfIiQs9eYsb9Et0UH/JQ/WMcpD73LT5+lWdL1d/ME/D6hUAAABJherUEyjv Wc0/fKvT3xryTbmMl+o5qcELPioWGuQJRvV7mg8++CDs8Ac3w8PDPpKXkZHR 398f5TEterlE7E/jh/rxwBmtAAAAQEKgOvU2SXuCNsZxVD3kkUXeWUZ320V7 CLRXcXHxtWvXIvw98jHp6azdoEpGe1AAAABgRYKPdir2lmZirIZzfeNBYm8O o7wyTqrnjGYloEuXLtFhzKiQUETyS6PRiFS1oKAAHcid0EIPlg8PbhsKPjIR AAAAWBm4xx2cOqMzBRqeZ9HL9nBy0zAGq1pyrnd6PuY1oFNQYl4szcDAgDsF NDQffPABcvGEQiHdf4fkFUkechLD74n/1qlo2FKy9TnR3mrurve7bcusMwAA AJA85uyWe65JVn6xxG9OziRCJ9Ww2WzPzBl6mYbwTigxdLmhJI37dgc5bSlu VtQUNnVEMqMNAAAAACQe5GYiFy+gP4gkL1za5/yU7tV8LF+oGXHi4+YulZi7 VdJmjVNVAQAAAGDJ0C4eh8NZxjLr1CQ2WFYRp4LHq64Tn1D3jMR3EjcAAAAA iJ7m5uZYTC9mVPAymdXKgVQM/AIAAAApwMDAwO7du3Nycjx78ZYKOadNhki7 EAYlcMvtH4zBUmEBAAAAIHHY7fYPPvgA6Z07UXPZzFk1L2WzXteNzzqJ6aGu 08Ky7c2dD0D1AAAAgORy8+bN4uLi3NzcWLh4HhBj3crXBdwnSjkVtY0KnWkS JA8AAABIIsjFO3bsGEYtOwtLwQIAAAApDHLxCgoKkJe3hNk7AQAAAGC1MDY2 JhQKaRcPVggCAAAAUpj29nY2RfRrJQAAAADAqsG9sOzu3btjlKgJAAAAACsR etnZgoIC5Osluy4AAAAAEC/ciZrI0YNePAAAACCFodfFi2rpWAAAAABYjZw/ f37dunWw3DkAAACQ2ty8eRO5eEjyYjzdCgAAAACsMJRKZUZGRmVlJYxNAAAA AFIYu92+e/du5OK1tLTADGMAAABACtPa2pqTk7Nt27aBgYFk1wUAAAAA4sXY 2JjbxYOxCQAAAEAKo1arCwoKampqYBJpAAAAIIWhx+Ll5uYqlcpk1wUAAAAA 4ohMJlu3bt3BgwchawVYMujhQQ/Stm3bJBJJgruD0XEPUrS2tibyuJ4MDw+3 tLSgmiC7EboGAGDFglw81EwVFBQksbkAUgDUzrPZbNTm37x5E6leTk5OwoQP HVQoFJ4/f765uRnDMPQhMcf1BL1HGRkZSPWuXbtG9xEkvg4AAIRFrVbTY/H8 XTxkuMIAPSBykNghxaHnMUAKiD4nLFSOVObYsWP0520UiTmuJ+hk0SnTQo8M SPQZZu0DgBUFapeQeRxihjHUjHA4nATXCljJoMb85gJarRa5VGiLkoJu7T/4 4AM6sjc2NuZWwBiCjkIfzsdIQ/qCXC36M3po0YMd2+NGAjpxZEPSp0+rnrtK AAAkHTpRE7UPIV5M9P6i30BmC+AGGUjokUDtOXKmDi5ABzN9DKTdu3fHw2RC altcXIwqECwK0dzcjAy55KYfoxcHVRIsRgBYISBruaamJiMjI5JJpNFv0Pub gFoBqwX08CDR8UnVoBdbdP+7myJO6RxIZ5HyBvwKPa65ubkRSh7yFuMhjsjJ RSYBukqwzjIAJB16XTw6UXN4eDjCXVAL09LSEu+6AasF9Pz4G0L05OT0Z9r7 Qx8uXboUj44tdHR0CP/tSqUSaQ16sNFDG0mA4oMPPoh59x9SUlQH2p5Epw/C BwBJBL2A6H3MycmJNmKJJC+YaQ2sNdRqNXL0jhw5Qv+LxA5pB/rQ399Pb/y3 f/s39AOBQFBZWZmRkdHe3h7bCqADofJRNeh/3cabVqtF25HyouOy2ew//vGP YYtqbm6ObRASVaawsBCdNRJlVI0QYVgAAOINUjpkoi9tRk3a3UtKKjiw0kBe jGeOCvLpPI0o9KigBh8ZV0KhEP1Fn2Pu7KBD03mSyKtCR6GVjj4ux4NIfEyk ert37w79GzpciQpsbW1FZaIPdPAWbUfKi75Cn1E16Fgu/QO6Rw9VDLoGACAp TExMIMMbvYPoHV9yIWhfZLuG/RmyddEvY27eAysHulOvgAK5VEtLU0SaxQlH MCsL6SxSEyQ6ubm56Dd0fZaWKome1YCRUk/QD1paWpDniI6CjoVqjgQuJycH 2ZDotULHpQdogE0IACsEZBhnZGSgVmKZ3SvoZQ+bF4cOgQ5EZ7/AaPeUBLXw 6DGgG3/0MCAvb8mh75vhCOYkoqcLiQ6qA21c0TWJvP6e5dNuKdoYIgBC+2tI 39FB3ck5PiPQEzksEVhVEPj9X+/jRGIPOjthseKJPeQKAb2hyCqmXbyYpNLt 3r0bGbfBvkVGL2oPaYsXNSZhA0fAagQZNuiJcg8GpydgoT8nJkufHgNIBw+X IDSotugpRZpFJ+TQRdEDMWgCzqZCe3PuM0WPumeMl/4XfD3ADwI3qfbtOWOa X9iA24aMN7p6zLbIdXAJuzgdpjON+y/0rzXhQ69kMUUME7Pp/pRgBSKZc6fD 0T0ssTousHJAehdwvhEkQFGNCkfihUTkYEgCBi2RuKAKoN3pWVCW6WFF0q/n Pqg7fNHS0kLXgf6Xti2XUw0gNZnulJbXyu8sehzE0Od7i9IxrEiss0VYRgS7 EPjgFyJWdlH9p0a3Mjq6ZeX8w22WBDuZyYLu1qenW4n5aCk2m+22eD2h56Fy m7ugeqkK0oicnByfjaj9R+5SVPYVvXrjkSNH6FmaJQvQG9HzgyyogDF5pK10 BQYGBtAjh3ZHH5Y8+iCSfj0n9Ty75xlz+o2+R7YlqhX61u0CAwASnruK7RtE lye9Ns5Z1XvSGNUKU+R+WJhd5k2f7ijdIdNd/05Wu2nHpwt+5fyU7tWCsuZu R+rrHmp5UPsTv6XP6elc/LfT2TLuf+mct3hUAEgW6IlCzg4dGPTsfbt06RKd 1piYarhH6iHdpOd5phc4WFppEaoenV3j/he9Aj7RTmTvIclzO56eXY10usvS qgesYh59JyngNHV5i57T3iPlYJukPXORFxRml3nL7WvGcVLbiHHjtdsWdzR1 3iDf8oRYl8rDRdHLRY8PQm9f/N6y4eFhZGn7GOF0rwfd8UHrHfocSWMCrCLo p4sGyQ3mAfo3YdN/sdlsrVZLf0aahQ6NnrclL4wVoeqho7jzn+nRgp5ZyqhK ubm56K+7GnSElv4MS1WuAHDb0C/mIRvpLBGT5h86bgxNx9sFmu1qKixs6pr1 3kr0Kfg5hU0ds4F3CsQSdnExY5BV5Pg6m6kDvWjC7373uwQMGfjjH//o01DQ o4PR9naKI0eOQEobkBiWGdOIUPWQSekprD4djsjrRHagZ8apO9OGzr2BCaiT CuHoPl4jqKvKL6p6/dibDQcOH39HtKV838Vf5sPvu2QcRnllulDjqzhWdV1a vlAz4iTGuk81cHPXs3YoekMHIUPvQjzolD2bx8guqW/pGn+Mm75479ydxdwZ nTjTX3lXP569eIk5Inqdfcbe0nkF7r5+OuEBojrAymd4eDjmE6ahMt0JP+jV 8O8GBRLLb5qXDqiGf1YJ1jO5b3eMIw0g7NqGjILD+keROHxWvXQnLxTVYs2g 314jGuHGTdLr3lHJ+UnNvvS0Peqxkc53X96vutb65hMY41nl4OPgRw+zy1zv ifLSZ0VisfjQc1xW0UbWPvXgYvffXI90E3OXaiSlZA8JTVx78QJCxzM9LVta 5twxLlhME1jL0EYg/VkoFCKjFG2BecmSh6Vd0zU+29FUmMNX9FE6R0kJVvWR wdSjPXuy5UtjKG+LwG33zaG4Z7H7d7kZFbxcnsLHx5/qairD0ipe+ZOQGlZA 4ObvPtffC5nXEmYXYnrk/gSp47ilTVpd29z5wOtMzAoeVqUwp8gIBiRztIuX lECiz9pD9GtO6+ClS5dQrSCkA6xZ3N3ryPajk3+W0/MIxATCpOAztsoMM9R/ MwbZVixtm+jY64fqOFlx0YVAqjd/S1aWTnaEZ++Q/zgS0SEj2oXATf/YW7bd V/KcKaV6tLKgdypZ4oIE13NwFj1ymc5Vg8X4gLUMHQmRyWToJaXfiPPnz8Oy C8mGSv5393DN31FUZqfVqoaJSHRhwqD5RBGKTzSGCb+9htR1G7ny254yRAwo q5kbhaofey++VsrcJLocfsmbCHYhJW8ff4+8y0/yyCxOWVmqqB5SmZivTx0V 6EX26dpzT/ybsO5FAFiBhJ7JAUgSVp2YjfEUZvIz4ehuLmNymzrHyf/Cq57D YmjTqE4HV71PtUb/NEkyMpkh0nokN1DKm7ZHbZ1zErfl3IxMsQ6f71e9e3GI +pqwW36hs0wj3sUleTXH2sYpOScedJ74y2dDi72EZDZL+j7NZDzTdtYM9ABh n85EelbeZFUJAFYC/f39O3fuTHYtAG/mrks3pWH5+zUj9mnTV0f5xXzZD9P0 V/GKAVKC5TXIjlReZrVygHTJjApeZqb46/HOt59q/HqK/PY3jbAQYzzZ1Onp NobehXAYTu8oys7M/X2V6C254sPjoq351Yq+xYnLcLOiCuPKjak/Tj1BsNls MGgBwAdQvZXIoLKKwRbKT8skjeLGt07pfl4crRe3ni8yOJkuUA64S0a6VlKp oIcVzBjPvsDKK36S/5rGlXKJD2rfqS3J9+4KDL3LA13zW+f6Jgm8/+Lh7axc Nm/v+/pRzxOxaEW/3yy7EcWAeCAkHA4H5l8CAGDFQ2VsBhunEMd8jzGdmLOg Wf4Q+MSE3atGqJ5/+oPybvAC/XcJyeRl0YbtiruOiHdYJgRuuvLp1YEUDqd6 zj4BAACwMiHs/eeEGxl8hclXLwh86IZOKWJhJSLV9aEAow+We2T8zsnK4iNt U5HpAH5HueM5ed+jGB3dcVchKJZ8MxWj4iKAyox1dZ6mJkqlEgblAQCwshnW SrZTY8lrXlLd8Ra2x5auCwsZKafVPdY4HN3ep9i1ufGKNQIHbbbnZJ20LVYi NT9wdmf5m64slwRBdSOmuuqtW7cu2bUAAABYwRAPuj7+u240xOwr8eBR/2cf XzQlOLdwMXlmfvDyW6+f6/M0Msj80pdeUN5e1Z2M9Bi9ZNcCAAAAWAlQqkcO rnDcVdQwyQ/ur6jRIgzWXs3gqs4npQcvwFAFAACANcTsdWlxwVMKt9c2ohGW VSsMuFv1HHcUlTnZwouLIWNHt2zLBlbDpdFVrXkUMBoXAABgjWHrllVlZZU3 KK/Tq/qRflxapewnK616rQY5F3vCvbAgMd4hr92UzT/RPZ0K2Z1rR/VaWloO eiOkeEiR7NoBAAAkEMJq+OxtQVE2q17RTSbMjHc2cdO2NP/zb89gmS+9L3uK wT7a5ZrQm4x2pruWukgF6CWkk12LRGA0GpG+X7t2rbW1lZ4Ojl5GPNn1AoDU h04Xp1ev8CSRC82sTJA17l7fLeFQU16zMjJL/6Q22YlRbWPp+tzcbIy5Pnd9 zhZZt4P+TZ+iOnurtDt1FrZN1ooPAACsHZB5iZp3pR+QVCCRSJDrUVxcjLyP hAad5n+9fKzxsFzd1qlVNJRnZT3T3Dn8f7pONz7HzdtU+8rLTfTsMcR421Fu ab3KiOP32hRifl5WsfT6anf53AtGpwjTBs3fdeaFPlrCdvvbnpFUiEQDAJCK IHsAWyAjIwO5wwlalYAY61a+Vs3Kwhh5nBf2VOUxA8z2OXdDtjkzu+7Dr9Vv C4rSMSy7pP6vusGZRFTPG2QdocuCLk5MBh0g5zqFzC1q2qLF+cntPVJOao+4 BIAVCm4bCrxUK+AFvayVDzk5OQcPHkxI5HPW1vf12ROv15ZkY8yn5Xd8FG1m sOO0eEseg1HAF59qS7jeDQ8PI7HbvXv3unXr6CuDPie4Diseas3iMpmBFj2i T8HPzhFdTp14NACsfPDfOhUNW0q2PifaW83d9X63LfJdURPnHwVFuHvhEwZS nIA18STy0ujFGY1GI13s+fPn0Qf6pOhB08FA8ofaebQL+tmy3RO7WXeWmsTm lFJ9WedD639/+YXejPsPS7Cb9Ve6hhKqdw8fPtRqtQKBwP+CfPDBB4msySqA XLM4s7CpwxV2tqrr0nLr1EOhdwIAIGYQQ5cbStJc+X64WVGz+D6GA7XqnCCg xj+ENKwd0KVA8rfEWzN3W/HUhuBlM0PcKWL0ylHB5lyG9x6MZ5WDMZivZmBg AKk/bUgIhcKCgoIQV6CmpiasNRKCY8eOHYyMI0eOoN/LZDL3FolEQheCvkL/ oq/o0oLZaT5b0I1D1o7bfnNbTfQW9C89ygB9cB8IHQL9DePyj6gEzHyhZoS+ UTO6xvVMz1VCAACIK/NTulfzMeodxMfNXSoxd6ukLR5zY8YG4wL+3lnCkktv evTr+VBcXIyaQdRUur3FZEGM93x2ipzpVKW5QjqGV28MBfAKlwIydWhNQYIe ie4j+2fbtm3BrCM3/iqGPEe0HTnOEape2EPEHHRePnVANgCqcMh1kahOPeYu 1QhtsFCdemUyw+zgte9/gd4FAIg/VBcDllXEqeDxquvEJ9Q9I2B0hsZf9VAD 2NzcPDw8nKgqzNqMHbp2oy2ojs30KRtqRcc/M0QyA/fSQQqI/Brk6YRw95Sp lHsZA6g3bmHiOML6VUM+M1PcOtV1jCtpS/C8scljbtp8/WpMjbG4gNuGjDe6 esy2hFaSwM2Xm4XVXM5TwpMd4yv48qxayLXCF9YNByKCHrmAUXkaqElP4ADG WZvhi+MiAbcoi4xWFku7/eObczdk5Vv3a4wDbf9Rx6JyOOuk8dY+GmQMIB8H OWjuPBYamUwW/4OvHshOPXRfNgqk/6k+e7yhducLVaz0Zxpeq6xJpfGV4bDq m8ozyaejSKyLIosgCAQ++IWIlV1U/6kxpvJEDH2+l0yEjkklI2V+8PN9bI74 8gDuuNbE3izRJ+7Qa4YhdV1uhki7kHVB4JbbPxjBvghFS0vL+fPnk5FIb22T bGbmbn5W9LZC/a1x9I7m3fe1g7hz/IqYvVN572ftu4cPCf6/3xWzGExuw9nu 8Xmr4TNpXUk2xmAJLw4mrJZjY2Po+mzbts1tGyTs0KsAslOvsE6u0ao/Vaqv GiwOJz7aq7ty1TC6xmIsY1pRYUwEZd706Y7SHTLd9e9ktZt2fGqK5bjHOat6 TxqjWmFK1M0h7qnrN+aLv6bWPkMuyfoy2S0YyBlr5qyal7JZr+vGZ53E9FDX aWHZ9ubOB6B6Kxxi/LqivpiR/aJ65LFrYfr/aZVsyPuDUJDPKHuhcTeLkc7a +w8TMn3xoZ6r3/UkNqWTBnnByC+GpfE88Bmpt5YZ0QjzY6N6ltvXaEOdGDde u22J5aWlel03SXsS1OFKTa7LrJD10hY1GYjzWkQFiBXk2OfXBdwnSjkVtY0K nWkSJG+FQ4y3N/M3MPKelZH2CWW3lDb34ON6Sen6P73fUpPLrPzwxo+fNvI3 5lU3tyZjiDoQBLJTjylQjSS7HisAsklPcPAwasihlDmR5bTjtqFfzEM2PPxG xJzdcs/sPziaMKlq8xb7m2Y7mgrTNqyh3l4ACAg9D2c6g/XKBdfyte611KkP OQ3//OadMkaxWDdGTU2WhWVtbbzYD+biysCqlwr3q38GT89X9YYuCOne6tyd nxgfRVEM8aBT9mweI7ukvqVr/DFu+uK9c3didnnJoZRUfjtyDU41cHPXs3Yo eh0+bgGVfFL3ZFFJOa9ic2nlEWpdaWpj/TNVLx44JKzh8vad0P1Kv4OE5Rtp NZf/4gHxoT28vMx80ZeLGfODyipGGlvy5V0zialDxmdmVynvxupsAGBVMvWN hO0peQibXlJCz2c1b5CVYVUK8yi5FkOl4u68k7DdOCN6MhNmuwJWHB6qR0z2 nXkhj8GulX3VO+jvGSHLbsISaDNirvdEeemzIrFYfOg5LqtoI2ufetDnl8jS 2MkLRbVYE7DXmwpHp+1Rj410vvvyftW11jef8B/xSlivNLJzSg9fJWOsuE6c iaXVqcdGLzWwfi9U092Bc1M/vrclvVL20xQVMt1aKr2O0+Vr9+csvpvU4bC0 XKSeJOUluWkYVtbUNRXddQWAFAPv15z4UGv2SKQhV5vN3tT0PWkfj38lyttQ rfwZGZrt7Wbw74AVDK16haLLP/eefDaLufXw178GeWLJJC4Gk1YNX4jpkfsT s1QaXpu0ujZQTgKB2+6bQxFsGkZqjElaxSt/Eu6/0I+T7tt3n+vveVfyUZ/8 KUbac6phSgqJ+61H9+5TfP+DrIJR2NS1GBj9VSXYQK34PKmXFDM5r57vMpGj IXDTN1f7HZ6HW9+om6HPgMwzxAoO6x9BjxMAhIDMEPDIyAWAFQutegukv6Ae C9Z7Rq6nnJ2346PeYF4PFfaPeRqea4wJhmXvkP8YbBQzkrP1mG/GCXVqXgEW m05cRP2McPR+WJOXRhabyeIJ/+JhwZJFLfb5Tn0tzs9gN11zOAEACAEVJNkg 0adm/zeB3//1/koe1OxidsJiBUc7HLTqZXFE7x4XlWdhjCz+e51LWQSZlLx9 /D3yrmCSN2HQfKIIxScaw0SAcgeU1cyNQtWPvRdfK2VuEl0OOAdF1KqHT0zY catR/7ninZd5eWmMzbJel6NJDuVYKIlcFZqZXa+CeeoAIByP9ZINqal6qHFT 7dtzxms0FjFubL/qOym3ixgN1ljK7BwO05lGKiYGhMCjXw+/o6zNxzBm3vPn B6PLRKEkr+ZYGy2XxIPOE3/5bMjn6XdYDG0a1engqvep1ug/PwA1Ui9tj9o6 5yRuy7kZpB7N96veveg9SzglT17TqE4Yrl77TlbByGjQ2heeGTIXNCutTm0l VXLrwsBzAr93RpDu7igkR0m4AjWko5dfozRC1hMArF2mO6XltfI73rHb+UH9 x29Qywiu54re/cjViL0vFQtKMhkxGegUwewcgSYGcXTLyvmH2ywr3y9NErO2 O58K85kYlluruD5qn3V0HWWTUb8NfOk3o5EaGITDcHpHUXZm7u+rRG/JFR8e F23Nr1b0xSYaYNWJ2QuDCOhxc1+Pd779VOPXvmFW9GRyN7jGxjodo61vlD9/ YZhMcSmsOtFFzRloN114hZVdIycjtCMaYWGe8MIg+WMCv3OSX7TY/Td3R15e KFRc+fz9+vLK5naYKwQA1jDIot6+IfAKdFSIyStzAPF4WPVcTmyG94aZnSPI xCDkpO4FZc3dvlnuAM3w5Yby0goqV5H/3NHW+4975H9wZVT+oVHza2RX7YGu +a1zfZME3n/x8HZWLpu39319zGa4+U0jLKlU0IMgZoxnX2DlFT/Jf03jmyDq JMVrVP+RqJLFerKCU17TeKZ7nMquGfz2pKiiCG0sYZfWNp3rpWcFnO452SB8 ZRePUykQVHL4+091j3mc7Myg/txfZfKz//2v4FPsAgCwBnj0naSA09QVSPRm WsXrmevFrT7RTFz3+pbYTOUUZnaOoBODzBvkW54Q65K57gYQO6j+uCUoEfHI Dut0A8Aqhpxr4hcL/fY7LLdv3R5dSksQLbNdTYW+3pyLuR7pJsy9JOvjEc3f PjaQUdA5c/sV43QMjh3F7Bw+zBhkFbBCOgAAa5ze3t6HDx8muxZLg3B0H6+p FvDyigVvvnu0Yd8rh/bXccv3Xfwlzn3uDqO8Ml2oCSQfuElRzcC4Tbo+s9lk 7DwtZO+MybK5i4SenSPkxCDkkOUgYg0AAJDyDAwM7N69G8OwS5cuJbsuS+M3 zb6XlQP95Kgi7tsdVOeFXduQEelA2rBTZDwr0d4PtOOIRrhxk/R6oDgRNZKX kVtSsTCXRYwnCg4zO0foiUFIP3Rx9VgAAIA1RGtr67p167Zt29be3p7suiwZ S7uma3zuunTTer6ij9I5SvWwKoWxT9u8rwopT9U+6Wc/BemIX/IUGUYFL5en MAb4ZlIjTGcWSL575KrMAbbrc6wIMztHmIlB6LUwYI4cAADWEna7/eDBg0jy kPAluy4xgDAp+AyOtIceQTBjkG3F0p47cYy/6fC3UwQ+/pOiNruwXn0vpp19 QVWP7O/D2GKda/reOXPbl/Rw46lvj776xWioMn/TCAuDLf6OYVRI0xnh7BzB JwYB1QMAYI1hNBo5HE5xcXEC11uPK1Qav7uvav6OojKbWf23T4TFC6pEjiMI MlBu2qg9E3KKjICDhZ1UGHMjV37bT0kpzQ0QQnTcVex6WhFu4n3CbvkliNO5 sDRMBLNzhJoYZGEycFA9AABSn+HhYeTi0SuJj42lTPo6OXR3YaolegXMzZI2 K2G3PqCDk45rTezszbIbgSKVM0M9V4NMkfG+VNIolhxXB5oYig4zBppclBqp VyYzeMnb3HRvS3XhAe3Csq2kuAVY4CwSws7OEWZiEDKbBRaQBQAg1bHb7TKZ LCMjA3l5165dS3Z1YgrZqZeG5e/XjNinTV8d5RfzPWeQQM1+c1X+EmdTDHVU Un280lRmhrq/OiutYzEwrGiPXHOFmoLsikb1sfwdIScrs0z6w8KcvVQkk/Fk U2dAPQ1N6Nk5wk4MQi13yJUbYbgxAACpC5K5Agq1Wp3susQBctVLtlB+Wvbn l4V7/3xCc2faS/K2l9bKu2IseVTZA8rqdK+pDnvPvX/iowUnkaaxSUZPSab8 ymBz1wEf1L5TW5IfOBkmDKFn5wg7MYhFK/p9ELcXAABg1fPw4cM//vGPGIah v6t2RF5oqDT+gOMUSMmrZtefNeHz+OA//3ziWqxnvx7TiTmVYbvqAoOq/ac/ xGBB6ihn55i8LNqwXXEXFooBACAFQS5ecXFxTk5OaiRqBoSw958TbmTwFSbf lt9hUu7IWkyAzNwiN8S6K4ucp7ey+EjbVPQF43eUO56T98V0QEN4HHcVgmLJ N7AMNgAAKcbNmze3bduG2vpjx47Z7Sm8muuwVrKdGkte85LqjnfUbtZm7PBY 4qfDaIvHuGx7n2LX5sYr1ii7yWZ7TtZJ2xKsPvMDZ3eWv9kWh2AvAABAsnDP tVJTU5MqAxNWNsSDro//rhtd+WsHPur/7OOLphQ2gQAAWFvQWZrr1q0rLi5O zawVAAAAAKBobW2lu/CUSmWy6wIAAAAA8WJsbIwOaUokkhQaeA4AAAAAvqjV 6tzcXDabffPmzWTXBQAAAADiBZK5yspK5OIdPHgwpbM0AQAAgDUNvVwC0juB QGA0LmFyDwAAAABYHVy6dKmgoKC4uDjV5tIEAAAAAA/cA/FkMhmENAEAAIBU 5eHDh/RAPKR6MPAcAAAASFWQT9fS0pKRkVFQUJDCc2kCQIIgxo3tV3WB+a5n aCY2R8FtQ8YbXT1mGx639ZwScyIAkFjogecw0QoAxIz5Qf3HbwiK0jFsPVf0 7kfu5YPFgpJMBrk+bywOQgx9vpc8RJFYZ4tFeYFIyIkAQMJ4+PChQCBI6eWB ACBZUIvdFzZ1eU3C/XhY9VxOeLF4ZDz7j67wU65SKw4zqhWmuIrPck4EAFYQ 58+fp7M0IaQJALFnplW8nrle3OoTBMR1r2+R3Qq3ZNSQ+vmXVSNhF62w90g5 2CZpT1zX7l3WiQDAiuDmzZs1NTU5OTktLS3JrgsApCZzPdJNWG6deoj67/GI 5m8fG8iM6Dlz+xXjdLi9jQqeQGEO50gRfQp+TmFTR1yXdFreiQBA8hEKhRiG ob8wlyYAxA3cpKhmYNwmXZ/ZbDJ2nhaydyoHI18lKjLVs6rr0vKFmhEnMdZ9 qoGbu561Q9HriG1myzJPBACSSWtra0FBAdK7/v7+ZNcFAFKbIXVdLsbILang 8XjlJblpUcYhkerxpD2hR8vOT2r2paftUY+NdL778n7VtdY3n8AYzwaSJKte upMXimqxZjA+JwIAyWFgYACJ3bp162QyWbLrAgBrgEmNMJ1ZIPnuEfkPYdce YLs+B8PaKXuevyhDTxZlMjOLnnT9xxcIDx1TGaa8d5nqairD0ipe+ZNw/4V+ 3Eng5u8+198L5B8SuO2+ORT3LPYgShb1iQBAkhkbGzt27Bg98Bzm0gSAxDDb 1VSIscU6K/3vnLntS8ME+Wnq26OvfjEaYI+5afP1xXFxradFrPVcydlW95ar 183T3sI0f0tWlo4hsnfIfxyJUy5l9CcCAMmkvb09Nzc3IyMDVoAFgAQyY5Bt xZi7/JIwHXcVu55W3Ikg73FMK9oaehQeMaCsZm4Uqn7svfhaKXOT6PJw8N9O GDSfKELxiYbWsiWeCO1L3qcGy9vNOpXys7be3rbPFH89ceYb07Td0ntFderM Z+2m6bgNpgcAOqQJWSsAkAyoAW5lMoOXvM1N97ZUFx7QTkaS7G/TiXkhVY8a qZe2R22dcxK35dwMcsD4fL/q3YtDAX7ssBjaNKrTwVXvU61xcokngverG7aw eHsOCXl5rIaLg9P3lLVpWBZHrOrqa5dXb8jM2ypS6Hp+/E8RiyXU/BbBuQNA dNjtdnouzW3btsEKsACQWGaGur86K61jMTCsaI9cc4WKTl7RqD6WvyPkZGWW SX9wRFROWNWz6sRsZrVygPSejApeZqb46/HOt59q/Hoq+D5xOJGZO/Kn0/kn 7yAvb/5X7bvvqo0zhFHOxaqoBFTcrKjCuHIjQZ9RCU8BnSxAjKGXB0KgDxHu grxCJJHnz5+Pa8UAYG0w0Xvu/RMfUXN2SRrFNI1NMnomL+VXBluEQ+vCqt5v GmFJpSvGOGM8+wIrr/hJ/muawVj170V4IkhwN3Dlt70il2YFz1P1eAqz64xA 9YBYgly83bt3I/2KtguvpaUFw7C4LqKHCq+pqYlf+UuAQNcLuhiAlQs+1P6t YTryiU8IfGIiGY/0kLoub3HaFnzSZp/z8PUcRnnlguqNaUXFoHpArEBKh/w7 pCxLWA5v27ZtHA4nHrWiQVXyX8cBuaJYEJBwL3uGtFmb4SslskhPndcPBpwT Hh9UvVLT3D4OwgcAy2J+uvsEP/8pyYWOPsNVxd665u77ekkJhmXz5T/hjh+k ZRkYs1L209Rs7/tbsxiMsubuGA+iB9YcSD6QZi15bjEkSUho4joP5/nz5w8e POi/fWBgAB3axwdEG9G5LDvjdMqg3FuSycCwzKC2JTGo2VfdcHkI3kAAWB6z tr4ryubD4sa3TrUFHC0IrDlQm8/xA3lYyyzWveI5Kn/JWZpIX4qLi5dZk9Cg 8gOGT2l3z1/ghEJh5J2SwSH7+kOpHtK9kQvPb30XLE8AAIDY0t7ertVq0d/+ /v6bN28+pFhmmUgsMjIy2Gz2MrM0BQJBc3PzMisTAnTKSNoCnu+RI0fQV+76 uz8gEY9F6inVjR5S9ZzOMZ34aZHWsuxjAQAAAPHCaDQiP3HdunXHjh2LvBeP DjOiv8hDPEhBJ20ifVlCV2DkIK8tmFdLL/pAf0a+akFBAf0Z1TAWR/ZRvTm7 5Z75F4t3dz85jWFWndoai+MBAACsLaYNmr/rzAszBhG229/2jCx55SmJROLv 7yCPCSkdHdKMShrQj5Gm0LmaHA6ntbUVFY50M+K8zaVPXYsqvHv3bv/tSGpR BZDq0RKMaoVOOfIzigBv1XvcJtnAIHNlGBWy3kWVf6yXbNgg0cP88QAAANFB TX6evk/jmnWBWurRla8bNUql0qfDC2kEko+MjIxgfWRhC0S708W65RIJTcAk k0AsfepaWtT8tyPlRZVBSqekQPIX64waT9Wzmy68wsreKj7bOeRTz8WBRQAA AEDkUJOfu+ftIZd6zM4RXQ44xU9oaG2inTJ6C73iOWLJmY1I6ejRfJ4Jk7Sf tbQCIyeYtiK9Q+fong0b/YyWY/Q33BTZ3pP00uh7jL76S6teGlty/srxZ/PS Ko52PAiQtgKqBwAAsATIyc8zF1c0Jpd6dC89HAX0NCnukWstLS1Ip9CWmKx4 jnTTHUVsb29H5dM9g0iV6FFyQqEwSJrNkqeuDap6dCKr/3YkzeGcvoku2XNe 4dWKklyG+5rllMtvUbJHq94CDM7hNksA1SNXUQHVAwAAiJIRlYBJrWhMQszo GtczBcqB6NpSejS3z5BtpHoxmTv65s2bnuPyBAIBkjkkssh/pPvd6KNXVlYG 2nvJU9cGjnCiM6KnxfbZjrQYSWGMsmtcvh5L/F8dF5v4WQwG+/VWq99kUODr AQAARA3Vqbe4GAfVqVcmM8wOXvv+l8jXHEZK5D9RyZEjR2JSRbVajUpDsuL+ TJeMJInNZtO/oZ2+2E5YjVTVX0m1Wq3/SD1Ut9/97neobu4tzc3N7rpFz6Re UrzQr4cPqOqzsXRWw6VRb3+PXDsswCoqAAAAQAioTj1ynQ/yH8L6VUM+M1Pc OtV1jCtpizA90N2d509MVj9HioacOzpVEn1AgkK7VMjtcue3IL9yGSoTGHoo uvtfdJr0TDJoI3ItPYftoy0ZGRmejt62bdtocYy+QxMf7Tq1tyQDw5h5tX9t G5yhfDrEem7Dh9o+9zxk1FotvquoAAAAACFxrWi8USD9T/XZ4w21O1+oYqU/ 0/BaZY20O6J8lhCSR3Ps2LFl1hEpHdI7JHBIhgKGTNF29BvaGYwtqFj3Z3Ro 5EsaKW764dOriBQQ1VlNEeUxbT3KpoVZ4t8+0z1G2DoV1Lzxh4S7XlDeXnDA kVdevkl6PXJ/HAAAAKA69Qrr5Bqt+lOl+qrB4kCuRq/uylXDaCTdRQElD/lB u3fvRl4eEqPl93PR/WghPCZ6Ms9wyZNLBJ3FkpcxQu7nMEVsq+Ri6mtxQUWE lgkAAABA4TNSLzqQHLiTNnNycoRCYUtLS39/fwzrh3woOlSI/KaAAorqgH6A vkLiGLtkkkWQmCIRX0JOTmtrq3/GS+xw3FX8obDhKytMwwkAABAFZKceU6Aa iXI3JC70RJRIEZA3FL/l7ehETURAhwsdl9bc4uJizGOQYGxBUh5whpbQ0MMM 41Efctx9n6KmTHx5FKZlAQAAiAqrXircr/45Kk8PtedIXyorK5EYxXUazEhq ovQgtm6mJ3EKny6VB7rmo2d6wc8DAABIBPT6C8muBQAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAsnzm7pb9H//2NoekVuRQagY/3d11tX6nVWwvM 2Uf/1dV+a8g+l+yaAAAAhAYfvCDMY2AYI7ekooJTlEWt6Z2WW7LF9ZlRIeu9 1yXfU5LJYFQpB5Nd3UDYehQvBq3e9HV5fc0e5e0YN8dxKnaVMndHtacsE2MW NnXMJrsuAAAAIbHpxKXcJt0oTvlJdq0oA8O4ciP1HzF962Q1W6D61emcMci2 YjyFObmVDYq9R8oJXL0RlYDJyBFdnlzuIR7o/vJJj7tNj1mxqQJxW87NyBTr 8GRXBAAAICS/qgQCudHh+g/XiTMxD/l4PKjctUV+m3DiZkXVCla9ENXDbUMD luVH3mZaxYWNHm16jIpNHYwKXiaoHgAAK55h7dunF10YX9VzzvW+X3fixpyn rBB224R/24ZU4NchWyRtHvrlL2bfnwbcGDke1cMnbUsXIwK33Teb79twnx5C u0n1Yl5Gg9YeuudwCWcxZ7fcM5vvxUhAI78L0ZYQtuSwqhfs2kZbEwAAgNjh p3ruL0hZKTmkPHu0js+rKGGxa/+jc5wWSwI3/fNwzVbecy+LBOWc+pau8WB9 OwRuvtxc92RRSTmvYnNp5ZGLJrtrY/0zVS8eOCSs4fL2ndD9SrV0U72KelZW Pld8+qv/PFLLr+Cw2FzR6e7RgU6FiM/ZzCoqF57sGCc8qpf9jPjf91ZV7ayr epJT957WjAofbRWXMrC0fNGXVvJn413Hq3MZ2aUNp7/+6iNJfTW3qKDEXWHi QZf8eS5/z6FDe3gs7l7lrWlXtce7pPxMV3dnOa/qVbX5nnexzuBnEeqIhOUb aTWX/+IBMTpiXqZHaW6seulOHsn2/ep/3VOL+a7PP887BzXiah6PX9V4cYiI 8C6EPP2gJQQtmRi/rmx8lst5WlArqH3lhWdymUFVL+i1HdaKN2di6Syh7BPp i5zcDaX7/zk4H/kTBQAAsDxCqx6WX3vqJzJR0nGtiZ1VJrs1j9oz65VGdlGt 8g7Z3BH3NXtZeXv/ORrInKd+mVN6+CopVdSB0urUY6OXGli/F6pNVGs5N/Xj e1vSK2U/TVHH7FcKNmDYBr70m1GcIMbU9ekYxvj9XtXtaWJ+Wn+ERWba2Ber x6w42vGAUoDxH5v5aaxDl0cfO3GTqi5v8YzwQa24lCyzuX3cdSI5W+QGdCLz ffItjHyhZgTt7+huLmOWS7vdvXZTPdItWPrzqt/coWCvYolQZxHsiPYe6dZS 6XVql/lJ7f6cgBFa/I6yNh9Lf0E9NuvEh1olHAb9GR1F/wY77/lTvVYi8rsQ /PSDlRC05OkfZPxC191Eyvjzqeo0LJjqhbq2rrvMEqpvdcmeytos+8kS6RMF AACwXEKrXvo+zeQ89a87nPWoT/4UI22P2koH6Ai7tiGDuUs14m+c0798TjX8 mPrh/daje/cp2jpkFYzCpq7Fn/+qEmzIFl60ug+as1/rcdC0WtUw3QCaFTws t049tFi9hSQckkmNMD1js+zGHJmuU+RxRsFOBCnX5cPVO5p0o+Tm2Y6mwmye wuh1+l5tumex9t6wZxHgiJN6STGT8+r5LhMZ9MNN31ztdzj9oQSR8ZS87xEq akApYDJrFHcd1PZXn6EEyxnFXYj2Pj4Msn2GrIn7bnpfSX9CXlvqSrKPdjno mxf5uQAAACyb0Kq32Ki5m7gRjTAfw7KKOBVUIK6CU1LKqX5LN+7fS4WEYL2f M0CW4304qg10/cwnR8W7XSVVL3Oh8fTPZnGXHEj1ApyIk3RYLD9dVhypr6oW VJVkLhbuv5fTW/UiOIsARyQcvR/W5KWRodNMFk/4FyokG4hH30kKskmPjPhZ uePJko3rKe/Mot2/j5I/ROR3Idr7OBRk+z11Xa73BQndrxfi2vqkB0d+LgAA AMuGVr0NEv1j3y+8nSnv1jJ8moczEaq3Sdoz51UyNYIvQtUj8Lv/WZ+fz5P8 o8ficM7fkpWtD6x68yO3bv02HwvVwycm7LjVqP9c8c7LvLw0xmZZb+Cm3aaX lKBvb93+8Lnm9n5FTRr6pe3y/l1nBlxXPfK7EFL1ApQQbPtQNKoXwbX1Ub2I zgUAAGDZkNEnZqDumWACRMXcGNUKk3sHfOj7740O/ybLcVdRw2QKlAPuX04Y rupbj1cwPJs4ok/Bz0qrUy/GBiNXPc9qT14W5WQGjXAGaPatOjEbKzisf0TV xNUy3x7VtJzpm/Haa1BZxfdxIakIZ+izCHBEZAZsleht9A74vTOC9GeVg77W Bv2to+soG8vMzdsu73tEDCirmfkVVU/vdUV3nc4o7kKwygQrIdj2/0vezcU4 pN/d8SKCa+txgyI+FwAAgOVCWC/uzWFgGS9pJry8DsJu0ohLsfz9mhEHNQPY t02l6WnVH/5reo7Kaihg7T3bhz47Z8c736ssf7c7YBs13SnlbmDt/YeJzF13 jLa+Uf78hWEyWaKw6kSXjdzDbrrwCiu7Rt47RR30589Em7D8P2mts+RBh9XC HEZ6vXqM/KVjVPsqC0tfyAahWk4GR9I6RKVAPOhsfiabzGbB8fEbitpcjP2G fmpu8URceSkEbrkiKUln8k/ewe9rhIULx0J1O1LKSGNLVOdFO6U9dlfnGrNK fmdqSvf6k5JvJ32KDXUWwY44jI6YJ7wwSF4NAr9zkl/k2TPozdx16aY0ZqXi Lpl38rOyOseju5O+thHdheCVIYKWEHQ7upv53KNtVDbL7HjH21wmll537rcA AxN+C35tp3FLp1yQj7Fe17kTNSN/ogAAAJbM6BdCso/J3Z/C49W8q5+i21V3 /jyPV/mG9kGvcs/Trn93KgxzdAa7oKxkcwWnbGHIQEAIfFT/kaiSxXqyglNe 03ime5ySs8FvT4oqitDGEnZpbdM5KimRzGmXbKcPwt95stt+S/7UZg7539P1 8uuTJtU+Po9XUZLL3PT8hZ/nnXPj7apTFzVnm54nN5OFn2obRH7EqK6p1lVx idbqtBsUL7pqXv2WbuyGYmfl4rfjHSeF5aga6Mz3ntB0fPVeXdnmysNfDtLX YP7Xy4efzsvKL+G/pjaZvYt1Bj+LEEe88L9PNghf2cXjVAoElRz+/lPdY8Fb dodJ9ep+tZn6wdy47u2d0rYpn4sb/i6EPP3gJQTZju5mxyfkyIWt/GefP9R0 9BC/gIFll0q+Hve/8UGv7eJd5lUeUN19FPG5AAAArHKIR/YUmOokNc4CAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAiA7cdv9BbNZNdfxL/dbftINB1jAHAAAAgGQz 3yffwuRKu6eXXxK58B9WLNFPxqBaS4HA7/96P8CaekB4iPFrJ//9H0ZYowMA gBTH3iPlYNkvqkcCrpweFRatqIjBPtI2NR/+t0sAtw0Zb3T1mG2BdY3ATap9 e86YPA9OjBvbr+oC813P0Exc6ulidsJiXT1O7+yIahdzg0S//KcgBYCQBQCk MOTC6Bn54q+nwv80HJOXRTm5tapf4uRrEUOf7y1Kx7Aisc4W4OvpTml5rfyO 95Kv84P6j98QkHut54re/UhB875ULCjJZGSKdTFo14JqscN0pnH/hf5V0nSO aIT5TIFqJNn1WAFAyAIAUpm5HukmZo3irmP5RT3WSzZkv6Sxxi9GNmdV70lj VCtM/kriuKvYvkF0OVA79atKsB4rbOqa9dz4eFj1XE4o1SPwBwND0+HPJZQW O7pl5fzDbZZV0H6RFkvWFrkhPl766mKthizCVCxhrK4gCbDqQGJRk1GrGo7B Y47aCnZsfMagUMHYTdIefy169J2kgNPUFUj0ZlrF65nrxa0+TQOue32L7Fbw dm2qq6myTj0UQa1CaPH8lO7VgrLmbscK1z3ikf5wQdpzqmGIb67VkEXYisUL AjdfbhZWczlPCU92jJMXfXUFSVIYZAb9Yh6ykTeCmDT/0HFjaHqpL0UMi1r+ QYfUdRyR1hKLQ1j0J0/GtyuE6FPwcwqbOmb9vpntair09eZckM4slrugX49H NH/72EA2KXPm9ivGEAk8Np24hKcwRlCt4FqMmDfItzwh1o1FUE4SQRYLKyew p7zmSK2QhTPyqEXIisWL+cHP97E54ssDuONaE3uzRE8J7ioKkqQshKP7eI2g riq/qOr1Y282HDh8/B3RlvJ9F3+JPgISw6JictA5+wNrdGMW8LvaE29IZF8Y bHZLz0V50+uS5n/0jAfSm5hjVdel5Qs1I05irPtUAzd3PWuHopd0oxxGeWW6 UBOorcBNimoGxm3S9ZnNJmPnaSF7p3IwEo8mYtULrsUUMwZZxUoRlKD3bsKg Oa8z28OXkGQSYDGmWMjCGU3UIqT9Fg+Ie+r6jQtX26jgrS9znctqCZKkML9p XjqgGv4Z2VpM7tsdZCtB2LUNGQWH9Y/cNwWfsEWiHpEUFQKrXrqTF4pqsWYw 1gf1BNmiL+yQKaVV6xmZG5+R/FeXsfeyhJtde3Yw0pKWdgpOMsdAsy89bY96 bKTz3Zf3q661vvkExniWkrARjXDjJun1QC8rcmZzMUZuSQUqubwkNy3ilzpi 1QuqxS5wnThz0US3tEnrtx9ttSbhbV7+vfMgCcZPbC3GYAKaYiELZ+zsNzce ly7MRrKCdss9s/mexe7/1qEb2lzGrJD10uYWUr3MxWjt6giSpDCWdk3X+GxH U2EOX9FHvRpUC4xVKczoFk0ZVMcOvcjLS9ulGvF5Xqz6d54u2nxUv9gtHrIo 1JI076tCzXPVnsNnro8HaIsI3HbfHIqAT1fo+ofAv/53lc//u26qX1mVk7P3 It10k6060//cg7G0U3BSJmsZllbxyp+EVMyfwM3ffa6/R50Ael9yA7/Xkxph OrNA8t0j6tB27QG263OQytktv7iq0a2s21h69PtwvkQILXZB5Qu5r8+Aui4f i1VPTHQs/965WaaAJt14W76Azgzqz59ShODvn/WMBa5WQkMWzhjab64+uLon i0rKeRWbSyuPXDTZXRvrn6l68cAhYQ2Xt++E7lf66SYs30irufwXD4gP7eHl ZeaLvrR6Ho4wqWrzmNXKAfoIZAOVtkHStnBWPkGSJJqLaxfCpOAztsoMdIAB 3ZGtGGrryOA/2Yzf1UrYAZoym15Sgvn1EQQp6mGvrHLT4W+nCHz8J0VtdmG9 +l4M73Dw+ofAv/4z980jOBls2SjS0maYh4ASk0bN3yRixGtHT303GNtMsPlb srJ0DJG9Q/7jiPeVDqp6pPGMscU619s2Z2770jBBfpr69uirX4x6/daqbyrP xEKQsVl2w+96hdDiBcwKnoeBQdj6rxsDWTRxJ+S9Cw0+YfGy4oML6MD/hLPc nHEw3hy4zdSl/qtEpgvcRe1b/2ULKDGkbeSEfFrS8oQ+DxhNgkMWzohVL7z9 RlivNLJzSg9fJW8reb+xtDr12OilBtbvhWq6L3Bu6sf3tqRXyn6aouKlW0ul 13G6cO3+HJ7C7HnAQWUVI40t+fIudctNHTI+M7tKedf9vXeQJInm4pqF6ud1 34L5O4rK7DTP1EfUskVqMwcr6jeNsHjh4SR7rgPd4QmD5pNQBqbiEw3dqkde f2Ks59x7YkFpVpUyYGAxQFlezgvd7CMBfTylezW/tEln6uvRfSwqWV/a1B4o 8rLEUyAGlNXMjULVj70XXytlbhJdHvb4ErUJG7ny234NFiXuAe4LclV2Pa24 E9KwH9OKNgUq05tQWryAt+ollyD3jmxAkZ9r7tGeUff4JfBZ2ySbGUy6KaMJ JqDPvHlkW/wsN2dQ4+3/GDQfHxeVZ/m0q0Hrv+Tox/JJRMjCuZSoRVj77VGf /CmGO9GXuN96dO8+xfc/yCoYXlFZ1HZtyBZetDon9ZJiJufV810mcigEbvrm ar/H+Cj6gqflIreRtyDlWFlT12KHqvezmkRzcc1i1YnZmOudosPR3KbO8cXv o2jZghZF2K0PaBOXTGfKDuRZOCyGNo3qdHDJ+FRrDJg3Ebz+hNXQ/r22iYsF bjH8oYItZTLXyC6yqunUQ07GZxgu6SQ/Y4En+ljaKVCqTbfPxG05N4M0Ceb7 Ve9epPo5yBc2Q6T1y8ag0t7cVV0oarq3pbrwgHYydDQrIgs5pBa7mDfIylaK 6gW7d4hZi+6vQl5+oMfA1i2rys7b8VGvV4pHIAHd8ee6sJabMy7Gm5N6BwM/ w4HrHzT6sbpDFs4lRi3C22/U2+R7R8nOOO9nBr04RdTPCEfvhzV5aWSZmSye 8C9ar3Qp6oFZ36iboS8v5cz6+NoryVxci5ATmKRh+fs1I/Zp01dH+cV82Q9e jkzkNyhsUcSDzuaqfP57nTHMDQhzUNysqIpY9ajn0/XjxyPqF7OzdihNpBFH 2IzXDBaqQSWTwRhb5H0xy0wlVXuhC4Du9f56vPPtpxrp7C+qMfSK+cwMdX91 VlrHYmBY0R655go1nveKRvWx/B0hJyuzTPpDuGH5kaheaC12QQZq0vdp3CKL rPD7/p3+iSHovaOI6jEILKBj4S03Z1yMN2cI1QtIMAGdjyxkQUlASAJOdJPw kIUzwqhFBPZb1KqHT0zYcatR/7ninZd5eWmMzbLeOa/SFi/R1Nfi/Ax20zWv txJUL7mQIWi2UH5aJmkUN751Svezb7gg8hsUuihS8raX1Su6Y5sOF6b+0TR3 ZFyLgTGK644rldL60pI6edcD74sxO975Hj+7JKbDMX7TCEsqXS/4jPHsC6y8 4if5r2kWcu3IdzZdoBxwX/+J3nPvnyBH874vRadM09gko8f3Kr8y2MJe3khU L7QW01DXlis3uq7RdLeUywjfoxofwty72Bg/JPGw3JzhjLfoVC+YgEYYskBX a6gn2HQpQadMSXzIwhk7+42c0YLJ9HrLDFevfSerYGQ0aN0J7GQiaFZandpK Vnura/ydk8DvnRGke/YSIi0uXJBQquTsetWAV/vpGyRJprm4BqFC0CF7ugmj nIu5oyVLLYpsK6rZ9WdN+DxuOi8+cS1GM2WErX8UzR0V1xIo71nNP3yr098a 8s06cEne3vhOrUCZkV5nM6YTcyrD272Rg9zVpwWqX0P+JowWU1i0ot97uDz4 oOZ1bu7GOvVAzGoaMeHu3eNB5bOM5Rs/cbLcnOGMt6hUL7iAplbIwhk7+42a N4a7gbX3HyYy6usYbX2j/PkLw2SKS2HViS4bua/ddOEVVnaNnAwmj2iEhXnC C1SImMDvnOQXeXb/kdfWJfGko5dfozT6XGbvIElSzcW1B2HvPyfcyOArTIFF Y6ZPubeU7IplZJbsatbdDxFJCFmUw6TckbUYIMmM1aSI4ervjEb1qLhW0Pwx UvIq2QJZ5wOCGNX/19WhxPU9k69VZXEs504k7BMT0fXp+GsxNb3Vhu3e05wi I+Ttt7viOQw6MKHvHfUL1M4s0/iJl+XmDG+8RaV6YaM3KRKycEamepHYb2QF 8VH9R6JKFuvJCk55TeMZyrAh8MFvT4oqitDGEnZpbdO5Xjqrd7rnZIPwlV08 TqVAUMnh7z/V7TWUY+6OvLxQqLjy+fv15ZXN7X55Kj5BkmSai2uPYa1kO5Vl VPOS6s7y7IzQRc3ajB0eEZIOY0SP9DIPSkNFcsK3GPhop2JvaSbGajjXFyCZ aq7vo6eyGIw83ouHDgirNkXYfsYOe59i1+bGKytpRI/jrkJQLPnGO4vivmb/ a+rRhMxms0iYe+f6UaSqF0xA42W5OcMYb+ToOUWTIC9P0PRJJFoQNvqRMiEL Z2RRi7AVi2SnR/bAI22Dge7aub/K5Gf/+1+2AMfyCZI4k2cuAqmHRS/bw0G+ KoNVLTnXOx3ihXOn3p06ows01fJo56fNh10WqfjIX3UDiZ7An3jQ9fHfdaMr ZQrl+YGzO8vfbPMO9M31/OVp8ZXxYPvEizD3jgQfuyX/Q1ppk85sCdnihRDQ OFluznDG26RR++lCJsw5/VAYpQoX/UipkIVzKVGLFYB/kCQ55iKQktBTBlH8 Erq5A6LiUf9nH1OTV3iDT9qiM4kTBDF+/czR10iDRXK6yxaihhEI6IomTPQD QhYrgABBkiSZiwAAACkOhCySTsAgyYo1FwEAAABgGQQJkgAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AABrGtx2/0Gil0jA72qb91XxeLyqPYfPXA+6ThuQSOCmAACwBpjvk29hcqXd 0wk8pr1XVrnp8LdTBD7+k6I2u7Befc+7iSXw+7/eX3Urea1uwt6UtUAyLMCY ABYLAESKvUfKwbJfVI/EYTkS3DZkvNHVY7b56tdvGmExT2GkPv+qEqzPFOs8 llcjcJNq354zpkSvyxInZics1tWweFzom7ImSIYFGBPAYgGAiJm7Lt2UkS/+ eir8T6OGGPp8b1E6hhWJdTbfr+zWB/QSV45rTezszbIbi+tdTXdKy2vldzzX B5mzW/q7L59sfE1tXtFSSODmy83Cai7nKeHJjgV722E607j/Qv/KV5BQN2VN EE8LMFYEtiQjsVhSJn6yWsxIYIUy1yPdxKxR3HXEqXirek8ao1oRbKFs4kFn c1U+/73OxWUfHXcV2zeILk8u/mjqJ1klE6NY2e7H/ODn+9gc8eUBnFSNzRL9 gtY7umXl/MNtltXR4gS4KYlkdrz7TGPtlqLM7CLe84eVHaMJa6jjaQFGQ6gr EMySDGexrN74ib8luWrMSGBFgiSmJqNWNRyvdoUynjdJewL6DGTrur2sXtHt 2bo++k5SwGnqmvT7tU0nLlrRqkfcU9dvXGgzjQre+jLZrYU2Zn5K92pBWXO3 Y8XrXsCbksDDO3rlT215/WKfFScmTZff4DIzSpvaExNwjLMFGCFhr0BISzKY xeIbP1ktwZMgluTqMiOBKMBtQ7+Yh2zkw01Mmn/ouDE0Heu7PKSu44i0lhiX 6oboU/BzCps6AjSg5OtZza4/a8LncdN58YlrdFBptqupsLCpK8AOcVI9j4sc 0XbUXNwzm+9Z7D5CTji6m8uYFbJeumFBqpfpVdl5g3zLE2LdWGxrH2OC3JQE YtWJ2Wk1ynuuptiiFRVhTIFyIAG2TrwtwAgJewWCW5JBLRaf+MmqCZ44g1qS q8eMBKIAtaLHawR1VflFVa8fe7PhwOHj74i2lO+7+MtSTDP8rvbEGxLZFwab 3dJzUd70uqT5Hz3kqzFnf2CNY8aaVV2Xli/UjDiJse5TDdzc9awdil7yQXWY lDuyMDeZW+QG6rwcRnllulDj7+nFQfWoyEndk0Ul5byKzaWVRy6a7Ivb65+p evHAIWENl7fvhO5X+piE5RtpNZf/4gHxoT28vMx80ZfWxcJMqto8ZrVygL6Y sx1NhWkbJG0eqjFjkFXkeEVuk86cfeiWXn9rCCk48chunwlyUxIJMsNyMaxK YaYvOW5WVLmieUGf4egJXNS9+FqAkRL8CtAEsyRDWCyB4ycrPngS2pJcFWYk EB2/aV46oBr+WSVYz+S+3UG+3YRd25BRcFj/KFqVQpbeCztkSmnVekbmxmck /9Vl7L0s4WbXnh2MqCSrXrqTF4pqsWYw0I7zk5p96Wl71GMjne++vF91rfXN JzDGs8pB9DrO2owdukU6jDb6JR7RCDdukl4PFBCN8UtKWK80snNKD18lewpw nTgTS6tTIxUjRi81sH4vVNPxo7mpH9/bkl4p+2mKsrG3lkqv4/Spaffn8BRm d3GDyipGGlvy5V0zialDxmdmVynveh6RPIjLjbW2STYzsl5QjyYlikjXpv+i 5Bn2lleOv3+klrf9hSp+o24syE1JJARuua1vN9pcT6ZNLynBsK0yg215z7An wV6HT//HEk8LMFKCXYEZ1/eBLcn/G8JiCRI/iZ/qBYyTRBs8CWtJrkAzElgm lnZN1zh5o3P4ij7qtlMiQhmBhH2wR3v2ZMuXxoAOPj5h8Xq47iqf/3fdVL+y Kidn70UrtQfZAjN3qUYiadYI3HbfHIpATyzJVFdTGZZW8cqfhFTXM/Khvvtc fy/kS4bMudyFVDQfYvuSPuqTP8VIe041TL1DxP3Wo3v3KX6cJjPAKxheTcSv KsGGbOFFq3NSLylmcl4932Ui0+dw0zdX+xd6gOhbk5aL3EaS8pLcNAwra+ry Souguo3oaz7aKi5l5h+4bE1WjiQZ40ore6tzClXg8bDquTSXNRIJS7aCooYY uVCfzczecXZgfjnP8CyOe/qsy3wdEnf6Tq8rQG8IZkk+Cm6xBIufxEP1AsZP lhQ8cYa3JD3MSCB1IEwKPsNt5iHbZiuGHnirpUtx5FAdJ2sxDOIJ5UcwafeE Zua+eQSfaRWv3yjS0gGBRQGNY+3nb8nK0knDM3uH/MeRyI60ZNX7TSMsxIJC 2cZekNndgUojoyiYpxO3eFzC0fthTV4aZUqzeMK/aM3u3ABK39c36mZoI4QK Uvl75WYFL97XPCII/M5JPjO3Tj1E/YubFNWMYBlHAXdfohUUbTWHLjeUZrsS M0I9wyGNQPJ1YLJeax13V2mZr0OiTt/3CtAswZIMFj+JveoFjJ+MLS14EoEl 6WFGAikDlazlNmbm7ygqs9Pcve1Bm1Bbt6wqO2/HR73BHA3nwruDBHTOSYz1 nHtPLCjNqlIGsVAnDJpPFKH4RGOY8N+NGFBWMzcKVT/2XnytlLlJdHk4glNG erGRK78dyIMN95ISdssvQdqhAHGVpagePjFhx61G/eeKd17m5aUxNst65xZL YwpULmWd+lqcn8FuuuabC7hSVI9Kh1h8GEhndr24dSbMXsskSrMkUC5ikGf4 QVgj0N+tDvo6xJEYXIGYWpJhVS9aSzJg/KStYynBE2dEluRKeaGAGEJmcy20 wHTHLrepc9z1ZXR3nLLny2SuWD+ZA5xOPXikfWZo/17bxPVu6j1xWAxtGtXp 4Kr3qdboH1ynJNslrLfl3Azy9ZrvV717cShUPclHPUOktQf4KramKZmwx/RK jZswXO22EFSEM6NB6+7gIZMHsqguP/S2bl0Ygkfg984I0t1RwTGtqHChalTJ 2fUqv7TDeYOsbEW8pJTiu5070usp8GvBQrBEKygas8RuUgnZCw0+YRv4hYzX BX+GnSFfBzJRx0fOghQV3gJcxunH4AoszZJcsurFxJJcWvDEGZElCaqXepBj ZtOw/P2aEfu06auj/GK+7IfFYTvR3XHKUnI9e49H1C9mZ+1QmtxPEJUnFlT1 lgYp2Qs90XTy1dfjnW8/1Rh6CDCllX7RNvLlM30vr16Ppe1Q3Lr7iyUWSQfT nVLuBtbef5jIIcCO0dY3yp+/MELQUZrCqhNdVDqB3XThFVZ2jZx0nEeQ6Zsn vDBI/p4KEha5LVjSe3KJNfl65tcojf7Zj2TIJ32fZnKe6um4+ulnPUmaLJF8 GOjUHdKa6jrKji5MtDQrKHJmra1/fmKH8i49NJuw6g/XSvSTYZ7hmLwO4S3A BJy+M/gVWJolGSx+EvMIZ9SqFzx44ozEklwxZiQQO8jOXLZQflomaRQ3vnVK 97PXaL2oXnPSnmdgjOK640qltL60pE7e9cCjsHio3m8aYUml4g7V+M8Yz77A yit+kv+aZjBMhUlrNt1nfBY+pJFULWYL8KsaLw7FQC8IfFT/kaiSxXqyglNe 03hmYZQTgQ9+e1JUUYS2l7BLa5vO9dIpD9M9JxuEr+zicSoFgkoOf/+p7jF3 LebuyMsLhYorn79fX17Z3B5IzqiLzJUbya/uKquy/dNdEgXVzue/pPrJ2Nv6 fj0rHXN7Pclnfrr7BD+LwcgtqXB15WCu2GPoZzhmr0M83oWoCH4FlmhJBouf xFz1AsZP9K3HlxA8cUZiSXqYkU5Xf2sADxRYRVCduSHGKUTzmlO9GALlPav5 h2919PgsLxLwplN2XURSNaYTcxbkMqkEiIyFYGZQf+6vMvnZ//6XLfBpWrSi 3y/MEzU73nO2kfek//SkCYIY6z5zdJ9Q9Kasqa4oI/A0Aslhxqj6U5VXSiS/ uql1POwzHLPXIemqF/QKLNWSDBA/iUvwxBk4fjK8lOAJVe8wlqSnGel0eZrJ HQ0ELA/C3n9OuJHBV5gCPI4EPnRDpxSxsBKR6rqfhPkTNkkv6W+6J+TzX1l8 pG0q+boXSyYvizZs95jtasYge54KWyWVqDv1kkW4ZzgK1Qtd1Ip6F0ITqSXp Fz+JU/DEGSR+spTgCUVoS9LTjERMGZQHBPuUBpitZbUyrJVspx7ImpdUd/ze zseWrgsLnQin1T3WQCW4wUc7FXtLMzFWw7m+YP1I5IielfSm2/sUuzY3XrGm zvPruKsQFEu+WYxEOX5o3iVL8nxK+LhJ08jCtkh7kj3dchhCP8NRGYFhX4dV pHqRszLiJ9EFT8Lha0YCgBt3ytmpM7qA89Va9LI9nNw0jMGqlpzrnV4ZHhbx oOvjv+tGV/CCL9EwP3B2Z/mbbZ5J+MaLH+ruJ1XzrPp3nsplkJ1Gudwm3Xjs mqPYE/oZjsoIDPs6rDQLMCakXvzEz4wEgCigZwSiiFl8H/DkUf9nHy9M8gms ZFakBRgbUip+4m9GAgAAANGT0hZg6sRPwIwEAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA1hzE9M9XVf/R1CgWS6Qnz13tG49kzWUgPMS0qf2zMwrlVwZbzFf9mLNb +nv0398Ymk6xye8XmLOP/qur/Va4hVBXL3P2oVt63fcGCyz9SUPg4/1dV9tT 95EGVgh28+VjVfmsKslpbfdtQ9d/q97ZUZS9tfFi/xpSvunr8vqaPcrbMW5e p3+Q8Yt5hw4J8tKyhRdDL+cZPWNd8j0lmQxGlXIwxiWvDObuqPaUZWLMwqaO FbFOWOwfEkvb/9/e+cc0dfWP/yZN/2AQ0uZLNJAAkSbVjDQwmyCS2qpJizPF HxnoHot7NnCbxcwVsz01bivuWePn+axzs/HZY+rz+K2fabfPYt2kHzOqU5jA 4sApfHyEr1KcgApIA4JUQ4Vevvee29899/a2FAQ9rz9Iue09P97n3PM+533e 530/kWdwsOe2BWNmpNW47Xnu0oh5wdOB2p0CjkBlCX5vssth3pbBya2s7XtR Zlz9ZiWXk1ZRO5rIRCf7zZu4WdX1T8Y6LPv3mFrGE5DmA/tfj7QGdMDjdv3K 5+7F1kHg1w0FKalq++xPwMIEC2NWOslIvSb3mbYgi4rPKa5Wnfh57tKIZ87Y T+rMJH7Zyf4w9ea5YZTxscxd9rHn6XXJDLhH+noGE2xJc3cb5Ql+fh/XqbOr gnTALGQxv+g0SlLnQuuFCxbKAukkMcGq4nPJsxYI4jnH3WNScrH0UktfxFdT TsvWJCxNYbqVoOUeMWL80Tcyq08XNAvq7c93Qgcr6MXI1G53z6jEdAuxuFMG a/CUSlvgJdZBQwTuGnkYmSRLsbMRCEtw98jd7u67I26WHYe5hAnXetDiRQp2 9girb+QgP8MnJabbE1XxmT8sgaQCAnGPjsA7JLSOdGVISNnYjy2IeU6/VZWJ YSv17Y8jv5tq1S3FsKTSz7/5izSdwxOqa8ltqSdNnxVmcDiZqw9dm5p2tRu3 SSRrynSmf2lLhDlSjQ1qEcXdju+ri1dKXnuzQlkoLvuyeXiSeNzajCqpRCKR Kt881j45PTlo+1BO/CtZr7H9ZlPnp2JJGZLy99WbJOJCsUAoVv3N3ksV8j74 Nlmg0h/RbROnLxbt+L7XA81iGh88r1MUSLe9rd65VZKRmlnxgxN+caBOLeJg SdQPyAJ319aUrZVve3unqrhAsv2A/Q/Q3YebP1Okc/iiyq9/OnNIU6YoyMnK 9eUVwWirfnUqRsDLEUs3Gq9N0aYMrVFkgsPNOilIMCk9t1Ai32XpnvAOEbk7 Tcf2lkolRbkCYcnfmrzlgcsE0jwwKZHXhy8frd6Qmy4QFxQqNCevtRz/2Pzv qekBO21/IO550GzYUiDdupNISlBQbro6TttktCUk8jVVrS8Qr1GWKEveen1t Opde6421GcsEvMwC9ddn/rWnRFpEdJWCiq9bBnqajBVScb4gp1B1sHHY3ynh xYMKNrLMX/7j3eBOwtCB78ILC69vsNaD/oB9HaG3M3RaaMVhHY+p29M9LM56 3UZSHpJ1Oyz/vmNRS72fb3mme61qBSE4edUp2HgBBMJfq/6wXC7fWCpfLi79 1NbtYpQhKEPp8hyiFkX5ItmeUw4XY9li6jYxjC2IhQA5kcYwubEbNqh0GyXE A0E8j+6bJuVi/3QUH/u5WpjkHYjcd6wVSzGu/PNL1mrRonz9lchJD+48WyXM KTHdIH+P37WWCzLKvx8gehQ+2nlqt5iLpVTYXNOeUesbi0TbDbXXBolJuPu2 RbUE4xZpL9wFufTVacRc4e46J3jQqPJgApXlarN+NS9ff20QmoWrVbdSpLsM 6uYZte1II6sAvUik6TCXZlB1xAdOVwpe9m10To399umKZJn+2hjIutemFmHY YmlNA/lQTFzSCtNWGNrhVmDcWV+djwl22Qa8gwltyhE1aoNPHsdadSuw5C3m e/7RCQwRWGbJ4Wvj3vLw8vRXPQxiD4dGIOOXdAWLM0r/3ka6nrocJ98ScDBf o9P2B0+HYQUnU2XtJy5PtNTkcQt1LaPQJiMqCC/ho1/10mxR9TnvMH7rsCIJ Y1rreVNeLNWdH3Dj+JClLBnDOC+Xm6+P457x+j0CTpG+zTtm0hYPIlhYmZ8E OgmoOX0HhncHaIsEtB5tk7GrI/3tDJ0WVnGIkGlTYHxYbphKMrHk1y1Dk9Qj zKE+Ez+r/0CYseVwmxMmKSAQbtHexgegCwz/ViNNEuysHXhKJ8N+8mKat8+4 7WpixlxqcUYpG9tuQyNVmqcGsQDoMsn5dGs9vNNQQGm9cCNMsNGJ/IrqYzQ8 6TCs5iRttTipcRx32SpTuJvM/dREERhYeGt1Z/5LI3vT7PDP6ECOBYZO31OB 95gU3BSfVh2xq3Mw4d7mCZwxC2e9ZhlXvOtEs4M0Z7kd58/dnJgehV30pQnU Ypu+iJOtbQ4sjP4wKxf7PDBBwZK3W0c9EaKIJExuDCmH1YgOkGBIfnTlYRZ7 MFCBTHQZi7lB+iLUq4S2P+ADtdWKDVr7AHl5slGbzZcYO6chTUbXaq9+/HEx N+k18/2n0xGJM8kkbYctSAJJJeb7VD7kzC1gwKcvXqRgoWX2dxI/dB04EroW eewTJkOTsanjrSi3wzsttOI0QoakwPywAHXAWW3oeOLdTOEWG7smwPVda+nm ihHP/vSoVZVMPftQEcnff6+I4+8z+N26veXbjb+Ns3mQo3ebmMYWxIJgrFmb R6wUwOw3HDBp4ixS1z2OpvUYHxrKiMrLERcBc0eROFckVnxkH/YtZvD+uqo8 DpZRZukNGvEjNjs8V/V5yT5/5rD9MrosJifavirOSCJNOKkCieqvwE6Cwy5O Bw1oYP0bMrKBr3zrnNBRIiatx5AyS1dMGq0HKU80sQeACqTPUpoemlHEUAnv D7h78FqtcU+ZXKGU56ZiqT61EllBaAlfL5X8H/p82Qo58Hty+PKXgaF40ME/ ssyRWo+uA0dC1yJPfOVnaDI2dfw5yu3wThuL1oOkwPywEErjgiaLT64K8Vum DctzlywCK8RB247tQP3R5xWSpj8XqIheU4p5sCqweJCjd5uYxhbEggDYeTjc LM2FJ+FfjTZrX8GwZWr7EGMPYaf1mLbLx67pZVwsWVh1NsjeEdHzwVrDp/XC vqXLAnc/fOhyOzvrvzN+8qYkI4lDGtagF6eftdZj6bcWlLun/+rVe57wiXGo 1mPlpQAVSHxaD3d3/assM1Oi+aZ1cAJMVBaFqJVIrRdeQuZ86WXCSutFK16I YKFlhmk9eAeOhK5F3CFaD95krLUew+1RtV6g4pHEq/XAuQyiR129/tVrNQ03 jcVJRO8aqd2x6WgPraxAXkt1rYEJGpkLePahIiJWcItmV+uxHVvoaoSYZ+C9 1nIBxn/N1BUyV8H7T5bxk3w7QaE9hDQNcVlrPWDZ4CiMgeOA7r5ffun0Wo2e DtRqNuy70H/DqOAJysydvh9FWDmcltIkv4UzrMfSZXHbrFypqR+hKuS+c1SZ vN7Uewt28Wm4hTO4n+MdRinPZ8WdidZjSDl2rddrkksZjM/MYg/mD5hAXMC5 V2bo9E/I6bVeoD847WohRp5PBLl41cr1AeuXRztGIz0VYSW0//ifCm7AoBRV wpFCZtB60YoXItjIlKdhWo+uA0PKSdMi/lwYmoxNHduj3B5V6wUqTiNkSArM Dwv5/0TzXiGWmp6xztDxBOxTZBbJ15RDnMbp8iIm4LUVaang2afvM1ylqcd/ 8WH7uZZBnMWDHL3bxDS2+M3yiPkOPtxQI03nST6wdo6C/jE17jizV5qZoTjg 8wYEp60z37WRziQT/dYdxJo/SXn0jhvHxzu/rcylPtNmQMYnyRKUH+sYJ4ay yeGmT2WF+1smcDJUl1kj4SmALw04q8uTVVtvjPv1rH9HO8SbBXcPNhmUmZhg t93vlAjP4r5VlZ2hOtlLlg133zgozdE2T/bDLuLu4SvGknRM+EH92BTYv86W H2geIfMGjhz8YkMbuQmOuxxWtci3+0+U5KwmN5krPXgDUn0izTZzuRATVFl7 veGVaFIehdQIDtgo4coNN8bG7LuXay48psqTucPaD8oz/LNWlJyk+OrfhBxo xB6RJlQgxArmvEbIF6p/6CevTwxc2FfA9Q9FdP3hLpEU5rs+ULdHxEkSaswn KjZobXWQCkJL6GzUFWQW7L0IvFkmhxs/JvJNLj1+j85FxHXr24qlvkxx932L Ko2TXGYZIn8+MWDbJcCSfV4H92iKt1HX+ihMsE8g3Sykk0xTseZoOzDbB6Gp /xrZSUQ1rUQF6Z4UlnWkvZ2h04b3qAibDyVk2hQYHhYvU5d1S5O4MmMX6fty y6RIC9pNgwKefY5YU9cHHEgeNNWs5fu8Wej7zGJB+TcOqq/WfVC4hTyAzPgg s+42MYwt9HVCzEPc95qOvKcQZOZIXlVKhOk5UlVNbXfwOOO+eUqzViBYLpVv eEure1+ezcF4QvX/PWsAztsSqWLXKZizvRfgi67My80vEuf5/JAf2LXrwa27 rQNBBxmIpLR1w1TP563cVlGmWCsR576iqDrS5PWEvG/TrJNQyN42dz2hz2K8 9WCl6q1NErFMqZSJpTsOtxCdGnpxwK4t8SapsTmJbtz788GKohzB8qJcoahE e9zrbEad1AAoPrIPXTFulAXdFYbfc5ugzNBKxWWBpgyvERzPH7XVazJ4mbnS 9yyOnkAWsg9sD9pMW9d4/91obJ+CyiQSqECootoNFWtEokKitmU7Xy/icQKT YXh/qHUONx5UFRK1k0iKyw9YG898WpqXL6s2HtoNryCshLh7oPEIeXJhpXT9 lp3avTulWRyML9L8NAwpfEB00o0HW1xXDavzxeR/a8oMl0cd5u1ElyrKTecu 3XLyFjnowov3A9l1QwTrgnWzsE7C3IFZPgiBFpRuOdxGaCiIQGKpI+T2aJ02 vOKRMKdA97D4mXCYd+2wdFMz6mH7xxt1F8dg2fiYGm4wHz5lPabdQtZMXFhc dfhib8DdjqbP1B+qkBEdEvz+aIt/ogIvW6zdhuXYgliIkIcubw/OxUndaMyP +Az4E9csnT+dvZRni7mKkYJYoMznLj2fy4ZAeAHuc3l6OudmxJxDaj1wMA2B QCAQicXZpC8RpHIwjJ+75Uh7lCNsiNln6rpp4zIyiAdHoPjsIp35DoFAIBBx QUVKBMxy4E4EO0AkQ5LbqEEQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAg EAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgE AoFAIBYS7lu2f/7ch17whEAgEIjnn5HfdBIuencsAoFAIJ5/ng7UfrC+QIi0 HgKBeGHBXffb7f/UvSXNLDR0IKvXwsLd1/o/FpPxqMXePuiO+mZe3N11dMsm k6PLKEFaD4FAvJjgd+tq1FUfvyvnc7ClutapZ10eBGvw4YYaWb78/S/Npn3K HF6G4vOWccZZy8SVg1t3n3S4pruR1kMgEC82U5d1S5OQ1ltQuNr00mzNhSfk Z2IRZyrhp+brr9A34Ng1vTxfe9bR7bhhqcxM2nD41ljUxSECgUA8nyCtt/Do JBZsGO91y8Bk4F+JsTv4J+6Rvu47gy6qUUdaTVo1yZvKXD6GJeds+Lp9Yr7q Pdz14IFrvhYOgUAsfJDWW3iMtZt2KMq+9Fk1gdYrMHRSqsJ9r8lYuSJ35WsV 5YqCTZ+3jPhvw8cdF2oUSUmvGq4OzVMbp/vmyfJXXmFatyIQCAaczUf/VT8w 8ayLMb9BWm+h47SUJiUv1f5CGjzxvtrK3KSCjxuHiWWgu9tYnK1tnPT+Dp/o +HZfFbnkq/rI6piHze25fWr7y0kF+39j3qNEIBC0TA43frxi6c7agafPuiTz GNZa78SJEybAO++8s2/fPlME79Cj0WguXbo0J/V50Rhu0hZwBVQn94zZd2Vi mSpr/7R7uLvZrC5YqbnofNYlZImrw6jkC94iXW4QCET8EI9SSabC2BHdtftF BWm9BYxnvGmfiF9saBsD/441a/MwjJcjLpJIFKXqA5bW/nlqyYzA03NsA39Z pe0+elARiJnibjcq8sssd9DTBIe11lu2bBkGSE9Ph6q2PXv2BP+7efPmrKws zAdx+5zUJxR3l61mu1wikci3Vh+9PPxcdQLc7fimPG9dTdMDX7XIDT6uwtSz 8Ko5ZFcv48qMXfPctPk8d6c5BIlx1sGf1Fdn59W0zFuntWcLa633+++/v/TS S5QKq6urY5m8y+UiloGrVq0i7iJWizMtbWy42vSypdU/j+Hu4WvGEn728zT5 wYfPVee9sv3UbVJReG6aPzzW6emzlKanVNh8JkLcPXj9184FMKjgPSYFN1tl vfesC8LM89yd5pA5F6P7pnXvVolAkLv2RVKyE5e0whzURSN43Fv/zcFPVGIe B+MVVnz2j2+be5kNYoT+orQesYgbGhpinxOh+4jVn1gspvkedz98mCBv9eCk 7llVyyTGTvD5D7Ny0XNzPps8pS5dnCTX/WAnqKs9VL60xNw/PeW0vsEX7LYP T07j433NX6tCVoLzlicdhtWctB22UZqV3lP3s9igmHw46AztLQnsTlPjt7vu vhDbLrMqRjaQSlZYdXYYnxhsOiDnZW0wQy0KC7FFImUbjKtVJ+bk69tm6rc2 MXjlt87ZdTBzNh81Nw9PRv9hAnjc13oBjJpW82Gj0Xg0qtYjIJQXpfhUKlWs +W3evNliscC+IRYpKzX1o/DbPJ2m4iWMp7Bxt8NSVfVtX0RSuMv5gDqzRs58 +IyJLCCo/btgkvP0V8l+iQ+1mHYrC14RiYtKqox2x+gCeIzxDqOUl6yyQpsf Hzjz3hv/DBmn8OGO/zlOdthIDp+o730cW+7u4e7WBnv99YiobhOOo1U7Tt4M fiIS1J3I6HBbXzf3hA0kc1SvWQV3d9fWbFu9XFS44cAvYFU1e2JkSY+ldMlS 3WWQBWkMgSlZmhaZX7CSbTCTzdpsbJnaHsPyJIKnA7XqvHVHHLMrmUln3fv5 qw1t89geK5PJqKGW0IAx3Uis+O7fvw/7ptMoyZSbuqB34Q6jlINxpEYHjUhI W58oxdeZYUnhD5pq5JnST5vmaDox2+DukbvdIfgPpC9ARq2q5JQCw3VI85Kb 8ivDH1tPb/3Rj0oFyRi2qKBi/yGvYjhk+ORNSUZSrAsHvO+78hwiqRy1fST8 u4kWfWFhVV1/eMFm2J3Gm3SFJYYbEa6qc1avWcPT+912oVhd2+Mm1Vm+ph5k PUtiZE2okk1bYWgPH8IhLTLlGrzZUmvY8fbxWR7w2RKbbCmeXNBkcZNKLXG7 ceMDpyuFBV4/cHIvLDU9t1AiVW7btk6UvrTCNsh0r6u31favA9r3qvb+42Jg zkbobtsBdZlcslpZrj1svzXuLfpwk1axztQ5P4QN4dGjR343FZPJlIgkCVWV S/N4untMSi6RU9JWixM2sE9cMcgWY1iqz2YSkRT5cK3LKzO2PCcq73kD7zQU YNkVtsgZ6YTDtCEN7uJCWsYiNqOf3je/lgadyfd13Byha33PqHV7MkdhdERq FfIkSFaYS0D07sSc3USX8dVs9U9j8G/Z14s5l2nGes0O+B1L2ZJMb9WIx3CR 1/4QpxgTXjwix7V80YcXw3OMbJGxa3oZlxrg5smmSEyyDeC0q4XYoir74/jW UM6Lmlf4xb6F3mhtRRoHCCUpQ/KW3npjnD5VsAUjEJUfrGtrNpVmcYR7Lo55 yCPDbYbVea8b6q46Oi+f0q7hYYul+l/HqVt6j5VkqSz98/eYYUNDg9+4dvPm zRmnx6D1SKMEyCdP2xwxVJChPF4GLZFeaumDJEV2dYWw7JjD7XE7TqgPXJq/ Mn1RcdvVqZjM0BkRTWLiV11ePtw+87hOvYi7SF0XZvVz23ev8I4GwYzWa1Yo zX/Q5E9uf9B6c3naDSteCZSBVXdizI6cfou1zTTG/BjqxVypaPVKPPhES00e d7WhA0SHBe7EAY0RjxgTWzpqXVlzMTJoCW2LjNjVOfND68Ui2xDAzAcT61rj OQNLqiHey4GUnZbSVJqlR3i2XeYNWTyvuhy0VeRg/G1AnRGfBfyyk96lqeeG UcbHeKVm78Ya8e0yb7SN+Yp/g2/VqlUu1wxPFtNrPULUybJPD72b5d+68uOd vKk/f18cZMkJTopcLPACm1+pEOMG4hnztNe0npNSaQt3ZiJdr7NoBu2pVt1S 6jA+ibvHsv/LVnLC6On79XzneMTPieEr12cKiIDcVUwLimATxuN2fVFaRS0Y E1l2J6bsyK2WbG0zTWax1IuxUtHr5cc90ne7u2/EHXnx9mCEg9mUa/BOd/ft 8J9PU5vv6YFTM5ON2uykxZqLPnUWhxgTR0DJTo53faf98tdgJUvfIjPXelDZ Tscs3hhkG0G/Wcnl020eMQJc47Kq65/4SunVepPukX7G/RT8SdPepZysgPuo e+QuVVdSQadiHL/6plY0uV5rLWXWm/dRwsRiMdVx9Xr9zFKi03qeUduONEIO w1ZVMhZqoHY5zNsyeHJ9SzfZOTG5sdsdkdTkSGejPUBjJ5NFCPFMAEuSPH3E wDfRaZDRuLgAn0+sQGvv6O52dDYdKs0sMfUyLBcYFQQ5LABFgw+1HK4sSE/N KP4qeFedXIp6R0WW3YkhO4ZKxVqvaFovWr283hGly3NyCyVFopy8dy1kVBxw sWytfNvb6gqlWPz6Afsf1HOFD57XKdeWVOxUq7fLc3iZFT+E7Bb1muScJKHm hy6wzexo1EtDB9vYxcjI+OXPFUt4ua8b7Nfa6oy7ytatEYlWVHzdMnCn3vCG RLw8N0dU4nX5mBque0/AwTBOWvriJAxL8nm2UDC0yEy0HlS203GKNwbZRkBu xvHhm+ZRGKnX5IYc/iUXIDmS9XLp+vVrhcukmu8dcEcp8kYMW661XbTo96ir PgravJscbjn+H//0Hx6htJ5/KQomunQ7WfOGzs7OlJQUSvGdPn16JinRaD2n Xb0MzFfBfkfAQD3prNst5OaBbVzwVUBWDMZSOpz1uo0SJhRqa+8MaodgAIwt YS+M8F5fFr669wJanJOeW0Q0TWFuetTTpgwKApiAiM4z1N+0/80d5qaLn6zA OOuDdY2nXZ/H3WTuZz8yM2TXb1UtCR11464Xs9aLXi/cebZKuLhg70VyCAJW Zq7SfH/gdKXgZZWF2gucGr/2N2myTH9tDExOVop0l91U4sRcNKTJKEsaFRTI V/jQLYnYxcgAMT0o3WJpqa3IxrDF0r1nHONTwCeKUG0vq0xXRnCQnbe+uLu3 wecae9hk+TlUyTK0SPxaDyrbfso5JGbxzlC2oebQGOpwy6RYnOV9nRlg4urh tz86RanvsfMaIV9QeXogUu+RN6YRLcGTak+1dHTf+E4tzJLWNEQek/Q4jhTz uDxZwHUTnNuN0x7Lgsd9zd+byG5w1GKrswdz7kpfLK7ONpuN0nppaWkz2OCj UVWkyT0PrH+JVfxKDFupb39MhuFqOSDl55ZTLrueq/q85KDOGYfWi3SJDOPu CEwmjwA1NTVKpXIPoCaChoaGL774wmQyEX8JWRH/WiyWhiCIr4gbZTJZ5L2R EPcSf4lbiBuJ1IgPVJr+pNgkEh/BxSY+U/kSf4mv/GUgrhPVJD78/vvvfikR vcL/LfWBEFpo00e8Jsl7PR0+qpPjG9f3POIu29vC4GfTCzAiUTh+MSgyReTr BSMbFJwBSSp6610V8AAnRsjG0w13QoaIbqMkYEmgg2V29JViVS+WubCpF1hX BuaKgxd1298w/dqiL+KErBoIRbyYrzrlJLcRl3HFu040O8hc3I7z524G7ZCB 7AKTUjCHDzaOsRUjS/4wb9fax26a5PxAPB+XrSKF6/P3AIqAVXYMLRK31oPK 9toEeXIwDvHOULbxaj3gsUk/QwMLOq7S1BNp6wZmzMCJCWC35BTqWkLX03h/ XVU+P8yDlwyk7/fQSDR498myHA4GgSOIOVi3f4OPGL3jLRBcVU216pb5TlmC LY/UFYa2J45vygVZfs8faioVNGzGofXi5HeAUCiUAQgJ+Fe+FMRXMBmHQNwi C4XQoX/605+Cr/jTIX7MkKa/JLEiFov9xfCnRlz0/yBqLWIidHYUs9YDp5CE arvXAuTpazrb/pD8NHZ+z44TYEvMWa8tTA3PNjk1lev7nOI9I0ZNmQj4Gwy/ 0cQsjT5cs86OUetFqxf7XNjUC6wrw0fDyLbwj/z4RNtXxRlJZJqpAknZx9aQ IOFkatRyBhT4J3UmL/wUHiutd8+qyqbvODkhrvLkJCEwQoLxwS89oHfCVAOc mLQey+JBZTsdr3hnKNtEab3JkfZas7VtxCtRsDGBQTUU0MuBzbspp2VrUvju 7VibYR3k0Mqsar2EMjQ0hIFoLTRn8dhANE1xhBcfIdh1gS3RqSv6/BSMlydZ vjRkvQy0XtCWHzQpZh62W48YjZ/rNOA1PJFUfWJuexhv1V5ciClB8KqW5ld0 Wo94dnJgwxFY9UPsOa4bhg1rjDdici8BFpUlKnNrR221iLu0ohbSgVmvGqJn Byq1hGaTJdZ6MVk4WdQrZq1HhjxyOzubTpt05PnB0KAfQ7aKbF9iE13GYq7X Zy8AWzHirsHb/tUrwylU/LG9alHgXIbbYVQEwvuQyw0erYNHCAwtAlvrsSpe PFqPXrwzlG28Wo+UTGbAwkmt4AKLO0rr5cCO7AGnzcBuHaX1grdTXY6TFXky r8rDHz544LNReDoMKzizZ+FMGI8ePSouLiZUXk9PzwySIZpGGWg1MgIV7u4y bVi5P+gcCuX6lSwo/yZkFxVovaD96NCkWDEx2N5gsxyFRsUAHLN3z/eGWLB0 meR8mNYjHyvY0wqGlHDvl8nhpk+lS9+zj0GdAekUBHgeKUsUft1QAAIdeG6a 958KnmuS/St5u5UuWloM2U1T1ioa34lY68WQC5t6gfEz2EKFD7X+cN7+WVGI Py3pCMoHJjiieCt9vnbT+H1zSXLwLiHZWN4AsORiJDsy6lfsYmQm7FwGub7w T33B4EkMyAMTLQd3HY/oWSEwtEjcFk6obBv7PMDCGbN4ZyjbMK03OdxqOXi4 rjv6NlaYNwuxzs3JrDzjpP4lzw9mYQH9G5zs037LNn7AM5PSev4ou5PDFz/M y/Ofmhyyq9f4VCfY0Jz33iwEf/7zn1NSUmZ8ZC9YVTkvavKB9TUrPHSq+07D 6cbesPZ6elGzmINxsmSfXRoLT2quoIv+BGLLrxXlimjD3i7E6H9QYCEBo1d/ 2ju2QNw2wCa+/wXxJI/7Ws4c05WS/ng5pbrAnOQrvWZDbmoqfWArOgVBnuH1 2Y6oweGn4foPC0MOLLu7jXIspBhRiaaPwisbX70YcmFTLxCQpGCxbw45MVD3 QWH5qSHSDcPve0DMyd8SeN9j1W9VZWeoToKnD5+4dmBFTojT4NQNQ2G2ynj2 u8/LCmUQ14U4xMgMMVlKCxxsJM85ZvgtY6QWIJTLSJtx3RZjFzD7TLQd//Sb NjKY5HjHt+ZzgU0caIuAJR25c7oIS3rVcPkm5JABMzDZOr1eLjGLd0ayBbbu 0MN9qRirE3xABwWsxJ7xlv8oVuw5+WvP+HhP85HtAu7L3tD3kcmON2hFacKq s6SKJPfv8riifU2k8MEsjsfliV/bCaxoO7dJMgLnEMlZATcBgUNZgru7z/+X PeYgDtSOHvv3L9ATrKrG2g5tyODwRZUnaTxjwxjvsOyv1n/T3Pc4Iqk5gib6 kz+2/NT4jb/DYssviOh/UNiEBIxafQrSdRwaeIc8JLvo9aDrD9uOf37AG6gL mKOrtHpf3C7j0XP001c6BUFMX3NlXuOhu/dUpTBjmVixty5kX3vQVvFyjIEi o9kek8N8AOKrF0MubOpFlsU90HikqliYI1opLiyuOgrCpODu3gvGqnWiXHGR SFSwrebbdmp2P956sFL1rkoplUiK8kWyKlPLUGixHvfWnzhs/Pr4uVuwkB1x iJGZHkvZ2sAbkwdOlma9afV3lbFfdCuW5BRsrD5FdUhw9CzzXZtzcnr4TEWG MPg5hbWIu8+qkQdcuKXyqlN9sak9qGyn4xXvDGRLOvkEn3QmCvDLt6f923OM kMFYgk6pk1t7//1ZRYlUslpZ8VnouzvDksXdju810pdFyjcqlK8I5PtqvbYy /4rGByddVHbY68NJRqVYlKf7NabdqfghVXMKzMrEhEajeemll2w2WyJKkEBV 9SzWevDoT9Fiyy+E6H9Q2IUEZBlaH3fZKlPgk8+xa/r160y3Zrw+cLXq1jCG MfEVxe0Od+QiHvzF67zrhcRkN2RXi2Xw/ceYYFupaWi95ph4xJhASDMmtfgl l4Hhm6eJapFnBKNswZafP+5BzEm36FbyZXEHhaY7pA8F2EV5G0yOuekkw03a AlL/xqL1qFcOJe59eQtd68GjPzGGvV0I0f+gsA4JGD3qL/UzMg4njePWeMPe dR/UOWd6yAt3PXwYjxmZaCPlMs15mpiZcWbn6TLKssG6Y2bEW6m5J04xJgwy mEk2GPmpkAiftY65gh+vRLXIs4BZttSeGnXgKx5AOE0RzbuZEgq50MuWGa7M ic7zjDfty+OlpsSi9b744ov4VN6qVatofPkWuNZjjv6EP2jcK0kLc9Od6+h/ MQVHog88FUdIQGj1gyEHpWQa6T0dqH1PtgN2GHb28fQc27T6k8bEh0d2dRg3 5VO7Hi8AsyZG1gUglBqXPNbt6avdJc4s/PzsD3/5KjSSyUJtkWiyBWf9WJ3g oAN3O77Zvlp7Ee4nligmHKbSvDA3xdmDtG3mVVr/uTOVrdajVnlxvGqBuKW4 uJjmy3vWNzUJ8u9KYFKsYYj+RMWWV5naQsMuzWb0vzBiC44UJfBUrCEBaaof ymiLrpADCUpGpeBst9a2jsy9W9eTm9/+/ZRjdnx38QfNhw/Z+ubtej6BzKYY WQHWO5wM8WtvVGr2f6WrUEiKy42/hUdrXZAtEk22pCsLT6i9NLMFFO4eGYKG 6Ugcj/uutMUUHWUGDDdpC7MqzzjDD3rTcunSpZdeeonmzbC0EOu7zZs3x6cr FwL00Z9oY8vPUvQ/CDEGR+pnDDwVY0hA1qH1wWx8AZzTQSxA+iylGUETsxcI 4KhT/Oy2U+chwLa5dDe5aUIuVaJrPUrlrVq1itB6dXV1v/vo6emhPhDXib8m H3q9nljcpaWlUVtVxIehoZm81XfeQhf9iSG2/Ayi/4Wckw0B5l8da3Cko98z BZ6KKSRgLKH1wV5hFiSwGAIxQzqNkmW+w2IvFMQzLkkjDwMifIw3aPMKvB53 ZECbKFrv/v376enp9NF4ohPri9cXDLTRnxhiy8cd/Y+Ke0BHWqHhaqgmjTVM xM4zLQyBp2IKCRhTaH3SEyZz7jy4EC8O7sHr1+fKejafII+05/lPviOo84Cc jHXqv7xHnhVUSUh9lrO+quYY3auNicXdO0GoVCpxKJs3b36HkeCIxM8TbKJa RTCDmLfukT66INmQxV7MWs/2gCHwVKLCLcLAe63lQp7C2PECDlAIRIIh48Mk +0NzI0gmh5uNVRXveuNMUlovXaJSf2zpjNPH9UWFVVSrCGKM/hc/sQZHOvCf TIGnEhduEQY+fK5aNGfeywjEcws+8H258FUQ9QVBA7Bw0r/sEsEAu+hP4cxG 9D8aYguOdJMx8NRsh1sk3aTLhSurLw6i9R4CESeeLvOGFWXmzoXlkDqHjLQY VJLcdA4IDpMrr7b2IlHFBMvoT2HMTvQ/ODEFR4oSeGr2wy2S7wA9ca57vsef RSDmKVNOa/VG/S80YW8R0yC02hmTP96t6Uw7k8tBFJ7XnbuYYBn9aXai/80B cxxuEYFAIOYply5dSmiMsueeBR79D8ozDreIQCAQc8ejR49+/PFH4u+zLsiC YSFH/4PyrMMtIhAIRCLAR64e171XoSqvUP/lcPMDnHqfYKpQsvaVdA4nVVBc Zbo8jI+1m3bI5e+aOx9PT3VY9pQrZaXq91WkvU6+fb+9x0PFv1IVA9Pdpj21 fzxXa5w4WajR/6A883CLCAQCkQhIH8Vkpf6s7YhazAOuhSBQFcaX1DSO4I97 a3eLOFlllv9tM25Ix6jgVK5bxvVJGCdVtN1w6r/1SuLyG1bn/zPJ+clllqEJ x6lKUQryF6VYkNH/oDzzcIsIBAKREEAwkFSRsqJKs/fv9l5wmo886eB7gyqI TMKRm3rJi6nUyWsQ7pH6DPzwyQNcXZbSTIwMZiUvUx+o7UZbPwgEAoGYj3hu nz2wUykiIy4mL9NdJg1YEVqPqzT3NWuzQ7RedoVtKEjrjfY2fHf4rzuU5DEJ Dq/4yHx+ayoCgUAgXlCmrujzlxSbOj0gLof3ODap9SgLp8th3pbBya2s7QNv xE4B8Uaot2PzCg1tU3ivpSyD1HqdNnVqusLY7p52O4wKznx+ayoCgUAgXlx6 SMtkqkipejWXl7v91G1yiUZqvaT03EIJcFapsXW5yfeska8BB2Ebu0xyPhm+ eFGVvfsY+TYHjC8/8qOpOJ34PnXJknSucMORa8jEiUAgEIgFwVSrbqnXgBkr kw8HnWiRh0AgEIiFwz2rKptYtfFKjvU+Fy73CAQCgUAgEAgEAoFAIBAIBAKB QCAQCAQCgUAgEAgEAoFAIBAz4f8Dde8PBA== "], {{0, 356}, {594, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{410., Automatic}, ImageSizeRaw->{594, 356}, PlotRange->{{0, 594}, {0, 356}}]],ExpressionUUID->"3e5b5539-ea66-4c3b-b3c3-a3a475dd48a2"]], "Text", CellChangeTimes->{{3.5360371346857033`*^9, 3.536037135334606*^9}, { 3.536037383836247*^9, 3.536037404483482*^9}, {3.536042442148738*^9, 3.536042447895763*^9}, {3.536045666583256*^9, 3.536045667947157*^9}},ExpressionUUID->"7b17da9e-1fb4-4cf5-9c40-\ 9921e2e914ed"], Cell[CellGroupData[{ Cell["Initialization", "Subsection", CellChangeTimes->{{3.5360374730944557`*^9, 3.536037479508855*^9}},ExpressionUUID->"2d9e7bd6-05a3-4be3-900d-\ 15a078c59c21"], Cell[BoxData[ RowBox[{ RowBox[{"Exit", "[", "]"}], ";"}]], "Input", CellChangeTimes->{{3.5360382549509077`*^9, 3.536038276342574*^9}, 3.53603834277113*^9},ExpressionUUID->"e9435f54-5509-4f9f-9041-\ 23e8edac77f0"], Cell[BoxData[ RowBox[{ RowBox[{"$Language", "=", "\"\\""}], ";"}]], "Input", CellChangeTimes->{{3.5360373787170563`*^9, 3.536037381121767*^9}, { 3.5360374895751467`*^9, 3.536037548333282*^9}, {3.536037650722055*^9, 3.536037657410592*^9}, {3.5360379743666153`*^9, 3.5360380215197287`*^9}, { 3.536038063766507*^9, 3.536038183907959*^9}, {3.536038388610857*^9, 3.53603838940345*^9}, {3.536045708094194*^9, 3.536045714062668*^9}, { 3.5831152098965263`*^9, 3.583115210238256*^9}, {3.6304068199295883`*^9, 3.6304068204519053`*^9}},ExpressionUUID->"0370a882-679c-4153-b088-\ ac3dcf59cd37"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]", RowBox[{"<<", "FormCalc`"}]}], "Input",ExpressionUUID->"3522a98a-043a-4247-\ b55b-077792befcfd"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.7332663859100027`*^9},ExpressionUUID->"723e00c0-e8c3-4621-a853-\ 774f505b5090"], Cell[BoxData["\<\"FeynArts 3.10 (12 Mar 2018)\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.7332663859191303`*^9},ExpressionUUID->"27bf2ee1-a7a2-4819-baf6-\ 32f64ca2e61d"], Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.733266385929647*^9},ExpressionUUID->"52da78fc-17d1-4eeb-a771-\ eb2d814d8eec"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.733266385940529*^9},ExpressionUUID->"407ecaa5-64e0-4715-ae02-\ 435bad7426ec"], Cell[BoxData["\<\"FormCalc 9.6 (16 Apr 2018)\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.73326638595055*^9},ExpressionUUID->"bf31a54e-1d19-41fd-a2eb-3eb0431e2a34"], Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print", CellChangeTimes->{3.5378612376045837`*^9, 3.583115221651313*^9, 3.630406822585166*^9, 3.728115002507403*^9, 3.72811529060288*^9, 3.728141617242392*^9, 3.728641288781953*^9, 3.733120657694209*^9, 3.7332652817164907`*^9, 3.7332663859617233`*^9},ExpressionUUID->"9d4abe65-75e4-460e-b878-\ 36858a4ff0a2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Create Topology", "Subsection", CellChangeTimes->{{3.5360398319912243`*^9, 3.5360398413102627`*^9}, { 3.536039916228428*^9, 3.53603992045197*^9}},ExpressionUUID->"f1e9ee9e-dd25-4fb1-b112-\ ab3c4d8b66cc"], Cell[BoxData[{ RowBox[{ RowBox[{"topologies", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Paint", "[", "topologies", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5360398433189297`*^9, 3.536039858887414*^9}, { 3.5360398916549*^9, 3.53603989217457*^9}, {3.5360457214194193`*^9, 3.536045731074902*^9}},ExpressionUUID->"917bb0e1-08dc-4bce-9f3d-\ 560b1e475870"] }, Open ]], Cell[CellGroupData[{ Cell["Insert Particles", "Subsection", CellChangeTimes->{{3.5360399097567263`*^9, 3.536039928076377*^9}},ExpressionUUID->"3ffeebc5-c1e8-45ea-a5de-\ c249e9b7cea6"], Cell["\<\ Appendix B of the FeynArts manual contains a list of the particles in the \ (default) SM model.\ \>", "Text", CellChangeTimes->{{3.536040535106597*^9, 3.5360405589265957`*^9}, { 3.583115227166757*^9, 3.583115246884862*^9}, {3.6851663467177677`*^9, 3.685166347852468*^9}},ExpressionUUID->"724048f5-7c3b-4d2c-b886-\ 833e123cdff3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"diagrams", "=", RowBox[{"InsertFields", "[", RowBox[{"topologies", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.53603993169267*^9, 3.536040006745463*^9}, { 3.5360400491143827`*^9, 3.5360400712109747`*^9}, {3.536045734812549*^9, 3.536045749085781*^9}},ExpressionUUID->"ca65ad23-080d-4107-b57e-\ b29edb62302f"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386357831*^9},ExpressionUUID->"4a4b8ea1-25cd-4547-adc8-\ e63bebbde7d2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", "\[InvisibleSpace]", "\<\"generic\"\>", "\[InvisibleSpace]", "\<\" model file \"\>", "\[InvisibleSpace]", \ "\<\"/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/Lorentz.gen\"\>"}], SequenceForm[ "", "loading ", "generic", " model file ", "/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/Lorentz.gen"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386365738*^9},ExpressionUUID->"f7789864-daed-4d4d-aa9b-\ 2626c324eb69"], Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386375292*^9},ExpressionUUID->"7a4d42a1-88eb-4a61-b9e7-\ 16b219bfc5f2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", RowBox[{"{", "\<\"Lorentz\"\>", "}"}], "\[InvisibleSpace]", "\<\" initialized\"\>"}], SequenceForm["generic model ", {"Lorentz"}, " initialized"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663863841877`*^9},ExpressionUUID->"b5fa5b0c-024d-4984-9cd0-\ 6f12cf48ba70"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386392907*^9},ExpressionUUID->"8984e337-690c-4063-914a-\ 581593f5d230"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", "\[InvisibleSpace]", "\<\"classes\"\>", "\[InvisibleSpace]", "\<\" model file \"\>", "\[InvisibleSpace]", \ "\<\"/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/SM.mod\"\>"}], SequenceForm[ "", "loading ", "classes", " model file ", "/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/SM.mod"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864016857`*^9},ExpressionUUID->"1592712c-68f4-4ac9-a21e-\ 688d43e787a7"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.73326638641076*^9},ExpressionUUID->"30a0281c-4055-4b56-bd31-d474d5e0f414"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"$CKM", "=", "False"}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`$CKM], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864202213`*^9},ExpressionUUID->"8f196136-7928-464e-873e-\ 346db1a86905"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864299583`*^9},ExpressionUUID->"038ab1fa-ed3a-4d8c-b3ea-\ efc76bce9caf"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "46", "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" classes\"\>"}], SequenceForm[ "> ", 46, " particles (incl. antiparticles) in ", 16, " classes"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864391127`*^9},ExpressionUUID->"830f8f2c-9539-421c-8f7b-\ d91300e76262"], Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386447998*^9},ExpressionUUID->"3a56160c-76d7-41d0-bbb2-\ d9b10a7ee455"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "88", "\[InvisibleSpace]", "\<\" vertices\"\>"}], SequenceForm["> ", 88, " vertices"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386457218*^9},ExpressionUUID->"47550004-9103-4986-a30e-\ 37c7bc8bfc5e"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "115", "\[InvisibleSpace]", "\<\" counterterms of order 1\"\>"}], SequenceForm["> ", 115, " counterterms of order 1"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386466955*^9},ExpressionUUID->"007a1fae-3e44-4b31-a09a-\ a26d38c27bcb"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" counterterms of order 2\"\>"}], SequenceForm["> ", 6, " counterterms of order 2"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386477181*^9},ExpressionUUID->"ded5c655-69a5-4cd6-a910-\ 0c80b8f44faa"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", RowBox[{"{", "\<\"SM\"\>", "}"}], "\[InvisibleSpace]", "\<\" initialized\"\>"}], SequenceForm["classes model ", {"SM"}, " initialized"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864872704`*^9},ExpressionUUID->"37c3aa25-6e18-43de-9379-\ 799da7f30663"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663864974947`*^9},ExpressionUUID->"7ec2b448-a2b2-492f-bcb5-\ 8fce65e25106"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", "Classes", "}"}]}], SequenceForm["inserting at level(s) ", {FeynArts`Classes}], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663865083647`*^9},ExpressionUUID->"7f4006ea-fe95-4ee6-8bee-\ 3744ccb168ef"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663865179873`*^9},ExpressionUUID->"8bf74feb-3e14-4b82-97c8-\ 04c31e3f1512"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386528243*^9},ExpressionUUID->"a756972d-6210-4e37-b5fe-\ 65ec48b94673"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"4 Classes insertions\"\>"}], SequenceForm["> Top. ", 3, ": ", "4 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386538355*^9},ExpressionUUID->"53eda44a-8d0e-4905-a794-\ 53daa1c2a8ad"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.733266386549757*^9},ExpressionUUID->"5b459297-44f5-4585-8232-\ b56c30dbe354"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"4 Classes insertions\"\>"}], SequenceForm["in total: ", "4 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861241994815*^9, 3.5831152500223207`*^9, 3.630406829893467*^9, 3.7281150073390293`*^9, 3.7281152938114243`*^9, 3.7281416209628973`*^9, 3.728641292272608*^9, 3.733120660569517*^9, 3.733265285451676*^9, 3.7332663865607033`*^9},ExpressionUUID->"e95b4a28-2c94-4025-8851-\ 32d34855105f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Paint", "[", "diagrams", "]"}], ";"}]], "Input", CellChangeTimes->{{3.536039985931381*^9, 3.536039987617811*^9}, 3.536045737978903*^9},ExpressionUUID->"2ce65309-5ce0-460d-a013-\ 69db7bd68a12"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"aebf/cedf/ef.m\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"4 diagrams\"\>"}], SequenceForm["> Top. ", 1, " ", "aebf/cedf/ef.m", ", ", "4 diagrams"], Editable->False]], "Print", CellChangeTimes->{3.53786124590403*^9, 3.5831152521391363`*^9, 3.630406832118861*^9, 3.728115012146453*^9, 3.728115297027046*^9, 3.7281416231518717`*^9, 3.728641294416861*^9, 3.733120662736383*^9, 3.733265287118161*^9, 3.733266386699445*^9},ExpressionUUID->"f0ace43a-93b3-4810-9655-\ a358f7d9fec7"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000908`}, {10., 6.000000000000009}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["H", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.3048, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N1"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000908`}, {10., 6.000000000000009}}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ SuperscriptBox["G", "0"], DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.3048, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C2", " ", "N2"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlAlMnEUYhmcLWa2k9egBFLoszOzJ4sIOVmuVftWEltqGpU1kA5VjlaHQ KL1MgbbQhEpoIr1CkR8xpKVaeiQ9FqtETDaUyzLgumCFlmIl7YrSg6Cpgu2u g5rxT/5Mnsx/zPd97/tGO4s25M1BCKWJe3b99yLw1D9rGKAnD02vtRCod5/y FjLBOdkociMBS+HI2CAX7AjN/ayIQJYVdb9KwwWHNDjLCJxJDYJPFcGQt6hs LwEasWJlCFoCaPP7Vxa+SwANeu4UMcHF/a1xqQRGQ6PLBrjgNYf8pQYCK7Bt 6zIaAehwad3tGQw/uH6zKYpg++dr7/Vj6O7MfOVRQPDk19bg0xgOj+6aymaR gLQV7UPVGC5qMxs7uOB9dR917cNgS04rMNOlgG75lmypwNARYrAfUQQbP9i5 /RiGxY2KdTog+M8nfMdbMGStc3TlMo2oJ8WhuYmhdzlzX+WC7eM5vrkETiSm XqE0CtC46szWFwg8M/NeaYMiGCUZMjMItOsG7XOQFlDP0aJFOwlcXFCrXkYF u72WbeUEHk61vlnABDfTLvVuAptOfbi6QZnd1wzm5hOYmNgy0c8F26tHHyQT OBe88i0Vihb9mVvlWkpg9xpVG6WCHe6TnZMY7M/P0zMmGN245+rEYL55vaVO Edxcs+q74xjWHewq6eWC40dM1QcweKpS9vgDgqvUe38ux+BCntYEGiOe79v+ bCWGu2kRhjwm2O78ZfXHGJS+W5fqFMEv1eyfaMMQdCAuhXPBky1nB3wYYv6a vhYICC4ext4FBBqzMtdTisX8ulXpSQSGxj1NjAmedJzX5hJo+ip9WFEExz9c NbaLgPl77e+cC9a+fLRX9Cfpj4C4/t+/bvkxhFIi3x+2NYt6ify+Jdy6SVGI /H9e08lLnBN5vjG12oSQTp5fVeK9TKlO1leYGLU+n+lk/WEXbg/VKzrZH7sq Prmf62T/aMnlChXSy/5+sWN5ZSLVy/4PE90b+Uwv5+MamBL16uX8qlr9r3Ou l/N1PHaf8Af0cv7hi2sWJlCD1Edzxo4v32YGqZ/5TyefrlUMUl8b7xdMf8MN Un+vjcSefxwwSH0+2t/TnkCNUr+ufIeGMaPUt+YOb6xXjFL/gzcGIr/lRumP YhvdHIRM0j8xe+6mv0hN0l+/ZqX3FjKT9N/ZbRsufKKYpD/bnutQe7hJ+lcb 5f1JhczS32HGSkapWfqfTfq632FmmQ/VzgdQq5hlfgTXhc7r4WaZL2M5zpyZ gFnmjzXDnx1HY2U+9V0rj8xlsTK/7vMjB48psTLfrPPP1V7lgv/Lv4BqdrXA 3yJp8BI= "]], InsetBox[ TagBox[ StyleBox[ TagBox["\[Gamma]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N3"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlAlMnEUYhmcLWa2k9egBFLoszOzJ4sIOVmuVftWEltqGpU1kA5VjlaHQ KL1MgbbQhEpoIr1CkR8xpKVaeiQ9FqtETDaUyzLgumCFlmIl7YrSg6Cpgu2u g5rxT/5Mnsx/zPd97/tGO4s25M1BCKWJe3b99yLw1D9rGKAnD02vtRCod5/y FjLBOdkociMBS+HI2CAX7AjN/ayIQJYVdb9KwwWHNDjLCJxJDYJPFcGQt6hs LwEasWJlCFoCaPP7Vxa+SwANeu4UMcHF/a1xqQRGQ6PLBrjgNYf8pQYCK7Bt 6zIaAehwad3tGQw/uH6zKYpg++dr7/Vj6O7MfOVRQPDk19bg0xgOj+6aymaR gLQV7UPVGC5qMxs7uOB9dR917cNgS04rMNOlgG75lmypwNARYrAfUQQbP9i5 /RiGxY2KdTog+M8nfMdbMGStc3TlMo2oJ8WhuYmhdzlzX+WC7eM5vrkETiSm XqE0CtC46szWFwg8M/NeaYMiGCUZMjMItOsG7XOQFlDP0aJFOwlcXFCrXkYF u72WbeUEHk61vlnABDfTLvVuAptOfbi6QZnd1wzm5hOYmNgy0c8F26tHHyQT OBe88i0Vihb9mVvlWkpg9xpVG6WCHe6TnZMY7M/P0zMmGN245+rEYL55vaVO Edxcs+q74xjWHewq6eWC40dM1QcweKpS9vgDgqvUe38ux+BCntYEGiOe79v+ bCWGu2kRhjwm2O78ZfXHGJS+W5fqFMEv1eyfaMMQdCAuhXPBky1nB3wYYv6a vhYICC4ext4FBBqzMtdTisX8ulXpSQSGxj1NjAmedJzX5hJo+ip9WFEExz9c NbaLgPl77e+cC9a+fLRX9Cfpj4C4/t+/bvkxhFIi3x+2NYt6ify+Jdy6SVGI /H9e08lLnBN5vjG12oSQTp5fVeK9TKlO1leYGLU+n+lk/WEXbg/VKzrZH7sq Prmf62T/aMnlChXSy/5+sWN5ZSLVy/4PE90b+Uwv5+MamBL16uX8qlr9r3Ou l/N1PHaf8Af0cv7hi2sWJlCD1Edzxo4v32YGqZ/5TyefrlUMUl8b7xdMf8MN Un+vjcSefxwwSH0+2t/TnkCNUr+ufIeGMaPUt+YOb6xXjFL/gzcGIr/lRumP YhvdHIRM0j8xe+6mv0hN0l+/ZqX3FjKT9N/ZbRsufKKYpD/bnutQe7hJ+lcb 5f1JhczS32HGSkapWfqfTfq632FmmQ/VzgdQq5hlfgTXhc7r4WaZL2M5zpyZ gFnmjzXDnx1HY2U+9V0rj8xlsTK/7vMjB48psTLfrPPP1V7lgv/Lv4BqdrXA 3yJp8BI= "]], InsetBox[ TagBox[ StyleBox[ TagBox["Z", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C2", " ", "N4"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {24., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {28.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[RightArrow]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {33., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {37.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {42., 69.96}, {0, 0}]}, AspectRatio->1.0999999999999999`, ImageSize->{288, 288}, PlotRange->{{0, 66}, {0, 72.6}}]], "Print", CellChangeTimes->{3.53786124590403*^9, 3.5831152521391363`*^9, 3.630406832118861*^9, 3.728115012146453*^9, 3.728115297027046*^9, 3.7281416231518717`*^9, 3.728641294416861*^9, 3.733120662736383*^9, 3.733265287118161*^9, 3.733266386716997*^9},ExpressionUUID->"1cef0eb1-bee8-4312-ace7-\ 395f1661d6ac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"diagrams", "=", RowBox[{"InsertFields", "[", RowBox[{"topologies", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", "\t", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "2", "]"}], ",", RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", "diagrams", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5360402240857553`*^9, 3.536040270923194*^9}, { 3.536045764004944*^9, 3.536045789388872*^9}},ExpressionUUID->"5bdb417a-016f-433c-ac7e-\ ca292a3470ac"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.73326638750478*^9},ExpressionUUID->"7681234d-5136-4383-a8f8-33e6a245e44e"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Particles fields\"\>"}], SequenceForm[ "Excluding ", 0, " Generic, ", 3, " Classes, and ", 3, " Particles fields"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387512154*^9},ExpressionUUID->"014d8720-2f92-492a-b120-\ 997915b8159c"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387521859*^9},ExpressionUUID->"9163996b-76a2-4e9d-8514-\ dca5d09bd5b5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", "Classes", "}"}]}], SequenceForm["inserting at level(s) ", {FeynArts`Classes}], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387531361*^9},ExpressionUUID->"1742b1c7-4947-49fd-8197-\ 50ec8beed356"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.73326638754091*^9},ExpressionUUID->"2a333e79-c062-4ec8-a906-fc8fce199ab6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387550795*^9},ExpressionUUID->"4b9921f2-174d-46fb-8767-\ 9ea81a94b143"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}], SequenceForm["> Top. ", 3, ": ", "1 Classes insertion"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387561057*^9},ExpressionUUID->"000c97a7-3bff-438b-a79c-\ d4d8a9d184d7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.7332663875715227`*^9},ExpressionUUID->"ea344e17-2e19-4f1a-8f78-\ 1c950dc473b6"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387581421*^9},ExpressionUUID->"d0cbcad8-286d-4053-a8b2-\ 89d3a36ebe61"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Particles fields\"\>"}], SequenceForm[ "Restoring ", 0, " Generic, ", 3, " Classes, and ", 3, " Particles fields"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.7332663875908813`*^9},ExpressionUUID->"7c2456d6-4fd1-4db3-a6d9-\ 23e593263701"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}], SequenceForm["in total: ", "1 Classes insertion"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.73326638760075*^9},ExpressionUUID->"965464c0-03b2-47b3-8ed5-bf1d4a6e6fa7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"aebf/cedf/ef.m\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"1 diagram\"\>"}], SequenceForm["> Top. ", 1, " ", "aebf/cedf/ef.m", ", ", "1 diagram"], Editable->False]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387610553*^9},ExpressionUUID->"d55e9fff-b8cf-4155-9f46-\ 4c1a5f48e82c"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlAlMnEUYhmcLWa2k9egBFLoszOzJ4sIOVmuVftWEltqGpU1kA5VjlaHQ KL1MgbbQhEpoIr1CkR8xpKVaeiQ9FqtETDaUyzLgumCFlmIl7YrSg6Cpgu2u g5rxT/5Mnsx/zPd97/tGO4s25M1BCKWJe3b99yLw1D9rGKAnD02vtRCod5/y FjLBOdkociMBS+HI2CAX7AjN/ayIQJYVdb9KwwWHNDjLCJxJDYJPFcGQt6hs LwEasWJlCFoCaPP7Vxa+SwANeu4UMcHF/a1xqQRGQ6PLBrjgNYf8pQYCK7Bt 6zIaAehwad3tGQw/uH6zKYpg++dr7/Vj6O7MfOVRQPDk19bg0xgOj+6aymaR gLQV7UPVGC5qMxs7uOB9dR917cNgS04rMNOlgG75lmypwNARYrAfUQQbP9i5 /RiGxY2KdTog+M8nfMdbMGStc3TlMo2oJ8WhuYmhdzlzX+WC7eM5vrkETiSm XqE0CtC46szWFwg8M/NeaYMiGCUZMjMItOsG7XOQFlDP0aJFOwlcXFCrXkYF u72WbeUEHk61vlnABDfTLvVuAptOfbi6QZnd1wzm5hOYmNgy0c8F26tHHyQT OBe88i0Vihb9mVvlWkpg9xpVG6WCHe6TnZMY7M/P0zMmGN245+rEYL55vaVO Edxcs+q74xjWHewq6eWC40dM1QcweKpS9vgDgqvUe38ux+BCntYEGiOe79v+ bCWGu2kRhjwm2O78ZfXHGJS+W5fqFMEv1eyfaMMQdCAuhXPBky1nB3wYYv6a vhYICC4ext4FBBqzMtdTisX8ulXpSQSGxj1NjAmedJzX5hJo+ip9WFEExz9c NbaLgPl77e+cC9a+fLRX9Cfpj4C4/t+/bvkxhFIi3x+2NYt6ify+Jdy6SVGI /H9e08lLnBN5vjG12oSQTp5fVeK9TKlO1leYGLU+n+lk/WEXbg/VKzrZH7sq Prmf62T/aMnlChXSy/5+sWN5ZSLVy/4PE90b+Uwv5+MamBL16uX8qlr9r3Ou l/N1PHaf8Af0cv7hi2sWJlCD1Edzxo4v32YGqZ/5TyefrlUMUl8b7xdMf8MN Un+vjcSefxwwSH0+2t/TnkCNUr+ufIeGMaPUt+YOb6xXjFL/gzcGIr/lRumP YhvdHIRM0j8xe+6mv0hN0l+/ZqX3FjKT9N/ZbRsufKKYpD/bnutQe7hJ+lcb 5f1JhczS32HGSkapWfqfTfq632FmmQ/VzgdQq5hlfgTXhc7r4WaZL2M5zpyZ gFnmjzXDnx1HY2U+9V0rj8xlsTK/7vMjB48psTLfrPPP1V7lgv/Lv4BqdrXA 3yJp8BI= "]], InsetBox[ TagBox[ StyleBox[ TagBox["\[Gamma]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N1"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {24., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {28.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[RightArrow]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {33., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {37.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {42., 69.96}, {0, 0}]}, AspectRatio->1.0999999999999999`, ImageSize->{288, 288}, PlotRange->{{0, 66}, {0, 72.6}}]], "Print", CellChangeTimes->{3.537861246161969*^9, 3.583115254439705*^9, 3.6304068349435453`*^9, 3.728115013520302*^9, 3.728115299044209*^9, 3.728141624615827*^9, 3.7286412962259903`*^9, 3.733120664172373*^9, 3.733265290087593*^9, 3.733266387621622*^9},ExpressionUUID->"28484dc1-f667-4302-8223-\ 1b26480dad86"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Pass the diagram to FormCalc", "Subsection", CellChangeTimes->{{3.536040603141096*^9, 3.536040608388927*^9}},ExpressionUUID->"9dcf7fb6-aba8-42ac-947a-\ 76480b441d8c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"amplitude", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diagrams", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5360444162921333`*^9, 3.5360444201880074`*^9}, { 3.536044457426586*^9, 3.536044473521668*^9}, {3.536044748976923*^9, 3.536044752575123*^9}, {3.583115270003009*^9, 3.583115272043015*^9}, { 3.7281150196990967`*^9, 3.728115019994878*^9}},ExpressionUUID->"9c6829b3-ae4b-4c53-9e0f-\ 2561c8c273ef"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.7332663878571463`*^9},ExpressionUUID->"6a995eab-6b74-4b15-a85e-\ 4134ea86220f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", "Classes", "}"}]}], SequenceForm["creating amplitudes at level(s) ", {FeynArts`Classes}], Editable->False]], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.733266387865801*^9},ExpressionUUID->"7816b396-8ebb-4793-8ce6-\ 04f3fcbb2950"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}], SequenceForm["> Top. ", 1, ": ", "1 Classes amplitude"], Editable->False]], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.7332663878761063`*^9},ExpressionUUID->"02653205-f934-4681-9d0b-\ 519f48945549"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}], SequenceForm["in total: ", "1 Classes amplitude"], Editable->False]], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.733266387886221*^9},ExpressionUUID->"0ff9eb7a-8b6d-4e5a-bd9d-\ 3354c189c55d"], Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-amp-1.frm\"\>"], \ "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.733266387896812*^9},ExpressionUUID->"09e01f8b-e2e7-435f-8b65-\ 16cc1195d63f"], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.733266387907262*^9},ExpressionUUID->"7dd14808-7342-42a6-b16b-\ 7412dcf62223"], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{3.5378612467988358`*^9, 3.58311525762262*^9, 3.630406838324339*^9, 3.728115020316936*^9, 3.728115076579794*^9, 3.728115156257888*^9, 3.72811530108221*^9, 3.728141626883073*^9, 3.72864129959969*^9, 3.73312066588405*^9, 3.7332652921309853`*^9, 3.733266387917335*^9},ExpressionUUID->"907d3e6e-2949-4909-b07f-\ d6236a873374"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Amp", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"k", "[", "1", "]"}], ",", "ME", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"k", "[", "2", "]"}], ",", "MM", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"k", "[", "3", "]"}], ",", "ME", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"k", "[", "4", "]"}], ",", "MM", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}]}], "}"}]}], "]"}], "[", RowBox[{ RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", "F1", "]"}]}], "-", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", "F2", "]"}]}], "-", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", "F3", "]"}]}], "+", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", "F4", "]"}]}]}], "]"}]], "Output", CellChangeTimes->{3.537861247128965*^9, 3.5831152576959476`*^9, 3.630406838419355*^9, 3.7281150203948603`*^9, 3.728115076655628*^9, 3.728115156331036*^9, 3.728115301154655*^9, 3.728141626947044*^9, 3.7286412996675663`*^9, 3.733120665951894*^9, 3.733265292200293*^9, 3.733266387927639*^9},ExpressionUUID->"1e758771-d789-4a83-8d00-\ 8bf15785eb19"] }, Open ]], Cell["\<\ Remember that SquaredME returns a list of {squared, squaredRules}. In Lecture 1-1 we applied the rules right now to avoid confusion. Here we follow the official recommendation: applying the rules as late as \ possible to improve the calculation speed.\ \>", "Text", CellChangeTimes->{{3.7331207290579243`*^9, 3.733120818129345*^9}, { 3.7332653024499197`*^9, 3.733265356343884*^9}, {3.733265559655665*^9, 3.7332655711815367`*^9}},ExpressionUUID->"62edd96a-522a-4fa2-b14a-\ f1e5d46dc1d8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"squared", "=", RowBox[{"SquaredME", "[", "amplitude", "]"}]}]], "Input", CellChangeTimes->{ 3.728115090632472*^9, {3.728115144097003*^9, 3.728115180293467*^9}, { 3.728115253619977*^9, 3.728115278579713*^9}, {3.728641317626603*^9, 3.728641440055039*^9}, 3.7331207262780447`*^9, {3.733265364807871*^9, 3.733265365519692*^9}, {3.733265585543509*^9, 3.73326558581536*^9}},ExpressionUUID->"b9f34ca4-0123-474f-9edc-\ 506364adec6d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F4"}], "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.728115091508629*^9, 3.7281151845637283`*^9, 3.7281153023641787`*^9, 3.728141628147286*^9, 3.7286414412491827`*^9, 3.7331206676358547`*^9, 3.7331208191606493`*^9, 3.733265367038378*^9, 3.733265586361321*^9, 3.733266388166669*^9},ExpressionUUID->"9967af9d-6fc0-4344-ba29-\ 6ee43002b8ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"helSquared", "=", RowBox[{"squared", "//.", RowBox[{"HelicityME", "[", "amplitude", "]"}]}]}]], "Input",ExpressionUUID-\ >"eea2365c-d8fc-4fbe-9ae0-e2b355658822"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}], SequenceForm["> ", 16, " helicity matrix elements"], Editable->False]], "Print", CellChangeTimes->{3.733265590156829*^9, 3.733266388208187*^9},ExpressionUUID->"95a70912-1903-4776-9449-\ cfcbaebb97ac"], Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \ "Print", CellChangeTimes->{3.733265590156829*^9, 3.733266388219144*^9},ExpressionUUID->"2463edda-9de3-4c06-95a8-\ 09afe4d347df"], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{3.733265590156829*^9, 3.733266388234539*^9},ExpressionUUID->"8d86c1ef-97b3-4df2-b063-\ 44600e125bb5"], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{3.733265590156829*^9, 3.733266389438203*^9},ExpressionUUID->"669252ec-a724-4ba6-abfb-\ 1ccb0792a44a"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FF", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb16", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb14", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb15", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Eps3", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Eps11", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Eps4", " ", RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb18", " ", "ME"}], "-", RowBox[{"Abb17", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb27", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Abb32", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Eps7", " ", RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb23", " ", "ME"}], "-", RowBox[{"Abb21", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb28", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Abb30", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Abb34"}], " ", "ME2"}], "+", RowBox[{"2", " ", "Abb35", " ", "ME", " ", "MM"}], "-", RowBox[{"Abb31", " ", "MM2"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb33", " ", "ME"}], "+", RowBox[{"Abb25", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb29", " ", "ME"}], "+", RowBox[{"Abb26", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb20", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb24", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb19", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", RowBox[{"14", " ", "ME2", " ", "MM2"}], "+", SuperscriptBox["MM2", "2"], "-", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb115", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb114", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb113", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb105", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb102", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair1"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb118", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb106", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb75", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb112", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb111", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb110", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb99", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb117", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb116", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb121", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb119", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair4"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"Abb125", "-", RowBox[{"4", " ", "Abb109", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "Abb103", " ", "ME2", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb54", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb47", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair18"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Abb64"}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb56", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair15"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb42", "+", RowBox[{"2", " ", "Eps16", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb36", "+", RowBox[{"2", " ", "Eps15", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{"Abb60", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb52", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair16"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb66", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb62", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair17"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb45", "+", RowBox[{"2", " ", "Eps21", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb50", "+", RowBox[{"2", " ", "Eps19", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb48", "+", RowBox[{"2", " ", "Eps24", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb49", "+", RowBox[{"2", " ", "Eps22", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb58", "+", RowBox[{"2", " ", "Eps27", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb57", "+", RowBox[{"2", " ", "Eps29", " ", "MM2"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb44", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb43", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb40", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["ME2", "2"]}], "-", SuperscriptBox["MM2", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "MM2"}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"Eps3", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Eps11", " ", "ME", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb76", " ", "ME2"}], "-", RowBox[{"Abb75", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Abb89", " ", "ME", " ", "MM"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb72", " ", "ME"}], "+", RowBox[{"Abb69", " ", "MM"}], "+", RowBox[{"4", " ", "Eps31", " ", "ME", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "-", RowBox[{"MM", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Abb67", " ", "ME", " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{"2", " ", "Eps4", " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "ME", " ", RowBox[{"(", RowBox[{"Eps7", "+", RowBox[{"Abb87", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Abb99"}], " ", "ME2"}], "+", RowBox[{"Abb97", " ", "MM2"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb74", " ", "ME"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb82", "-", RowBox[{"4", " ", "Eps32", " ", "ME2"}]}], ")"}], " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Abb100", " ", "ME", " ", "MM"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb80", " ", "ME"}], "-", RowBox[{"Abb81", " ", "MM"}], "-", RowBox[{"4", " ", "Eps33", " ", "ME", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb101", " ", "ME"}], "-", RowBox[{ RowBox[{"(", RowBox[{"Abb96", "+", RowBox[{"4", " ", "Eps34", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb94", "-", RowBox[{"4", " ", "Abb71", " ", "ME2", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "ME2", " ", "MM2"}], "-", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"Abb3", "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb1", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair1"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"Abb6", "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb4", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair4"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}], " ", RowBox[{"Hel", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb5", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb2", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair1", " ", "Pair4"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}], " ", RowBox[{"Hel", "[", "3", "]"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Eps3"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Eps11", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb16", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb14", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb15", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Eps4"}], " ", RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "Abb27", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["Abb32", "4"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb18", " ", "ME"}], "+", RowBox[{"Abb17", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Eps7", " ", RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "Abb28", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["Abb30", "4"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb23", " ", "ME"}], "+", RowBox[{"Abb21", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb34", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb35", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb31", " ", "MM2"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb33", " ", "ME"}], "-", RowBox[{"Abb25", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb29", " ", "ME"}], "-", RowBox[{"Abb26", " ", "MM"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb20", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb24", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb19", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb54", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb47", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair18"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Abb64"}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb56", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair15"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb42", "+", RowBox[{"2", " ", "Eps16", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb36", "+", RowBox[{"2", " ", "Eps15", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{"Abb60", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb52", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair16"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb66", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb62", " ", "ME", " ", "MM"}], "+", RowBox[{"ME2", " ", "MM2", " ", "Pair17"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb45", "+", RowBox[{"2", " ", "Eps21", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb50", "+", RowBox[{"2", " ", "Eps19", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb48", "+", RowBox[{"2", " ", "Eps24", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb49", "+", RowBox[{"2", " ", "Eps22", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb58", "+", RowBox[{"2", " ", "Eps27", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb57", "+", RowBox[{"2", " ", "Eps29", " ", "MM2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb44", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb43", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb40", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Pair5"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ME2", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{ RowBox[{"MM", " ", "Pair3"}], "-", RowBox[{"Eps1", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pair6", " ", RowBox[{"(", RowBox[{ RowBox[{"ME", " ", "MM", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "Pair3"}], "-", RowBox[{"Eps1", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "Abb12", " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{"Eps2", " ", RowBox[{"(", RowBox[{ RowBox[{"ME", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"MM", " ", "Pair3", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"ME2", " ", "MM2"}], "+", RowBox[{"ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb3", "+", RowBox[{"4", " ", "Abb1", " ", "ME", " ", "MM"}], "-", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair1"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb6", "+", RowBox[{"4", " ", "Abb4", " ", "ME", " ", "MM"}], "-", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair4"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb5", "-", RowBox[{"4", " ", "Abb2", " ", "ME", " ", "MM"}], "+", RowBox[{ "4", " ", "ME2", " ", "MM2", " ", "Pair1", " ", "Pair4"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb16", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb14", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb15", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Eps3", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Eps11", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Eps4"}], " ", RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb18", " ", "ME"}], "-", RowBox[{"Abb17", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb27", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Abb32", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Eps7"}], " ", RowBox[{"(", RowBox[{"ME", "+", "MM"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb23", " ", "ME"}], "-", RowBox[{"Abb21", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb28", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"Abb30", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Abb34"}], " ", "ME2"}], "+", RowBox[{"2", " ", "Abb35", " ", "ME", " ", "MM"}], "-", RowBox[{"Abb31", " ", "MM2"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb33", " ", "ME"}], "+", RowBox[{"Abb25", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb29", " ", "ME"}], "+", RowBox[{"Abb26", " ", "MM"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb20", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb24", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb19", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Pair5"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ME2", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{ RowBox[{"MM", " ", "Pair3"}], "+", RowBox[{"Eps1", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pair6", " ", RowBox[{"(", RowBox[{ RowBox[{"ME", " ", "MM", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "Pair3"}], "+", RowBox[{"Eps1", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "Abb12", " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "-", RowBox[{"Eps2", " ", RowBox[{"(", RowBox[{ RowBox[{"ME", " ", "Pair2", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"MM", " ", "Pair3", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb54", "-", RowBox[{"4", " ", "Abb47", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair18"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb64", "-", RowBox[{"4", " ", "Abb56", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair15"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb66", "-", RowBox[{"4", " ", "Abb62", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair17"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb45"}], "-", RowBox[{"2", " ", "Eps21", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb50", "+", RowBox[{"2", " ", "Eps19", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb44", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb43", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb40", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb48"}], "-", RowBox[{"2", " ", "Eps24", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb49", "+", RowBox[{"2", " ", "Eps22", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb58"}], "-", RowBox[{"2", " ", "Eps27", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb57", "+", RowBox[{"2", " ", "Eps29", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb42"}], "-", RowBox[{"2", " ", "Eps16", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb36", "+", RowBox[{"2", " ", "Eps15", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb60", "-", RowBox[{"4", " ", "Abb52", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair16"}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", RowBox[{"14", " ", "ME2", " ", "MM2"}], "+", SuperscriptBox["MM2", "2"], "+", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb115", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb114", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb113", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Abb105", "+", RowBox[{"2", " ", "Abb102", " ", "ME", " ", "MM"}], "-", RowBox[{"2", " ", "ME2", " ", "MM2", " ", "Pair1"}]}], ")"}]}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb118", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb106", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb75", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb112", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb111", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb110", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb99", " ", "ME2"}], "-", RowBox[{"2", " ", "Abb117", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb116", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb121"}], "-", RowBox[{"2", " ", "Abb119", " ", "ME", " ", "MM"}], "+", RowBox[{"2", " ", "ME2", " ", "MM2", " ", "Pair4"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"Abb125", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb109", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb103", " ", "ME2", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Eps3", " ", RowBox[{"Hel", "[", "1", "]"}]}], "-", RowBox[{"Eps11", " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb16", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb14", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb15", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Eps4", " ", RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "Abb27", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["Abb32", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb18", " ", "ME"}], "+", RowBox[{"Abb17", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Eps7"}], " ", RowBox[{"(", RowBox[{"ME", "-", "MM"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "Abb28", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["Abb30", "4"], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb23", " ", "ME"}], "+", RowBox[{"Abb21", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb34", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb35", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb31", " ", "MM2"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb33", " ", "ME"}], "-", RowBox[{"Abb25", " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Abb29"}], " ", "ME"}], "+", RowBox[{"Abb26", " ", "MM"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb20", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb24", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb19", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["ME2", "2"]}], "-", SuperscriptBox["MM2", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "MM2"}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb76", " ", "ME2"}], "-", RowBox[{"Abb75", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Abb89", " ", "ME", " ", "MM"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb72", " ", "ME"}], "-", RowBox[{"Abb69", " ", "MM"}], "+", RowBox[{"4", " ", "Eps31", " ", "ME", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"Eps3", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Eps11", "+", RowBox[{"Abb67", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{"Eps4", " ", "MM", " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ME", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Eps7"}], "+", RowBox[{"2", " ", "Abb87", " ", "MM", " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Abb99"}], " ", "ME2"}], "+", RowBox[{"Abb97", " ", "MM2"}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb74", " ", "ME"}], "-", RowBox[{ RowBox[{"(", RowBox[{"Abb82", "-", RowBox[{"4", " ", "Eps32", " ", "ME2"}]}], ")"}], " ", "MM"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Abb100", " ", "ME", " ", "MM"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb80", " ", "ME"}], "+", RowBox[{"Abb81", " ", "MM"}], "-", RowBox[{"4", " ", "Eps33", " ", "ME", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb101", " ", "ME"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb96", "+", RowBox[{"4", " ", "Eps34", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb94", "-", RowBox[{"4", " ", "Abb71", " ", "ME2", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Abb54", "-", RowBox[{"4", " ", "Abb47", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair18"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"Abb64", "-", RowBox[{"4", " ", "Abb56", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair15"}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb66", "-", RowBox[{"4", " ", "Abb62", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair17"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb45"}], "-", RowBox[{"2", " ", "Eps21", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb50", "+", RowBox[{"2", " ", "Eps19", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb48"}], "-", RowBox[{"2", " ", "Eps24", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb49", "+", RowBox[{"2", " ", "Eps22", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb58"}], "-", RowBox[{"2", " ", "Eps27", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb57", "+", RowBox[{"2", " ", "Eps29", " ", "MM2"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abb44", " ", "ME2"}], "+", RowBox[{"2", " ", "Abb43", " ", "ME", " ", "MM"}], "+", RowBox[{"Abb40", " ", "MM2"}]}], ")"}], " ", RowBox[{"Hel", "[", "1", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "3", "]"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"Hel", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Abb42"}], "-", RowBox[{"2", " ", "Eps16", " ", "ME2"}]}], ")"}], " ", "MM"}], "+", RowBox[{"ME", " ", RowBox[{"(", RowBox[{"Abb36", "+", RowBox[{"2", " ", "Eps15", " ", "MM2"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Hel", "[", "2", "]"}], " ", RowBox[{"Hel", "[", "3", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"Abb60", "-", RowBox[{"4", " ", "Abb52", " ", "ME", " ", "MM"}], "+", RowBox[{"4", " ", "ME2", " ", "MM2", " ", "Pair16"}]}], ")"}], " ", RowBox[{"Hel", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.733265590671473*^9, 3.733266389459189*^9},ExpressionUUID->"cc38ce80-3ce6-485d-9690-\ 0a9a5301ee39"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matrixElement", "=", RowBox[{"helSquared", "//.", RowBox[{"{", RowBox[{ RowBox[{"Hel", "[", "_", "]"}], "\[Rule]", "0"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.536044564533993*^9, 3.5360445943643436`*^9}, { 3.536044708025024*^9, 3.5360447276000643`*^9}, {3.5360447882964287`*^9, 3.536044795894558*^9}, {3.536045941277089*^9, 3.536045950723707*^9}, { 3.536046008882647*^9, 3.536046009162545*^9}, {3.7281150830340433`*^9, 3.728115112039958*^9}, {3.7281153129689913`*^9, 3.7281153149200897`*^9}, { 3.7332655396819153`*^9, 3.7332655418086443`*^9}},ExpressionUUID->"850111dd-4e5a-4bef-8399-\ ab8532bb60c1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FF", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "ME2", " ", "MM2"}], "-", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"]}], ")"}], " ", RowBox[{"FFC", "[", "F3", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", RowBox[{"14", " ", "ME2", " ", "MM2"}], "+", SuperscriptBox["MM2", "2"], "+", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F3", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["ME2", "2"]}], "-", SuperscriptBox["MM2", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "MM2"}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"ME2", " ", "MM2"}], "+", RowBox[{"ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"]}], ")"}], " ", RowBox[{"FFC", "[", "F1", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ME2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "T"}], ")"}]}], "+", RowBox[{"MM2", " ", "T"}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F1", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["ME2", "2"]}], "-", SuperscriptBox["MM2", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "MM2"}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", RowBox[{"14", " ", "ME2", " ", "MM2"}], "+", SuperscriptBox["MM2", "2"], "-", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5378612479706306`*^9, 3.583115262835648*^9, 3.630406842952097*^9, 3.728115025331286*^9, {3.728115078706237*^9, 3.728115112344698*^9}, 3.728115191559811*^9, 3.7281153154872017`*^9, 3.728141632985868*^9, 3.728641454891472*^9, 3.7331206722565002`*^9, 3.733120823069607*^9, 3.733265373728622*^9, 3.733265600231786*^9, 3.7332663895707893`*^9},ExpressionUUID->"47f74d74-f5b3-436f-a9f1-\ 7570dae5f520"] }, Open ]], Cell["\<\ We have obtained unpolarized amplitude by Hel[_]\[Rule]0. Instead, setting \ _Hel=0 in advance gives the same result (and actually faster).\ \>", "Text", CellChangeTimes->{{3.536045967606989*^9, 3.536045982297927*^9}, { 3.630406852128491*^9, 3.630407040042856*^9}, {3.728641474315393*^9, 3.728641479571246*^9}, 3.733265378486836*^9},ExpressionUUID->"7507a846-f739-4785-91a9-\ d3a8673890be"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"_Hel", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"squared", " ", "=", " ", RowBox[{"SquaredME", "[", "amplitude", "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{"helAveragedSquared", "=", RowBox[{ RowBox[{"squared", "//.", RowBox[{"HelicityME", "[", "amplitude", "]"}]}], "//", "Simplify"}]}]}], "Input", CellChangeTimes->{ 3.5360458443016443`*^9, {3.5360459845061207`*^9, 3.536046003802265*^9}, { 3.536046040737588*^9, 3.536046048665474*^9}, {3.7281152022923183`*^9, 3.728115249906497*^9}, {3.728115319895771*^9, 3.7281153247197437`*^9}, { 3.72864146068377*^9, 3.728641470844013*^9}, {3.733265386894918*^9, 3.733265388990766*^9}, {3.7332656245500107`*^9, 3.733265659734415*^9}, 3.7332662129756403`*^9},ExpressionUUID->"10cf5b53-877a-4b02-9ded-\ 8364711aac36"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", ",", "F4"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F1"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F2"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", ",", "F4"}], "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.537861248338832*^9, 3.583115278064982*^9, {3.630407029200818*^9, 3.630407043780588*^9}, 3.728115031475319*^9, 3.728115115927494*^9, 3.728115325747411*^9, 3.728141636433566*^9, 3.728641501814024*^9, 3.733120676056241*^9, 3.733120829327289*^9, {3.733265624973238*^9, 3.733265661992478*^9}, 3.733266213876026*^9, 3.733266389674984*^9},ExpressionUUID->"4b030399-6cb9-4ef0-a246-\ 1090fdce5ba1"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}], SequenceForm["> ", 16, " helicity matrix elements"], Editable->False]], "Print", CellChangeTimes->{{3.7332656478785257`*^9, 3.7332656620040894`*^9}, 3.7332662138876257`*^9, 3.733266389683894*^9},ExpressionUUID->"8e333822-5efa-4ace-b334-\ 39c7317b4d98"], Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \ "Print", CellChangeTimes->{{3.7332656478785257`*^9, 3.7332656620040894`*^9}, 3.7332662138876257`*^9, 3.7332663896891193`*^9},ExpressionUUID->"a96cb9db-55d5-44c1-ad86-\ 3cd219139e9f"], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{{3.7332656478785257`*^9, 3.7332656620040894`*^9}, 3.7332662138876257`*^9, 3.733266389698791*^9},ExpressionUUID->"eaa5d949-0b11-48d2-978c-\ 7595846f835f"], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{{3.7332656478785257`*^9, 3.7332656620040894`*^9}, 3.7332662138876257`*^9, 3.733266389707806*^9},ExpressionUUID->"e7f628d5-2df6-4fd6-a971-\ a53c06a304b3"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "T"}], "+", RowBox[{"ME2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "MM2"}], "+", "T"}], ")"}]}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "ME2", " ", "MM2"}], "-", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"]}], ")"}], " ", RowBox[{"FFC", "[", "F3", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"FF", "[", "F1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "ME2", " ", "MM2"}], "+", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "S"}], ")"}], "2"]}], ")"}], " ", RowBox[{"FFC", "[", "F1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "T"}], "+", RowBox[{"ME2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "MM2"}], "+", "T"}], ")"}]}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"FF", "[", "F4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "T"}], "+", RowBox[{"ME2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "MM2"}], "+", "T"}], ")"}]}], "+", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F1", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", SuperscriptBox["MM2", "2"], "-", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "+", RowBox[{"2", " ", "MM2", " ", "S"}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", SuperscriptBox["MM2", "2"], "+", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "MM2"}], "+", "S"}], ")"}]}], "-", RowBox[{"2", " ", "MM2", " ", "T"}], "+", SuperscriptBox["T", "2"], "-", RowBox[{"2", " ", "MM2", " ", "U"}], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "ME", " ", "MM"}], "-", RowBox[{"7", " ", "MM2"}], "+", "T", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"FF", "[", "F2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", SuperscriptBox["MM2", "2"], "+", RowBox[{"4", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "-", RowBox[{"2", " ", "MM2", " ", "T"}], "+", SuperscriptBox["T", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "ME", " ", "MM"}], "+", RowBox[{"7", " ", "MM2"}], "-", "T", "-", "U"}], ")"}]}], "-", RowBox[{"2", " ", "MM2", " ", "U"}], "+", SuperscriptBox["U", "2"]}], ")"}], " ", RowBox[{"FFC", "[", "F2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MM2", " ", "T"}], "+", RowBox[{"ME2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "MM2"}], "+", "T"}], ")"}]}], "-", RowBox[{"2", " ", "ME", " ", "MM", " ", RowBox[{"(", RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ME2", "2"], "+", SuperscriptBox["MM2", "2"], "-", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{"MM2", "-", "S"}], ")"}]}], "+", RowBox[{"2", " ", "MM2", " ", "S"}], "-", RowBox[{"S", " ", RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}], " ", RowBox[{"FFC", "[", "F4", "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"FF", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FF", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F1", "]"}], "\[Rule]", RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F2", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ",", RowBox[{ RowBox[{"FFC", "[", "F4", "]"}], "\[Rule]", RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.537861248338832*^9, 3.583115278064982*^9, {3.630407029200818*^9, 3.630407043780588*^9}, 3.728115031475319*^9, 3.728115115927494*^9, 3.728115325747411*^9, 3.728141636433566*^9, 3.728641501814024*^9, 3.733120676056241*^9, 3.733120829327289*^9, {3.733265624973238*^9, 3.733265661992478*^9}, 3.733266213876026*^9, 3.733266390305719*^9},ExpressionUUID->"44d0cfbd-fe4d-49dd-b82d-\ 2c8bbba440d8"] }, Open ]], Cell["This is not the result. We should", "Text", CellChangeTimes->{{3.733265922830205*^9, 3.7332660091660147`*^9}},ExpressionUUID->"a4581c99-9613-4f54-a521-\ 09e06238cc9f"], Cell[CellGroupData[{ Cell["multiply it by four (Do you remember why?), and", "Item", CellChangeTimes->{{3.733266011404743*^9, 3.733266036893057*^9}},ExpressionUUID->"08bb3a3c-0ecf-4868-844c-\ 07c8ba76fb8b"], Cell["\<\ apply the second part (we above called \[OpenCurlyDoubleQuote]squaredRules\ \[CloseCurlyDoubleQuote] ) to the first part.\ \>", "Item", CellChangeTimes->{{3.733266011404743*^9, 3.733266032972224*^9}, { 3.7332660673036013`*^9, 3.733266087686101*^9}, {3.733266130768491*^9, 3.7332661327660723`*^9}},ExpressionUUID->"792ee401-018e-46e6-9d51-\ d099f0b6d212"] }, Open ]], Cell["So,", "Text", CellChangeTimes->{{3.733265922830205*^9, 3.7332660091660147`*^9}, { 3.7332661501580553`*^9, 3.7332661504946547`*^9}},ExpressionUUID->"9b579533-4455-4ac5-8e44-\ 41471f448028"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"result", "=", RowBox[{ RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"helAveragedSquared", "[", RowBox[{"[", "1", "]"}], "]"}], "//.", RowBox[{"helAveragedSquared", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.7332659212410793`*^9, 3.733265921454534*^9}, { 3.733266166025128*^9, 3.733266222197372*^9}},ExpressionUUID->"75b92050-1ee2-49bc-adcd-\ 2d3c7ac0b358"], Cell[BoxData[ RowBox[{"16", " ", "Alfa2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["ME2", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["MM2", "2"]}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "S", "+", "T", "-", "U"}], ")"}]}], "-", RowBox[{"2", " ", "S", " ", "U"}], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", "MM2", " ", RowBox[{"(", RowBox[{"S", "-", "T", "+", "U"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"]}]], "Output", CellChangeTimes->{{3.733266189841819*^9, 3.733266205355916*^9}, 3.7332663904305773`*^9},ExpressionUUID->"40748b95-c9df-480c-b112-\ 867e70e4c6c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ourResult", "=", RowBox[{"result", "//.", RowBox[{"{", RowBox[{ RowBox[{"ME", "\[Rule]", "0"}], ",", RowBox[{"ME2", "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Den", "[", RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"S", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{"kk", "+", "EE"}], ")"}], "2"]}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], SuperscriptBox["kk", "2"], RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}]}]}], ",", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"2", "ME2"}], "+", RowBox[{"2", "MM2"}], "-", "S", "-", "T"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5360458429331207`*^9, 3.536045842993705*^9}, { 3.5360460989254208`*^9, 3.536046103102667*^9}, {3.53604615164497*^9, 3.536046201107079*^9}, {3.53604626359282*^9, 3.536046283993025*^9}, { 3.536046330567751*^9, 3.5360464005070457`*^9}, {3.536046435810733*^9, 3.536046443907296*^9}, {3.5360466185558987`*^9, 3.536046624372665*^9}, { 3.53604677072831*^9, 3.5360467829037647`*^9}, {3.728115047897161*^9, 3.7281150508812523`*^9}, {3.728115336240468*^9, 3.728115341303022*^9}, { 3.733266236647154*^9, 3.73326626758727*^9}, {3.73326630424012*^9, 3.7332663392635393`*^9}},ExpressionUUID->"d831518a-3e96-4fb6-a8ca-\ e58687bf2a10"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", "Alfa2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"], " ", SuperscriptBox["kk", "4"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "4"], "+", RowBox[{"4", " ", SuperscriptBox["MM2", "2"]}], "-", RowBox[{"2", " ", "MM2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "+", RowBox[{"2", " ", "MM2"}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", RowBox[{"2", " ", "MM2"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", RowBox[{"2", " ", "MM2"}]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox["\[Pi]", "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"], " ", SuperscriptBox["kk", "4"]}]]], "Output", CellChangeTimes->{ 3.5378612486904783`*^9, 3.5831153042153893`*^9, 3.630407047129521*^9, { 3.728115051395219*^9, 3.728115060012734*^9}, 3.728115342690824*^9, 3.728141640753316*^9, 3.728641515939885*^9, 3.733120679312752*^9, 3.733120833089739*^9, {3.733266233291185*^9, 3.733266237443018*^9}, 3.733266267926523*^9, 3.733266308016431*^9, 3.7332663398485518`*^9, 3.73326639057428*^9},ExpressionUUID->"4b673c15-6eb0-4358-a524-\ 597309fdc61e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"PeskinResult", "=", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{ RowBox[{"(", RowBox[{"4", "\[Pi]", " ", "Alfa"}], ")"}], "^", "2"}]}], RowBox[{ SuperscriptBox["kk", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"kk", " ", "CosTheta"}]}], ")"}], "2"], "-", RowBox[{"MM2", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"ourResult", "\[Equal]", "PeskinResult"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ SuperscriptBox["EE", "2"], "\[Equal]", RowBox[{ SuperscriptBox["kk", "2"], "+", "MM2"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{ 3.536045841590535*^9, {3.536046692553226*^9, 3.53604681544718*^9}, { 3.5360468482054443`*^9, 3.5360468859094343`*^9}, {3.7281153478626432`*^9, 3.728115348110721*^9}, {3.733266365021657*^9, 3.7332663688699083`*^9}},ExpressionUUID->"f9650887-4d05-4a5a-8d69-\ 031bb7794ced"], Cell[BoxData[ FractionBox[ RowBox[{"32", " ", "Alfa2", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"CosTheta", " ", "kk"}]}], ")"}], "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", "MM2"}]}], ")"}], " ", SuperscriptBox["\[Pi]", "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"], " ", SuperscriptBox["kk", "2"]}]]], "Output", CellChangeTimes->{ 3.5378612487737513`*^9, 3.583115306923184*^9, 3.63040704923426*^9, 3.7281153485745296`*^9, 3.728141641968055*^9, 3.728641518931896*^9, 3.7331206804089203`*^9, 3.7331208343986053`*^9, 3.7332662390687017`*^9, 3.733266270052062*^9, 3.733266309840733*^9, {3.733266340790236*^9, 3.733266390771789*^9}},ExpressionUUID->"ae2ceb47-7f9c-4457-9060-\ c060569700d4"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.5378612487737513`*^9, 3.583115306923184*^9, 3.63040704923426*^9, 3.7281153485745296`*^9, 3.728141641968055*^9, 3.728641518931896*^9, 3.7331206804089203`*^9, 3.7331208343986053`*^9, 3.7332662390687017`*^9, 3.733266270052062*^9, 3.733266309840733*^9, {3.733266340790236*^9, 3.733266390779163*^9}},ExpressionUUID->"006941b8-5042-4876-ab14-\ 7694fdc6881d"] }, Open ]], Cell["\<\ OK. Now let us review the procedure:\ \>", "Text", CellChangeTimes->{{3.733269877245399*^9, 3.733269892648411*^9}},ExpressionUUID->"b91ca879-a53c-4e88-b431-\ e64be4bd6a32"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"topologies", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diagrams", "=", RowBox[{"InsertFields", "[", RowBox[{"topologies", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", "\t", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "2", "]"}], ",", RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", "diagrams", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.733269918722556*^9, 3.73326993772303*^9}, { 3.733270016321847*^9, 3.7332700187167807`*^9}},ExpressionUUID->"f252ba5a-b4ec-4256-b39f-\ d37650b41ae8"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019260371*^9}},ExpressionUUID->"07c4cc12-6133-4463-b427-\ e535bef5b6b8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Particles fields\"\>"}], SequenceForm[ "Excluding ", 0, " Generic, ", 3, " Classes, and ", 3, " Particles fields"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019269841*^9}},ExpressionUUID->"0298453e-ecd5-4cb5-8941-\ 9689135ed605"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.7332700192799053`*^9}},ExpressionUUID->"ebdcd499-7964-440d-b67c-\ d96a1adbf976"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", "Classes", "}"}]}], SequenceForm["inserting at level(s) ", {FeynArts`Classes}], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019289529*^9}},ExpressionUUID->"f31b1327-edff-4596-9f6d-\ f85a18c2ba3b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019298909*^9}},ExpressionUUID->"3abf12cf-6d9d-42fa-9e19-\ 1ad5b11078a3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.7332700193085003`*^9}},ExpressionUUID->"5c4a4ac7-5695-46e6-a01d-\ dcd56980b498"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}], SequenceForm["> Top. ", 3, ": ", "1 Classes insertion"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.7332700193175573`*^9}},ExpressionUUID->"b1c88bda-9ec6-4aa0-b654-\ 83aa922485dd"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}], SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019326432*^9}},ExpressionUUID->"fffe88ca-2b01-4b95-8b4e-\ c06fac633904"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.7332700193354*^9}},ExpressionUUID->"9175800c-4a86-406d-a1f5-20345ad4151b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" Particles fields\"\>"}], SequenceForm[ "Restoring ", 0, " Generic, ", 3, " Classes, and ", 3, " Particles fields"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019344399*^9}},ExpressionUUID->"0d52fedb-d191-455b-b3d8-\ 3afda2492a1e"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}], SequenceForm["in total: ", "1 Classes insertion"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.7332700193536787`*^9}},ExpressionUUID->"4a4a449f-3f0c-4d6e-99ce-\ 96bb2c397c1a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"aebf/cedf/ef.m\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"1 diagram\"\>"}], SequenceForm["> Top. ", 1, " ", "aebf/cedf/ef.m", ", ", "1 diagram"], Editable->False]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019363043*^9}},ExpressionUUID->"22e70d53-e449-4044-a468-\ b277b8c5f39d"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ TagBox[ TooltipBox[ {Thickness[0.005], LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, { 9.999999999997726, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587401`}, { 4.363176198265607, 14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.8457692355174515, 13.562492355174516}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, { 4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 14.999999999996362`}, { 10.000000000002956`, 13.999999999996362`}}], PolygonBox[{{15.597022314125994`, 14.559702231412599`}, { 14.363176198265608`, 14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.845769235517452, 15.437507644825484}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlAlMnEUYhmcLWa2k9egBFLoszOzJ4sIOVmuVftWEltqGpU1kA5VjlaHQ KL1MgbbQhEpoIr1CkR8xpKVaeiQ9FqtETDaUyzLgumCFlmIl7YrSg6Cpgu2u g5rxT/5Mnsx/zPd97/tGO4s25M1BCKWJe3b99yLw1D9rGKAnD02vtRCod5/y FjLBOdkociMBS+HI2CAX7AjN/ayIQJYVdb9KwwWHNDjLCJxJDYJPFcGQt6hs LwEasWJlCFoCaPP7Vxa+SwANeu4UMcHF/a1xqQRGQ6PLBrjgNYf8pQYCK7Bt 6zIaAehwad3tGQw/uH6zKYpg++dr7/Vj6O7MfOVRQPDk19bg0xgOj+6aymaR gLQV7UPVGC5qMxs7uOB9dR917cNgS04rMNOlgG75lmypwNARYrAfUQQbP9i5 /RiGxY2KdTog+M8nfMdbMGStc3TlMo2oJ8WhuYmhdzlzX+WC7eM5vrkETiSm XqE0CtC46szWFwg8M/NeaYMiGCUZMjMItOsG7XOQFlDP0aJFOwlcXFCrXkYF u72WbeUEHk61vlnABDfTLvVuAptOfbi6QZnd1wzm5hOYmNgy0c8F26tHHyQT OBe88i0Vihb9mVvlWkpg9xpVG6WCHe6TnZMY7M/P0zMmGN245+rEYL55vaVO Edxcs+q74xjWHewq6eWC40dM1QcweKpS9vgDgqvUe38ux+BCntYEGiOe79v+ bCWGu2kRhjwm2O78ZfXHGJS+W5fqFMEv1eyfaMMQdCAuhXPBky1nB3wYYv6a vhYICC4ext4FBBqzMtdTisX8ulXpSQSGxj1NjAmedJzX5hJo+ip9WFEExz9c NbaLgPl77e+cC9a+fLRX9Cfpj4C4/t+/bvkxhFIi3x+2NYt6ify+Jdy6SVGI /H9e08lLnBN5vjG12oSQTp5fVeK9TKlO1leYGLU+n+lk/WEXbg/VKzrZH7sq Prmf62T/aMnlChXSy/5+sWN5ZSLVy/4PE90b+Uwv5+MamBL16uX8qlr9r3Ou l/N1PHaf8Af0cv7hi2sWJlCD1Edzxo4v32YGqZ/5TyefrlUMUl8b7xdMf8MN Un+vjcSefxwwSH0+2t/TnkCNUr+ufIeGMaPUt+YOb6xXjFL/gzcGIr/lRumP YhvdHIRM0j8xe+6mv0hN0l+/ZqX3FjKT9N/ZbRsufKKYpD/bnutQe7hJ+lcb 5f1JhczS32HGSkapWfqfTfq632FmmQ/VzgdQq5hlfgTXhc7r4WaZL2M5zpyZ gFnmjzXDnx1HY2U+9V0rj8xlsTK/7vMjB48psTLfrPPP1V7lgv/Lv4BqdrXA 3yJp8BI= "]], InsetBox[ TagBox[ StyleBox[ TagBox["\[Gamma]", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 10.}, {1, 0}], {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N1"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, {0, -1}]}, "\"aebf/cedf/ef.m\"", TooltipStyle->"TextStyling"], Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ], AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {24., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {28.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[RightArrow]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {33., 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["e", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {37.5, 69.96}, {0, 0}], InsetBox[ TagBox[ StyleBox[ TagBox["\[Mu]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {42., 69.96}, {0, 0}]}, AspectRatio->1.0999999999999999`, ImageSize->{288, 288}, PlotRange->{{0, 66}, {0, 72.6}}]], "Print", CellChangeTimes->{{3.7332699357715673`*^9, 3.73326993800704*^9}, { 3.73327001691068*^9, 3.733270019374022*^9}},ExpressionUUID->"fad4bfbf-0f01-4eb4-9b7a-\ 7a9a1ed25414"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amplitude", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diagrams", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"_Hel", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"helSquared", "=", RowBox[{ RowBox[{"SquaredME", "[", "amplitude", "]"}], "//.", RowBox[{"HelicityME", "[", "amplitude", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{ RowBox[{ RowBox[{"4", "*", RowBox[{"helSquared", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//.", RowBox[{"helSquared", "[", RowBox[{"[", "2", "]"}], "]"}]}], "//", "Simplify"}]}]}], "Input", CellChangeTimes->{{3.733269941096478*^9, 3.733269986086235*^9}, { 3.733270048427232*^9, 3.733270053737558*^9}},ExpressionUUID->"14dabb91-bd0a-48d4-9aca-\ f849d03a4743"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.73327005414615*^9},ExpressionUUID->"51fd9337-30d3-4beb-ae99-b765e47752d2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", "Classes", "}"}]}], SequenceForm["creating amplitudes at level(s) ", {FeynArts`Classes}], Editable->False]], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.7332700541513023`*^9},ExpressionUUID->"0ab1de18-f101-4462-8286-\ d48151c8e3c8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}], SequenceForm["> Top. ", 1, ": ", "1 Classes amplitude"], Editable->False]], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054159184*^9},ExpressionUUID->"814a19a0-6598-41e1-8b7f-\ db04f26ef654"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}], SequenceForm["in total: ", "1 Classes amplitude"], Editable->False]], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054162394*^9},ExpressionUUID->"95f6a15e-68ff-4e98-b4db-\ 65362da98f18"], Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-amp-1.frm\"\>"], \ "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.7332700541653976`*^9},ExpressionUUID->"bf090f4b-5d2c-4535-b719-\ 602f0ede9965"], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054168281*^9},ExpressionUUID->"12004386-5e39-4341-bb4f-\ d261e639723b"], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054196226*^9},ExpressionUUID->"55a1dd7b-0893-43d6-99b4-\ 3ff39f005368"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}], SequenceForm["> ", 16, " helicity matrix elements"], Editable->False]], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054215096*^9},ExpressionUUID->"7b5d6e7c-b4c1-4654-b48d-\ a131d82d40af"], Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \ "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054218261*^9},ExpressionUUID->"f78dce9b-c21d-42bf-9441-\ 158acc6e1b78"], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054221304*^9},ExpressionUUID->"209f7921-b3a4-4952-8fc8-\ 8dece2df6e8e"], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{3.733269986340773*^9, 3.733270020375058*^9, 3.733270054262472*^9},ExpressionUUID->"cc58b382-960e-4f31-acac-\ 5485b4d30cf8"] }, Open ]], Cell[BoxData[ RowBox[{"16", " ", "Alfa2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["ME2", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["MM2", "2"]}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "+", RowBox[{"2", " ", "ME2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "MM2"}], "-", "S", "+", "T", "-", "U"}], ")"}]}], "-", RowBox[{"2", " ", "S", " ", "U"}], "+", SuperscriptBox["U", "2"], "-", RowBox[{"2", " ", "MM2", " ", RowBox[{"(", RowBox[{"S", "-", "T", "+", "U"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"]}]], "Output", CellChangeTimes->{3.733269989214554*^9, 3.7332700205397797`*^9, 3.733270054266192*^9},ExpressionUUID->"776e8d97-0b29-4530-ae8e-\ 842012b8ebe0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"result", "//.", RowBox[{"{", RowBox[{ RowBox[{"ME", "\[Rule]", "0"}], ",", RowBox[{"ME2", "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Den", "[", RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"S", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{"kk", "+", "EE"}], ")"}], "2"]}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], SuperscriptBox["kk", "2"], RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}]}]}], ",", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"2", "ME2"}], "+", RowBox[{"2", "MM2"}], "-", "S", "-", "T"}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"%", "\[Equal]", "PeskinResult"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ SuperscriptBox["EE", "2"], "\[Equal]", RowBox[{ SuperscriptBox["kk", "2"], "+", "MM2"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.733270054641268*^9, 3.733270125144896*^9}},ExpressionUUID->"73e8b5f6-4a06-49ef-a19a-\ 01b48b3664fa"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", "Alfa2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"], " ", SuperscriptBox["kk", "4"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "4"], "+", RowBox[{"4", " ", SuperscriptBox["MM2", "2"]}], "-", RowBox[{"2", " ", "MM2", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "+", RowBox[{"2", " ", "MM2"}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", RowBox[{"2", " ", "MM2"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], " ", SuperscriptBox["kk", "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", "kk"}], ")"}], "2"], "+", RowBox[{"2", " ", "MM2"}]}], ")"}], "2"]}], ")"}], " ", SuperscriptBox["\[Pi]", "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "CosTheta"}], ")"}], "2"], " ", SuperscriptBox["kk", "4"]}]]], "Output", CellChangeTimes->{{3.733270058262848*^9, 3.733270063665736*^9}, 3.7332700940236273`*^9, 3.7332701256494713`*^9},ExpressionUUID->"44896e7c-e3c6-49af-b5cf-\ e8226f761d70"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.733270058262848*^9, 3.733270063665736*^9}, 3.7332700940236273`*^9, 3.7332701256556263`*^9},ExpressionUUID->"573336fc-b56a-4d25-b0b3-\ c5bc4b223a36"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{2880, 1665}, WindowMargins->{{288, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 174, 3, 144, "Title",ExpressionUUID->"359f1b74-52b3-43ff-b66d-75675aeb5d61"], Cell[CellGroupData[{ Cell[766, 29, 735, 20, 105, "Section",ExpressionUUID->"d0a6f97e-be56-47b4-bb77-372047c8d34f"], Cell[1504, 51, 45645, 753, 391, "Text",ExpressionUUID->"7b17da9e-1fb4-4cf5-9c40-9921e2e914ed"], Cell[CellGroupData[{ Cell[47174, 808, 164, 3, 51, "Subsection",ExpressionUUID->"2d9e7bd6-05a3-4be3-900d-15a078c59c21"], Cell[47341, 813, 220, 5, 63, "Input",ExpressionUUID->"e9435f54-5509-4f9f-9041-23e8edac77f0"], Cell[47564, 820, 611, 10, 63, "Input",ExpressionUUID->"0370a882-679c-4153-b088-ac3dcf59cd37"], Cell[CellGroupData[{ Cell[48200, 834, 166, 3, 95, "Input",ExpressionUUID->"3522a98a-043a-4247-b55b-077792befcfd"], Cell[CellGroupData[{ Cell[48391, 841, 348, 6, 36, "Print",ExpressionUUID->"723e00c0-e8c3-4621-a853-774f505b5090"], Cell[48742, 849, 375, 6, 36, "Print",ExpressionUUID->"27bf2ee1-a7a2-4819-baf6-32f64ca2e61d"], Cell[49120, 857, 391, 6, 36, "Print",ExpressionUUID->"52da78fc-17d1-4eeb-a771-eb2d814d8eec"], Cell[49514, 865, 346, 6, 36, "Print",ExpressionUUID->"407ecaa5-64e0-4715-ae02-435bad7426ec"], Cell[49863, 873, 369, 5, 36, "Print",ExpressionUUID->"bf31a54e-1d19-41fd-a2eb-3eb0431e2a34"], Cell[50235, 880, 362, 6, 36, "Print",ExpressionUUID->"9d4abe65-75e4-460e-b878-36858a4ff0a2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50658, 893, 215, 4, 51, "Subsection",ExpressionUUID->"f1e9ee9e-dd25-4fb1-b112-ab3c4d8b66cc"], Cell[50876, 899, 528, 13, 95, "Input",ExpressionUUID->"917bb0e1-08dc-4bce-9f3d-560b1e475870"] }, Open ]], Cell[CellGroupData[{ Cell[51441, 917, 166, 3, 51, "Subsection",ExpressionUUID->"3ffeebc5-c1e8-45ea-a5de-c249e9b7cea6"], Cell[51610, 922, 344, 7, 52, "Text",ExpressionUUID->"724048f5-7c3b-4d2c-b886-833e123cdff3"], Cell[CellGroupData[{ Cell[51979, 933, 982, 27, 63, "Input",ExpressionUUID->"ca65ad23-080d-4107-b57e-b29edb62302f"], Cell[CellGroupData[{ Cell[52986, 964, 351, 6, 36, "Print",ExpressionUUID->"4a4b8ea1-25cd-4547-adc8-e63bebbde7d2"], Cell[53340, 972, 780, 17, 36, "Print",ExpressionUUID->"f7789864-daed-4d4d-aa9b-2626c324eb69"], Cell[54123, 991, 374, 6, 36, "Print",ExpressionUUID->"7a4d42a1-88eb-4a61-b9e7-16b219bfc5f2"], Cell[54500, 999, 596, 12, 36, "Print",ExpressionUUID->"b5fa5b0c-024d-4984-9cd0-6f12cf48ba70"], Cell[55099, 1013, 351, 6, 36, "Print",ExpressionUUID->"8984e337-690c-4063-914a-581593f5d230"], Cell[55453, 1021, 769, 16, 36, "Print",ExpressionUUID->"1592712c-68f4-4ac9-a21e-688d43e787a7"], Cell[56225, 1039, 348, 5, 36, "Print",ExpressionUUID->"30a0281c-4055-4b56-bd31-d474d5e0f414"], Cell[56576, 1046, 992, 25, 36, "Print",ExpressionUUID->"8f196136-7928-464e-873e-346db1a86905"], Cell[57571, 1073, 353, 6, 36, "Print",ExpressionUUID->"038ab1fa-ed3a-4d8c-b3ea-efc76bce9caf"], Cell[57927, 1081, 665, 13, 36, "Print",ExpressionUUID->"830f8f2c-9539-421c-8f7b-d91300e76262"], Cell[58595, 1096, 373, 6, 36, "Print",ExpressionUUID->"3a56160c-76d7-41d0-bbb2-d9b10a7ee455"], Cell[58971, 1104, 518, 11, 36, "Print",ExpressionUUID->"47550004-9103-4986-a30e-37c7bc8bfc5e"], Cell[59492, 1117, 550, 11, 36, "Print",ExpressionUUID->"007a1fae-3e44-4b31-a09a-a26d38c27bcb"], Cell[60045, 1130, 546, 11, 36, "Print",ExpressionUUID->"ded5c655-69a5-4cd6-a910-0c80b8f44faa"], Cell[60594, 1143, 586, 12, 36, "Print",ExpressionUUID->"37c3aa25-6e18-43de-9379-799da7f30663"], Cell[61183, 1157, 353, 6, 36, "Print",ExpressionUUID->"7ec2b448-a2b2-492f-bcb5-8fce65e25106"], Cell[61539, 1165, 546, 11, 36, "Print",ExpressionUUID->"7f4006ea-fe95-4ee6-8bee-3744ccb168ef"], Cell[62088, 1178, 595, 12, 36, "Print",ExpressionUUID->"8bf74feb-3e14-4b82-97c8-04c31e3f1512"], Cell[62686, 1192, 593, 12, 36, "Print",ExpressionUUID->"a756972d-6210-4e37-b5fe-65ec48b94673"], Cell[63282, 1206, 593, 12, 36, "Print",ExpressionUUID->"53eda44a-8d0e-4905-a794-53daa1c2a8ad"], Cell[63878, 1220, 593, 12, 36, "Print",ExpressionUUID->"5b459297-44f5-4585-8232-b56c30dbe354"], Cell[64474, 1234, 527, 11, 36, "Print",ExpressionUUID->"e95b4a28-2c94-4025-8851-32d34855105f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65050, 1251, 232, 5, 63, "Input",ExpressionUUID->"2ce65309-5ce0-460d-a013-69db7bd68a12"], Cell[CellGroupData[{ Cell[65307, 1260, 680, 14, 36, "Print",ExpressionUUID->"f0ace43a-93b3-4810-9655-a358f7d9fec7"], Cell[65990, 1276, 18789, 453, 444, "Print",ExpressionUUID->"1cef0eb1-bee8-4312-ace7-395f1661d6ac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84828, 1735, 1277, 36, 126, "Input",ExpressionUUID->"5bdb417a-016f-433c-ac7e-ca292a3470ac"], Cell[CellGroupData[{ Cell[86130, 1775, 344, 5, 36, "Print",ExpressionUUID->"7681234d-5136-4383-a8f8-33e6a245e44e"], Cell[86477, 1782, 738, 15, 36, "Print",ExpressionUUID->"014d8720-2f92-492a-b120-997915b8159c"], Cell[87218, 1799, 347, 6, 36, "Print",ExpressionUUID->"9163996b-76a2-4e9d-8514-dca5d09bd5b5"], Cell[87568, 1807, 540, 11, 36, "Print",ExpressionUUID->"1742b1c7-4947-49fd-8197-50ec8beed356"], Cell[88111, 1820, 586, 11, 36, "Print",ExpressionUUID->"2a333e79-c062-4ec8-a906-fc8fce199ab6"], Cell[88700, 1833, 589, 12, 36, "Print",ExpressionUUID->"4b9921f2-174d-46fb-8767-9ea81a94b143"], Cell[89292, 1847, 587, 12, 36, "Print",ExpressionUUID->"000c97a7-3bff-438b-a79c-d4d8a9d184d7"], Cell[89882, 1861, 591, 12, 36, "Print",ExpressionUUID->"ea344e17-2e19-4f1a-8f78-1c950dc473b6"], Cell[90476, 1875, 347, 6, 36, "Print",ExpressionUUID->"d0cbcad8-286d-4053-a8b2-89d3a36ebe61"], Cell[90826, 1883, 740, 15, 36, "Print",ExpressionUUID->"7c2456d6-4fd1-4db3-a6d9-23e593263701"], Cell[91569, 1900, 516, 10, 36, "Print",ExpressionUUID->"965464c0-03b2-47b3-8ed5-bf1d4a6e6fa7"], Cell[92088, 1912, 679, 14, 36, "Print",ExpressionUUID->"d55e9fff-b8cf-4155-9f46-4c1a5f48e82c"], Cell[92770, 1928, 6630, 161, 444, "Print",ExpressionUUID->"28484dc1-f667-4302-8223-1b26480dad86"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99461, 2096, 176, 3, 51, "Subsection",ExpressionUUID->"9dcf7fb6-aba8-42ac-947a-76480b441d8c"], Cell[CellGroupData[{ Cell[99662, 2103, 618, 13, 95, "Input",ExpressionUUID->"9c6829b3-ae4b-4c53-9e0f-2561c8c273ef"], Cell[CellGroupData[{ Cell[100305, 2120, 389, 6, 36, "Print",ExpressionUUID->"6a995eab-6b74-4b15-a85e-4134ea86220f"], Cell[100697, 2128, 600, 11, 36, "Print",ExpressionUUID->"7816b396-8ebb-4793-8ce6-04f3fcbb2950"], Cell[101300, 2141, 629, 12, 36, "Print",ExpressionUUID->"02653205-f934-4681-9d0b-519f48945549"], Cell[101932, 2155, 559, 11, 36, "Print",ExpressionUUID->"0ff9eb7a-8b6d-4e5a-bd9d-3354c189c55d"], Cell[102494, 2168, 440, 7, 66, "Print",ExpressionUUID->"09e01f8b-e2e7-435f-8b65-16cc1195d63f"], Cell[102937, 2177, 403, 6, 36, "Print",ExpressionUUID->"7dd14808-7342-42a6-b16b-7412dcf62223"], Cell[103343, 2185, 392, 6, 66, "Print",ExpressionUUID->"907d3e6e-2949-4909-b07f-d6236a873374"] }, Open ]], Cell[103750, 2194, 2463, 68, 95, "Output",ExpressionUUID->"1e758771-d789-4a83-8d00-8bf15785eb19"] }, Open ]], Cell[106228, 2265, 502, 9, 121, "Text",ExpressionUUID->"62edd96a-522a-4fa2-b14a-f1e5d46dc1d8"], Cell[CellGroupData[{ Cell[106755, 2278, 470, 9, 63, "Input",ExpressionUUID->"b9f34ca4-0123-474f-9edc-506364adec6d"], Cell[107228, 2289, 4765, 135, 126, "Output",ExpressionUUID->"9967af9d-6fc0-4344-ba29-6ee43002b8ec"] }, Open ]], Cell[CellGroupData[{ Cell[112030, 2429, 192, 4, 63, "Input",ExpressionUUID->"eea2365c-d8fc-4fbe-9ae0-e2b355658822"], Cell[CellGroupData[{ Cell[112247, 2437, 357, 8, 36, "Print",ExpressionUUID->"95a70912-1903-4776-9449-cfcbaebb97ac"], Cell[112607, 2447, 211, 4, 66, "Print",ExpressionUUID->"2463edda-9de3-4c06-95a8-09afe4d347df"], Cell[112821, 2453, 174, 3, 36, "Print",ExpressionUUID->"8d86c1ef-97b3-4df2-b063-44600e125bb5"], Cell[112998, 2458, 163, 3, 66, "Print",ExpressionUUID->"669252ec-a724-4ba6-abfb-1ccb0792a44a"] }, Open ]], Cell[113176, 2464, 65991, 1639, 2204, "Output",ExpressionUUID->"cc38ce80-3ce6-485d-9690-0a9a5301ee39"] }, Open ]], Cell[CellGroupData[{ Cell[179204, 4108, 662, 13, 63, "Input",ExpressionUUID->"850111dd-4e5a-4bef-8399-ab8532bb60c1"], Cell[179869, 4123, 8216, 226, 280, "Output",ExpressionUUID->"47f74d74-f5b3-436f-a9f1-7570dae5f520"] }, Open ]], Cell[188100, 4352, 412, 8, 52, "Text",ExpressionUUID->"7507a846-f739-4785-91a9-d3a8673890be"], Cell[CellGroupData[{ Cell[188537, 4364, 862, 19, 126, "Input",ExpressionUUID->"10cf5b53-877a-4b02-9ded-8364711aac36"], Cell[189402, 4385, 4880, 137, 126, "Output",ExpressionUUID->"4b030399-6cb9-4ef0-a246-1090fdce5ba1"], Cell[CellGroupData[{ Cell[194307, 4526, 414, 9, 36, "Print",ExpressionUUID->"8e333822-5efa-4ace-b334-39c7317b4d98"], Cell[194724, 4537, 270, 5, 66, "Print",ExpressionUUID->"a96cb9db-55d5-44c1-ad86-3cd219139e9f"], Cell[194997, 4544, 231, 4, 36, "Print",ExpressionUUID->"eaa5d949-0b11-48d2-978c-7595846f835f"], Cell[195231, 4550, 220, 4, 66, "Print",ExpressionUUID->"e7f628d5-2df6-4fd6-a971-a53c06a304b3"] }, Open ]], Cell[195466, 4557, 8362, 219, 226, "Output",ExpressionUUID->"44d0cfbd-fe4d-49dd-b82d-2c8bbba440d8"] }, Open ]], Cell[203843, 4779, 177, 3, 52, "Text",ExpressionUUID->"a4581c99-9613-4f54-a521-09e06238cc9f"], Cell[CellGroupData[{ Cell[204045, 4786, 189, 3, 43, "Item",ExpressionUUID->"08bb3a3c-0ecf-4868-844c-07c8ba76fb8b"], Cell[204237, 4791, 370, 7, 43, "Item",ExpressionUUID->"792ee401-018e-46e6-9d51-d099f0b6d212"] }, Open ]], Cell[204622, 4801, 200, 4, 52, "Text",ExpressionUUID->"9b579533-4455-4ac5-8e44-41471f448028"], Cell[CellGroupData[{ Cell[204847, 4809, 497, 14, 63, "Input",ExpressionUUID->"75b92050-1ee2-49bc-adcd-2d3c7ac0b358"], Cell[205347, 4825, 917, 26, 66, "Output",ExpressionUUID->"40748b95-c9df-480c-b112-867e70e4c6c7"] }, Open ]], Cell[CellGroupData[{ Cell[206301, 4856, 1568, 38, 66, "Input",ExpressionUUID->"d831518a-3e96-4fb6-a8ca-e58687bf2a10"], Cell[207872, 4896, 2172, 61, 94, "Output",ExpressionUUID->"4b673c15-6eb0-4358-a524-597309fdc61e"] }, Open ]], Cell[CellGroupData[{ Cell[210081, 4962, 1306, 39, 130, "Input",ExpressionUUID->"f9650887-4d05-4a5a-8d69-031bb7794ced"], Cell[211390, 5003, 1003, 27, 93, "Output",ExpressionUUID->"ae2ceb47-7f9c-4457-9060-c060569700d4"], Cell[212396, 5032, 424, 7, 63, "Output",ExpressionUUID->"006941b8-5042-4876-ab14-7694fdc6881d"] }, Open ]], Cell[212835, 5042, 186, 6, 87, "Text",ExpressionUUID->"b91ca879-a53c-4e88-b431-e64be4bd6a32"], Cell[CellGroupData[{ Cell[213046, 5052, 1454, 41, 157, "Input",ExpressionUUID->"f252ba5a-b4ec-4256-b39f-d37650b41ae8"], Cell[CellGroupData[{ Cell[214525, 5097, 209, 4, 36, "Print",ExpressionUUID->"07c4cc12-6133-4463-b427-e535bef5b6b8"], Cell[214737, 5103, 600, 13, 36, "Print",ExpressionUUID->"0298453e-ecd5-4cb5-8941-9689135ed605"], Cell[215340, 5118, 211, 4, 36, "Print",ExpressionUUID->"ebdcd499-7964-440d-b67c-d96a1adbf976"], Cell[215554, 5124, 402, 9, 36, "Print",ExpressionUUID->"f31b1327-edff-4596-9f6d-f85a18c2ba3b"], Cell[215959, 5135, 451, 10, 36, "Print",ExpressionUUID->"3abf12cf-6d9d-42fa-9e19-1ad5b11078a3"], Cell[216413, 5147, 453, 10, 36, "Print",ExpressionUUID->"5c4a4ac7-5695-46e6-a01d-dcd56980b498"], Cell[216869, 5159, 451, 10, 36, "Print",ExpressionUUID->"b1c88bda-9ec6-4aa0-b654-83aa922485dd"], Cell[217323, 5171, 451, 10, 36, "Print",ExpressionUUID->"fffe88ca-2b01-4b95-8b4e-c06fac633904"], Cell[217777, 5183, 205, 3, 36, "Print",ExpressionUUID->"9175800c-4a86-406d-a1f5-20345ad4151b"], Cell[217985, 5188, 600, 13, 36, "Print",ExpressionUUID->"0d52fedb-d191-455b-b3d8-3afda2492a1e"], Cell[218588, 5203, 383, 9, 36, "Print",ExpressionUUID->"4a4a449f-3f0c-4d6e-99ce-96bb2c397c1a"], Cell[218974, 5214, 541, 12, 36, "Print",ExpressionUUID->"22e70d53-e449-4044-a468-b277b8c5f39d"], Cell[219518, 5228, 6492, 159, 444, "Print",ExpressionUUID->"fad4bfbf-0f01-4eb4-9b7a-7a9a1ed25414"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[226059, 5393, 1032, 29, 188, "Input",ExpressionUUID->"14dabb91-bd0a-48d4-9aca-f849d03a4743"], Cell[CellGroupData[{ Cell[227116, 5426, 177, 2, 36, "Print",ExpressionUUID->"51fd9337-30d3-4beb-ae99-b765e47752d2"], Cell[227296, 5430, 395, 8, 36, "Print",ExpressionUUID->"0ab1de18-f101-4462-8286-d48151c8e3c8"], Cell[227694, 5440, 420, 9, 36, "Print",ExpressionUUID->"814a19a0-6598-41e1-8b7f-db04f26ef654"], Cell[228117, 5451, 352, 8, 36, "Print",ExpressionUUID->"95f6a15e-68ff-4e98-b4db-65362da98f18"], Cell[228472, 5461, 235, 4, 66, "Print",ExpressionUUID->"bf090f4b-5d2c-4535-b719-602f0ede9965"], Cell[228710, 5467, 196, 3, 36, "Print",ExpressionUUID->"12004386-5e39-4341-bb4f-d261e639723b"], Cell[228909, 5472, 185, 3, 66, "Print",ExpressionUUID->"55a1dd7b-0893-43d6-99b4-3ff39f005368"], Cell[229097, 5477, 379, 8, 36, "Print",ExpressionUUID->"7b5d6e7c-b4c1-4654-b48d-a131d82d40af"], Cell[229479, 5487, 233, 4, 66, "Print",ExpressionUUID->"f78dce9b-c21d-42bf-9441-158acc6e1b78"], Cell[229715, 5493, 196, 3, 36, "Print",ExpressionUUID->"209f7921-b3a4-4952-8fc8-8dece2df6e8e"], Cell[229914, 5498, 185, 3, 66, "Print",ExpressionUUID->"cc58b382-960e-4f31-acac-5485b4d30cf8"] }, Open ]], Cell[230114, 5504, 914, 26, 66, "Output",ExpressionUUID->"776e8d97-0b29-4530-ae8e-842012b8ebe0"] }, Open ]], Cell[CellGroupData[{ Cell[231065, 5535, 1269, 39, 101, "Input",ExpressionUUID->"73e8b5f6-4a06-49ef-a19a-01b48b3664fa"], Cell[232337, 5576, 1890, 57, 94, "Output",ExpressionUUID->"44896e7c-e3c6-49af-b5cf-e8226f761d70"], Cell[234230, 5635, 210, 4, 97, "Output",ExpressionUUID->"573336fc-b56a-4d25-b0b3-c5bc4b223a36"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)