User Portlet User Portlet

Discussions
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/ffd50db7-fb70-4e7a-abde-a6c0ff66f187
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/aa289753-46cc-45c7-b9c3-a5df51f99838
(* Additional Data*)
(*Ticks->Automatic, GridLines->Automatic, moved -0.5 to -1*) Plot1 = Plot[{3, 0}, {x, 0, 1}, Filling -> {1 -> {2}}, FillingStyle -> {LightBlue}, Ticks->Automatic, GridLines ->Automatic, PlotRange -> {{-2, 11}, {-2,...
ClearAll["Global`*"] Manipulate[ tet = PolyhedronData["Tetrahedron", "GraphicsComplex"]; sc = ScalingTransform[ (* Upper and Lower limits of scale reduction *) RootReduce[ coeff ...
Documentation on https://reference.wolfram.com/language/ref/Animate.html shows examples Depends on what you want to do, following is one such snippet, Manipulate[ a=ParametricPlot3D[{(r + Cos[v]) Cos[u], (r + Cos[v]) Sin[u],...
How to remove complex part, ListPointPlot3D Works, {{3.52169\[VeryThinSpace]+1.34532*^-7 \[ImaginaryI],3.68579\[VeryThinSpace]-1.28543*^-7 \ ...