title: Removing the decimal point in numbers in z-axis in MATHEMATICA?
body: <p>I am plotting a 3d plot in MATHEMATICA using plot3d . On the z-axis, I am getting numbers
  like 2.*10^5. How to get rid of this decimal point just after 2?
   Below is the part of the code, I think I need to change something there, but I don't know how exactly (maybe somewhere in ticks statement):</p>
  
  <pre><code>ticks[min_, max_, n_] := Transpose[Function[z, {z, Function[x,
         ScientificForm[N@x]] /@ z}]@FindDivisions[{min, max}, n]]
  
  m = 50;
  n = 5;
  
  po = Plot3D[{x^2 + y^2, -x^2 - y^2}, {x, -m, m}, {y, -m, m}, 
    Boxed -&gt; False, Ticks -&gt; {Automatic, Automatic, ticks[#1, #2, n] &amp;},
     ColorFunction -&gt; "LightTemperatureMap", 
    AxesLabel -&gt; {Style[\[Xi], Bold, Black], 
      Style[\[Tau], Bold, Black]}, LabelStyle -&gt; {Black, Bold, 14}, 
    PlotLabel -&gt; Style["(d)", Bold, 24], PlotRange -&gt; All, Mesh -&gt; None]
  </code></pre>