Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Drawing a Line From One Plot to Another

• To: mathgroup at smc.vnet.net
• Subject: [mg127708] Re: Drawing a Line From One Plot to Another
• From: "Alexander Elkins" <alexander_elkins at hotmail.com>
• Date: Thu, 16 Aug 2012 01:56:16 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <k0d4b9$m8b$1@smc.vnet.net>

It is possible to do this using the Drawing Tools from the Graphics menu on
the output of GraphicsGrid.

Or use Get Coordinates from the context menu on the output of GraphicsGrid
and then go back and add an Epilog option to GraphicsGrid.
For example, based on Bob Hanlan's example:

y1[x_] = x^2;
y2[x_] = 2 x;
pts = {x, y1[x]} /. Solve[y1[x] == y2[x], x];
GraphicsGrid[{{Plot[Evaluate[Tooltip[y1[x]]], {x, -1, 3},
    Frame -> True, Axes -> False,
    Epilog -> {Text[#, #, {1, -2}] & /@ pts, Red,
      AbsolutePointSize[4], Point[pts]}]}, {Plot[
    Evaluate[Tooltip[y2[x]]], {x, -1, 3}, Frame -> True,
    Axes -> False,
    Epilog -> {Text[#, #, {-1, 2}] & /@ pts, Red,
      AbsolutePointSize[4], Point[pts]}]}},
 Epilog -> {Darker[Green], AbsoluteDashing[{10, 5}],
   Arrow[{{113.5, -208.4}, {117.8, -397.4}}],
   Arrow[{{272.1, -122.6}, {275.4, -299.6}}]}]

Hope this helps...

"Gregory Lypny" <gregory.lypny at videotron.ca> wrote in message
news:k0d4b9$m8b$1 at smc.vnet.net...
> Hello everyone,
>
> Say I have two plots, y=x^2 and y=2x, aligned vertically using
GraphicsColumn.  Their domains are aligned because x runs from -3 to +3 in
both.  I'd like to be able to draw a line from a point in the top graph to a
point in the bottom graph.  How can I do that?
>
> Regards,
>
> Gregory
>

• Follow-Ups:
  • Re: Drawing a Line From One Plot to Another
    • From: E. Martín-Serrano <eMartinSerrano@telefonica.net>