synthessis
Author: jt
Date: 15 Νοέμβριος 2014

x1=A1ημω1t,  x2=A2ημ(ω2t+φ), x=x1+x2

start

stop

restart

x_1

x_2

x

t = 0 (slider from 0 to 5.5, step 0.0050)
A_1 = 1 (slider from 0 to 2, step 0.25)
A_2 = 0.75 (slider from 0 to 2, step 0.25)
f_1 = 2 (slider from 0 to 5, step 0.25)
f_2 = 2 (slider from 0 to 5, step 0.25)
ω_1: 2 * π * f_1
ω_2: 2 * π * f_2
φ = 0 (slider from 0 to 360, step 30)
A: (2 + A_1 / 2 * sin(ω_1 * t), 5)
B: (2 + A_2 / 2 * sin(ω_2 * t + φ * π / 180), 4.5)
b = true
c = true
d = false
Α = (2, 3.5)
Β = (2, 5.5)
e = Segment(Β, Α)
C: (x(A) + x(B) - 2, 4)
Γ: (2 - A_1 / 2, 5)
Δ: (2 + A_1 / 2, 5)
f = Segment(Γ, Δ)
Ε: (2 - A_2 / 2, 4.5)
Η: (2 + A_2 / 2, 4.5)
g = Segment(Ε, Η)
Ζ: (2 - A_1 / 2 - A_2 / 2, 4)
Θ: (2 + A_1 / 2 + A_2 / 2, 4)
h = Segment(Ζ, Θ)
y_2 = If(0 < x < t, A_2 * sin(ω_2 * x + φ * π / 180))
y_1 = If(0 < x < t, A_1 * sin(ω_1 * x))
a(x) = y_1(x) + y_2(x)
i: x = t
Ι = Intersect(a, i, (0.375, -0.25))