Caisse sur un plan incliné
Author: T. Vaissières

on prend g = 10 N / kg

soit une caisse de masse M

L = Point(yAxis)
B = (10, -8)
angle = 0.5061454830783556 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
C = Rotate(B, angle, L)
α = Angle(B, L, C)
a_1 = Segment(C, B)
b_1 = Segment(B, L)
c_1 = Segment(L, C)
d = 1
e_1 = Circle(C, d)
D = Intersect(e_1, c_1, 1)
E = Rotate(D, 270°, C)
β = Angle(E, C, D)
f_1 = Segment(C, E)
g = 3
h_1 = Circle(C, g)
F = Intersect(h_1, c_1)
i = OrthogonalLine(E, f_1)
j_1 = OrthogonalLine(F, c_1)
A = Intersect(i, j_1)
H = Mirror(F, A)
I_1 = Mirror(C, F)
J = Mirror(E, A)
K = Mirror(I_1, J)
k = Segment(H, I_1)
l = Segment(K, F)
G = Intersect(k, l)
P_1, h_2, f_2, i_1, k_1 = Polygon(H, F, I_1, K)
m_1 = Segment(E, A)
a = Line(G, yAxis)
M = 16.7 (slider from 0 to 20, step 0.1)
echelle_1: M / 3
c = Circle(G, echelle_1)
N_1 = Intersect(c, a, 1)
Poids = Vector(G, N_1)
O = (11.79395129216095, 1.0145927543314155)
Q = Translate(O, Poids)
poids = Vector(O, Q)
b = Line(Q, c_1)
e = OrthogonalLine(O, b)
S = Intersect(b, e)
tension = Vector(Q, S)
réaction = Vector(S, O)
U = Translate(A, tension)
Tension = Vector(A, U)
f = OrthogonalLine(G, c_1)
I = Intersect(c_1, f)
w = Translate(I, réaction)
Réaction = Vector(I, w)
T2: "Intensité du poids : P = M * g = " + (M 10) + " N"
Tension_1: Distance[Q, S] 30
T3: "Intensité de la tension du fil : T = " + Tension_1 + " N"
Reaction_1: Distance[S, O] 30
T4: "Intensité de la réaction : R = " + Reaction_1 + " N"
P, l_1, c_2, b_2 = Polygon(C, B, L)