f(x) = (0.5 * ((-x^(4)) + (4 * x^(2)))) + 1
l1 = Sequence(f(i), i, -2, 2, 0.5)
T: {{"x", "f(x)"}, {-2, 1}, {-1.5, 2.97}, {-1, ""}, {-0.5, ""}, {0, 1}, {0.5, 1.47}, {1, 2.5}, {1.5, ""}, {2, ""}}
Text1 = TableText(T, "v|_ll")