Start

Stop

x(t)

x(t)

y(t)

x(t)

f(x,y)

y(t)

φ = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
ω_2 = 2.5 (slider from 1 to 5, step 0.5)
A_2 = 5 (slider from 0.1 to 5, step 0.1)
t = 3.06 (slider from 0 to 15, step 0.01)
ω_1 = 2.5 (slider from 1 to 5, step 0.5)
A_1 = 5 (slider from 0.1 to 5, step 0.1)
b: (A_2 * sin((ω_2 * t) + φ))
a: (A_1 * sin((ω_1 * t)))
A = Point({a, b})
B = Point({a, 0})
C = Point({0, b})
Text1: "x(t)=A_1 sin(ω_1 t)=" + A_1 + " sin(" + ω_1 + "t)"
Text2: "y(t)=A_2 sin(ω_2 t+φ)=" + A_2 + " sin(" + ω_2 + "t+" + φ + ")"
w_B: (φ * π / 180)
L_1 = Sequence(Segment[(i, 0), (i, -0.2)], i, (-A_1) - 1, A_1 + 1)
L_2 = Sequence(Segment[(0, i), (0.2, i)], i, (-A_2) - 1, A_2 + 1)
h = Segment(((-A_1) - 1, 0), (A_1 + 1, 0))
i = Segment((0, (-A_2) - 1), (0, A_2 + 1))
kurve = CurveCartesian((A_1 * sin((ω_1 * t))), (A_2 * sin((ω_2 * t) + φ)), t, 0, (10 * π))
A1 = NaN
g = Segment(B, (0, y(B)))
f = Segment(C, (x(C), 0))
sx = Segment(((-A_1), 0), (A_1, 0))
sy = Segment((0, A_2), (0, (-A_2)))
j = Segment(C, A)
k = Segment(A, B)
c = false
e = true
d = false