Magic Rectangle

Magic Rectangle
Loading the math board and drawing, please wait…
2023-10-18 22:14
This example demonstrates how to determine if there is an inverse proportionality between two variables. Key math concepts include inverse proportionality and its criterion (product equality). GeoGebra commands and objects used in construction are SelectedIndex, Sequence, DivisorsList, Factors, Point, If, Midpoint, SpeechBubbleRight, Textfield, SpeechBubbleLeft, Semicircle, Mirror. Suitable for 5-

GeoGebra Commands & Parameters

  1. SelectedIndex(DropDown) → Index1
  2. Sequence(RE1 + ((0, skalaR) * i), i, 1, 24) → PLinksAlle
  3. Sequence(RE1 + ((skalaR, 0) * i), i, 1, 24) → PUntenAlle
  4. DivisorsList(24) → T24
  5. Factors(24) →
  6. Sequence(PUntenAlle(T24(i)), i, 1, 8) → PUntenMöglich
  7. Sequence(PLinksAlle(T24(i)), i, 1, 8) → PLinksMöglich
  8. Point(PUntenMöglich) → RE2
  9. Point(PLinksMöglich) → RE4
  10. If(RE2 ≟ PUntenMöglich(1), 1, RE2 ≟ PUntenMöglich(6), 6, RE2 ≟ PUntenMöglich(7), 7, RE2 ≟ PUntenMöglich(8), 8, RE2 ≟ PUntenMöglich(2), 2, RE2 ≟ PUntenMöglich(3), 3, RE2 ≟ PUntenMöglich(4), 4, RE2 ≟ PUntenMöglich(5), 5) → listposRE2
  11. Midpoint(RE1, RE2) → TextPosa
  12. Midpoint(RE1, RE4) → TextPosb
  13. If(RE4 ≟ PLinksMöglich(1), 1, RE4 ≟ PLinksMöglich(6), 6, RE4 ≟ PLinksMöglich(7), 7, RE4 ≟ PLinksMöglich(8), 8, RE4 ≟ PLinksMöglich(2), 2, RE4 ≟ PLinksMöglich(3), 3, RE4 ≟ PLinksMöglich(4), 4, RE4 ≟ PLinksMöglich(5), 5) → listposRE4
  14. SpeechBubbleRight(E, 9, 2) → Vieleck1
  15. Textfield(input1) → InputBox1
  16. Textfield(input2) → InputBox2
  17. Textfield(input3) → InputBox3
  18. Textfield(input4) → InputBox4
  19. Textfield(input5) → InputBox5
  20. Textfield(input6) → InputBox6
  21. Sequence(TE4 + (Vector[TE4, TE1] * i / 9), i, 1, 9) → TPunkteLinks
  22. Sequence(TE3 + (Vector[TE4, TE1] * i / 9), i, 1, 9) → TPunkteRechts
  23. Textfield(input7) → InputBox7
  24. Textfield(input8) → InputBox8
  25. SpeechBubbleLeft(F, 13.8, 1) → Vieleck2
  26. Semicircle(K, I) → b
  27. Semicircle(N, J) → a
  28. Mirror(a, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → a'
  29. Mirror(b, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → b'
  30. Mirror(J, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → J'
  31. Mirror(K, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → K'
  32. Textfield(input9) → InputBox9
  33. Textfield(input10) → InputBox10
  34. Textfield(input11) → InputBox11
  35. Textfield(input12) → InputBox12
  36. Textfield(input13) → InputBox13
  37. Textfield(input14) → InputBox14
  38. Textfield(input15) → InputBox15
  39. Textfield(input16) → InputBox16
  40. Sequence(T2E4 + (Vector[T2E4, O] * i / 9), i, 1, 9) → T2PunkteLinks
  41. Sequence(P + (Vector[T2E4, O] * i / 9), i, 1, 9) → T2PunkteRechts
  42. Sequence(Segment[T2PunkteLinks(i), T2PunkteRechts(i)], i, 1, Length[T2PunkteLinks]) → l1
  43. Sequence(Segment[TPunkteLinks(i), TPunkteRechts(i)], i, 1, Length[TPunkteLinks]) → l2