Otdfbt

Should these notes be played as a chord or one after another?

When do you stop "pushing" a book?

How to pronounce "r" after a "g"?

Why in a Ethernet LAN, a packet sniffer can obtain all packets sent over the LAN?

Can you book a one-way ticket to the UK on a visa?

How did Thanos not realise this had happened at the end of Endgame?

Is there a faster way to calculate Abs[z]^2 numerically?

Why does the Earth follow an elliptical trajectory rather than a parabolic one?

Does Lawful Interception of 4G / the proposed 5G provide a back door for hackers as well?

51% attack - apparently very easy? refering to CZ's "rollback btc chain" - How to make sure such corruptible scenario can never happen so easily?

We are two immediate neighbors who forged our own powers to form concatenated relationship. Who are we?

On studying Computer Science vs. Software Engineering to become a proficient coder

Control variables and other independent variables

Is there enough time to Planar Bind a creature conjured by a 1-hour-duration spell?

What can cause a never-frozen indoor copper drain pipe to crack?

about the word 地図

Why can't RGB or bicolour LEDs produce a decent yellow?

Set a camera to free fall like a Rigid Body?

Is the schwa sound consistent?

Remove everything except csv file Bash Script

Understanding basic photoresistor circuit

Is a vertical stabiliser needed for straight line flight in a glider?

Are there variations of the regular runtimes of the Big-O-Notation?

Why do unstable nuclei form?

Fill points into a pre-rotated convex Dodecahedron

How can I fill an entire Building with transparent points?Efficient drawing of convex polyhedron given a set of pointsHow to split compound polygons into convex polygons?Area of a convex polygon with a set of pointsHow to draw a 3D convex hull of a set of points with stylingSmooth convex hull of a large data set of 3D pointsFinding the equation for the upper frontier of the convex hull of a 2 dimensional set of pointsFitting a rotated ellipse to data pointsConvexHullMesh sometimes excludes valid points from convex hullGenerating a convex hull with the hull boundary points labeled

2

$begingroup$

I am trying to fill a rotated convex polyhedron with points. This functions well in the unrotated case:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts,Apply@PolyhedronData["Dodecahedron","RegionFunction"]];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

Now, I would like to do the same but with a previously rotated polyhedron as it can be displayed with:

Graphics3D[
 GeometricTransformation[PolyhedronData["Dodecahedron", 
 "GraphicsComplex"], RotationMatrix[-36 Degree, 0, 0, 1]], 
 Axes -> True, AxesLabel -> "x", "y", "z", 
 Ticks -> -2, 2, -2, 2, -2, 2]

So far, I have tried using GeometricTransformation and Rotate on PolyhedronData["Cuboctahedron"], which didn't work out.

graphics3d regions computational-geometry polyhedra

share|improve this question

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

$endgroup$

add a comment | 

2

$begingroup$

I am trying to fill a rotated convex polyhedron with points. This functions well in the unrotated case:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts,Apply@PolyhedronData["Dodecahedron","RegionFunction"]];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

Now, I would like to do the same but with a previously rotated polyhedron as it can be displayed with:

Graphics3D[
 GeometricTransformation[PolyhedronData["Dodecahedron", 
 "GraphicsComplex"], RotationMatrix[-36 Degree, 0, 0, 1]], 
 Axes -> True, AxesLabel -> "x", "y", "z", 
 Ticks -> -2, 2, -2, 2, -2, 2]

So far, I have tried using GeometricTransformation and Rotate on PolyhedronData["Cuboctahedron"], which didn't work out.

graphics3d regions computational-geometry polyhedra

share|improve this question

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

$endgroup$

add a comment | 

$begingroup$

I am trying to fill a rotated convex polyhedron with points. This functions well in the unrotated case:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts,Apply@PolyhedronData["Dodecahedron","RegionFunction"]];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

Now, I would like to do the same but with a previously rotated polyhedron as it can be displayed with:

Graphics3D[
 GeometricTransformation[PolyhedronData["Dodecahedron", 
 "GraphicsComplex"], RotationMatrix[-36 Degree, 0, 0, 1]], 
 Axes -> True, AxesLabel -> "x", "y", "z", 
 Ticks -> -2, 2, -2, 2, -2, 2]

So far, I have tried using GeometricTransformation and Rotate on PolyhedronData["Cuboctahedron"], which didn't work out.

graphics3d regions computational-geometry polyhedra

share|improve this question

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

$endgroup$

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts,Apply@PolyhedronData["Dodecahedron","RegionFunction"]];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

Graphics3D[
 GeometricTransformation[PolyhedronData["Dodecahedron", 
 "GraphicsComplex"], RotationMatrix[-36 Degree, 0, 0, 1]], 
 Axes -> True, AxesLabel -> "x", "y", "z", 
 Ticks -> -2, 2, -2, 2, -2, 2]

share|improve this question

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

share|improve this question

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

edited May 1 at 16:58

Carl Woll

78.2k3102206

edited May 1 at 16:58

Carl Woll

78.2k3102206

asked May 1 at 15:29

Jeff71Jeff71

253

asked May 1 at 15:29

Jeff71Jeff71

253

2 Answers
2

active

oldest

votes

5

$begingroup$

If you use a BoundaryMeshRegion, you can transform the region, and then create a RegionMemberFunction from it.

mesh = PolyhedronData["Dodecahedron", "BoundaryMeshRegion"];
transform = TransformedRegion[mesh, RotationTransform[-36 Degree, 0, 0, 1]];
rmf = RegionMember[transform];

Then, use rmf in your Select:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts, rmf];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

It is also possible to use RandomPoint to get random points in the dodecahedron:

Graphics3D[Sphere[RandomPoint[transform, 10000],.1]]

share|improve this answer

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

$endgroup$

add a comment | 

1

$begingroup$

Here's another approach:

reg = Dodecahedron[-36 Degree, 0];
RegionImage[reg, Quiet @ RegionBounds[reg]]

share|improve this answer

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

$endgroup$

add a comment | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197447%2ffill-points-into-a-pre-rotated-convex-dodecahedron%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

5

$begingroup$

If you use a BoundaryMeshRegion, you can transform the region, and then create a RegionMemberFunction from it.

mesh = PolyhedronData["Dodecahedron", "BoundaryMeshRegion"];
transform = TransformedRegion[mesh, RotationTransform[-36 Degree, 0, 0, 1]];
rmf = RegionMember[transform];

Then, use rmf in your Select:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts, rmf];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

It is also possible to use RandomPoint to get random points in the dodecahedron:

Graphics3D[Sphere[RandomPoint[transform, 10000],.1]]

share|improve this answer

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

$endgroup$

add a comment | 

5

$begingroup$

If you use a BoundaryMeshRegion, you can transform the region, and then create a RegionMemberFunction from it.

mesh = PolyhedronData["Dodecahedron", "BoundaryMeshRegion"];
transform = TransformedRegion[mesh, RotationTransform[-36 Degree, 0, 0, 1]];
rmf = RegionMember[transform];

Then, use rmf in your Select:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts, rmf];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

It is also possible to use RandomPoint to get random points in the dodecahedron:

Graphics3D[Sphere[RandomPoint[transform, 10000],.1]]

share|improve this answer

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

$endgroup$

add a comment | 

$begingroup$

If you use a BoundaryMeshRegion, you can transform the region, and then create a RegionMemberFunction from it.

mesh = PolyhedronData["Dodecahedron", "BoundaryMeshRegion"];
transform = TransformedRegion[mesh, RotationTransform[-36 Degree, 0, 0, 1]];
rmf = RegionMember[transform];

Then, use rmf in your Select:

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts, rmf];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

It is also possible to use RandomPoint to get random points in the dodecahedron:

Graphics3D[Sphere[RandomPoint[transform, 10000],.1]]

share|improve this answer

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

$endgroup$

mesh = PolyhedronData["Dodecahedron", "BoundaryMeshRegion"];
transform = TransformedRegion[mesh, RotationTransform[-36 Degree, 0, 0, 1]];
rmf = RegionMember[transform];

pts = Flatten[Table[x, y, z, x, -2, 2, 0.1, y, -2, 2, 0.1, z, -2, 2, 0.1], 2];
inside = Select[pts, rmf];
Graphics3D[Sphere[inside, 0.1], Axes -> True, AxesLabel -> "x", "y", "z", Ticks -> -2, 2, -2, 2, -2, 2]

Graphics3D[Sphere[RandomPoint[transform, 10000],.1]]

share|improve this answer

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

answered May 1 at 15:54

Carl WollCarl Woll

78.2k3102206

1

$begingroup$

Here's another approach:

reg = Dodecahedron[-36 Degree, 0];
RegionImage[reg, Quiet @ RegionBounds[reg]]

share|improve this answer

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

$endgroup$

add a comment | 

1

$begingroup$

Here's another approach:

reg = Dodecahedron[-36 Degree, 0];
RegionImage[reg, Quiet @ RegionBounds[reg]]

share|improve this answer

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

$endgroup$

add a comment | 

$begingroup$

Here's another approach:

reg = Dodecahedron[-36 Degree, 0];
RegionImage[reg, Quiet @ RegionBounds[reg]]

share|improve this answer

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

$endgroup$

reg = Dodecahedron[-36 Degree, 0];
RegionImage[reg, Quiet @ RegionBounds[reg]]

share|improve this answer

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996

answered May 1 at 17:25

Chip HurstChip Hurst

24k15996