Description
This is in relation to this question. I am trying to derive this conical figure yet I seem to get an error with this code. I would be happy if someone could point out how to solve this problem
Code
Module[
{
R1 = Cuboid[{0, 0, 0}, {5, 5, 5}],
R2 = Cone[{{0, 0, 0}, {5, 5, 5}}, 3]
},
Show[{
Graphics3D[{Opacity@0.05, R2}],
RegionPlot3D[R1, PlotStyle -> Directive[White, Opacity@0.3]],
RegionPlot3D[
DiscretizeRegion[RegionIntersection[R2, R1], PrecisionGoal -> 10]
]
},
Boxed -> False]
]
Error
Skeleton is not a graphics directive
Skeleton is not Graphics3D primitive or directive
DiscretizeRegion
was unable to discretize the regionRegionIntersection
System
Windows 10 x 64
Mathematica 10.3
DiscretizeRegion
but it hasn't been updated since v10.2 $\endgroup$ – e.doroskevic Nov 21 '16 at 11:26SystemInformation[]
$\endgroup$ – Jose Enrique Calderon Nov 21 '16 at 13:44