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")