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: [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/



  • Prev by Date: Re: How to make curved arrows?
  • Next by Date: RE: i don't want intersection
  • Previous by thread: Re: How to make curved arrows?
  • Next by thread: Plot Resolution