Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Reyesrivera, Jose
Hj scattering amplitudes
Commits
3361bd22
Commit
3361bd22
authored
Jun 16, 2020
by
Reyesrivera, Jose
Browse files
add discontinuity scripts
parent
48d7d805
Changes
68
Expand all
Hide whitespace changes
Inline
Side-by-side
fc-amp-1.frm
0 → 100644
View file @
3361bd22
This diff is collapsed.
Click to expand it.
feynamps/PVX_triangle_group1_FeynAmp.m
0 → 100644
View file @
3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(
2
*
c1
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
T
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
k
[
1
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]])
+
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
1
]]
+
Pair
[
e
[
2
]
,
k
[
3
]]))
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
1
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
+
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
1
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
1
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]]
+
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
+
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
T
+
(
2
*
c2
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
T
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
k
[
1
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]])
-
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
1
]]
+
Pair
[
e
[
2
]
,
k
[
3
]]))
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
1
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
-
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
1
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
1
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
-
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
T
+
(
2
*
c3
*
((
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
T
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
k
[
1
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]])
-
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
e
[
2
]
,
k
[
1
]]
+
Pair
[
e
[
2
]
,
k
[
3
]]))
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
1
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
-
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
T
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
1
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
2
*
Pair
[
e
[
2
]
,
k
[
1
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
1
]]
-
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
1
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
(
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
T
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
T
feynamps/PVX_triangle_group2_FeynAmp.m
0 → 100644
View file @
3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(
2
*
c1
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]])
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]]))
*
PVC
[
0
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
2
]]
+
Pair
[
e
[
1
]
,
k
[
3
]])
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
2
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
2
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
0
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
0
,
2
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]])
*
PVC
[
0
,
1
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
U
+
(
2
*
c2
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]])
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]]))
*
PVC
[
0
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
2
]]
+
Pair
[
e
[
1
]
,
k
[
3
]])
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
2
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
2
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
0
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
0
,
2
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]])
*
PVC
[
0
,
1
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
U
+
(
2
*
c3
*
((
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]]))
*
PVC
[
0
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
1
]
,
e
[
2
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
2
]]
+
Pair
[
e
[
1
]
,
k
[
3
]])
*
Pair
[
e
[
2
]
,
k
[
3
]])
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
4
]
,
k
[
2
]]
+
Pair
[
ec
[
4
]
,
k
[
3
]]))
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
2
]]
+
Pair
[
ec
[
5
]
,
k
[
3
]])))
*
PVC
[
0
,
0
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
0
,
2
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
e
[
2
]
,
k
[
3
]]
*
(
2
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
2
]]
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
2
]])
*
PVC
[
0
,
1
,
1
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
0
,
U
,
MH
^
2
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
U
feynamps/PVX_triangle_group3_FeynAmp.m
0 → 100644
View file @
3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(
2
*
c1
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
S34
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
2
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
3
]]
-
Pair
[
ec
[
5
]
,
k
[
4
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
-
2
*
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
4
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
-
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
S34
+
(
2
*
c2
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
S34
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
2
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
3
]]
-
Pair
[
ec
[
5
]
,
k
[
4
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
4
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
S34
+
(
2
*
c3
*
((
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
S34
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
2
]
,
k
[
4
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
1
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
4
]])
*
Pair
[
ec
[
4
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
ec
[
5
]
,
k
[
3
]]
-
Pair
[
ec
[
5
]
,
k
[
4
]])))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
-
(
Pair
[
e
[
1
]
,
k
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]])
-
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
4
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]])
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
Pair
[
ec
[
4
]
,
k
[
3
]]
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
-
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
S34
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
S34
feynamps/PVX_triangle_group4_FeynAmp.m
0 → 100644
View file @
3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(
2
*
c1
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
2
*
MH
^
2
-
S34
-
T
-
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
(
Pair
[
ec
[
4
]
,
k
[
3
]]
-
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
-
2
*
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
(
2
*
MH
^
2
-
S34
-
T
-
U
)
+
(
2
*
c2
*
((
-
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
2
*
MH
^
2
-
S34
-
T
-
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
2
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
(
Pair
[
ec
[
4
]
,
k
[
3
]]
-
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
2
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
(
2
*
MH
^
2
-
S34
-
T
-
U
)
+
(
2
*
c3
*
((
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVB
[
0
,
0
,
2
*
MH
^
2
-
S34
-
T
-
U
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
2
*
Pair
[
ec
[
4
]
,
k
[
5
]]
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
4
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
Pair
[
e
[
2
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
1
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
1
]
,
k
[
3
]]
-
Pair
[
e
[
1
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
+
Pair
[
e
[
1
]
,
ec
[
4
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
e
[
2
]
,
ec
[
5
]]
-
2
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
-
Pair
[
e
[
2
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]])
-
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
((
-
MH
^
2
+
S34
+
T
+
U
)
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
-
2
*
(
Pair
[
ec
[
4
]
,
k
[
3
]]
-
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]))
*
PVC
[
0
,
1
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
+
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
5
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
1
,
1
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
k
[
3
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
k
[
3
]])
*
Pair
[
ec
[
5
]
,
k
[
3
]]
*
PVC
[
0
,
2
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)
-
(
16
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
(
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]])
-
Pair
[
e
[
1
]
,
ec
[
4
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
+
2
*
Pair
[
e
[
1
]
,
e
[
2
]]
*
Pair
[
ec
[
4
]
,
ec
[
5
]])
*
PVC
[
1
,
0
,
0
,
MH
^
2
,
2
*
MH
^
2
-
S34
-
T
-
U
,
0
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]
,
Sqrt
[
MT
^
2
]])
/
(
MW
*
SW
)))
/
(
2
*
MH
^
2
-
S34
-
T
-
U
)
feynamps/PVX_triangle_group5_FeynAmp.m
0 → 100644
View file @
3361bd22
(* Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com *)
(
2
*
c2
*
((
2
*
Alfas
^
2
*
EL
*
MT
^
2
*
(
-
4
*
(
-
(
Pair
[
e
[
1
]
,
k
[
3
]]
*
Pair
[
e
[
2
]
,
k
[
1
]])
-
2
*
Pair
[
e
[
1
]
,
k
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
1
]]
+
Pair
[
e
[
1
]
,
k
[
2
]]
*
(
Pair
[
e
[
2
]
,
k
[
3
]]
+
2
*
Pair
[
e
[
2
]
,
k
[
5
]]))
*
Pair
[
ec
[
4
]
,
ec
[
5
]]
+
8
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
e
[
2
]
,
ec
[
5
]]
*
Pair
[
ec
[
4
]
,
k
[
5
]]
-
8
*
Pair
[
e
[
1
]
,
ec
[
5
]]
*
Pair
[
e
[
2
]
,
k
[
1
]]
*
Pair
[
ec
[
4
]
,
k
[
5
]]
-
8
*
Pair
[
e
[
1
]
,
k
[
2
]]
*
Pair
[
e
[
2
]
,
ec
[
4
]]
*
Pair
[
ec
[
5
]
,
k
[
4
]]
+