3d 在MATHEMATICA中删除z轴上数字的小数点？

我正在使用plot3d在MATHEMATICA中绘制3d绘图。在z轴上，我得到了数字 比如2.*10^5。如何去掉2之后的小数点？ 下面是代码的一部分，我想我需要在那里更改一些内容，但我不知道具体如何更改（可能在语句的某个地方）：

已经问了一个问题，答案是：--请在那里问你未来的Mathematica问题。

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 -> False, Ticks -> {Automatic, Automatic, ticks[#1, #2, n] &},
   ColorFunction -> "LightTemperatureMap", 
  AxesLabel -> {Style[\[Xi], Bold, Black], 
    Style[\[Tau], Bold, Black]}, LabelStyle -> {Black, Bold, 14}, 
  PlotLabel -> Style["(d)", Bold, 24], PlotRange -> All, Mesh -> None]

ticks[min_, max_, n_] := Transpose[Function[z, {z, Function[x,
       ScientificForm[N@x /. (0. -> 0), 
        NumberPoint -> If[IntegerQ[x] &&
           Union[Rest@IntegerDigits@x] == {0}, "", "."]]] /@ 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 -> False, Ticks -> {Automatic, Automatic, ticks[#1, #2, n] &},
   ColorFunction -> "LightTemperatureMap", 
  AxesLabel -> {Style[\[Xi], Bold, Black], 
    Style[\[Tau], Bold, Black]}, LabelStyle -> {Black, Bold, 14}, 
  PlotLabel -> Style["(d)", Bold, 24], PlotRange -> All, Mesh -> None]