       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[] + 10, pt[]];

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

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
>
> 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?