Ver paralelogramo de Witterbauer

D = (-0.7950000000000007, 4.237600000000001)
C = (8.9576, 3.0760000000000014)
P: C + (D - C) / 3
R = Midpoint(D, P)
B = (1.5281999999999993, -3.0465999999999984)
O: C + (B - C) / 3
j_1 = Line(P, O)
S = Midpoint(O, B)
A = (-3.1666000000000007, -1.4493999999999985)
N: A + (D - A) / 3
Q = Midpoint(N, D)
i_1 = Line(Q, R)
W = Intersect(i_1, j_1)
M: A + (B - A) / 3
t = Line(M, N)
V = Intersect(t, i_1)
T = Midpoint(B, M)
k_1 = Line(S, T)
Z = Intersect(j_1, k_1)
m_1 = Segment(V, Z)
U = Intersect(t, k_1)
l_1 = Segment(U, W)
poly1, a, b, c, d = Polygon(A, B, C, D)
poly2, b_1, a_1, c_1 = Polygon(A, C, B)
poly3, c_2, a_2, d_1 = Polygon(A, D, C)
E = Midpoint(a)
F = Midpoint(b)
e = Segment(A, F)
f = Segment(C, E)
G_6 = Intersect(e, f)
G_5 = Midpoint(d)
H = Midpoint(c)
g = Segment(A, H)
h = Segment(C, G_5)
G_3 = Intersect(g, h)
i = Segment(G_6, G_3)
poly4, e_1, g_1, h_1, f_1 = Polygon(E, G_5, H, F)
j = Segment(E, H)
k = Segment(G_5, F)
I = Intersect(j, k)
l = Segment(B, D)
m = Segment(B, G_5)
n = Segment(D, E)
p = Segment(D, F)
q = Segment(B, H)
G_1 = Intersect(n, m)
G_2 = Intersect(p, q)
r = Segment(G_1, G_2)
G = Intersect(m_1, l_1)
poly5, u, v, w, z = Polygon(U, V, W, Z)
nn = false
poly6, d_2, a_3, b_2 = Polygon(A, B, D)
poly7, b_3, d_3, c_3 = Polygon(D, C, B)
s = Segment(G_1, G)
n_1 = Segment(G, G_2)
distanciaG3G = Distance(G_1, G)
TextoG3G: "\overline{" + (Name[G_1]) + (Name[G]) + "} \, = \, " + distanciaG3G
distanciaGG4 = Distance(G, G_2)
TextoGG4: "\overline{" + (Name[G]) + (Name[G_2]) + "} \, = \, " + distanciaGG4
text1: "\overline{" + (Name[G_1]) + (Name[G]) + "} \,/\, \overline{" + (Name[G]) + (Name[G_2]) + "} \, = \," + distanciaG3G + "/" + distanciaGG4 + " = " + (distanciaG3G / distanciaGG4)
Textopoly7: "Area " + (Name[D]) + (Name[C]) + (Name[B]) + " = " + poly7
Textopoly6: "Area " + (Name[A]) + (Name[B]) + (Name[D]) + " = " + poly6
text2: "AreaBCD / Area ABD = " + poly7 + " / " + poly6 + " = " + (poly7 / poly6)
o = 0.28 (slider from 0 to 1, step 0.01)
c1 = Circle(G_1, o poly6 / 25)
d1 = Circle(G_2, o poly7 / 25)