f(x) = -x² + 8 x - 11
g = Function(f, 2, 7)
fpt = Point(g)
g' = Derivative(g)
a = Line(fpt, yAxis)
f'pt = Intersect(g', a)
C = Intersect(a, xAxis)
b = Segment(C, f'pt)
tangente = Tangent(fpt, g)
d = Line(fpt, xAxis)
e = 1
h = Circle(fpt, e)
D, E = Intersect(h, d)
i = OrthogonalLine(D, d)
vec1 = Vector(fpt, D)
F = Intersect(tangente, i)
vec2 = Vector(D, F)
polygone, f_1, a_1, d_1 = Polygon(fpt, D, F)
j = Distance(D, F)
k = Segment(D, F)
l = Segment(fpt, D)
m: y(f'pt)
G = Midpoint(F, D)
n: y(f'pt)
T1: y(f'pt) + ""
H = Midpoint(C, f'pt)
T2: y(f'pt) + ""
q = Line(fpt, xAxis)
p = Line(f'pt, xAxis)
r = Line(f'pt, yAxis)
I = Intersect(p, yAxis)
J = Intersect(r, xAxis)
f'abs = Segment(I, f'pt)
f'ord = Segment(f'pt, J)
T3: x(f'pt) + ""
T4: "f (" + (x(fpt)) + ") = " + (y(fpt))
T5: "f ' (" + (x(fpt)) + ") = " + (y(f'pt))
b_1 = Line(fpt, f'abs)
A = Intersect(d, yAxis)
fabs = Segment(A, fpt)
ford = Segment(fpt, C)
T6: y(fpt) + ""