New answers tagged

1

You can use construct a BSplineFunction using input data: SeedRandom[1] pts = RandomReal[1, {10, 3}]; bsf = BSplineFunction[pts, "SplineDegree" -> 1]; You can use bsf with ParametricPlot3D in several ways: (1) Use a piecewise ColorFunction: Animate[ParametricPlot3D[bsf[t], {t, 0, 1}, PlotStyle -> Thick, ColorFunction -> (If[#4 <= m, ...


0

Let's generate some points: pts = {1, 1, #} & /@ Range[0, 1, 0.01]; Now we can utilize MapIndexed: Graphics3D[MapIndexed[{ColorData["SunsetColors"][First@#2/Length[pts]], Point@#1} &, pts], Axes -> True] And Animation: Animate[Graphics3D[MapIndexed[{ColorData["SunsetColors"][First@#2/Length[pts]], Point@#1} &, pts[[1 ;; t]]], ...


1

First an alternative, more streamlined, way to construct outer: tbl = Transpose[{cVal + cVal #, sVal + sVal #}] & /@ solVals; outer2 = ListLinePlot[#, AspectRatio -> Full, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}] & /@ tbl; outer2 == outer True baseplot = ListLinePlot[Transpose[{cVal, sVal}], PlotStyle -> Red]; ListAnimate[Show[...


2

I am not sure I understand what is the aim. I post this as motivation. Apologies for errors and misunderstanding. Manipulate andDynamicModule are useful for dynamic/interactive exploration. Locator can allow you to explore different z. Slider2D can also be useful. Here is an example: Manipulate[ Module[{r = Norm[pt]^(1/n), pts}, pts = Table[ r {...


7

Animate[ListLinePlot[T2, Epilog -> {PointSize[Large], Red, Point @ T2[[t]]}], {t, 1, Length @ T2, 1}] Alternatively, Animate[ListLinePlot[T2, Mesh -> {{t}}, MeshFunctions -> {# &}, MeshStyle -> Directive[PointSize[Large], Red]], {t, T2[[All, 1]]}] same picture


3

There are many ways to do this. But here is a quick attempt to get you started T2 = {{1, 0.0112401}, {2, 0.022343}, {3, 0.0263601}, {4, 0.0362769}, {5, 0.0487026}, {6, 0.0443083}, {7, 0.0568229}, {8, 0.0678723}}; Animate[Grid[ { {Row[{"point ", i, " = ", T2[[i]]}]}, {Graphics[{PointSize[.04], Point[ T2[[i]]]}, Frame -> True, ...


7

ImageAlign should probably be at least part of the solution: img = Import["https://i.stack.imgur.com/pc6ul.png"]; {xdim, ydim} = ImageDimensions[img]; images = Flatten@ImagePartition[img, {xdim/4, ydim/4}]; aligned = ImageAlign[images]; ListAnimate[aligned] Here is an attempt to make it more robust and to prevent it from clipping parts of the figure off at ...


3

The Method suboption "BookmarkDurationMultiplier" (default value is 1.5) seems promising to play with to change the speed of bookmarks animation: Given Manipulate`Dump`$DefaultAutorunDuration 4 I would guess that changing the default value of 1.5 to 5 should give 20 seconds duration for the bookmark animation. Row[Labeled[Manipulate[x, {x, 0, 1}, ...


Top 50 recent answers are included