Lastenaufzug in Virgental, Steigung
Author: Prof. Dr. Dörte Haftendorn
Date: 5 November 2013

A = (-3.1677777777777787, -3.4788888888888896)
B = (6.712222222222224, 3.681111111111111)
C = (2.7122222222222225, 0.86111111111111)
a = Segment(B, C)
D = Point(a)
E = Point(a)
b = OrthogonalLine(E, xAxis)
c = OrthogonalLine(D, yAxis)
F = Intersect(b, c)
poly1, e, d, f = Polygon(D, F, E)
g = Segment(E, F)
h = Segment(D, F)
text1: "m_s = \frac{hoch}{breit} = " + (d / e)
i = Line(C, B)
j = Slope(i)