5. Azonosságok - Két tag összegének négyzete
Author: zsuzsa@geogebra.org

   (a+b)^2=a^2+2ab+b^2 

a oldalú négyzet

b oldalú négyzet

téglalapok

területek

képlet

számítások

szakaszhosszak

a = 8 (slider from 0 to 10, step 0.1)
b = 3 (slider from 0 to 10, step 0.1)
Kezdő = (-2, 2)
kör_a = Circle(Kezdő, a)
Irány = Point(kör_a)
sszanegyzet, oldalanegyzet_1, oldalanegyzet_2, oldalanegyzet_3, oldalanegyzet_4, Anegyzet_3, Anegyzet_4 = Polygon(Kezdő, Irány, 4.0)
segéd_1 = Ray(Anegyzet_3, Irány)
segéd_2 = Ray(Kezdő, Irány)
kör_b = Circle(Irány, b)
Bnegyzet_2 = Intersect(kör_b, segéd_2, 2.0)
oldal_1 = OrthogonalLine(Bnegyzet_2, segéd_2)
Bnegyzet_3 = Intersect(kör_b, segéd_1, 2.0)
oldal_2 = OrthogonalLine(Bnegyzet_3, segéd_1)
segéd_3 = Ray(Anegyzet_4, Anegyzet_3)
segéd_4 = Ray(Anegyzet_4, Kezdő)
Bnegyzet_4 = Intersect(oldal_1, oldal_2)
sszbnegyzet, oldalbnegyzet_1, oldalbnegyzet_3, oldalbnegyzet_2, oldalbnegyzet_4 = Polygon(Irány, Bnegyzet_3, Bnegyzet_4, Bnegyzet_2)
Tl_2 = Intersect(oldal_2, segéd_4)
sszteglalap_1, oldalteglalap1_1, oldalteglalap1_2, oldalteglalap1_3, oldalteglalap1_4 = Polygon(Tl_2, Bnegyzet_3, Irány, Kezdő)
Tl_1 = Intersect(oldal_1, segéd_3)
sszteglalap_2, oldalteglalap2_1, oldalteglalap2_2, oldalteglalap2_3, oldalteglalap2_4 = Polygon(Irány, Bnegyzet_2, Tl_1, Anegyzet_3)
szk2: "(" + a + "+" + b + ")^2" + "=" + a + "^2+2\cdot " + a + "\cdot " + b + "+" + b + "^2"
szk3: "  (" + (a + b) + ")^2" + "=" + (a^(2.0)) + "+" + (2.0 * a * b) + "+" + (b^(2.0))
szk4: (a + b)^(2.0) + "=" + (a^(2.0) + 2.0 * a * b + b^(2.0))
szanegyzet: "a^2=" + sszanegyzet
szab_1: "a \cdot b=" + sszteglalap_1
szab_2: "a \cdot b=" + sszteglalap_2
sza: "a=" + a
szb: "b=" + b
lanegyzet = true
lbnegyzet = true
lteglalapok = true
lteruletek = true
lkeplet = true
lszamitasok = true
Irány_B = Point(kör_b)
sszbnegyzet_{a0}, oldalbnegyzeta0_1, oldalbnegyzeta0_2, oldalbnegyzeta0_3, oldalbnegyzeta0_4, Bnegyzeta0_1, Bnegyzeta0_2 = Polygon(Irány_B, Irány, 4.0)
szbnegyzet: "b^2=" + (b * b)
lszh = true