Vergleich Seitenflächen
Author: K. Emmerling

linke Seitenfläche bewegen

Bewege die Schieberegler nach links, um die Seitenflächen 
mit der Vorderfläche oder der Oberfläche zu vergleichen

rechte Seitenflä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 = 3.55 (slider from 0.0010 to 3.55, step 0.0010)
M = Point(a)
N = Point(Circle[M, m])
c_1 = Segment(M, N)
e_1 = Line(N, h)
g_1 = Segment(A, N)
O = Intersect(d, g_1)
P = Intersect(d, g_1)
h_1 = Line(E, g_1)
Q = Intersect(e_1, h_1)
Vieleck2, a_2, n_1, q_1, e_2 = Polygon(A, N, Q, E)
n = 4.25 (slider from 0.0010 to 4.25, step 0.0010)
I = Point(l)
J = Point(Circle[I, n])
p = Segment(I, J)
q = Line(J, b)
a_1 = Line(C, p)
K = Intersect(a_1, q)
Vieleck1, k_2, g_2, f_1, j_2 = Polygon(K, G, F, J)