# 45-taylor

Postscript("45-taylor.ps",5,4)
latox=c(-0.5,2); latoy=c(1,1)
par(bg="yellow",cex=0.4)
Grafica(latox,latoy,cornice=T)
abline(h=0,v=c(0,1))
x=seq(-0.5,2,by=0.01)
lines(x,2-3*x+2*x^2)
lines(x,3-4*x+2*x^2,col="blue")
text(0+0.1i,"(0,0)",pos=4); text(1+0.1i,"(1,0)",pos=4)
dev.off()