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
