1

2

3

f(x) = If[(-1.5707963267948966) ≤ x ≤ 1.5707963267948966,tan(x)]
Ν = Point(xAxis)
Α = Intersect(f, b, (1.2490457738444576, 3.0000000144620316))
Γ = Intersect(f, a, (0.7853981630158214, 0.9999999992367462))
Δ = Intersect(b, yAxis)
d = Segment(Δ, Α)
Ζ = Intersect(a, yAxis)
g = Segment(Ζ, Γ)
h = OrthogonalLine(Α, xAxis)
j = OrthogonalLine(Γ, xAxis)
Η = Intersect(j, xAxis)
Ι = Intersect(h, xAxis)
k = Segment(Α, Ι)
m = Segment(Γ, Η)
Β = Point(f)
e = OrthogonalLine(Β, xAxis)
i = OrthogonalLine(Β, yAxis)
Ε = Intersect(i, yAxis)
Θ = Intersect(e, xAxis)
l = Segment(Β, Θ)
n = Segment(Β, Ε)
Κ = Midpoint(Η, Ι)
Λ = Intersect(c, yAxis)
λίστα1: {Η, Β, Ε, Θ}
A1_1: "x(" + (Name[Η] + ")")
B1_1: "y(" + (Name[Η] + ")")
C1_1: "x(" + (Name[Β] + ")")
D1_1: "y(" + (Name[Β] + ")")
E1_1: "x(" + (Name[Ε] + ")")
F1_1: "y(" + (Name[Ε] + ")")
G1_1: "x(" + (Name[Θ] + ")")
H1_1: "y(" + (Name[Θ] + ")")
p: y = x - x(Ν)
r: y = (y(Β) * x) - (x(Ν) * y(Β))
q: y = (3 * x) - (3 * x(Ν))
Ξ = Point(r)
κείμενο1: "κλίσεις
  3                " + (y(Ε)) + "                    1"
Μ = Point(xAxis)
Ο = Point(r)
Π = Point(p)
Ρ = Point(q)
α = Angle(Μ, Ν, Ο)
β = Angle(Μ, Ν, Π)
γ = Angle(Μ, Ν, Ρ)