using Plots

plot(x->sin(x)-(x-x^3/6 + x^5/120), -0.1, 0.1)

savefig("napaka.svg")

include("sincos.jl")

plot(x->sinus(x)-sin(x)+1e-15, -pi, 2pi)

savefig("napaka-sinus.svg")