In un dato anno in un dato paese l'energia elettrica costa 0.14 € al kWh (chilowattora) (senza differenze tra fasce orarie), a cui va sommata una quota fissa di 20 €.  Se, nel periodo fissato per il pagamento, il contatore passa da 31750 kWh a 33890 kWh
(a)  qual è l'importo della relativa bolletta?
(b)  costruisci opportunamente il grafico che descrive l'importo da pagare per consumi che arrivano fino a 3000 kWh, ed esprimi con una formula il costo della bolletta in funzione del consumo.
(c)  ricava dal grafico il costo approssimativo della bolletta per un consumo di 1300 kWh.
(d)  ricava dal grafico a quale consumo corrisponde una spesa di 230 €.

(a)  33890-31750 = 2140;  2140·0.14 + 20 = 319.60 (€).
(b)  Costo = 20 + 0.14·Consumo, Costo espresso in €, Consumo in kWh.

Come fare il grafico con uno script

(c)  Il costo di 1300 kWh che ricavo dal grafico è 200 €; con i calcoli avrei ottenuto 202 €.
(d)  Dal grafico ricavo che il consumo che costa 230 € è di 1500 kWh; risolvendo l'equazione 20+0.14x = 230 avrei ricavato 0.14x = 230-20, 0.14x = 210, x = 210/0.14, x = 21000/14 = 3000/2 = 1500, ossia lo stesso valore.

Per altri commenti:  proporzionalità negli Oggetti Matematici

Grafico col software online WolframAlpha:
plot y=20 + 0.14*x, y=440, y=200, y=230, x=0..3000, y=0..440

Grafici con R (vedi qui).

source("http://macosa.dima.unige.it/r.R")
BF=7; HF=4.25
E = function(kWh) 20+0.14*kWh
E(3000)
# 440
boxww(0,3100, 0, 450); underX("kWh",3050); underY("euro",445)
gridHC(seq(10,500,10),"red")
gridVC(seq(100,3300,100),"red")
GridVC(seq(500,3200,500),"blue")
GridHC(seq(100,500,100),"blue")
l2p(0,-1,0,1,"blue"); l2p(-1,0,1,0,"blue")
underX("500",500); underX("1000",1000); underX("1500",1500)
underX("2000",2000); underX("2500",2500); underX("0",0)
underY("0",0); underY("100",100); underY("200",200); underY("300",300); underY("400",400)
graph(E, 0,3000, "blue")
polyC(c(0,1000,1000),c(20,20,E(1000)),"yellow")
x = c(0,1500); y = c(E(1500),E(1500))
polyline(x,y, "red"); arrow(1500,E(1500), 1500,0, "red")
x = c(1300,1300); y = c(0,E(1300))
polyline(x,y, "red"); arrow(1300,E(1300), 0,E(1300), "red")
underX("1300",1300); underY("230",230); underY("20",20)
text(1050,80,srt=90,cex=0.9,font=2,"|||||||",col="white")
text(1050,80,srt=90,cex=0.9,font=2,"140")
text(3000,455,cex=0.9,font=2,"||||||||||||||||||||||",col="white")
text(3000,455,cex=0.9,font=2,"(3000,440)")
POINT(3000,440,"red")

BF=7; HF=4.5
coldash="blue"; INPUT=1300; RATIO(3000,3000*0.14)
undery("AGGIUNGI 20")
OUTPUT=210; rATIO(3000,3000*0.14)
abovex("kWh"); abovey("euro")
#
# Come   stato fatto il primo grafico:
BF=7; HF=4.25
E = function(kWh) 20+0.14*kWh
E(3000)
# 440
boxww(0,3100, 0, 450); underX("kWh",3050); underY("euro",445)
gridHC(seq(10,500,10),"red")
gridVC(seq(100,3300,100),"red")
GridVC(seq(500,3200,500),"blue")
GridHC(seq(100,500,100),"blue")
l2p(0,-1,0,1,"blue"); l2p(-1,0,1,0,"blue")
underX("500",500); underX("1000",1000); underX("1500",1500)
underX("2000",2000); underX("2500",2500); underX("0",0)
underY("0",0); underY("100",100); underY("200",200); underY("300",300); underY("400",400)
graph(E, 0,3000, "blue")
polyC(c(0,1000,1000),c(20,20,E(1000)),"yellow")
x = c(0,1500); y = c(E(1500),E(1500))
polyline(x,y, "red"); arrow(1500,E(1500), 1500,0, "red")
x = c(1300,1300); y = c(0,E(1300))
polyline(x,y, "red"); arrow(1300,E(1300), 0,E(1300), "red")
underX("1300",1300); underY("230",230); underY("20",20)
text(1050,80,srt=90,cex=0.9,font=2,"|||||||",col="white")
text(1050,80,srt=90,cex=0.9,font=2,"140")
text(3000,455,cex=0.9,font=2,"||||||||||||||||||||||",col="white")
text(3000,455,cex=0.9,font=2,"(3000,440)")
POINT(3000,440,"red")