针孔实验模拟

GeoGebra 命令及参数

1. Corner(5) → dims
2. Intersect(xAxis, yAxis) → A
3. PolyLine(A, (boardX, 0), (boardX, boardY), (0, boardY), A) → f
4. Max(boardX / boardY, x(dims) / y(dims)) → ratioaspect
5. Textfield(boardX) → InputBoxX
6. Textfield(boardY) → InputBoxY
7. Sequence(Segment[(0, t), (boardX, t)], t, 1, boardY - 1) → l1
8. Mirror(RandPosA, RandPos) → RandPosB
9. Segment(RandPosA, RandPosB) → segneedle
10. If(boardY / boardX > y(dims) / x(dims), (boardY * x(dims) / y(dims)), boardX) → boardXmod
11. If(boardY / boardX < y(dims) / x(dims), (boardX * y(dims) / x(dims)), boardY) → boardYmod
12. Textfield(needleLength) → InputBoxNeedle