Θ2
Author: Πετρίδης Παντελής

670x700

ΤΕΛΟΣ

R

R

R

R

R

R

Κύκλος

Ακτίνες-Γωνίες

Ύψη

Εγγ. κύκλος

1

1

2

2

2

1

1

2

ν = 7 (slider from 3 to 24, step 1)
ω_ν: (360°) / ν
φ_ν: 180° - ω_ν
R = 5
λ_ν: ((2 * R) * sin(ω_ν / 2))
α_ν: (R * cos(ω_ν / 2))
P_ν: (ν * λ_ν)
Ε_ν: (α_ν * λ_ν / 2)
Πολύγωνο = Polygon((((-λ_ν)) / 2, (-α_ν)), (λ_ν / 2, (-α_ν)), ν)
Α1: (((-λ_ν)) / 2, (-α_ν))
Α2: (λ_ν / 2, (-α_ν))
Α3 = Rotate(Α2, ω_ν)
Α4 = Rotate(Α3, ω_ν)
Α5 = Rotate(Α4, ω_ν)
Αν = Rotate(Α1, (-ω_ν))
Σ = Rotate(Αν, (-ω_ν))
Κ_σ = Midpoint(Σ, Αν)
Κ_β = Midpoint(Α2, Α3)
Κ_γ = Midpoint(Α3, Α4)
Κ_δ = Midpoint(Α4, Α5)
Ζ = Rotate(Α5, ω_ν)
Κ_ε = Midpoint(Α5, Ζ)
ΑΒ = Segment(Α1, Α2)
ΒΓ = Segment(Α2, Α3)
ΓΔ = Segment(Α3, Α4)
ΔΕ = Segment(Α4, Α5)
ΤΑ = Segment(Αν, Α1)
ΜστΤ = Segment(Κ_σ, Αν)
ΜβγΒ = Segment(Α2, Κ_β)
ΜγδΓ = Segment(Α3, Κ_γ)
ΜδεΔ = Segment(Α4, Κ_δ)
ΜεζΕ = Segment(Α5, Κ_ε)
s = 6 (slider from 2 to 6, step 0.1)
Ο = (0, 0)
Νστ = Rotate(Αν, ω_ν / 2)
Ν'στ = Rotate(Νστ, ((s - 1) * ω_ν))
ΝΝ' = CircleArc(Ο, Νστ, Ν'στ)
C_o = Circle(Ο, R)
ΟΑ = Segment(Ο, Α1)
ΟΒ = Segment(Ο, Α2)
ΟΓ = Segment(Ο, Α3)
ΟΔ_1 = Segment(Ο, Α4)
ΟΔ_2 = Segment(Ο, Α4)
ΟΕ_1 = Segment(Ο, Α5)
ΟΕ_2 = Segment(Ο, Α5)
ΟΤ = Segment(Ο, Αν)
chkC_o = true
chkR = false
Κ_α = Midpoint(ΑΒ)
Κ_τ = Midpoint(ΤΑ)
υ_α = Segment(Ο, Κ_α)
υ_β = Segment(Ο, Κ_β)
υ_γ = Segment(Ο, Κ_γ)
υ_δ = Segment(Ο, Κ_δ)
υ_τ = Segment(Ο, Κ_τ)
r_α = Angle(Ο, Κ_α, Α1)
r_β = Angle(Ο, Κ_β, Α2)
r_γ = Angle(Ο, Κ_γ, Α3)
r_δ = Angle(Ο, Κ_δ, Α4)
r_τ = Angle(Ο, Κ_τ, Αν)
chkH = false
C_i = Circle(Ο, Κ_α)
chkC_i = false
Γ1Β1 = Angle(Α3, Α2, Ο)
Γ1Γ1 = Angle(Ο, Α3, Α2)
Γ1Β2 = Angle(Ο, Α2, Α1)
Γ1Γ2 = Angle(Α4, Α3, Ο)
Γ2Γ2 = Angle(Ο, Α3, Α2)
Γ2Γ1 = Angle(Α4, Α3, Ο)
Γ2Δ1 = Angle(Ο, Α4, Α3)
Γ2Δ2 = Angle(Α5, Α4, Ο)
f = LineBisector(Αν, Α1)
g = LineBisector(Α1, Α2)
h = LineBisector(Α2, Α3)
i = LineBisector(Α3, Α4)
Μ1 = Point(f)
Μ2 = Point(g)
Μ3 = Point(h)
Μ4 = Point(i)