Author: Dmentrard

construcción

A_0

A_2

A_4

A_1

A_3

A_6

A_5

a_8 = 8.408964152537147
A = Intersect(xAxis, yAxis)
B = Point(Circle[A, a_8])
a = Segment(A, B)
c = OrthogonalLine(A, a)
d = Circle(A, B)
C_1 = Intersect(d, c, 2.0)
e = Line(C_1, a)
f = OrthogonalLine(B, a)
D_1 = Intersect(e, f)
g = Circle(A, D_1)
D = Intersect(g, c, 2.0)
h = Line(D, a)
C = Intersect(f, h)
A0, a_1, b_1, f_1, e_1 = Polygon(A, B, C, D)
E = Midpoint(e_1)
i = Line(E, a_1)
F = Intersect(i, b_1)
A1, a_2, b_2, f_2, e_2 = Polygon(A, B, F, E)
j = Segment(A, C)
G = Intersect(i, j)
k = OrthogonalLine(G, a_1)
H = Intersect(a_1, k)
A2, a_3, h_1, g_1, e_3 = Polygon(A, H, G, E)
I = Midpoint(e_3)
l = Line(I, a_1)
K = Intersect(k, l)
L = Intersect(j, l)
m = OrthogonalLine(L, a_1)
M = Intersect(a_1, m)
A3, a_4, h_2, k_1, i_1 = Polygon(A, H, K, I)
A4, a_5, m_1, l_1, i_2 = Polygon(A, M, L, I)
N = Midpoint(i_2)
n = Line(N, a_1)
O = Intersect(m, n)
P = Intersect(j, n)
p = OrthogonalLine(P, a_1)
Q = Intersect(a_1, p)
A5, a_6, m_2, o, n_1 = Polygon(A, M, O, N)
A6, a_7, q, p_1, n_2 = Polygon(A, Q, P, N)
r = Segment(A, D_1)
b = Line(A, B)
Formpair = Point(j)
s = OrthogonalLine(Formpair, a)
t = Line(Formpair, a)
S = Intersect(s, a)
T = Intersect(t, e_1)
poly1, a_9, s_1, r_1, t_1 = Polygon(A, S, Formpair, T)
Textpoly1: poly1 + "dm²"
Ar2 = 25.000000000000007
Ar1 = 50.000000000000014
Ar3 = 12.500000000000004
Ar4 = 6.250000000000002
Ar5 = 3.125000000000001
Ar6 = 1.5625000000000004
c_1 = Segment(A, F)
Formimp = Point(c_1)
d_1 = OrthogonalLine(Formimp, a)
j_1 = Line(Formimp, a)
U = Intersect(c, e_1)
V = Intersect(j_1, e_1)
W = Intersect(d_1, a)
poly2, a_{10}, w, j_2, v = Polygon(A, W, Formimp, V)
Textpoly2: poly2 + "dm²"
u = false
Ar0 = 100.00000000000003
TextA0: "Formato \; A_0 \; = \; " + (A0 / 100.0) + " \; m² \; = \; " + A0 + " \; dm² \; (" + (10.0 * A0^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A0^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA1: "Formato \; A_1 \; = \;  \frac{ 1 }{2 } \; m² \; =  \; " + A1 + " \; dm² \; (" + (10.0 * A1^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A1^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA2: "Formato \; A_2 \; = \;  \frac{ 1 }{4 } \; m² \; =  \; " + A2 + " \; dm² \; (" + (10.0 * A2^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A2^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA3: "Formato \; A_3 \; = \;  \frac{ 1 }{8} \; m² \; = \; " + A3 + " \; dm² \; (" + (10.0 * A3^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A3^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA4: "Formato \; A_4 \; = \;  \frac{ 1 }{16 } \; m² \; = \; " + A4 + " \; dm² \; (" + (10.0 * A4^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A4^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA5: "Formato \; A_5 \; = \;  \frac{ 1 }{32 } \; m² \; = \; " + A5 + " \; dm² \; (" + (10.0 * A5^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A5^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"
TextA6: "Formato \; A_6 \; = \;  \frac{ 1 }{64 } \; m² \; = \; " + A6 + " \; dm² \; (" + (10.0 * A6^(1.0 / 2.0) / 2.0^(1.0 / 4.0)) + "cm \; x \; " + (10.0 * A6^(1.0 / 2.0) * 2.0^(1.0 / 4.0)) + "cm)"