Vergleich Deck-Grundflächen
Author: K. Emmerling

Deckfläche bewegen

Bewege die Schieberegler nach links, um die Deckfläche mit einer 
Seitenfläche oder die Grundfläche mit der Vorderfläche zu vergleichen.

Grundfläche bewegen

A = (0, -2)
B = (8, -2)
a = Segment(A, B)
b_2 = OrthogonalLine(A, a)
c_2 = OrthogonalLine(B, a)
F = Point(c_2)
d_1 = OrthogonalLine(F, c_2)
E = Intersect(b_2, d_1)
e = Segment(B, F)
l = Segment(F, E)
h = Segment(E, A)
C = (10.5, 0.5)
b = Segment(B, C)
i_1 = Line(F, b)
j_1 = Line(E, i_1)
k_1 = Line(C, e)
G = Intersect(i_1, k_1)
l_1 = Line(G, l)
H = Intersect(j_1, l_1)
f = Segment(C, G)
i = Segment(G, F)
j = Segment(H, G)
k = Segment(E, H)
s = Line(H, e)
r = Line(H, h)
t = Line(C, l)
D = Intersect(r, t)
d = Segment(A, D)
c = Segment(D, C)
g = Segment(D, H)
m = 11.334 (slider from 0.0010 to 11.334, step 0.0010)
n = 3.542 (slider from 0.0010 to 3.542, step 0.0010)
I = (8, -7)
J = Point(Circle[I, m])
p = Segment(I, J)
q = Line(J, d)
a_1 = Line(D, p)
b_1 = Line(J, k)
c_1 = Line(H, p)
K = Intersect(c_1, b_1)
Vieleck1, j_2, k_2, g_1, f_1 = Polygon(J, K, G, F)
L = (8, 3)
M = Point(Circle[L, n])
e_1 = Segment(L, M)
h_1 = Line(M, c)
m_1 = Line(D, e_1)
N = Intersect(m_1, h_1)
Vieleck2, a_2, b_3, m_2, n_1 = Polygon(A, B, M, N)