#graphics3d

[kalifissure]

Anyone have Mathematica?

(* Define the cardioid trajectory with renormalization correction *)

r[t_] := 1 - Cos[t] + 0.1/(t - Pi);

(*Tunable parameter for cusp sharpness*)

(* Convert to Cartesian coordinates *)

x[t_] := r[t] Cos[t];

y[t_] := r[t] Sin[t];

z[t_] := Sin[2 t]; (* Adds torsion for phase-space representation *)

(* Generate the 3D phase-space plot *)

phasePlot = ParametricPlot3D[

{x[t], y[t], z[t]}, {t, 0.1, 2 Pi - 0.1}, (* Avoiding singularity at t = Pi *)

PlotStyle -> {Thick, Blue},

AxesLabel -> {"x", "y", "z"},

Boxed -> False,

ViewPoint -> {1.5, -2.5, 1.2},

Mesh -> None];

(* Vector field to show trajectory flow *)

vectorField = Graphics3D[

Table[Arrow[{{x[t], y[t], z[t]}, {x[t] + 0.05 Cos[t], y[t] + 0.05 Sin[t], z[t] + 0.05}}],

{t, 0.1, 2 Pi - 0.1, Pi/12}]];

(* Display the combined plot *)

Show[phasePlot, vectorField]

[3d-and-2d-graphics]

Headphone visualization 3d model

[wolframtap]

m = Molecule["tetramethylammonium"]; Show[MoleculePlot3D[m], Graphics3D[{Opacity[0.3], Lookup[m["SymmetryElements"], "SymmetryPlane", Nothing]}]]

https://twitter.com/wolframtap/status/1635148267754225664

[wolframtap]

Block[{sp = Normalize /@ RandomReal[{1, -1}, {500, 3}]}, Graphics3D[{Line[sp, VertexNormals -> sp]}]]

https://twitter.com/wolframtap/status/1625573851387121665

[wolframtap]

r = 10; {m, l, t} = {Map, Line, Transpose}; a = Table[{x, y, z}, {x, -r, r, 4}, {y, -r, r, 4}, {z, -r, r, 4}]; b = m[Normalize[#] Abs[#[[1]]] &, a, {3}]; g = {Red, m[l, #, {2}], Green, m[l, t[#, 2<->3], {2}], Blue, m[l, t[#, 1<->3], {2}]} &; Graphics3D[{{Dashed, Thin, g@a}, {Thick, g@b}}, Axes -> True]

https://twitter.com/wolframtap/status/1600985691680374785

[wolframtap]

Show[Table[Graphics3D[{Opacity[0.25], RGBColor[0, 0, 0], Line[{10*{c, d, 0} + {a, b, 0}, 10*{a, b, 10} + {c, d, 10}}]}], {a, -4, 4}, {b, -4, 4}, {c, -4, 4}, {d, -4, 4}], ViewProjection -> "Orthographic", ViewPoint -> {100, 100, 0}]

https://twitter.com/wolframtap/status/1599883984569245719

[wolframtap]

Graphics3D[Sphere /@ (2 RandomInteger[5, {200, 3}])]

https://twitter.com/wolframtap/status/1539222732210053120

[wolframtap]

Table[Show[Graphics3D[HilbertCurve[n, 3]], ViewProjection -> "Orthographic", ViewPoint -> {1, 1, 1}, ImageSize -> 256], {n, 1, 6}]

https://twitter.com/wolframtap/status/1492293690815045634

[wolframtap]

Show[Table[Graphics3D[{RGBColor[(Sin[a^3 + b^3 + c^3] + 1)/2, (Cos[a^3 + b^3 + c^3] + 1)/2, Mod[a^3 + b^3 + c^3, Pi]/Pi], Sphere[{a, b, c}, 1/5]}], {a, -10, 10}, {b, -10, 10}, {c, -10, 10}]]

https://twitter.com/wolframtap/status/1484191163850571777

[wolframtap]

Graphics3D[{Array[c[{#1, #2, #3}, 0.9] &, {7, 4, 7}, {-3, 0, -3}] /. c[{(0) ..}, _] -> {} /. x_c :> CanonicalizePolyhedron[Cube @@ x] /. Polyhedron[pts_, g_] :> Polyhedron[(#1/Total[#1^2] &) /@ pts, g]}, Boxed -> False, PlotRange -> 0.5]

https://twitter.com/wolframtap/status/1422083836150702088

[wolframtap]

Table[Graphics3D[{RandomColor[], Specularity[1, 20], Table[Rotate[Translate[Rotate[Tube@{{0, 0, -1.5}, {0, 0, 2.5}}, tt, {1, 0, 0}], {1, 0, 0}], n \[Degree], {0, 0, 1}], {n, 0, 360, 12}]}, Boxed -> False, Axes -> False, ViewPoint -> {2, 0, 1}, PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}}], {tt, 10 \[Degree], 60 \[Degree], 15 \[Degree]}]

https://twitter.com/wolframtap/status/1420981361372979205

[wolframtap]

Show[Table[Graphics3D[{RGBColor[0.5 + m/500, 0.2 - m/500, 0.3 - m/800, 0.01], Cylinder[{{0, 0, Sin[m/200]}, {0, 0, Sin[m/200] + 0.01}}, Cos[m/200]]}], {m, -250, 250}]]

https://twitter.com/wolframtap/status/1253327962448879616

[wolframtap]

Show[Table[Table[Table[Graphics3D[Ellipsoid[{3 a, 3 b, 3 c}, {1 + Sin[a*c + b], 1 + Cos[a + c]/2, 1 + Cos[a + b*c]}]], {a, -5, 5}], {b, -5, 5}], {c, -5, 5}]]

https://twitter.com/wolframtap/status/1250416426244026369

[wolframtap]

Graphics3D[Tube[# &@Table[-t{Sin[t Pi],Cos[t Pi],t/6},{t,0,36Pi,.62}], VertexColors->RandomColor@183],ViewPoint->{0,0,Infinity}]

https://twitter.com/wolframtap/status/957067357222047744

[wolframtap]

Graphics3D[{RGBColor[#/5], Opacity[.8], Cuboid[#, # + .8]}&/@ Tuples[Table[Range[5], 3]]]

https://twitter.com/wolframtap/status/1131563479679291392

[wolframtap]

Graphics3D[Table[With[{w = {x, y, z}/10}, {XYZColor[w],Opacity[.65], Cuboid[w, w + .15]}], {z, 10}, {y, 10},{x, 10} ]]

https://twitter.com/wolframtap/status/1067724907793039360