Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

5
  • $\begingroup$ Addition of "AxesStyle -> {Directive[{Arrowheads[{{-0.03, 0(Xleft), {Graphics[{Polygon[{{-1, 0.5}, {0, 0}, {-1, -0.5}}]}], 0.98}}, {0.03, 1(*Xright*), {Graphics[{Polygon[{{-1, 0.5}, {0, 0}, {-1, -0.5}}]}], 0.98}}}]}], Directive[{Arrowheads[{{-0.03, 0(Ydown), {Graphics[{Polygon[{{-1, 0.5}, {0, 0}, {-1, -0.5}}]}], 0.98}}, {0.03, 1(*Yup*), {Graphics[{Polygon[{{-1, 0.5}, {0, 0}, {-1, -0.5}}]}], 0.98}}}]}]}" will make it pefect! Thank you all $\endgroup$ Commented Jan 29, 2012 at 19:40
  • $\begingroup$ @R.M I've tried that but then the labels for +Q don't have a + sign in front of them. $\endgroup$ Commented Jan 29, 2012 at 19:52
  • $\begingroup$ @BhaskarDey I'm glad you figured out the triangles at the end of the axes yourself. I've added a new version to my answer. $\endgroup$ Commented Jan 29, 2012 at 19:58
  • $\begingroup$ Alternatively for the Ticks: Ticks -> Function[{xmin, xmax}, Table[{i, StringForm[Switch[Sign[i], 1, "+", -1, "-"] <> If[Abs[i] != 1, "`1`", ""] <> "Q", Abs[i]], {.02, .02}}, {i, Floor[xmin], Ceiling[xmax]}]] $\endgroup$ Commented Jan 30, 2012 at 1:21
  • $\begingroup$ @J.M. Thanks, as shown in the picture tick lebels appear on different sides of the Y-axis. Can this flexibility be attained too? $\endgroup$ Commented Jan 30, 2012 at 1:29