Skip to main content
Mathematica

Return to Answer

add magnify
Source Link
Nasser
Nasser
  • 150.5k
  • 12
  • 161
  • 374

I am still confused about this question. I am posting this just to understand better what is wrong again with using GraphicsGridGraphicsGrid or Magnify as was suggested above? Here is just an example. Why this does not work? It is also easy to use ItemSizeItemSize to control the size of each entry in the GraphicsGridGraphicsGrid if needed.

SetDirectory[NotebookDirectory[]];
Manipulate[
 s = GraphicsGrid[
   Table[ListPlot[RandomReal[{0,Which[method 1},== 10]"GraphicsGrid",
    GraphicsGrid[tbl, JoinedFrame -> TrueAll,
     ImageSizeSpacings -> 100
     ], {3}.5, {3.5}], FrameImageSize -> Alln], 
 Spacings -> {.5method == "Magnify", .5}Magnify[Grid[tbl, ImageSizeFrame -> All], n/500]
   ],
 
 {{n, 300, "how big?"}, 200, 1000, 10, Appearance -> "Labeled"},
 {{method, "GraphicsGrid"}, {"Magnify", "GraphicsGrid"}},
 Button["Export to PDF", Export["s.pdf", s]],
 Initialization :>
  (
   tbl = Table[ListPlot[RandomReal[{0, 1}, 10],Joined->True,ImageSize->100], {3}, {3}]
   )
 ]

Mathematica graphicsMathematica graphics

I am still confused about this question. I am posting this just to understand better what is wrong again with using GraphicsGrid as was suggested above? Here is just an example. Why this does not work? It is also easy to use ItemSize to control the size of each entry in the GraphicsGrid if needed.

SetDirectory[NotebookDirectory[]];
Manipulate[
 s = GraphicsGrid[
   Table[ListPlot[RandomReal[{0, 1}, 10],
     Joined -> True,
     ImageSize -> 100
     ], {3}, {3}], Frame -> All, Spacings -> {.5, .5}, ImageSize -> n
   ],
 {{n, 300, "how big?"}, 200, 1000, 10},
 Button["Export to PDF", Export["s.pdf", s]]
 ]

Mathematica graphics

I am still confused about this question. I am posting this just to understand better what is wrong again with using GraphicsGrid or Magnify as was suggested above? Here is just an example. Why this does not work? It is also easy to use ItemSize to control the size of each entry in the GraphicsGrid if needed.

SetDirectory[NotebookDirectory[]];
Manipulate[
 s = Which[method == "GraphicsGrid",
   GraphicsGrid[tbl, Frame -> All, Spacings -> {.5, .5},ImageSize -> n], 
   method == "Magnify", Magnify[Grid[tbl, Frame -> All], n/500]
   ],
 
 {{n, 300, "how big?"}, 200, 1000, 10, Appearance -> "Labeled"},
 {{method, "GraphicsGrid"}, {"Magnify", "GraphicsGrid"}},
 Button["Export to PDF", Export["s.pdf", s]],
 Initialization :>
  (
   tbl = Table[ListPlot[RandomReal[{0, 1}, 10],Joined->True,ImageSize->100], {3}, {3}]
   )
 ]

Mathematica graphics

added 130 characters in body
Source Link
Nasser
Nasser
  • 150.5k
  • 12
  • 161
  • 374

Just seeing ifI am still confused about this is what you meant, if not will deletequestion. I am posting this just to understand better what is wrong again with using GraphicsGrid as was suggested above? Here is just an example. Why this does not work? It is also easy to use ItemSize to control the size of each entry in the GraphicsGrid if needed.

SetDirectory[NotebookDirectory[]];
Manipulate[
 s = Framed[GraphicsGrid[
  Labeled[Grid[Table[ListPlot[RandomReal[ Table[ListPlot[RandomReal[{0, 1}, 10],
     Joined -> True, 
      ImageSize -> 100]100
     ], {3}, {3}], Frame -> All, 
    Spacings -> {.5, .5}], "my figure"], ImageSize -> n
   ],
 {330{n, 300, "how big?"}], 200, 1000, 10},
 Button["Export to PDF", Export["s.pdf", s]s]]
 ]

Mathematica graphics

pdf:

Mathematica graphicsMathematica graphics

Just seeing if this is what you meant, if not will delete...

SetDirectory[NotebookDirectory[]];
s = Framed[
  Labeled[Grid[Table[ListPlot[RandomReal[{0, 1}, 10], Joined -> True, 
      ImageSize -> 100], {3}, {3}], Frame -> All, 
    Spacings -> {.5, .5}], "my figure"], ImageSize -> {330, 300}]
Export["s.pdf", s]

Mathematica graphics

pdf:

Mathematica graphics

I am still confused about this question. I am posting this just to understand better what is wrong again with using GraphicsGrid as was suggested above? Here is just an example. Why this does not work? It is also easy to use ItemSize to control the size of each entry in the GraphicsGrid if needed.

SetDirectory[NotebookDirectory[]];
Manipulate[
 s = GraphicsGrid[
   Table[ListPlot[RandomReal[{0, 1}, 10],
     Joined -> True,
     ImageSize -> 100
     ], {3}, {3}], Frame -> All, Spacings -> {.5, .5}, ImageSize -> n
   ],
 {{n, 300, "how big?"}, 200, 1000, 10},
 Button["Export to PDF", Export["s.pdf", s]]
 ]

Mathematica graphics

Post Undeleted by Nasser
Post Deleted by Nasser
Source Link
Nasser
Nasser
  • 150.5k
  • 12
  • 161
  • 374

Just seeing if this is what you meant, if not will delete...

SetDirectory[NotebookDirectory[]];
s = Framed[
  Labeled[Grid[Table[ListPlot[RandomReal[{0, 1}, 10], Joined -> True, 
      ImageSize -> 100], {3}, {3}], Frame -> All, 
    Spacings -> {.5, .5}], "my figure"], ImageSize -> {330, 300}]
Export["s.pdf", s]

Mathematica graphics

pdf:

Mathematica graphics