s = 2 (slider from 1.9 to 4, step 0.1)
f(x) = ((0.4 * x) - 0.5)^(10) / 10
n = 8 (slider from 1 to 10, step 1)
lista1 = Sequence((Integral[((2 / s * f(x)) * cos(((k * π) * x / s))), -2, 2] * cos(((k / s * π) * x))) + (Integral[((2 / s * f(x)) * sin(((k / s * π) * x))), -2, 2] * sin(((k / s * π) * x))), k, 1, n)
c = 0.1 (slider from 0 to 1, step 0.1)
a = 0.4 (slider from 0 to 1, step 0.1)
b = 0.5 (slider from 0 to 1, step 0.1)
g(x) = ((2.6 * 2 / s) * Sum[lista1])
A = Point(g)