- #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.
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}}]
}]