Why is this RevolutionPlot3D empty in the middle around x = 0.5 like this?
RevolutionPlot3D[Min[x^2, x^2 - 2 x + 1], {x, 0, 1},
RevolutionAxis -> "X", BoxRatios -> {1, 1, 1}]
Why is this RevolutionPlot3D empty in the middle around x = 0.5 like this?
RevolutionPlot3D[Min[x^2, x^2 - 2 x + 1], {x, 0, 1},
RevolutionAxis -> "X", BoxRatios -> {1, 1, 1}]
Original answer
RevolutionPlot3D[Min[x^2, x^2 - 2 x + 1], {x, 0, 1},
RevolutionAxis -> "X", BoxRatios -> {1, 1, 1}, Exclusions -> None]
Edit: many thanks to @Bob Hanlon for suggesting the use of MaxRecursion
RevolutionPlot3D[Min[x^2, x^2 - 2 x + 1], {x, 0, 1},
RevolutionAxis -> "X", BoxRatios -> {1, 1, 1}, Exclusions -> None,
MaxRecursion -> 6]
rgn = ImplicitRegion[(y^2 + z^2 <= x^4 && 0 <= x <= 1/2) || (y^2 + z^2 <= (x^2 - 2 x + 1)^2 && 1/2 < x <= 1), {x, y, z}]; Then Volume[rgn] evaluates to Pi/80
– Bob Hanlon
Apr 14 '22 at 00:28
ImplicitRegion[ z^2 + y^2 <= Min[x^2, x^2 - 2 x + 1]^2 && 0 <= x <= 1, {x, y, z}]
– hana
Apr 14 '22 at 01:05
Volume is well-defined. Great suggestions by both!!!
– bmf
Apr 14 '22 at 01:11