tetragvno
Author: vntala
Date: 9 Δεκέμβριος 2013

Α = (-3, 1)
a = 5 (slider from 0 to 10, step 1)
Β: Α + (a, 0)
Γ: Β + (0, a)
Δ: Α + (0, a)
πολύγ1, α, β, γ, δ = Polygon(Α, Β, Γ, Δ)
b = Distance(γ, β)
Κείμενοπολύγ1: "Εμβαδόν του  " + (Name[Α]) + (Name[Β]) + (Name[Γ]) + (Name[Δ]) + " = " + πολύγ1
περίμετροςπολύγ1 = Perimeter(πολύγ1)
κείμενο1: "Περίμετρος του  " + (Name[Α]) + (Name[Β]) + (Name[Γ]) + (Name[Δ]) + " = " + περίμετροςπολύγ1
ε = Angle(Β, Α, Δ)
ζ = Angle(Α, Δ, Γ)
η = Angle(Δ, Γ, Β)
θ = Angle(Γ, Β, Α)
ι, κ, λ, μ = Angle(πολύγ1)
c = Line(Δ, Β)
d = LineBisector(γ)
Ε = (10, 6)
Ζ = (14, 6)
Η = (14, 4)
Θ = (10, 4)
πολύγ2, ε_1, ζ_1, η_1, θ_1 = Polygon(Ε, Ζ, Η, Θ)
ν = Angle(Θ, Ε, Ζ)
ξ = Angle(Ε, Ζ, Η)
ο = Angle(Ζ, Η, Θ)
ρ = Angle(Η, Θ, Ε)
e = Distance(ε_1, θ_1)
f = Distance(η_1, ζ_1)
Κείμενοπολύγ2: "Εμβαδόν του  " + (Name[Ε]) + (Name[Ζ]) + (Name[Η]) + (Name[Θ]) + " = " + πολύγ2
περίμετροςπολύγ2 = Perimeter(πολύγ2)
κείμενο2: "Περίμετρος του  " + (Name[Ε]) + (Name[Ζ]) + (Name[Η]) + (Name[Θ]) + " = " + περίμετροςπολύγ2
g = Line(Ε, Η)
Ι = Intersect(ν, g, 1)
πολύγ3, η_2, ε_2, ζ_2 = Polygon(Ε, Ζ, Η)
Ε' = Mirror(Ε, g)
Ζ' = Mirror(Ζ, g)
Η' = Mirror(Η, g)
πολύγ3', η', ε', ζ' = Polygon(Ε', Ζ', Η')