Re: Plot inset?

*To*: mathgroup at smc.vnet.net*Subject*: [mg33718] [mg33718] Re: Plot inset?*From*: "Raf" <r_a_f at yahoo.it>*Date*: Tue, 9 Apr 2002 01:03:31 -0400 (EDT)*References*: <a8m2tm$oad$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hello Eric. Use "FullGraphics": In[1]:= p1 = Plot[Sin[1/x], {x, -6, 6}] In[2]:= p2 = Plot[Sin[1/x], {x, -1, 1}, Frame -> True] In[3]:= xScaleF = 3; yScaleF = 0.5; windowPos = {6, 2}; In[6]:= Show[p1, Graphics[ FullGraphics[p2][[1]] /. Text[a_, b_, c_] :> Text[a, b, Floor[c]] /. {x_Real, y_Real} :> ({x*xScaleF, y*yScaleF} + windowPos)]] Bye, Raf. "Eric Dennis" <edennis at princeton.edu> ha scritto nel messaggio news:a8m2tm$oad$1 at smc.vnet.net... > 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 >