Best way to reproduce these graphics?

  • Mathematica
  • Thread starter andresB
  • Start date
  • #1
andresB
595
342
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
 

Answers and Replies

  • #3
Bill Simpson
1,074
32
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
 

Suggested for: Best way to reproduce these graphics?

Replies
0
Views
817
Replies
0
Views
2K
  • Last Post
Replies
6
Views
1K
Replies
0
Views
1K
  • Last Post
Replies
1
Views
1K
Replies
3
Views
1K
Replies
10
Views
1K
Replies
3
Views
729
  • Last Post
Replies
7
Views
1K
  • Last Post
Replies
0
Views
643
Top