0

Writing:

Plot[x, {x, 0, 1}, AxesStyle -> Arrowheads[0.05]]

I get:

enter image description here

where the arrows indicate the positive direction of the horizontal and vertical translations.

Now I would also like to highlight the positive sense of the rotations in this plan as follows:

enter image description here

where the curved arrow would like it to look like the other two (this I traced quickly with Paint).

Any suggestions? Thank you!

πρόσεχε
  • 4,452
  • 1
  • 12
  • 28

1 Answers1

0

I think I've solved it. For example, like this:

Show[Plot[x, {x, 0, 1}, AxesStyle -> Arrowheads[.05]], 
     Graphics[{Arrowheads[.05], 
               Arrow[BezierCurve[{{.05, -.05}, {.05, .05}, {-.05, .05}}]]}], 
     PlotRange -> All]

enter image description here

Now, writing:

Show[Plot[x, {x, 0, 1}, AxesStyle -> Arrowheads[.05], LabelStyle -> White], 
     Graphics[{Arrowheads[.05], 
               Arrow[BezierCurve[{{.05, -.05}, {.05, .05}, {-.05, .05}}]]}], 
     PlotRange -> All]

I get:

enter image description here

which is already a good result. The top would get to this other result:

enter image description here

but for now I have not found a way.

πρόσεχε
  • 4,452
  • 1
  • 12
  • 28