-1

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?

creidhne
  • 5,055
  • 4
  • 20
  • 28
Quantum Fields
  • 11
  • 4
  • 2
    You should use Show to combine the plots and Export to export the result. Look to the documentation. – mattiav27 Dec 12 '20 at 16:44
  • Why don't you put periods or question marks at the end of sentences? This is how the intonation is conveyed in English. – yarchik Dec 12 '20 at 17:26
  • There are many similar questions here. You can look here https://reference.wolfram.com/language/howto/AlignPlotsWithEachOther.html or here https://mathematica.stackexchange.com/questions/4059/aligning-plot-axes-in-a-graphics-object. Other relevant commands are GraphicsGrid, GraphicsRow, GraphicsColumn. – yarchik Dec 12 '20 at 17:31
  • 1
    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. – Jagra Dec 12 '20 at 18:09
  • 1
    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. – Jagra Dec 12 '20 at 18:11
  • @Jagra I want to draw the following : Integrate[(x^2 - y^2)^(d - 3)/2 x^2 Exp[-x], {x, y, Infinity}] for d=1,10 and y={-10,10} – Quantum Fields Dec 12 '20 at 20:07
  • That integral diverges for d < 3. For the remaining values of d and y the integral is a constant, so there is nothing to plot. The question is still not clear. – Rohit Namjoshi Dec 12 '20 at 22:34

1 Answers1

1
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

Bob Hanlon
  • 157,611
  • 7
  • 77
  • 198