Question: How to find the formula of curve and draw it?

I have a picture. I tried to find the formula of the curve
My code

t := proc (x) options operator, arrow; b*x^10+c*x^9+d*x^8+e*x^7+f*x^6+g*x^5+h*x^4+i*x^3+j*x^2+k*x+l end proc

And solve
solve([t(-2) = 2, t(0) = -2, t(1) = 0, t(2.5) = -3, t(3.5) = 0, t(-1) = 0, eval(diff(t(x), x), x = -2) = 0, eval(diff(t(x), x), x = 0) = 0, eval(diff(t(x), x), x = 2.5) = 0, eval(diff(t(x), x), x = 1) = 0, t(2.8) = 0], [b, c, d, e, f, g, h, i, j, k, l])

[[b = -0.2688965311e-1, c = .1687428810, d = -0.3166922031e-1, e = -1.490599337, f = 1.885667707, g = 3.845330330, h = -6.939129440, i = -2.523473874, j = 7.112020606, k = 0., l = -2.]]

I ploted

plot(-.2688965311*x^10+.1687428810*x^9-.3166922031*x^8-1.490599337*x^7+1.885667707*x^6+3.845330330*x^5-6.939129440*x^4-2.523473874*x^3+7.112020606*x^2-2, x = -3.5 .. 4.5)

The result too far with picture. How can I repair?