f <- function(t)
      10*exp(-t/30)*sin(t*pi)
# pi è "pi greca"
Piano(0,50,-10,10)
grafico(f, 0,50, "blue")
scrivi(25,9, "LAMELLA")