K

mg

F_e

F_s

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
α = 0.6108652381980153 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
C = Rotate(B, α, A)
β = Angle(B, A, C)
a = Ray(A, C)
D = Point(a)
b = OrthogonalLine(D, a)
c = OrthogonalLine(C, a)
r = 1 (slider from -5 to 5, step 0.1)
d = Circle(D, r)
e_2 = Circle(C, r)
E = Intersect(d, b, 2)
F = Intersect(e_2, c, 2)
poly1, d_1, e_1, f_1, c_1 = Polygon(D, E, F, C)
G_1 = Midpoint(D, F)
g = Ray(A, B)
h = OrthogonalLine(G_1, g)
mg = 5 (slider from 0 to 5, step 0.1)
k_1 = Circle(G_1, mg)
H = Intersect(k_1, h, 1)
G = Vector(G_1, H)
f = OrthogonalLine(G_1, a)
i = Line(H, a)
I = Intersect(f, i)
p = Circle(G_1, I)
J = Intersect(p, f, 2)
k = Vector(G_1, J)
u = Vector(I, H)
K = Translate(G_1, u)
e = Vector(G_1, K)
j = Distance(G_1, H)
T1: "mg = " + (mg 100) + " N"
T2: "α = " + α
L = Midpoint(G_1, J)
M = Midpoint(G_1, H)
μ = 0.27 (slider from 0 to 0.36, step 0.01)
q = Circle(C, mg μ cos(α))
O = Intersect(q, a, 2)
v = Vector(C, O)
P = Midpoint(C, O)
Q = Translate(K, v)
w = Vector(K, Q)
z = Vector(G_1, Q)
T7: "μ = " + μ
N = Midpoint(G_1, Q)