想要一个简单快速的方法来制作3D绘图的刻度更长

Question

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

那么，什么是一个简单快速的方法来制作3D图的刻度（实际上，RegionPlot3D生成的图）更长？

我不关心代码效率。

谢谢！ ：）

Answer 1

您可以在Ticks选项中控制刻度线长度。例如。在这里，它们在一个方向上设置为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}]

Answer 2

您可以使用Ticks的功能。此特定功能来自Ticks documentation，（点击“推广和扩展”。）

ticks[min_, max_] :=  Table[If[EvenQ[i], {i, i, .06, Red}, {i, i, .02, Blue}], 
     {i, Ceiling[min], Floor[max], 1}]

Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, Ticks -> ticks]

您可以使用它的变体来区分主要和次要刻度（例如，整数值和十分之一。此函数也直接来自documentation（在应用程序下）。

ticks[min_, max_] := 
 Join[Table[{i, Style[i, 12], {.04, 0}}, {i, Ceiling[min], 
    Floor[max]}], 
  Table[{j + .5, , {.02, 0}}, {j, Round[min], Round[max - 1], 1}]]

Answer 3

抱歉，我无法抗拒：

tick = Import["http://www.salamatvet.com/images/tick-1.jpg"]; 
Plot[ Sin[x], {x, 0, 10}, Method -> {"AxesInFront" -> False},
        Ticks -> {Table[{i, Labeled[i, Image[tick, ImageSize -> 30]]},
                       {i, 2, 10, 2}]}]

刻度线是刻度线，是刻度线......

感谢Alexey提出的AxesInFront建议。