Plot 如何在Wolfram Mathematica中设置一个轴的绘图步骤

我有一个数据，比如点x，y，z的列表。我添加了样条插值，如下所示

f=Interpolation[{{[1；；2]]，{[3]}&/@data，方法->样条曲线]

毕竟我试着去策划

`Show[Plot3D[f[x, y], {x, 10000, 10000000}, {y, 10, 50}, Mesh -> 15, 
MeshFunctions -> {#3 &}, PlotRange -> {0, 0.0011}, 
PlotRangePadding -> {0.001, 0.0003}, PlotStyle -> Opacity[0.7], 
ColorFunction -> "Rainbow",
AxesStyle -> {Black, Black, Black}], 
Graphics3D[{Red, PointSize[.016], Point[data]}]]`

无法发布图像。 我使用以下数据：

data={10000,10,0.000000208191701}，{10000,20,0.000000416383402}，{10000,30,0.00000066886188}，{10000,40,0.000000832854501}，{10000,50,0.000001040870809}，{100000,10,0.000002081829313}，{100000,20,0.000004163483234}，{100000,30000,30.000006245400245}，{100000,40.00000 1040870809}，{100000,279550}，{1000000, 10, 0.000020818731618}, {1000000,20, 0.000041636761666}, {1000000, 30, 
0.000062455405588}, {1000000, 40, 0.00008327361103}, {1000000, 50,
0.000104092254952},{10000000, 10, 0.000208475750285}, {10000000,
20, 0.000416951237469}, {10000000, 30, 
0.000625426900044}, {10000000, 40, 0.000833902387228}, {10000000, 
50,0.001042377962108}

---

我有一个问题，如何通过设置其他绘图步骤在Z轴上绘制图形？

我已将纵横比更改为默认值，并添加了Z轴刻度值

您可以简单地使用

Ticks->{Automatic，Automatic，{0,0.0002,0.0004,0.0006,0.0008,0.001}

，但我添加了一些格式。

FindDivisions

对于不太简单的情况很有用

Show[Plot3D[f[x, y], {x, 10000, 10000000}, {y, 10, 50}, Mesh -> 15, 
  MeshFunctions -> {#3 &}, PlotRange -> {0, 0.0011}, 
  PlotRangePadding -> {0.001, 0.0003}, PlotStyle -> Opacity[0.7], 
  ColorFunction -> "Rainbow", AxesStyle -> {Black, Black, Black}, 
  Ticks -> {Automatic, Automatic,
    {#, NumberForm[#, {3, 4}]} & /@ N@FindDivisions[{0, 0.001}, 5]},
  AspectRatio -> 1, ImageSize -> 300], 
 Graphics3D[{Red, PointSize[.016], Point[data]}]]

编辑

添加子标记：-

Show[Plot3D[f[x, y], {x, 10000, 10000000}, {y, 10, 50}, Mesh -> 15, 
  MeshFunctions -> {#3 &}, PlotRange -> {0, 0.0011}, 
  PlotRangePadding -> {0.001, 0.0003}, PlotStyle -> Opacity[0.7], 
  ColorFunction -> "Rainbow", AxesStyle -> {Black, Black, Black}, 
  Ticks -> {Automatic, Automatic,
    DeleteCases[
     Flatten[{{#1, NumberForm[#1, {3, 4}]}, {#2, ""}, {#3, ""}, {#4, ""}} & @@@
       Partition[N@FindDivisions[{0, 0.001}, 20], 4, 4, {1, 1}, Null], 1],
     {Null, _}]},
  AspectRatio -> 1, ImageSize -> 300], 
 Graphics3D[{Red, PointSize[.016], Point[data]}]]

添加方框比率

Show[Plot3D[f[x, y], {x, 10000, 10000000}, {y, 10, 50}, Mesh -> 15,
  MeshFunctions -> {#3 &}, PlotRange -> {0, 0.0011},
  PlotRangePadding -> {0.001, 0.0003}, PlotStyle -> Opacity[0.7],
  ColorFunction -> "Rainbow", AxesStyle -> {Black, Black, Black},
  Ticks -> {Automatic, Automatic,
    DeleteCases[
     Flatten[{{#1, NumberForm[#1, {3, 4}]}, {#2, ""}, {#3, ""}, {#4, ""}} & @@@  
       Partition[N@FindDivisions[{0, 0.001}, 20], 4, 4, {1, 1}, Null], 1],
     {Null, _}]}, AspectRatio -> 1, ImageSize -> 1200],
 Graphics3D[{Red, PointSize[.016], Point[data]}], 
 BoxRatios -> {1, 1, 3},
 BaseStyle -> FontSize -> 36]

---

你能添加一些样本数据来处理吗？只要几个点就可以了。我在问题中添加了数据。非常感谢。它看起来更好，但我的意思是，我需要通过设置每一步的可视长度来拉取此字段。嗯..例如，在值0.0002、0.0004、0.0006（z轴）之间我需要更多的像素，它将拉动我的图形。@yavalas-我猜你的意思是添加子刻度。不，我猜，我需要在每个刻度之间增加更多像素（例如，在值0.0002、0.0004、0.0006之间）。之后，我的图形看起来会更大。@yavalas-也许你只需要增加图像大小，例如，

ImageSize->900

？不。无论如何，它看起来更好。谢谢。我需要拉一个z轴。