$P$

$\mathbf{W}$

$%v$

$\theta = %v$

$P$

$%v$

$%v$

$N$

$y$

$\mu_s N$

$x$

$x$

$W$

theta = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
h2: 1.5
O = (0, 0)
j: (0, 1)
alpha = 0.6108652381980153 rad (slider from 0° to 90°, step 0.017453292519943295)
v = Rotate(j, alpha)
A: O + (h2 / 2 * v)
A': A + (3; theta)
h1: 0.3
i: (1, 0)
u = Rotate(i, alpha)
w1 = 4 (slider from -5 to 5)
incline = Polygon(O + {(w1 * u), (w1 * u) - (h1 * v), ((-w1) * u) - (h1 * v), ((-w1) * u)})
w2: 1
block = Polygon(O + {(w2 * u), (w2 * u) + (h2 * v), ((-w2) * u) + (h2 * v), ((-w2) * u)})
p = Vector(A', A' + (2; theta))
w = Vector(A, A - (2 * j))
B: O - (w1 * u) - (h1 * v)
α = Angle(B + (2 * i), B, B + (2 * u))
witness1 = Segment(B, B + (2 * i))
bar_1, bar_2 = link(A, A', 0.15)
witness2 = Segment(A', A' + (2 * i))
θ = Angle(A' + (2 * i), A', A' + (2; theta))
W: 500
text1: "$W = " + (LaTeX[W]) + " \text{ N}$"
TR = (4, 6)
BL = (-4, -3)
p' = Vector(A, A + (2; theta))
θ' = Angle(A + (2 * u), A, A + p)
α' = Angle(A - (2 * v), A, A + w)
n = Vector(A - (2 * v), A)
y' = Vector(A, A + (3 * v))
f = Vector(A, A - u)
x' = Vector(A + (2 * u), A - (3 * u))
BL2_{1} = NaN

Tool: Moment
Moment[ <Point>, <Number>, <Number> ]
Input: A, M, scale
Output: arc, Arrowhead

B: A + ((abs(M) * scale); 45°)
C: A + ((abs(M) * scale); -45°)
arc = CircleArc(A, B, C)
D: B + (Min[0.3, abs((M * scale))]; 130°)
D': B + (Min[0.4, abs((M * scale))]; 165°)
Arrowhead = If(M < 0, CircleSector[B, D, D'], Mirror[CircleSector[B, D, D'], y = y(A)])

Tool: link
<point, point, size>
Input: A, B, t
Output: stroke, fill

u = UnitOrthogonalVector(Segment[A, B])
stroke: {Segment[A - (u * t), B - (u * t)], CircleArc[B, B - (u * t), B + (u * t)], Segment[B + (u * t), A + (u * t)], CircleArc[A, A + (u * t), A - (u * t)]}
fill: {Polygon[A - (u * t), B - (u * t), B + (u * t), A + (u * t)], CircleSector[B, B - (u * t), B + (u * t)], CircleSector[A, A + (u * t), A - (u * t)]}