I am having trouble getting a 3d region plot to come out correctly. I can Plot3d the top:
Plot3D[ z = Sqrt[(103.74 - 1/3 Sqrt[3] Abs[x])^2 - y^2], {x, -97, 97}, {y, -104, 104}]
and it draws the top correctly. I an Plot the base:
RegionPlot[(1/3 Sqrt[3] Abs[x] - 103.74`) <= y <= (103.74 - 1/3
Sqrt[3] Abs[x]), {x, -97, 97}, {y, -104, 104}]
But when I try to RegionPlot3d it as:
RegionPlot3D[-96.3 <= x <= 96.3 && Sqrt[3]/3*Abs[x] - 103.74 <= y <=
103.74 - Sqrt[3]/3*Abs[x] && 0 <= z <= Sqrt[(103.74 - 1/3 Sqrt[3] Abs[x])^2 - y^2], {x, -97, 97}, {y, -104, 104}, {z, 0, 104}]
It just shows a box. What am I missing?
BTW this is for a 3d printed speaker project where students will need to design certain shapes/objects with a specific volume, and then we will construct the speakers inside of the shell we made.