公告:网站程序已升级到1.8.3,修复了提问时可能报错的问题,请清除浏览器缓存
2019-11-10

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
71 浏览

我想做一个这样的图形

这个图形的染色的位置暂时可以先不用在乎,因为这需要计算得到数据才可以,我只想知道这个颜色是如何应用的这个正方体上面的。

我自己暂时做成了这样

p1 = Graphics3D[
  Table[With[{p = {i, j, k}}, {Opacity[.9], Cuboid[p, p + 1]}], {i, 
    10}, {j, 10}, {k, 10}], ImageSize -> Large, Axes -> True]

我尝试利用plot3D画了一个图形,但是我发现这两个并不能合并到一起,请解决一下这个问题,谢谢。

用户: 落雨流觞 (936 分)

1个回答

0 投票

每个元素都可以控制颜色呀
 

p1 = Graphics3D[
  Table[With[{p = {i, j, k}}, {Opacity[.9], RandomColor[], 
     Cuboid[p, p + 1]}], {i, 10}, {j, 10}, {k, 10}], 
  ImageSize -> Large, Axes -> True]

用户: 野鹤 (4.8k 分)
...