Diseño 1

Diseño 2

Diseño 4

Diseño 3

Mostrar tabla de valores

Nº  baldosas blancas

Nº baldosas azules

n = 1 (slider from 1 to 15, step 1)
lista11 = Sequence(Polygon[(k - 3.0, 1.0), (k - 2.0, 1.0), (k - 2.0, 2.0), (k - 3.0, 2.0)], k, 1.0, n)
lista12 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 1.0, n)
lista13 = Sequence(Polygon[(k - 3.0, 3.0), (k - 2.0, 3.0), (k - 2.0, 4.0), (k - 3.0, 4.0)], k, 1.0, n)
a = false
b = false
d = false
c = false
lista21 = Sequence(Polygon[(k - 3.0, 1.0), (k - 2.0, 1.0), (k - 2.0, 2.0), (k - 3.0, 2.0)], k, 1.0, n)
lista22 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 1.0, n)
lista23 = Sequence(Polygon[(k - 3.0, 3.0), (k - 2.0, 3.0), (k - 2.0, 4.0), (k - 3.0, 4.0)], k, 1.0, n)
lista41 = Sequence(Polygon[(k - 3.0, 1.0), (k - 2.0, 1.0), (k - 2.0, 2.0), (k - 3.0, 2.0)], k, 1.0, n)
lista42 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 1.0, n)
lista44 = Sequence(Polygon[(k - 3.0, 3.0), (k - 2.0, 3.0), (k - 2.0, 4.0), (k - 3.0, 4.0)], k, 1.0, n)
lista43 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 2.0, n - 1.0)
lista31 = Sequence(Polygon[(k - 3.0, 1.0), (k - 2.0, 1.0), (k - 2.0, 2.0), (k - 3.0, 2.0)], k, 1.0, n)
lista32 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 1.0, n)
lista33 = Sequence(Polygon[(k - 3.0, 3.0), (k - 2.0, 3.0), (k - 2.0, 4.0), (k - 3.0, 4.0)], k, 1.0, n)
lista34 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 2.0, n - 1.0)
lista35 = Sequence(Polygon[(k - 3.0, 2.0), (k - 2.0, 2.0), (k - 2.0, 3.0), (k - 3.0, 3.0)], k, 2.0, n - 1.0)
A = (-0.72, -2.36)
e = false
v1 = Segment((-3.2, -3.0), (-3.2, -1.0))
v2 = Segment((-0.4, -3.0), (-0.4, -1.0))
h = Segment((-3.2, -1.0), (-0.4, -1.0))
g = Segment((-3.2, -2.0), (-0.4, -2.0))
f = Segment((-3.2, -3.0), (-0.4, -3.0))
listatab1x = Sequence(Text[k, (-1.0 + k, -(1.6))], k, 1.0, n)
listatab21 = Sequence(Text[2.0 * k, (-1.0 + k, -(2.6))], k, 1.0, n)
listatab22 = Sequence(Text[k, (-1.0 + k, -(2.6))], k, 1.0, n)
listatab23 = Sequence(Text[2.0 * k + 6.0, (-1.0 + k, -(2.6))], k, 1.0, n - 2.0)
listatab24 = Sequence(Text[k, (-1.0 + k, -(2.6))], k, 1.0, n - 2.0)
listatab2x = Sequence(Text[2.0 * k, (-1.0 + k, -(1.6))], k, 1.0, n)
listatab3x = Sequence(Text[k, (-1.0 + k, -(1.6))], k, 1.0, n - 2.0)
listatab4x = Sequence(Text[2.0 * k + 6.0, (-1.0 + k, -(1.6))], k, 1.0, n - 2.0)
listatablahor1 = Sequence(Segment[(-(0.4), -(3.0) + k), (-(0.4) + n, -(3.0) + k)], k, 0.0, 2.0)
listatablaver1 = Sequence(Segment[(-(0.4) + k, -(3.0)), (-(0.4) + k, -1.0)], k, 0.0, n)
listatablaver2 = Sequence(Segment[(-(0.4) + k, -(3.0)), (-(0.4) + k, -1.0)], k, 0.0, n - 2.0)
listatablahor2 = Sequence(Segment[(-(0.4), -(3.0) + k), (-(0.4) + n - 2.0, -(3.0) + k)], k, 0.0, 2.0)
texto1: "Longitud del pasillo: " + (round(n))