Message Boards Message Boards

Sphere in Tetrahedron Constraints

POSTED BY: Frank Kampas
6 Replies
Sort By:

why not using this?

reg = Tetrahedron[];
Graphics3D[{Opacity[.5], Insphere[reg], reg}]
POSTED BY: Mohammad Bahrami

The constraints can be used to pack multiple spheres in the tetrahedron.
POSTED BY: Frank Kampas

POSTED BY: Frank Kampas

enter image description here
POSTED BY: Frank Kampas

Frank, what is the main objective here? For example, a code like this also works, but I am not sure that is your objective:

reg = Tetrahedron[];
pnts = RandomPoint[reg, 10];
Graphics3D[{{Point[pnts]}, {Opacity[.5], reg, 
   MapThread[
    Sphere[#1, #2] &, {pnts, Abs@SignedRegionDistance[reg, pnts]}]}}]
POSTED BY: Mohammad Bahrami

The objective is to pack the spheres in the tetrahedron as tightly as possible without overlap
POSTED BY: Frank Kampas
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

Group Abstract Group Abstract