First program: freefall from top of 50m building: open Impact clear() a <- -9.8 t <- 0. v <- 0. y <- 50. let deltaT = 0.05 while t < 20. do dot (t*20., v) green dot (t*20., y) red v <- v + a*deltaT y <- y + v*deltaT t <- t + deltaT Second program: bounce, starting at 50m open Impact clear() a <- -9.8 t <- 0. v <- 0. y <- 50. let deltaT = 0.05 while t < 20. do dot (t*20., v) green dot (t*20., y) red if y > 0. then v <- v + a*deltaT else v <- -v y <- y + v*deltaT t <- t + deltaT Third program: frown open Impact clear() a <- -9.8 t <- 3. v <- 30. y <- 0. let deltaT = 0.05 while t < 10. do dot (t*20., v) green dot (t*20., y) red v <- v + a*deltaT y <- y + v*deltaT t <- t + deltaT Fourth program: smile open Impact clear() a <- 9.8 t <- 3. v <- -30. y <- 0. let deltaT = 0.05 while t < 10. do dot (t*20., v) green dot (t*20., y) red v <- v + a*deltaT y <- y + v*deltaT t <- t + deltaT