チェック

a = 1 (slider from -15 to 15, step 1)
p = 1 (slider from 1 to 30, step 1)
a_1: floor(1 + random() * 3)
a_2: -3 + floor(random() * 3)
x_1: 1 + floor(random() * 5)
x_2: 1 + floor(random() * 5)
y_2: 1 + floor(random() * 5)
q = 1 (slider from 1 to 30, step 1)
y_1: 1 + floor(random() * 5)
b = Expand(a_1 * x^(x_1) * y^(y_1))
c = Expand(a_2 * x^(x_2) * y^(y_2))
text = If(a_1 * a_2 ≟ a ∧ x_1 + x_2 ≟ p ∧ y_1 + y_2 ≟ q, "＝", "≠")
d = Expand(a * x^(p) * y^(q))
テキスト1: "" + (LaTeX[b]) + "\times(" + (LaTeX[c]) + ")" + (LaTeX[text]) + "" + (LaTeX[d]) + ""
テキスト2 = If(a_1 * a_2 ≟ a ∧ x_1 + x_2 ≟ p ∧ y_1 + y_2 ≟ q, "＝", "≠")