User:Tom Allen/ta/AddendumX03P05

load 'plot'

pd 'reset'

pd ((0.90*cos@]"0);0.90*sin@]"0) pTsteps (_,0p1,(5%0.90"_),160"_)''
pd ((0.95*cos@]"0);0.95*sin@]"0) pTsteps (_,0p1,(5%0.95"_),160"_)''
pd ((1.00*cos@]"0);1.00*sin@]"0) pTsteps (_,0p1,(5%1.00"_),160"_)''
pd ((1.05*cos@]"0);1.05*sin@]"0) pTsteps (_,0p1,(5%1.05"_),160"_)''
pd ((1.10*cos@]"0);1.10*sin@]"0) pTsteps (_,0p1,(5%1.10"_),160"_)''

pd 'aspect 1'
pd 'pdf'

... curvature ...

NB. ... execute (ijx) ...

pdEMBlue  =:((0.90*cos@]),(0.90*sin@]),0,5"_) {: pTsteps (_,0p1,(5%0.90"_),160"_)''
pdEMred   =:((0.95*cos@]),(0.95*sin@]),0,5"_) {: pTsteps (_,0p1,(5%0.95"_),160"_)''
pdEMgreen =:((1.00*cos@]),(1.00*sin@]),0,5"_) {: pTsteps (_,0p1,(5%1.00"_),160"_)''
pdEMpurple=:((1.05*cos@]),(1.05*sin@]),0,5"_) {: pTsteps (_,0p1,(5%1.05"_),160"_)''
pdEMpink  =:((1.10*cos@]),(1.10*sin@]),0,5"_) {: pTsteps (_,0p1,(5%1.10"_),160"_)''

NB. ... five 4-dimensional spacetime coordinates ...

   (10j6":]) pdEMBlue,pdEMred,pdEMgreen,pdEMpurple,:pdEMpink
  0.672078 _0.598591  0.000000  5.000000
  0.497175 _0.809516  0.000000  5.000000
  0.283662 _0.958924  0.000000  5.000000
  0.051970 _1.048713  0.000000  5.000000
 _0.182776 _1.084709  0.000000  5.000000

NB. ... the rate of rotation decreases from blue to pink ...
NB. ... but ...
NB. ... the rate of rotation of the energy distribution used to calculate the torsion tensor ...
NB. ... which is used to calculate ...
NB. ... the divergence of space and the divergence of time (gravity) ...
NB. ... and ...
NB. ... the electric field, the magnetic field and the charge distribution ...
NB. ... at each point in 4-dimensional spacetime ...
NB. ... is constant ...
NB. ...
NB. ... this system does not get back to it's initial condition ...
NB. ... and ...
NB. ... it is not cyclic and evolves with time ...

---

Download: File:LX03P0500D.txt
Download: File:LX03P0501C.txt
Download: File:LX03P0502C.txt

---

---

Next Page:
Prev Page: User:Tom Allen/ta/AddendumX03P04

---