Solution of a non-linear ODE
- To: mathgroup at smc.vnet.net
- Subject: [mg81890] Solution of a non-linear ODE
- From: sigmundv at gmail.com
- Date: Sat, 6 Oct 2007 04:33:09 -0400 (EDT)
Distinguished group members,
I would like you to try the following:
First define
f[u_, v_] := 1
eq1 = D[ArcTan[v'[t]/u'[t]], t] + 1/2 (D[Log[f[u[t], v[t]]], u[t]]
v'[t]^2 - D[Log[f[u[t], v[t]]], v[t]] u'[t]) == 0;
eq2 = u'[t]^2 + v'[t]^2 == 1/f[u[t], v[t]];
odesys = {eq1, eq2};
ic = {u[0] == 0, v[0] == 0, u'[0] == 0, v'[0] == 1};
Then try to solve 'odesys', with the initial conditions 'ic', either
using DSolve or NDSolve, or both. What do you get? For NDSolve I get
the warning
Solve::svars: Equations may not give solutions for all "solve" \
variables.
and the the input is returned unevaluated.
When I use NDSolve on the initial value problem, the system runs
several minutes, without returning any result.
Can any of you explain this behaviour?
When doing the same calculations with another similar software
package, I get solutions easily. Therefore it seems strange that
Mathematica does not return any solution.
Best regards,
Sigmund Vestergaard