A = (5.105443184078343, 6.6785375940051335)
B = (2.6661107857789283, 1.0565172338438507)
C = (8.471499487789261, 0.9848891653877292)
poly1, c, a, b = Polygon(A, B, C)
poly2, a_1, c_1, d, e, F, G = Polygon(A, C, 4.0)
poly3, b_1, a_2, f, g, E, D = Polygon(B, A, 4.0)
h = Segment(E, G)
O = Midpoint(E, G)
u = Vector(A, E)
v = Vector(A, C)
i: u * v
w = Vector(A, B)
z = Vector(A, G)
j: w * z
k = Vector(A, O)
l = Vector(B, C)

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"