MathGroup Archive 2000

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

Search the Archive

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