largo

ancho

largo

P

INICIO

P

TANGENTE

TANGENTE

m_T

(largo, dArea/dlargo)

m_t=dArea/dlargo

(largo, dArea/dlargo)

largo = 2.5 (slider from 0 to 2.5, step 0.05)
ancho: 2.5 - largo
largo_1: (largo, 0)
ancho_1: (0, ancho)
area(largo) = If[3 ≤ largo ≤ 4.25, (-(largo - 3)^(2)) + (2.5 * (largo - 3))]
A = Point(xAxis)
f = OrthogonalLine(A, xAxis)
AreaPuesto: (x(largo_1) * y(ancho_1))
c = Circle(A, largo)
B, LargoPuesto = Intersect(c, xAxis)
g = OrthogonalLine(LargoPuesto, xAxis)
P_C = Intersect(area, g)
h = OrthogonalLine(P_C, f)
D = Intersect(f, h)
i = Segment(D, P_C)
j = Segment(P_C, LargoPuesto)
area2(largo) = If[4.25 < largo ≤ 5.5, (-(largo - 3)^(2)) + (2.5 * (largo - 3))]
k = OrthogonalLine(LargoPuesto, xAxis)
P_D = Intersect(area2, k)
l = Segment(LargoPuesto, P_D)
m = OrthogonalLine(P_D, f)
C = Intersect(f, m)
n = Segment(C, P_D)
texto2: "" + ancho + ""
Peri: (2 * ancho) + (2 * largo)
texto3: "Perímetro=" + Peri + ""
TANGENTE_D = Tangent(P_D, area2)
TANGENTE_C = Tangent(P_C, area)
m_TC = Slope(TANGENTE_C)
darea(largo) = If[3 ≤ largo ≤ 4.25, (-2 * largo) + 8.5]
E = Intersect(darea, k)
p = Segment(P_C, E)
q = OrthogonalLine(E, f)
F = Intersect(f, q)
r = Segment(F, E)
m_TD = Slope(TANGENTE_D)
darea2(largo) = If[4.25 ≤ largo ≤ 5.5, (-2 * largo) + 8.5]
G = Intersect(darea2, k)
s = OrthogonalLine(G, f)
H = Intersect(f, s)
t = Segment(H, G)
a = Segment(G, LargoPuesto)
texto1: "Area=" + AreaPuesto + ""