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:

size = 300;
Print[Graphics[{White, Rectangle[{0, 0}, {2*Pi, Pi/GoldenRatio}],
Inset[Plot[{Sin[x]}, {x, 0, 2 Pi}], {Pi/2, 1}, {Center,
Inset[
Plot[{Cos[2 t]}, {t, 0, 2 Pi}], {3*Pi/2, 1}, {Center,
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?
>
> Best regards,
> Haibo

```

• Prev by Date: Re: ReplacePart except first element?
• Next by Date: Re: How do you take apart a sequence?
• Previous by thread: Re: How to group the graph
• Next by thread: ReplacePart except first element?