Suma

Multiplicación

Primer número

Segundo número

n1: Random[1, 100] / 10
n2: Random[1, 100] / 10
n3: Random[1, 100] / 10
n4: Random[1, 100] / 10
lista1: {n1, n2, n3, n4}
n5: Random[1, 100] / 10
n6: Random[1, 100] / 10
n7: Random[1, 100] / 10
n8: Random[1, 100] / 10
lista2: {n5, n6, n7, n8}
L1suma = Sequence(Element[lista1, 1] + Element[lista2, t], t, 1, 4)
L2suma = Sequence(Element[lista1, 2] + Element[lista2, t], t, 1, 4)
L3suma = Sequence(Element[lista1, 3] + Element[lista2, t], t, 1, 4)
L4suma = Sequence(Element[lista1, 4] + Element[lista2, t], t, 1, 4)
L1multi = Sequence((Element[lista1, 1] * Element[lista2, t]), t, 1, 4)
L2multi = Sequence((Element[lista1, 2] * Element[lista2, t]), t, 1, 4)
L3multi = Sequence((Element[lista1, 3] * Element[lista2, t]), t, 1, 4)
L4multi = Sequence((Element[lista1, 4] * Element[lista2, t]), t, 1, 4)
a = 0 (slider from 0 to 1, step 1)
datos1 = Sequence(Text[Element[lista1, t], (t - 4.5, 3)], t, 1, 4)
datos2 = Sequence(Text[Element[lista2, t], (t + 3.5, 3)], t, 1, 4)
A = (-3, -1)
B = (-3, -1)
C = (-3, -1)
D = (-3, -1)
E = (-3, -1)
F = (-3, -1)
G = (-3, -1)
H = (-3, -1)
I = (-3, -1)
J = (-3, -1)
K = (7.5, -1)
L = (7.5, -1)
M = (7.5, -1)
N = (7.5, -1)
O = (7.5, -1)
P = (7.5, -1)
Q = (7.5, -1)
R = (7.5, -1)
S = (7.5, -1)
T = (7.5, -1)
U = (7.5, -1)
V = (7.5, -1)
W = (7.5, -1)
Z = (7.5, -1)
A_1 = (-3, -1)
B_1 = (-3, -1)
C_1 = (-3, -1)
D_1 = (-3, -1)
x1 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x2 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x3 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x4 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x5 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x6 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x7 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x8 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x9 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x10 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x11 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x12 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x13 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x14 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x15 = -1.5 (slider from -1.5 to 4.5, step 1.5)
x16 = -1.5 (slider from -1.5 to 4.5, step 1.5)
y1 = -2 (slider from -2 to 1, step 1)
y2 = -2 (slider from -2 to 1, step 1)
y3 = -2 (slider from -2 to 1, step 1)
y4 = -2 (slider from -2 to 1, step 1)
y5 = -2 (slider from -2 to 1, step 1)
y6 = -2 (slider from -2 to 1, step 1)
y7 = -2 (slider from -2 to 1, step 1)
y8 = -2 (slider from -2 to 1, step 1)
y9 = -2 (slider from -2 to 1, step 1)
y10 = -2 (slider from -2 to 1, step 1)
y11 = -2 (slider from -2 to 1, step 1)
y12 = -2 (slider from -2 to 1, step 1)
y13 = -2 (slider from -2 to 1, step 1)
y14 = -2 (slider from -2 to 1, step 1)
y15 = -2 (slider from -2 to 1, step 1)
y16 = -2 (slider from -2 to 1, step 1)
xx1 = 6 (slider from 0 to 6, step 1.5)
xx2 = 6 (slider from 0 to 6, step 1.5)
xx3 = 6 (slider from 0 to 6, step 1.5)
xx4 = 6 (slider from 0 to 6, step 1.5)
xx5 = 6 (slider from 0 to 6, step 1.5)
xx6 = 6 (slider from 0 to 6, step 1.5)
xx7 = 6 (slider from 0 to 6, step 1.5)
xx8 = 6 (slider from 0 to 6, step 1.5)
xx9 = 6 (slider from 0 to 6, step 1.5)
xx10 = 6 (slider from 0 to 6, step 1.5)
xx11 = 6 (slider from 0 to 6, step 1.5)
xx12 = 6 (slider from 0 to 6, step 1.5)
xx13 = 6 (slider from 0 to 6, step 1.5)
xx14 = 6 (slider from 0 to 6, step 1.5)
xx15 = 6 (slider from 0 to 6, step 1.5)
xx16 = 6 (slider from 0 to 6, step 1.5)
yy1 = -2 (slider from -2 to 1, step 1)
yy2 = -2 (slider from -2 to 1, step 1)
yy3 = -2 (slider from -2 to 1, step 1)
yy4 = -2 (slider from -2 to 1, step 1)
yy5 = -2 (slider from -2 to 1, step 1)
yy6 = -2 (slider from -2 to 1, step 1)
yy7 = -2 (slider from -2 to 1, step 1)
yy8 = -2 (slider from -2 to 1, step 1)
yy9 = -2 (slider from -2 to 1, step 1)
yy10 = -2 (slider from -2 to 1, step 1)
yy11 = -2 (slider from -2 to 1, step 1)
yy12 = -2 (slider from -2 to 1, step 1)
yy13 = -2 (slider from -2 to 1, step 1)
yy14 = -2 (slider from -2 to 1, step 1)
yy15 = -2 (slider from -2 to 1, step 1)
yy16 = -2 (slider from -2 to 1, step 1)
amarillos = Sequence(Circle[(Object["x" + (s)] + 0.1, Object["y" + (s)] - 0.05), 0.45], s, 1, 16)
P1: (x1, y1)
verdes = Sequence(Circle[(Object["xx" + (s)] + 0.1, Object["yy" + (s)] - 0.05), 0.45], s, 1, 16)
P2: (x2, y2)
P3: (x3, y3)
P4: (x4, y4)
P5: (x5, y5)
P6: (x6, y6)
P7: (x7, y7)
P8: (x8, y8)
P9: (x9, y9)
P10: (x10, y10)
P11: (x11, y11)
P12: (x12, y12)
P13: (x13, y13)
P14: (x14, y14)
P15: (x15, y15)
Q1: (xx1, yy1)
Q2: (xx2, yy2)
Q3: (xx3, yy3)
Q4: (xx4, yy4)
Q5: (xx5, yy5)
Q6: (xx6, yy6)
Q7: (xx7, yy7)
Q8: (xx8, yy8)
Q9: (xx9, yy9)
Q10: (xx10, yy10)
Q11: (xx11, yy11)
Q12: (xx12, yy12)
Q13: (xx13, yy13)
Q14: (xx14, yy14)
Q15: (xx15, yy15)
sumfila2 = Sequence(Text[Element[L2suma, t], ((1.5 * (t - 1)) - 0.4 + If[Element[L2suma, t] < 10, 0.3, If[Element[L2suma, t] < 100, 0.2, If[Element[L2suma, t] < 1000, 0.1, 0]]], (-0.15))], t, 1, 4)
sumfila3 = Sequence(Text[Element[L3suma, t], ((1.5 * (t - 1)) - 0.4 + If[Element[L3suma, t] < 10, 0.3, If[Element[L3suma, t] < 100, 0.2, If[Element[L3suma, t] < 1000, 0.1, 0]]], (-1.15))], t, 1, 4)
sumfila4 = Sequence(Text[Element[L4suma, t], ((1.5 * (t - 1)) - 0.4 + If[Element[L4suma, t] < 10, 0.3, If[Element[L4suma, t] < 100, 0.2, If[Element[L4suma, t] < 1000, 0.1, 0]]], (-2.15))], t, 1, 4)
sumfila1 = Sequence(Text[Element[L1suma, t], ((1.5 * (t - 1)) - 0.4 + If[Element[L1suma, t] < 10, 0.3, If[Element[L1suma, t] < 100, 0.2, If[Element[L1suma, t] < 1000, 0.1, 0]]], 0.85)], t, 1, 4)
mulfila1 = Sequence(Text[Element[L1multi, t], ((1.5 * (t - 1)) - 0.5 + If[Element[L1multi, t] < 10, 0.3, If[Element[L1multi, t] < 100, 0.2, If[Element[L1multi, t] < 1000, 0.1, 0]]], 0.85)], t, 1, 4)
mulfila2 = Sequence(Text[Element[L2multi, t], ((1.5 * (t - 1)) - 0.5 + If[Element[L2multi, t] < 10, 0.3, If[Element[L2multi, t] < 100, 0.2, If[Element[L2multi, t] < 1000, 0.1, 0]]], (-0.15))], t, 1, 4)
mulfila3 = Sequence(Text[Element[L3multi, t], ((1.5 * (t - 1)) - 0.5 + If[Element[L3multi, t] < 10, 0.3, If[Element[L3multi, t] < 100, 0.2, If[Element[L3multi, t] < 1000, 0.1, 0]]], (-1.15))], t, 1, 4)
mulfila4 = Sequence(Text[Element[L4multi, t], ((1.5 * (t - 1)) - 0.5 + If[Element[L4multi, t] < 10, 0.3, If[Element[L4multi, t] < 100, 0.2, If[Element[L4multi, t] < 1000, 0.1, 0]]], (-2.15))], t, 1, 4)