Group Abstract Group Abstract

Message Boards Message Boards

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

Patrick Skerpon
Posted 9 years ago

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.
POSTED BY: Patrick Skerpon
3 Replies
Sort By:

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

Apparently it was major...
POSTED BY: Sander Huisman

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
POSTED BY: Neil Singer
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard