svg(point=16)
oldpar <- par(mar=c(1.1,1.1,1.1,1.1))
y <- function(t) exp(-t)
plot(c(-0.15,2.05), c(-0.1,1.1), type="n", axes=FALSE, ann=FALSE)
curve(y, -0.1, 2,  col="blue", lwd=2, add=TRUE)
tj <- c(0,0.5,1)
yj <- c(1,0.5,0.25)
lines(tj, yj, col="red", lwd=2)
points(tj, yj, col="red", pch=20)
arrows(-0.15,0,2.05,0, length=0.15)
segments(tj, 0, tj, yj, lty=2, col="grey50")
text(tj, 0, c(expression(t[0]), expression(t[1]), expression(t[2])), pos=1)
text(tj[1], yj[1], expression((paste(t[0],", ",y[0]))), pos=4, col="red")
text(tj[2], yj[2], expression((paste(t[1],", ",y[1]))), pos=2, col="red")
text(tj[3], yj[3]-0.04, expression((paste(t[2],", ",y[2]))), pos=4, col="red")
text(1.8, y(1.8), "y(t)", pos=3, col="blue")
par(oldpar)
dev.off()