Best way to reproduce these graphics?

  • Topic: Mathematica 
  • Thread starter Thread starter andresB
  • Start date Start date
  • Tags Tags
    Graphics
Join the discussion
Registration is free. Start your own thread to ask a follow-up.
2 replies · 2K views
andresB
Messages
627
Reaction score
375
I would like some advices to reproduce graphics like this. Particularly, I would like that each straight segment has an arrow in the middle.
244082
244083
 
Physics news on Phys.org
To put arrowheads within a line you might try drawing an arrow set back from the endpoints on top of the line. For example

Code:
ar[{p_,q_}]:=Arrow[{p,q},1/4 Norm[q-p]];
Graphics[{
ar[{{0,0},{2,0}}],ar[{{4/3,1},{1,1/8}}],ar[{{1/4,1/8},{1,1/2}}],
Line[{{0,0},{2,0},{2,1},{4/3,1},{1,1/8},{1/4,1/8},{1,1/2},{5/4,9/8},{2,9/8}}]
}]

Depending on how you use this you may have to adjust the amount the arrow is set back