Una ditta di trasporti pratica i seguenti prezzi: 3500 Dindi al quintale fino a 50 quintali e 1800 Dindi al quintale per ogni quintale eccedente i 50. Indicando con q il numero di quintali determina l’espressione del costo totale in funzione di q, e rappresentala graficamente.

Con R:
source("http://macosa.dima.unige.it/r.R")
f1 <- function(q) 3500*q
f2 <- function(q) f1(50)+1800*(q-50)
f <- function(x) ifelse(x <= 50, f1(x), f2(x) )
f1(100); f2(100)
# 350000 265000
Griglia(0,100, 0,350e3)   # metto solo la griglia, aggiungo poi la scala
grafico(f1, 0,100, 0); grafico(f2, 0,100, 0); grafico(f, 0,100, "blue")
SottoAssey("0",0); SottoAssey("100",100e3)
SottoAssey("200",200e3); SottoAssey("300",300e3)
sottoAssex("100",100); sottoAssex("0",0); sottoAssex("50",50)
suassey("migliaia di Dindi"); suassex("quintali")