Author: Daniel Mentrard
Date: 12/03/08

D

d

Diagonal mayor : D
Diagonal menor : d

A = \frac{ Dxd }{ 2} 

Animación

D/2

A = (-1.3022038567493106, 1.2724517906336101)
B = (10.433333333333334, 1.2449035812672191)
a = Line(A, B)
C = (4.866666666666666, -4.966666666666667)
b = OrthogonalLine(C, a)
D = Intersect(b, a)
E = Point(a)
c = Circle(D, E)
F = Point(b)
d = Circle(D, F)
G, H = Intersect(c, a)
I, J = Intersect(d, b)
P, f, h, j, e = Polygon(F, H, J, E)
g = Segment(F, J)
i = Segment(H, E)
l = 0.01 (slider from 0.01 to 7.05, step 0.1)
K = Point(Circle[I, l])
k = Segment(I, K)
α = Angle(G, I, K)
L = Rotate(K, -(α), I)
β = Angle(L, I, K)
M = Point(Circle[D, l])
m = Segment(D, M)
N = Rotate(M, -(α), D)
γ = Angle(N, D, M)
O = Point(Circle[H, l])
n = Segment(H, O)
Q = Rotate(O, -(α), H)
δ = Angle(Q, H, O)
R, l_1, q, n_1 = Polygon(Q, N, L)
S = Point(Circle[G, l])
p = Segment(G, S)
ε = Angle(J, G, S)
T = Rotate(S, -(ε), G)
ζ = Angle(T, G, S)
U = Rotate(M, -(ε), D)
η = Angle(U, D, M)
V = Rotate(K, -(ε), I)
θ = Angle(V, I, K)
W, u, v, t = Polygon(V, T, U)
Y, j_1, h_1, d_1 = Polygon(H, D, J)
Z, j_2, d_2, g_1 = Polygon(D, G, J)
r = Segment(H, G)
A1 = Midpoint(A, H)
s = Line(F, xAxis)
a1 = Line(C, xAxis)
b1 = Line(H, yAxis)
c1 = Line(G, yAxis)
d1 = Line(A1, yAxis)
B1 = Intersect(d1, s)
C1 = Intersect(a1, d1)
w = Vector(A1, B1)
z = Vector(A1, C1)
e1 = Line(A1, xAxis)
f1 = Line(B, c1)
D1 = Intersect(a1, f1)
E1 = Intersect(a1, c1)
F1 = Intersect(b1, a1)
u1 = Vector(C, E1)
v1 = Vector(C, F1)
G1 = Midpoint(B, D1)
w1 = Vector(G1, B)
z1 = Vector(G1, D1)
H1 = (17.540771349862258, 5.019008264462811)
I1 = (19, 5)
J1 = (14.923691460055096, 8.572727272727274)
K1 = (20.984297520661155, 8.600275482093664)
L1 = (21, 3)
M1 = (15, 3)
poly1, j1, k1, l1, m1 = Polygon(J1, K1, L1, M1)