plot 2000+5*x, 15*x, 15*x-(2000+5*x), 0 < x < 500
costi incasso utile
Un'impresa ha la capacità produttiva annua di 500 unità. Il costo incorporato è di 5 Dindi per prodotto; i costi fissi sono di 2000 Dindi; il prezzo di vendita è di 15 Dindi. Quante unità sono da produrre per avere il pareggio e quante per realizzare il massimo utile?
Il massimo utile, di 3000 Dindi, lo si ha per 500 unità prodotte. Il "pareggio" (ossia l'utile nullo) lo si ha per 200 unità prodotte.
Grafico realizzato col software online WolfrmAlpha, ma era fattibile facilmente anche a mano:
Con R:
source("http://macosa.dima.unige.it/r.R")
CostiFissi <- 2000; CostiTot <- function(n) CostiFissi+5*n
Incasso <- function(n) 15*n
Utile <- function(n) Incasso(n)-CostiTot(n)
BF=5; HF=4
Piano(0,500,-2000,8000)
suassex("pezzi"); suassey("Dindi")
linea(0,CostiFissi, 500, CostiFissi, "red")
grafico(CostiTot,0,500, "red"); grafico(Incasso,0,500,"blue")
grafico(Utile,0,500, "black")
text(450,5500,"utile"); text(50,1600,"perdita")
linea(200,-2000, 200, 8000, "orange")
frec(450,0, 450,2000, "brown"); frec(450,2000, 450,0, "brown")
text(445,700,"costi fissi",adj=1)
soluz(Utile,0, 0,500); Utile(500)
# 200 3000
