S

Lot

Fußpunkt

a

F

Kraft F

Kraftarm a

Drehmoment M

A = (1, 1)
B = (4, 1)
C = (4, 6)
D = (1, 6)
v1, a, b, c, d = Polygon(A, B, C, D)
f = Segment(A, C)
g = Segment(B, D)
S = Intersect(f, g)
α = 0 rad (slider from 0 to 90°)
A' = Rotate(A, α, A)
B' = Rotate(B, α, A)
C' = Rotate(C, α, A)
D' = Rotate(D, α, A)
v1', a', b', c', d' = Polygon(A', B', C', D')
h = Segment(A', C')
S' = Rotate(S, α, A)
i = Segment(B', D')
j: y = x(A)
k = OrthogonalLine(S', j)
E = Intersect(k, j)
v2 = If(x(A) > x(S), Polygon[Rotate[A, 90° - α, A], Rotate[B, 90° - α, A], Rotate[C, 90° - α, A], Rotate[D, 90° - α, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v3 = If(x(A) > x(S), Polygon[Rotate[A, 90° - α, A], Rotate[B, 90° - α, A], Rotate[C, 90° - α, A], Rotate[D, 90° - α, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v4 = If(x(A) > x(S), Polygon[Rotate[A, 90° - α, A], Rotate[B, 90° - α, A], Rotate[C, 90° - α, A], Rotate[D, 90° - α, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v5 = If(x(A) > x(S), Polygon[Rotate[A, 90° - α, A], Rotate[B, 90° - α, A], Rotate[C, 90° - α, A], Rotate[D, 90° - α, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v6 = If(x(A) > x(S), Polygon[Rotate[A, 90° - α, A], Rotate[B, 90° - α, A], Rotate[C, 90° - α, A], Rotate[D, 90° - α, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v7 = If(x(A) > x(S), Polygon[Rotate[A, 90°, A], Rotate[B, 90°, A], Rotate[C, 90°, A], Rotate[D, 90°, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v8 = If(x(A) > x(S), Polygon[Rotate[A, 90°, A], Rotate[B, 90°, A], Rotate[C, 90°, A], Rotate[D, 90°, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
v9 = If(x(A) > x(S), Polygon[Rotate[A, 90°, A], Rotate[B, 90°, A], Rotate[C, 90°, A], Rotate[D, 90°, A]], Polygon[Rotate[A, α, A], Rotate[B, α, A], Rotate[C, α, A], Rotate[D, α, A]])
Drehachse = If(α > 0° ∧ α < 90°, OrthogonalLine[A, j])
l = OrthogonalLine(S', Drehachse)
F = Intersect(l, Drehachse)
m = If(α > 0° ∧ α < 90°, Segment[S', F])
S_1 = Point({x(S), y(S) / 2})
e = Circle(S', 2)
G, H = Intersect(e, k)
u = Vector(S', G)
n = false
o = false
Drehmoment: (Length[u] * m)
Text1: "Drehmoment M=F·a=" + Drehmoment + " Nm"
p = false