Gráfico absurdo con R y un buen ejemplo de las cosas que hace $\pi$. Tras 2 meses de dolores intensos en mi hombro, hoy solo noto una molestia y, claro…
plot(rep(10, 10), rep(10, 10), ann = FALSE, type = "n", xlim = c(-1, 1), ylim = c(-1, 1), axes = FALSE)
radio <- 1
theta <- seq(0, 2 * pi, length = 200)
lines(x = radio * cos(theta), y = radio * sin(theta))
radio <- 1.1
theta <- seq(-0.75, -3 * pi / 4, length = 100)
lines(x = radio * cos(theta), y = radio * sin(theta) + 0.5)
points(-0.5, 0.5, pch = 1, cex = 3)
points(0.5, 0.5, pch = 1, cex = 3)