Date: 28 Září 2013

\fbox{Kmitání \;s \;opačnou \;fází}

f1 = 0.2 (slider from 0 to 0.5, step 0.1)
t = 0 (slider from 0 to 15, step 0.001)
A: (t, 0)
a = OrthogonalLine(A, xAxis)
f2 = 0.2 (slider from 0 to 0.5, step 0.1)
ω1: 6.28319 * f1
ω2: 2 * 3.141592653589793 * f2
ym1 = 0.9 (slider from 0 to 2, step 0.1)
ym2 = 1.7 (slider from 0 to 2, step 0.1)
B: (x(A), 2 + ym1 * sin(ω1 * t + 3.141592653589793))
C: (-1 * 0.2, 2 + ym1 * sin(ω1 * t + 3.141592653589793))
b = Segment(C, B)
T1: 1 / f1
T2: 1 / f2
tmax = Max(T1, T2)
F: (-1 * 0.4, 2 + ym2 * sin(ω2 * t))
G: (x(A), 2 + ym2 * sin(ω2 * t))
d = Segment(F, G)
H = (-0.2, 4)
e = Segment(H, C)
I = (-0.4, 4)
f = Segment(I, F)
h = OrthogonalLine(H, a)
K = Intersect(a, h)
L = Point(a)
i = Segment(K, L)
M = Intersect(j, yAxis)
N = Intersect(l, xAxis)
O = Point(l)
P = Intersect(k, yAxis)
Q = Point(j)
R = Point(l)
S = Point(k)
m = Ray(M, Q)