Tag Info

New answers tagged

0

Here's one approach: Manipulate[ Module[{}, If[0 < vLIQ <= 1, Pause[0.1]; vLIQ = vLIQ + 0.01;, vLIQ = 0]; vol = vLIQ; Graphics[{FaceForm[Opacity[0.6, Green]], Rectangle[{0, 0}, {0.5, vol}], EdgeForm[Thick], FaceForm[None], Rectangle[{0, 0}, {0.5, 1}], Thick, Black, Line[{{0, vol}, {0.6, vol}}], Text[Style[vol, 16], {0.7, ...


0

myx1[t_] := Sin[t]; myx2[t_] := Sin[3 t]; myx3[t_] := Sin[4 t]; Manipulate[ Graphics[ { Circle[{myx1[t], 0}], If[t > 2, { {Red, Circle[{myx2[t], 0}, .5]}, {Green, Circle[{myx3[t], 0}, .5]} } ]}, PlotRange -> {{-2, 2}, {-2, 2}}], {t, 0, 10}]



Top 50 recent answers are included