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