Amplituda

Okres

Punkt A - animacja żaglówki

s1 = 0.5 (slider from -1.5 to 1.5, step 0.1)
s2 = 1 (slider from -1 to 1, step 0.1)
f(x) = (s1 * sin((s2 * x)))
A = Point(f)
g = Tangent(A, f)
B = Point(g)
B' = Mirror(B, A)
A' = Rotate(A, -120°, B')
α = Angle(A', B', A)
A'_{1} = Rotate(A, 120°, B)
β = Angle(A, B, A'_{1})
h = Segment(B, B')
i = Segment(B', A')
j = Segment(A', A'_{1})
k = Segment(A'_{1}, B)
l = OrthogonalLine(A, j)
C = Point(l)
D = Intersect(j, l)
E = Point(l)
m = Line(E, j)
n = OrthogonalLine(A'_{1}, m)
p = OrthogonalLine(A', m)
F = Intersect(m, n)
G = Intersect(m, p)
a(x, y) = y < f(x)
H = Intersect(k, m)
I = Intersect(i, m)
q1, h_1, b, b', i_1 = Polygon(H, B, B', I)
t1, c, a'_{1}, d = Polygon(A'_{1}, D, C)
t2, d_1, c_1, a' = Polygon(C, A', D)
q = Segment(C, E)