Message Boards Message Boards

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

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

Mariano Gonzalez
Posted 11 years ago
Graphics[Arrow[Circle[{0, 0}, 1, {Pi/4, 3 Pi/4}]]]
POSTED BY: Mariano Gonzalez
4 Replies
Sort By:
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
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]}]
POSTED BY: Jorge Silva Azevedo
Many examples here  and here and here
POSTED BY: Nasser M. Abbasi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract