We’re rewarding the question askers & reputations are being recalculated! Read more.

New answers tagged

0

The code in the answer b3m2a1 linked to was intended for 3D curves, which is why it had a lot of machinery embedded. For plane curves, things are vastly simpler: osculatingCircle[fun_?VectorQ, {t_, tvalue_}] := Module[{ka, nv, tv}, {{ka}, {tv, nv}} = FrenetSerretSystem[fun, t] /. t -> tvalue; Circle[(fun /. t -> tvalue) + nv/ka, 1/Abs[ka]]] ...


4

To explore complex expressions interactively in a notebook, Dynamic[] is often more nice than Manipulate. Here is a example where : I begin to plot a expression without knowing a priori what parameter I will change Then I play with the parameter bar first by assigning the value 2, then I create a slider to play dynamically with bar then I find a ...


2

Replace Graphics[...] with Labeled[Graphics[{Thickness[t], Table[{vHues[[i]], hea[mPositions[[i]]*s, vSizes[[i]]^e]}, {i, n}]}, ImageSize -> {350, 350}], Style["Happy Wedding", 40, Hue[0.5/6], FontFamily -> "Mistral", Background -> White], Top]


4

If you do want to keep variables localized then How are parameters evaluated for a Plot in Manipulate is the answer. If you don't then you can use LocalizeVariables -> False. One needs to remember that in case of: bar = 1.0; foo[x_]:= Sin[bar x]; Manipulate[Plot[foo[x], {x, 0, Pi}], {{bar, 2.0, "bar"}}, LocalizeVariables-> False] there is no sign ...


0

Use Dynamic as such: a1 = a2 = False; Manipulate[Column[{ OpenerView[{"plot1", Panel@Plot[x^2, {x, -10, 2}]}, Dynamic[a1]], OpenerView[{"plot2", Panel@Plot[x^2 + 3 x, {x, -10, 2}]}, Dynamic[a2]], Plot3D[Sin[n x y], {x, -2, 2}, {y, -2, 2}]}], {n, 1, 10, 1}]


1

It works nicely when I try it, using m = Manipulate[ Show[ListPlot[ ReIm[Part[Transpose[List @@@ Flatten[Solve[z^n == 1]]], 2]], AspectRatio -> 1, PlotStyle -> Red], Graphics[Circle[]]], {n, 2, 100, 1, Appearance -> "Labeled"}, SaveDefinitions -> True] CloudDeploy[m, Permissions -> "Public"] exactly as you wrote. Here's the ...


0

This is not an answer. It is a comment on the question that far too long to be posted as an ordinary comment. I am using V11.3 and can not reproduce your problem from the example code you post. I think you have o oversimplified the code to the point it can't produce the problem. However, I can show you a better way to construct your Manipulate expression, ...


2

Does it fit your needs? Manipulate[ Plot[Sin[hz x], {x, -Pi, Pi}] , { {input, "1 Hz", "Frequency"} , InputField[#, String, ##2] & , TrackingFunction :> Function[ new , Catch[ hz = Check[ QuantityMagnitude[Interpreter["Quantity"] @ new, "Hertz"] , Throw @ $Failed ] ; input = new ] ] ...


Top 50 recent answers are included