N = (4, 2)
A_1 = (4, 6)
B_1 = (2, 4)
C = (8, 3)
D = (9, 5)
lengte = 4 (slider from 0 to (2 * veelhoek1^(0.5)), step 0.05)
veelhoek1, a, b, c, d, b_2 = Polygon(A_1, B_1, N, C, D)
hoogtevb = 1.25 (slider from 0 to 2, step 0.05)
hoek = 1.3962634015954636 rad (slider from 0 to 179°, step °)
A = (-3, -2)
B_2 = (15, -2)
f = Line(A, B_2)
e = Circle(A, lengte)
B = Intersect(e, f, 2)
E_1 = Point(f)
g = Circle(E_1, 1)
F_1 = Intersect(g, f, 2)
F' = Rotate(F_1, hoek, E_1)
β = Angle(F_1, E_1, F')
h = Ray(E_1, F')
i = Line(F_1, h)
j = Line(B, h)
k = Line(A, h)
E = Midpoint(A, B)
l = Line(E, h)
m = OrthogonalLine(E, f)
n = OrthogonalLine(E_1, f)
q = Circle(E_1, hoogtevb)
H, I = Intersect(q, n)
s = Line(I, f)
t = Segment(E_1, F_1)
K = Intersect(h, s)
L_1 = Intersect(i, s)
f_1 = Segment(K, E_1)
g_1 = Segment(K, L_1)
h_1 = Segment(L_1, F_1)
P = Point(f)
j_1 = Line(P, h)
l_1 = OrthogonalLine(P, f)
H_1 = (12, -4)
I_1: (13.5, -4)
J_1 = (15, -4)
i_2 = Segment(H_1, I_1)
j_2 = Segment(I_1, J_1)
H_2 = (11.999999999999893, -5)
I_2 = (13.499999999999893, -5)
J_2 = (14.999999999999893, -5)
i_3 = Segment(H_2, I_2)
j_3 = Segment(I_2, J_2)
k_2 = Segment(H_2, J_2)
H_3: (12, -6)
I_3: (13.5, -6)
J_3: (15, -6)
i_4 = Segment(H_3, I_3)
j_4 = Segment(I_3, J_3)
H_4 = (11.999999999999893, -7)
I_4 = (13.499999999999893, -7)
J_4 = (14.999999999999893, -7)
i_5 = Segment(H_4, I_4)
j_5 = Segment(I_4, J_4)
H_5 = (8, -7)
I_5 = (9.5, -7)
J_5 = (11, -7)
i_6 = Segment(H_5, I_5)
j_6 = Segment(I_5, J_5)
H_6 = (8, -6)
I_6: (11, -6)
i_7 = Segment(H_6, I_6)
stap = 7 (slider from 0 to 7, step 1)
n_2 = Segment(A, B)
p = Segment(A, E)
r = Circle(E, (p * hoogtevb))
F, G = Intersect(r, m)
i_1 = Line(G, f)
J = Intersect(l, i_1)
L = Intersect(j, i_1)
veelhoek2, k_1, m_1, n_1, p_1 = Polygon(E, B, L, J)
q_1 = Segment(E, B)
c_1 = Circle(P, (hoogtevb * (((p^(2) * hoogtevb) + veelhoek1) / hoogtevb)^(0.5)))
M, O = Intersect(c_1, l_1)
r_1 = Line(O, f)
Q = Intersect(j_1, r_1)
d_1 = Circle(P, (((p^(2) * hoogtevb) + veelhoek1) / hoogtevb)^(0.5))
R, S = Intersect(d_1, f)
s_1 = Segment(Q, P)
T = Point(s_1)
t_1 = Segment(S, T)
a_1 = Line(S, j_1)
U = Intersect(r_1, a_1)
b_1 = Segment(U, S)
e_1 = Segment(U, Q)
c_2 = Circle(E, e_1)
V, V_2 = Intersect(c_2, f)
d_2 = Circle(J, s_1)
Z, C_1 = Intersect(d_2, l)
l_2 = Line(V_2, j)
D_1 = Intersect(i_1, l_2)
m_2 = Line(Z, f)
G_1 = Intersect(j, m_2)
K_1 = Intersect(l_2, m_2)
f_2 = Segment(J, K_1)
veelhoek3, g_2, p_2, q_2, r_2 = Polygon(E, B, G_1, Z)
veelhoek4, b_3, v_2, d_3, l_3 = Polygon(B, V_2, D_1, L)
veelhoek5, h_2, s_2, t_2, a_2 = Polygon(G_1, K_1, V_2, B)
W = Intersect(k, m_2)
e_2 = Segment(W, A)
f_3 = Segment(W, Z)