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)