纳皮尔骨棒演示

GeoGebra 命令及参数

1. Textfield(num1) → inputBox1
2. Sequence(floor(Mod[num1, 10^(k + 1)] / 10^(k)), k, a - 1, 0, -1) → list1
3. Sequence(If[Max[1, k - 9] ≤ x ≤ Min[a + 1, k], x - k], k, 1, 9 + a) → list2
4. Sequence(Sequence[Text[Mod[Element[list1, r] * k, 10], (r + 0.6, 1 - k - 0.9)], k, 1, 9], r, 1, a) → list6
5. Sequence(Sequence[Text[floor(Element[list1, r] * k / 10), (r + 0.15, 1 - k - 0.45)], k, 1, 9], r, 1, a) → list5
6. Textfield(num2) → inputBox2
7. Sequence(Segment[(0, k), (a + 1, k)], k, -9, 0) → list4
8. Sequence(Segment[(k, 0), (k, -9)], k, 0, a + 1) → list3
9. Polygon((-0.1, -num2 + 1.1), (a + 1.1, -num2 + 1.1), (a + 1.1, -num2 - 0.1), (-0.1, -num2 - 0.1)) → poly1, b, c, d, e
10. Text(num1 * num2, (a + 1.5, -num2 + 0.3)) → text10