Höhe anzeigen

Ziehe hier, um das 
größere Dreieck zu drehen

Ziehe hier, um das 
kleinste Dreieck zu drehen

Grundseite g_{Dreieck} = [AB]

Grundseite g_{Rechteck}

A_1 = (0, 0)
B_1 = (4, 0)
C_1 = (3, 4)
poly1, c_1, a, b = Polygon(A_1, B_1, C_1)
D = Midpoint(b)
E = Midpoint(a)
d = OrthogonalLine(D, c_1)
e = OrthogonalLine(E, c_1)
F = Intersect(c_1, d)
G = Intersect(c_1, e)
H = (6, 0)
I = Point(Circle[H, Distance[F, G]])
f = Segment(H, I)
M_b = (6, 2)
M_a = (8, 2)
g_1 = Circle(M_b, Distance[D, C_1])
h_3 = Circle(M_a, Distance[E, C_1])
C, M = Intersect(g_1, h_3)
poly2, h_1, i, k, l, j = Polygon(H, I, M_a, C, M_b)
P = Point(Circle[I, Distance[G, B_1]])
m = Segment(I, P)
Q = (8, 2)
poly3, k_1, i_1, p = Polygon(I, P, M_a)
n = Ray(C, M_b)
q = Ray(I, H)
A = Intersect(q, n)
poly4, j_1, r, h_2 = Polygon(A, H, M_b)
α = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
β = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
R' = Rotate(A, -1.0 * α, M_b)
H' = Rotate(H, -1.0 * α, M_b)
J' = Rotate(M_b, -1.0 * α, M_b)
I' = Rotate(I, β, M_a)
P' = Rotate(P, β, M_a)
K' = Rotate(M_a, β, M_a)
a1 = OrthogonalLine(C, f)
S = Intersect(a1, f)
h = Segment(C, S)
γ = Angle(I, S, C)
o = false
g = Segment(A, P)
O = Point(j_1)
c = Segment(A, O)
B = Point(k_1)
b1 = Segment(I, B)
Vieleck1, p', t, i' = Polygon(M_a, I', P')
Vieleck2, h', s, r' = Polygon(M_b, R', H')
u = false