使用条形图添加分数

GeoGebra 命令及参数

1. Textfield(inputNum1) → a1InputBoxNum1
2. Textfield(inputDenom1) → a2InputBoxDenom1
3. Textfield(inputNum2) → a3InputBoxNum2
4. Textfield(inputDenom2) → a4InputBoxDenom2
5. Polygon(B, B + (tapelength, 0), B + (tapelength, tapeheight), B + (0, tapeheight)) → Tape1, b, f, g, h
6. Polygon(C, C + (tapelength, 0), C + (tapelength, tapeheight), C + (0, tapeheight)) → Tape2, c, i, j, k
7. Sequence(Segment[B + ((i * tape1unitlength), 0), B + ((i * tape1unitlength), tapeheight)], i, 1, inputDenom1 - 1) → tape1bars
8. Sequence(Segment[C + ((i * tape2unitlength), 0), C + ((i * tape2unitlength), tapeheight)], i, 1, inputDenom2 - 1) → tape2bars
9. Sequence(Segment[B + ((i * newunit1), 0), B + ((i * newunit1), tapeheight)], i, 1, (inputDenom1 * scale1) - 1) → newtape1bars
10. Sequence(Segment[C + ((i * newunit2), 0), C + ((i * newunit2), tapeheight)], i, 1, (inputDenom2 * scale2) - 1) → newtape2bars
11. Polygon(B, B + ((tape1unitlength * inputNum1), 0), B + ((tape1unitlength * inputNum1), tapeheight), B + (0, tapeheight)) → FractionTape1, b_1, l, m, n
12. Polygon(C, C + ((tape2unitlength * inputNum2), 0), C + ((tape2unitlength * inputNum2), tapeheight), C + (0, tapeheight)) → FractionTape2, c_1, p, q, r
13. Textfield(inputnewnum1) → a5InputBoxNewNum1
14. Textfield(inputnewdenom1) → a6InputBoxNewDenom1
15. Textfield(inputnewnum2) → a7InputBoxNewNum2
16. Textfield(inputnewdenom2) → a8InputBoxNewDenom2
17. GCD(sumnum, sumdenom) → reduceby