points joints/disjoints

courbe affichée/cachée

n = 150 (slider from 2 to 1000, step 1)
abscisses = Sequence(-5.0 + k * 10.0 / (n - 1.0), k, 0.0, n - 1.0)
ordonnées = Sequence(4.0 * sin(10.0 * 3.141592653589793 * Element[abscisses, k]), k, 1.0, n)
points = Sequence((Element[abscisses, k], Element[ordonnées, k]), k, 1.0, n)
a = false
segments = Sequence(Segment[Element[points, k], Element[points, k + 1.0]], k, 1.0, n - 1.0)
f(x) = 4.0 * sin(10.0 * 3.141592653589793 * x)
b = false