Удаление десятичной точки в цифрах по оси z в MATHEMATICA?

Question

Я планирую 3d участок в MATHEMATICA с помощью plot3d. На оси z я получаю цифры как 2. * 10^5. Как избавиться от этой десятичной точки сразу после 2? Ниже приводится часть кода, я думаю, что нужно изменить что-то есть, но я не знаю, как точно (может быть где-то в тиках заявления):

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] 

Answer 1

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]