Axes numbers interfere with each other










1














I have a plot in Mathematica, and the problem is: the axes numbers of plot interfere with each other. How can I eliminate the middle numbers, For example, "5*10^12, 5*10^13, ..." and keep the main numbers "1*10^12, 1*10^13, ...". is there any other way to solve the problem?



Plot










share|improve this question




























    1














    I have a plot in Mathematica, and the problem is: the axes numbers of plot interfere with each other. How can I eliminate the middle numbers, For example, "5*10^12, 5*10^13, ..." and keep the main numbers "1*10^12, 1*10^13, ...". is there any other way to solve the problem?



    Plot










    share|improve this question


























      1












      1








      1







      I have a plot in Mathematica, and the problem is: the axes numbers of plot interfere with each other. How can I eliminate the middle numbers, For example, "5*10^12, 5*10^13, ..." and keep the main numbers "1*10^12, 1*10^13, ...". is there any other way to solve the problem?



      Plot










      share|improve this question















      I have a plot in Mathematica, and the problem is: the axes numbers of plot interfere with each other. How can I eliminate the middle numbers, For example, "5*10^12, 5*10^13, ..." and keep the main numbers "1*10^12, 1*10^13, ...". is there any other way to solve the problem?



      Plot







      plot wolfram-mathematica






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 13 '18 at 9:44







      Sina.t

















      asked Nov 13 '18 at 8:21









      Sina.tSina.t

      124




      124






















          2 Answers
          2






          active

          oldest

          votes


















          0














          Using a simple example, the ticks can be fixed like so. Referencing code from here and here.



          First, the case showing overlapping labels.



          f[x_] := x^2 + x^3

          min, max = 10^-12, 10^-10;

          LogLogPlot[f[x], x, min, max, Frame -> True,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here



          Removing alternate labels.



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
          Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[0, 0]]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer






















          • Exact answer! Thank you very much!
            – Sina.t
            Nov 21 '18 at 8:31


















          0














          Another option is to keep all the tick labels and rotate them:



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic, BaseStyle -> 18,
          FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer




















          • Thank you very much, It's a good suggestion:)
            – Sina.t
            Nov 21 '18 at 8:30










          Your Answer






          StackExchange.ifUsing("editor", function ()
          StackExchange.using("externalEditor", function ()
          StackExchange.using("snippets", function ()
          StackExchange.snippets.init();
          );
          );
          , "code-snippets");

          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "1"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );













          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53276663%2faxes-numbers-interfere-with-each-other%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          2 Answers
          2






          active

          oldest

          votes








          2 Answers
          2






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          0














          Using a simple example, the ticks can be fixed like so. Referencing code from here and here.



          First, the case showing overlapping labels.



          f[x_] := x^2 + x^3

          min, max = 10^-12, 10^-10;

          LogLogPlot[f[x], x, min, max, Frame -> True,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here



          Removing alternate labels.



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
          Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[0, 0]]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer






















          • Exact answer! Thank you very much!
            – Sina.t
            Nov 21 '18 at 8:31















          0














          Using a simple example, the ticks can be fixed like so. Referencing code from here and here.



          First, the case showing overlapping labels.



          f[x_] := x^2 + x^3

          min, max = 10^-12, 10^-10;

          LogLogPlot[f[x], x, min, max, Frame -> True,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here



          Removing alternate labels.



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
          Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[0, 0]]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer






















          • Exact answer! Thank you very much!
            – Sina.t
            Nov 21 '18 at 8:31













          0












          0








          0






          Using a simple example, the ticks can be fixed like so. Referencing code from here and here.



          First, the case showing overlapping labels.



          f[x_] := x^2 + x^3

          min, max = 10^-12, 10^-10;

          LogLogPlot[f[x], x, min, max, Frame -> True,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here



          Removing alternate labels.



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
          Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[0, 0]]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer














          Using a simple example, the ticks can be fixed like so. Referencing code from here and here.



          First, the case showing overlapping labels.



          f[x_] := x^2 + x^3

          min, max = 10^-12, 10^-10;

          LogLogPlot[f[x], x, min, max, Frame -> True,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here



          Removing alternate labels.



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
          Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[0, 0]]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic,
          BaseStyle -> 18, FrameLabel -> "X", "Y"]


          enter image description here







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 13 '18 at 14:32

























          answered Nov 13 '18 at 10:17









          Chris DegnenChris Degnen

          6,44221533




          6,44221533











          • Exact answer! Thank you very much!
            – Sina.t
            Nov 21 '18 at 8:31
















          • Exact answer! Thank you very much!
            – Sina.t
            Nov 21 '18 at 8:31















          Exact answer! Thank you very much!
          – Sina.t
          Nov 21 '18 at 8:31




          Exact answer! Thank you very much!
          – Sina.t
          Nov 21 '18 at 8:31













          0














          Another option is to keep all the tick labels and rotate them:



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic, BaseStyle -> 18,
          FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer




















          • Thank you very much, It's a good suggestion:)
            – Sina.t
            Nov 21 '18 at 8:30















          0














          Another option is to keep all the tick labels and rotate them:



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic, BaseStyle -> 18,
          FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer




















          • Thank you very much, It's a good suggestion:)
            – Sina.t
            Nov 21 '18 at 8:30













          0












          0








          0






          Another option is to keep all the tick labels and rotate them:



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic, BaseStyle -> 18,
          FrameLabel -> "X", "Y"]


          enter image description here






          share|improve this answer












          Another option is to keep all the tick labels and rotate them:



          xticks = Charting`ScaledTicks[Log, Exp][Log[min], Log[max]];
          xticks[[All, 1]] = Exp@xticks[[All, 1]];
          xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

          LogLogPlot[f[x], x, min, max, Frame -> True,
          FrameTicks -> Automatic, xticks, Automatic, BaseStyle -> 18,
          FrameLabel -> "X", "Y"]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 13 '18 at 19:46









          Rohit NamjoshiRohit Namjoshi

          31718




          31718











          • Thank you very much, It's a good suggestion:)
            – Sina.t
            Nov 21 '18 at 8:30
















          • Thank you very much, It's a good suggestion:)
            – Sina.t
            Nov 21 '18 at 8:30















          Thank you very much, It's a good suggestion:)
          – Sina.t
          Nov 21 '18 at 8:30




          Thank you very much, It's a good suggestion:)
          – Sina.t
          Nov 21 '18 at 8:30

















          draft saved

          draft discarded
















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          To learn more, see our tips on writing great answers.





          Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


          Please pay close attention to the following guidance:


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53276663%2faxes-numbers-interfere-with-each-other%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Top Tejano songwriter Luis Silva dead of heart attack at 64

          政党

          天津地下鉄3号線