The gamma distribution

fig=Show[
Plot[PDF[GammaDistribution[134,1/7],x],{x,0,40},
PlotRange->{{0,40},{0,0.25}},
Prolog->{LightGray,Rectangle[{0,0},{40,0.25}]},
Frame->True,
FrameStyle->{{Thick},{Thick},{Thick},{Thick}},FrameTicks->{{{0,0},{10,10,{0.03,0}},{20,20,{0.03,0}},{30,30,{0.03,0}},{40,40}},{{0,0},{0.05,0.05,{0.03,0}},{0.1,0.1,{0.03,0}},{0.15,0.15,{0.03,0}},{0.2,0.2,{0.03,0}},{0.25,0.25,{0.03,0}}},{{0,"",{0.03,0}},{10,"",{0.03,0}},{20,"",{0.03,0}},{30,"",{0.03,0}},{40,"",{0.03,0}}},{{0,"",{0.03,0}},{0.05,"",{0.03,0}},{0.1,"",{0.03,0}},{0.15,"",{0.03,0}},{0.2,"",{0.03,0}},{0.25,"",{0.03,0}}}},
FrameTicksStyle->24,
PlotStyle->{Thickness[0.007]},
PlotLabel->Style["The gamma distribution",24],FrameLabel->{Style["x",24],Style["pdf(p|n,k)",24]}],
Graphics[{
Text[Style["n = 7",24],{30.5,0.2}],Text[Style["(∑_(i=1)^7)(Subscript[k, i]) = 133",24],{30,0.15}]}],
ImageSize->72 7]
Export["/Users/ihn/Documents/Teaching/VP-Leitung/DataAnalysis/2013NewProgram/SoftwareVariants/Mathematica/gamma_Mathematica.pdf",fig]