Graphics3D中的"3D网格"

500*_*500 3 grid wolfram-mathematica graphics3d

请考虑 :

cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,0}, {1, 0, 0}}};

Graphics3D[{Line /@ cAxes}, Boxed -> False]
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

盒子里面有网格吗?我想"3D网格"

Mr.*_*ard 8

这是我认为Verbeia正在尝试的重新设计的版本:

cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0, 
     0}, {1, 0, 0}}};

a = Graphics3D[{Line /@ cAxes}, Boxed -> False];

b = Graphics3D[{
      GrayLevel[0.5],
      Table[Line /@ {{{x, y, 0}, {x, y, 1}},
                     {{x, 0, y}, {x, 1, y}},
                     {{0, x, y}, {1, x, y}}},
        {x, 0, 1, 0.25},
        {y, 0, 1, 0.25}
      ]
    }];

Show[a, b]
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

  • 如果你使用像'Scaled [{x,y,0}]`那样的坐标,你会获得适用于任何绘图范围的网格线.(当然他们可能不会与轴对齐.) (3认同)