矩形面积分割展示

GeoGebra 命令及参数

1. Polygon(A, (w, 0), (w, h), (0, h)) → Rectangle, a, b, c, d
2. Sequence(Polygon[(i - 1, 0), (i, 0), (i, h), (i - 1, h)], i, 1, w_B) → WidthBlocks
3. Sequence(Polygon[(0, j - 1), (0, j), (w, j), (w, j - 1)], j, 1, h_B) → HeightBlocks
4. Sequence((MeanX[{(0, j - 1), (w, j)}] - 0.2, MeanY[{(0, j - 1), (w, j)}] - 0.2), j, 1, h_B) → HeightMeans
5. Sequence((MeanX[{(i - 1, 0), (i, h)}] - 1 / 3, MeanY[{(i - 1, 0), (i, h)}] - 0.2), i, 1, w_B) → WidthMeans
6. Sequence(Text[h, Element[WidthMeans, k]], k, 1, w) → WidthLabels
7. Sequence(Text[w, Element[HeightMeans, k]], k, 1, h) → HeightLables