x10 = 1
x9 = 0.8
B10 = Point(Line[(x10, 0), (x10, 1)])
x8 = 0.6
B9 = Point(Line[(x9, 0), (x9, 1)])
x7 = 0.4
B8 = Point(Line[(x8, 0), (x8, 1)])
x6 = 0.2
B7 = Point(Line[(x7, 0), (x7, 1)])
x5 = 0
B6 = Point(Line[(x6, 0), (x6, 1)])
x4 = -0.2
B5 = Point(Line[(x5, 0), (x5, 1)])
x3 = -0.4
B4 = Point(Line[(x4, 0), (x4, 1)])
x2 = -0.6
B3 = Point(Line[(x3, 0), (x3, 1)])
x1 = -0.8
B2 = Point(Line[(x2, 0), (x2, 1)])
x0 = -1
B1 = Point(Line[(x1, 0), (x1, 1)])
B0 = Point(Line[(x0, 0), (x0, 1)])
φ = FitPoly({B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}, 5)
φ_0(t) = 1
φ_1(t) = cos((π * t))
φ_2(t) = sin((π * t))
φ_3(t) = cos(((2 * π) * t))
φ_4(t) = sin(((2 * π) * t))
φ_5(t) = cos(((3 * π) * t)) - 0.02
φ_6(t) = sin(((3 * π) * t))
ψ = Fit({B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}, {φ_0, φ_1, φ_2, φ_3, φ_4, φ_5, φ_6})