2
%%BoundingBox: -20 -20 450 450
3
%%DocumentFonts: Helvetica
7
% Feynman Diagrams drawn by MadGraph
10
% A program by David J. Summers to draw
11
% Feynman diagrams. (c) 1992
12
% Version 2.7 (c) 1993
14
% Comments and questions to
15
% D.J.Summers@uk.ac.durham
22
/Frmod {dup 360 div floor 360 mul sub} def
23
/Fsign {0 ge {1} {-1} ifelse} def
26
{/Fby exch def /Fbx exch def /Fdist Fbx Fbx
27
mul Fby Fby mul add sqrt def /Fxl Fbx Fdist
28
div Fr mul def /Fyl Fby Fdist div Fr mul def
29
/Fxt Fby Fdist div Fr mul def /Fyt Fbx neg
30
Fdist div Fr mul def } def
33
{/Fshape exch def /Ftype exch def /Fy2 exch
34
def /Fx2 exch def /Fy1 exch def /Fx1 exch def
35
Fx2 Fx1 sub Fy2 Fy1 sub Fbasis /Fttype 1
36
Ftype 2 mod 2 mul abs sub def Ftype 0 ge
37
{/Fddist Fdist Fr div 2 div def /Fn Fddist round
38
def Ftype 1 gt {/Fn Fn Fddist Fn sub Fsign
39
add def} if} {/Fn Fdist Fr div 2 div round 2
40
mul def} ifelse Fx1 Fy1 moveto 0 1 Fnopoints
41
Fn mul {/Fi exch def Fshape lineto } for
45
{/Fshape exch def /Fe exch def /Ftype exch
46
def /Fy2 exch def /Fx2 exch def /Fy1 exch def
47
/Fx1 exch def /Flam 1 Fe Fe mul sub 2 div Fe
48
div def /Fxc Fx1 Fx2 Flam Fy2 Fy1 sub mul add
49
add 2 div def /Fyc Fy1 Fy2 Flam Fx1 Fx2 sub
50
mul add add 2 div def /Frr Fx1 Fxc sub dup
51
mul Fy1 Fyc sub dup mul add sqrt def /Fth1
52
Fy1 Fyc sub Fx1 Fxc sub atan def /Fth2 Fy2
53
Fyc sub Fx2 Fxc sub atan def Fe 0 lt Fth2
54
Fth1 lt and {/Fth1 Fth1 360 sub def} if Fe 0
55
gt Fth2 Fth1 gt and {/Fth2 Fth2 360 sub def}
56
if /Fdth Fth2 Fth1 sub Fsign def /Fttype 1
57
Ftype 2 mod abs 2 mul sub def Ftype 0 ge
58
{/Fddist Fth2 Fth1 sub abs 180 div pi mul Frr
59
mul Fr div def /Fn Fddist round def Ftype 1
60
gt {/Fn Fn Fddist Fn sub Fsign add def} if}
61
{/Fn Fth2 Fth1 sub abs 180 div pi mul Frr mul
62
Fr div 2 div round 2 mul def} ifelse Fx1 Fy1
63
moveto 0 1 Fnopoints Fn mul {/Fi exch def
64
/Fth Fth1 Fth2 Fth1 sub Fi mul Fnopoints div
65
Fn div add Frmod def Fth sin neg Fdth mul Fth
66
cos Fdth mul Fbasis Fshape lineto } for
70
{ moveto Fxt Fxl sub Fyt Fyl sub
71
rlineto Fxl 2 mul Fxt sub Fyl 2 mul Fyt sub
72
rlineto Fxl 2 mul Fxt add neg Fyl 2 mul Fyt
73
add neg rlineto fill } def
76
{{ Fx1 Fx2 Fx1 sub Fi mul Fnopoints div Fn
77
div Fxt Fi 360 mul Fnopoints div Frmod sin
78
mul Fttype mul 2 div add add Fy1 Fy2 Fy1 sub
79
Fi mul Fnopoints div Fn div Fyt Fi 360 mul
80
Fnopoints div Frmod sin mul Fttype mul 2 div
81
add add } Fstraight } def
84
{{ Fx1 Fx2 Fx1 sub Fi mul Fnopoints div Fn
85
div Fxt Fi 180 mul Fnopoints div Frmod sin
86
mul Fttype mul 1 div add add Fy1 Fy2 Fy1 sub
87
Fi mul Fnopoints div Fn div Fyt Fi 180 mul
88
Fnopoints div Frmod sin mul Fttype mul 1 div
89
add add } Fstraight } def
92
{{ Fx1 Fx2 Fx1 sub Fi mul Fnopoints div Fn
93
div Fxt Fi 360 mul Fnopoints div Frmod sin
94
mul Fttype mul 2 div add add Fy1 Fy2 Fy1 sub
95
Fi mul Fnopoints div Fn div Fyt Fi 360 mul
96
Fnopoints div Frmod sin mul Fttype mul 2 div
97
add add } Fstraight Fx1
98
Fx2 add 2 div Fy1 Fy2 add 2 div Farrow} def
101
{exch dup 3 1 roll 0 ge {{ Fxc Fth cos Frr
102
mul Fxt Fi 180 mul Fnopoints div Frmod sin
103
mul Fttype mul 2 div add add Fyc Fth sin Frr
104
mul Fyt Fi 180 mul Fnopoints div Frmod sin
105
mul Fttype mul 2 div add add }} {{ Fxc Fth
106
cos Frr mul Fxt 1 Fi 180 mul Fnopoints div
107
Frmod cos sub mul Fttype mul 2 div add add
108
Fyc Fth sin Frr mul Fyt 1 Fi 180 mul
109
Fnopoints div Frmod cos sub mul Fttype mul 2
110
div add add }} ifelse Floop } def
113
{2 sub { Fx1 Fx2 Fx1 sub Fi mul Fnopoints div
114
Fn div Fxt 1 Fi 180 mul Fnopoints div cos sub
115
mul Fttype mul Fxl Fi 180 mul Fnopoints div
116
sin mul add add add Fy1 Fy2 Fy1 sub Fi mul
117
Fnopoints div Fn div Fyt 1 Fi 180 mul
118
Fnopoints div cos sub mul Fttype mul Fyl Fi
119
180 mul Fnopoints div sin mul add add add }
123
{2 sub { Fx1 Fx2 Fx1 sub Fi mul Fnopoints div
124
Fn div Fxt 0 Fi 120 mul Fnopoints div cos sub
125
mul Fttype mul Fxl Fi 120 mul Fnopoints div
126
sin mul add add add Fy1 Fy2 Fy1 sub Fi mul
127
Fnopoints div Fn div Fyt 0 Fi 120 mul
128
Fnopoints div cos sub mul Fttype mul Fyl Fi
129
120 mul Fnopoints div sin mul add add add }
134
{exch 2 sub exch { Fxc Fth cos Frr mul Fxt 1
135
Fi 180 mul Fnopoints div cos sub mul Fttype
136
mul Fxl Fi 180 mul Fnopoints div sin mul add
137
add add Fyc Fth sin Frr mul Fyt 1 Fi 180 mul
138
Fnopoints div cos sub mul Fttype mul Fyl Fi
139
180 mul Fnopoints div sin mul add add add }
143
{/Fy2 exch def /Fx2 exch def /Fy1 exch def
144
/Fx1 exch def newpath Fx2 Fx1 sub Fy2 Fy1 sub
145
Fbasis Fx1 Fy1 moveto Fx2 Fy2 lineto stroke Fx1
146
Fx2 add 2 div Fy1 Fy2 add 2 div Farrow } def
149
{newpath moveto lineto stroke} def
152
{/Fe exch def /Fy2 exch def /Fx2 exch def
153
/Fy1 exch def /Fx1 exch def newpath /Flam 1 Fe
154
Fe mul sub 2 div Fe div def /Fxc Fx1 Fx2 Flam Fy2
155
Fy1 sub mul add add 2 div def /Fyc Fy1 Fy2
156
Flam Fx1 Fx2 sub mul add add 2 div def /Frr
157
Fx1 Fxc sub dup mul Fy1 Fyc sub dup mul add
158
sqrt def /Fth1 Fy1 Fyc sub Fx1 Fxc sub atan
159
def /Fth2 Fy2 Fyc sub Fx2 Fxc sub atan def Fe
160
0 lt Fth2 Fth1 lt and {/Fth1 Fth1 360 sub
161
def} if Fe 0 gt Fth2 Fth1 gt and {/Fth2 Fth2
162
360 sub def} if /Fthc Fth1 Fth2 add 2 div def
163
Fxc Fyc Frr Fth1 Fth2 Fe 0 gt {arcn} {arc}
164
ifelse stroke Fthc sin Fe 0 lt {neg} if Fthc
165
cos Fe 0 gt {neg} if Fbasis Fxc Fthc cos Frr
166
mul add Fyc Fthc sin Frr mul add Farrow } def
169
{/Fe exch def /Fy2 exch def /Fx2 exch def
170
/Fy1 exch def /Fx1 exch def newpath /Flam 1 Fe
171
Fe mul sub 2 div Fe div def /Fxc Fx1 Fx2 Flam Fy2
172
Fy1 sub mul add add 2 div def /Fyc Fy1 Fy2
173
Flam Fx1 Fx2 sub mul add add 2 div def /Frr
174
Fx1 Fxc sub dup mul Fy1 Fyc sub dup mul add
175
sqrt def /Fth1 Fy1 Fyc sub Fx1 Fxc sub atan
176
def /Fth2 Fy2 Fyc sub Fx2 Fxc sub atan def Fe
177
0 lt Fth2 Fth1 lt and {/Fth1 Fth1 360 sub
178
def} if Fe 0 gt Fth2 Fth1 gt and {/Fth2 Fth2
179
360 sub def} if /Fthc Fth1 Fth2 add 2 div def
180
Fxc Fyc Frr Fth1 Fth2 Fe 0 gt {arcn} {arc}
184
{/Fshade exch def newpath Fr mul 0 360 arc gsave
185
1 Fshade sub setgray fill grestore stroke} def
188
{/Fy2 exch def /Fx2 exch def /Fy1 exch def
189
/Fx1 exch def gsave Fx1 Fx2 sub dup mul
190
Fy1 Fy2 sub dup mul add sqrt dup Fr div
191
2 div round 2 mul 1 add div /dashln exch def
192
[dashln dashln] 0 setdash Fx1 Fy1 moveto
193
Fx2 Fy2 lineto stroke grestore} def
197
{/Fy2 exch def /Fx2 exch def /Fy1 exch def
198
/Fx1 exch def gsave Fx1 Fx2 sub dup mul
199
Fy1 Fy2 sub dup mul add sqrt dup Fr div
200
2 div round 2 mul 1 add div /dashln exch def
201
[dashln dashln] 0 setdash Fx1 Fy1 moveto
202
Fx2 Fy2 lineto stroke grestore Fx1 Fx2 add 2 div
203
Fy1 Fy2 add 2 div Farrow} def
206
{/Fe exch def /Fy2 exch def /Fx2 exch def
207
/Fy1 exch def /Fx1 exch def /Flam gsave 1 Fe
208
Fe mul sub 2 div Fe div def /Fxc Fx1 Fx2 Flam
209
Fy2 Fy1 sub mul add add 2 div def /Fyc Fy1
210
Fy2 Flam Fx1 Fx2 sub mul add add 2 div def
211
/Frr Fx1 Fxc sub dup mul Fy1 Fyc sub dup mul
212
add sqrt def /Fth1 Fy1 Fyc sub Fx1 Fxc sub
213
atan def /Fth2 Fy2 Fyc sub Fx2 Fxc sub atan
214
def Fe 0 lt Fth2 Fth1 lt and {/Fth1 Fth1 360
215
sub def} if Fe 0 gt Fth2 Fth1 gt and {/Fth2
216
Fth2 360 sub def} if /Fthc Fth1 Fth2 add 2
217
div def Fxc Fyc Frr Fth1 Fth2 Fe 0 gt {arcn}
218
{arc} ifelse Fth2 Fth1 sub abs 180 div pi mul
219
Frr mul dup Fr div 2 div round 2 mul 1 add
220
div /dashln exch def [dashln dashln] 0
221
setdash stroke grestore} def
224
{/Fy2 exch def /Fx2 exch def /Fy1 exch def
225
/Fx1 exch def Fx2 Fx1 sub Fy2 Fy1 sub Fbasis
226
/Fn Fx1 Fx2 sub dup mul Fy1 Fy2 sub dup mul
227
add sqrt Fr div round def 0 1 Fn {/Fi exch
228
def Fx2 Fx1 sub Fi Fn div mul Fx1 add Fy2 Fy1
229
sub Fi Fn div mul Fy1 add Fr 10 div 0 360 arc
230
fill} for Fx1 Fx2 add 2 div Fy1 Fy2 add 2 div
234
{/Fe exch def /Fy2 exch def /Fx2 exch def
235
/Fy1 exch def /Fx1 exch def /Flam 1 Fe Fe mul
236
sub 2 div Fe div def /Fxc Fx1 Fx2 Flam Fy2
237
Fy1 sub mul add add 2 div def /Fyc Fy1 Fy2
238
Flam Fx1 Fx2 sub mul add add 2 div def /Frr
239
Fx1 Fxc sub dup mul Fy1 Fyc sub dup mul add
240
sqrt def /Fth1 Fy1 Fyc sub Fx1 Fxc sub atan
241
def /Fth2 Fy2 Fyc sub Fx2 Fxc sub atan def Fe
242
0 lt Fth2 Fth1 lt and {/Fth1 Fth1 360 sub
243
def} if Fe 0 gt Fth2 Fth1 gt and {/Fth2 Fth2
244
360 sub def} if /Fthc Fth1 Fth2 add 2 div def
245
/Fn Fth2 Fth1 sub abs 180 div pi mul Frr mul
246
Fr div round def 0 1 Fn {/Fi exch def Fth2
247
Fth1 sub Fi Fn div mul Fth1 add dup cos Frr
248
mul Fxc add exch sin Frr mul Fyc add Fr 10
249
div 0 360 arc fill} for Fthc sin Fe 0 lt
250
{neg} if Fthc cos Fe 0 gt {neg} if Fbasis Fxc
251
Fthc cos Frr mul add Fyc Fthc sin Frr mul add
255
{/Fy2 exch def /Fx2 exch def /Fy1 exch def
256
/Fx1 exch def Fx2 Fx1 sub Fy2 Fy1 sub Fbasis
257
Fx1 Fxt 2 div add Fy1 Fyt 2 div add moveto
258
Fx2 Fxt 2 div add Fy2 Fyt 2 div add lineto
259
Fx1 Fxt 2 div sub Fy1 Fyt 2 div sub moveto
260
Fx2 Fxt 2 div sub Fy2 Fyt 2 div sub lineto
261
Fx1 Fx2 add 2 div Fxt Fxl sub add Fy1 Fy2 add
262
2 div Fyt Fyl sub add moveto Fx1 Fx2 add Fxl
263
add 2 div Fy1 Fy2 add Fyl add 2 div lineto
264
Fx1 Fx2 add 2 div Fxt Fxl add sub Fy1 Fy2 add
265
2 div Fyt Fyl add sub lineto stroke} def
267
/Fmax {2 copy lt {exch} if pop} def
268
/Fstart {gsave currentpoint
269
translate 0 0 moveto 0 rm Fr 4 mul
270
scalefont setfont} def
271
/Fsubspt {gsave currentpoint Fcharheight 5 div
272
sub translate 0.6 0.6 scale 0 0 moveto 0} def
273
/Fsupspt {gsave currentpoint Fcharheight 0.6 mul
274
add translate 0.6 0.6 scale 0 0 moveto 0} def
275
/Feend {currentpoint pop Fmax 0.6 mul
276
grestore currentpoint pop add Fmax} def
277
/Fendd {pop grestore} def
278
/Fshow {exch 0 moveto show currentpoint pop} def
280
{gsave (X) true charpath flattenpath pathbbox
281
3 1 roll pop sub exch pop grestore} def
284
{exch 0 moveto gsave dup true charpath
285
flattenpath pathbbox Fcharheight 10 div dup
286
2 div setlinewidth add dup 4
287
1 roll newpath moveto pop lineto stroke
288
grestore show currentpoint pop} def
291
{exch 0 moveto gsave dup true charpath
292
flattenpath pathbbox pop exch Fcharheight
293
10 div dup 2 div setlinewidth
294
sub dup 3 1 roll newpath moveto lineto stroke
295
grestore show currentpoint pop} def
297
/rm /Times-Roman findfont def
298
/it /Times-Italic findfont def
299
/sy /Symbol findfont def
302
/{ /ystop exch def /xstop exch def /ystart exch def
303
/xstart exch def /delx xstop xstart sub def /dely
304
ystop ystart sub def /dist delx dup mul dely dup
305
mul add sqrt def /halfdist dist 2 div def
306
/angle dely delx atan def xstart ystart moveto
307
angle rotate 0 halfdist rlineto dist halfdist
308
neg rlineto dist neg halfdist neg rlineto
309
0 halfdist rlineto }def
312
{/ystop exch def /xstop exch def /ystart exch def
313
/xstart exch def /xmid xstart xstop add 2 div def
314
/ymid ystart ystop add 2 div def
315
/dx xstop xstart sub def /dy ystop ystart sub def
316
/length dx dup mul dy dup mul add sqrt def
317
/xunit dx length div def /yunit dy length div def
318
/x1 xmid xunit -4.8 mul add def
319
/y1 ymid yunit -4.8 mul add def
320
/x2 xmid xunit 4.8 mul add def
321
/y2 ymid yunit 4.8 mul add def
322
/y2 ymid yunit 4.8 mul add def
323
xstart ystart x1 y1 1 Fphoton
324
x2 y2 xstop ystop 1 Fphoton
325
/x1 xmid xunit -5.2 mul add def
326
/y1 ymid yunit -5.2 mul add def
327
/x2 xmid xunit 5.2 mul add def
328
/y2 ymid yunit 5.2 mul add def
329
gsave x1 y1 x2 y2 wedge fill grestore} def
332
{ /ystop exch def /xstop exch def /ystart exch def
334
/xmid xstart xstop add 2 div def
335
/ymid ystart ystop add 2 div def
336
/dx xstop xstart sub def /dy ystop ystart sub def
337
/length dx dup mul dy dup mul add sqrt def
338
/xunit dx length div def /yunit dy length div def
339
/x1 xmid xunit -4.8 mul add def
340
/y1 ymid yunit -4.8 mul add def
341
/x2 xmid xunit 4.8 mul add def
342
/y2 ymid yunit 4.8 mul add def
343
xstart ystart x1 y1 Fhiggs
344
x2 y2 xstop ystop Fhiggs
345
/x1 xmid xunit -5.2 mul add def
346
/y1 ymid yunit -5.2 mul add def
347
/x2 xmid xunit 5.2 mul add def
348
/y2 ymid yunit 5.2 mul add def
349
gsave x1 y1 x2 y2 wedge fill grestore} def
353
%%PageBoundingBox:-20 -20 600 800
354
%%PageFonts: Helvetica
356
/Helvetica findfont 9 scalefont setfont
362
(Diagrams made by MadGraph5) show
363
225.0 597.5 275.0 560 0 Fgluon
368
225.0 597.5 275.0 610.0 0 Fgluon
373
175.0 635.0 225.0 597.5 0 Fgluon
376
225.0 672.5 275.0 660.0 0 Fgluon
381
225.0 672.5 275.0 710 0 Fgluon
386
175.0 635.0 225.0 672.5 0 Fgluon
389
125.0 635.0 175.0 635.0 0 Fgluon
392
75 560 125.0 635.0 Ffermion
397
125.0 635.0 75 710 Ffermion
406
483.333333333 672.5 550.0 660.0 0 Fgluon
407
518.666666667 669.25 moveto
411
483.333333333 672.5 550.0 710 0 Fgluon
412
510.666666667 694.25 moveto
416
416.666666667 672.5 483.333333333 672.5 0 Fgluon
419
416.666666667 672.5 350 710 Ffermion
420
385.333333333 694.25 moveto
424
416.666666667 597.5 416.666666667 672.5 Ffermion
425
419.666666667 633.5 moveto
427
483.333333333 597.5 550.0 560 0 Fgluon
428
518.666666667 581.75 moveto
432
483.333333333 597.5 550.0 610.0 0 Fgluon
433
510.666666667 606.75 moveto
437
416.666666667 597.5 483.333333333 597.5 0 Fgluon
440
350 560 416.666666667 597.5 Ffermion
441
377.333333333 581.75 moveto
449
208.333333333 377.5 275.0 340 0 Fgluon
450
243.666666667 361.75 moveto
454
208.333333333 377.5 275.0 390.0 0 Fgluon
455
235.666666667 386.75 moveto
459
141.666666667 377.5 208.333333333 377.5 0 Fgluon
462
75 340 141.666666667 377.5 Ffermion
463
102.333333333 361.75 moveto
467
141.666666667 377.5 141.666666667 452.5 Ffermion
468
144.666666667 413.5 moveto
470
208.333333333 452.5 275.0 440.0 0 Fgluon
471
243.666666667 449.25 moveto
475
208.333333333 452.5 275.0 490 0 Fgluon
476
235.666666667 474.25 moveto
480
141.666666667 452.5 208.333333333 452.5 0 Fgluon
483
141.666666667 452.5 75 490 Ffermion
484
110.333333333 474.25 moveto