w er vinkelhastigheden

Højreklik på punktet B,
og start animation 
(jævn cirkelbevægelse)

w = 0.7 (slider from 0 to 2, step 0.1)
a_1 = CurveCartesian(cos(t), sin(t), t, 0, 6.283185307179586)
B = Point(a_1)
A = Intersect(xAxis, yAxis)
r = Vector(A, B)
v_v: w * (-y(r), x(r))
B'_1 = Translate(B, v_v)
v = Vector(B, B'_1)
a_a: w^(2) * (-r)
B' = Translate(B, a_a)
a = Vector(B, B')