分数加法演示 by mathman1982 (2)

GeoGebra 命令及参数

1. AxisStepY() → h
2. FractionText(ans - min) → text3
3. If((left * b) ≟ (right * d), text6) → text7
4. Sequence(Polygon[{(k - 1 / ((b * left)), 0), ((If[onered ≟ true, (a * left), 1] * k), 0), ((If[onered ≟ true, (a * left), 1] * k), h), (k - 1 / ((b * left)), h)}], k, 1 / ((b * left)), a / b, If[onered ≟ true, a, 1 / ((b * left))]) → redfraction
5. Sequence(Polygon[{(k - 1 / ((d * right)), 0) + ((λ * a / b), (λ * h)), ((If[oneblue ≟ true, (c * right), 1] * k), 0) + ((λ * a / b), (λ * h)), ((If[oneblue ≟ true, (c * right), 1] * k), (-h)) + ((λ * a / b), (λ * h)), (k - 1 / ((d * right)), (-h)) + ((λ * a / b), (λ * h))}], k, 1 / ((d * right)), c / d, If[oneblue ≟ true, c / d, 1 / ((d * right))]) → bluefraction