绘制图形

GeoGebra 命令及参数

1. Sequence(x = Element[list1, i], i, 1, 10) → list2
2. Sequence(Intersect[a, Element[list2, i]], i, 1, 10) → list3
3. If(d ≟ d, 1, 0) → e
4. If(e ≟ 0, Sequence[y = Element[list7, i], i, 1, 10], Sequence[x = Element[list1, i], i, 1, 10]) → list8
5. Sequence(Intersect[a, Element[list8, i]], i, 1, 10) → list9
6. Sequence(Segment[Element[list9, i], Element[list4, i]], i, 1, 10) → list10
7. Textfield(a) → inputBox1
8. Sequence(Segment[Element[list3, i], Element[list4, i]], i, 1, 10) → list5
9. Sequence(If[Element[list10, i] ≟ 0, 1, 0], i, 1, 10) → list6
10. If(e ≟ 1, Intersect[a, c], (x(Element[list9, 1]), b)) → L