Wirkungslinie 1

Kraftarm l_1

Lastarm l_2

Wirkungslinie 2

Hebelarm

Kraftarm l_1

Lastarm l_2

Hebelarm = 10 (slider from 1 to 18, step 1)
Ende: 18
O = Intersect(xAxis, yAxis)
f = Segment((1, 0), (Ende, 0))
A = Point({(Hebelarm, 0)})
c = Circle(O, x(A))
C, D = Intersect(c, yAxis)
d = CircleArc(O, C, D)
B = Point(d)
k = Segment(O, B)
B' = Mirror(B, O)
g = Segment(B', B)
E = Point(k)
h = OrthogonalLine(E, xAxis)
i = OrthogonalLine((x(E), y(E) + 1), yAxis)
F = Intersect(i, yAxis)
l_1 = Segment(F, (x(E), y(E) + 1))
G = Point(h)
F1 = Vector(E, G)
F_1 = Segment(E, G)
l2 = 3 (slider from 1 to Hebelarm, step 0.5)
F2: (F_1 * l_1 / l2)
j: x = (-l2)
H = Intersect(j, g)
F_2 = Segment(H, (x(H), y(H) - F2))
u = Vector(H, (x(H), y(H) - F2))
I = Intersect(i, j)
l_2 = Segment(I, F)
J = (-3, -8)
K = (3, -8)
L = (3, -9)
M = (-3, -9)
v1, j_1, k_1, l_3, m = Polygon(J, K, L, M)
a = false
n = If(y(B) ≥ 0, Segment[O, (0, y(E) + 1.5)], Segment[O, (0, y(E) - 1.5)])
p = If(y(B) ≥ 0, Segment[O, (0, y(E) + 1.5)], Segment[O, (0, y(E) - 1.5)])
b = false
e = false
o: l_1 / l_2
Text1: "F_2 = " + o + " F_1"
l = Segment(O, (0, -8))