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.
>

```

• Prev by Date: RE: keeping fractions from being simplified?
• Next by Date: Re: a Graphic in a Graphic
• Previous by thread: Re: a Graphic in a Graphic
• Next by thread: Re: a Graphic in a Graphic