Höhen anzeigen

Ziehe hier, um Dreieck A zu drehen 

Ziehe hier um Dreieck B zu drehen 

A = (0, 1)
B = (4, 1)
C = (3, 5)
D = Midpoint(A, C)
E = Midpoint(C, B)
poly1, Grundseite, b, e, d = Polygon(A, B, E, D)
c = OrthogonalLine(C, Grundseite)
F = Intersect(c, e)
G = Intersect(c, Grundseite)
H = (1.4999999999999996, 3.0000000000000004)
I = (2.980000000000002, 3.000000000000001)
J = Point(Circle[H, Distance[D, F]])
f = Segment(H, J)
K = Point(Circle[I, Distance[F, E]])
g = Segment(I, K)
h = Circle(H, Distance[D, C])
k = Circle(J, Distance[F, C])
L, M = Intersect(h, k)
p = Circle(I, Distance[F, C])
q = Circle(K, Distance[E, C])
N, O = Intersect(p, q)
Dreieck_A, l, h_3, j = Polygon(H, J, L)
Dreieck_B, n, i, k_1 = Polygon(I, K, N)
β = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
H' = Rotate(H, β, H)
J' = Rotate(J, β, H)
L' = Rotate(L, β, H)
poly2', l', h', j' = Polygon(H', J', L')
α = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
I' = Rotate(I, -α, E)
K' = Rotate(K, -α, E)
N' = Rotate(N, -α, E)
poly3', n', i', k' = Polygon(I', K', N')
m = OrthogonalLine(C, Grundseite)
r = OrthogonalLine(H, Grundseite)
P = Intersect(Grundseite, r)
h_2 = Segment(P, D)
h_1 = Segment(G, C)
γ = Angle(G, P, D)
δ = Angle(B, G, F)
o = false