Tag Info

Hot answers tagged

20

Since you want the animation to have explanatory content, I thought it might be best to incorporate the explanatory 2D diagram into the 3D scene. So I imagine the 2D plot as a "sticker" that can be put onto the cylinder, like a label on a bottle. That way, you can see the explanatory diagram itself wrap around the cylinder and become identical to the ...


3

not quite what you asked for, but possibly useful: relationships = {1 <-> 2, 2 <-> 3, 2 <-> 4, 3 <-> 5, 2 <-> 6, 6 <-> 7, 4 <-> 8, 4 <-> 9}; numNodes = Max[relationships[[All, 2]]]; sizes = RandomReal[{0.25, 1}, numNodes]; xCoords = {0, 1, 2, 2, 3, 3, 4, 5, 5}; vars0 = Array[a, 9]; Manipulate[ vars = ...


2

One could modify the stylesheet to change the style "Quantity". The existing style "QuantityTF" seems similar to the old style. Style does not seem to work on Quantity, so I resorted to substituting it in the boxes. (The variable ds is set to the OP's dataset.) quantityForm[expr_] := CellPrint@ Cell[BoxData@ToBoxes[expr, StandardForm] /. ...


2

The main thing with the ListStreamPlot is that it needs a data in a form of list of {{x, y}, {vx, vy}} pairs. vx = Import["Re1000_c100_u.dat", "CSV"]; vy = Import["Re1000_c100_v.dat", "CSV"]; x = Table[j, {i, 0, Length[vx] - 1}, {j, 0, Length[vy] - 1}]; y = Table[i, {i, 0, Length[vx] - 1}, {j, 0, Length[vy] - 1}]; ListStreamPlot@MapThread[{{#1, #2}, ...


1

Show[ Graphics3D[Cylinder[{{0, 0, 0}, {0, 0, 12}}, 2/π]], ParametricPlot3D[ 2/π {Cos[θ], Sin[θ], 3 θ/4}, {θ, 0, 8 π} , PlotStyle -> Red]]



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