mathematica-组合图形

Graphics3D[{
  {Red, Sphere[{0, 0, 0}], Sphere[{4, 4, 4}]},
  {Blue, Cylinder[{{0, 0, 0}, {4, 4, 4}}, 0.2]},
  {Opacity@0.5, 
   InfinitePlane[{0, 0, 0}, {{1, 0, 0}, {1, Sqrt@2/2, Sqrt@2/2}}]}},
 ImageSize -> Medium, FaceGrids -> All
 ]

效果图