光学不等式

GeoGebra 命令及参数

1. PolyLine(A + spc, A + (1 - spc, 0.5), A + (spc, 1 - spc)) → f
2. Textfield(spc) → InputBox1
3. Sequence(Sequence[Random[0, 360 / ang], i, 1, rx], j, 1, ry) → M_1
4. Sequence(Sequence[Translate[Rotate[f, ((ang * Element[M_a, j, i]))°, A + 0.5], (i - 1, j - 1)], i, 1, rx], j, 1, ry) → L_1
5. Textfield(ang) → InputBox2
6. Sequence(Sequence[g(i, j), i, 1, rx], j, 1, ry) → M_2
7. Textfield(g) → InputBox3
8. Sequence(Sequence[Translate[Rotate[f, ((ang * Element[M_2, j, i]))°, A + 0.5], (i - 1, j - 1)], i, 1, rx], j, 1, ry) → L_2