Coeficientes

Cálculos

Iniciar animación

Ver

Ocultar

Nuevos valores de x e y

x

y

x

1

1

y

1

1

Rectángulos a posición inicial

d = 2 (slider from 0 to 3, step 1)
q: Random[5, 15] / 10
p: Random[5, 15] / 10
c = 3 (slider from 0 to 5, step 1)
cd: (c * d)
a = 4 (slider from 1 to 5, step 1)
adx: ((a * d) * p)
b = 3 (slider from 0 to 3, step 1)
bcy: ((b * c) * q)
abxy: (((a * b) * p) * q)
v = 0 (slider from 0 to 10, step 0.001)
A = Intersect(xAxis, yAxis)
b2: b^(2)
a2: a^(2)
ab: (a * b)
amb: a - b
o = -1 (slider from -1 to 12, step 0.001)
o2 = Max(0, Min[1, o - 2])
nada = 1.2 (slider from -5 to 5, step 0.1)
o4 = Max(0, Min[1, o - 4])
w = If((o ≥ 0) ∧ (o  <  1), 1, If[(o ≥ 8) ∧ (o  <  9), 1, If[(o ≥ 6) ∧ (o  <  7), 1, If[(o ≥ 4) ∧ (o  <  5), 1, If[(o ≥ 2) ∧ (o  <  3), 1, 0]]]])
o6 = Max(0, Min[1, o - 6])
o8 = Max(0, Min[1, o - 8])
W = (0.26, 4.64)
texto3: "a * b = " + (LaTeX[a]) + " * " + (LaTeX[b]) + " = " + (LaTeX[ab]) + ""
texto1: "b^2= " + (LaTeX[b]) + "^2= " + (LaTeX[b2]) + ""
texto4: "b*a= " + (LaTeX[b]) + "*" + (LaTeX[a]) + "=" + (LaTeX[ab]) + ""
o0 = Max(0, Min[1, o])
texto2: "a^2 =" + (LaTeX[a]) + "^2 =" + (LaTeX[a2]) + ""
oo = 1 (slider from 0 to 1, step 0.1)
texto14: "(" + (LaTeX[a]) + "-" + (LaTeX[b]) + ")^2=" + (LaTeX[a2]) + "-2 * " + (LaTeX[ab]) + "+" + (LaTeX[b2]) + ""
l1 = Sequence(((i * p), 0), i, 0, a)
l11 = Sequence((i * "x"), i, 1, a)
l12 = Sequence(((p * i), 0), i, 1, a)
l13 = Sequence(Text[Element[l11, k], Element[l1, k] + (p - 0.2, 0.4)], k, 1, a)
PX: ((a * p), 0)
l21 = Sequence(i, i, 1, c)
l22 = Sequence(PX + (i, 0), i, 1, c)
l2 = Sequence(PX + (i, 0), i, 1, c)
l3 = Append(l1, l2)
l5 = Sequence((0, ((-i) * q)), i, 0, b)
l51 = Sequence((i * "y"), i, 1, b)
l52 = Sequence((0, ((-q) * i)), i, 1, b)
l53 = Sequence(Text[Element[l51, k], Element[l5, k] + ((-0.6), (-q) - 0.1)], k, 1, b)
PY: (0, ((-b) * q))
l6 = Sequence(PY - (0, i), i, 1, d)
l61 = Sequence(i, i, 1, d)
l62 = Sequence(PY - (0, i), i, 1, d)
l7 = Append(l5, l6)
B = (-2.5, 0)
C = (-2.5, -2.2)
D = (-2.5, -4.4)
E = (-2.5, -6.6)
pxy, e, f, g, h = Polygon(B, B + (p, 0), B + (p, q), B + (0, q))
px1, i, j, k, c_1 = Polygon(C, C + (1, 0), C + (1, q), C + (0, q))
p1y, l, m, n, d_1 = Polygon(D, D + (p, 0), D + (p, 1), D + (0, 1))
p11, e_1, r, s, t = Polygon(E, E + (1, 0), E + (1, 1), E + (0, 1))
dx: (a * p) + c
dy: ((-b) * q) - d
l31: l1 + (0, dy)
l32: l22 + (0, dy)
l4 = Append(l31, l32)
l71: l5 + (dx, 0)
l72: l62 + (dx, 0)
l8 = Append(l71, l72)
l81 = Sequence(Segment[Element[l1, i], Element[l31, i]], i, 1, a + 1)
l82 = Sequence(Segment[Element[l2, i], Element[l32, i]], i, 1, c)
l63 = Sequence(Text[Element[l61, k], Element[l6, k] + ((-0.5), (-0.1))], k, 1, d)
l92 = Sequence(Segment[Element[l6, i], Element[l72, i]], i, 1, d)
ex: (a * p)
ey: (b * q)
l91 = Sequence(Segment[Element[l5, i], Element[l71, i]], i, 1, b + 1)
qxy, a_1, b_1, f_1, g_1 = Polygon(A, A + (0, (-ey)), A + (ex, (-ey)), A + (ex, 0))
q1y, h_1, i_1, j_1, k_1 = Polygon(A + (ex, 0), A + (ex, (-ey)), A + (ex + c, (-ey)), A + (ex + c, 0))
qx1, l_1, m_1, n_1, p_1 = Polygon(A + (0, (-ey)), A + (0, (-ey) - d), A + (ex, (-ey) - d), A + (ex, (-ey)))
q11, q_1, r_1, s_1, t_1 = Polygon(A + (ex, (-ey)), A + (ex, (-ey) - d), A + (ex + c, (-ey) - d), A + (ex + c, (-ey)))
l23 = Sequence(Text[Element[l21, k], Element[l2, k] + (0, 0.4)], k, 1, c)
ad: (a * d)
bc: (b * c)
ac: (a * c)
bd: (b * d)
A1 = 1.5
texto6: "x = " + p + ""
texto7: "y = " + q + ""
dxy: ((-dx) * dy)
dyy: (-dy)
abcd: abxy + adx + bcy + cd
texto8: "(  " + (LaTeX[a]) + " x + " + (LaTeX[c]) + ") ( " + (LaTeX[b]) + " y +" + (LaTeX[d]) + "  ) = " + (LaTeX[dx]) + " *" + (LaTeX[dyy]) + " = " + (LaTeX[dxy]) + ""
texto9: "" + (LaTeX[ab]) + "xy +" + (LaTeX[ad]) + "x+" + (LaTeX[bc]) + "y+" + (LaTeX[bd]) + "= " + (LaTeX[abxy]) + "+" + (LaTeX[adx]) + "+" + (LaTeX[bcy]) + "+" + (LaTeX[bd]) + "=" + (LaTeX[abcd]) + ""
texto5: "(" + (LaTeX[a]) + " x +" + (LaTeX[c]) + ") (" + (LaTeX[b]) + " y + " + (LaTeX[d]) + ") = " + (LaTeX[ab]) + "x y +" + (LaTeX[ad]) + " x + " + (LaTeX[bc]) + " y + " + (LaTeX[cd]) + ""
PPY: (0, dy)