C = (14.249086196682457, 9.121977191943131)
A = (2.1061833530805667, 1.0350029620853123)
B = (18.504078791469183, -0.1842639218009435)
etapa = 0 (slider from 0 to 7, step 1)
b = Vector(A, C)
a = Vector(A, B)
p: {Polygon[A, B, C]}
L = Sequence(Sequence[Sequence[Polygon[A + (2 * j - 1) / 2^(k) * b + (2 * i + 1) / 2^(k) * a, A + (2 * j - 1) / 2^(k) * b + i / 2^(k - 1) * a, A + (j - 1) / 2^(k - 1) * b + (2 * i + 1) / 2^(k) * a], i, 0, 2^(k - 1) - j], j, 1, 2^(k - 1)], k, 1, 7)
L1 = Element(L, 1)
L2 = Element(L, 2)
L3 = Element(L, 3)
L4 = Element(L, 4)
L5 = Element(L, 5)
L6 = Element(L, 6)
L7 = Element(L, 7)
texto1: "Iteración " + etapa + ""