numeration
Author: Daniel Mentrard

Unité(s)

Dizaine(s)

Centaine(s)

Millier(s)

A = (15, -5)
B = (16, -5)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
u = Vector(B, C)
e = 2569 (slider from 0 to 9999, step 1)
aa = Mod(e, 10.0)
E = (7, -6)
F = (9, -6)
poly2, e_1, f, g, h, G, H = Polygon(E, F, 4.0)
bb: floor(e / 10.0) - floor(e / 100.0) * 10.0
liste1 = Sequence(Polygon[Translate[A, i * u], Translate[B, i * u], Translate[C, i * u], Translate[D, i * u]], i, 1.0, aa)
liste2 = Sequence(Polygon[Translate[A, i * u], Translate[B, i * u], Translate[C, i * u], Translate[D, i * u]], i, 1.0, aa)
cc: floor(e / 100.0) - floor(e / 1000.0) * 10.0
I = (-3, -6)
J = (2, -6)
liste3 = Sequence(Polygon[Translate[E, 2.0 * i * u], Translate[F, 2.0 * i * u], Translate[G, 2.0 * i * u], Translate[H, 2.0 * i * u]], i, 1.0, bb)
liste5 = Sequence(Polygon[Translate[E, 2.0 * i * u], Translate[F, 2.0 * i * u], Translate[G, 2.0 * i * u], Translate[H, 2.0 * i * u]], i, 1.0, bb)
dd: floor(e / 1000.0) - floor(e / 10000.0) * 10.0
K = (-2, -4)
L = (1, -4)
poly3, i, k, l, j = Polygon(I, K, L, J)
liste4 = Sequence(Polygon[Translate[I, 2.0 * i * u], Translate[K, 2.0 * i * u], Translate[L, 2.0 * i * u], Translate[J, 2.0 * i * u]], i, 1.0, cc)
liste6 = Sequence(Polygon[Translate[I, 2.0 * i * u], Translate[K, 2.0 * i * u], Translate[L, 2.0 * i * u], Translate[J, 2.0 * i * u]], i, 1.0, cc)
M = (-5.9227222922736456, -6.044886571155265)
N = (-14.922722292273646, -6.044886571155265)
O = (-14.922722292273646, -4.044886571155265)
P = (-5.9227222922736456, -4.044886571155265)
poly4, n, m, p, o = Polygon(N, M, P, O)
liste7 = Sequence(Polygon[Translate[N, 2.0 * i * u], Translate[M, 2.0 * i * u], Translate[P, 2.0 * i * u], Translate[O, 2.0 * i * u]], i, 1.0, dd)
liste8 = Sequence(Polygon[Translate[N, 2.0 * i * u], Translate[M, 2.0 * i * u], Translate[P, 2.0 * i * u], Translate[O, 2.0 * i * u]], i, 1.0, dd)
texte1: "" + aa
texte2: "" + bb
texte3: "" + cc
texte4: "" + dd
texte6: "" + (bb * 10.0)
texte7: "" + (cc * 100.0)
texte8: "" + (dd * 1000.0)
texte9: "" + aa
Q = (-4.5904736867667015, 18.036260966320143)
R = (-4.5904736867667015, -7.010445738317577)
q = Segment(Q, R)
S = (4, 18)
T = (3.848201690423068, -6.875786024851783)
r = Segment(S, T)
U = (12.017557640681249, 17.856714681699085)
V = (12, -7)
s = Segment(U, V)
W = (-17, 18)
Z = (-17, -7)
t = Segment(W, Z)
A_1 = (18, 18)
B_1 = (18, -7)
a_1 = Segment(A_1, B_1)
b_1 = Segment(A_1, W)
C_1 = Point(t)
D_1 = Point(a_1)
c_1 = Segment(C_1, D_1)
d_1 = Segment(Z, B_1)
texte5: "" + e + " =                 " + dd + " x  1000                     +           " + cc + " x 100            +             " + bb + " x 10           +             " + aa
texte14: "" + e
E_1 = (19, 6.8204537153789415)
F_1 = (22, 6.8204537153789415)
G_1 = (22, 4.8204537153789415)
H_1 = (19, 4.8204537153789415)
poly5, e_2, f_1, g_1, h_1 = Polygon(E_1, F_1, G_1, H_1)