source("http://macosa.dima.unige.it/r.R")
BF=4; HF=3.5
# L'intervallo delle freq. e quello del volume che rappresento:
a = -1/2; b = 10; c = 7; d = 20000
# Il box "trasformato" (uso una scala verticale logaritmica):
Pianoss( a,b, log10(c),log10(d) )
abline(v=seq(0,10,1),lty=3,col="brown")
h1 <- c(seq(10,100,10),seq(1e2,1e3,1e2),seq(1e3,1e4,1e3),seq(1e4,1e5,1e4))
abline(h=log10(h1),lty=3,col="brown")
scrivi(0,log10(10),"10")
scrivi(0,log10(100),"100")
scrivi(0,log10(1e3),"1e3")
scrivi(0,log10(1e4),"1e4")
scrivi(0,log10(50),"50")
scrivi(0,log10(500),"500")
scrivi(0,log10(5e3),"5e3")
scrivi(0,log10(20),"20")
scrivi(0,log10(200),"200")
scrivi(0,log10(2e3),"2e3")
scrivi(0,log10(2e4),"2e4")
scrivi(2,log10(c),"2"); scrivi(4,log10(c),"4"); scrivi(6,log10(c),"6")
scrivi(8,log10(c),"8"); scrivi(10,log10(c),"10")
x <- seq(a,b,1)
for(h in c(1.5,2,4,10)) {PUNTI(x,log10(h^x),"blue"); spezza(x,log10(h^x),"blue")}