BF=6.5; HF=5.5   # dim. della fin.
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)   # c(…): collez.
scrivi(x-0.7, g(x)+20,"DO")