(*^ ::[ frontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.1"; macintoshStandardFontEncoding; paletteColors = 128; currentKernel; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L2, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L2, 12, "Courier"; ; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L2, 10, "Geneva"; ; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = leftheader, inactive, L2, 12, "Times"; ; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times"; ; fontset = leftfooter, inactive, L2, 12, "Times"; ; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times"; ; ] :[font = input; noPageBreak; preserveAspect; ] Off[General::spell]; Off[General::spell1]; :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] ================================ Load FeynArts: :[font = input; Cclosed; preserveAspect; startGroup; ] $Path :[font = output; output; inactive; preserveAspect; endGroup; ] {".", "~", "/usr/local/mathmetica/Install/Preload", "/usr/local/mathmetica/StartUp", "/usr/local/mathmetica/Packages"} ;[o] {., ~, /usr/local/mathmetica/Install/Preload, /usr/local/mathmetica/StartUp, /usr/local/mathmetica/Packages} :[font = input; inactive; Cclosed; preserveAspect; startGroup; ] AppendTo[$Path, "HD240:mathload:FeynArts"] :[font = output; output; inactive; preserveAspect; endGroup; ] {":Packages", ":Packages:StartUp", ":Packages:StartUp:Integrate", "HD240:mathload:FeynArts"} ;[o] {:Packages, :Packages:StartUp, :Packages:StartUp:Integrate, HD240:mathload:FeynArts} :[font = input; Cclosed; preserveAspect; startGroup; ] AppendTo[$Path, "/users/smuphy/olness/mathload/FeynArts/FeynArts"] :[font = output; output; inactive; preserveAspect; endGroup; ] {".", "~", "/usr/local/mathmetica/Install/Preload", "/usr/local/mathmetica/StartUp", "/usr/local/mathmetica/Packages", "/users/smuphy/olness/mathload/FeynArts/FeynArts"} ;[o] {., ~, /usr/local/mathmetica/Install/Preload, /usr/local/mathmetica/StartUp, /usr/local/mathmetica/Packages, /users/smuphy/olness/mathload/FeynArts/FeynArts} :[font = input; Cclosed; preserveAspect; startGroup; ] Needs["FeynArts`"] :[font = print; inactive; preserveAspect; endGroup; endGroup; ] FeynArts 1.0 for Mathematica 2.0 (October 1991) by Hagen Eck and Sepp Kueblbeck [additional packages being loaded] :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] ================================ Create Topologies: Photon+Gluon->Quark+Quark :[font = input; Cclosed; preserveAspect; startGroup; ] tops= CreateTopologies[0,4 ,Tadpoles->False ,SelfEnergies->False ]; Length[tops] :[font = output; output; inactive; preserveAspect; endGroup; ] 4 ;[o] 4 :[font = input; Cclosed; preserveAspect; startGroup; ] ins=InsertFields[tops,{V[1],V[1]}->{F[1],F[-1]} ,Model->{SM}]; :[font = print; inactive; preserveAspect; endGroup; ] ... initializing model "SM1111100" |. | |.. | |... | |.... | |.....| ... (done) 1. topology (out of 4) being inserted 1 insertions before Compare 1 insertions after Compare 2. topology (out of 4) being inserted 1 insertions before Compare 1 insertions after Compare 3. topology (out of 4) being inserted 0 insertions before Compare 0 insertions after Compare 4. topology (out of 4) being inserted 0 insertions before Compare 0 insertions after Compare Out of 4 tops. 2 have no inss. and are discarded total number of insertions: 2 :[font = input; Cclosed; preserveAspect; startGroup; ] ins :[font = output; output; inactive; preserveAspect; endGroup; ] TopologyList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {V[1], V[1]} -> {F[1], F[-1]}][Topology[Propaga\ tor[inc][e[1], v3[4], fi[1]], Propagator[inc][e[2], v3[1], fi[2]], Propagator[out][e[3], v3[1], fi[3]], Propagator[out][e[4], v3[4], fi[4]], Propagator[in][v3[1], v3[4], fi[5]], Insertions[Graph[1][fi[1] -> V[1], fi[2] -> V[1], fi[3] -> F[-1], fi[4] -> F[1], fi[5] -> F[-1]]]], Topology[Propagator[inc][e[1], v3[1], fi[1]], Propagator[inc][e[2], v3[4], fi[2]], Propagator[out][e[3], v3[1], fi[3]], Propagator[out][e[4], v3[4], fi[4]], Propagator[in][v3[1], v3[4], fi[5]], Insertions[Graph[1][fi[1] -> V[1], fi[2] -> V[1], fi[3] -> F[-1], fi[4] -> F[1], fi[5] -> F[-1]]]]] ;[o] TopologyList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {V[1], V[1]} -> {F[1], F[-1]}][Topology[Propagat\ or[inc][e[1], v3[4], fi[1]], Propagator[inc][e[2], v3[1], fi[2]], Propagator[out][e[3], v3[1], fi[3]], Propagator[out][e[4], v3[4], fi[4]], Propagator[in][v3[1], v3[4], fi[5]], Insertions[Graph[1][fi[1] -> V[1], fi[2] -> V[1], fi[3] -> F[-1], fi[4] -> F[1], fi[5] -> F[-1]]]], Topology[Propagator[inc][e[1], v3[1], fi[1]], Propagator[inc][e[2], v3[4], fi[2]], Propagator[out][e[3], v3[1], fi[3]], Propagator[out][e[4], v3[4], fi[4]], Propagator[in][v3[1], v3[4], fi[5]], Insertions[Graph[1][fi[1] -> V[1], fi[2] -> V[1], fi[3] -> F[-1], fi[4] -> F[1], fi[5] -> F[-1]]]]] :[font = input; Cclosed; preserveAspect; startGroup; ] Paint[ins ,GraphsPerRow -> 1 ,RowsPerSheet -> 2]; :[font = print; inactive; preserveAspect; ] overwrite file "V1V1F1aF1.gra" topology: 1 insertion: 1 nr: 1 topology: 2 insertion: 1 nr: 2 :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 282; endGroup; ] %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Helvetica findfont 7 scalefont setfont % Scaling calculations 0.0204082 0.0204082 0.0204082 0.0204082 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p p .03182 w .22449 .65306 Mdot .22449 .77551 Mdot 1e-05 w .02041 .02041 Mdot p p .00625 w .22454 .71429 m .22454 .71088 L .22454 .70748 L .22453 .70408 L .22453 .70068 L .22453 .69728 L .22453 .69388 L .22453 .69048 L .22453 .68707 L .22452 .68367 L .22452 .68027 L .22452 .67687 L .22452 .67347 L .22451 .67007 L .22451 .66667 L .2245 .66327 L .2245 .65986 L .22449 .65646 L .22449 .65306 L s P p .00625 w .22454 .71429 m .22454 .71769 L .22454 .72109 L .22453 .72449 L .22453 .72789 L .22453 .73129 L .22453 .73469 L .22453 .7381 L .22453 .7415 L .22452 .7449 L .22452 .7483 L .22452 .7517 L .22452 .7551 L .22451 .7585 L .22451 .7619 L .2245 .76531 L .2245 .76871 L .22449 .77211 L .22449 .77551 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .24903 .71429 0 0 Mshowa P P p .00625 w .23066 .72489 m .22454 .71429 L .21841 .72489 L s P P p p .00625 w .12142 .79079 m .11944 .79149 L .11757 .79275 L .11579 .79447 L .11407 .79648 L .11238 .79861 L .11066 .80065 L .10889 .8024 L .10703 .80371 L .10506 .80447 L .10297 .80463 L .10077 .80424 L .09847 .80337 L .09611 .80219 L .09373 .80089 L .09136 .79965 L .08904 .79869 L .08681 .79815 L .08469 .79816 L .08269 .79876 L .0808 .79993 L .079 .80157 L .07728 .80355 L .07558 .80567 L .07388 .80774 L .07212 .80956 L .07028 .81096 L .06833 .81183 L .06626 .8121 L .06408 .81181 L .0618 .81102 L .05945 .80989 L .05706 .80859 L .05469 .80733 L .05236 .8063 L .05011 .80568 L .04797 .80559 L .04594 .80608 L .04403 .80715 L .04223 .80872 L .04049 .81065 L .0388 .81277 L .0371 .81486 L .03536 .81674 L .03353 .81823 L .03161 .8192 L .02956 .81959 L .0274 .81939 L .02513 .81869 L .02279 .81761 L Mistroke .02041 .81633 L Mfstroke P p .00625 w .12142 .79079 m .12352 .79067 L .12573 .79112 L .12804 .79202 L .1304 .79322 L .13278 .79453 L .13515 .79575 L .13746 .79669 L .13968 .79718 L .14179 .79712 L .14378 .79647 L .14566 .79526 L .14745 .79358 L .14917 .79158 L .15087 .78946 L .15259 .78741 L .15435 .78562 L .15621 .78427 L .15817 .78346 L .16025 .78325 L .16244 .7836 L .16473 .78443 L .16708 .78559 L .16946 .7869 L .17183 .78815 L .17415 .78916 L .17639 .78974 L .17852 .78979 L .18054 .78925 L .18244 .78813 L .18424 .78653 L .18598 .78458 L .18768 .78247 L .18939 .78039 L .19114 .77854 L .19298 .77711 L .19492 .7762 L .19698 .77587 L .19915 .77613 L .20142 .77688 L .20377 .778 L .20615 .7793 L .20852 .78058 L .21085 .78164 L .21311 .78232 L .21526 .78247 L .21729 .78204 L .21922 .78103 L .22104 .77951 L .22278 .77761 L Mistroke .22449 .77551 L Mfstroke P p p /Symbol findfont 7 scalefont setfont [(g)] .11662 .76677 0 0 Mshowa P P P p p .00625 w .12348 .62752 m .12138 .62741 L .11916 .62785 L .11686 .62875 L .1145 .62995 L .11211 .63127 L .10975 .63249 L .10744 .63342 L .10522 .63391 L .10311 .63385 L .10112 .63321 L .09924 .63199 L .09745 .63031 L .09573 .62832 L .09403 .62619 L .09231 .62414 L .09055 .62236 L .08869 .62101 L .08673 .6202 L .08465 .61998 L .08246 .62033 L .08017 .62116 L .07782 .62232 L .07544 .62363 L .07307 .62489 L .07075 .62589 L .06851 .62647 L .06638 .62652 L .06436 .62598 L .06246 .62487 L .06066 .62327 L .05892 .62132 L .05722 .6192 L .05551 .61712 L .05375 .61528 L .05192 .61384 L .04998 .61293 L .04792 .61261 L .04575 .61286 L .04347 .61362 L .04113 .61473 L .03875 .61603 L .03638 .61731 L .03405 .61838 L .03179 .61905 L .02964 .6192 L .0276 .61877 L .02568 .61776 L .02386 .61624 L .02212 .61434 L Mistroke .02041 .61224 L Mfstroke P p .00625 w .12348 .62752 m .12546 .62822 L .12733 .62948 L .12911 .6312 L .13083 .63322 L .13252 .63535 L .13424 .63738 L .13601 .63914 L .13787 .64044 L .13984 .6412 L .14193 .64137 L .14413 .64097 L .14643 .64011 L .14878 .63893 L .15117 .63762 L .15354 .63639 L .15586 .63542 L .15809 .63489 L .16021 .63489 L .16221 .63549 L .1641 .63666 L .16589 .63831 L .16762 .64028 L .16931 .64241 L .17102 .64448 L .17278 .6463 L .17462 .6477 L .17657 .64856 L .17863 .64884 L .18082 .64854 L .1831 .64775 L .18545 .64662 L .18783 .64532 L .19021 .64406 L .19254 .64304 L .19479 .64242 L .19693 .64232 L .19896 .64282 L .20086 .64389 L .20267 .64546 L .2044 .64739 L .2061 .6495 L .2078 .6516 L .20954 .65348 L .21136 .65497 L .21329 .65593 L .21534 .65632 L .2175 .65613 L .21976 .65542 L .22211 .65434 L Mistroke .22449 .65306 L Mfstroke P p p /Symbol findfont 7 scalefont setfont [(g)] .12828 .60351 0 0 Mshowa P P P p p .00625 w .3264 .73486 m .32909 .73701 L .33177 .73915 L .33446 .7413 L .33714 .74345 L .33983 .7456 L .34251 .74774 L .3452 .74989 L .34789 .75204 L .35057 .75418 L .35326 .75633 L .35595 .75847 L .35864 .76062 L .36132 .76277 L .36401 .76491 L .3667 .76706 L .36939 .7692 L .37208 .77134 L .37476 .77349 L .37745 .77563 L .38014 .77778 L .38283 .77992 L .38552 .78206 L .38821 .78421 L .3909 .78635 L .39359 .78849 L .39628 .79063 L .39897 .79278 L .40166 .79492 L .40435 .79706 L .40704 .7992 L .40973 .80134 L .41242 .80348 L .41511 .80563 L .4178 .80777 L .4205 .80991 L .42319 .81205 L .42588 .81419 L .42857 .81633 L s P p .00625 w .3264 .73486 m .32371 .73271 L .32103 .73056 L .31834 .72841 L .31566 .72626 L .31298 .72411 L .31029 .72196 L .30761 .71981 L .30492 .71766 L .30224 .71551 L .29956 .71336 L .29687 .71121 L .29419 .70906 L .29151 .70691 L .28882 .70476 L .28614 .70261 L .28346 .70046 L .28078 .6983 L .27809 .69615 L .27541 .694 L .27273 .69185 L .27005 .68969 L .26737 .68754 L .26469 .68539 L .26201 .68323 L .25932 .68108 L .25664 .67893 L .25396 .67677 L .25128 .67462 L .2486 .67246 L .24592 .67031 L .24324 .66815 L .24056 .666 L .23788 .66384 L .2352 .66169 L .23253 .65953 L .22985 .65737 L .22717 .65522 L .22449 .65306 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .3111 .75398 0 0 Mshowa P P p .00625 w .31429 .73301 m .3264 .73486 L .32194 .72345 L s P P p p .00625 w .32666 .69404 m .32935 .69189 L .33203 .68974 L .33472 .6876 L .3374 .68545 L .34009 .6833 L .34277 .68115 L .34545 .679 L .34814 .67685 L .35082 .6747 L .35351 .67255 L .35619 .6704 L .35887 .66825 L .36155 .66609 L .36424 .66394 L .36692 .66179 L .3696 .65964 L .37229 .65749 L .37497 .65534 L .37765 .65318 L .38033 .65103 L .38301 .64888 L .38569 .64673 L .38838 .64457 L .39106 .64242 L .39374 .64026 L .39642 .63811 L .3991 .63596 L .40178 .6338 L .40446 .63165 L .40714 .62949 L .40982 .62734 L .4125 .62518 L .41518 .62303 L .41786 .62087 L .42054 .61871 L .42321 .61656 L .42589 .6144 L .42857 .61224 L s P p .00625 w .32666 .69404 m .32398 .69619 L .32129 .69834 L .3186 .70048 L .31592 .70263 L .31323 .70478 L .31055 .70693 L .30786 .70907 L .30517 .71122 L .30249 .71337 L .2998 .71551 L .29711 .71766 L .29442 .7198 L .29174 .72195 L .28905 .72409 L .28636 .72624 L .28367 .72838 L .28099 .73053 L .2783 .73267 L .27561 .73482 L .27292 .73696 L .27023 .7391 L .26754 .74125 L .26485 .74339 L .26216 .74553 L .25947 .74768 L .25678 .74982 L .25409 .75196 L .2514 .7541 L .24871 .75624 L .24602 .75839 L .24333 .76053 L .24064 .76267 L .23795 .76481 L .23526 .76695 L .23257 .76909 L .22987 .77123 L .22718 .77337 L .22449 .77551 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .34196 .71316 0 0 Mshowa P P p .00625 w .33112 .68264 m .32666 .69404 L .33877 .6922 L s P P P p /Helvetica findfont 7 scalefont setfont [(Top.1 Ins.1)] .02449 .51429 -1 -1 Mshowa P P P p p p .03182 w .22449 .28571 Mdot .22449 .16327 Mdot 1e-05 w .02041 .02041 Mdot p p .00625 w .22444 .22449 m .22444 .22789 L .22444 .23129 L .22445 .23469 L .22445 .2381 L .22445 .2415 L .22445 .2449 L .22445 .2483 L .22445 .2517 L .22446 .2551 L .22446 .2585 L .22446 .2619 L .22446 .26531 L .22447 .26871 L .22447 .27211 L .22448 .27551 L .22448 .27891 L .22448 .28231 L .22449 .28571 L s P p .00625 w .22444 .22449 m .22444 .22109 L .22444 .21769 L .22445 .21429 L .22445 .21088 L .22445 .20748 L .22445 .20408 L .22445 .20068 L .22445 .19728 L .22446 .19388 L .22446 .19048 L .22446 .18707 L .22446 .18367 L .22447 .18027 L .22447 .17687 L .22448 .17347 L .22448 .17007 L .22448 .16667 L .22449 .16327 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .19995 .22449 0 0 Mshowa P P p .00625 w .21832 .21389 m .22444 .22449 L .23057 .21389 L s P P p p .00625 w .12142 .30099 m .11944 .30169 L .11757 .30295 L .11579 .30467 L .11407 .30669 L .11238 .30882 L .11066 .31085 L .10889 .3126 L .10703 .31391 L .10506 .31467 L .10297 .31484 L .10077 .31444 L .09847 .31358 L .09611 .3124 L .09373 .31109 L .09136 .30986 L .08904 .30889 L .08681 .30836 L .08469 .30836 L .08269 .30896 L .0808 .31013 L .079 .31178 L .07728 .31375 L .07558 .31588 L .07388 .31795 L .07212 .31977 L .07028 .32117 L .06833 .32203 L .06626 .32231 L .06408 .32201 L .0618 .32122 L .05945 .32009 L .05706 .31879 L .05469 .31753 L .05236 .31651 L .05011 .31589 L .04797 .31579 L .04594 .31629 L .04403 .31736 L .04223 .31892 L .04049 .32086 L .0388 .32297 L .0371 .32507 L .03536 .32695 L .03353 .32843 L .03161 .3294 L .02956 .32979 L .0274 .3296 L .02513 .32889 L .02279 .32781 L Mistroke .02041 .32653 L Mfstroke P p .00625 w .12142 .30099 m .12352 .30088 L .12573 .30132 L .12804 .30222 L .1304 .30342 L .13278 .30474 L .13515 .30596 L .13746 .30689 L .13968 .30738 L .14179 .30732 L .14378 .30667 L .14566 .30546 L .14745 .30378 L .14917 .30179 L .15087 .29966 L .15259 .29761 L .15435 .29583 L .15621 .29448 L .15817 .29367 L .16025 .29345 L .16244 .2938 L .16473 .29463 L .16708 .29579 L .16946 .2971 L .17183 .29836 L .17415 .29936 L .17639 .29994 L .17852 .29999 L .18054 .29945 L .18244 .29834 L .18424 .29674 L .18598 .29479 L .18768 .29267 L .18939 .29059 L .19114 .28875 L .19298 .28731 L .19492 .2864 L .19698 .28608 L .19915 .28633 L .20142 .28709 L .20377 .2882 L .20615 .2895 L .20852 .29078 L .21085 .29185 L .21311 .29252 L .21526 .29267 L .21729 .29224 L .21922 .29123 L .22104 .28971 L .22278 .28781 L Mistroke .22449 .28571 L Mfstroke P p p /Symbol findfont 7 scalefont setfont [(g)] .11662 .27698 0 0 Mshowa P P P p p .00625 w .12348 .13772 m .12138 .13761 L .11916 .13806 L .11686 .13896 L .1145 .14016 L .11211 .14147 L .10975 .14269 L .10744 .14363 L .10522 .14412 L .10311 .14406 L .10112 .14341 L .09924 .1422 L .09745 .14052 L .09573 .13852 L .09403 .1364 L .09231 .13434 L .09055 .13256 L .08869 .13121 L .08673 .1304 L .08465 .13019 L .08246 .13054 L .08017 .13137 L .07782 .13253 L .07544 .13384 L .07307 .13509 L .07075 .13609 L .06851 .13668 L .06638 .13673 L .06436 .13619 L .06246 .13507 L .06066 .13347 L .05892 .13152 L .05722 .1294 L .05551 .12733 L .05375 .12548 L .05192 .12405 L .04998 .12314 L .04792 .12281 L .04575 .12307 L .04347 .12382 L .04113 .12494 L .03875 .12624 L .03638 .12752 L .03405 .12858 L .03179 .12925 L .02964 .12941 L .0276 .12898 L .02568 .12797 L .02386 .12645 L .02212 .12455 L Mistroke .02041 .12245 L Mfstroke P p .00625 w .12348 .13772 m .12546 .13843 L .12733 .13969 L .12911 .14141 L .13083 .14342 L .13252 .14555 L .13424 .14759 L .13601 .14934 L .13787 .15065 L .13984 .1514 L .14193 .15157 L .14413 .15118 L .14643 .15031 L .14878 .14913 L .15117 .14782 L .15354 .14659 L .15586 .14562 L .15809 .14509 L .16021 .1451 L .16221 .1457 L .1641 .14686 L .16589 .14851 L .16762 .15049 L .16931 .15261 L .17102 .15468 L .17278 .1565 L .17462 .1579 L .17657 .15876 L .17863 .15904 L .18082 .15874 L .1831 .15796 L .18545 .15683 L .18783 .15553 L .19021 .15427 L .19254 .15324 L .19479 .15262 L .19693 .15253 L .19896 .15302 L .20086 .15409 L .20267 .15566 L .2044 .15759 L .2061 .15971 L .2078 .1618 L .20954 .16368 L .21136 .16517 L .21329 .16614 L .21534 .16652 L .2175 .16633 L .21976 .16563 L .22211 .16455 L Mistroke .22449 .16327 L Mfstroke P p p /Symbol findfont 7 scalefont setfont [(g)] .12828 .11371 0 0 Mshowa P P P p p .00625 w .3265 .30625 m .32991 .30693 L .33331 .30761 L .33671 .30829 L .34011 .30897 L .34351 .30965 L .34691 .31033 L .35032 .31101 L .35372 .31169 L .35712 .31236 L .36052 .31304 L .36392 .31372 L .36733 .31439 L .37073 .31507 L .37413 .31575 L .37753 .31642 L .38093 .3171 L .38434 .31778 L .38774 .31845 L .39114 .31913 L .39454 .3198 L .39795 .32047 L .40135 .32115 L .40475 .32182 L .40815 .3225 L .41156 .32317 L .41496 .32384 L .41836 .32451 L .42177 .32519 L .42517 .32586 L .42857 .32653 L s P p .00625 w .3265 .30625 m .3231 .30557 L .3197 .30489 L .3163 .30421 L .3129 .30353 L .3095 .30285 L .3061 .30217 L .3027 .30148 L .2993 .3008 L .29589 .30012 L .29249 .29944 L .28909 .29875 L .28569 .29807 L .28229 .29738 L .27889 .2967 L .27549 .29602 L .27209 .29533 L .26869 .29465 L .26529 .29396 L .26189 .29328 L .25849 .29259 L .25509 .2919 L .25169 .29122 L .24829 .29053 L .24489 .28984 L .24149 .28916 L .23809 .28847 L .23469 .28778 L .23129 .28709 L .22789 .2864 L .22449 .28571 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .3217 .33027 0 0 Mshowa P P p .00625 w .31491 .31018 m .3265 .30625 L .31731 .29817 L s P P p p .00625 w .32656 .14299 m .32996 .14231 L .33336 .14163 L .33676 .14095 L .34016 .14026 L .34356 .13958 L .34696 .1389 L .35036 .13822 L .35377 .13754 L .35717 .13685 L .36057 .13617 L .36397 .13549 L .36737 .1348 L .37077 .13412 L .37417 .13344 L .37757 .13275 L .38097 .13207 L .38437 .13138 L .38777 .1307 L .39117 .13001 L .39457 .12932 L .39797 .12864 L .40137 .12795 L .40477 .12726 L .40817 .12658 L .41157 .12589 L .41497 .1252 L .41837 .12451 L .42177 .12383 L .42517 .12314 L .42857 .12245 L s P p .00625 w .32656 .14299 m .32316 .14367 L .31975 .14435 L .31635 .14503 L .31295 .14571 L .30955 .14638 L .30615 .14706 L .30275 .14774 L .29934 .14842 L .29594 .1491 L .29254 .14978 L .28914 .15045 L .28574 .15113 L .28233 .15181 L .27893 .15248 L .27553 .15316 L .27213 .15383 L .26873 .15451 L .26532 .15519 L .26192 .15586 L .25852 .15653 L .25512 .15721 L .25171 .15788 L .24831 .15856 L .24491 .15923 L .2415 .1599 L .2381 .16058 L .2347 .16125 L .2313 .16192 L .22789 .16259 L .22449 .16327 L s P p p /Helvetica findfont 7 scalefont setfont [(e)] .33136 .167 0 0 Mshowa P P p .00625 w .33575 .1349 m .32656 .14299 L .33816 .14691 L s P P P p /Helvetica findfont 7 scalefont setfont [(Top.2 Ins.1)] .02449 .02449 -1 -1 Mshowa P P P p /Symbol findfont 7 scalefont setfont [(g)] -0.06122 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [( + )] .02041 .96939 0 0 Mshowa P p /Symbol findfont 7 scalefont setfont [(g)] .10204 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [( )] .18367 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [(-->)] .26531 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [( )] .34694 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [(e)] .42857 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [( + )] .5102 .96939 0 0 Mshowa P p /Helvetica findfont 7 scalefont setfont [(e)] .59184 .96939 0 0 Mshowa P P % End of Graphics MathPictureEnd :[font = input; Cclosed; preserveAspect; startGroup; ] amp=CreateFeynAmp[ins]; :[font = print; inactive; preserveAspect; endGroup; ] . |(1) ..|(1) :[font = input; Cclosed; preserveAspect; startGroup; ] amp :[font = output; output; inactive; preserveAspect; endGroup; ] FeynAmpList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {{V[1], p1, 0}, {V[1], p2, 0}} -> {{F[1], k1, ME}, {F[-1], k2, ME}}][FeynAmp[GraphName[V1V1\ F1aF1, T1, I1, N1], -(EL^2* LeptonSpinor[k1, ME] . DiracMatrix[li4] . (ME + DiracSlash[k1 - p2]) . DiracMatrix[li2] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p2, ME])], FeynAmp[GraphName[V1V1F1aF1, T2, I1, N2], -(EL^2*LeptonSpinor[k1, ME] . DiracMatrix[li2] . (ME + DiracSlash[k1 - p1]) . DiracMatrix[li4] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p1, ME])]] ;[o] FeynAmpList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {{V[1], p1, 0}, {V[1], p2, 0}} -> {{F[1], k1, ME}, {F[-1], k2, ME}}][FeynAmp[V1V1F1aF1, T1, 2 I1, N1][-((EL ep[p1, li2] ep[p2, li4] Integral[] u[k1, ME] . ga[li4] . (ME + gs[k1 - p2]) . ga[li2] . 2 2 v[k2, ME]) / (-ME + (k1 - p2) ))], 2 FeynAmp[V1V1F1aF1, T2, I1, N2][-((EL ep[p1, li2] ep[p2, li4] Integral[] u[k1, ME] . ga[li2] . (ME + gs[k1 - p1]) . 2 2 ga[li4] . v[k2, ME]) / (-ME + (k1 - p1) ))]] :[font = input; Cclosed; preserveAspect; startGroup; ] InputForm[amp] :[font = output; output; inactive; preserveAspect; fontLeading = 0; endGroup; endGroup; ] InputForm[FeynAmpList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {{V[1], p1, 0}, {V[1], p2, 0}} -> {{F[1], k1, ME}, {F[-1], k2, ME}}][FeynAmp[GraphName [V1V1F1aF1, T1, I1, N1], -(EL^2*LeptonSpinor[k1, ME] . DiracMatrix[li4] . (ME + DiracSlash[k1 - p2]) . DiracMatrix[li2] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p2, ME])], FeynAmp[GraphName[V1V1F1aF1, T2, I1, N2], -(EL^2*LeptonSpinor[k1, ME] . DiracMatrix[li2] . (ME + DiracSlash[k1 - p1]) . DiracMatrix[li4] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p1, ME])]]] ;[o] FeynAmpList[Model -> {SM}, Generation1 -> True, Generation2 -> True, Generation3 -> True, ElectronHCoupling -> True, LightFHCoupling -> True, QuarkMixing -> False, UnitaryGauge -> False, RemoveEmptyTops -> True, ProcessName -> V1V1F1aF1, Process -> {{V[1], p1, 0}, {V[1], p2, 0}} -> {{F[1], k1, ME}, {F[-1], k2, ME}}][FeynAmp[GraphName[V1V1\ F1aF1, T1, I1, N1], -(EL^2* LeptonSpinor[k1, ME] . DiracMatrix[li4] . (ME + DiracSlash[k1 - p2]) . DiracMatrix[li2] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p2, ME])], FeynAmp[GraphName[V1V1F1aF1, T2, I1, N2], -(EL^2*LeptonSpinor[k1, ME] . DiracMatrix[li2] . (ME + DiracSlash[k1 - p1]) . DiracMatrix[li4] . LeptonSpinor[-k2, ME]*PolarizationVector[p1, li2]* PolarizationVector[p2, li4]* PropagatorDenominator[k1 - p1, ME])]] ^*)