Interactive Parallelogram Properties: Identify and Verify Key Features

Loading the math board and drawing, please wait…

2023-12-06 20:41

In collections Parallelogramm und Raute: Eigenschaften und Konstruktionen

This GeoGebra example demonstrates parallelogram properties through an interactive activity that lets students select statements/measurements and receive immediate correctness feedback. It centers on core concepts such as the relationships among sides and angles in a parallelogram (e.g., opposite sides parallel, opposite angles equal, and related angle properties), and how to apply these properties using geometric measurements. Construction highlights include building the quadrilateral with Polygon, using Rotate together with Segment, Length, and Angle to measure and visualize relevant geometric quantities, and employing Textfield and Element for annotations and display. The interactive logic is implemented with KeepIf, CountIf, If, Join, Append, and Remove to filter choices, count matches, and determine whether the selected conditions are correct; Shuffle is used to vary the practice. Named objects like chosen*, correct*, input*, and showSolution* indicate the workflow for user input, verification, and solution reveal. Suitable for Grades 5–6 geometry practice and teaching objectives focused on describing and applying properties of special quadrilaterals (including parallelograms and related figures).

GeoGebra Commands & Parameters

CountIf(m ≟ true, m, {chosena2, chosenb2, chosenc2, chosend2}) → numChosen2
CountIf(m ≟ true, m, {chosenalpha2, chosenbeta2, chosengamma2, chosendelta2}) → numChosen6
Point(Circle[A, (5 * scale)]) → B
Rotate(B + ((4 * scale) * UnitVector[Vector[B, A]]), 240°, B) → C
KeepIf(Distance[A, P] ≥ rad1 ∧ Distance[B, P] ≥ rad1 ∧ Distance[C, P] ≥ rad1 ∧ Distance[D, P] ≥ rad1, P, Flatten[Sequence[Sequence[F + ((m * 0.3) * (1, 0)) + ((j * 0.3) * (0, 1)), m, 0, 35], j, 0, 14]]) → listPoints
Point(Join[{listPoints, {A, B, C, D}}]) → BS
Point(Join[{listPoints, {A, B, C, D}}]) → CS
Point(Join[{listPoints, {A, B, C, D}}]) → DS
Point(Join[{listPoints, {A, B, C, D}}]) → AS
Element({correct1, correct2, correct34, correct5, correct6, correct78, correct9, correct10, correct11}, exnum) → correct
CountIf(m ≟ true, m, {chosenA2, chosenB2, chosenC2, chosenD2}) → numChosen9
CountIf(m ≟ true, m, {chosenA, chosenB, chosenC, chosenD}) → numChosen8
CountIf(m ≟ true, m, {chosena, chosenb, chosenc, chosend}) → numChosen1
CountIf(m ≟ true, m, {chosenalpha, chosenbeta, chosengamma, chosendelta}) → numChosen5
Length(KeepIf[P ∈ {A, B, C, D}, P, {AS, BS, CS, DS}]) → pointsInABCD
Textfield(input3) → Eingabefeld3
Textfield(input4) → Eingabefeld4
Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback) → rectangleCorrect, rectangleCorrectS3, rectangleCorrectS4, rectangleCorrectS2, rectangleCorrectS1
Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForX, {2, 10, 5, 6, 10, 7, 5, 9, 3, 2, 4, 8, 0, 1, 0, 4, 1, 10, 7, 5, 9, 2, 3, 9, 2, 8, 8, 6, 5, 3, 10, 4, 5, 2, 6, 8, 9, 9, 4, 5, 5, 8, 4, 4, 0, 1, 2, 1, 3, 6, 9, 1, 3, 8, 7, 9, 1, 8, 4, 3, 8, 2, 6, 7, 7, 4, 1, 8, 6, 6, 4, 9, 7, 2, 2, 6, 10, 4, 8, 2, 2, 5, 3, 10, 2, 6, 4, 0, 1, 10, 7, 2, 2, 7, 2, 1, 0, 4, 0, 2}
Element(randomNosForX, Mod[questionCount, 100] + 1) → numX
Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForY, {1, 7, 0, 4, 8, 6, 9, 4, 4, 9, 5, 3, 5, 3, 6, 7, 8, 7, 1, 1, 2, 10, 2, 9, 7, 2, 7, 7, 6, 2, 3, 6, 9, 9, 9, 5, 9, 2, 8, 6, 2, 7, 6, 5, 0, 3, 5, 8, 6, 6, 5, 7, 7, 4, 9, 2, 1, 4, 10, 9, 0, 3, 1, 1, 5, 2, 9, 7, 4, 0, 2, 6, 6, 2, 3, 1, 3, 2, 2, 5, 1, 9, 3, 5, 4, 10, 6, 2, 2, 6, 1, 8, 4, 7, 4, 7, 10, 6, 5, 7}
Element(randomNosForY, Mod[questionCount, 100] + 1) → numY
Append(true, Sequence[If[randomNosForX(i) ≟ randomNosForX(i - 1), false, true], i, 2, 100]) → stayX
Append(true, Sequence[If[randomNosForY(i) ≟ randomNosForY(i - 1), false, true], i, 2, 100]) → stayY
Remove(Sequence[If[stayX(i), randomNosForX(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForXwithoutRepeat
Remove(Sequence[If[stayY(i), randomNosForY(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForYwithoutRepeat
Element(randomNosForXwithoutRepeat, Mod[questionCount, Length[randomNosForXwithoutRepeat]] + 1) → numXwithoutRepeat
Element(randomNosForYwithoutRepeat, Mod[questionCount, Length[randomNosForYwithoutRepeat]] + 1) → numYwithoutRepeat
If(exnum ≟ 3, (correct3 ∨ correct4) ∧ (¬correct34), If[exnum ≟ 6, (correct7 ∨ correct8) ∧ (¬correct78), If[exnum ≟ 7, (correct9a ∨ correct9b ∨ correct9c ∨ correct9d) ∧ (¬correct9), false]]) → correctpartially
Join(Sequence[Shuffle[Sequence[1, maxexnum]], m, 1, floor(110 / maxexnum)]) → listExNums
Polygon(A, B, C, D) → v1, a, b, c, d
Element({1, 1, 3, 1, 2, 3, 3, 1, 2}, exnum) → versuche
SpeechBubbleRight(E, 6.75, 1.13) → Vieleck1
Angle(v1) → α, β, γ, δ
Textfield(input7) → Eingabefeld7
Textfield(input8) → Eingabefeld8
Element(Join[{listPoints, {A, B, C, D}}], g) → G
Segment(A, C) → f
Segment(B, D) → h
Point(Line[Mathspooky, xAxis]) → N
SpeechBubbleRight(K, 4.4, 1) → Vieleck2
SpeechBubbleRight(E + (0, 0.4), 6.75, 1.13 - 0.4) → Vieleck3
Point(Line[L0, yAxis]) → L1
Point(Line[L0, yAxis]) → L2
Point(Line[L0, yAxis]) → L3
Point(Line[L0, yAxis]) → L4
Point(Line[L0, yAxis]) → L5
Point(Line[L0, yAxis]) → L6
Point(Line[L0, yAxis]) → L7
Point(Line[L0, yAxis]) → L8
Point(Line[L0, yAxis]) → L9
Element({L1, L2, L3, L4, L5, L6, L7, L8, L9}, exnum) → L

AI Drawing Prompt Reference

Describe a parallelogram shape. The shape consists of four points, two of which are generated by scaling and rotation, and the other two are used to find the center point. The construction order: first draw a point, then generate two points by scaling and rotation, then find the center point, and finally connect these points to form the parallelogram.

The prompt above was compiled from the original drawing commands and is for reference only.