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.

f(q) = 3500*q
g(q) = f(50)+1800*(q-50)
if(q<=50) {CT(q)=f(q)} else {CT(q)=g(q)}

Il grafico è tracciato in JavaScript:  VEDI.

Con R (vedi qui):

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
BF=4; HF=3
# esprimo le "y" in migliaia
Grid(0,100, 0,350e3)
graph1(f1,0,100, "red"); graph1(f2,0,100, "red")
graph(f,0,100, "brown")
POINT(50,f(50), "blue")
abovex("quintali"); abovey("migliaia di Dindi")
underX("0",0); underX("50",50); underX("100",100)
UnderY("0",0); UnderY("100",100*1000); UnderY("200",200*1000); UnderY("300",300*1000)