9

all the molecules have the same orientation at any time, and I think I see why Because at each timestep you are are computing only a single angle and using it to rotate every molecule. In this approach I use NestList to accumulate a list of TransformationFunction objects. The key here is that Composition[TransformationFunction[..], TransformationFunction[......


5

lp = ListPlot[data, PlotStyle -> ColorData[97] /@ {4, 1, 2}, Frame -> True] We can define a function that transforms the graphics primitives of lp to the desired 3D primitives and use these primitives with Graphics3D: ClearAll[translations] translations[levels : {__} : {1}, dir : "X" | "Y" | "Z" : "X", h_: (0 ...


5

You could duplicate the points with values assigned on a third axis. For example using row values {1,2,3,4,5,6}: rows = Range[6]; data2 = Table[PadLeft[lst, {Length[lst], 3}, r], {r, rows}, {lst, data}]; ListPointPlot3D[Flatten[data2, 1], PlotStyle -> {Red, Lighter@Blue, Orange}]


4

data = {{{70, -3.28540334263527}, {71, -3.27432278919873}, {72, \ -3.26369368174397}, {73, -3.25350695026436}, {74, -3.24375348226142}, \ {75, -3.23442415473233}, {76, -3.22550986251597}, {77, \ -3.21700154312006}, {78, -3.20889019829817}, {79, -3.20116691256438}, \ {80, -3.19382286878205}, {81, -3.18684936107068}, {82, \ -3.18023780506416}, {83, -3....


3

Manually crafting the 3d data is a good approach and may be acceptable. Another approach is to use the ListLinePlots themselves as textures for 3d polygons: dat=yourlist&/@Range@6; Show@@Join[ {Plot3D[0,{x,1,6},{y,0,1}, PlotRange->{{1,6},{0,1},{0,1}},RegionFunction->False, Ticks->Automatic,Lighting->{{"Ambient",White}},...


3

Clear["Global`*"] I recommend that in plot1 use the option AxesEdge to keep the axes up front; add the option ImageSize to each plot; and use Grid rather than GraphicsGrid. plot1 = Plot3D[Sin[x/100 + y^2], {x, -300, 300}, {y, -2, 2}, ColorFunction -> "RedBlueTones", Boxed -> False, LabelStyle -> {FontSize -> 13, ...


2

Clear["Global`*"] SphericalHarmonicY[1, 0 , θ, Φ] is real for real {θ, Φ} FunctionDomain[ SphericalHarmonicY[1, 0, θ, Φ], {θ, Φ}] (* True *) The min and max values are {min, max} = #[{Re@SphericalHarmonicY[1, 0, θ, Φ], 0 <= θ <= Pi, 0 <= Φ <= 2 Pi}, {θ, Φ}] & /@ {MinValue, MaxValue} (* {-(Sqrt[(3/π)]/2), Sqrt[3/...


2

Is this what you want? ... Graphics3D[{ {Texture[pablo1], Polygon[First@coords, VertexTextureCoordinates -> vtc]}, {Dynamic[Texture[clock], UpdateInterval -> 1], Polygon[Rest@coords, VertexTextureCoordinates -> Table[vtc, {5}]] }}, Lighting -> "Neutral", Boxed -> False ] ...


2

R,G,B values should be between 0 and 1. MMA will simply clip you values. E.g, the first voxel {1.5,1,1} will be clipped to {1,1,1} and therefore displayed as "white", what makes it invisible on a white background. test = {{{{1.5, 1, 1}, {-1.5, 0, 0}, {1.5, 0, 0}, {-1.5, 0, 0}}, {{1.5, 1, 1}, {-1.5, 0, 0}, {1.5, 0, 0}, {-1.5, 0, 0}}}}; ...


2

I sort of figured this out just as I was about to post, but thought I'd share in case anyone else has the same problem, since I couldn't find it on SE. However, I haven't figured it out completely, and I'd love a more comprehensive answer. One issue is that it's not an honest polyhedron: in the second argument, some of the polygonal faces are specified e.g. ...


1

Putting together some hints from @b3m2a1 and @thorimur, this works great (although not quite as automated as RegionPlot3D): simplex3 = Tetrahedron[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]; Graphics3D[{ {Opacity[0.5], ColorData[97, 1], RegionIntersection[simplex3, Prism[{{0, 0, 0}, {1, a12/ρ12, 0}, {1, a12 ρ12, 0}, {0, 0, 1}, {1, a12/ρ12, 1}, {...


Only top voted, non community-wiki answers of a minimum length are eligible