MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • 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?