SpeseFisse <- 2000;  SpeseIncorporate <- 0.50
CostoUnitario <- function(N) SpeseIncorporate + SpeseFisse/N
plot(CostoUnitario,0,5000, ylim=c(0,10) )
abline(v=axTicks(1), h=axTicks(2), col="blue",lty=3)
abline(v=0,h=0, lty=2)

(scarica R e incolla le righe precedenti)