FeynLecture/phi4_feynrules.wl at master · misho104/FeynLecture · GitHub

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
(* ::Package:: *)

(* ::Subchapter:: *)
(*Validation*)


(* ::Text:: *)
(*Quit the kernel (by Quit[] or from menu) before executing these blocks!*)


SetDirectory[NotebookDirectory[]];
<<FeynRules`;
FR$Parallelize = False;
LoadModel["phi4.fr"];
ExpandedLagrangian = ExpandIndices[Lagrangian, FlavorExpand->True];


CheckHermiticity[ExpandedLagrangian]


CheckDiagonalMassTerms[ExpandedLagrangian]


CheckMassSpectrum[ExpandedLagrangian]


CheckDiagonalKineticTerms[ExpandedLagrangian]


CheckKineticTermNormalisation[ExpandedLagrangian]


CheckDiagonalQuadraticTerms[ExpandedLagrangian]


(* ::Subchapter:: *)
(*Codes for generate UFO*)


(* ::Text:: *)
(*Quit the kernel (by Quit[] or from menu) before executing this block!*)


SetDirectory[NotebookDirectory[]];
<<FeynRules`;
FR$Parallelize = False;
LoadModel["phi4.fr"];
WriteUFO[Lagrangian];


(* ::Subchapter:: *)
(*Codes for generate FeynArts output*)


(* ::Text:: *)
(*Quit the kernel (by Quit[] or from menu) before executing this block!*)


SetDirectory[NotebookDirectory[]];
<<FeynRules`;
FR$Parallelize = False;
LoadModel["phi4.fr"];
WriteFeynArtsOutput[Lagrangian];