1

1

n1 = 0 (slider from 0 to 18, step 1)
t = 0 (slider from -0.5 to 45, step 0.01)
tt = Max(t, 0)
A0 = (-4.1000000000000005, -3.900000000000001)
exp: 2^(tt) - 1
a: 9.65 + exp
A: A0 - ((2, 1) * exp)
m: 40
lista0: {Polygon[A, A + (a, 0), 4]}
B: A + (a, 0)
C: A + (a, a)
D: A + (0, a)
e = Segment(D, A)
lista2 = Sequence(Segment[A + (a * (2 - 1 / 2^(k), 1 - 1 / 2^(k + 1))), A + (a * (2, 1 - 1 / 2^(k + 1)))], k, 0, m)
lista3 = Sequence(Segment[A + (a * (2 - 1 / 2^(k), 1 - 1 / 2^(k))), A + (a * (2 - 1 / 2^(k), 1))], k, 1, m)
A1 = 1
A2: A1 + 1
B1: {Polygon[A + (a * (2 - 1 / 2^(A1 - 1), 1 - 1 / 2^(A1))), A + (a * (2 - 1 / 2^(A1), 1 - 1 / 2^(A1))), 4]}
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
A9: A8 + 1
A10: A9 + 1
A11: A10 + 1
A12: A11 + 1
A13: A12 + 1
A14: A13 + 1
A15: A14 + 1
A16: A15 + 1
A17: A16 + 1
A18: A17 + 1
A19: A18 + 1
A20: A19 + 1
A21: A20 + 1
A22: A21 + 1
A23: A22 + 1
A24: A23 + 1
A25: A24 + 1
A26: A25 + 1
A27: A26 + 1
A28: A27 + 1
A29: A28 + 1
A30: A29 + 1
A31: A30 + 1
A32: A31 + 1
A33: A32 + 1
A34: A33 + 1
A35: A34 + 1
A36: A35 + 1
A37: A36 + 1
A38: A37 + 1
A39: A38 + 1
A40: A39 + 1
A41: A40 + 1
A42: A41 + 1
A43: A42 + 1
A44: A43 + 1
A45: A44 + 1
A46: A45 + 1
A47: A46 + 1
A48: A47 + 1
A49: A48 + 1
A50: A49 + 1
A51: A50 + 1
A52: A51 + 1
A53: A52 + 1
A54: A53 + 1
A55: A54 + 1
A56: A55 + 1
A57: A56 + 1
A58: A57 + 1
A59: A58 + 1
A60: A59 + 1
B2: {Polygon[A + (a * (2 - 1 / 2^(A2 - 1), 1 - 1 / 2^(A2))), A + (a * (2 - 1 / 2^(A2), 1 - 1 / 2^(A2))), 4]}
B3: {Polygon[A + (a * (2 - 1 / 2^(A3 - 1), 1 - 1 / 2^(A3))), A + (a * (2 - 1 / 2^(A3), 1 - 1 / 2^(A3))), 4]}
B4: {Polygon[A + (a * (2 - 1 / 2^(A4 - 1), 1 - 1 / 2^(A4))), A + (a * (2 - 1 / 2^(A4), 1 - 1 / 2^(A4))), 4]}
B5: {Polygon[A + (a * (2 - 1 / 2^(A5 - 1), 1 - 1 / 2^(A5))), A + (a * (2 - 1 / 2^(A5), 1 - 1 / 2^(A5))), 4]}
B6: {Polygon[A + (a * (2 - 1 / 2^(A6 - 1), 1 - 1 / 2^(A6))), A + (a * (2 - 1 / 2^(A6), 1 - 1 / 2^(A6))), 4]}
B7: {Polygon[A + (a * (2 - 1 / 2^(A7 - 1), 1 - 1 / 2^(A7))), A + (a * (2 - 1 / 2^(A7), 1 - 1 / 2^(A7))), 4]}
B8: {Polygon[A + (a * (2 - 1 / 2^(A8 - 1), 1 - 1 / 2^(A8))), A + (a * (2 - 1 / 2^(A8), 1 - 1 / 2^(A8))), 4]}
B9: {Polygon[A + (a * (2 - 1 / 2^(A9 - 1), 1 - 1 / 2^(A9))), A + (a * (2 - 1 / 2^(A9), 1 - 1 / 2^(A9))), 4]}
B10: {Polygon[A + (a * (2 - 1 / 2^(A10 - 1), 1 - 1 / 2^(A10))), A + (a * (2 - 1 / 2^(A10), 1 - 1 / 2^(A10))), 4]}
B11: {Polygon[A + (a * (2 - 1 / 2^(A11 - 1), 1 - 1 / 2^(A11))), A + (a * (2 - 1 / 2^(A11), 1 - 1 / 2^(A11))), 4]}
B12: {Polygon[A + (a * (2 - 1 / 2^(A12 - 1), 1 - 1 / 2^(A12))), A + (a * (2 - 1 / 2^(A12), 1 - 1 / 2^(A12))), 4]}
B13: {Polygon[A + (a * (2 - 1 / 2^(A13 - 1), 1 - 1 / 2^(A13))), A + (a * (2 - 1 / 2^(A13), 1 - 1 / 2^(A13))), 4]}
B14: {Polygon[A + (a * (2 - 1 / 2^(A14 - 1), 1 - 1 / 2^(A14))), A + (a * (2 - 1 / 2^(A14), 1 - 1 / 2^(A14))), 4]}
B15: {Polygon[A + (a * (2 - 1 / 2^(A15 - 1), 1 - 1 / 2^(A15))), A + (a * (2 - 1 / 2^(A15), 1 - 1 / 2^(A15))), 4]}
B16: {Polygon[A + (a * (2 - 1 / 2^(A16 - 1), 1 - 1 / 2^(A16))), A + (a * (2 - 1 / 2^(A16), 1 - 1 / 2^(A16))), 4]}
B17: {Polygon[A + (a * (2 - 1 / 2^(A17 - 1), 1 - 1 / 2^(A17))), A + (a * (2 - 1 / 2^(A17), 1 - 1 / 2^(A17))), 4]}
B18: {Polygon[A + (a * (2 - 1 / 2^(A18 - 1), 1 - 1 / 2^(A18))), A + (a * (2 - 1 / 2^(A18), 1 - 1 / 2^(A18))), 4]}
B19: {Polygon[A + (a * (2 - 1 / 2^(A19 - 1), 1 - 1 / 2^(A19))), A + (a * (2 - 1 / 2^(A19), 1 - 1 / 2^(A19))), 4]}
B20: {Polygon[A + (a * (2 - 1 / 2^(A20 - 1), 1 - 1 / 2^(A20))), A + (a * (2 - 1 / 2^(A20), 1 - 1 / 2^(A20))), 4]}
B21: {Polygon[A + (a * (2 - 1 / 2^(A21 - 1), 1 - 1 / 2^(A21))), A + (a * (2 - 1 / 2^(A21), 1 - 1 / 2^(A21))), 4]}
B22: {Polygon[A + (a * (2 - 1 / 2^(A22 - 1), 1 - 1 / 2^(A22))), A + (a * (2 - 1 / 2^(A22), 1 - 1 / 2^(A22))), 4]}
B23: {Polygon[A + (a * (2 - 1 / 2^(A23 - 1), 1 - 1 / 2^(A23))), A + (a * (2 - 1 / 2^(A23), 1 - 1 / 2^(A23))), 4]}
B24: {Polygon[A + (a * (2 - 1 / 2^(A24 - 1), 1 - 1 / 2^(A24))), A + (a * (2 - 1 / 2^(A24), 1 - 1 / 2^(A24))), 4]}
B25: {Polygon[A + (a * (2 - 1 / 2^(A25 - 1), 1 - 1 / 2^(A25))), A + (a * (2 - 1 / 2^(A25), 1 - 1 / 2^(A25))), 4]}
B26: {Polygon[A + (a * (2 - 1 / 2^(A26 - 1), 1 - 1 / 2^(A26))), A + (a * (2 - 1 / 2^(A26), 1 - 1 / 2^(A26))), 4]}
B27: {Polygon[A + (a * (2 - 1 / 2^(A27 - 1), 1 - 1 / 2^(A27))), A + (a * (2 - 1 / 2^(A27), 1 - 1 / 2^(A27))), 4]}
B28: {Polygon[A + (a * (2 - 1 / 2^(A28 - 1), 1 - 1 / 2^(A28))), A + (a * (2 - 1 / 2^(A28), 1 - 1 / 2^(A28))), 4]}
B29: {Polygon[A + (a * (2 - 1 / 2^(A29 - 1), 1 - 1 / 2^(A29))), A + (a * (2 - 1 / 2^(A29), 1 - 1 / 2^(A29))), 4]}
B30: {Polygon[A + (a * (2 - 1 / 2^(A30 - 1), 1 - 1 / 2^(A30))), A + (a * (2 - 1 / 2^(A30), 1 - 1 / 2^(A30))), 4]}
B31: {Polygon[A + (a * (2 - 1 / 2^(A31 - 1), 1 - 1 / 2^(A31))), A + (a * (2 - 1 / 2^(A31), 1 - 1 / 2^(A31))), 4]}
B32: {Polygon[A + (a * (2 - 1 / 2^(A32 - 1), 1 - 1 / 2^(A32))), A + (a * (2 - 1 / 2^(A32), 1 - 1 / 2^(A32))), 4]}
B33: {Polygon[A + (a * (2 - 1 / 2^(A33 - 1), 1 - 1 / 2^(A33))), A + (a * (2 - 1 / 2^(A33), 1 - 1 / 2^(A33))), 4]}
B34: {Polygon[A + (a * (2 - 1 / 2^(A34 - 1), 1 - 1 / 2^(A34))), A + (a * (2 - 1 / 2^(A34), 1 - 1 / 2^(A34))), 4]}
B35: {Polygon[A + (a * (2 - 1 / 2^(A35 - 1), 1 - 1 / 2^(A35))), A + (a * (2 - 1 / 2^(A35), 1 - 1 / 2^(A35))), 4]}
B36: {Polygon[A + (a * (2 - 1 / 2^(A36 - 1), 1 - 1 / 2^(A36))), A + (a * (2 - 1 / 2^(A36), 1 - 1 / 2^(A36))), 4]}
B37: {Polygon[A + (a * (2 - 1 / 2^(A37 - 1), 1 - 1 / 2^(A37))), A + (a * (2 - 1 / 2^(A37), 1 - 1 / 2^(A37))), 4]}
B38: {Polygon[A + (a * (2 - 1 / 2^(A38 - 1), 1 - 1 / 2^(A38))), A + (a * (2 - 1 / 2^(A38), 1 - 1 / 2^(A38))), 4]}
B39: {Polygon[A + (a * (2 - 1 / 2^(A39 - 1), 1 - 1 / 2^(A39))), A + (a * (2 - 1 / 2^(A39), 1 - 1 / 2^(A39))), 4]}
B40: {Polygon[A + (a * (2 - 1 / 2^(A40 - 1), 1 - 1 / 2^(A40))), A + (a * (2 - 1 / 2^(A40), 1 - 1 / 2^(A40))), 4]}
B41: {Polygon[A + (a * (2 - 1 / 2^(A41 - 1), 1 - 1 / 2^(A41))), A + (a * (2 - 1 / 2^(A41), 1 - 1 / 2^(A41))), 4]}
B42: {Polygon[A + (a * (2 - 1 / 2^(A42 - 1), 1 - 1 / 2^(A42))), A + (a * (2 - 1 / 2^(A42), 1 - 1 / 2^(A42))), 4]}
B43: {Polygon[A + (a * (2 - 1 / 2^(A43 - 1), 1 - 1 / 2^(A43))), A + (a * (2 - 1 / 2^(A43), 1 - 1 / 2^(A43))), 4]}
B44: {Polygon[A + (a * (2 - 1 / 2^(A44 - 1), 1 - 1 / 2^(A44))), A + (a * (2 - 1 / 2^(A44), 1 - 1 / 2^(A44))), 4]}
B45: {Polygon[A + (a * (2 - 1 / 2^(A45 - 1), 1 - 1 / 2^(A45))), A + (a * (2 - 1 / 2^(A45), 1 - 1 / 2^(A45))), 4]}
B46: {Polygon[A + (a * (2 - 1 / 2^(A46 - 1), 1 - 1 / 2^(A46))), A + (a * (2 - 1 / 2^(A46), 1 - 1 / 2^(A46))), 4]}
B47: {Polygon[A + (a * (2 - 1 / 2^(A47 - 1), 1 - 1 / 2^(A47))), A + (a * (2 - 1 / 2^(A47), 1 - 1 / 2^(A47))), 4]}
B48: {Polygon[A + (a * (2 - 1 / 2^(A48 - 1), 1 - 1 / 2^(A48))), A + (a * (2 - 1 / 2^(A48), 1 - 1 / 2^(A48))), 4]}
B49: {Polygon[A + (a * (2 - 1 / 2^(A49 - 1), 1 - 1 / 2^(A49))), A + (a * (2 - 1 / 2^(A49), 1 - 1 / 2^(A49))), 4]}
B50: {Polygon[A + (a * (2 - 1 / 2^(A50 - 1), 1 - 1 / 2^(A50))), A + (a * (2 - 1 / 2^(A50), 1 - 1 / 2^(A50))), 4]}
B51: {Polygon[A + (a * (2 - 1 / 2^(A51 - 1), 1 - 1 / 2^(A51))), A + (a * (2 - 1 / 2^(A51), 1 - 1 / 2^(A51))), 4]}
B52: {Polygon[A + (a * (2 - 1 / 2^(A52 - 1), 1 - 1 / 2^(A52))), A + (a * (2 - 1 / 2^(A52), 1 - 1 / 2^(A52))), 4]}
B53: {Polygon[A + (a * (2 - 1 / 2^(A53 - 1), 1 - 1 / 2^(A53))), A + (a * (2 - 1 / 2^(A53), 1 - 1 / 2^(A53))), 4]}
B54: {Polygon[A + (a * (2 - 1 / 2^(A54 - 1), 1 - 1 / 2^(A54))), A + (a * (2 - 1 / 2^(A54), 1 - 1 / 2^(A54))), 4]}
B55: {Polygon[A + (a * (2 - 1 / 2^(A55 - 1), 1 - 1 / 2^(A55))), A + (a * (2 - 1 / 2^(A55), 1 - 1 / 2^(A55))), 4]}
B56: {Polygon[A + (a * (2 - 1 / 2^(A56 - 1), 1 - 1 / 2^(A56))), A + (a * (2 - 1 / 2^(A56), 1 - 1 / 2^(A56))), 4]}
B57: {Polygon[A + (a * (2 - 1 / 2^(A57 - 1), 1 - 1 / 2^(A57))), A + (a * (2 - 1 / 2^(A57), 1 - 1 / 2^(A57))), 4]}
B58: {Polygon[A + (a * (2 - 1 / 2^(A58 - 1), 1 - 1 / 2^(A58))), A + (a * (2 - 1 / 2^(A58), 1 - 1 / 2^(A58))), 4]}
B59: {Polygon[A + (a * (2 - 1 / 2^(A59 - 1), 1 - 1 / 2^(A59))), A + (a * (2 - 1 / 2^(A59), 1 - 1 / 2^(A59))), 4]}
B60: {Polygon[A + (a * (2 - 1 / 2^(A60 - 1), 1 - 1 / 2^(A60))), A + (a * (2 - 1 / 2^(A60), 1 - 1 / 2^(A60))), 4]}
C1: {Polygon[A + (a * (2 - 1 / 2^(A1), 1 - 1 / 2^(A1))), A + (a * (2, 1 - 1 / 2^(A1))), A + (a * (2, 1 - 1 / 2^(A1 + 1))), A + (a * (2 - 1 / 2^(A1), 1 - 1 / 2^(A1 + 1)))]}
C2: {Polygon[A + (a * (2 - 1 / 2^(A2), 1 - 1 / 2^(A2))), A + (a * (2, 1 - 1 / 2^(A2))), A + (a * (2, 1 - 1 / 2^(A2 + 1))), A + (a * (2 - 1 / 2^(A2), 1 - 1 / 2^(A2 + 1)))]}
C3: {Polygon[A + (a * (2 - 1 / 2^(A3), 1 - 1 / 2^(A3))), A + (a * (2, 1 - 1 / 2^(A3))), A + (a * (2, 1 - 1 / 2^(A3 + 1))), A + (a * (2 - 1 / 2^(A3), 1 - 1 / 2^(A3 + 1)))]}
C4: {Polygon[A + (a * (2 - 1 / 2^(A4), 1 - 1 / 2^(A4))), A + (a * (2, 1 - 1 / 2^(A4))), A + (a * (2, 1 - 1 / 2^(A4 + 1))), A + (a * (2 - 1 / 2^(A4), 1 - 1 / 2^(A4 + 1)))]}
C5: {Polygon[A + (a * (2 - 1 / 2^(A5), 1 - 1 / 2^(A5))), A + (a * (2, 1 - 1 / 2^(A5))), A + (a * (2, 1 - 1 / 2^(A5 + 1))), A + (a * (2 - 1 / 2^(A5), 1 - 1 / 2^(A5 + 1)))]}
C6: {Polygon[A + (a * (2 - 1 / 2^(A6), 1 - 1 / 2^(A6))), A + (a * (2, 1 - 1 / 2^(A6))), A + (a * (2, 1 - 1 / 2^(A6 + 1))), A + (a * (2 - 1 / 2^(A6), 1 - 1 / 2^(A6 + 1)))]}
C7: {Polygon[A + (a * (2 - 1 / 2^(A7), 1 - 1 / 2^(A7))), A + (a * (2, 1 - 1 / 2^(A7))), A + (a * (2, 1 - 1 / 2^(A7 + 1))), A + (a * (2 - 1 / 2^(A7), 1 - 1 / 2^(A7 + 1)))]}
C8: {Polygon[A + (a * (2 - 1 / 2^(A8), 1 - 1 / 2^(A8))), A + (a * (2, 1 - 1 / 2^(A8))), A + (a * (2, 1 - 1 / 2^(A8 + 1))), A + (a * (2 - 1 / 2^(A8), 1 - 1 / 2^(A8 + 1)))]}
C9: {Polygon[A + (a * (2 - 1 / 2^(A9), 1 - 1 / 2^(A9))), A + (a * (2, 1 - 1 / 2^(A9))), A + (a * (2, 1 - 1 / 2^(A9 + 1))), A + (a * (2 - 1 / 2^(A9), 1 - 1 / 2^(A9 + 1)))]}
C10: {Polygon[A + (a * (2 - 1 / 2^(A10), 1 - 1 / 2^(A10))), A + (a * (2, 1 - 1 / 2^(A10))), A + (a * (2, 1 - 1 / 2^(A10 + 1))), A + (a * (2 - 1 / 2^(A10), 1 - 1 / 2^(A10 + 1)))]}
C11: {Polygon[A + (a * (2 - 1 / 2^(A11), 1 - 1 / 2^(A11))), A + (a * (2, 1 - 1 / 2^(A11))), A + (a * (2, 1 - 1 / 2^(A11 + 1))), A + (a * (2 - 1 / 2^(A11), 1 - 1 / 2^(A11 + 1)))]}
C12: {Polygon[A + (a * (2 - 1 / 2^(A12), 1 - 1 / 2^(A12))), A + (a * (2, 1 - 1 / 2^(A12))), A + (a * (2, 1 - 1 / 2^(A12 + 1))), A + (a * (2 - 1 / 2^(A12), 1 - 1 / 2^(A12 + 1)))]}
C13: {Polygon[A + (a * (2 - 1 / 2^(A13), 1 - 1 / 2^(A13))), A + (a * (2, 1 - 1 / 2^(A13))), A + (a * (2, 1 - 1 / 2^(A13 + 1))), A + (a * (2 - 1 / 2^(A13), 1 - 1 / 2^(A13 + 1)))]}
C14: {Polygon[A + (a * (2 - 1 / 2^(A14), 1 - 1 / 2^(A14))), A + (a * (2, 1 - 1 / 2^(A14))), A + (a * (2, 1 - 1 / 2^(A14 + 1))), A + (a * (2 - 1 / 2^(A14), 1 - 1 / 2^(A14 + 1)))]}
C15: {Polygon[A + (a * (2 - 1 / 2^(A15), 1 - 1 / 2^(A15))), A + (a * (2, 1 - 1 / 2^(A15))), A + (a * (2, 1 - 1 / 2^(A15 + 1))), A + (a * (2 - 1 / 2^(A15), 1 - 1 / 2^(A15 + 1)))]}
C16: {Polygon[A + (a * (2 - 1 / 2^(A16), 1 - 1 / 2^(A16))), A + (a * (2, 1 - 1 / 2^(A16))), A + (a * (2, 1 - 1 / 2^(A16 + 1))), A + (a * (2 - 1 / 2^(A16), 1 - 1 / 2^(A16 + 1)))]}
C17: {Polygon[A + (a * (2 - 1 / 2^(A17), 1 - 1 / 2^(A17))), A + (a * (2, 1 - 1 / 2^(A17))), A + (a * (2, 1 - 1 / 2^(A17 + 1))), A + (a * (2 - 1 / 2^(A17), 1 - 1 / 2^(A17 + 1)))]}
C18: {Polygon[A + (a * (2 - 1 / 2^(A18), 1 - 1 / 2^(A18))), A + (a * (2, 1 - 1 / 2^(A18))), A + (a * (2, 1 - 1 / 2^(A18 + 1))), A + (a * (2 - 1 / 2^(A18), 1 - 1 / 2^(A18 + 1)))]}
C19: {Polygon[A + (a * (2 - 1 / 2^(A19), 1 - 1 / 2^(A19))), A + (a * (2, 1 - 1 / 2^(A19))), A + (a * (2, 1 - 1 / 2^(A19 + 1))), A + (a * (2 - 1 / 2^(A19), 1 - 1 / 2^(A19 + 1)))]}
C20: {Polygon[A + (a * (2 - 1 / 2^(A20), 1 - 1 / 2^(A20))), A + (a * (2, 1 - 1 / 2^(A20))), A + (a * (2, 1 - 1 / 2^(A20 + 1))), A + (a * (2 - 1 / 2^(A20), 1 - 1 / 2^(A20 + 1)))]}
C21: {Polygon[A + (a * (2 - 1 / 2^(A21), 1 - 1 / 2^(A21))), A + (a * (2, 1 - 1 / 2^(A21))), A + (a * (2, 1 - 1 / 2^(A21 + 1))), A + (a * (2 - 1 / 2^(A21), 1 - 1 / 2^(A21 + 1)))]}
C22: {Polygon[A + (a * (2 - 1 / 2^(A22), 1 - 1 / 2^(A22))), A + (a * (2, 1 - 1 / 2^(A22))), A + (a * (2, 1 - 1 / 2^(A22 + 1))), A + (a * (2 - 1 / 2^(A22), 1 - 1 / 2^(A22 + 1)))]}
C23: {Polygon[A + (a * (2 - 1 / 2^(A23), 1 - 1 / 2^(A23))), A + (a * (2, 1 - 1 / 2^(A23))), A + (a * (2, 1 - 1 / 2^(A23 + 1))), A + (a * (2 - 1 / 2^(A23), 1 - 1 / 2^(A23 + 1)))]}
C24: {Polygon[A + (a * (2 - 1 / 2^(A24), 1 - 1 / 2^(A24))), A + (a * (2, 1 - 1 / 2^(A24))), A + (a * (2, 1 - 1 / 2^(A24 + 1))), A + (a * (2 - 1 / 2^(A24), 1 - 1 / 2^(A24 + 1)))]}
C25: {Polygon[A + (a * (2 - 1 / 2^(A25), 1 - 1 / 2^(A25))), A + (a * (2, 1 - 1 / 2^(A25))), A + (a * (2, 1 - 1 / 2^(A25 + 1))), A + (a * (2 - 1 / 2^(A25), 1 - 1 / 2^(A25 + 1)))]}
C26: {Polygon[A + (a * (2 - 1 / 2^(A26), 1 - 1 / 2^(A26))), A + (a * (2, 1 - 1 / 2^(A26))), A + (a * (2, 1 - 1 / 2^(A26 + 1))), A + (a * (2 - 1 / 2^(A26), 1 - 1 / 2^(A26 + 1)))]}
C27: {Polygon[A + (a * (2 - 1 / 2^(A27), 1 - 1 / 2^(A27))), A + (a * (2, 1 - 1 / 2^(A27))), A + (a * (2, 1 - 1 / 2^(A27 + 1))), A + (a * (2 - 1 / 2^(A27), 1 - 1 / 2^(A27 + 1)))]}
C28: {Polygon[A + (a * (2 - 1 / 2^(A28), 1 - 1 / 2^(A28))), A + (a * (2, 1 - 1 / 2^(A28))), A + (a * (2, 1 - 1 / 2^(A28 + 1))), A + (a * (2 - 1 / 2^(A28), 1 - 1 / 2^(A28 + 1)))]}
C29: {Polygon[A + (a * (2 - 1 / 2^(A29), 1 - 1 / 2^(A29))), A + (a * (2, 1 - 1 / 2^(A29))), A + (a * (2, 1 - 1 / 2^(A29 + 1))), A + (a * (2 - 1 / 2^(A29), 1 - 1 / 2^(A29 + 1)))]}
C30: {Polygon[A + (a * (2 - 1 / 2^(A30), 1 - 1 / 2^(A30))), A + (a * (2, 1 - 1 / 2^(A30))), A + (a * (2, 1 - 1 / 2^(A30 + 1))), A + (a * (2 - 1 / 2^(A30), 1 - 1 / 2^(A30 + 1)))]}
C31: {Polygon[A + (a * (2 - 1 / 2^(A31), 1 - 1 / 2^(A31))), A + (a * (2, 1 - 1 / 2^(A31))), A + (a * (2, 1 - 1 / 2^(A31 + 1))), A + (a * (2 - 1 / 2^(A31), 1 - 1 / 2^(A31 + 1)))]}
C32: {Polygon[A + (a * (2 - 1 / 2^(A32), 1 - 1 / 2^(A32))), A + (a * (2, 1 - 1 / 2^(A32))), A + (a * (2, 1 - 1 / 2^(A32 + 1))), A + (a * (2 - 1 / 2^(A32), 1 - 1 / 2^(A32 + 1)))]}
C33: {Polygon[A + (a * (2 - 1 / 2^(A33), 1 - 1 / 2^(A33))), A + (a * (2, 1 - 1 / 2^(A33))), A + (a * (2, 1 - 1 / 2^(A33 + 1))), A + (a * (2 - 1 / 2^(A33), 1 - 1 / 2^(A33 + 1)))]}
C34: {Polygon[A + (a * (2 - 1 / 2^(A34), 1 - 1 / 2^(A34))), A + (a * (2, 1 - 1 / 2^(A34))), A + (a * (2, 1 - 1 / 2^(A34 + 1))), A + (a * (2 - 1 / 2^(A34), 1 - 1 / 2^(A34 + 1)))]}
C35: {Polygon[A + (a * (2 - 1 / 2^(A35), 1 - 1 / 2^(A35))), A + (a * (2, 1 - 1 / 2^(A35))), A + (a * (2, 1 - 1 / 2^(A35 + 1))), A + (a * (2 - 1 / 2^(A35), 1 - 1 / 2^(A35 + 1)))]}
C36: {Polygon[A + (a * (2 - 1 / 2^(A36), 1 - 1 / 2^(A36))), A + (a * (2, 1 - 1 / 2^(A36))), A + (a * (2, 1 - 1 / 2^(A36 + 1))), A + (a * (2 - 1 / 2^(A36), 1 - 1 / 2^(A36 + 1)))]}
C37: {Polygon[A + (a * (2 - 1 / 2^(A37), 1 - 1 / 2^(A37))), A + (a * (2, 1 - 1 / 2^(A37))), A + (a * (2, 1 - 1 / 2^(A37 + 1))), A + (a * (2 - 1 / 2^(A37), 1 - 1 / 2^(A37 + 1)))]}
C38: {Polygon[A + (a * (2 - 1 / 2^(A38), 1 - 1 / 2^(A38))), A + (a * (2, 1 - 1 / 2^(A38))), A + (a * (2, 1 - 1 / 2^(A38 + 1))), A + (a * (2 - 1 / 2^(A38), 1 - 1 / 2^(A38 + 1)))]}
C39: {Polygon[A + (a * (2 - 1 / 2^(A39), 1 - 1 / 2^(A39))), A + (a * (2, 1 - 1 / 2^(A39))), A + (a * (2, 1 - 1 / 2^(A39 + 1))), A + (a * (2 - 1 / 2^(A39), 1 - 1 / 2^(A39 + 1)))]}
C40: {Polygon[A + (a * (2 - 1 / 2^(A40), 1 - 1 / 2^(A40))), A + (a * (2, 1 - 1 / 2^(A40))), A + (a * (2, 1 - 1 / 2^(A40 + 1))), A + (a * (2 - 1 / 2^(A40), 1 - 1 / 2^(A40 + 1)))]}
C41: {Polygon[A + (a * (2 - 1 / 2^(A41), 1 - 1 / 2^(A41))), A + (a * (2, 1 - 1 / 2^(A41))), A + (a * (2, 1 - 1 / 2^(A41 + 1))), A + (a * (2 - 1 / 2^(A41), 1 - 1 / 2^(A41 + 1)))]}
C42: {Polygon[A + (a * (2 - 1 / 2^(A42), 1 - 1 / 2^(A42))), A + (a * (2, 1 - 1 / 2^(A42))), A + (a * (2, 1 - 1 / 2^(A42 + 1))), A + (a * (2 - 1 / 2^(A42), 1 - 1 / 2^(A42 + 1)))]}
C43: {Polygon[A + (a * (2 - 1 / 2^(A43), 1 - 1 / 2^(A43))), A + (a * (2, 1 - 1 / 2^(A43))), A + (a * (2, 1 - 1 / 2^(A43 + 1))), A + (a * (2 - 1 / 2^(A43), 1 - 1 / 2^(A43 + 1)))]}
C44: {Polygon[A + (a * (2 - 1 / 2^(A44), 1 - 1 / 2^(A44))), A + (a * (2, 1 - 1 / 2^(A44))), A + (a * (2, 1 - 1 / 2^(A44 + 1))), A + (a * (2 - 1 / 2^(A44), 1 - 1 / 2^(A44 + 1)))]}
C45: {Polygon[A + (a * (2 - 1 / 2^(A45), 1 - 1 / 2^(A45))), A + (a * (2, 1 - 1 / 2^(A45))), A + (a * (2, 1 - 1 / 2^(A45 + 1))), A + (a * (2 - 1 / 2^(A45), 1 - 1 / 2^(A45 + 1)))]}
C46: {Polygon[A + (a * (2 - 1 / 2^(A46), 1 - 1 / 2^(A46))), A + (a * (2, 1 - 1 / 2^(A46))), A + (a * (2, 1 - 1 / 2^(A46 + 1))), A + (a * (2 - 1 / 2^(A46), 1 - 1 / 2^(A46 + 1)))]}
C47: {Polygon[A + (a * (2 - 1 / 2^(A47), 1 - 1 / 2^(A47))), A + (a * (2, 1 - 1 / 2^(A47))), A + (a * (2, 1 - 1 / 2^(A47 + 1))), A + (a * (2 - 1 / 2^(A47), 1 - 1 / 2^(A47 + 1)))]}
C48: {Polygon[A + (a * (2 - 1 / 2^(A48), 1 - 1 / 2^(A48))), A + (a * (2, 1 - 1 / 2^(A48))), A + (a * (2, 1 - 1 / 2^(A48 + 1))), A + (a * (2 - 1 / 2^(A48), 1 - 1 / 2^(A48 + 1)))]}
C49: {Polygon[A + (a * (2 - 1 / 2^(A49), 1 - 1 / 2^(A49))), A + (a * (2, 1 - 1 / 2^(A49))), A + (a * (2, 1 - 1 / 2^(A49 + 1))), A + (a * (2 - 1 / 2^(A49), 1 - 1 / 2^(A49 + 1)))]}
C50: {Polygon[A + (a * (2 - 1 / 2^(A50), 1 - 1 / 2^(A50))), A + (a * (2, 1 - 1 / 2^(A50))), A + (a * (2, 1 - 1 / 2^(A50 + 1))), A + (a * (2 - 1 / 2^(A50), 1 - 1 / 2^(A50 + 1)))]}
C51: {Polygon[A + (a * (2 - 1 / 2^(A51), 1 - 1 / 2^(A51))), A + (a * (2, 1 - 1 / 2^(A51))), A + (a * (2, 1 - 1 / 2^(A51 + 1))), A + (a * (2 - 1 / 2^(A51), 1 - 1 / 2^(A51 + 1)))]}
C52: {Polygon[A + (a * (2 - 1 / 2^(A52), 1 - 1 / 2^(A52))), A + (a * (2, 1 - 1 / 2^(A52))), A + (a * (2, 1 - 1 / 2^(A52 + 1))), A + (a * (2 - 1 / 2^(A52), 1 - 1 / 2^(A52 + 1)))]}
C53: {Polygon[A + (a * (2 - 1 / 2^(A53), 1 - 1 / 2^(A53))), A + (a * (2, 1 - 1 / 2^(A53))), A + (a * (2, 1 - 1 / 2^(A53 + 1))), A + (a * (2 - 1 / 2^(A53), 1 - 1 / 2^(A53 + 1)))]}
C54: {Polygon[A + (a * (2 - 1 / 2^(A54), 1 - 1 / 2^(A54))), A + (a * (2, 1 - 1 / 2^(A54))), A + (a * (2, 1 - 1 / 2^(A54 + 1))), A + (a * (2 - 1 / 2^(A54), 1 - 1 / 2^(A54 + 1)))]}
C55: {Polygon[A + (a * (2 - 1 / 2^(A55), 1 - 1 / 2^(A55))), A + (a * (2, 1 - 1 / 2^(A55))), A + (a * (2, 1 - 1 / 2^(A55 + 1))), A + (a * (2 - 1 / 2^(A55), 1 - 1 / 2^(A55 + 1)))]}
C56: {Polygon[A + (a * (2 - 1 / 2^(A56), 1 - 1 / 2^(A56))), A + (a * (2, 1 - 1 / 2^(A56))), A + (a * (2, 1 - 1 / 2^(A56 + 1))), A + (a * (2 - 1 / 2^(A56), 1 - 1 / 2^(A56 + 1)))]}
C57: {Polygon[A + (a * (2 - 1 / 2^(A57), 1 - 1 / 2^(A57))), A + (a * (2, 1 - 1 / 2^(A57))), A + (a * (2, 1 - 1 / 2^(A57 + 1))), A + (a * (2 - 1 / 2^(A57), 1 - 1 / 2^(A57 + 1)))]}
C58: {Polygon[A + (a * (2 - 1 / 2^(A58), 1 - 1 / 2^(A58))), A + (a * (2, 1 - 1 / 2^(A58))), A + (a * (2, 1 - 1 / 2^(A58 + 1))), A + (a * (2 - 1 / 2^(A58), 1 - 1 / 2^(A58 + 1)))]}
C59: {Polygon[A + (a * (2 - 1 / 2^(A59), 1 - 1 / 2^(A59))), A + (a * (2, 1 - 1 / 2^(A59))), A + (a * (2, 1 - 1 / 2^(A59 + 1))), A + (a * (2 - 1 / 2^(A59), 1 - 1 / 2^(A59 + 1)))]}
C60: {Polygon[A + (a * (2 - 1 / 2^(A60), 1 - 1 / 2^(A60))), A + (a * (2, 1 - 1 / 2^(A60))), A + (a * (2, 1 - 1 / 2^(A60 + 1))), A + (a * (2 - 1 / 2^(A60), 1 - 1 / 2^(A60 + 1)))]}
lista1: {Polygon[A + (a, 0), A + ((2 * a), 0), A + ((2 * a), a / 2), A + (a, a / 2)]}
nada = 1.6 (slider from -5 to 5, step 0.1)
g = Segment(C, B)
E: A + ((2 * a), a)
F: A + ((2 * a), 0)
c = Segment(E, F)
d = Segment(D, E)
b = Segment(A, F)
n: round(n1)
v: (sqrt(t + 0.51) + 1) / 10
lista2b = Sequence(Segment[A + (a * (2 - 1 / 2^(k), 1 - 1 / 2^(k + 1))), A + (a * (2, 1 - 1 / 2^(k + 1)))], k, 0, n - 1)
lista3b = Sequence(Segment[A + (a * (2 - 1 / 2^(k), 1 - 1 / 2^(k))), A + (a * (2 - 1 / 2^(k), 1))], k, 1, n - 1)
lista4 = Sequence(FractionText[1 / k], k, 1, n)
G = Midpoint(A, C)
H = Midpoint(B, E)
polígono1: {Polygon[D, A, B, C]}
polígono2: {Polygon[B, F, E, C]}
texto3: "n = " + n