largo

ancho

largo

P

INICIO

P

A_1

A_2

m_s=ΔArea/Δlargo

SECANTE

m_s=ΔArea/Δlargo

largo = 2.35 (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 + ""
A_1 = Point(area)
A_2 = Point(area)
A_3 = Point(area2)
A_4 = Point(area2)
p = OrthogonalLine(A_1, xAxis)
q = OrthogonalLine(A_2, xAxis)
r = OrthogonalLine(A_1, f)
E = Intersect(q, r)
Δlargo = Segment(A_1, E)
s = OrthogonalLine(A_3, xAxis)
t = OrthogonalLine(A_4, xAxis)
a = OrthogonalLine(A_4, f)
F = Intersect(area, s)
G = Intersect(a, s)
ΔArea_2 = Segment(A_3, G)
Δlargo_2 = Segment(G, A_4)
SECANTE_2 = Line(A_3, A_4)
m_S2 = Slope(SECANTE_2)
SECANTE_1 = Line(A_1, A_2)
m_s = Slope(SECANTE_1)
ΔArea_1: y(G) - y(A_3)
texto4: "△Area=" + ΔArea_1 + ""
ΔArea = Segment(E, A_2)
texto1: "Area
=" + AreaPuesto + ""