#2 Part C

Plot[{(x-Sin[x])-x^3/6},{x,0,.1}]
Plot[{((x-Sin[x])-x^3/6)/(x-Sin[x])},{x,0,.1}]

#3

Plot[E^x-1-x-x^2/2-x^3/6,{x,-.1,.1}]

I added a little here.... -- ael

err[x_]:=Exp[.1]*x^3/(24+12x+4x^2)
err[.1]
err[-.1]

#6 Page 181

Series[Sin[x],{x,0,7}]

Plot[{Sin[x],x,x-((x^3)/6),x-((x^3)/6)+((x^5)/120),x-((x^3)/6)+((x^5)/120)-((x^7)/5040)},{x,0,2Pi}]