esc = 1 (slider from 0 to 3, step 1)
escala: 10.0^(esc)
A = (0, -5)
B = (9.999945660656085, 4.999947878010565)
C = Point(Segment[A, B])
n: floor((x(C) * escala)^(2.0))
R: (x(C), y(A))
m: sqrt(n) / escala
a1 = 0 (slider from 0 to 9, step 1)
a1a: floor(m)
a1b = Min(a1, a1a)
R1: (a1b, y(A))
a2 = 0 (slider from 0 to 9, step 1)
a2a: floor(10.0 * (m - a1a))
a2b = Min(a2, a2a)
R2: R1 + (a2b / 10.0, 0.0)
a3 = 0 (slider from 0 to 9, step 1)
a3a: floor(100.0 * (m - a1a - a2a / 10.0))
a3b = Min(a3, a3a)
R3: R2 + (a3b / 100.0, 0.0)
a4 = 0 (slider from 0 to 9, step 1)
a4a: floor(1000.0 * (m - a1a - a2a / 10.0 - a3a / 100.0))
a4b = Min(a4, a4a)
R4: R3 + (a4b / 1000.0, 0.0)
a5 = 0 (slider from 0 to 9, step 1)
a5a: floor(10000.0 * (m - a1a - a2a / 10.0 - a3a / 100.0 - a4a / 1000.0))
a5b = Min(a5, a5a)
R5: R4 + (a5b / 10000.0, 0.0)
raiz: a1b * escala + a2b * escala / 10.0 + a3b * escala / 100.0 + a4b * escala / 1000.0 + a5b * escala / 10000.0
error: sqrt(n) - raiz
lista0: {Segment[A, (0.0, y(C))], Segment[(0.0, y(C)), C], Segment[C, (x(C), y(A))], Segment[(x(C), y(A)), A]}
lista1: {Polygon[A, R1, 4.0]}
lista2a: {Polygon[R1, R2, R2 + (0.0, x(R1)), R1 + (0.0, x(R1))], Polygon[A + (0.0, x(R1)), A + (0.0, x(R2)), 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[A + (0.0, x(R2)), A + (0.0, x(R3)), 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[A + (0.0, x(R3)), A + (0.0, x(R4)), 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[A + (0.0, x(R4)), A + (0.0, x(R5)), 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
texto2: "" + n
texto3: "" + a2b
texto4: "" + a3b
texto5: "" + a4b
texto6: "" + a5b
texto7: "Raíz calculada = " + raiz
texto8: "Raíz real = " + (sqrt(n))
texto9: "Error = " + error
texto10: "Unidad = " + escala