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