Zobraz výpočet obsahu

K = (-4, -3)
L = (16.42, -2.98)
f = Line(K, L)
M = (-2.56, 2.08)
g = Line(M, f)
A = Point(f)
B = Point(f)
C = Point(g)
D = Point(g)
ct1, a, b, c, d = Polygon(A, B, C, D)
h = OrthogonalLine(D, a)
E = Intersect(f, h)
v = Segment(E, D)
α = 0 rad (slider from 0 to 180°, step 0.08726646259971647)
S_1 = Midpoint(B, C)
i = Ray(D, S_1)
ct2, a_1, b_1, s, d_1 = Polygon(A, B, S_1, D)
t1, c_1, d_2, s_1 = Polygon(D, S_1, C)
D' = Rotate(D, (-α), S_1)
S = Rotate(S_1, (-α), S_1)
C' = Rotate(C, (-α), S_1)
t1', c'_1, d', c' = Polygon(D', S, C')
text1: "Obsah \;  lichoběžníku\\
S=\frac{(a+c)·v}{2}\\
S=\frac{(" + (LaTeX[a]) + "+" + (LaTeX[c]) + ")·" + (LaTeX[v]) + "}{2}\\
S=" + (LaTeX[((a + c) * v / 2)]) + " \; cm²\\"
e = false