Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: A plot inside another plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70495] Re: A plot inside another plot
  • From: dimmechan at yahoo.com
  • Date: Wed, 18 Oct 2006 04:16:20 -0400 (EDT)
  • References: <eh210c$2om$1@smc.vnet.net>

Use Rectangle.

Plot[BesselJ[0, x], {x, 0, 20}, Frame -> {True, True, False, False},
Axes ->
    False, PlotRange -> {{-0.001, Automatic}, Automatic}, PlotStyle ->
Red,
    TextStyle -> {FontSize -> 13, FontFamily ->
    Times}, PlotLabel -> "A plot inside a plot
      " <> "\n------------", FrameLabel -> {"x",
TraditionalForm[BesselJ[0, \
x]]}, Epilog ->
    Rectangle[{4., 0.2}, {13., 1.1}, Plot[Cos[x], {x, 0, 20},
        Frame -> {True, True,
   False, False}, Axes ->
    False, PlotStyle -> Blue, PlotRange -> {{-0.001,
      Automatic}, Automatic}, TextStyle -> {FontSize -> 9, FontFamily
->
    Times}, FrameLabel -> {"x", TraditionalForm[Cos[
        x]]}, DisplayFunction -> Identity]], ImageSize -> 400]
(*plot to be displayed*)

See also

http://documents.wolfram.com/mathematica/functions/Rectangle

http://www.verbeia.com/mathematica/tips/HTMLLinks/GraphicsTricks_24.html

http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_thread/thread/ada59892513f9cf1/dd517b36bf85fb61?lnk=gst&q=plot+inside+another+plot&rnum=5#dd517b36bf85fb61

Regards
Dimitris


  • Prev by Date: Re: newton raphson plot
  • Next by Date: Re: save value in array during loop
  • Previous by thread: RE: A plot inside another plot
  • Next by thread: how about fixing the Messages command?