Message Boards Message Boards

0
|
7174 Views
|
4 Replies
|
3 Total Likes
View groups...
Share
Share this post:

How do you graph an arc with an arrow in the end ?

Posted 11 years ago
Graphics[Arrow[Circle[{0, 0}, 1, {Pi/4, 3 Pi/4}]]]
POSTED BY: Mariano Gonzalez
4 Replies
arcArrow := Module[{},

cList = Throw[ Thread[{ x,Sqrt[1-x^2] }/. x -> Table[i,{i,-1,1,0.0001}] (* End Thread *) ](* End Throw *)]
(* End Module *)];

Graphics[ Arrow[Catch[arcArrow[cList]]]]
POSTED BY: Isaac Abraham
Graphics[{Arrow[BezierCurve[{{0, 0}, {.1, 1.3}, {1.9, 1.3}, {2, 0}}]]}]
POSTED BY: Sam Carrettie
Many examples here  and here and here
POSTED BY: Nasser M. Abbasi
teta = 2 Pi/3;
r = 0.3;
arc = {Arrowheads[0.05],
   Arrow[Table[r*{Cos, Sin}, {phi, 0, teta, Pi/32}]]};
Graphics[{Line[{{r, 0}, r {Cos, Sin}}], arc,
  Circle[{0, 0}, r]}]
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract