Graphics3D中的球体样式和网格间距

Question

请考虑 ：

colors = {Red, Green, Blue};
style = {Thickness[.01], Thickness[.01], Thickness[.01]};
cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0, 
 0}, {1, 0, 0}}};

Graphics3D[{{#1, #2, Line@#3} & @@@ Transpose@{colors, style, cAxes}, 
Blue, Specularity[White, 3], Sphere[{.5, .5, .5}, .1]}, 
Boxed -> False, FaceGrids -> All, 
FaceGridsStyle -> Directive[Black, Dashed]]

使用Yoda的解决方案如何设计线条

我怎样才能使用GrayLevel为球体着色 （稍后我将对其进行操作）。

我怎么能拥有更密集的FaceGrids ？ 水平和垂直10条线。 我也不明白为什么边缘彼此相距遥远。

Answer 1

将图形对象及其样式分组在列表中总是很好的做法，以防您需要快速添加另一个具有不同样式的对象。 我的意思是把它写成{Blue, Specularity[White, 3], Sphere[{.5, .5, .5}, .1]} 。 现在，您可以在Sphere之前轻松添加GrayLevel术语，它将起作用。

对于FaceGrids ，我相信你必须为每张脸以所需的间距手动定义线条。 这是一个展示如何为一张脸做的例子。

Graphics3D[{{#1, #2, Line@#3} & @@@ 
   Transpose@{colors, style, cAxes}, {Blue, GrayLevel[0.3], Lighting -> "Neutral",
   Specularity[White, 3], Sphere[{.5, .5, .5}, .1]}}, Boxed -> False, 
 FaceGrids -> {{{0, 0, 1}, 
    Transpose@({#, #} & /@ Range[0, 1, 0.1])}}, 
 FaceGridsStyle -> Directive[Black, Dashed]]

对于相应的平面，面定义为±1 ，另外两个面为零。 所以我的例子中的{0,0,1}对应于z=1平面。

提供给FaceGrids的列表可以很容易地为每个面部计算，而不是手动输入它们， 但我会留给你:)

编辑：

由于您需要四周均匀的网格，因此请定义绘制网格线的位置

gridList = Transpose@({#, #} & /@ Range[0, 1, 0.1]);

然后，对FaceGrids使用以下FaceGrids ：

FaceGrids -> Join @@ Table[{RotateLeft[j {0, 0, 1}, i], gridList}, 
    {i, {0, 1, 2}}, {j, {-1, 1}}]

以下是PlotRangePadding -> None ：

Answer 2

除了尤达的回应：

• Lighting -> "Neutral"将允许灰度对象显示为灰色而不是各种颜色。

• PlotRangePadding -> None将删除网格线上的空格（取决于PlotRange的设置。）

Answer 3

Yoda打败我打字FaceGrids设置（见文档 ）。 但这是另一种选择。

您可以尝试设置FrameTicks ，而不是显式设置FaceGrids设置，因为默认情况下FaceGrids遵循这些设置，然后使用Opacity将FrameTicks设置为不可见。