töötab

$Arvestustöö$
$Koostas\::\:Maario\:Lemmik$

eq1: x = 0
f: y = 0
g: y = 6
h: y = 400
A = Intersect(eq1, f)
B = Intersect(eq1, g)
C = Intersect(eq1, h)
liug = Segment(B, C)
D = Point(liug)
pikkus = Segment(A, D)
c = Circle(A, D)
E = Point(c)
θ_0 = Angle(E, A, D)
aeg: {113, 48, 28, 5, 12, 6, 2021, "Juuni", "Laupäev", 7}
milisek: aeg(1)
sekund: aeg(2)
värskenda = 0.914 (slider from 0 to 1, step 0.001)
t: sekund + milisek / 1000
meetrid: (pikkus * 0.01)
grav: 9.80665
periood: ((2 * π) * sqrt(meetrid / grav))
sagedus: 1 / periood
bpm: ((sagedus * 60) * 2)
C' = Rotate(C, (θ_0 * cos((sqrt(grav / meetrid) * t))), A)
α = Angle(C, A, C')
i = Segment(A, C')
F = (-90.58666578588222, 338.0740392011739)
G = (-282.84271247461896, -282.842712474619)
H = (282.842712474619, -282.84271247461896)
I = (90.58666578588233, 338.0740392011739)
q1, f_1, g_1, h_1, i_1 = Polygon(F, G, H, I)
a: false
metronoom: "$\shadowbox{Metronoom\\
\:\:\:\:\:\:\:\:\:\:\:pendli\:pikkusega\: " + (LaTeX[meetrid]) + "\:meetrit\\
\:\:\:\:\:\:\:\:\:\:\:lööb\: takti \  " + (LaTeX[bpm]) + " \ lööki\ minutis\\
\:\:\:\:\:\:\:\:\:\:\:sagedusel\  " + (LaTeX[sagedus]) + "\:Hz\:.\\
\:\:\:\:\:\:\:\:\:\:\:Möödunud\:aeg →  " + (LaTeX[sekund]) + "\:sekundit}$"