```# Un "audiogramma" (an audiogram)
BF=5.3; HF=3
# L'intervallo delle freq. e quello del volume che rappresento nel box
# (the frequency range and the volume range)
freq1 = 20; freq2 = 20000; vol1 = -20; vol2 = 100
# Il box "trasformato" (uso una scala orizzontale logaritmica):
# (the "transformed" box: I use a horizontal logarithmic scale)
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")

```