代数小方块进行代数因式分解
几何画板及绘图内容加载中,请稍等……
这个范例使用代数小方块演示代数因式分解的过程。核心数学概念包括代数、矩形和正方形。通过Vector, Segment, Point等GeoGebra命令,用户可以直观地理解代数因式分解的几何意义。适合初中及以上学生学习代数。
GeoGebra 命令及参数
Vector((0, 0), (0, (-n) - q)) → v_1Segment((x(L) + q, y(L)), (x(L) + (b_3 * m) + ((b_3 - 1) * q), y(L))) → lPoint(l) → MKeepIf(x < x(M), Sequence[x(L) + ((t - 1) * m) + ((t - 1) * q), t, 1, b_3]) → Re1Length(Re1) → r_1Segment((x(K), y(K) - q), (x(K), y(K) - (b_1 * n) - ((b_1 - 1) * q))) → kPoint(k) → IKeepIf(x > y(I), Sequence[y(K) - ((t - 1) * n) - ((t - 1) * q), t, 1, b_1]) → Bq2Length(Bq2) → a_1Vector((0, 0), (n + q, 0)) → vSegment((x(H) + q, y(H)), (x(H) + (b_1 * n) + ((b_1 - 1) * q), y(H))) → jPoint(j) → JKeepIf(x < x(J), Sequence[x(H) + ((t - 1) * n) + ((t - 1) * q), t, 1, b_1]) → Bq1Length(Bq1) → a_2Segment((x(R), y(R) - q), (x(R), y(R) - (b_3 * m) - ((b_3 - 1) * q))) → sPoint(s) → SKeepIf(x > y(S), Sequence[y(R) - ((t - 1) * m) - ((t - 1) * q), t, 1, b_3]) → Re2Length(Re2) → r_2Segment((x(T) + q, y(T)), (x(T) + (b_2 * m) + ((b_2 - 1) * q), y(T))) → tPoint(t) → USegment((x(V), y(V) - q), (x(V), y(V) - (b_2 * m) - ((b_2 - 1) * q))) → aPoint(a) → WKeepIf(x > y(W), Sequence[y(V) - ((t - 1) * m) - ((t - 1) * q), t, 1, b_2]) → Sq2KeepIf(x < x(U), Sequence[x(T) + ((t - 1) * m) + ((t - 1) * q), t, 1, b_2]) → Sq1Length(Sq1) → e_2Length(Sq2) → e_1Vector((0, 0), (m + q, 0)) → uSequence(Translate[Sequence[Polygon[(x(B) + (0.5 * n), y(B) + (0.5 * m) - (p * (m + q))), (x(B) - (0.5 * n), y(B) + (0.5 * m) - (p * (m + q))), (x(B) - (0.5 * n), y(B) - (0.5 * m) - (p * (m + q))), (x(B) + (0.5 * n), y(B) - (0.5 * m) - (p * (m + q)))], p, 0, r_2 - 1], Vector[(r * v)]], r, 0, a_2 - 1) → Rh2Vector((0, 0), (0, -2)) → wRay(E, w) → fPoint(f) → FCircle(F, E) → gOrthogonalLine(F, f) → hIntersect(g, h, 1) → GRay(G, F) → iSelectedIndex(Bahasa) → nnSequence(Translate[Sequence[Polygon[(x(C) + (0.5 * m), y(C) + (0.5 * m) - (p * (m + q))), (x(C) - (0.5 * m), y(C) + (0.5 * m) - (p * (m + q))), (x(C) - (0.5 * m), y(C) - (0.5 * m) - (p * (m + q))), (x(C) + (0.5 * m), y(C) - (0.5 * m) - (p * (m + q)))], p, 0, e_1 - 1], Vector[(r * u)]], r, 0, e_2 - 1) → SqsSequence(Translate[Sequence[Polygon[(x(D) + (0.5 * n), y(D) + (0.5 * n) - (p * (n + q))), (x(D) - (0.5 * n), y(D) + (0.5 * n) - (p * (n + q))), (x(D) - (0.5 * n), y(D) - (0.5 * n) - (p * (n + q))), (x(D) + (0.5 * n), y(D) - (0.5 * n) - (p * (n + q)))], p, 0, a_1 - 1], Vector[(r * v)]], r, 0, a_2 - 1) → SqbSequence((x(Rp) + ((r + 0.5) * n) + (0.5 * m) + ((r + 1) * q), y(Rp)), r, 0, b_1 - 1) → Lp2Sequence((x(Rp), y(Rp) - ((r + 0.5) * n) - (0.5 * m) - ((r + 1) * q)), r, 0, b_1 - 1) → Lp3Sequence(Translate[Sequence[Polygon[(x(A) + (0.5 * m) + (p * (m + q)), y(A) + (0.5 * n)), (x(A) - (0.5 * m) + (p * (m + q)), y(A) + (0.5 * n)), (x(A) - (0.5 * m) + (p * (m + q)), y(A) - (0.5 * n)), (x(A) + (0.5 * m) + (p * (m + q)), y(A) - (0.5 * n))], p, 0, r_1 - 1], Vector[(r * v_1)]], r, 0, a_1 - 1) → Rh1Sequence((x(Rp) + ((r + 0.5) * n) + (0.5 * m) + ((r + 1) * q), y(Rp) - (0.5 * n) - q - (0.5 * m)), r, 0, b_1 - 1) → Lp1Sequence((x(A), y(Rp) - ((r + 0.5) * n) - (0.5 * m) - ((r + 1) * q)), r, 0, b_1 - 1) → Lp1a