Source code for article at https://masonsimon.com/2018/04/28/how-much-time-does-cutting-corners-save/

cutcorners.R

library(ggplot2)
library(scales)

min <- 1
max <- 1000

f <- function(b) { sqrt(1 + b**2)/(1 + b) }
x <- seq(min, max, 0.01)
y <- 1 - f(x)

p <- qplot(x, y, geom='line', color="#FF4136")
p <- p + scale_y_continuous(labels = scales::percent, breaks=seq(0, .3, .025))
p <- p + ylab("1 - c/(a + b)") + xlab("b / a")
p <- p + theme(legend.position="none")
p <- p + scale_x_continuous(breaks=c(min, seq(100, max, 100)))
p <- p + ggtitle("Returns to Cutting Corners")
ggsave("cutcorners.png", p, width=6, height=5)