Koeficijenti dobiveni programom xpolcoe za Sin[x] ∈ [0, π]

a = {-0.000497 , 0.986855,  0.050956, -0.232479,  
        0.037015}

Generiramo polinom

pol = a  .  Table[(x^i), {i, 0, 4}]

Crtamo interpolaciju (od [0,π]) i ekstrapolaciju od [π, 2π]

Plot[{pol, Sin[x]}, {x, 0, 2 π}, 
      PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0]}]