Best way to reproduce these graphics?

  • Mathematica
  • Thread starter andresB
  • Start date
  • #1
373
125
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
1,069
29
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
 

Related Threads on Best way to reproduce these graphics?

Replies
2
Views
19K
  • Last Post
Replies
6
Views
1K
  • Last Post
Replies
8
Views
3K
Replies
0
Views
1K
Replies
10
Views
3K
Replies
1
Views
3K
Replies
3
Views
3K
  • Last Post
Replies
1
Views
1K
Top