Tiro parabolico

window_coordinates(-100,-100,100,100)create_line(0,-100,0,100,'red')create_line(-100,0,100,0,'red')a = -10m = 50v = 0t = 0dt = 0.0001i = 0p = 0x = 0vx = 4y = 0vy = 40while y>=0:  t+=dt  xa = x  va = v  y+=vy*dt  x+=vx*dt  vy+=a*dt  p = create_filled_circle(x,y,1.5,'black','cyan')  erase(p)