Draws the geodesics around a Kerr black hole. Several geodesics can be drawn at once to compare how their paths deviate from each other.
Definitions
Definitions
In[]:=
simShow[{{{0,3,Pi/2,0},{1,0.00,0.1,-0.02}},{{0,3,Pi/2,0},{1,0.00,0.1,0.02}},{{0,3,Pi/2,0},{1,0.00,0.1,0.04}},{{0,3,Pi/2,0},{1,0.00,0.13,0.0}}},0.9,1,100]
Out[]=
In[]:=
simShow[{{{0,2,Pi/2,0},{1,0.00,0.251,-0.02}},{{0,2,Pi/2,0},{1,0.00,-0.251,-0.02}}},0.9,1,100]
Out[]=
In[]:=
simShow[{{{0,2,Pi/2,0},{1,0.00,0.25,0.0}},{{0,2,Pi/2,0},{1,0.00,0.25,-0.01}},{{0,2,Pi/2,0},{1,0.00,0.25,0.01}}},0.5,1,70]
Out[]=
In[]:=
simShow[{{{0,2,Pi/2,0},{1,0.00,0.25,0.0}},{{0,2,Pi/2,0},{1,0.00,0.02,0.2}},{{0,2,Pi/2,0},{1,0.00,-0.01,-0.2855141}}},1,1,150]
Out[]=
In[]:=
simShow[{{{0,2,Pi/5,0},{1,0.00,0,0.37}},{{0,2,Pi/5,0},{1,0.00,0,-0.4299}}},1,1,70]
Out[]=
Created by Michael Ostroff, a member of FAU’s MPCR Lab.