largo

largo

P

area

INICIO

P

A_1

A_2

SECANTE

m_s=ΔArea/Δlargo

Δlargo

ΔArea

Δlargo

m_s=ΔArea/Δlargo

ΔArea

ΔArea

ΔArea

velo1(largo) = If[70 ≤ largo ≤ 130, (((-largo) + 130) * 0.3)]
largo = 84.4 (slider from 0 to 120)
A = Intersect(xAxis, yAxis)
c = Circle(A, largo)
B, C = Intersect(c, xAxis)
h: (120 - largo) / 2
d = Circle(A, h)
D, E = Intersect(d, yAxis)
f = OrthogonalLine(E, yAxis)
g = OrthogonalLine(C, xAxis)
F = Intersect(g, f)
c1, ancho, e, f_1, largo_1 = Polygon(A, E, F, C)
G = Point(xAxis)
i = OrthogonalLine(G, xAxis)
k = Circle(G, largo)
areagalli: (largo * f_1)
distanciaAC = Distance(A, C)
ll: largo + 35
p = Circle(G, ll)
L: (Random[5, largo - 5], Random[5, ancho - 5])
H: (Random[5, largo - 5], Random[5, ancho - 5])
K: (Random[5, largo - 5], Random[5, ancho - 5])
O: (Random[5, largo - 5], Random[5, ancho - 5])
M: (Random[5, largo - 5], Random[5, ancho - 5])
N: (Random[5, largo - 5], Random[5, ancho - 5])
areatot: (largo * (120 - largo) / 2)
texto1: "" + areagalli + ""
q = Circle(G, largo)
I, largogallinero = Intersect(q, xAxis)
j = OrthogonalLine(largogallinero, xAxis)
areaga(largo) = If[70 ≤ largo ≤ 130, (((largo - 70) * (120 - (largo - 70)) / 2) * 0.03)]
P_C = Intersect(areaga, j)
l = OrthogonalLine(P_C, i)
areagallinero = Intersect(i, l)
m = Segment(areagallinero, P_C)
n = Segment(P_C, largogallinero)
J: (0, 0)
Q: (120, 0)
R: (120, -1)
S: (0, -1)
c2, j_1, q_1, r, s = Polygon(J, Q, R, S)
velo2(largo) = If[130 ≤ largo ≤ 190, (((-largo) + 130) * 0.3)]
areaga2(largo) = If[130 ≤ largo ≤ 190, (((largo - 70) * (120 - (largo - 70)) / 2) * 0.03)]
P_D: (x(largogallinero), areaga2(largogallinero))
P = Intersect(velo1, j)
t = OrthogonalLine(P_D, j)
V = Intersect(t, i)
a = Segment(V, P_D)
b = Segment(P_D, largogallinero)
A_1 = Point(areaga)
A_2 = Point(areaga)
A_3 = Point(areaga2)
A_4 = Point(areaga2)
SECANTE_1 = Line(A_1, A_2)
m_2 = Line(A_3, A_4)
m_s = Slope(m_2)
h_1 = OrthogonalLine(A_2, xAxis)
i_1 = OrthogonalLine(A_1, i)
T = Intersect(i_1, h_1)
Δ_l = Segment(A_1, T)
Δ_A = Segment(T, A_2)
k_1 = OrthogonalLine(A_3, xAxis)
l_1 = OrthogonalLine(A_4, i)
U = Intersect(k_1, l_1)
Δ_L = Segment(U, A_4)
o: y(A_2) - y(A_1)
u: y(A_2) - y(A_1)
g_1 = OrthogonalLine(A_2, i)
m_1 = OrthogonalLine(A_1, i)
m_S = Slope(SECANTE_1)
v: 19.86 / 15.62
w: 19.86 / 15.62
Δ_a: (Segment[A_3, U] * (-1))
n_1: (Segment[A_3, U] * (-1))
p_1 = Segment(A_3, U)