BF=6.5; HF=5.5; do = 261.6255653
g = function(x) 2^(x/12)*do
Piano(-13,12, 0,550)
grigliaV( seq(-12,12,1) )
suassey("freq."); suassex("note")
grafico(g, -13,13, "red")
i = -12:12; punti(i,g(i),"black")
x = c(-12, 0, 12)
scrivi(x-0.7, g(x)+20, "DO")
g(9) # il LA       440
x = c(9,9-12)
scrivi(x-0.7,g(x)+20,"LA")
GrigliaO( c(220, 440) )
scrivi(-13, 440+15, "440")
scrivi(-13, 220+15, "220")
scrivi(7, 350, "'exp'")