# AnomalousGaugeCoupling: quartic_lt89.nb

File quartic_lt89.nb, 10.8 KB (added by eboli, 5 years ago) |
---|

Line | |
---|---|

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

2 | |

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

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

5 | |

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

7 | |

8 | (*CacheID: 234*) |

9 | (* Internal cache information: |

10 | NotebookFileLineBreakTest |

11 | NotebookFileLineBreakTest |

12 | NotebookDataPosition[ 145, 7] |

13 | NotebookDataLength[ 10924, 293] |

14 | NotebookOptionsPosition[ 9604, 250] |

15 | NotebookOutlinePosition[ 10001, 268] |

16 | CellTagsIndexPosition[ 9958, 265] |

17 | WindowFrame->Normal*) |

18 | |

19 | (* Beginning of Notebook Content *) |

20 | Notebook[{ |

21 | Cell[BoxData[ |

22 | RowBox[{"\[IndentingNewLine]", |

23 | FrameBox[ |

24 | RowBox[{ |

25 | "\[SelectionPlaceholder]", " ", "FeynRules", " ", |

26 | "initialization"}]]}]], "Input", |

27 | CellChangeTimes->{{3.5542065470381117`*^9, 3.554206578929636*^9}}], |

28 | |

29 | Cell[BoxData[ |

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

31 | RowBox[{ |

32 | "SetDirectory", "[", |

33 | "\"\</Users/oscar/Trabalho/WorkInProgress/FeynRules/feynrules-development\>\ |

34 | \"", "]"}]}]], "Input", |

35 | CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, { |

36 | 3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9, |

37 | 3.4234163227881193`*^9}, {3.549259989465773*^9, 3.549259999606881*^9}}], |

38 | |

39 | Cell[BoxData[ |

40 | RowBox[{"<<", "FeynRules`"}]], "Input"], |

41 | |

42 | Cell[BoxData[ |

43 | RowBox[{ |

44 | RowBox[{"SetDirectory", "[", |

45 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/Quartic_linear\>\""}], "]"}], |

46 | ";"}]], "Input", |

47 | CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, { |

48 | 3.549260010957612*^9, 3.549260018221593*^9}, {3.5527968095887547`*^9, |

49 | 3.552796815826297*^9}}], |

50 | |

51 | Cell[BoxData[ |

52 | RowBox[{"\[IndentingNewLine]", |

53 | FrameBox[ |

54 | RowBox[{ |

55 | RowBox[{ |

56 | "\[SelectionPlaceholder]", " ", "Loading", " ", "the", " ", "file", " ", |

57 | "containing", " ", "the", " ", "Standard", " ", "Model", " ", "and", " ", |

58 | "L_T8"}], " ", "+", " ", "L_T9"}]], " "}]], "Input", |

59 | CellChangeTimes->{{3.554206586417383*^9, 3.554206720572693*^9}, { |

60 | 3.554287982043695*^9, 3.5542879892709217`*^9}}], |

61 | |

62 | Cell[BoxData[ |

63 | RowBox[{"LoadModel", "[", "\"\<quartic.fr\>\"", "]"}]], "Input", |

64 | CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9}, |

65 | 3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9}, |

66 | 3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9}, |

67 | 3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, { |

68 | 3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9, |

69 | 3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9, |

70 | 3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9}, |

71 | 3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9, |

72 | 3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, { |

73 | 3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9, |

74 | 3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, { |

75 | 3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9, |

76 | 3.4190828048079023`*^9}, {3.549356567929675*^9, 3.549356569284753*^9}, { |

77 | 3.552796819881452*^9, 3.552796823177125*^9}}], |

78 | |

79 | Cell[BoxData[ |

80 | RowBox[{"LoadRestriction", "[", |

81 | RowBox[{"\"\<Cabibbo.rst\>\"", ",", "\"\<Massless.rst\>\""}], |

82 | "]"}]], "Input", |

83 | CellChangeTimes->{{3.453790588503598*^9, 3.4537906008856297`*^9}, |

84 | 3.5529941847635183`*^9}], |

85 | |

86 | Cell[BoxData[ |

87 | RowBox[{ |

88 | FrameBox[ |

89 | RowBox[{ |

90 | "\[SelectionPlaceholder]", " ", "Checking", " ", "the", " ", |

91 | "lagrangian"}]], "\[IndentingNewLine]"}]], "Input", |

92 | CellChangeTimes->{{3.554207149082877*^9, 3.5542071697416487`*^9}}], |

93 | |

94 | Cell[BoxData[ |

95 | RowBox[{ |

96 | RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input", |

97 | CellChangeTimes->{{3.4234159280429783`*^9, 3.423415934798614*^9}, |

98 | 3.554210133339581*^9}], |

99 | |

100 | Cell["The hermiticity of the Lagrangian can be checked via", "Text", |

101 | CellChangeTimes->{{3.423415694323595*^9, 3.423415707867804*^9}}], |

102 | |

103 | Cell[BoxData[ |

104 | RowBox[{"CheckHermiticity", "[", |

105 | RowBox[{ |

106 | RowBox[{"LSM", "+", "LQT8"}], ",", |

107 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input", |

108 | CellChangeTimes->{{3.414763604111637*^9, 3.4147636044973803`*^9}, { |

109 | 3.554207230374851*^9, 3.554207231973926*^9}, {3.5542880303115664`*^9, |

110 | 3.554288036159964*^9}, {3.5542913388781567`*^9, 3.5542913396033573`*^9}}], |

111 | |

112 | Cell[BoxData[ |

113 | RowBox[{"CheckHermiticity", "[", |

114 | RowBox[{ |

115 | RowBox[{"LSM", "+", "LQT9"}], ",", |

116 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input", |

117 | CellChangeTimes->{{3.55428805134746*^9, 3.554288053105134*^9}, { |

118 | 3.5542913444029093`*^9, 3.554291345194229*^9}}], |

119 | |

120 | Cell["\<\ |

121 | FeynRules can check whether all the values of the masses given in the model \ |

122 | file are in agreement with the masses given in the Lagrangian:\ |

123 | \>", "Text", |

124 | CellChangeTimes->{{3.423415751305388*^9, 3.423415792594919*^9}, { |

125 | 3.5542072544005003`*^9, 3.554207255988462*^9}}], |

126 | |

127 | Cell[BoxData[ |

128 | RowBox[{"CheckMassSpectrum", "[", "LSM", "]"}]], "Input", |

129 | CellChangeTimes->{{3.414736325829801*^9, 3.414736326065997*^9}, |

130 | 3.4147528281460342`*^9, {3.5542072604055557`*^9, 3.554207262590489*^9}, { |

131 | 3.554288059041111*^9, 3.554288060496749*^9}, {3.5542883486771297`*^9, |

132 | 3.554288350168269*^9}}], |

133 | |

134 | Cell["\<\ |

135 | In the same way, FeynRules can check whether all kinetic terms are correctly \ |

136 | normalized :\ |

137 | \>", "Text", |

138 | CellChangeTimes->{{3.423415798800013*^9, 3.423415817964087*^9}}], |

139 | |

140 | Cell[BoxData[ |

141 | RowBox[{"CheckKineticTermNormalisation", "[", |

142 | RowBox[{"LSM", ",", |

143 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input"], |

144 | |

145 | Cell[BoxData[ |

146 | FrameBox[ |

147 | RowBox[{ |

148 | "\[SelectionPlaceholder]", " ", "Feynman", " ", "rules", " ", "originating", |

149 | " ", "from", " ", "L_T8", " ", "and", " ", "L_T9", " ", "using", " ", |

150 | "the", " ", "unitary", " ", "gauge"}]]], "Input", |

151 | CellChangeTimes->{{3.554206797674385*^9, 3.554206865976857*^9}, { |

152 | 3.5542069112258472`*^9, 3.554206917083228*^9}, {3.5542880008529167`*^9, |

153 | 3.554288007285139*^9}}], |

154 | |

155 | Cell[BoxData[{ |

156 | RowBox[{ |

157 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]", |

158 | RowBox[{"FeynmanRules", "[", |

159 | RowBox[{"LT8", " ", ",", |

160 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input", |

161 | CellChangeTimes->{{3.5542147888623667`*^9, 3.5542147904036713`*^9}, |

162 | 3.5542148289281187`*^9, {3.554288010662364*^9, 3.554288011806374*^9}}], |

163 | |

164 | Cell[BoxData[{ |

165 | RowBox[{ |

166 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]", |

167 | RowBox[{"FeynmanRules", "[", |

168 | RowBox[{"LT9", ",", |

169 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input", |

170 | CellChangeTimes->{{3.55421481319798*^9, 3.5542148158116817`*^9}, { |

171 | 3.554288014359729*^9, 3.554288016269861*^9}}], |

172 | |

173 | Cell[BoxData[ |

174 | FrameBox[ |

175 | RowBox[{ |

176 | "\[SelectionPlaceholder]", " ", "Generating", " ", "the", " ", "UFO", " ", |

177 | "output", " ", "used", " ", "by", " ", "MadGraph5"}]]], "Input", |

178 | CellChangeTimes->{{3.554207020764146*^9, 3.554207046179934*^9}, { |

179 | 3.554207083712941*^9, 3.55420709708432*^9}}], |

180 | |

181 | Cell[BoxData[{ |

182 | RowBox[{ |

183 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}], "\[IndentingNewLine]", |

184 | RowBox[{"WriteUFO", "[", |

185 | RowBox[{ |

186 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",", |

187 | " ", "LT9", ",", " ", |

188 | RowBox[{"Output", " ", "\[Rule]", " ", "\"\<SM_LT8_LT9_UFO\>\""}]}], |

189 | "]"}]}], "Input", |

190 | CellChangeTimes->{{3.554288112563303*^9, 3.554288127575335*^9}}], |

191 | |

192 | Cell[BoxData[ |

193 | RowBox[{ |

194 | FrameBox[ |

195 | RowBox[{"\[SelectionPlaceholder]", " ", "FeynArts", " ", "output"}]], |

196 | " "}]], "Input", |

197 | CellChangeTimes->{{3.554210222303082*^9, 3.554210236874051*^9}}], |

198 | |

199 | Cell["FeynArts also supports the Feynman gauge", "Text", |

200 | CellChangeTimes->{{3.4121854851672792`*^9, 3.412185494183435*^9}}], |

201 | |

202 | Cell[BoxData[{ |

203 | RowBox[{ |

204 | RowBox[{ |

205 | RowBox[{"FeynmanGauge", " ", "=", " ", "False"}], ";"}], |

206 | "\[IndentingNewLine]"}], "\[IndentingNewLine]", |

207 | RowBox[{"WriteFeynArtsOutput", "[", |

208 | RowBox[{ |

209 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LT8", ",", |

210 | "LT9", ",", " ", |

211 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",", |

212 | RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_FA\>\""}]}], "]"}]}], "Input",\ |

213 | |

214 | CellChangeTimes->{{3.411911018354619*^9, 3.4119110196967573`*^9}, { |

215 | 3.412185470680571*^9, 3.412185506240796*^9}, {3.4234161971513453`*^9, |

216 | 3.423416209716672*^9}, {3.5542103799698553`*^9, 3.554210404862816*^9}, { |

217 | 3.554213142736615*^9, 3.554213144826766*^9}, {3.554214531350573*^9, |

218 | 3.554214532452024*^9}, {3.5542147194543047`*^9, 3.554214722231299*^9}, { |

219 | 3.5542881323440437`*^9, 3.554288145935741*^9}}], |

220 | |

221 | Cell[BoxData[ |

222 | FrameBox[ |

223 | RowBox[{ |

224 | "\[SelectionPlaceholder]", " ", "CalcHep", " ", "output"}]]], "Input", |

225 | CellChangeTimes->{{3.554210492982093*^9, 3.554210505875268*^9}}], |

226 | |

227 | Cell["CalcHep also supports the Feynman gauge", "Text", |

228 | CellChangeTimes->{{3.4121853722243843`*^9, 3.412185380407339*^9}}], |

229 | |

230 | Cell[BoxData[{ |

231 | RowBox[{ |

232 | RowBox[{ |

233 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}], |

234 | "\[IndentingNewLine]"}], "\[IndentingNewLine]", |

235 | RowBox[{ |

236 | RowBox[{"WriteCHOutput", "[", |

237 | RowBox[{ |

238 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", " ", "LT8", |

239 | ",", " ", "LT9", ",", |

240 | RowBox[{"Output", "\[Rule]", "\"\<SM_LT8_LT9_CH\>\""}]}], "]"}], |

241 | ";"}]}], "Input", |

242 | CellChangeTimes->{{3.4119110943383636`*^9, 3.41191110054212*^9}, { |

243 | 3.412185409690489*^9, 3.4121854275198507`*^9}, {3.412450479942018*^9, |

244 | 3.4124504817138367`*^9}, {3.554210518056747*^9, 3.554210525845241*^9}, { |

245 | 3.554212177238345*^9, 3.554212186985408*^9}, {3.554214738990678*^9, |

246 | 3.5542147440692997`*^9}, {3.5542881510797243`*^9, 3.5542881640950212`*^9}}], |

247 | |

248 | Cell[BoxData[""], "Input", |

249 | CellChangeTimes->{3.412185367693318*^9, 3.412185407947097*^9}] |

250 | }, |

251 | WindowSize->{1024, 656}, |

252 | WindowMargins->{{Automatic, -2}, {Automatic, 0}}, |

253 | ShowSelection->True, |

254 | Magnification->1.5, |

255 | FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \ |

256 | 2010)", |

257 | StyleDefinitions->"Default.nb" |

258 | ] |

259 | (* End of Notebook Content *) |

260 | |

261 | (* Internal cache information *) |

262 | (*CellTagsOutline |

263 | CellTagsIndex->{} |

264 | *) |

265 | (*CellTagsIndex |

266 | CellTagsIndex->{} |

267 | *) |

268 | (*NotebookFileOutline |

269 | Notebook[{ |

270 | Cell[545, 20, 229, 6, 82, "Input"], |

271 | Cell[777, 28, 398, 8, 87, "Input"], |

272 | Cell[1178, 38, 54, 1, 40, "Input"], |

273 | Cell[1235, 41, 319, 7, 42, "Input"], |

274 | Cell[1557, 50, 416, 9, 83, "Input"], |

275 | Cell[1976, 61, 1083, 15, 40, "Input"], |

276 | Cell[3062, 78, 227, 5, 40, "Input"], |

277 | Cell[3292, 85, 236, 6, 83, "Input"], |

278 | Cell[3531, 93, 175, 4, 40, "Input"], |

279 | Cell[3709, 99, 134, 1, 39, "Text"], |

280 | Cell[3846, 102, 383, 7, 40, "Input"], |

281 | Cell[4232, 111, 281, 6, 40, "Input"], |

282 | Cell[4516, 119, 281, 5, 62, "Text"], |

283 | Cell[4800, 126, 316, 5, 40, "Input"], |

284 | Cell[5119, 133, 181, 4, 39, "Text"], |

285 | Cell[5303, 139, 151, 3, 40, "Input"], |

286 | Cell[5457, 144, 410, 8, 59, "Input"], |

287 | Cell[5870, 154, 368, 7, 64, "Input"], |

288 | Cell[6241, 163, 335, 7, 64, "Input"], |

289 | Cell[6579, 172, 295, 6, 58, "Input"], |

290 | Cell[6877, 180, 399, 9, 65, "Input"], |

291 | Cell[7279, 191, 194, 5, 58, "Input"], |

292 | Cell[7476, 198, 124, 1, 39, "Text"], |

293 | Cell[7603, 201, 844, 17, 111, "Input"], |

294 | Cell[8450, 220, 174, 4, 58, "Input"], |

295 | Cell[8627, 226, 123, 1, 39, "Text"], |

296 | Cell[8753, 229, 754, 16, 111, "Input"], |

297 | Cell[9510, 247, 90, 1, 40, "Input"] |

298 | } |

299 | ] |

300 | *) |

301 | |

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