a50 = 0 (slider from 0 to 9, step 1)
a40 = 0 (slider from 0 to 9, step 1)
a30 = 0 (slider from 0 to 9, step 1)
a20 = 0 (slider from 0 to 9, step 1)
a10 = 0 (slider from 0 to 9, step 1)
a0 = 100 (slider from 100 to 999, step 1)
a: round(a0)
aa: a / 100.0
mm: sqrt(aa)
m: sqrt(a)
a1a: floor(mm)
a1: round(a10)
a1b = Min(a1, a1a)
R1: (a1b * sqrt(10.0), -(5.0))
a2a: floor(10.0 * (mm - a1a))
a2: round(a20)
a2b = Min(a2, a2a)
R2: R1 + (a2b * sqrt(10.0) / 10.0, 0.0)
a3a: floor(100.0 * (mm - a1a - a2a / 10.0))
a3: round(a30)
a3b = Min(a3, a3a)
R3: R2 + (a3b * sqrt(10.0) / 100.0, 0.0)
a4a: floor(1000.0 * (mm - a1a - a2a / 10.0 - a3a / 100.0))
a4: round(a40)
a4b = Min(a4, a4a)
R4: R3 + (a4b * sqrt(10.0) / 1000.0, 0.0)
a5a: floor(10000.0 * (mm - a1a - a2a / 10.0 - a3a / 100.0 - a4a / 1000.0))
a5: round(a50)
a5b = Min(a5, a5a)
R5: R4 + (a5b * sqrt(10.0) / 10000.0, 0.0)
raiz: 10.0 * a1b + a2b + a3b / 10.0 + a4b / 100.0 + a5b / 1000.0
error: m - raiz
lista1: {Polygon[(0.0, -5.0), R1, 4.0]}
lista2a: {Polygon[R1, R2, R2 + (0.0, x(R1)), R1 + (0.0, x(R1))], Polygon[(0.0, x(R1) - 5.0), (0.0, x(R2) - 5.0), R1 + (0.0, x(R2)), R1 + (0.0, x(R1))]}
lista2b: {Polygon[R1 + (0.0, x(R1)), R2 + (0.0, x(R1)), R2 + (0.0, x(R2)), R1 + (0.0, x(R2))]}
lista3a: {Polygon[R2, R3, R3 + (0.0, x(R2)), R2 + (0.0, x(R2))], Polygon[(0.0, x(R2) - 5.0), (0.0, x(R3) - 5.0), R2 + (0.0, x(R3)), R2 + (0.0, x(R2))]}
lista3b: {Polygon[R2 + (0.0, x(R2)), R3 + (0.0, x(R2)), R3 + (0.0, x(R3)), R2 + (0.0, x(R3))]}
lista4a: {Polygon[R3, R4, R4 + (0.0, x(R3)), R3 + (0.0, x(R3))], Polygon[(0.0, x(R3) - 5.0), (0.0, x(R4) - 5.0), R3 + (0.0, x(R4)), R3 + (0.0, x(R3))]}
lista4b: {Polygon[R3 + (0.0, x(R3)), R4 + (0.0, x(R3)), R4 + (0.0, x(R4)), R3 + (0.0, x(R4))]}
lista5a: {Polygon[R4, R5, R5 + (0.0, x(R4)), R4 + (0.0, x(R4))], Polygon[(0.0, x(R4) - 5.0), (0.0, x(R5) - 5.0), R4 + (0.0, x(R5)), R4 + (0.0, x(R4))]}
lista5b: {Polygon[R4 + (0.0, x(R4)), R5 + (0.0, x(R4)), R5 + (0.0, x(R5)), R4 + (0.0, x(R5))]}
texto1: "" + a1b
texto3: "" + a2b
texto4: "" + a3b
texto5: "" + a4b
texto6: "" + a5b
texto7: "Raíz calculada = " + raiz
texto9: "Error = " + error
polígono1 = Polygon((0.0, -5.0), (mm * sqrt(10.0), -(5.0)), 4.0)
texto2: "Área cuadrado = " + a + " cm²"
texto11: "r ² = " + a
c: floor(mm)
A = (11, 5)
B = (11, 4)
C = (11, 3)
D = (11, 2)
E = (11, 1)
F = (11, 0)
G = (11, -1)
texto18: "Decena exacta:  " + (10.0 * c) + "² = " + (100.0 * c^(2.0))
texto17: "(" + (20.0 * c) + " + x) x  = " + (a - 100.0 * c^(2.0))
H = (11, -2)
I = (11, -3)
texto13: "r = " + (10.0 * c) + " + x"
texto14: "(" + (10.0 * c) + " + x) ² = " + a
texto20: "(" + (10.0 * c) + " + x)(" + (10.0 * c) + " + x) = " + a
texto19: 100.0 * c^(2.0) + " + " + (10.0 * c) + " x + " + (10.0 * c) + " x + x ²  = " + a
texto15: 100.0 * c^(2.0) + " + " + (20.0 * c) + " x + x ²  = " + a
texto16: 20.0 * c + " x  + x ² = " + (a - 100.0 * c^(2.0))
texto12: "Decena más próxima:  " + (10.0 * c) + " ² = " + (100.0 * c^(2.0))
J = (11, -4)
texto10: "Unidad más próxima:  " + (10.0 * c + a2a) + " ² = " + ((10.0 * c + a2a)^(2.0))
texto21: "Unidad exacta:  " + (10.0 * c + a2a) + " ² = " + ((10.0 * c + a2a)^(2.0))
texto8: "Raíz real = " + m + (If[round(100000.0 * m) ≠ 100000.0 * m, "....", ""])