Re: How to make curved arrows?

• To: mathgroup at smc.vnet.net
• Subject: [mg28788] Re: [mg28732] How to make curved arrows?
• From: "Jose Capco" <jcapco at mathematik.uni-ulm.de>
• Date: Sat, 12 May 2001 20:18:21 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Thanks for your reply. I am sorry, but I am really new at Mathematica, and when I exactly copied what you produced (the example you made) I got this error message:
Show::gtype: Symbol is not a type of graphics.

Is there any wrong with the Mathematica I used or with what I copied?

Thanks again.
(I got 2 packages on this from two different people, but I also want to try what you made).

Sincerely,
Jose Capco

On Fri, 11 May 2001, Andrzej Kozlowski wrote:

> 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:
>
> --
> Andrzej Kozlowski
> Toyama International University
> JAPAN
>
> http://platon.c.u-tokyo.ac.jp/andrzej/
> http://sigma.tuins.ac.jp/~andrzej/
>
>

```

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