# Monotops: MonoTops.nb

File MonoTops.nb, 3.5 KB (added by BenjF, 9 years ago) |
---|

Line | |
---|---|

1 | (* Content-type: application/mathematica *) |

2 | |

3 | (*** Wolfram Notebook File ***) |

4 | (* http://www.wolfram.com/nb *) |

5 | |

6 | (* CreatedBy='Mathematica 7.0' *) |

7 | |

8 | (*CacheID: 234*) |

9 | (* Internal cache information: |

10 | NotebookFileLineBreakTest |

11 | NotebookFileLineBreakTest |

12 | NotebookDataPosition[ 145, 7] |

13 | NotebookDataLength[ 3374, 117] |

14 | NotebookOptionsPosition[ 2710, 88] |

15 | NotebookOutlinePosition[ 3067, 104] |

16 | CellTagsIndexPosition[ 3024, 101] |

17 | WindowFrame->Normal*) |

18 | |

19 | (* Beginning of Notebook Content *) |

20 | Notebook[{ |

21 | |

22 | Cell[CellGroupData[{ |

23 | Cell["Setup", "Section", |

24 | CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}], |

25 | |

26 | Cell[BoxData[{ |

27 | RowBox[{ |

28 | RowBox[{"olddir", "=", |

29 | RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", |

30 | RowBox[{ |

31 | RowBox[{"$FeynRulesPath", "=", |

32 | RowBox[{ |

33 | "SetDirectory", "[", "\"\<~/FeynRules/trunk/feynrules-development\>\"", |

34 | "]"}]}], ";"}], "\[IndentingNewLine]", |

35 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]", |

36 | RowBox[{ |

37 | RowBox[{"SetDirectory", "[", "olddir", "]"}], |

38 | ";"}], "\[IndentingNewLine]", |

39 | RowBox[{ |

40 | RowBox[{"LoadModel", "[", |

41 | RowBox[{ |

42 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",", |

43 | RowBox[{"olddir", "<>", "\"\</monotops.fr\>\""}]}], "]"}], |

44 | ";"}]}], "Input", |

45 | CellChangeTimes->{{3.500793438723139*^9, 3.500793441143552*^9}, { |

46 | 3.503666867066519*^9, 3.503666869077112*^9}, {3.518892141094482*^9, |

47 | 3.518892168024193*^9}}] |

48 | }, Open ]], |

49 | |

50 | Cell[CellGroupData[{ |

51 | |

52 | Cell["Additionnal Feymman rules", "Section", |

53 | CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}], |

54 | |

55 | Cell[BoxData[ |

56 | RowBox[{"FeynmanRules", "[", |

57 | RowBox[{"LMono", ",", |

58 | RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]], "Input", |

59 | CellChangeTimes->{ |

60 | 3.500881935063075*^9, {3.500887802095841*^9, 3.500887868868883*^9}, { |

61 | 3.5008879030484743`*^9, 3.500887906007085*^9}, {3.500889419665913*^9, |

62 | 3.5008894198304033`*^9}}] |

63 | }, Open ]], |

64 | |

65 | Cell[CellGroupData[{ |

66 | |

67 | Cell["Generating the UFO model files", "Section", |

68 | CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}], |

69 | |

70 | Cell[BoxData[ |

71 | RowBox[{"WriteUFO", "[", |

72 | RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input", |

73 | CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, { |

74 | 3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9, |

75 | 3.518892237775363*^9}}] |

76 | }, Open ]], |

77 | |

78 | Cell[CellGroupData[{ |

79 | |

80 | Cell["Generating the FeynArts model files", "Section", |

81 | CellChangeTimes->{{3.518892794840085*^9, 3.51889279885506*^9}}], |

82 | |

83 | Cell[BoxData[ |

84 | RowBox[{"WriteFeynArtsOutput", "[", |

85 | RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input", |

86 | CellChangeTimes->{{3.518892801141994*^9, 3.518892813463686*^9}}] |

87 | }, Open ]] |

88 | }, |

89 | WindowSize->{1440, 825}, |

90 | WindowMargins->{{0, Automatic}, {Automatic, 0}}, |

91 | ShowSelection->True, |

92 | FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)", |

93 | StyleDefinitions->"Default.nb" |

94 | ] |

95 | (* End of Notebook Content *) |

96 | |

97 | (* Internal cache information *) |

98 | (*CellTagsOutline |

99 | CellTagsIndex->{} |

100 | *) |

101 | (*CellTagsIndex |

102 | CellTagsIndex->{} |

103 | *) |

104 | (*NotebookFileOutline |

105 | Notebook[{ |

106 | Cell[CellGroupData[{ |

107 | Cell[567, 22, 90, 1, 73, "Section"], |

108 | Cell[660, 25, 813, 21, 121, "Input"] |

109 | }, Open ]], |

110 | Cell[CellGroupData[{ |

111 | Cell[1510, 51, 110, 1, 73, "Section"], |

112 | Cell[1623, 54, 332, 7, 32, "Input"] |

113 | }, Open ]], |

114 | Cell[CellGroupData[{ |

115 | Cell[1992, 66, 115, 1, 73, "Section"], |

116 | Cell[2110, 69, 258, 5, 32, "Input"] |

117 | }, Open ]], |

118 | Cell[CellGroupData[{ |

119 | Cell[2405, 79, 119, 1, 73, "Section"], |

120 | Cell[2527, 82, 167, 3, 32, "Input"] |

121 | }, Open ]] |

122 | } |

123 | ] |

124 | *) |

125 | |

126 | (* End of internal cache information *) |