Author: Martin Vinkler
Date: 18 September 2013

spustit posun pera

$φ$

\text{V čase }t = 0 \text{ je těleso v rovnovážné poloze - jeho fáze = 0}\
\text{tedy - počáteční fáze pohybu je nulová.}

$φ_0$

$ωt$

A

O

B

C

D

E

\text{ fáze po uplynutí času }t \text{ je potom dána vztahem: }φ=\omega t

E

$φ$

$φ_0<0$

$ωt$

$φ$

On - Off

Restart

pm = 0 (slider from -1 to 1, step 1)
J = (-0.5, 0)
H = (-2, 0)
fi0 = 0.6981317007977318 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
f = 0.1 (slider from 0.1 to 0.3, step 0.1)
t = 0 (slider from 0 to 1.5, step 0.001)
A: (t, 0)
a = OrthogonalLine(A, xAxis)
ω2: ((2 * 3.141592653589793) * f)
ym2 = 1.5 (slider from 0 to 2, step 0.1)
T2: 1 / f
F: (0, (ym2 * sin((ω2 * t) + (fi0 * pm))))
G: (x(A), (ym2 * sin((ω2 * t))))
d = Segment(F, G)
I = (0, 3)
f_1 = Segment(I, F)
L = Point(a)
M = Intersect(j, yAxis)
N = Intersect(l, xAxis)
O = Point(l)
P = Intersect(k, yAxis)
Q = Point(j)
R = Point(l)
S = Point(k)
B: (x(A), 3)
b = Segment(G, B)
c = Ray(I, B)
e = false
GG: (x(A), (ym2 * sin((ω2 * t))))
C = (10, 3)
D = (0, 3.5)
E = (10, 3.5)
mnohoúhelník1, i, c_1, e_1, d_1 = Polygon(I, C, E, D)
Red = If(f ≟ 0.3, 1, 0)
Green = If(f ≟ 0.2, 0.8, 0)
Blue = If(f ≟ 0.1, 1, 0)
φ_1: (((2 * π) * f) * t) + (fi0 * pm)
J' = Rotate(J, φ_1, H)
φ = Angle(J, H, J')
g = Circle((-2, 0), 1.5)
p = Segment(J', F)
m = Segment(J', GG)
q = Segment((0, -1.5), (0, 1.5))
r = Segment((-2, -1.5), (0, -1.5))
s = Segment((-2, 1.5), (0, 1.5))
K = (0, 0)
T = Intersect(g, s, 1)
U = Intersect(g, r, 1)
V = Intersect(g, xAxis, 1)
n = Segment(T, U)
a_1 = Segment(V, J)
b_1 = Segment(J, K)
poc = Rotate(J, (fi0 * pm), H)
g_1 = Segment(H, poc)
α = Angle(J, H, poc)
β = Angle(poc, H, J')
γ = Angle(J, H, J')
δ = Angle(poc, H, J)
ε = Angle(poc, H, J')
ζ = Angle(J, H, J')
h = Vector(H, J')
on = 0
tmax = 1.5