A área do rombo é a metade da 
área do rectángulo que ten como 
lados as diagonais do rombo

D = 10 (slider from 0 to 10, step 0.1)
d = 10 (slider from 0 to 10, step 0.1)
A = (11, 1)
B = Point(Circle[A, d])
a_4 = Segment(A, B)
b = LineBisector(a_4)
C = Intersect(a_4, b)
c = Circle(C, D / 2)
E, F = Intersect(c, b)
poly1, a_1, f, b_1, a = Polygon(A, F, B, E)
g = Segment(F, E)
G = Midpoint(a_1)
H = Midpoint(f)
I = Midpoint(b_1)
J = Midpoint(a)
polígono1, f_1, a_2, c_1 = Polygon(A, C, F)
polígono2, f_2, c_2, b_2 = Polygon(C, B, F)
polígono3, c_3, a_3, e_1 = Polygon(A, E, C)
polígono4, e_2, c_4, b_3 = Polygon(C, B, E)
move = 3.141592653589793 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
C' = Rotate(C, move, H)
B' = Rotate(B, move, H)
F' = Rotate(F, move, H)
polígono2', f', c', b' = Polygon(C', B', F')
A' = Rotate(A, (-move), G)
C'_1 = Rotate(C, (-move), G)
F'_1 = Rotate(F, (-move), G)
polígono1', f'_1, a', c'_1 = Polygon(A', C'_1, F'_1)
A'_1 = Rotate(A, move, J)
E' = Rotate(E, move, J)
C'_2 = Rotate(C, move, J)
polígono3', c'_2, a'_1, e' = Polygon(A'_1, E', C'_2)
C'_4 = Rotate(C, (-move), I)
B'_2 = Rotate(B, (-move), I)
E'_2 = Rotate(E, (-move), I)
polígono4', e'_2, c'_4, b'_2 = Polygon(C'_4, B'_2, E'_2)
AE: sqrt((d / 2)^(2) + (D / 2)^(2))
texto1: "Perímetro = 4·a = 4 ·" + a + " = " + ((4 * AE)) + ""
texto2: "Área = \frac{D·d}{2} =\frac{" + (LaTeX[D]) + "·" + (LaTeX[d]) + "}{2} = " + (LaTeX[(D * d / 2)]) + ""