Con R si sono usate le seguenti righe di comandi:

C <- function(n) ifelse(n<10, 1.4, ifelse(n<20, 2, ifelse(n<40, 2.7, 3.5)))
plot(C, 0,80, ylim=c(0,3.6), col="blue",n=1000, type="p")
abline(h=c(0,1,1.5,2,2.5,3,3.5), v=c(0,10,20,40,60,80), col="grey40",lty=3)

ifelse (c, a, b)  vale a se la condizione c è vera, vale b altrimenti;
type="p"  fa tracciare il grafico per punti.

Ovvero:

source("http://macosa.dima.unige.it/r.R")
C <- function(n) ifelse(n<10, 1.4, ifelse(n<20, 2, ifelse(n<40, 2.7, 3.5)))
Plane(0,80, 0,3.6)
graph(C,0,80, "blue")