parent cb6a9d8e
No preview for this file type
fc-amp-1.frm 0 → 100644
This diff is collapsed.
fc-amp-2.frm 0 → 100644
This diff is collapsed.
No preview for this file type
 (* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) { {{{(Alfas*EL*GS*MT^2*(4*Sqrt[MH^2 - 4*MT^2]*S* Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] + MH*(-MH^2 + 4*MT^2 + S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/ (2*MT^2)]^2 + MH*(4*(MH^2 - S) - 4*Sqrt[S*(-4*MT^2 + S)]* Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] + (MH^2 - 4*MT^2 - S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/ (2*MT^2)]^2))*Mat[SUNT[Glu4, Col2, Col1]]* (WeylChain[Spinor[k, MD, -1, 2, 0], 6, ec, Spinor[k, MD, 1, 1, 0]] + WeylChain[Spinor[k, MD, -1, 2, 0], 7, ec, Spinor[k, MD, 1, 1, 0]] + WeylChain[Spinor[k, MU, -1, 2, 0], 6, ec, Spinor[k, MU, 1, 1, 0]] + WeylChain[Spinor[k, MU, -1, 2, 0], 7, ec, Spinor[k, MU, 1, 1, 0]]))/ (8*MH*MW*Pi*(MH^2 - S)*S*SW)}}}}
 (* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) { {{{(Alfas*EL*GS*MT^2*(4*Sqrt[MH^2 - 4*MT^2]*S* Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] + MH*(-MH^2 + 4*MT^2 + S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/ (2*MT^2)]^2 + MH*(4*(MH^2 - S) - 4*Sqrt[S*(-4*MT^2 + S)]* Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] + (MH^2 - 4*MT^2 - S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/ (2*MT^2)]^2))*Mat[DiracChain[Spinor[k, MU, -1], 1, ec, Spinor[k, MU, 1]]*SUNT[Glu4, Col2, Col1]])/ (8*MH*MW*Pi*(MH^2 - S)*S*SW)}}}}
 ... ... @@ -15,12 +15,8 @@ Pair[e, k])*Pair[e, k]*Pair[ec, k] - 2*D0i[dd00, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]* (Pair[e, ec]*Pair[e, k] - 2*Pair[e, e]* Pair[ec, k]) - (C0i[cc0, 0, MH2, S, MT2, MT2, MT2]* ((2*Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*(Pair[e, k] + Pair[e, k]) + Pair[e, e]*Pair[ec, k]))/2 + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]* (Pair[e, k]*Pair[e, ec] + Pair[e, ec]* Pair[ec, k]) + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*(Pair[e, k]*Pair[e, ec] + Pair[e, ec]* (Pair[e, k] - 2*Pair[e, k]) + 2*Pair[e, e]* Pair[ec, k]) - D0i[dd13, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]*Pair[e, k]*(-(S*Pair[e, ec]) + ... ... @@ -254,7 +250,11 @@ C0i[cc11, MH2, T, 0, MT2, MT2, MT2]*Pair[e, k]* ((-S + U)*Pair[e, ec] + 4*(Pair[e, k]*Pair[ec, k[ 2]] + Pair[e, k]*Pair[ec, k])))) + (C0i[cc0, 0, 0, T, MT2, MT2, MT2]* (-(C0i[cc0, 0, MH2, S, MT2, MT2, MT2]* ((2*Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*(Pair[e, k] + Pair[e, k]) + Pair[e, e]*Pair[ec, k])) + C0i[cc0, 0, 0, T, MT2, MT2, MT2]* ((Pair[e, k] - 2*Pair[e, k])*Pair[e, ec] + Pair[e, ec]*Pair[e, k] - Pair[e, e]* (Pair[ec, k] - Pair[ec, k])) - ... ... @@ -263,9 +263,9 @@ Pair[ec, k]) - D0i[dd1, 0, 0, MH2, 0, T, S, MT2, MT2, MT2, MT2]*(-(S*Pair[e, e]*Pair[ec, k]) + Pair[e, k]*(-(T*Pair[e, ec]) + 2*Pair[e, k]* Pair[ec, k])) + C0i[cc0, MH2, 0, S, MT2, MT2, MT2]* (-((Pair[e, k] + Pair[e, k])*Pair[e, ec]) + Pair[e, ec]*Pair[e, k] - Pair[e, e]* Pair[ec, k])) - C0i[cc0, MH2, 0, S, MT2, MT2, MT2]* ((Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*Pair[e, k] + Pair[e, e]* (Pair[ec, k] + Pair[ec, k])) - D0i[dd1, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]* (-(((-MH2 + T)*Pair[e, k] - (T + 2*U)*Pair[e, k])* ... ... @@ -293,12 +293,8 @@ Pair[e, k]*Pair[ec, k] - 2*D0i[dd00, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]* (Pair[e, ec]*Pair[e, k] - 2*Pair[e, e]* Pair[ec, k]) - (C0i[cc0, 0, MH2, S, MT2, MT2, MT2]* ((2*Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*(Pair[e, k] + Pair[e, k]) + Pair[e, e]*Pair[ec, k]))/2 + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]* (Pair[e, k]*Pair[e, ec] + Pair[e, ec]* Pair[ec, k]) + 2*D0i[dd00, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]*(Pair[e, k]*Pair[e, ec] + Pair[e, ec]* (Pair[e, k] - 2*Pair[e, k]) + 2*Pair[e, e]* Pair[ec, k]) - D0i[dd13, 0, MH2, 0, 0, U, S, MT2, MT2, MT2, MT2]* Pair[e, k]*(-(S*Pair[e, ec]) + 4*Pair[e, k]* ... ... @@ -530,7 +526,11 @@ Pair[e, k]*((-S + U)*Pair[e, ec] + 4*(Pair[e, k]*Pair[ec, k] + Pair[e, k]* Pair[ec, k])))) + (C0i[cc0, 0, 0, T, MT2, MT2, MT2]* (-(C0i[cc0, 0, MH2, S, MT2, MT2, MT2]* ((2*Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*(Pair[e, k] + Pair[e, k]) + Pair[e, e]*Pair[ec, k])) + C0i[cc0, 0, 0, T, MT2, MT2, MT2]* ((Pair[e, k] - 2*Pair[e, k])*Pair[e, ec] + Pair[e, ec]*Pair[e, k] - Pair[e, e]* (Pair[ec, k] - Pair[ec, k])) - ... ... @@ -539,9 +539,9 @@ Pair[ec, k]) - D0i[dd1, 0, 0, MH2, 0, T, S, MT2, MT2, MT2, MT2]*(-(S*Pair[e, e]*Pair[ec, k]) + Pair[e, k]*(-(T*Pair[e, ec]) + 2*Pair[e, k]* Pair[ec, k])) + C0i[cc0, MH2, 0, S, MT2, MT2, MT2]* (-((Pair[e, k] + Pair[e, k])*Pair[e, ec]) + Pair[e, ec]*Pair[e, k] - Pair[e, e]* Pair[ec, k])) - C0i[cc0, MH2, 0, S, MT2, MT2, MT2]* ((Pair[e, k] + Pair[e, k])*Pair[e, ec] - Pair[e, ec]*Pair[e, k] + Pair[e, e]* (Pair[ec, k] + Pair[ec, k])) - D0i[dd1, MH2, 0, 0, 0, U, T, MT2, MT2, MT2, MT2]* (-(((-MH2 + T)*Pair[e, k] - (T + 2*U)*Pair[e, k])* ... ...
 ... ... @@ -1692,20 +1692,20 @@ Pair[ec, k])*Pair[ec, k]) + Pair[ec, k]* ((-3*MH2 + S34 + T + U)*Pair[ec, k] + (3*MH2 - S34 - T - U)* Pair[ec, k] + 2*(-T + T14 - T24 + U)*Pair[ec, k[ 3]]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S, 3]]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] + D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2]))* (4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* (-4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* Pair[e, k])*Pair[ec, ec] - Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k]) + Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k])) + Pair[e, e]* ((-T + U)*Pair[ec, ec] + 2*(Pair[ec, k]* (Pair[ec, k] - Pair[ec, k]) + (Pair[ec, k] - Pair[ec, k])*Pair[ec, k]))) - ((T - U)*Pair[ec, ec] - 2*(Pair[ec, k]*(Pair[ec, k] - Pair[ec, k]) + (Pair[ec, k] - Pair[ec, k])*Pair[ec, k]))) - 8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2]*((T14 - T24)*Pair[e, e]*(Pair[ec, k] + Pair[ec, k]) + 4*(Pair[e, k]*Pair[e, k] - ... ... @@ -4819,19 +4819,19 @@ Pair[ec, k])*Pair[ec, k]) + Pair[ec, k]* ((-3*MH2 + S34 + T + U)*Pair[ec, k] + (3*MH2 - S34 - T - U)* Pair[ec, k] + 2*(-T + T14 - T24 + U)*Pair[ec, k]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S, k]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] + D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2]))* (4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* (-4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* Pair[e, k])*Pair[ec, ec] - Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k]) + Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k])) + Pair[e, e]* ((-T + U)*Pair[ec, ec] + 2*(Pair[ec, k]*(Pair[ec, k] - Pair[ec, k]) + ((T - U)*Pair[ec, ec] - 2*(Pair[ec, k]* (Pair[ec, k] - Pair[ec, k]) + (Pair[ec, k] - Pair[ec, k])*Pair[ec, k]))) - 8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2]*((T14 - T24)*Pair[e, e]*(Pair[ec, k] + ... ... @@ -13376,19 +13376,19 @@ Pair[ec, k])*Pair[ec, k]) + Pair[ec, k]* ((-3*MH2 + S34 + T + U)*Pair[ec, k] + (3*MH2 - S34 - T - U)* Pair[ec, k] + 2*(-T + T14 - T24 + U)*Pair[ec, k]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S, k]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] + D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2]))* (4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* (-4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* Pair[e, k])*Pair[ec, ec] - Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k]) + Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k])) + Pair[e, e]* ((-T + U)*Pair[ec, ec] + 2*(Pair[ec, k]*(Pair[ec, k] - Pair[ec, k]) + ((T - U)*Pair[ec, ec] - 2*(Pair[ec, k]* (Pair[ec, k] - Pair[ec, k]) + (Pair[ec, k] - Pair[ec, k])*Pair[ec, k]))) - 8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2]*((T14 - T24)*Pair[e, e]*(Pair[ec, k] + ... ... @@ -16459,19 +16459,19 @@ Pair[ec, k])*Pair[ec, k]) + Pair[ec, k]* ((-3*MH2 + S34 + T + U)*Pair[ec, k] + (3*MH2 - S34 - T - U)* Pair[ec, k] + 2*(-T + T14 - T24 + U)*Pair[ec, k]))) + (-8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] + 8*(D0i[dd001, MH2, S34, S, k]))) + (8*D0i[dd001, MH2, S34, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2] - 8*(D0i[dd001, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2] + D0i[dd001, MH2, 2*MH2 - S34 - T - U, 0, MH2 - S34 - T14 - T24, 0, S, MT2, MT2, MT2, MT2]))* (4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* (-4*((-(Pair[e, k]*Pair[e, k]) + Pair[e, k]* Pair[e, k])*Pair[ec, ec] - Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k]) + Pair[e, k]* (Pair[e, ec]*Pair[ec, k] + Pair[e, ec]* Pair[ec, k])) + Pair[e, e]* ((-T + U)*Pair[ec, ec] + 2*(Pair[ec, k]*(Pair[ec, k] - Pair[ec, k]) + ((T - U)*Pair[ec, ec] - 2*(Pair[ec, k]* (Pair[ec, k] - Pair[ec, k]) + (Pair[ec, k] - Pair[ec, k])*Pair[ec, k]))) - 8*D0i[dd223, MH2, S34, S, 2*MH2 - S34 - T - U, 0, 0, MT2, MT2, MT2, MT2]*((T14 - T24)*Pair[e, e]*(Pair[ec, k] +
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
 (* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) {{{{0}}}}[[1,1,1,1,1]]
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
 (* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) (Alfas*col421*EL*GS*MT^2*(-4*Sqrt[MH^2 - 4*MT^2]*S* Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)] + MH*(MH^2 - 4*MT^2 - S)*Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/ (2*MT^2)]^2 + MH*(-4*MH^2 + 4*S + 4*Sqrt[S*(-4*MT^2 + S)]* Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)] + (-MH^2 + 4*MT^2 + S)*Log[(2*MT^2 - S + Sqrt[S*(-4*MT^2 + S)])/(2*MT^2)]^ 2))*Sin[\[Theta]3]*(Cos[\[Theta]3]*Cos[\[Phi]3] + I*Sin[\[Phi]3]))/ (2*Sqrt*MH*MW*Pi*(MH^2 - S)*Sqrt[S]*SW*Abs[Sin[\[Theta]3]])
 (* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) -(Alfas*c12*EL*MT^2*(-4*MH^2 + (MH^2 - 4*MT^2)* Log[(-MH^2 + 2*MT^2 + MH*Sqrt[MH^2 - 4*MT^2])/(2*MT^2)]^2))/ (4*MH^2*MW*Pi*SW) -(Alfas*c12*EL*MT2*(-4*MH2 + (MH2 - 4*MT2)* Log[(-MH2 + MH*Sqrt[MH2 - 4*MT2] + 2*MT2)/(2*MT2)]^2))/(4*MH2*MW*Pi*SW)
This diff is collapsed.
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
{"ft_lang_label":"__label__en","ft_lang_prob":0.9408506,"math_prob":0.99984884,"size":497,"snap":"2022-27-2022-33","text_gpt3_token_len":147,"char_repetition_ratio":0.31237322,"word_repetition_ratio":0.5769231,"special_character_ratio":0.26559356,"punctuation_ratio":0.13861386,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.9979969,"pos_list":[0],"im_url_duplicate_count":[null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2022-07-03T13:57:06Z\",\"WARC-Record-ID\":\"<urn:uuid:3e34afa4-9945-4a6d-bc8a-d6f2e58cc960>\",\"Content-Length\":\"610392\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:ed7298db-aa26-4302-9aa8-f18235644f5e>\",\"WARC-Concurrent-To\":\"<urn:uuid:25c96a89-07c0-4452-bf79-81523d08a1c0>\",\"WARC-IP-Address\":\"35.9.48.103\",\"WARC-Target-URI\":\"https://gitlab.msu.edu/reyesriv/hj-scattering-amplitudes/-/commit/e1be292ef1d4fe68c9935fb9f74f9c02f687e025\",\"WARC-Payload-Digest\":\"sha1:OC6NKM7WAIDLKPERD5IDZODQKZMF6NO3\",\"WARC-Block-Digest\":\"sha1:ONGSAOHDJKQ4SNJGRMVR4VTTADHO357O\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2022/CC-MAIN-2022-27/CC-MAIN-2022-27_segments_1656104244535.68_warc_CC-MAIN-20220703134535-20220703164535-00071.warc.gz\"}"}