3

Here is an example with Overlay[]: Manipulate[ With[{a = If[m2 > m1 (\[Mu] Cos[\[Theta]] + Sin[\[Theta]]), ( 9.8 (m2 - \[Mu] m1 Cos[\[Theta]] - m1 Sin[\[Theta]]))/( m1 + m2), ( 9.8 (m2 + \[Mu] m1 Cos[\[Theta]] - m1 Sin[\[Theta]]))/(m1 + m2)], T = If[m2 > m1 (\[Mu] Cos[\[Theta]] + Sin[\[Theta]]), ( 9.8 m1 m2 (1 + \[Mu] Cos[\...


2

This is a simple oneliner which kind of works. Check out the published version here: public cloud link. I personally still find most of these cloud-deployed Manipulate (or DynamicModule) toy-examples way too slow, but maybe someone from Wolfram has a clever trick to get a similar responsiveness as in a local notebook? SystemOpen @ CloudDeploy[#, "...


2

Here is your corrected code, try to understand it. Note that the zeros are mostly real. And if they are complex, the imaginary part is very small. Maybe you want to change the parameters? Manipulate[ zeros = NSolve[{6 \[Alpha] (2 z \[Alpha] + \[Xi] - \[Nu] Conjugate[ z]) + (2 z \[Alpha] + \[Xi] - \[Nu] Conjugate[z])^3 == 0 && ...


1

Clock Panel @ Graphics[{Red, Rectangle[{0 + #, 0}, {2 + #, 0.5}] & @ Dynamic[Clock[{1, 10, .1}]]}, PlotRange -> {{1, 10}, {-1, 1.5}}, ImageSize -> Large] Animate v = 1; Animate[Framed @ Graphics[{Red, Rectangle[{0 + x, 0}, {2 + x, 0.5}]}, PlotRange -> {{1, 10}, {-1, 1.5}}, ImageSize -> Large], {{x, 1, ""}, 1, 10, ...


Only top voted, non community-wiki answers of a minimum length are eligible