distance de la courbe exponentielle à une droite - Epreuve pratique 2009
Author: Patrice Debart

P_2 = (-2, 0)
f = Function(exp(x), -2.0, 3.0)
P_1 = (3, 0)
O = (0, 0)
P1P2 = Segment(P_2, P_1)
P = Point(P1P2)
a: x(P)
M: (a, f(a))
x_0 = 0.6931471805599453 (slider from -5 to 5, step 0.1)
M_0: (x_0, f(x_0))
t = Tangent(M_0, f)
M' = Mirror(M, D)
M_2 = Mirror(M_0, D)
N = Midpoint(M, M')
N_0 = Midpoint(M_0, M_2)
MN = Segment(M, N)
N0M0 = Segment(N_0, M_0)
P_0: (x(M_0), 0.0)
M_1 = Intersect(t, MN)
PM = Segment(M, P)
P0M0 = Segment(M_0, P_0)
Q: (a, MN)
lieu1 = Locus(Q, P)
PQ = Segment(P, Q)