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]
>
>
> ?
>
> Thanks in advance...
>
>
>