Rotation d'un objet - Moment d'une force

Rotation de la clé

 \vec{  F  } 

FORMULE

d

BRAS DE LEVIER

B = (15.94, 3.2)
O = (-12.06268639484967, 3.1993943295362084)
barre = Segment(O, B)
C = (16, -5)
u = Vector(B, C)
α = Angle(O, B, C)
b = OrthogonalLine(O, u)
c = Line(B, C)
D = Intersect(b, c)
CB = Distance(C, B)
TexteCB: "\overline{" + (Name[C]) + (Name[B]) + "} \, = \, " + CB
OD = Distance(O, D)
TexteAD: "\overline{" + (Name[O]) + (Name[D]) + "} \, = \, " + OD
OB = Distance(O, B)
TexteAB: "\overline{" + (Name[O]) + (Name[B]) + "} \, = \, " + OB
β = Angle(B, D, O)
A = (-14.361507286353998, -1.8580116317733089)
E = (21.902392277126744, -1.8580116317733089)
T1: "Moment de la force = " + (CB 5 OD / 100) + " N.m"
T2: "F = " + (CB 5) + " N"
T3: " Longueur de la clé = " + (OB / 100) + " m"
T4: "Longueur du bras de levier : d = " + (OD / 100) + " m"
sens = If(α < 180 °, 1, -1)
H = (37.419433294780944, 1.532749183195572)
I = (30.350559053405142, 1.7051607500583963)
moment: CB 5 OD / 100
J = Rotate(H, -moment 3 sens °, I)
γ = Angle(J, I, H)
e = Circle(J, 1)
fleche = If(α < 180 °, CircleArc[I, J, H], CircleArc[I, H, J])
F, K = Intersect(e, fleche)
w = Vector(F, J)
θ = If(α < 180 °, Angle[O, B, C], Angle[C, B, O])
δ = Angle(O, B, C)
T7: "Calcul : M = F x d = " + (CB 5) + " x " + (OD / 100) + " = " + moment + " N.m"
w_2 = Vector(K, J)
G = Midpoint(C, B)
a = false
d = Segment(O, D)
L = Midpoint(O, D)
M = (-9.361571847332089, 17.39461333457542)
N = (15.52316430320224, 17.45208385686303)
P = (15.52316430320224, 14.92338087620827)
Q = (-9.30410132504448, 14.92338087620827)
poly1, m, n, p, q = Polygon(M, N, P, Q)
f = false