Tag Info

New answers tagged

2

Perhaps this is your aim: tsv = ImportString["0,000000000E0 1,237909063E1 3,333333333E-2 1,237909063E1 6,666666667E-2 1,237909063E1 1,000000000E-1 1,240163557E1 1,333333333E-1 1,267077663E1 1,666666667E-1 1,309703315E1 2,000000000E-1 1,363531527E1 2,333333333E-1 1,390445633E1 2,666666667E-1 1,448782832E1 3,000000000E-1 ...


1

Manipulate[Plot[Sin[a x], {x, -2 Pi, 2 Pi}, PlotLabel -> Row[{"a=", a}]], {a, 0, 5}] For exporting, there are many posts on exporting Manipulate to animations/movies. Please see this for example Export animation of a Manipulate autorun sequence? If the above still does not answer you, then you can follow up. ps. You can always just export like this ...


2

My intuition is that the problem is with the front end and not the kernel. The front end will need to render the combined 3D graphics, even if only one changes (unless GPUs have gotten so sophisticated they can manage and compose multiple 3D images -- but on my computer the CPU is heavily engaged). Speedier rendering The trick to building a speedier ...


3

Solved. I changed the code to "AnimationRepetitions" -> 0 (instead of 1) and opened the gif in Chrome. It ran just once. My bad! I had not considered trying another way to open the gif. I overtrusted my gif renderer.


1

Another way, by post-processing the Manipulate code generated by Animate: labelAnimator = {u_, u1_, u2_, opts___} :> {u, u1, u2, Labeled[Animator[Dynamic[u], {u1, u2}, opts], Pane[Dynamic[u], {50, Automatic}], Right] &}; Animate["foo", {u, 9.12342345, 12, Appearance -> {"Labeled"}, AnimationRunning -> True}] /. ...


2

You can use Manipulate with two controls, a Slider and an Animator, both attached to a single dynamic variable: ClearAll[f, h, x]; f[x_] := x^2 a = 2; Manipulate[ Plot[{f[x], (f[a + h] - f[a])/h (x - a) + f[a]}, {x, -1, 9}, PlotRange -> {{-1, 4}, {-1, 11}}], Row[{Control[{{h, 1, "h"}, 0.001, 2, Slider[##, Appearance -> "Labeled"] &}], ...


3

Adding Appearance -> "Labeled" to the control specification seems to work: Animate["foo", {u, 0, 10, Appearance -> "Labeled"}] The code above was reported not to work in Mathematica 9. Here is an alternative that works in Mathematica 7.0.1 and presumably 8 and 9 as well: Animate["foo", {{u, 0, Dynamic[u]}, 0, 10}] This replaces the label u ...


10

My defined function next find {nextpoint, nextdirection} value from {startpoint, startdirection} using NSolve. next[{sp_, sd_}][δ_] := Module[{φ, sol, fp, fd}, sol = NSolve[{{x[φ, δ], y[φ, δ]} == sp + t sd, Abs[t] > 10^(-9), 0 <= φ < 2 π}, {t, φ}, Reals]// Quiet; sol = If[Length[sol] > 0, sol[[1]]]; fp = {x[φ, δ], y[φ, δ]} /. sol; ...


3

uh[x_, y_, t_] = 1 + E^(-2 t)*Sin[x]*Sin[y]; Animate[Plot3D[ uh[x, y, t], {x, -2 π, 2 π}, {y, -2 π, 2 π}, PlotRange -> {0, 2}, BoxRatios -> 1, PerformanceGoal -> "Quality"], {t, 0, π}, AnimationRunning -> True, AnimationDirection -> ForwardBackward]



Top 50 recent answers are included