circle_oscil
Author: EKFE Kallipolis
Date: 18 Μάρτιος 2014

Η αρμονική ταλάντωση σαν προβολή της ομαλής κυκλικής κίνησης

έναρξη

παύση

επανεκκίνηση

+

-

ω = 1 (slider from 1 to 2, step 0.5)
t = 0 (slider from 0 to 100, step 0.05)
A = Point(xAxis)
c = Circle(A, 10)
a_1 = OrthogonalLine(A, xAxis)
B: (-15 + 10 * cos(ω * t), 10 * sin(ω * t))
b = Line(A, B)
d = OrthogonalLine(B, b)
e = OrthogonalLine(B, a_1)
F = Intersect(a_1, e)
f = Circle(B, 3 * ω)
Α, Β = Intersect(f, d)
i = OrthogonalLine(Β, a_1)
v = Vector(B, Β)
Γ = Intersect(i, a_1)
v_' = Vector(F, Γ)
g = Circle(B, ω^(2) * 2)
Δ, Ε = Intersect(g, b)
a = Vector(B, Δ)
a_2 = OrthogonalLine(Δ, a_1)
Ζ = Intersect(a_2, a_1)
a_' = Vector(F, Ζ)
zoom_1 = 0.9
zoom_2 = 0.9
zoom = 0.9 (slider from -5 to 5, step 1)
k: x = t
h = If(0 < x, 10 * sin(ω * x))
Η = Intersect(h, k, (1.4, 9.854497299884601))