I'm trying to make a manipulate that shows a parametric plot of a cycloid with manipulators that affect the shape of the curve. My problem seems to be my scoping of the variable R
in the code below. This is what I've tried so far:
x[th_]:=R(th - Sin[th])
y[th_]:=R(1 - Cos[th])
DynamicModule[{R,q=({x[#],-y[#]})&}, Manipulate[
ParametricPlot[q[ph],{ph,0,th}],
{{th,0,"\[Theta]"},0,2 Pi, Appearance->"Labeled"},
{{R,1,"radius"},0.01,10, Appearance->"Labeled"}]]
This results in the dynamic value of R
not being scoped into q
. What am I missing here?