source("http://macosa.dima.unige.it/r.R") BF=5; HF=3 # L'intervallo delle freq. e quello del volume che rappresento nel box freq1 = 20; freq2 = 20000; vol1 = -20; vol2 = 100 # Il box "trasformato" (uso una scala orizzontale logaritmica): boxWW( log10(freq1),log10(freq2), vol1,vol2 ) oriz = seq(-20,100, 10) vert = c(seq(10,100,10),seq(1e2,1e3,1e2),seq(1e3,1e4,1e3),seq(1e4,1e5,1e4)) abline(h=oriz, lty=3, col="brown") abline(v=log10(vert),lty=3,col="brown") abovex("Hz"); abovey("dB") type(log10(100),vol1,"100") type(log10(1e3),vol1,"1e3") type(log10(1e4),vol1,"1e4") type(log10(50),vol1,"50") type(log10(500),vol1,"500") type(log10(5000),vol1,"5e3") type(log10(200),vol1,"200") type(log10(2000),vol1,"2e3") type(log10(20000),vol1,"2e4") type(log10(20),0,"0") type(log10(20),40,"40") type(log10(20),80,"80") yy = c(70, 42, 10, 5, 1, 0, -6, -6, -4, 5.5, 7.5, 10, 13, 20) xx = c(30,100,400,500,800,1150,3000,4000,5000,6000,7000,10000,15000,18000) polyline(log10(xx),yy, "blue")