I want to obtain and work with a Platonic dodecahedron like this one:http://comsics.usm.my/tlyoon/teaching/ZCE111/1819SEM2/projects/Dodecahedron_platonic4.gifI dont have basic knowledge needed to do it. Can anyone can help me? Just the basics to get me started....Read more

I have the following graph:Due to opacity, my legend coloring is not matching my graphs and it might be confusing. Is there any remedy? I could not get the coloring what I wanted due to the opacity. It, indeed, hard to predict what I would get due to having multiple transparent surfaces on top of each other. I'm wondering if I can "randomly" assign "different" colors to the surfaces and run it many times so that I can eventually happen to like one combination.I have two less related questions. But since they can probably be done quickly and tri...Read more

Is there an easy way to draw an outline around a sphere? Is there something like EdgeForm[] that will work?I'm looking for perhaps a thick red line; I'm making a plot with many spheres of different colors and opacities, and I need a way of visually distinguishing the ones that are "in use" from the ones that are "inert"....Read more

I would like to animate the eigenoscillations of a sphere (Earth?).It's just simple to draw images one by one:SphericalPlot3D[{1 + 0.25*Re[SphericalHarmonicY[6, 3, th, phi]]}, {th, 0, Pi}, {phi, 0, 2 Pi}, PlotPoints -> {16, 32}] but how to change m and l arbitrary to see, how a sphere vibrate. I've made this years ago, but I forgot..Regards, Darko...Read more

I am interested in using Mathematica to create 3D text for printing. I stumbled upon this answer which works very well in a slightly modified form:text3D[text_String, mult_] := ListPlot3D[ ClusteringComponents[ ImageRotate@ImagePad[ImageReflect[ ImageCrop@First@ ColorSeparate@ Rasterize@ Graphics[{Text[Style[text, Bold, 60]]}], Left -> Right], 5, White]], Boxed -> False, Mesh -> False, Axes -> False, DataRange -> {{0, mult}, {0, mult}}]It seems to work well, except for one peculiar instanc...Read more

I am new to Mathematica, and I'm looking for a way to create patterns on the surface of 3D objects. One thing I have not been able to do is to create a hexagonal mesh on a torus. What I would like to have is a hexagonal mesh that has a certain thickness (so that it would be 3D-printable). So far, I have been able to create the torus itself. I am not sure of how to create the hexagonal pattern on the surface, and the process of mapping it onto the torus.ParametricPlot3D[{Cos[t] (3 + Cos[u]), Sin[t] (3 + Cos[u]), Sin[u]}, {t, 0, 2 Pi}, {u, 0, 2 ...Read more

dat1krafull = {{1.`, 2.61594`*^-8}, {10.`, 7.10017`*^-9}, {50.`, 2.1565*^-9}, {75., 1.6567*^-9}, {100., 1.37786*^-9}, {250., 7.500625*^-10}, {500., 4.754925*^-10}, {750., 3.612*^-10}, {1000., 2.94925`*^-10}}dat1kra = {{1.`, 2.8896`*^-10}, {10.`, 7.89039`*^-11}, {50.`, 2.403665`*^-11}, {75.`, 1.8478`*^-11}, {100.`, 1.53523`*^-11}, {250.`, 8.33675`*^-12}, {500.`, 5.24605`*^-12}, {750.`, 3.95007`*^-12}, {1000.`, 3.19502`*^-12}}pltkra2part = ListLogLogPlot[ dat1kra, PlotRange -> {{10^0, 10^3}, {10^-12, 10^-6}}, Ticks -...Read more

I have some complicated 3D plots that rendered fine in Mathematica 11. With Mathematica 12, however, objects are not drawn in the right order and objects that should be hidden appear in front. This can be seen in the following simplified example:Show[ Graphics3D[{FaceForm[Yellow], Polygon[{{-1, -1, 0}, {-1, 1, 0}, {1, 1, 0}, {1, -1, 0}}]}], Graphics3D[{Thick, Black, Line[{{-1, 0, -0.1}, {1, 0, -0.1}}]}], PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -> {1.6, -1.7, 2.45}, ViewVertical -> {-0.12, 0.13, 0.98} ]Since this may be m...Read more

I would like to create a Graphics3D entity consisting of a human eyeball and a complex figure defined elsewhere. (For a minimal working example, assume that the other object is a Sphere[].) I need to adjust (transform) the position of the eyeball (not of the other components).Creating the eyeball is straightforward:eyeball = Show[ Entity["AnatomicalStructure", "RightEyeball"]["Graphics3D"], ViewPoint -> {-1, -.6, 0}]I can put the eyeball and sphere in the same Graphics3D by:Show[eyeball, Graphics3D[Sphere[]]]Alas, they do not have the pr...Read more

In version 12, you can create a scene in Unity from Graphics3D objects like this:<< UnityLink`project = FileNameJoin[{$UnityLinkResourceDirectory, "ExampleData", "hello-world"}];UnityOpen[%]umaterial = CreateUnityMaterial["material", RandomColor[]]sphere = CreateUnityGameObject["sphere", Graphics3D[Sphere[]]]SetProperty[sphere, "SharedMaterial" -> umaterial]Now, I'd like to ray trace the scene - exporting it to a high quality image. But I can't see how. Is this not a fundamental feature of modern gaming engines?...Read more

I have these commandsj0=Q1>0&&Q2>0&&Q3>0&&Q1+3 Q2+2 Q3<1;j1=j0&&Q1^2+3 Q2 Q1+(3 Q2+Q3)^2<3 Q2+2 Q1 Q3;Choi=2 Q3+1<2 Q1+3 Q2;MUB=Q1>3 Q2+4 Q3;Show[RegionPlot3D[j1,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&MUB,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&Choi,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","S...Read more

From this code, how could I animate (speed given by the user) this cube at random so that each face shows me a different image.EDIT(The idea is that the cube rotates at random and shows different images on each face, it is understood now :( $Graphics3D[ GraphicsComplex[ Tuples[{0, 1}, 3], MapThread[ {Texture[ Graphics[ImportString[ExportString[#1, "PDF"], "PDF"][[1, 1]], Background -> #3]], Polygon[#2, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]} &,{Characters["ABCDEF"], {{1, 2, 4, 3}, {1, 5, 6, 2}, {1, 3, 7, 5...Read more

I have a function $F$ that maps the xyz space to a set of reals, more clearly:$c = F[x,y,z]$Where $c$,$x$,$y$ and $z$ are reals.What are the possible ways of visualizing this 3d function in Mathematica? (if possible, please post a how-to-do-it)...Read more

I want to work on subdivision surfaces. Unfortunately, I don’t have any source code to start with. I need some Mathematica codes for applying Catmull-Clark and Doo-Sabin methods. I would like to request anyone on this platform who have such codes to kindly share them with me. The codes I have from: http://hakenberg.de/subdivision/enclosed_volume.htm are giving the error code: Part::partd: Part specification DooSabinListAlt[[1]] is longer than depth of object.I will appreciate your help....Read more

For example, according to the doc, the Ball is a filled ball in 2D and 3D.However, Graphics3D[{Ball[]}, ClipPlanes -> InfinitePlane[{{0, 0, 0}, {0, 1, 1}, {1, 1, 2}}]]Shows a hollow ball, the same as SphereWhat is wrong? How to make the cut object solid, and even better, can set the opacity to it?updateWhat I actually want to do is to construct Wigner-Seitz cell by series of middle cutting planes. like this...Read more