抛物线与直线的 nomogram 图形工具

GeoGebra 命令及参数

1. Shuffle({1, 2, 3}) → allCaseNum, {3, 2, 1}
2. Element(allCaseNum, Mod[countQuestion, Length[allCaseNum]] + 1) → caseNum
3. Polygon(GRMIN + ((-offX), (-offY)), (x(GRMAX), y(GRMIN)) + (offX, (-offY)), GRMAX + (offX, offY), (x(GRMIN), y(GRMAX)) + ((-offX), offY)) → peep, f, g, h, i
4. Sequence((k, 0), k, -10, 10, 1) → xGrid
5. Join(Sequence[Sequence[(j, k), j, -10, 10, 1], k, -1, 17, 1]) → bigGrid
6. Sequence((0, k), k, 1, 16, 1) → yGrid
7. Segment((x(GRMIN) - offX, 0), (x(GRMAX) + offX, 0)) → fakeX
8. Segment((0, y(GRMIN) - offY), (0, y(GRMAX) + offY)) → fakeY
9. Sequence((n, par(n)), n, 1, 10) → posInt
10. Point(posInt) → P2
11. Circle(ONBPT, pulsing) → pulsingObject
12. Sequence((n, par(n)), n, -10, -1) → negInt
13. Point(negInt) → P1
14. Segment(P1, P2) → segmProd
15. Sequence(Segment[(x(S) - 0.2, t), (x(S) + 0.2, t)], t, y(S), y(U), Distance[S, U] / 10) → longTicks
16. Sequence(Segment[(x(S) - 0.2, t), (x(S) + 0.2, t)], t, y(S), y(U), Distance[S, U] / 20) → mediumTicks
17. Sequence(Segment[(x(S) - 0.1, t), (x(S) + 0.1, t)], t, y(S), y(U), Distance[S, U] / 100) → shortTicks
18. Intersect(segmProd, yAxis) → IN
19. Line(P1, P2) → linP12
20. Intersect(linP12, x = -10.2) → R