Decimas, centésimas y milésimas
Date: 22 Agosto 2013

1 unidad

= 10 décimas

=100 centésimas

= 1000 milésimas

1 décima = 10 centésimas

= 100 milésimas

1 centésima = 10 milésimas

1décima      = 0,1     unidades

1centésima = 0,01   unidades

1milésima   = 0,001 unidades

1 unit 

=10 tenths

=100 hundredths

= 1000 thousandths

1 hundredth = 10 thousandths

1 tenth = 10 hundredths

= 100 thousandths

1 tenth          = 0.1     units

1hundredth  = 0.01   units

1thousandth = 0.001 units

Mueva el punto con su mouse, para visualizar
la equivalencia entre 1 entero, décima, centésima
y milésima.

k = 6 (slider from 0 to 6, step 0.01)
A = (-0.7369702064103958, -3.0760495571911965)
B: A + (10, 0)
C: A + (0, 10)
D: B + (0, 10)
E: B + 10 * sqrt(2) / 4 * (1, 1)
F: E + (0, 10)
G: F - (10, 0)
a = Segment(C, A)
b = Segment(D, B)
c = Segment(C, D)
d = Segment(A, B)
e = Segment(B, E)
f = Segment(E, F)
g = Segment(D, F)
h = Segment(C, G)
i = Segment(G, F)
polígono1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
polígono2, b_2, e_1, f_1, d_2 = Polygon(B, E, F, D)
A_1 = If(k < 1, A, If[k < 2, A + (k - 1) * (15, 0), A + (15, 0)])
polígono3, c_2, g_1, f_2, d_3 = Polygon(C, G, F, D)
j = Segment(C, A)
B_1: A_1 + (10, 0)
C_1: A_1 + (0, 1)
D_1: B_1 + (0, 1)
E_1: B_1 + 10 * sqrt(2) / 4 * (1, 1)
F_1: E_1 + (0, 1)
G_1: F_1 - (10, 0)
a_2 = Segment(C_1, A_1)
b_3 = Segment(D_1, B_1)
c_3 = Segment(C_1, D_1)
d_4 = Segment(A_1, B_1)
e_2 = Segment(B_1, E_1)
f_3 = Segment(E_1, F_1)
g_2 = Segment(D_1, F_1)
h_1 = Segment(C_1, G_1)
i_1 = Segment(G_1, F_1)
polígono1_1, a_3, b_5, d_7, c_5 = Polygon(A_1, B_1, D_1, C_1)
polígono2_1, b_4, e_3, f_5, d_6 = Polygon(B_1, E_1, F_1, D_1)
polígono3_1, c_4, g_3, f_4, d_5 = Polygon(C_1, G_1, F_1, D_1)
j_1 = Segment(C_1, A_1)
lista3 = Sequence(Segment[Translate[A, (0, i)], Translate[B, (0, i)]], i, 1, 9)
lista4 = Sequence(Segment[Translate[B, (0, i)], Translate[E, (0, i)]], i, 1, 9)
lista5 = Sequence(Segment[Translate[D, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[B, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
lista2 = Sequence(Segment[Translate[C, (i, 0)], Translate[G, (i, 0)]], i, 1, 9)
lista1 = Sequence(Segment[Translate[C, (i, 0)], Translate[A, (i, 0)]], i, 1, 9)
lista6 = Sequence(Segment[Translate[D, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[C, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
lista2_1 = Sequence(Segment[Translate[C_1, (i, 0)], Translate[G_1, (i, 0)]], i, 1, 9)
lista6_1 = Sequence(Segment[Translate[D_1, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[C_1, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
lista1_1 = Sequence(Segment[Translate[C_1, (i, 0)], Translate[A_1, (i, 0)]], i, 1, 9)
A_2 = If(k < 3, A_1, If[k < 4, A_1 + (k - 3) * (0, 5), A_1 + (0, 5)])
lista5_1 = Sequence(Segment[Translate[D_1, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[B_1, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
B_2: A_2 + (1, 0)
C_2: A_2 + (0, 1)
D_2: B_2 + (0, 1)
E_2: B_2 + 10 * sqrt(2) / 4 * (1, 1)
F_2: E_2 + (0, 1)
G_2: F_2 - (1, 0)
a_4 = Segment(C_2, A_2)
b_6 = Segment(D_2, B_2)
c_6 = Segment(C_2, D_2)
d_8 = Segment(A_2, B_2)
e_4 = Segment(B_2, E_2)
f_6 = Segment(E_2, F_2)
g_4 = Segment(D_2, F_2)
h_2 = Segment(C_2, G_2)
i_2 = Segment(G_2, F_2)
polígono1_2, a_5, b_8, d_{11}, c_8 = Polygon(A_2, B_2, D_2, C_2)
polígono2_2, b_7, e_5, f_8, d_{10} = Polygon(B_2, E_2, F_2, D_2)
polígono3_2, c_7, g_5, f_7, d_9 = Polygon(C_2, G_2, F_2, D_2)
j_2 = Segment(C_2, A_2)
lista6_2 = Sequence(Segment[Translate[D_2, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[C_2, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
lista5_2 = Sequence(Segment[Translate[D_2, Vector[i * sqrt(2) / 4 * (1, 1)]], Translate[B_2, Vector[i * sqrt(2) / 4 * (1, 1)]]], i, 1, 9)
A_3 = If(k < 5, A_2, A_2 + (k - 5) * (0, 4))
B_3: A_3 + (1, 0)
C_3: A_3 + (0, 1)
D_3: B_3 + (0, 1)
E_3: B_3 + sqrt(2) / 4 * (1, 1)
F_3: E_3 + (0, 1)
G_3: F_3 - (1, 0)
a_6 = Segment(C_3, A_3)
b_9 = Segment(D_3, B_3)
c_9 = Segment(C_3, D_3)
d_{12} = Segment(A_3, B_3)
e_6 = Segment(B_3, E_3)
f_9 = Segment(E_3, F_3)
g_6 = Segment(D_3, F_3)
h_3 = Segment(C_3, G_3)
i_3 = Segment(G_3, F_3)
polígono1_3, a_7, b_{11}, d_{15}, c_{11} = Polygon(A_3, B_3, D_3, C_3)
polígono2_3, b_{10}, e_7, f_{11}, d_{14} = Polygon(B_3, E_3, F_3, D_3)
polígono3_3, c_{10}, g_7, f_{10}, d_{13} = Polygon(C_3, G_3, F_3, D_3)
j_3 = Segment(C_3, A_3)
idioma = 1 (slider from 0 to 1, step 1)
texto21 = If(idioma ≟ 1, "English", "Inglés")
texto22 = If(idioma ≟ 0, "Español", "Spanish")