Mathematica Best way to reproduce these graphics?

  • Thread starter andresB
  • Start date
213
33
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
 
1,062
25
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
 

Want to reply to this thread?

"Best way to reproduce these graphics?" You must log in or register to reply here.

Physics Forums Values

We Value Quality
• Topics based on mainstream science
• Proper English grammar and spelling
We Value Civility
• Positive and compassionate attitudes
• Patience while debating
We Value Productivity
• Disciplined to remain on-topic
• Recognition of own weaknesses
• Solo and co-op problem solving
Top