# How to get smoother curves when plotting with mathematica 8.0?

Using the following line of code, I am trying to plot a few curves side-by-side. However, it turns out that the output curves are not that smooth as seen from the ups and downs (oscillating pattern) of the curves. (This is more pronounced in PDF format which I couldn't upload into this website but I am using it for LaTeX). I am wondering if there is any way to make the plots smoother even after turning them into pdf files. Here is the PNG format of the plot: logSigmaG5[M_] := 0.56*(M - 12) + 2.62;
yfunc[M_] := 10^(12 - M);
sigma[M_] := (16.9*(yfunc[M])^0.41)/(1 + 1.102*(yfunc[M])^0.20 + 6.22*(yfunc[M])^0.333);
xfunc[M_] := 1.686/sigma[M];
func[M_] := 0.322*Sqrt[(2*0.707)/\[Pi]]*(1 + (0.707*(xfunc[M])^2)^-0.3)*xfunc[M]*Exp[-((0.707*(xfunc[M])^2)/2)];
CumulativeG5[M_?NumericQ] := 1301.98*(0.7)^2*10^-6*NIntegrate[10^logSigmaG5[x]*func1[x]*Log, {x, M, \[Infinity]}];
func3[M_?NumericQ] := -Derivative[CumulativeG5][M] // N;
a = Interval[0.08 + 0.05 {-1, 9/5}]; b = Interval[0.042 + 0.015 {-1, 1}]; q = Interval[0.026 + 0.003 {-1, 1}]; d = Interval[10 + 1 {-1, 1}];
LogPlot[{Min[a], Max[a], Min[q], Max[q], func1[M], 0.0333564095*10^-6.*func3[M]}, {M, 10.25, 12.95},
PlotRange -> {10^-3, 10^6.5},
PlotStyle -> {Green, Green, Orange, Orange, Black, Cyan, Thick},
Frame -> True,
FrameTicksStyle -> Directive[FontSize -> 30],
PlotLegend -> {Style["Orange", 20], Style["Orange", 20], Style["Green", 20], Style["Green", 20],Style["Black", 20], Style["Cyan", 20]}


I have included the functional form of two of the functions $func1$ and $func3$. I noticed that this is more pronounced when you actually make the plot in mathematica notebook larger than its usual size and in the PDF format.