Sotto come grafico e calcoli potevano essere fatti con R caricando un apposito file (vedi):

source("http://macosa.dima.unige.it/r.R")
sughero = 10/100; fisse = 50*1000
Cu = function(n) fisse/n + sughero
BF=5.5; HF=3.5
M = 1200*1000
Plane(0,M, 0,1); abovex("n"); abovey("Cu")
graph2(Cu, 0,M, "red")
P = 0.25
LIne(0,P, M,P, "seagreen"); LIne(0,sughero, M,sughero, "seagreen")
LIne(
aboveY(0.25,0.25); aboveY(0.1,0.1)
# Soluzione di Cu=0.25 tra 1 e 1200*1000
p = solution(Cu,0.25, 1,1200*1000); p; POINT(p,0.25, "blue")
# 333333.3
aboveY(0.25,0.25); aboveY(0.1,0.1)
LIne(p,0.25, p,0.52, "seagreen"); text(p,0.55, "p", cex=0.9)