1

How to plot the basin boundary in Mathematica?
I have been trying to do this using the system

y''[t] == -R y'[t] + (( Y[1] - y[t])/(Sqrt[(X[1] - x[t])^2 + (Y[1] - y[t])^2 + d^2])^3 
                     + (Y[2] - y[t])/(Sqrt[(X[2] - x[t])^2 + (Y[2] - y[t])^2 + d^2])^3 
                     + (Y[3] - y[t])/(Sqrt[(X[3] - x[t])^2 + (Y[3] - y[t])^2 + d^2])^3) 
          - c y[t]

x''[t] == -R x'[t] + ((X[1] - x[t])/(Sqrt[(X[1] - x[t])^2 + (Y[1] - y[t])^2 + d^2])^3 
                     + (X[2] - x[t])/(Sqrt[(X[2] - x[t])^2 + (Y[2] - y[t])^2 + d^2])^3 
                     + (X[3] - x[t])/(Sqrt[(X[3] - x[t])^2 + (Y[3] - y[t])^2 + d^2])^3) 
          - c x[t]

It is a magnetic pendulum swinging chaotically about 3 other magnets underneath. R,c,d are all constants,where r is air resistance, d is the vertical distance of the pendulum from the floor, c is the sping constant of the pendulum. X[1], X[2] and X[3] (Y[1],Y[2] and Y[3]) are the coordinates of the magnets.

But I have gotten nowhere.

Artes
  • 57,212
  • 12
  • 157
  • 245
HQH
  • 11
  • 1

0 Answers0