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

RE: How to display one plot as an inset in another plot?

• To: mathgroup at smc.vnet.net
• Subject: [mg35409] RE: [mg35334] How to display one plot as an inset in another plot?
• From: "John C. Erb, Ph.D." <John_C_Erb at prodigy.net>
• Date: Thu, 11 Jul 2002 05:24:17 -0400 (EDT)
• Reply-to: <John_C_Erb at prodigy.net>
• Sender: owner-wri-mathgroup at wolfram.com

One could use the Rectangle function.  An example of this
is given in Section 5.2 (pages 114-116) of the book Applied Mathematica,
Getting
It Started Getting It Done, by Shaw and Tigg.

An example:

Plot1=Plot[Sin[x],{x,0,2Pi}];
Plot2=Plot[2x^2+5x, {x,0,2Pi}];
Show[Graphics[{Rectangle[{0,0},{1,1},Plot1],
        Rectangle[{0.55,0.45},{0.95,0.9},Plot2]}]];

John C. Erb
email: John_C_Erb at prodigy.net

-----Original Message-----
From: AES [mailto:siegman at stanford.edu]
To: mathgroup at smc.vnet.net
Subject: [mg35409] [mg35334] How to display one plot as an inset in another plot?


How to display one (complete) plot as an inset (maybe scaled, certainly
offset) within (or on top of) another plot?

Kind of a

    Show[ plot1, {Scaled[0.5], Offset[{2,2}], plot2} ]

capability.