Equilibre d'une masse suspendue
Author: Bruno Caussieu

SOUMIS  A  3  FORCES

 EQUILIBRE  D' UN  CORPS

Réalisé par bruno CAUSSIEU

m = 100 (slider from 10 to 200, step 1)
P1: m 10
B = (10.137037037037032, 8.640740740740734)
A = Intersect(xAxis, yAxis)
a = Segment(A, B)
D = Point(a)
e = OrthogonalLine(D, xAxis)
H = Intersect(e, xAxis)
AH = Distance(A, H)
G = Point(a)
AG = Distance(A, G)
E = (0, 10)
C = Point(yAxis)
α = Angle(B, A, C)
β = Angle(G, C, E)
F1: P1 AH / (AG sin(β - α))
V = Point(yAxis)
d1 = Segment(E, V)
T1: "m = " + m + " kg"
P2: Vector[A, D] + (0, -10)
P = Vector(D, P2)
b = Segment(C, G)
D1: Vector[A, D] + (0, -2)
D2: Vector[A, D1] + (0.5, 0)
D3: Vector[A, D1] + (-0.5, 0)
D4: Vector[A, D3] + (0, -0.5)
D5: Vector[A, D4] + (1, 0)
Q, d3, d2, d5, d4 = Polygon(D3, D2, D5, D4)
c1 = Segment(D, D1)
c = Distance(A, C)
d = Distance(A, D)
u = Vector(G, C)
F3: Vector[A, G] + u F1 / Distance[G, C] / m
F = Vector(G, F3)
I = Intersect(b, e)
R: sqrt((P1 + F1 cos(β))² + (F1 sin(β))²)
R1: Vector[A, I] R / Distance[A, I] / m
R2 = Vector(A, R1)
W = (30, 14)
W1: Vector[A, W] + P
W2: Vector[A, W1] + F
W3: Vector[A, W2] + R2
Poids = Vector(W, W1)
Tension_F = Vector(W1, W2)
Réaction_M = Vector(W2, W3)
f = Segment(I, D)
g = OrthogonalLine(W1, xAxis)
J = Intersect(g, xAxis)
h = Segment(W1, J)
β1 = Angle(W2, W1, J)
T2: "α = " + α
T3: "β = " + β
T4: "P = " + P1 + " N"
T5: "F = " + F1 + " N"
T6: "R = " + R + " N"
K = (9, 17)
L = (9, 14)
M = (21, 14)
N = (21, 17)
S, k, l, m_1, n = Polygon(K, L, M, N)