wolfram-mathematica - 想要一种简单快速的方法来延长 3D 绘图的刻度

Question

我知道有很多方法甚至一些好的包可用，但我发现这些方法对我来说大多太复杂了。

那么，让 3D 绘图(实际上，由 RegionPlot3D 生成的绘图)的刻度更长的简单快速方法是什么？

我不在乎代码效率。

谢谢! :)

Answer 1

您可以在刻度选项中控制刻度长度。例如。在这里，它们在一个方向上设置为 0.06:

ticks = {#, #, {0, 0.06}} & /@ (Range[11] - 6);

RegionPlot3D[x y z < 1, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
 PlotStyle -> Directive[Yellow, Opacity[0.5]], Mesh -> None,
 Ticks -> Table[ticks, {3}], AxesEdge -> {{-1, -1}, None, None}]