Return to Answer

deleted 26 characters in body

Source Link

edited Jan 18, 2015 at 20:28

42.3k
3
37
106

myFigs = Table[
   Plot[Sin[iTable[Plot[Sin[i x], {x, -2, 2}], 
   {i, 6}];
myTables = 
  Table[Grid[
    RandomInteger[20, {RandomInteger[10], RandomInteger[10]}], 
    Frame -> All],
   {6}];
FinalFig = GraphicsGrid[Partition[Union[myFigs, myTables], 3]];
Export[".../Desktop/FinalFig.pdf", FinalFig, "PDF"];

myFigs = Table[
   Plot[Sin[i x], {x, -2, 2}], 
   {i, 6}];
myTables = 
  Table[Grid[
    RandomInteger[20, {RandomInteger[10], RandomInteger[10]}], 
    Frame -> All],
   {6}];
FinalFig = GraphicsGrid[Partition[Union[myFigs, myTables], 3]];
Export[".../Desktop/FinalFig.pdf", FinalFig, "PDF"];

myFigs = Table[Plot[Sin[i x], {x, -2, 2}], {i, 6}];
myTables = 
  Table[Grid[
    RandomInteger[20, {RandomInteger[10], RandomInteger[10]}], 
    Frame -> All], {6}];
FinalFig = GraphicsGrid[Partition[Union[myFigs, myTables], 3]];
Export[".../Desktop/FinalFig.pdf", FinalFig, "PDF"];

Source Link

created Jan 18, 2015 at 20:23

David G. Stork

42.3k
3
37
106

myFigs = Table[
   Plot[Sin[i x], {x, -2, 2}], 
   {i, 6}];
myTables = 
  Table[Grid[
    RandomInteger[20, {RandomInteger[10], RandomInteger[10]}], 
    Frame -> All],
   {6}];
FinalFig = GraphicsGrid[Partition[Union[myFigs, myTables], 3]];
Export[".../Desktop/FinalFig.pdf", FinalFig, "PDF"];