Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

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: [mg28758] Re: [mg28732] How to make curved arrows?
  • From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
  • Date: Fri, 11 May 2001 20:00:36 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I do not know if there exist any ready packages for thsi, but it is easy
enough to produce "manually", starting with the Graphics`Arrow` package.
Here is an example I just worked out, it is not very accurate as I chose the
numbers basically at random but it should give you an idea of the kind of
thing you can do:

In[15]:=
<< "Graphics`Arrow`"

In[107]:=
angle = Pi/4; pl = ParametricPlot[{Cos[t], Sin[t]},
    {t, 0, angle}, AspectRatio -> Automatic, Axes -> False,
    DisplayFunction -> Identity];
  P = {Cos[angle], Sin[angle]};
  T = {-Sin[angle], Cos[angle]};
  ar = Graphics[Arrow[P, P + 0.2*T, HeadLength -> 0.5]];
  rt = Rectangle[{0.5, 0.}, {1, 0.6}, gr];
  Show[Graphics[{Line[{{1, 1}, {0, 0}, {1, 0}}], rt}],
   DisplayFunction -> $DisplayFunction];

on 01.5.11 4:38 PM, Jose Capco at jcapco at mathematik.uni-ulm.de wrote:

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

-- 
Andrzej Kozlowski
Toyama International University
JAPAN

http://platon.c.u-tokyo.ac.jp/andrzej/
http://sigma.tuins.ac.jp/~andrzej/



  • Prev by Date: Re: Replacing Parts of a List
  • Next by Date: Re: Replacing Parts of a List
  • Previous by thread: Re: How to make curved arrows?
  • Next by thread: Re: How to make curved arrows?