构造平行四边形和菱形

GeoGebra 命令及参数

1. Join(Sequence[Shuffle[Sequence[1, 21]], m, 1, 9]) → listExnum
2. Element({P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, P14, P15, P16, P17, P18, P19, P20, P21}, exnum) → A
3. Rotate(A + ((scale * b) * UnitVector[Vector[A, B]]), alp, A) → D
4. If(exnum ≤ 11, 0, 1) → questionType
5. Textfield(input1) → InputBox1
6. Textfield(input2) → InputBox2
7. Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback) → rectangleCorrect, rectangleCorrectS3, rectangleCorrectS4, rectangleCorrectS2, rectangleCorrectS1
8. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForX, {1, 10, 10, 5, 10, 6, 4, 3, 8, 4, 8, 3, 2, 2, 2, 4, 10, 7, 8, 0, 0, 7, 0, 5, 8, 0, 6, 5, 8, 1, 0, 2, 3, 10, 5, 4, 5, 0, 0, 5, 6, 6, 9, 1, 7, 6, 2, 5, 9, 8, 3, 10, 5, 7, 8, 3, 6, 9, 8, 6, 5, 0, 2, 2, 4, 7, 6, 9, 8, 9, 2, 1, 0, 10, 8, 8, 5, 8, 2, 10, 5, 4, 5, 1, 1, 3, 7, 10, 10, 10, 1, 8, 8, 9, 9, 8, 6, 7, 3, 2}
9. Element(randomNosForX, Mod[questionCount, 100] + 1) → numX
10. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForY, {5, 0, 4, 4, 5, 7, 4, 10, 4, 10, 8, 5, 0, 0, 8, 2, 9, 6, 10, 2, 3, 5, 2, 4, 7, 10, 3, 9, 1, 8, 4, 2, 2, 9, 5, 8, 7, 4, 7, 5, 8, 4, 5, 4, 6, 1, 6, 6, 3, 10, 2, 9, 0, 9, 5, 1, 9, 8, 10, 2, 10, 5, 8, 3, 10, 7, 6, 1, 1, 1, 8, 1, 8, 10, 3, 9, 1, 3, 0, 2, 4, 4, 10, 4, 5, 8, 2, 5, 5, 7, 2, 8, 2, 4, 5, 4, 1, 0, 0, 5}
11. Element(randomNosForY, Mod[questionCount, 100] + 1) → numY
12. Append(true, Sequence[If[randomNosForX(i) ≟ randomNosForX(i - 1), false, true], i, 2, 100]) → stayX
13. Append(true, Sequence[If[randomNosForY(i) ≟ randomNosForY(i - 1), false, true], i, 2, 100]) → stayY
14. Remove(Sequence[If[stayX(i), randomNosForX(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForXwithoutRepeat
15. Element(randomNosForXwithoutRepeat, Mod[questionCount, Length[randomNosForXwithoutRepeat]] + 1) → numXwithoutRepeat
16. Defined((input1 * input2)) → fixed
17. Element({"Parallelogramm", "Raute"}, questionType + 1) → object
18. Polygon(A, B, C, D) → v1, a1, b1, c1, d1
19. Angle(v1) → α, β, γ, δ
20. Segment(A, C) → e1
21. Segment(B, D) → f1
22. CircleArc(B, Rotate[C, (360 - 10)°, B], Rotate[C, 10°, B]) → d
23. CircleArc(A, Rotate[C, (360 - 10)°, A], Rotate[C, 10°, A]) → h
24. CircleArc(B, Rotate[D, (360 - 20)°, B], Rotate[D, 20°, B]) → k
25. Segment(C, C + (over * UnitVector[Vector[D, C]])) → c2
26. Segment(D, D + (over * UnitVector[Vector[C, D]])) → c3
27. Segment(C, C + (over * UnitVector[Vector[B, C]])) → b2
28. Segment(D, D + (over * UnitVector[Vector[A, D]])) → d2
29. Polygon(Araute, Braute, Craute, Draute) → v2, rautea1, rauteb1, rautec1, rauted1
30. Segment(Araute, Craute) → rautee1
31. Segment(Draute, Braute) → rautef1
32. Intersect(rautef1, rautee1) → M
33. Angle(Draute, M, Araute) → ε
34. Angle(v2) → ζ, η, θ, ι
35. Segment(Draute, Draute + (0.5 * UnitVector[Vector[Braute, Draute]])) → rautef1a
36. Segment(Braute, Braute + (0.5 * UnitVector[Vector[Draute, Braute]])) → rautef1b
37. CircleArc(B, Rotate[C, (360 - 30)°, B], Rotate[C, 30°, B]) → g
38. CircleArc(A, Rotate[D, (360 - If[layout ≟ 3 ∨ layout ≟ 7, 10, 15])°, A], Rotate[D, If[layout ≟ 3 ∨ layout ≟ 7, 10, 30]°, A]) → c
39. If(step ≠ 1, SK11, SK12) → SK1
40. If(step ≠ 1, SK21, SK22) → SK2
41. If(page ≟ 0, 125, 75) → posAngabe
42. Element({e, e, f, e, b, b, e, e, a, e, f}, layout) → check
43. Segment(A, C) → checkE