Get a 3D region plot of 3d-model for printing?

Questions
, ,
1

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.

2

Patrick,

You need parenthesis around expressions when you use &&. It takes priority over other operators.

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}]

Regards

3

Thank you! I knew it had to be something minor my eyes were missing. Thanks for the catch.

4

Apparently it was major…