Scherung des Dreiecks (Schieberegler ziehen!)

Maßstrecken anzeigen?

Ups !?!?
alpha + beta >= 180° !!!

Der Flächeninhalt eines Dreiecks ändert sich bei Scherungen nicht!

beta = 78.7 (slider from 1 to 179, step 0.1)
alpha = 33 (slider from 1 to 179, step 1)
Grundseite = 7 (slider from 1 to 11, step 0.1)
B: (Grundseite, 0)
A = (0, 0)
f = Line(A, B)
C_b = Rotate(A, -beta 3.14 / 180, B)
C_a = Rotate(B, 3.141592653589793 alpha / 180, A)
C = Intersect(Ray[A, C_a], Ray[B, C_b])
poly1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(C, c)
α = Angle(B, A, C_a)
β = Angle(C_b, B, A)
Parallele = Line(C, c)
v = Vector(A, B)
s = 0 (slider from -2 to 4, step 0.1)
C_1: C + s v
poly2, c_2, a_1, b_1 = Polygon(A, B, C_1)
e = OrthogonalLine(C_1, c)
F_1 = Intersect(e, f)
F = Intersect(d, f)
h = Segment(C, F)
h_1 = Segment(C_1, F_1)
T1: "Flächeninhalt (Dreieck ABC) = 1/2*c*h = 1/2 * " + c + " * " + h + " = " + (c h / 2) + " LE²"
T2: "Flächeninhalt Dreieck ABC_1 = 1/2*c*h_1 = 1/2 * " + c + " * " + h_1 + " = " + (c h_1 / 2) + " LE²"
show = false