Date: 13 September 2013

spustit posun pera

A

O

y

y_m

y

y - okamžitá výchylka
y_m - maximální výchylka
       (amplituda)

 f - frekvence
T - perioda

O - rovnovážná poloha

t = 4.61 (slider from 0 to 10, step 0.001)
A_1: (t, 0)
a = OrthogonalLine(A_1, xAxis)
f = 0.2 (slider from 0.1 to 0.3, step 0.1)
ω2: ((2 * 3.141592653589793) * f)
ym2 = 1.5 (slider from 0 to 2, step 0.1)
T2: 1 / f
A: (0, (ym2 * sin((ω2 * t))))
G: (x(A_1), (ym2 * sin((ω2 * t))))
d = Segment(A, G)
I = (0, 3)
f_1 = Segment(I, A)
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_1), 3)
b = Segment(G, B)
c = Ray(I, B)
e = false
GG: (x(A_1), (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)
H = (-2, 0)
φ: (((2 * 3.141592653589793) * f) * t)
K = (0, 0)
g_1 = Line(M, P)
h_1 = Segment(I, A)
g = OrthogonalLine(I, g_1)
J = Point(g)
h = Circle(I, J)
m = OrthogonalLine(J, g)
T = Intersect(h, g, 2)
n = OrthogonalLine(T, g)
U = Point(m)
p = OrthogonalLine(U, m)
V = Intersect(n, p)
mnohoúhelník2, j_1, t_1, v, u = Polygon(J, T, V, U)
W = Point(g_1)
Z = Point(g_1)
q = Segment(Z, P)
w = Vector(Z, W)
s = Segment((-0.2, 1.5), (0.2, 1.5))
r = Segment((-0.2, -1.5), (0.2, -1.5))
F = Point(l)
i_1 = OrthogonalLine(F, l)
k_1 = OrthogonalLine(A, q)
B_1 = Intersect(i_1, k_1)
C_1 = Intersect(a_1, q)
z = Vector(F, B_1)
D_1 = Point(k_1)
E_1 = Point(l)
l_1 = Segment(K, E_1)
m_1 = Segment(A, D_1)
F_1 = Midpoint(B_1, F)
text6: "f  = " + f + " Hz"
text7: "T = " + (1 / f) + " s"
Krok = 0 (slider from 0 to 4, step 1)