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/