Skip to main content
Mathematica

Return to Answer

Improved formatting
Source Link
Michael E2
Michael E2
  • 244.7k
  • 18
  • 351
  • 774

Sorry for hackiness but here is a solution: Where res is the plot that you have created, you can post-process the automatic ticks....

Show[res, AbsoluteOptions[res, Ticks] /. {{a_Real, b_String /; b =!= "", c_List} :> {a, ScientificForm[a], c}, x_FormBox :> DisplayForm[x]}]

Show[res, 
 AbsoluteOptions[res, 
   Ticks] /. {{a_Real, b_String /; b =!= "", c_List} :> {a, 
     ScientificForm[a], c}, x_FormBox :> DisplayForm[x]}]

Sorry for hackiness but here is a solution: Where res is the plot that you have created, you can post-process the automatic ticks....

Show[res, AbsoluteOptions[res, Ticks] /. {{a_Real, b_String /; b =!= "", c_List} :> {a, ScientificForm[a], c}, x_FormBox :> DisplayForm[x]}]

Sorry for hackiness but here is a solution: Where res is the plot that you have created, you can post-process the automatic ticks....

Show[res, 
 AbsoluteOptions[res, 
   Ticks] /. {{a_Real, b_String /; b =!= "", c_List} :> {a, 
     ScientificForm[a], c}, x_FormBox :> DisplayForm[x]}]
Source Link
Jon McLoone
Jon McLoone
  • 491
  • 3
  • 4

Sorry for hackiness but here is a solution: Where res is the plot that you have created, you can post-process the automatic ticks....

Show[res, AbsoluteOptions[res, Ticks] /. {{a_Real, b_String /; b =!= "", c_List} :> {a, ScientificForm[a], c}, x_FormBox :> DisplayForm[x]}]