ΕΜΦΑΝΙΣΗ / ΑΠΟΚΡΥΨΗ ΣΗΜΕΙΟΥ Α

ΤΙΤΛΟΣ

Έλεγχος παραλληλίας της ευθείας ψ=κ με τον άξονα x΄x

Έλεγχος παραλληλίας της ευθείας χ=κ με τον άξονα y'y

Αρβανιτίδης Συμεών
Μαθηματικός

γ = 10 (slider from -10 to 10, step 1)
α = 2 (slider from -10 to 10, step 1)
β = -2 (slider from -10 to 10, step 1)
ε: (α * x) + (β * y) = γ
Α = (3.1912596169632046, -1.91452851191735)
c = OrthogonalLine(Α, ε)
Γ = Intersect(ε, c)
u = Vector(Α, Γ)
απόστασηΑa = Distance(Α, ε)
Ο = Intersect(xAxis, yAxis)
κείμενο2 = If(απόστασηΑa ≤ 0.01, Text[1])
Δ = If(απόστασηΑa < 0.1, Translate[Α, u], Α)
d = Distance(Δ, ε)
Ρ: (α * x(Δ)) + (β * y(Δ))
κείμενο8: "" + Δ + ""
e = true
κείμενο5_1: "Η απόσταση του σημείου Α απο την ευθεία ε είναι d= " + d + "cm "
κείμενο1: "To σημείο Α" + Δ + " βρίσκεται πάνω στην ευθεία ε:
Oι συντεταγμένες του Α επαληθεύουν την εξίσωση της ε
( " + (LaTeX[α]) + ")·(" + (LaTeX[x(Δ)]) + ")+(" + (LaTeX[β]) + ")·(" + (LaTeX[y(Δ)]) + ")=" + (LaTeX[Ρ]) + "⇒" + (LaTeX[Ρ]) + "=" + (LaTeX[Ρ]) + "
Αρα το ζεύγος των αριθμών " + Δ + "είναι
 λύση της παραπάνω εξίσωσης."
Τ = 1 (slider from 0 to 1, step 0.01)
Β = Intersect(yAxis, ε)
v = Vector(Β, Ο)
ε' = Translate(ε, v)
Ζ: Ο + ((Β - Ο) * Τ)
w = Vector(Β, Ζ)
ε'_1 = Translate(ε, w)
a = false
b: a ∧ Τ > 0 ∨ (¬a) ∧ Τ ≤ 0
Ε = Intersect(ε, xAxis)
z = Vector(Ε, Ο)
ε'_2 = Translate(ε, z)
Π = 1 (slider from 0 to 1, step 0.01)
Η: Ο + ((Ε - Ο) * Π)
f = Vector(Ε, Η)
ε'_3 = Translate(ε, f)
g = false
h: g ∧ Π > 0 ∨ (¬g) ∧ Π ≤ 0
i: γ / β
j: γ / α
k: ((-α)) / β
κείμενο5: "γ/β=(" + (LaTeX[γ]) + ")/(" + (LaTeX[β]) + ")=" + (LaTeX[i]) + "
γ/α=(" + (LaTeX[γ]) + ")/(" + (LaTeX[α]) + ")=" + (LaTeX[j]) + "
κλίση λ= " + k + "
-(α)/(β)=-(" + α + ")/(" + β + ")=" + k + ""
κείμενο4: "Το σημείο Α" + Α + " ΔΕΝ βρίσκεται πάνω στην ευθεία ε: (" + α + ")·χ+(" + β + ")y=" + γ + "
Οι συντεταγμένες του ΔΕΝ επαληθεύουν την εξίσωση της
  " + α + "·(" + (x(Δ)) + ")+(" + β + ")·(" + (y(Δ)) + ")=" + Ρ + "⇒" + Ρ + "≠" + γ + ""