Poligonal(Secuencia(Punto(f, k), k, 0, 1, 1/500))

Poligonal

reg = {M}
pol = Poligonal(reg)
Valor(reg, Añade(reg, M))

Punto móvil

\text{Valor exacto (CAS):  }
ln(2) − ln(2\sqrt{5}-4)+2

Arco parabólico

f(x) = If[0 ≤ x ≤ 4, 4 - x^(2) / 4]
g(x) = (-1 / 4 * x^(2)) + 4
c_{1} = 0
lon = 5.915771430178389
pol1 = PolyLine(Sequence[Point[f, k], k, 0, 1, 0.002])
op1 = false
M = (2.627420677571632, 1.596714650326192)
reg: {(2.627420677571632, 1.596714650326192)}
pol = PolyLine(reg)
op2 = false
n = Length(reg)
texto4: "Longitud recorrida: " + pol + "
Número de vértices: " + n + ""
texto1: "\text{Longitud poligonal 500 vértices:  }" + (LaTeX[round((10^(5) * pol1)) / 10^(5)]) + "\\\\\\
\text{Diferencia:  }" + (LaTeX[round((10^(5) * (lon - pol1))) / 10^(5)]) + ""