MathGroup Archive 2002

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

Search the Archive

Re: Plot inset?

Hello Eric.
Use "FullGraphics":

p1 = Plot[Sin[1/x], {x, -6, 6}]

p2 = Plot[Sin[1/x], {x, -1, 1}, Frame -> True]

xScaleF = 3;
yScaleF = 0.5;
windowPos = {6, 2};

Show[p1, Graphics[
    FullGraphics[p2][[1]] /.
        Text[a_, b_, c_] :> Text[a, b, Floor[c]] /. {x_Real,
          y_Real} :> ({x*xScaleF, y*yScaleF} + windowPos)]]


"Eric Dennis" <edennis at> ha scritto nel messaggio
news:a8m2tm$oad$1 at
> Is it possible to display a plot as a small inset
> in a larger plot? Couldn't find any reference to
> this in the help browser, but it seems like
> something that should be doable. Maybe there's
> just some kind of "superpose graphics" option(?).
> Thanks,
> Eric

  • Prev by Date: Re: help!! Clueless on how to proceed...
  • Next by Date: Re: needs, get, <<
  • Previous by thread: RE: Plot inset?
  • Next by thread: [Q]: huge number, ciphers after decimal point?