Breite

Höhe

b = 1 (slider from 0.6 to 1.2, step 0.1)
A = Point(yAxis)
C: (x(A) + b, y(A))
d = Circle(C, 1.0)
D: (x(C) + b, y(C))
E: (x(D) + 2.0 * b, y(D))
F = Rotate(E, 45.0*°, C)
c = Segment(C, F)
f = Line(A, c)
g = Line(E, c)
G = Intersect(d, c)
i = Segment(A, G)
a = OrthogonalLine(A, yAxis)
e = Line(G, a)
J = Intersect(g, e)
N = Rotate(J, 110.0*°, E)
j_1 = Ray(E, N)
H = Intersect(f, e)
k_1 = Segment(C, H)
I = Intersect(i, k_1)
l = Line(I, e)
B = Point(a)
α = Angle(E, C, F)
P, j, d_1, e_1 = Polygon(D, E, J)
Q, a_1, c_1, g_1, h_1 = Polygon(A, C, G, H)
m = AngularBisector(J, E, D)
L = Point(l)
h_2 = 3 (slider from 0.2 to 6, step 0.1)
S_1: (x(I), y(I) + h_2)
K = Intersect(j_1, l)
S_2: (x(K), y(K) + h_2)
k_2 = Segment(A, S_1)
n = Segment(S_1, H)
p = Segment(S_1, G)
q = Segment(S_1, C)
r = Segment(S_2, D)
s = Segment(S_2, J)
t = Segment(S_2, E)
b_1 = Segment(S_2, K)
f_1 = Segment(S_1, I)
k = 0.5 (slider from 0 to 1, step 0.01)
D' = Dilate(D, k, S_2)
E' = Dilate(E, k, S_2)
J' = Dilate(J, k, S_2)
A' = Dilate(A, k, S_1)
C' = Dilate(C, k, S_1)
G' = Dilate(G, k, S_1)
H' = Dilate(H, k, S_1)
P', j', d', e' = Polygon(D', E', J')
Q', a', c', g', h'_1 = Polygon(A', C', G', H')
M = Point(l)
β = Angle(J, E, N)
O = Dilate(I, k, S_1)
R = Dilate(K, k, S_2)
Text1: "A_1\;  = \; " + (b * 2.0) + "cm^2"
Text2: "A_2\;  = \; " + (0.5 * 2.0 * b * 2.0) + "cm^2"
Text3: "A'_1\;  = \; " + (b * 2.0 * k^(2.0)) + "cm^2"
Text4: "A'_1\;  = \; " + (b * 2.0 * k^(2.0)) + "cm^2"
S_3: (x(M), y(S_2))
S_4: (x(M) - 1.0, y(R))
l_1 = OrthogonalLine(S_4, l)
m_1 = Line(S_1, S_2)
S = Intersect(l_1, m_1)
h = Vector(M, S_3)
v = Vector(S_3, M)
h' = Vector(S_4, S)
z = Vector(S, S_4)
n_1 = Segment(O, S_4)
T: (x(A) - 2.0, y(A) - 1.0)
p_1 = Line(T, j)
U: (x(E) + 2.0, y(T))
q_1 = Line(U, d_1)
V = Point(q_1)
r_1 = Line(V, p_1)
s_1 = Line(T, q_1)
W = Intersect(s_1, r_1)
Y, t_1, u_1, v_1, w_1 = Polygon(T, U, V, W)
a_2 = Segment(S_1, S_3)
γ = Angle(L, K, S_2)
δ = Angle(L, I, S_1)
S_7: (x(L), y(S_4))
ε = Angle(S_7, R, S_2)
ζ = Angle(S_7, O, S_1)
b_2 = Segment(M, I)
Text5: "h = " + h_2 + "cm"
Text6: "h' = " + (h_2 * k) + "cm"
Z = Midpoint(S, S_4)
A_1 = Midpoint(S_3, M)
T' = Translate(T, Vector[h - h'])
U' = Translate(U, Vector[h - h'])
V' = Translate(V, Vector[h - h'])
W' = Translate(W, Vector[h - h'])
Y', t', u', v', w' = Polygon(T', U', V', W')
Vieleck1, t_2, u, v_2, w = Polygon(T, U, V, W)