Re: How to make curved arrows?

*To*: mathgroup at smc.vnet.net*Subject*: [mg28789] Re: [mg28732] How to make curved arrows?*From*: Andrzej Kozlowski <andrzej at tuins.ac.jp>*Date*: Sat, 12 May 2001 20:18:22 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Sorry about that, a line somehow got lost in the code I sent earlier, I really do not know how. Anyway, the following is the same code with the missing line. I have separated it into individual steps to make it easier to see what is going on. (The missing line is Input[6] below). In[1]:= <<Graphics`Arrow` In[2]:= angle = Pi/4; pl = ParametricPlot[{Cos[t], Sin[t]}, {t, 0, angle}, AspectRatio -> Automatic, Axes -> False, DisplayFunction -> Identity]; In[3]:= P = {Cos[angle], Sin[angle]}; In[4]:= T = {-Sin[angle], Cos[angle]}; In[5]:= ar = Graphics[Arrow[P, P + 0.2*T, HeadLength -> 0.5]]; In[6]:= gr=Show[{pl,ar}]; In[7]:= rt =Rectangle[{0.5, 0.}, {1, 0.6},gr]; In[8]:= Show[Graphics[{Line[{{1, 1}, {0, 0}, {1, 0}}], rt}], DisplayFunction -> $DisplayFunction]; on 01.5.12 10:55 PM, Jose Capco at jcapco at mathematik.uni-ulm.de wrote: > 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/ >> >> > > -- Andrzej Kozlowski Toyama International University JAPAN http://platon.c.u-tokyo.ac.jp/andrzej/ http://sigma.tuins.ac.jp/~andrzej/