rep_rule_1jets.m 4.5 KB
 Reyesrivera, Jose committed Oct 04, 2019 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 ``````(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *) {PVB[0, 0, S, Sqrt[MT^2], Sqrt[MT^2]] -> 2 + Eps^(-1) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2], PVB[0, 0, T, Sqrt[MT^2], Sqrt[MT^2]] -> 2 + Eps^(-1) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2], PVB[0, 0, U, Sqrt[MT^2], Sqrt[MT^2]] -> 2 + Eps^(-1) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]] + Log[Mu^2/MT^2], PVC[0, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/ (2*(MH^2 - U)) - Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2/ (2*(MH^2 - U)), PVC[0, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/ (2*(MH^2 - S)) - Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2/ (2*(MH^2 - S)), PVC[0, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2/ (2*(MH^2 - T)) - Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2/ (2*(MH^2 - T)), PVC[0, 0, 1, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U) - DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - U), PVC[0, 0, 2, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)) + DiscB[U, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - U)), PVC[0, 1, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S) - DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - S), PVC[0, 1, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T) - DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(MH^2 - T), PVC[0, 1, 1, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -1/(2*(MH^2 - U)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/ (2*(MH^2 - U)^2) + (MH^2*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/ (2*(MH^2 - U)^2) - (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (2*(MH^2 - U)^2) + (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/ (2*(MH^2 - U)^2), PVC[0, 1, 1, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -1/(2*(MH^2 - S)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - S)^2) + (MH^2*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - S)^2) - (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (2*(MH^2 - S)^2) + (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/ (2*(MH^2 - S)^2), PVC[0, 1, 1, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -1/(2*(MH^2 - T)) - (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) + (MH^2*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(2*(MH^2 - T)^2) - (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (2*(MH^2 - T)^2) + (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/ (2*(MH^2 - T)^2), PVC[0, 2, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - S)) + DiscB[S, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - S)), PVC[0, 2, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> -DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)) + DiscB[T, Sqrt[MT^2], Sqrt[MT^2]]/(2*(MH^2 - T)), PVC[1, 0, 0, 0, U, MH^2, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> 3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) - (U*DiscB[U, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - U)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (4*(MH^2 - U)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 - (MT^2*Log[(2*MT^2 - U + Sqrt[-((4*MT^2 - U)*U)])/(2*MT^2)]^2)/ (4*(MH^2 - U)), PVC[1, 0, 0, MH^2, S, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> 3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/ (4*(MH^2 - S)) - (S*DiscB[S, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - S)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (4*(MH^2 - S)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 - (MT^2*Log[(2*MT^2 - S + Sqrt[-((4*MT^2 - S)*S)])/(2*MT^2)]^2)/ (4*(MH^2 - S)), PVC[1, 0, 0, MH^2, T, 0, Sqrt[MT^2], Sqrt[MT^2], Sqrt[MT^2]] -> 3/4 + (MH^2*DiscB[MH^2, Sqrt[MT^2], Sqrt[MT^2]])/ (4*(MH^2 - T)) - (T*DiscB[T, Sqrt[MT^2], Sqrt[MT^2]])/(4*(MH^2 - T)) + (MT^2*Log[(-MH^2 + 2*MT^2 + Sqrt[-(MH^2*(-MH^2 + 4*MT^2))])/(2*MT^2)]^2)/ (4*(MH^2 - T)) + (Eps^(-1) + Log[Mu^2/MT^2])/4 - (MT^2*Log[(2*MT^2 - T + Sqrt[-((4*MT^2 - T)*T)])/(2*MT^2)]^2)/ (4*(MH^2 - T))}``````