Magic Rectangle
Loading the math board and drawing, please wait…
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
SelectedIndex(DropDown) → Index1Sequence(RE1 + ((0, skalaR) * i), i, 1, 24) → PLinksAlleSequence(RE1 + ((skalaR, 0) * i), i, 1, 24) → PUntenAlleDivisorsList(24) → T24Factors(24) →Sequence(PUntenAlle(T24(i)), i, 1, 8) → PUntenMöglichSequence(PLinksAlle(T24(i)), i, 1, 8) → PLinksMöglichPoint(PUntenMöglich) → RE2Point(PLinksMöglich) → RE4If(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) → listposRE2Midpoint(RE1, RE2) → TextPosaMidpoint(RE1, RE4) → TextPosbIf(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) → listposRE4SpeechBubbleRight(E, 9, 2) → Vieleck1Textfield(input1) → InputBox1Textfield(input2) → InputBox2Textfield(input3) → InputBox3Textfield(input4) → InputBox4Textfield(input5) → InputBox5Textfield(input6) → InputBox6Sequence(TE4 + (Vector[TE4, TE1] * i / 9), i, 1, 9) → TPunkteLinksSequence(TE3 + (Vector[TE4, TE1] * i / 9), i, 1, 9) → TPunkteRechtsTextfield(input7) → InputBox7Textfield(input8) → InputBox8SpeechBubbleLeft(F, 13.8, 1) → Vieleck2Semicircle(K, I) → bSemicircle(N, J) → aMirror(a, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → a'Mirror(b, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → b'Mirror(J, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → J'Mirror(K, Line[Midpoint[TE4, TE3], Midpoint[TE1, TE2]]) → K'Textfield(input9) → InputBox9Textfield(input10) → InputBox10Textfield(input11) → InputBox11Textfield(input12) → InputBox12Textfield(input13) → InputBox13Textfield(input14) → InputBox14Textfield(input15) → InputBox15Textfield(input16) → InputBox16Sequence(T2E4 + (Vector[T2E4, O] * i / 9), i, 1, 9) → T2PunkteLinksSequence(P + (Vector[T2E4, O] * i / 9), i, 1, 9) → T2PunkteRechtsSequence(Segment[T2PunkteLinks(i), T2PunkteRechts(i)], i, 1, Length[T2PunkteLinks]) → l1Sequence(Segment[TPunkteLinks(i), TPunkteRechts(i)], i, 1, Length[TPunkteLinks]) → l2