Acceleration[x_] := 60*2000/x^2

Plot[Acceleration[x], {x, 20, 100}]

v[x_] := 1000  Sqrt[1 - 20/x]

Plot[v[x], {x, 20, 100}]