A

A

B

a

b

c

Semiperímetro

Semiperímetro

Semiperímetro

Rastro punto rojo

A = (-3.48, 5.16)
E = Point(Ray[A, A + (1, 0)])
B = Point(Segment[A, E])
C = Point(Segment[B, E])
AA = (-1.16, -2.08)
d = Circle(AA, Distance[C, E])
c1 = Circle(AA, Distance[A, B])
BB = Point(c1)
q = Line(AA, BB)
M, N = Intersect(d, q)
n = OrthogonalVector(Vector[AA, BB])
p = Ray(AA, n)
L = Intersect(d, p)
r = CircumcircleArc(N, L, M)
c2 = Circle(BB, Distance[B, C])
CC = Intersect(c2, r)
amarillo' = Translate(amarillo, Vector[A, E])
F: Midpoint[A, E] - (0, 0.5)
polígono1, a', b', c' = Polygon(AA, BB, CC)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, E)
i = Line(F, b)
D = Intersect(OrthogonalLine[E, i], i)
D' = Mirror(D, F)
G = Midpoint(D', F)
H = Midpoint(F, D)
u = Vector(G, D')
v = Vector(G, F)
w = Vector(H, F)
z = Vector(H, D)
B1: " b = " + b
A1: " a = " + a
C1: " c = " + c
A2: " b + c = " + (b + c)
B2: " a + c = " + (a + c)
C2: " a + b = " + (a + b)
texto3: "Perímetro = " + (a + b + c)
I: B + (0, 0.5)
J: I + F - D'
K = Midpoint(I, J)
f = Vector(K, I)
g = Vector(K, J)
h = Segment(F, F + (0, 0.5))
e = Segment(J, J - (0, 0.5))
j = Segment(D', D' + (0, 0.3))
k = Segment(D, D + (0, 0.3))
l = Segment(I, I - (0, 0.3))
m = false
lugar1 = Locus(CC, C)