Höhe anzeigen

Hier ziehen, um Höhe zu verändern

A_1 = (-2, 5)
B_1 = (0, 5)
a = Line(A_1, B_1)
C = Point(a)
h = 4 (slider from 1 to 5, step 0.1)
F = Point(Circle[C, h])
d = Segment(C, F)
E' = Rotate(C, 270°, C)
F' = Rotate(F, 270°, C)
Höhe = Segment(E', F')
f = Line(F', a)
A = Point(f)
B = Point(f)
poly1, Grundseite, c_1, d_1 = Polygon(A, B, C)
b = OrthogonalLine(C, f)
α = Angle(f, b)
c = Distance(Grundseite, f)
Textpoly1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
e = true