rep_rule_1jets.m 4.5 KB
Newer Older
Reyesrivera, Jose's avatar
Reyesrivera, Jose committed
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))}