Rectángulo 1

Rectángulo 2

A

B

P

Imágenes

Tarjeta de crédito

DNI

Foto

Cuadro

C

D

E

Rectángulo 3

Rectángulo áureo

B_1 = (3, -2)
A = (-2, -2)
n = Line(A, B_1)
polígono1, a, b, c, d, C_1, D = Polygon(A, B_1, 4)
E = Midpoint(a)
e = Circle(E, C_1)
C, B = Intersect(e, n)
f = Segment((A + B) / 2, B)
P = Point(f)
g = Segment(P, B)
h = Segment(P, A)
f1 = Segment(A, B)
i = If(abs(f1 / h - 1.618)  <  0.001, 0, 1)
texto1: "\frac{ " + (f1 / f1) + " }{" + (h / f1) + " } \; " + (If[i ≟ 1, "≠", "="]) + "  \; \frac{" + (h / f1) + "  }{" + (g / f1) + " } " + (If[i ≟ 0, " \; = \; Φ", ""])
polígono2, j, k, l, m = Polygon(A, B, B + (0, h), A + (0, h))
polígono3, b_1, p, q, r = Polygon(B, B + (h, 0), B + (h, f1), B + (0, f1))
s = Line(A, B + (0, h))
v1 = false
v2 = false
texto2: h / f1 + ""
texto3: "" + (g / f1)
texto7: "" + (h / f1) + " + " + (g / f1) + " = 1"
F = (7.8, 1.3800000000000001)
v3 = false
im1 = false
im2 = false
im3 = false
im4 = false
G = (-1.94, -1.8800000000000001)
H = (6.1000000000000005, 2.96)
t = Line(G, H)
I = (9.14, -2)
a_1 = OrthogonalLine(P, h)
J = Intersect(l, a_1)
K = Intersect(l, m)
L = Intersect(k, l)
polígono4, p_1, b_2, l_1, j_1 = Polygon(P, B, L, J)
v4 = false
v5 = false