-1
$\begingroup$

I want to add many plots from Mathematica into one picture and export as a PDF. Usually I select the plot and copy it as an image to Word, however the image reduces the accuracy of some plots.

How can I ask Mathematica to combine multiple plots to appear in one exported PDF?

Improve this question
$\endgroup$
7
  • 2
    $\begingroup$ You should use Show to combine the plots and Export to export the result. Look to the documentation. $\endgroup$ – mattiav27 Dec 12 '20 at 16:44
  • $\begingroup$ Why don't you put periods or question marks at the end of sentences? This is how the intonation is conveyed in English. $\endgroup$ – yarchik Dec 12 '20 at 17:26
  • $\begingroup$ There are many similar questions here. You can look here reference.wolfram.com/language/howto/… or here mathematica.stackexchange.com/questions/4059/…. Other relevant commands are GraphicsGrid, GraphicsRow, GraphicsColumn. $\endgroup$ – yarchik Dec 12 '20 at 17:31
  • 1
    $\begingroup$ I think we need additional information before suggesting any kind of answer. Show might give an answer, but so might creating a Grid of individual plots. Please supply an example of the output you want and any code that you have tried. $\endgroup$ – Jagra Dec 12 '20 at 18:09
  • 1
    $\begingroup$ To the community -- I suggest that we give the OP a chance to clarify his question before closing it. We just don't know what they want yet. $\endgroup$ – Jagra Dec 12 '20 at 18:11
1
$\begingroup$ 
f[d_, y_] = Assuming[Element[{d, y}, Reals],
  Integrate[(x^2 - y^2)^(d - 3)/2 x^2 Exp[-x], {x, y, Infinity}]]

enter image description here

LogPlot[Evaluate@Table[f[d, y], {d, 10, 3, -1}], {y, 0, 10},
 Frame -> True,
 FrameLabel -> (Style[#, 12, Bold] & /@ {"y", "f[d, y]"}),
 WorkingPrecision -> 20,
 PlotLegends -> (StringForm["d=``", #] & /@ Range[10, 3, -1])]

enter image description here

Improve this answer
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.