La lampe est stable

Basculement d'une lampe

Auteur : Michaël LADRIERE

 \vec{ P_lampe } 

 \vec{ P_Socle }

La lampe bascule

Affichages :
    Projection :
    Base de sustentation : 
    Axe de rotation :
    Centres de gravité :
    Poids :

Base de sustentation

D = (2.7800000000000002, 0.42)
C = (1.34, 0.42)
F = (5.5, 4)
Δ = Point(xAxis)
s = Segment(C, Δ)
A = Point(xAxis)
r = Segment(A, D)
B = Intersect(s, r)
G_3 = (3.08, 4.34)
H = (2.0427045634938183, 2.7274375496080068)
c = CircumcircleArc(F, G_3, H)
Gensemble = Point(c)
p = Line(Gensemble, yAxis)
b1 = Line(B, p)
d_S = Intersect(b1, xAxis)
d_E = Intersect(p, xAxis)
R_L: Distance[d_S, d_E] 1.2 + 0.5
M_L: R_L / 2
I = (4.82, 3.96)
J = (6.36, 3.98)
K = (4.62, 3.34)
a1 = Segment(K, J)
L = (6.6000000000000005, 3.3000000000000003)
t = Segment(I, L)
G_L = Intersect(a1, t)
c1 = Line(G_L, p)
R = (-2.0891679761704554, 0.005963809540672513)
S = (8.5, 0)
q = Segment(R, S)
d_L = Intersect(c1, q)
R_S: 1.2 Distance[d_L, d_E] + 0.5
M_S: R_S / 2
E = Midpoint(C, D)
M = (6.08, 3.3200000000000003)
N = (5.16, 3.34)
d = Semicircle(M, N)
a = Segment(A, C)
b = Segment(E, D)
O = Intersect(a, xAxis)
e = Segment(C, E)
f = Segment(A, Δ)
g = Segment(Δ, D)
h = Segment(E, H)
i = Segment(I, F)
j = Segment(F, J)
k = Segment(I, K)
l = Segment(K, N)
m = Segment(M, L)
n = Segment(L, J)
poly1, c_1, d_1, b_1, a_1 = Polygon(C, D, Δ, A)
poly2, i_1, f_1, j_1, l_1, m_1, n_1, k_1 = Polygon(I, F, J, L, M, N, K)
Dsocle = Distance(d_S, Δ)
Dlampe = Distance(d_E, Δ)
coeff = If(Dlampe > Dsocle, 1, -1)
d1 = Circle(G_L, R_L)
T, U = Intersect(d1, c1)
u = Vector(G_L, U)
e1 = Circle(B, R_S)
W, Z = Intersect(e1, b1)
v = Vector(B, Z)
A1 = (10.318669116482836, 1.926567251064409)
B1 = (14.235010903761033, 1.9921127203075588)
Dequ = Distance(d_S, d_E)
equilibre = If(Dequ > Dsocle, 0, 1)
C1 = Midpoint(d_S, Z)
D1 = Midpoint(G_L, U)
G_S = Intersect(s, r)
T7 = If(equilibre ≟ 1, cond_1, cond_2)
axe = 0 (slider from 0 to 1, step 1)
centre = 0 (slider from 0 to 1, step 1)
poids = 0 (slider from 0 to 1, step 1)
angle_1 = 0
angle_2 = -30
angle_3 = If(equilibre ≟ 1, angle_1 °, angle_2 °)
G = Rotate(B1, angle_3, A1)
α = Angle(B1, A1, G)
T3: "Caractéristiques de la lampe : 
    Masse du socle : " + M_S + " kg
    Masse de la lampe : " + M_L + " kg"
proj = 0 (slider from 0 to 1, step 1)
sust = 0 (slider from 0 to 1, step 1)
P = Midpoint(A, Δ)