Re: a Graphic in a Graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg22339] Re: [mg22307] a Graphic in a Graphic
- From: BobHanlon at aol.com
- Date: Fri, 25 Feb 2000 21:13:30 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In an Epilog or Prolog, use a Rectangle which is filled with the graphic. For
example,
red = RGBColor[1, 0, 0];
f[x_] := Sin[4*x]*BesselJ[0, x];
x1 = .75; x2 = .85; xmax = 1.25; y1 = -.15; y2 = .1;
smallPlot =
Plot[f[x], {x, x1, x2}, PlotRange -> {{x1, x2}, {y1, y2}},
PlotStyle -> red, AspectRatio -> 1.75/xmax,
DisplayFunction -> Identity];
largePlot =
Plot[f[x], {x, 0, xmax}, PlotStyle -> RGBColor[0, 0, 1],
Epilog -> {red,
Line[{{x1, y1}, {x1, y2}, {x2, y2}, {x2, y1}, {x1, y1}}],
Rectangle[{x2, y2}, {xmax, 1.}, smallPlot]},
ImageSize -> {580, 360}];
Bob Hanlon
In a message dated 2/24/2000 4:23:29 AM, andre at aflo4.ifw-dresden.de writes:
>I'm running Mathematica 4.0 and want to create
>a graphic into a graphic, but all I did up to day
>doesn't work very well.
>If I have a graphic object (e.g. a MultipleListPlot)
>I want to put a small Plot into this Graphics
>like one can do this with Legends or Text:
>
>Show[Graphics{MultipleListPlot[...],Text["...",{xPos.yPos}]};
>
>instead of Text[] at xPos, yPos I want to put
>a small Plot[...,{}, ImageSize-> {xSize,ySize}];
>in this Graphic.
>