Date: 4 Říjen 2013

\text{Fázový rozdíl dvou izochronních kmitů:}

Δφ

Kmitání ve fázi - Δφ = 0

Kmitání s opačnou fází - Δφ = π

ω_1 = ω_2→Δφ=konst

t = 0

Δφ = 1.04719756 (slider from 0 to 6.28318531, step 0.26179939)
ym1 = 1.7 (slider from 1.5 to 1.7, step 0.1)
t = 0 (slider from 0 to 5, step 0.0010)
f1 = 0.2 (slider from 0 to 0.5, step 0.1)
ω1: 6.28319 * f1
A: (t, 0)
a = OrthogonalLine(A, xAxis)
f2 = 0.2 (slider from 0 to 0.5, step 0.1)
ω2: 2 * 3.141592653589793 * f2
ym2 = 1.1 (slider from 1 to 1.5, step 0.1)
B: (x(A), 2 + ym1 * sin(ω1 * t + Δφ))
C: (-1 * 0.2, 2 + ym1 * sin(ω1 * t + Δφ))
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)
c = Circle((-2.5, 2), ym1)
D = (-2.5, 2)
E = (0, 2)
g = Ray(E, D)
J = Intersect(c, g, 1)
φ1: ω1 * t + Δφ
J' = Rotate(J, φ1, D)
α = Angle(J, D, J')
u = Vector(D, J')
φ2: ω2 * t
J'_1 = Rotate(J, φ2, D)
β = Angle(J, D, J'_1)
p = Circle((-2.5, 2), ym2)
n = Segment(D, J'_1)
T = Intersect(p, n, 1)
v = Vector(D, T)
γ = Angle(T, D, J')
q = Segment(T, F)
r = Segment(J', C)
s = Line((0, 0), (0, 1))
U = Point(s)
V = Point(s)
a_1 = Segment(U, V)
text5: "Δφ=" + (LaTeX[Δφ * 180 / π]) + "°"
ma = 1
OB: (20, Δφ + ma)