Tag Info

Hot answers tagged

22

Since you want the animation to have explanatory content, I thought it might be best to incorporate the explanatory 2D diagram into the 3D scene. So I imagine the 2D plot as a "sticker" that can be put onto the cylinder, like a label on a bottle. That way, you can see the explanatory diagram itself wrap around the cylinder and become identical to the ...


4

This infinite evaluation is the result of "cross-linking" the two Dynamic expressions due to the failure to localize your Symbols with DynamicModule, e.g.: DynamicModule[{circle, circle1, circlebase, fin, circlerolled}, Manipulate[ circle = ParametricPlot3D[{Sin[x], Cos[x], 0}, {x, -Pi, Pi}, PerformanceGoal -> "Quality"]; circle1 = ...


3

Here's an approach using ParametricPlot, where ListAnimate permits smooth animation. testparaNew[α_] := Show[{ ParametricPlot[ {{Cos[θ], Sin[θ]}, {2 Cos[α] + Cos[θ], 2 Sin[α] + Sin[θ]}}, {θ, 0, 2 π}, PlotRange -> 3, Axes -> False, Frame -> False ], ParametricPlot[ {{2 Cos[α] + r Cos[2 α + π], 2 ...


3

Here is the simple method I use. I create a button (with label "[[?]]") that finds the position of the current selection in the last output. You can add the button to a custom utilities palette for easy access. Button["\[LeftDoubleBracket]?\[RightDoubleBracket]", Print@Position[%, ToExpression@CurrentValue@"SelectionData"]] Here's how to use it to grab ...


3

Is this something like what you want? Manipulate[Show[ Graphics[{ Circle[{0, 0}, 1], Circle[{2 Cos[t], 2 Sin[t]}, 1], {Blue, PointSize[0.012], Point[{Cos[t], Sin[t]}]}, {Green, PointSize[0.012], Point[{2 Cos[t], 2 Sin[t]}]}, Line[{{2 Cos[t], 2 Sin[t]}, {2 Cos[t], 2 Sin[t]} + {Cos[Pi + 2 t], Sin[Pi + 2 t]}}] }, ...


3

n = 3; Manipulate[Graphics[{Circle[{0, 0}],Line[{{0, 0}, a[[#]]} & /@Range[Length@a]]}], {{a, RandomReal[{0, 1}, {n, 2}]}, Locator, LocatorAutoCreate -> True}] Alternatively, Manipulate[Graphics[{Circle[{0, 0}], Line[Tuples[{{{0, 0}}, a}]]}], {{a, RandomReal[{0, 1}, {n, 2}]}, Locator, LocatorAutoCreate -> True}]


2

For a graphical study I would solve the two equations independently. First one gives you one up to three x-solutions with y as additional parameter. Second one give one up to three y-solutions with x as additional parameter. Next I would plot the solutions as ParametricPlot[] with different colors on top of each other. So something like solx=Solve[(rA-rB) ...


2

Your screen capture appears to show the ContourPlot frozen in "Speed" mode: myPoly := -4 p^3 - 27 q^2; ContourPlot[myPoly == 0, {p, -1, 1}, {q, -1, 1}, PerformanceGoal -> "Speed"] Normally this should only appear while the controls are being used, after which it should switch to "Quality" mode. See: PolarPlot render oddities I do not see this ...


2

myS[x_, y_, a_] := Sin[x y + a]; Manipulate[ Plot3D[myS[x, y, a], {x, -2, 2}, {y, -2, 2}], {a, 0, 5}] Incidentally, as a general rule, avoid using variable or function names that begin with an upper-case letter as these may conflict with internal names used by Mathematica.


1

I don't know how to do what you ask, but here is an alternative approach that you might use. snapshots = {}; Manipulate[ Plot[ctrlVdc + ctrlVac ctrlgFunc[2 π ctrlf t + ctrlPhi], {t, 0, 0.4}], {{ctrlgFunc, Sin, ""}, {Sin, Cos, Tan, Cot}}, Delimiter, {{ctrlVac, 1.5, Subscript["V", "ac"]}, -10, 10}, {{ctrlVdc, 0.5, Subscript["V", "dc"]}, -1, 1}, ...


1

Show[ Graphics3D[Cylinder[{{0, 0, 0}, {0, 0, 12}}, 2/π]], ParametricPlot3D[ 2/π {Cos[θ], Sin[θ], 3 θ/4}, {θ, 0, 8 π} , PlotStyle -> Red]]


1

A pretty rough solution, you should be able to make it look better but here is the idea. I put the pos on random lakes, put them where ever you wish. i = Import@"http://i.stack.imgur.com/JL5No.png"; pos1 = {500, 300}; pos2 = {320, 160}; nmax = 50; Manipulate[ Column[{ First[ListPlot[(#@50)[[All, 1 ;; n]], BaseStyle -> PointSize[Medium], ...


1

for completeness here is the LocatorPane version suggested by @m_goldberg comment. DynamicModule[{pt = RandomReal[{-1, 1}, {3, 2}]}, LocatorPane[Dynamic@pt, Graphics[{Circle[], Line[{{0, 0}, Dynamic@pt[[#]]}] & /@ Range@Length@pt}]]]



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