-
Notifications
You must be signed in to change notification settings - Fork 0
/
tree_level_5_point.m
22 lines (22 loc) · 1.46 KB
/
tree_level_5_point.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(-I)*\[Kappa]^3*(-1/4*(DotProduct[p1, p2]^2*FTrace[p1, {FieldStr[k]}, p2]^2)/
(DotProduct[p1, q2]^2*DotProduct[p2, q1]^2) +
(DotProduct[p1, p2]*FTrace[p1, {FieldStr[k]}, p2]^2)/
(DotProduct[p1, q2]*DotProduct[p2, q1]*DotProduct[q2, q2]) +
FTrace[p1, {FieldStr[k]}, p2]^2/(DotProduct[q1, q1]*DotProduct[q2, q2]) +
(DotProduct[p1, p2]^2*DotProduct[q1, q1]*FTrace[p1, {FieldStr[k]}, p2]^2)/
(4*DotProduct[p1, q2]^2*DotProduct[p2, q1]^2*DotProduct[q2, q2]) -
(DotProduct[p1, p2]^2*FTrace[p1, {FieldStr[k]}, p2]*
FTrace[p2, {FieldStr[k]}, q2])/(DotProduct[p1, q2]*DotProduct[p2, q1]^2*
DotProduct[q2, q2]) - (2*DotProduct[p1, p2]*FTrace[p1, {FieldStr[k]}, p2]*
FTrace[p2, {FieldStr[k]}, q2])/(DotProduct[p2, q1]*DotProduct[q1, q1]*
DotProduct[q2, q2]) + (DotProduct[p1, p2]^2*FTrace[p2, {FieldStr[k]}, q2]^
2)/(DotProduct[p2, q1]^2*DotProduct[q1, q1]*DotProduct[q2, q2]) +
(d\[Phi]*FTrace[p1, {FieldStr[k]}, p2]^2*Mass[p1]^2*Mass[p2]^2)/
(4*DotProduct[p1, q2]^2*DotProduct[p2, q1]^2) -
(d\[Phi]*DotProduct[q1, q1]*FTrace[p1, {FieldStr[k]}, p2]^2*Mass[p1]^2*
Mass[p2]^2)/(4*DotProduct[p1, q2]^2*DotProduct[p2, q1]^2*
DotProduct[q2, q2]) + (d\[Phi]*FTrace[p1, {FieldStr[k]}, p2]*
FTrace[p2, {FieldStr[k]}, q2]*Mass[p1]^2*Mass[p2]^2)/
(DotProduct[p1, q2]*DotProduct[p2, q1]^2*DotProduct[q2, q2]) -
(d\[Phi]*FTrace[p2, {FieldStr[k]}, q2]^2*Mass[p1]^2*Mass[p2]^2)/
(DotProduct[p2, q1]^2*DotProduct[q1, q1]*DotProduct[q2, q2]))