...
do = 261.6255653
g = function(x) 2^(x/12)*do
  ...
g(9) # il LA       440
  ...
scrivi(7, 350, "'exp'")
x = c(1,3,6,8,10)
scrivi(x-0.6,g(x)+17,"#")
x = x-12
scrivi(x-0.6,g(x)+17,"#")