Hi(adsbygoogle = window.adsbygoogle || []).push({});

I am succesfully using NDSolve to find the solution of a 1D equation of motion:

This is a particle decelerating constantly in the x-direction. Now, I need to extend my problem, because the deceleration alongCode (Text):

solution = NDSolve[{x''[t] == -200, x[0] == 0, x'[0] == 100}, x, {t, 0, 1}];

ParametricPlot[{x[t], x'[t]} /. solution, {t, 0, 1}, PlotRange -> {{0, 100}, {0, 100}}]

xis actually not constant. It depends on both thex- andy-coordinate of the particle.

So the total problem is

[tex]

\frac{d^2x}{dt^2} = -200y - x\\

\frac{dy}{dt} = -2

[/tex]

So along x there is non-constant deceleration, and along y I have a constant velocity. Is it possible to solve such a problem in Mathematica?

Best regards and thanks in advance,

Niles.

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica: NDSolve in 2D

**Physics Forums | Science Articles, Homework Help, Discussion**