2

How to draw a directed arc with an initial point $(x_i,y_i)$, a terminal point $(x_t,y_t)$, and another given, intermediate point $(x_m,y_m)$ on the arc (say in the middle of the arc)? For instance, we may have $(x_i,y_i)=(0,0)$, $(x_t,y_t)=(2,0)$, and $(x_m,y_m)=(1,1/3)$.

I have noticed the nice answers to a related problem. However, with my very limited proficiency in Mathematica, I do not see a good way to modify those answers to get what I need here. I can certainly draw an arc -- but how to attach an arrow to it nicely?

Iosif Pinelis
  • 823
  • 4
  • 12

1 Answers1

2

With the hint from HighPerformanceMark, the answer is simple. For instance,

Graphics[{Arrowheads[.06],Arrow[BezierCurve[{{0,0},{1,1},{2,0}}]]}]

yields

enter image description here

Iosif Pinelis
  • 823
  • 4
  • 12
  • But this is not a circle arc. Compare with pts = {{0, 0}, {1, 1/3}, {2, 0}}; Graphics[{Circumsphere[pts], Point[pts], Red, {Arrowheads[.06], Arrow[BezierCurve[{{0, 0}, {1, 1}, {2, 0}}]]}}] – cvgmt Jan 14 '22 at 15:08
  • @cvgmt : Thank you for your comment. Of course, you are right. However, I am as happy with the Besier version, if not more -- because Besier curves seem more elegant to me than circular arcs. – Iosif Pinelis Jan 14 '22 at 15:26