A = Point(Segment[(0, 0), (10, 0)])
B: (0, x(A))
polígono2: {Polygon[(0, 0), A, (x(A), y(B)), B]}
texto1: "" + (x(A))
texto2: "" + (y(B))
texto3: "Área = " + (x(A)) + " x " + (y(B)) + " = " + ((x(A) * y(B))) + " unidades cuadradas"
f = Segment(B, B - (0.4, 0))
polígono3, g, h, i, j = Polygon((-0.4, y(B) - 0.3), (-0.4, y(B) + 0.3), (-1.2, y(B) + 0.3), (-1.2, y(B) - 0.3))
a = Segment(A, A - (0, 0.4))
polígono4, c, d, e, b = Polygon((x(A) - 0.4, -0.4), (x(A) - 0.4, -1), (x(A) + 0.4, -1), (x(A) + 0.4, -0.4))
lista3: {Segment[A, (x(A), y(B))], Segment[B, (x(A), y(B))]}
lista1 = Sequence(Segment[(s, 0), (s, 10)], s, 1, 10)
lista2 = Sequence(Segment[(0, s), (10, s)], s, 1, 10)
polígono1: {Polygon[(0, 0), (10, 0), (10, 10), (0, 10)]}
Ax: A + (0.2, 0.2)
By: B + (0.3, 0)
C = Point(Circle[(x(A), 0, 0), Distance[(0, 0, 0), (x(A), 0, 0)], Segment[(0, 0, 0), (x(A), 0, 0)]])
k, D, E, F, G, H, cara1, cara3, cara2, cara4, caraCDHG, caraEFGH, arista2, arista1, arista4, aristaCD, arista3, aristaDH, aristaEH, aristaEF, arista5, aristaFG, aristaCG, aristaGH = Cube((0, 0, 0), (x(A), 0, 0), C)
texto4: "Volumen = " + (x(A)) + " x " + (x(A)) + " x " + (x(A)) + " =  " + (x(A)^(3)) + " unidades cúbicas"