Determining Missing Angles: Geometric Construction and Properties of Quadrilater

GeoGebra Commands & Parameters

1. Random(1, 360) → randomgrad
2. Shuffle(Sequence[i, i, 70, 100]) → alphaList, {96, 71, 79, 83, 88, 77, 91, 98, 70, 85, 87, 76, 94, 78, 97, 99, 81, 84, 82, 75, 90, 80, 72, 95, 74, 92, 100, 86, 89, 73, 93}
3. Shuffle(Sequence[i, i, minbeta + 40, maxbeta - 30]) → betaList, {92, 91, 93, 96, 95, 99, 97, 94, 90, 98, 100}
4. Rotate(MKreis + (0, b), randomgrad°, MKreis) → A
5. Line(A, MKreis) → j
6. Rotate(SenkP, (-(α / 2)) + randomgrad°, A) → SenkP'_{1}
7. Ray(A, SenkP'_{1}) → f
8. Circle(A, a) → c
9. Intersect(c, f) → B,
10. Rotate(A, (-β), B) → B'
11. Ray(B, B') → i
12. Shuffle({1, 2, 3, 4}) → gesuchtListe, {3, 2, 4, 1}
13. Rotate(SenkP, α / 2 + randomgrad°, A) → SenkP'
14. Ray(A, SenkP') → g
15. Intersect(c, g) → D, C_{1}
16. Angle(B, A, D) → alp
17. Rotate(A, β, D) → A'
18. Ray(D, A') → h
19. Intersect(i, j) → C
20. Angle(D, C, B) → gam
21. Textfield(input1) → InputBox1
22. Textfield(input2) → InputBox2
23. Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback) → rectangleCorrect, rectangleCorrectS3, rectangleCorrectS4, rectangleCorrectS2, rectangleCorrectS1
24. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForX, {2, 10, 9, 4, 8, 9, 5, 10, 9, 6, 5, 5, 5, 10, 9, 0, 5, 10, 2, 4, 3, 4, 5, 6, 7, 8, 10, 5, 4, 7, 7, 6, 4, 6, 1, 1, 10, 10, 0, 1, 6, 1, 4, 8, 1, 2, 3, 4, 4, 6, 2, 4, 10, 6, 5, 3, 7, 10, 5, 10, 0, 2, 8, 5, 9, 7, 7, 0, 9, 4, 3, 6, 6, 0, 9, 7, 1, 1, 8, 5, 0, 2, 3, 7, 1, 6, 9, 5, 1, 1, 8, 2, 3, 7, 5, 4, 5, 6, 10, 10}
25. Element(randomNosForX, Mod[questionCount, 100] + 1) → numX
26. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForY, {1, 8, 0, 0, 5, 8, 6, 2, 5, 2, 7, 1, 6, 3, 8, 7, 6, 0, 1, 5, 10, 6, 6, 3, 3, 10, 3, 7, 6, 10, 1, 10, 4, 3, 7, 8, 4, 0, 10, 9, 9, 5, 7, 5, 5, 3, 0, 6, 9, 8, 3, 10, 6, 9, 4, 7, 9, 6, 1, 4, 8, 4, 5, 4, 6, 9, 7, 0, 4, 5, 3, 3, 7, 6, 2, 8, 8, 5, 2, 10, 8, 9, 5, 5, 4, 10, 3, 6, 3, 5, 3, 3, 2, 4, 0, 5, 9, 5, 3, 4}
27. Element(randomNosForY, Mod[questionCount, 100] + 1) → numY
28. Append(true, Sequence[If[randomNosForX(i) ≟ randomNosForX(i - 1), false, true], i, 2, 100]) → stayX
29. Append(true, Sequence[If[randomNosForY(i) ≟ randomNosForY(i - 1), false, true], i, 2, 100]) → stayY
30. Remove(Sequence[If[stayX(i), randomNosForX(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForXwithoutRepeat
31. Remove(Sequence[If[stayY(i), randomNosForY(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForYwithoutRepeat
32. Element(randomNosForXwithoutRepeat, Mod[questionCount, Length[randomNosForXwithoutRepeat]] + 1) → numXwithoutRepeat
33. Element(randomNosForYwithoutRepeat, Mod[questionCount, Length[randomNosForYwithoutRepeat]] + 1) → numYwithoutRepeat
34. Defined(input1) → fixed
35. Angle(SenkP, A, SenkP') → SantasLittleHelper2
36. Angle(SenkP'_{1}, A, SenkP) → SantasLittleHelper1
37. Angle(A, D, C) → del
38. Angle(C, B, A) → bet
39. If(gesucht ≟ 1 ∨ gesucht ≟ 3, RandomElement[{2, 4}], gesucht ≟ 2, RandomElement[{1, 3, 4}], gesucht ≟ 4, RandomElement[{1, 2, 3}]) → gesucht2
40. Midpoint(A, C) → E
41. Circle(MKreis, 4) → d
42. Rotate(A + (0, 0.5), randomgrad°, A) → BeschPosA
43. Rotate(C + (0, -0.5), randomgrad°, C) → BeschPosC
44. Rotate(B + (-0.5, 0), randomgrad°, B) → BeschPosB
45. Rotate(D + (0.5, 0), randomgrad°, D) → BeschPosD
46. Midpoint(B, D) → MDelt
47. Text(BeschriftungAlpha, BeschPosAlpha, false, true, 0, 0) → Text10
48. Text(BeschriftungBeta, BeschPosBeta, false, true, 0, 0) → Text11
49. Text(BeschriftungGamma, BeschPosGamma, false, true, 0, 0) → Text12
50. Text(BeschriftungDelta, BeschPosDelta, false, true, 0, 0) → Text13
51. Text(BeschA, BeschPosA, false, true, 0, 0) → Text14
52. Text(BeschB, BeschPosB, false, true, 0, 0) → Text15
53. Text(BeschC, BeschPosC, false, true, 0, 0) → Text16
54. Text(BeschD, BeschPosD, false, true, 0, 0) → Text17