plot(NULL, xlim=c(0,3), ylim=c(-10,10), xlab='t (s)', ylab='vy (m/s)',
     xaxs='i', main='velocità verticale (y) con ay=-g') 
grid()
abline(h=0)
while(1) {
  cat(sprintf("\n Clicca sull'asse verticale (altrove per terminare)\n"))

  p <- locator(1)    
  if ( p$x[1] > 0.05) break

  vy0 = p$y[1]
  g = 9.8
  abline(vy0, -g,col='blue')
}