MathGroup Archive 2001

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

Search the Archive

Re: How to make curved arrows?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg28755] Re: [mg28732] How to make curved arrows?
  • From: Tom De Vries <tdevries at shop.westworld.ca>
  • Date: Fri, 11 May 2001 20:00:33 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello!

In way to do this would be to use an arc or a sector of a circle to
represent the angle.  Here is a simple example....

Needs["Graphics`Colors`"]

pt = {Random[Integer, {-20, 20}], Random[Integer, {5, 20}]};

ang1 = ArcTan[pt[[1]] + 10, pt[[2]]];

ang2 = ArcTan[pt[[1]] - 10, pt[[2]]];

p = Show[Graphics[{Line[{{-10, 0}, {10, 0}, pt, {-10, 0}}], {Red,
          Disk[{-10, 0}, 2, {0, ang1}]}, {Blue,
          Disk[{10, 0}, 2, {ang2, \[Pi]}]}}], AspectRatio -> Automatic,
    PlotRange -> All];


Sincerely,

Tom De Vries

> From: Jose Capco <jcapco at mathematik.uni-ulm.de>
To: mathgroup at smc.vnet.net
> Organization: University of Ulm
> Date: Fri, 11 May 2001 03:38:48 -0400 (EDT)
> To: mathgroup at smc.vnet.net
> Subject: [mg28755] [mg28732] How to make curved arrows?
> 
> Dear NG,
> 
> I wish to draw a figure in Mathematica that involves indicating the angle of
> some triangle. I thought that the only way to do it is to make acurved arrow
> (I
> hope you know what I mean), please advise me on how I can do this. Thanks in
> advance
> 
> Sincerely,
> Jose Capco
> 
> 




  • Prev by Date: Re: How to remove, change the assymptotic lines?
  • Next by Date: Re: Win2000
  • Previous by thread: Re: How to make curved arrows?
  • Next by thread: Re: How to make curved arrows?