MathGroup Archive 2009

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

Search the Archive

Re: Re: Advanced plotting


Inspired by Bill Rowe's code, I think we can do it like this.

The key point here is that the common Y axes is in a separated Inset object.

Plot[-3, {x, -0.5, 10}, PlotRange -> {-1.1, 1.1}, Axes -> None,
 AspectRatio -> Automatic,
 Epilog -> {Inset[
    Plot[-3, {x, 0, 10}, PlotRange -> {-1.1, 1.1},
     Axes -> {False, True}, Frame -> None,
     AspectRatio -> Automatic], {0, 0}, {0, 0}, 10],
   Inset[Plot[Sin[2 x], {x, 0, 4}, PlotRange -> {-1.1, 1.1},
     Axes -> {True, False}, Frame -> None,
     AspectRatio -> Automatic], {0, 0}, {0, 0}, 4],
   Inset[Plot[Cos[2 x], {x, 6, 10}, PlotRange -> {-1.1, 1.1},
     Axes -> {True, False}, Frame -> None,
     AspectRatio -> Automatic], {5.2, 0}, {6, 0}, 4],
   Inset[Style[Rotate["\[TildeTilde]", 90 Degree],
     FontSize -> 20], {4.6, 0}]}]

-- 
Li Zhengji
-------------------------------------------------------------
If all you have is a hammer, everything is a nail.
-------------------------------------------------------------


  • Prev by Date: Re: Creating a sign chart
  • Next by Date: Re: multiple plots
  • Previous by thread: Preserving Notebook Changes
  • Next by thread: Re: Advanced plotting