Tag Info

New answers tagged

3

Clear[y, t, m, g] eq = m*y''[t] == -k*y'[t] - m*g; ic = {y'[0] == 40 Sin[40 Degree], y[0] == 0}; sol = y[t] /. First@DSolve[{eq, ic}, y[t], t]


1

Y = Extract[ y /. DSolve[{m*y''[t] == -k*y'[t] - m*g, y[0] == 0, y'[0] == 40 Sin[40*Pi/180]}, y, t] [[1]], 2] (*(E^(-((k t)/ m)) m (-g m + E^((k t)/m) g (m - k t) + 40 (-1 + E^((k t)/m)) k Sin[(2 Pi])/9]))/k^2*) Vy = D[Y,t] // FullSimplify (*(-g m+E^(-((k t)/m)) (g m+40 k Sin[(2 Pi)/9]))/k*)



Top 50 recent answers are included