f(x) = 2.0 * x^(2.0) - x + 3.0
A: (1.0, f(1.0))
M = Point(f)
a = Line(A, M)

Tool: Angle Orienté de vecteurs (origine-vecteur-vecteur) (command AngleOriente)
Origine des représentants, 1er vecteur, 2ème vecteur
Input: O, u, v
Output: mes_θ, u', v', c, Flèche, E_θ

θ = Angle(u, v)
mes_θ: (sgn(sin(θ)) + If[sin(θ) ≟ 0.0, 1.0, 0.0]) * acos(cos(θ))
A = Translate(O, u)
B = Translate(O, v)
u' = Vector(O, A)
v' = Vector(O, B)
k: Min[1.0, Length[v'] / Length[u']] / 4.0
F_0 = Translate(O, Vector[k * u'])
F' = Rotate(F_0, (0.5 + 3.0 * abs(mes_θ) / (8.0 * 3.14)) * mes_θ, O)
F = Rotate(F_0, mes_θ, O)
L = Rotate(F', 14.999999999999998*°, F)
E = Rotate(F', 345.0*°, F)
c = CircumcircleSector(F_0, F', F)
Flèche, e, f, l = Polygon(F, L, E)
E_θ: mes_θ + " rad"