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
>