Skip to main content
Tweeted twitter.com/StackMma/status/1143262599267737601
Became Hot Network Question
edited title
Link
user64494
  • 29.1k
  • 4
  • 29
  • 56

How to plot an unstable attractor?

Source Link

How to plot an unstable attractor

I'm trying to solve and plot the following in Mathematica:

eqns = {x'[t] == 
    x[t] - y[t] - 
     x[t] (x[t]^2 + y[t]^2) + (x[t] y[t])/Sqrt[x[t]^2 + y[t]^2], 
   y'[t] == 
    x[t] + y[t] - y[t] (x[t]^2 + y[t]^2) - 
     x[t]^2/Sqrt[x[t]^2 + y[t]^2]};
DSolve[eqns, {x, y}, t]

This is supposed to be an example of unstable attractor ODE. However, execution never ends and I don't manage to see the solution of the equation.