# HiddenAbelianHiggsModel: Hidden.nb

File Hidden.nb, 9.0 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 6.0' *) |

7 | |

8 | (*CacheID: 234*) |

9 | (* Internal cache information: |

10 | NotebookFileLineBreakTest |

11 | NotebookFileLineBreakTest |

12 | NotebookDataPosition[ 145, 7] |

13 | NotebookDataLength[ 9033, 270] |

14 | NotebookOptionsPosition[ 7418, 212] |

15 | NotebookOutlinePosition[ 7797, 229] |

16 | CellTagsIndexPosition[ 7754, 226] |

17 | WindowFrame->Normal*) |

18 | |

19 | (* Beginning of Notebook Content *) |

20 | Notebook[{ |

21 | Cell[BoxData[ |

22 | RowBox[{"Quit", "[", "]"}]], "Input", |

23 | CellChangeTimes->{{3.509778970782555*^9, 3.509778973939178*^9}}], |

24 | |

25 | Cell[BoxData[ |

26 | RowBox[{ |

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

28 | RowBox[{"SetDirectory", "[", "\"\<< address of the package>\>\"", "]"}]}], |

29 | ";"}]], "Input", |

30 | CellChangeTimes->{{3.413720861194676*^9, 3.4137208893794117`*^9}}], |

31 | |

32 | Cell[CellGroupData[{ |

33 | |

34 | Cell[BoxData[ |

35 | RowBox[{ |

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

37 | "\[IndentingNewLine]"}]], "Input", |

38 | CellChangeTimes->{{3.402202361365851*^9, 3.402202371944139*^9}, { |

39 | 3.402202561319804*^9, 3.402202569273497*^9}, 3.402745522459828*^9, |

40 | 3.402746608214861*^9, {3.402747929860508*^9, 3.402747943827011*^9}, { |

41 | 3.403533007403466*^9, 3.403533008807395*^9}, {3.404106695164184*^9, |

42 | 3.404106695449581*^9}, {3.405053642054455*^9, 3.4050536456262903`*^9}, |

43 | 3.4119181919913683`*^9, {3.4137208986527243`*^9, 3.4137208996123943`*^9}, { |

44 | 3.4137242759980097`*^9, 3.413724294268169*^9}, 3.508569204008209*^9}], |

45 | |

46 | Cell[CellGroupData[{ |

47 | |

48 | Cell[BoxData[ |

49 | FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print", |

50 | CellChangeTimes->{3.5097790803920813`*^9, 3.509779124183002*^9}], |

51 | |

52 | Cell[BoxData[ |

53 | FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>", |

54 | TraditionalForm]], "Print", |

55 | CellChangeTimes->{3.5097790803920813`*^9, 3.509779124189536*^9}], |

56 | |

57 | Cell[BoxData[ |

58 | FormBox["\<\" \"\>", TraditionalForm]], "Print", |

59 | CellChangeTimes->{3.5097790803920813`*^9, 3.50977912419641*^9}], |

60 | |

61 | Cell[BoxData[ |

62 | FormBox["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \ |

63 | (arXiv:0806.4194).\"\>", TraditionalForm]], "Print", |

64 | CellChangeTimes->{3.5097790803920813`*^9, 3.50977912420424*^9}], |

65 | |

66 | Cell[BoxData[ |

67 | FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\ |

68 | |

69 | CellChangeTimes->{3.5097790803920813`*^9, 3.509779124212921*^9}], |

70 | |

71 | Cell[BoxData[ |

72 | FormBox["\<\" \"\>", TraditionalForm]], "Print", |

73 | CellChangeTimes->{3.5097790803920813`*^9, 3.509779124216967*^9}], |

74 | |

75 | Cell[BoxData[ |

76 | FormBox["\<\"The FeynRules palette can be opened using the command \ |

77 | FRPalette[].\"\>", TraditionalForm]], "Print", |

78 | CellChangeTimes->{3.5097790803920813`*^9, 3.509779124221074*^9}] |

79 | }, Open ]] |

80 | }, Open ]], |

81 | |

82 | Cell[CellGroupData[{ |

83 | |

84 | Cell["The Hidden Abelian Higgs model", "Title", |

85 | CellChangeTimes->{{3.411915778286763*^9, 3.4119157817267313`*^9}, { |

86 | 3.413720856398858*^9, 3.413720856723679*^9}, {3.509778928631168*^9, |

87 | 3.509778939699687*^9}}], |

88 | |

89 | Cell[CellGroupData[{ |

90 | |

91 | Cell[BoxData[ |

92 | RowBox[{"LoadModel", "[", |

93 | RowBox[{ |

94 | "$FeynRulesPath", "<>", |

95 | "\"\</../models/Hidden_Abelian_Higgs_Model/Hidden.fr\>\""}], |

96 | "]"}]], "Input", |

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

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

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

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

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

102 | 3.403347555049163*^9}, 3.403533015351287*^9, {3.40505363437746*^9, |

103 | 3.40505363645761*^9}, {3.411912382149088*^9, 3.4119123969228477`*^9}, { |

104 | 3.50856924516405*^9, 3.5085692957646017`*^9}, {3.50977894668571*^9, |

105 | 3.5097789504842176`*^9}, {3.5097790957627983`*^9, 3.509779118203261*^9}}], |

106 | |

107 | Cell[CellGroupData[{ |

108 | |

109 | Cell[BoxData[ |

110 | FormBox["\<\"This model implementation was created by\"\>", |

111 | TraditionalForm]], "Print", |

112 | CellChangeTimes->{3.509779084311322*^9, 3.509779153251739*^9}], |

113 | |

114 | Cell[BoxData[ |

115 | FormBox["\<\"C. Duhr\"\>", TraditionalForm]], "Print", |

116 | CellChangeTimes->{3.509779084311322*^9, 3.509779153254369*^9}], |

117 | |

118 | Cell[BoxData[ |

119 | FormBox[ |

120 | InterpretationBox[ |

121 | RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}], |

122 | SequenceForm["Model Version: ", "1.0"], |

123 | Editable->False], TraditionalForm]], "Print", |

124 | CellChangeTimes->{3.509779084311322*^9, 3.509779153257538*^9}], |

125 | |

126 | Cell[BoxData[ |

127 | FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print", |

128 | CellChangeTimes->{3.509779084311322*^9, 3.509779153260545*^9}], |

129 | |

130 | Cell[BoxData[ |

131 | FormBox["\<\" J. D. Wells, \\\"How to Find a Hidden World at the Large \ |

132 | Hadron Collider,\\\", [arXiv:0803.1243 [hep-ph]]\"\>", |

133 | TraditionalForm]], "Print", |

134 | CellChangeTimes->{3.509779084311322*^9, 3.509779153263336*^9}], |

135 | |

136 | Cell[BoxData[ |

137 | FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/\ |

138 | HiddenAbelianHiggsModel\"\>", TraditionalForm]], "Print", |

139 | CellChangeTimes->{3.509779084311322*^9, 3.509779153268167*^9}], |

140 | |

141 | Cell[BoxData[ |

142 | FormBox["\<\"For more information, type ModelInformation[].\"\>", |

143 | TraditionalForm]], "Print", |

144 | CellChangeTimes->{3.509779084311322*^9, 3.509779153271535*^9}], |

145 | |

146 | Cell[BoxData[ |

147 | FormBox["\<\"\"\>", TraditionalForm]], "Print", |

148 | CellChangeTimes->{3.509779084311322*^9, 3.509779153274775*^9}], |

149 | |

150 | Cell[BoxData[ |

151 | FormBox["\<\" - Loading particle classes.\"\>", TraditionalForm]], "Print",\ |

152 | |

153 | CellChangeTimes->{3.509779084311322*^9, 3.509779153278908*^9}], |

154 | |

155 | Cell[BoxData[ |

156 | FormBox["\<\" - Loading gauge group classes.\"\>", |

157 | TraditionalForm]], "Print", |

158 | CellChangeTimes->{3.509779084311322*^9, 3.509779153418405*^9}], |

159 | |

160 | Cell[BoxData[ |

161 | FormBox["\<\" - Loading parameter classes.\"\>", TraditionalForm]], "Print",\ |

162 | |

163 | CellChangeTimes->{3.509779084311322*^9, 3.5097791534467287`*^9}], |

164 | |

165 | Cell[BoxData[ |

166 | FormBox[ |

167 | InterpretationBox[ |

168 | RowBox[{"\<\"\\nModel \"\>", |

169 | "\[InvisibleSpace]", "\<\"Abelian_Higgs_Model\"\>", |

170 | "\[InvisibleSpace]", "\<\" loaded.\"\>"}], |

171 | SequenceForm["\nModel ", "Abelian_Higgs_Model", " loaded."], |

172 | Editable->False], TraditionalForm]], "Print", |

173 | CellChangeTimes->{3.509779084311322*^9, 3.509779153546349*^9}] |

174 | }, Open ]] |

175 | }, Open ]], |

176 | |

177 | Cell[CellGroupData[{ |

178 | |

179 | Cell["The lagrangian", "Section", |

180 | CellChangeTimes->{{3.411915790793332*^9, 3.411915793199389*^9}}], |

181 | |

182 | Cell[BoxData["LHAHM"], "Input", |

183 | CellChangeTimes->{{3.4119143176932583`*^9, 3.411914319401045*^9}, { |

184 | 3.509778966781176*^9, 3.509778967770995*^9}, {3.509779355012743*^9, |

185 | 3.509779370460802*^9}}] |

186 | }, Open ]], |

187 | |

188 | Cell[CellGroupData[{ |

189 | |

190 | Cell["Feynman rules", "Section", |

191 | CellChangeTimes->{{3.411915866249317*^9, 3.4119158716988153`*^9}, |

192 | 3.509779363849759*^9}], |

193 | |

194 | Cell[BoxData[ |

195 | RowBox[{"FeynmanRules", "[", "LHAHM", "]"}]], "Input", |

196 | CellChangeTimes->{{3.411915883502528*^9, 3.411915928653887*^9}, { |

197 | 3.4137211614912577`*^9, 3.4137211708030777`*^9}, 3.508569350492257*^9, { |

198 | 3.509779361403779*^9, 3.509779374162471*^9}}], |

199 | |

200 | Cell["Or in a flavor expanded form", "Text", |

201 | CellChangeTimes->{{3.411915937803143*^9, 3.4119159434558887`*^9}}], |

202 | |

203 | Cell[BoxData[ |

204 | RowBox[{"FeynmanRules", "[", |

205 | RowBox[{"LHAHM", ",", |

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

207 | CellChangeTimes->{{3.411915883502528*^9, 3.411915958983838*^9}, { |

208 | 3.508569657623721*^9, 3.508569668869379*^9}, {3.5097793668671083`*^9, |

209 | 3.509779379186967*^9}, 3.5136893169327602`*^9}] |

210 | }, Open ]] |

211 | }, Open ]] |

212 | }, |

213 | WindowSize->{1272, 681}, |

214 | WindowMargins->{{68, Automatic}, {Automatic, 23}}, |

215 | ShowSelection->True, |

216 | Magnification->1.5, |

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

218 | StyleDefinitions->"Default.nb" |

219 | ] |

220 | (* End of Notebook Content *) |

221 | |

222 | (* Internal cache information *) |

223 | (*CellTagsOutline |

224 | CellTagsIndex->{} |

225 | *) |

226 | (*CellTagsIndex |

227 | CellTagsIndex->{} |

228 | *) |

229 | (*NotebookFileOutline |

230 | Notebook[{ |

231 | Cell[545, 20, 118, 2, 46, "Input"], |

232 | Cell[666, 24, 233, 5, 46, "Input"], |

233 | Cell[CellGroupData[{ |

234 | Cell[924, 33, 626, 10, 107, "Input"], |

235 | Cell[CellGroupData[{ |

236 | Cell[1575, 47, 143, 2, 35, "Print"], |

237 | Cell[1721, 51, 172, 3, 35, "Print"], |

238 | Cell[1896, 56, 128, 2, 35, "Print"], |

239 | Cell[2027, 60, 198, 3, 35, "Print"], |

240 | Cell[2228, 65, 161, 3, 35, "Print"], |

241 | Cell[2392, 70, 129, 2, 35, "Print"], |

242 | Cell[2524, 74, 196, 3, 35, "Print"] |

243 | }, Open ]] |

244 | }, Open ]], |

245 | Cell[CellGroupData[{ |

246 | Cell[2769, 83, 213, 3, 126, "Title"], |

247 | Cell[CellGroupData[{ |

248 | Cell[3007, 90, 818, 14, 46, "Input"], |

249 | Cell[CellGroupData[{ |

250 | Cell[3850, 108, 169, 3, 35, "Print"], |

251 | Cell[4022, 113, 133, 2, 35, "Print"], |

252 | Cell[4158, 117, 276, 6, 35, "Print"], |

253 | Cell[4437, 125, 137, 2, 35, "Print"], |

254 | Cell[4577, 129, 238, 4, 35, "Print"], |

255 | Cell[4818, 135, 193, 3, 35, "Print"], |

256 | Cell[5014, 140, 175, 3, 35, "Print"], |

257 | Cell[5192, 145, 126, 2, 35, "Print"], |

258 | Cell[5321, 149, 158, 3, 35, "Print"], |

259 | Cell[5482, 154, 162, 3, 35, "Print"], |

260 | Cell[5647, 159, 161, 3, 35, "Print"], |

261 | Cell[5811, 164, 358, 8, 65, "Print"] |

262 | }, Open ]] |

263 | }, Open ]], |

264 | Cell[CellGroupData[{ |

265 | Cell[6218, 178, 99, 1, 108, "Section"], |

266 | Cell[6320, 181, 197, 3, 46, "Input"] |

267 | }, Open ]], |

268 | Cell[CellGroupData[{ |

269 | Cell[6554, 189, 126, 2, 108, "Section"], |

270 | Cell[6683, 193, 261, 4, 46, "Input"], |

271 | Cell[6947, 199, 112, 1, 44, "Text"], |

272 | Cell[7062, 202, 328, 6, 46, "Input"] |

273 | }, Open ]] |

274 | }, Open ]] |

275 | } |

276 | ] |

277 | *) |

278 | |

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