Re: How to group the graph
- To: mathgroup at smc.vnet.net
- Subject: [mg102079] Re: How to group the graph
- From: Chris Degnen <degnen at cwgsy.net>
- Date: Wed, 29 Jul 2009 05:07:24 -0400 (EDT)
- References: <h4m4bj$ebq$1@smc.vnet.net>
Here's one way:
padding = 0.9;
size = 300;
Print[Graphics[{White, Rectangle[{0, 0}, {2*Pi, Pi/GoldenRatio}],
Inset[Plot[{Sin[x]}, {x, 0, 2 Pi}], {Pi/2, 1}, {Center,
Center}, {padding*2*Pi, padding*2}],
Inset[
Plot[{Cos[2 t]}, {t, 0, 2 Pi}], {3*Pi/2, 1}, {Center,
Center}, {padding*2*Pi, padding*2}]},
ImageSize -> {size*2, size/GoldenRatio},
PlotRange -> {{0, 2*Pi}, {0, Pi/GoldenRatio}}]]
On 28 July, 07:03, Haibo Min <haibo.... at gmail.com> wrote:
> Hello, everyone.
>
> I would like to group the graph like the command "subplot" in another system, but I didn't notice any similar function to implement it.
> For example,
> Plot[{Sin[x]}, {x, 0, 2 Pi}]
> Plot[{Cos[2 t]}, {t, 0, 2 Pi}]
> draw two graphs, if I want to put them one next another (in the same row),
> how to do that?
>
> Thanks in advance.
> Best regards,
> Haibo