Re: graphics on the same line

• To: mathgroup at smc.vnet.net
• Subject: [mg31385] Re: graphics on the same line
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Wed, 31 Oct 2001 19:59:05 -0500 (EST)
• References: <9rodj9\$pt7\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Some ideas - please look up in Help Browser.

Make two graphics
gr1=Plot[Sin[x],{x,0,7}];
gr2=Plot[Cos[x],{x,0,7}];

1. GraphicsArray

Show[GraphicsArray[{gr1,gr2}]];

2. Rectangle

rect1 = Rectangle[{0,0},{1, .4}, gr1];
rect2 = Rectangle[{1.2,0},{2.2,.4}, gr2];

Show[Graphics[{rect1, rect2}], AspectRatio\[Rule]Automatic];

3: copy and paste:
click on the picture for gr1 and copy. This can be pasted into most places
(and the picture adjusted by clicking and dragging).
For example, make a grid (Control+ , horizontally, Control + Return,
verticall) and paste pictures into blanks.

4. Method 3. can be programmed by getting the Mathematica Postscript strings
for the pictures using
ds =DisplayString[gr1]
and then using notebook programming techniques like
CellPrint[Cell[
TextData["A text cell with pictures: ",
Cell[GraphicsData["PostScript", ds], "Graphics"]]]]
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"cosmicstring" <cosmicstring at yahoo.com> wrote in message
news:9rodj9\$pt7\$1 at smc.vnet.net...
> Is there any way to see more than one graphics on the same output line
like
>
> [graph1]                [graph2]              [graph3]
>
>
> ?
>