4 added 2 characters in body edited May 7 '12 at 13:02 Yves Klett 13.5k33 gold badges4646 silver badges104104 bronze badges You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#min}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}},FrameStyle->Medium]  You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}},FrameStyle->Medium]  You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{min}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}},FrameStyle->Medium]  3 added 339 characters in body edited May 7 '12 at 12:47 Yves Klett 13.5k33 gold badges4646 silver badges104104 bronze badges You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}],FrameStyle->Medium]  You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}},FrameStyle->Medium]  2 added 339 characters in body edited May 7 '12 at 12:42 Yves Klett 13.5k33 gold badges4646 silver badges104104 bronze badges You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred parametrizationpresentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred parametrization of the given values. You can define your own function for FrameTicks : ticks[min_, max_] := {#, NumberForm[#, 20]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  Just choose your own preferred presentation format of the given values... ticks[min_, max_] := {#, Grid[{{#}, {"+"}, {# - min}}]} & /@ N[FindDivisions[{min, max}, 5]] ListPlot[{RandomReal[#] + 10^4, RandomReal[#]} & /@ (Range[100] 10^-10), Frame -> True, FrameTicks -> {{Automatic, None}, {ticks, None}}]  1 answered May 7 '12 at 12:37 Yves Klett 13.5k33 gold badges4646 silver badges104104 bronze badges