Date: 24 Julio 2013

(El cuadrado perfecto cercano menor o igual al número dado) 

(La raíz cuadrada del punto de referencia)

√

≈ ?

Número cuadrado de referencia

Raíz  del número de referencia

Muestra el denominador

Muestra el numerador

—

bot left:

bot right:

top right:

top left:

screen:

distX:

distY:

unitX:

unitY:

ESTIMACIÓN DE RAÍZ CUADRADA

Consiste en encontrar una estimación de la raíz  cuadrada de un número.
Para ello hacemos lo siguiente:

a) Encontrar un número cuadrado perfecto cercano a la cantidad
subradical de la raíz.

b) Obtener la raíz cuadrada de ese número de referencia, de modo tal
de encontrar la parte entera de la estimación de la raíz.

c) Luego para saber su parte decimal, se multiplica por dos la raíz de referencia
y se le suma 1. El número encontrado dará en cuántas
partes se dividirá la parte decimal.(Denominador)

d) El numerador será, aquel número que resulta de  contar cuantas unidades se avanzó desde 
el número cuadrado de referencia, hasta llegar a la cantidad subradical. (Según la división echa anteriormente)

e) La estimación de la raíz será la suma de la parte entera con su fracción (número mixto)

hundreds = 3 (slider from 0 to 9, step 1)
B12 = Corner(2)
B11 = Corner(1)
B16 = Distance(B11, B12)
B15 = Corner(5)
B18: x(B15) / B16
B14 = Corner(4)
B17 = Distance(B11, B14)
B19: y(B15) / B17
tens = 1 (slider from 0 to 9, step 1)
ones = 8 (slider from 0 to 9, step 1)
texthnds: "" + hundreds + ""
texthndrds: "" + tens + ""
textones: "" + ones + ""
given: hundreds * 100 + tens * 10 + ones
refrt: floor(sqrt(given))
refsq: refrt^(2)
endln1: (refrt + 1)^(2)
end1ref: refrt + 1
sqlineStart: x(B11) + 40 / B18
sqlineY: y(B14) - 270 / B19
sqlineEnd: x(B11) + 490 / B18
sqlinea: (sqlineStart, sqlineY)
sqlineb: (sqlineEnd, sqlineY)
sqline = Segment(sqlinea, sqlineb)
A1: refrt * 2 + 1
A2: (sqlineEnd - sqlineStart) / A1
sqlinetextstart: "" + refsq + ""
sqlinetextend: "" + endln1 + ""
fulllnStart: (sqlineStart, sqlineY + 38 / B19)
fulllnEnd: (sqlineEnd, sqlineY + 38 / B19)
fullvec = Vector(fulllnStart, fulllnEnd)
fulldist: refrt * 2 + 1
giventext: "" + given + ""
A5: (sqlineStart, sqlineY - 40 / B19)
A6: ((given - refsq) * A2 + sqlineStart, sqlineY - 40 / B19)
givenvec = Vector(A5, A6)
givendist: given - refsq
rtlineStart: (sqlineStart, sqlineY - 115 / B19)
rtlineEnd: (sqlineEnd, sqlineY - 115 / B19)
rtline = Segment(rtlineStart, rtlineEnd)
rtlinetextStart: "" + refrt + ""
rtlinetextEnd: "" + end1ref + ""
A3 = Sequence((i * A2 + sqlineStart, sqlineY), i, 1, A1 - 1)
A4: ((given - refsq) * A2 + sqlineStart, sqlineY)
A8: (sqlineStart, sqlineY - 128 / B19)
A9: ((given - refsq) * A2 + sqlineStart, sqlineY - 128 / B19)
fracvec = Vector(A8, A9)
rtwhole: "" + refrt + ""
reflinea = Segment(sqlinea, A8)
reflineb = Segment(sqlineb, rtlineEnd)
reflinec = Segment(A4, A9)
rtnumerator: "" + givendist + ""
rtdenominator: "" + fulldist + ""
step2ba: "" + refsq + ""
step2ca: "" + refrt + ""
showdenom = true
shownum = true
B13 = Corner(3)
radpointa: (x(B11) + 30 / B18, y(B14) - 17 / B19)
radpointb: (x(B11) + 92 / B18, y(B14) - 17 / B19)
radseg = Segment(radpointa, radpointb)
A7: ((given - refsq) * A2 + sqlineStart, sqlineY - 115 / B19)
givendisttext_1: "" + givendist + " = Número dado - raíz de referencia"
fullrangetext: "" + fulldist + " = (2 × raíz de referencia) + 1"