Base

Decimales

Representación

,

Comprueba

Comprueba

Comprueba

U

C

D

UM

DM

D

U

d

c

m

Mostrar descomposición

100,00

num1 = 15274 (slider from 1 to 99999, step 1)
z = 2 (slider from 1 to 2, step 1)
num = 451 (slider from 1 to 1000, step 1)
nu = If(z ≟ 3.0, num, num1)
c5: floor(nu / 10000.0)
c4: floor(nu / 1000.0) - 10.0 * c5
c3: floor(nu / 100.0) - 10.0 * c4 - 100.0 * c5
c2: floor(nu / 10.0) - 10.0 * c3 - 100.0 * c4 - 1000.0 * c5
base = 10 (slider from 2 to 16, step 1)
d1 = Mod(num, base)
d2 = Mod(Div[num, base], base)
d3 = Mod(Div[Div[num, base], base], base)
d4 = Mod(Div[Div[Div[num, base], base], base], base)
d5 = Mod(Div[Div[Div[Div[num, base], base], base], base], base)
d6 = Mod(Div[Div[Div[Div[Div[num, base], base], base], base], base], base)
d7 = Mod(Div[Div[Div[Div[Div[Div[num, base], base], base], base], base], base], base)
d8 = Mod(Div[Div[Div[Div[Div[Div[Div[num, base], base], base], base], base], base], base], base)
d9 = Mod(Div[Div[Div[Div[Div[Div[Div[Div[num, base], base], base], base], base], base], base], base], base)
d10 = Mod(Div[Div[Div[Div[Div[Div[Div[Div[Div[num, base], base], base], base], base], base], base], base], base], base)
c1: floor(nu - 10.0 * c2 - 100.0 * c3 - 1000.0 * c4 - 10000.0 * c5)
texto1: "" + c4 + c3 + c2 + c1
texto4: "" + base
L01: {d1, d2, d3, d4, d5, d6, d7, d8, d9, d10}
texto8: "" + d4
texto9: "" + d5
texto10: "" + d6
texto11: "" + d7
texto12: "" + d8
texto13: "" + d9
texto14: "" + d10
a = Segment((3.5, -3.6), (14.5, -3.6))
L11: {c1, c2, c3, c4, c5}
texto15: "" + c5 + c4 + c3 + c2 + c1
b = Segment((5.4, -3.6), (11.4, -3.6))
c = Segment((5.4, -3.6), (12.0, -3.6))
L25 = Sequence(Segment[(5.0 + 1.1 * t, -(3.6)), (5.0 + 1.1 * t, -(3.5) + 9.5)], t, 1.0, 2.0)
L26 = Sequence(Segment[(5.8 + 1.1 * t, -(3.6)), (5.8 + 1.1 * t, -(3.5) + 9.5)], t, 3.0, 5.0)
A = (8.16, -3.44)
texto22: "" + c1
texto23: "" + c2
texto24: "" + c3
texto25: "" + c4
texto26: "" + c5
texto28: "" + c1
texto29: "" + c2
texto30: "" + c3
texto31: "" + c4
texto32: "" + c5
L31 = Sequence(Sequence[(4.5 + t, s), t, 0.0, 10.0], s, -4.0, 4.0, 4.0)
L32 = Sequence(Segment[(4.3, s), (14.7, s)], s, -4.0, 4.0, 4.0)
L33 = Sequence({(4.5, s), (14.5, s)}, s, -4.0, 4.0, 4.0)
texto33: "" + c5 + c4
texto34: "" + (10.0 * c5 + c4 + 1.0)
texto35: "" + c5 + c4 + "," + c3
texto36: "" + c5 + c4 + "," + (c3 + 1.0)
texto37: "" + c5 + c4 + "," + c3 + c2
texto38: "" + c5 + c4 + "," + c3 + (c2 + 1.0)
texto44: "" + c5 + c4 + "," + 5.0
texto45: "" + c5 + c4 + "," + c3 + 5.0
texto46: "" + c5 + c4 + "," + c3 + c2 + 5.0
d = Segment((4.2, -3.7), (14.8, -3.7))
B = Point(d)
e = Segment((4.2, 0.3), (14.8, 0.3))
f = Segment((4.2, 4.3), (14.8, 4.3))
C = Point(e)
D = Point(f)
P1: (4.5 + round(num1 / 100.0) - 100.0 * c5 - 10.0 * c4, 4.0)
P2: (4.5 + round(num1 / 10.0) - 1000.0 * c5 - 100.0 * c4 - 10.0 * c3, 0.0)
P3: (4.5 + c1, -(4.0))
h = false
i = false
j = false
n1: round(num1 / 100.0) / 10.0
texto47: "" + n1
n2: round(num1 / 10.0) / 100.0
texto48: "" + n2
texto49: "" + (num1 / 1000.0)
texto65: "" + c5 + c4 + c3 + c2 + c1 + " = " + c5 + "0.000 + " + c4 + ".000 + " + c3 + "00 + " + c2 + "0 + " + c1
g = false
C5 = 0
texto71: "" + c5 + c4 + "," + c3 + c2 + c1 + " = " + c5 + "0 + " + c4 + " + 0, " + c3 + " + 0,0" + c2 + " + 0,00" + c1
texto72: "" + c4
texto73: "" + c4 + ",5"
texto74: "" + c4 + "," + c3
texto75: "" + c4 + "," + c3 + "5"
texto42: "" + c5 + (c4 + 1.0) + ",0"
texto43: "" + (c5 + 1.0) + "0,0"
texto77: "" + (c4 + 1.0) + ",0"
texto76: "" + c4 + "," + (c3 + 1.0)
texto79: "" + c4 + "," + c3 + c2 + "5"
texto78: "" + c4 + "," + c3 + c2
texto81: "" + c4 + "," + (c3 + 1.0) + "0"
texto80: "" + c4 + "," + c3 + (c2 + 1.0)
texto41: "" + (c4 + 1.0) + ",00"
texto39: "" + c5 + c4 + "," + (c3 + 1.0) + "0"
texto40: "" + c5 + (c4 + 1.0) + ",00"
texto82: "" + (c4 + 1.0) + ",00"
texto60: " " + c5 + " DM = " + c5 + "x10.000 = " + c5 + "0.000" + "
 " + c4 + " UM = " + c4 + "x1.000 = " + c4 + ".000" + "
    " + c3 + " C = " + c3 + "x100 = " + c3 + "00" + "
    " + c2 + " D = " + c2 + "x10 = " + c2 + "0" + "
    " + c1 + " U = " + c1
texto66: " " + c5 + " D = " + c5 + "x10 = " + c5 + "0" + "
 " + c4 + " U = " + c4 + "
 " + c3 + " d = " + c3 + "x0,1 = 0," + c3 + "
 " + c2 + " c = " + c2 + "x0,01 = 0,0" + c2 + "
 " + c1 + " m = " + c1 + "x0,001 = 0,00" + c1
letras: {"A", "B", "C", "D", "E", "F"}
digitos: {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
texto5: "" + (Element[digitos, d1 + 1.0])
texto7: "" + (Element[digitos, d2 + 1.0])
texto6: "" + (Element[digitos, d3 + 1.0])
texto3: "" + d10 + d9 + d8 + d7 + d6 + d5 + d4 + (Element[digitos, d3 + 1.0]) + (Element[digitos, d2 + 1.0]) + (Element[digitos, d1 + 1.0])
lista1 = Sequence(Sequence[Translate[cuenta, Vector[(11.7 - 1.1 * t, s - 4.05)]], s, 1.0, Element[L11, t]], t, 1.0, 7.0)
lista3 = Sequence(Sequence[Translate[cuenta, Vector[(11.6 - 1.1 * t, s - 4.05)]], s, 1.0, Element[L11, t]], t, 4.0, 5.0)
lista4 = Sequence(Sequence[Translate[cuenta, Vector[(12.4 - 1.1 * t, s - 4.05)]], s, 1.0, Element[L11, t]], t, 1.0, 3.0)
lista2 = Sequence(Sequence[Translate[cuentap, Vector[(15.0 - 1.1 * t, 0.6 * s - 3.85)]], s, 1.0, Element[L01, t]], t, 1.0, 10.0)
L12 = Sequence(Segment[(5.1 + 1.1 * t, -(3.6)), (5.1 + 1.1 * t, -(3.5) + 9.5)], t, 1.0, 5.0)
L02 = Sequence(Segment[(2.9 + 1.1 * t, -(3.6)), (2.9 + 1.1 * t, -(3.5) + Min[base, 10.0] - 0.5)], t, 1.0, 10.0)
texto21 = If(num1 < 10.0, "0,00" + num1, If[num1 < 100.0, "0,0" + num1, "0," + num1])
texto16: "" + (floor(num1 / 1000.0)) + (If[num1 - 1000.0 * floor(num1 / 1000.0) < 10.0, ",00" + (num1 - 1000.0 * floor(num1 / 1000.0)), If[num1 - 1000.0 * floor(num1 / 1000.0) < 100.0, ",0" + (num1 - 1000.0 * floor(num1 / 1000.0)), "," + (num1 - 1000.0 * floor(num1 / 1000.0))]])
texto20: "" + c5 + c4 + "," + c3 + c2 + c1
lista31 = Sequence(Sequence[Translate[cuenta, Vector[(11.6 - 1.1 * t, s - 4.05)]], s, 1.0, Element[L11, t]], t, 4.0, 5.0)