User:Tom Allen/ta/AddendumX04P06B

From J Wiki
Jump to navigation Jump to search


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

NB. ... number of circuits=total time/once around time ...

   ((3{])@{.@{:%(3{])@{.@{:@(i.@(88440"_){])) pdDB    NB. ... number of circuits ...
14.4473
   ((3{])@{.@{:%(3{])@{.@{:@(i.@(75012"_){])) pdDC    NB. ... number of circuits ...
17.0962


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

x46BSeqL=:i.@{.@$@[
x46BSeqR=:i.@{.@$@]

x46BCorL=:zfxc@(S00yL{])"2@[
x46BCorR=:zfxc@(S00yL{])"2@]

x46BPosL=:x46BCorL,"1 0 x46BSeqL
x46BPosR=:x46BCorR,"1 0 x46BSeqR

x46BMat2=:((2^_44);2^_13)qteq cz2@[;cz2@]
x46BMat3=:((2^_44);2^_18)qteq cz3@[;cz3@]
x46BMatT=:x46BMat2*.x46BMat3

x46BGetN=:(,@(10000$1 128$(127$0:),1:)#}:@])
x46BSelB=:((>@(0{]),>@(1{])),:((zfyc@}:,{:)"1@>@(0{]),(zfyc@}:,{:)"1@>@(1{])))"1@((#@>@(1{])>0:)"1#])

x46BLiMT=:x46BSelB@(x46BGetN@x46BPosL(<@(1 5$[),<@(x46BMatT"1#]))"1 _ x46BGetN@x46BPosR)

NB. ... pdDB is passed by pdDC twice ...

   ((2^_44)qtsz]) pdDB x46BLiMT pdDC
  1.09288    1.5708 6.12861 123.858    877311
  1.19372    1.5708 6.12904 123.858    734207

  1.07984 _0.168265       0 123.858    877311
  1.17957 _0.183274       0 123.858    734207


  1.19935    1.5708  2.4735 154.261 1.09261e6
  1.19848    1.5708 2.47378  154.26    914431

  _0.9415  0.742986       0 154.261 1.09261e6
_0.941016   0.74218       0  154.26    914431


... points on these geodesics come into close proximity to each other in spacetime ...


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

NB. ... points on geodesics when the time is the same ...

   9!:11 [8

   {.@{: ((876411+i.@(0901"_)){]) ((2^_44)qtsz]) pdDB
1.0798447 _0.16826478 0 123.85805
   {.@{: ((733107+i.@(1103"_)){]) ((2^_44)qtsz]) pdDC
1.1793631 _0.18305046 0 123.85801
   
   {.@{: ((877311+i.@(0173"_)){]) ((2^_44)qtsz]) pdDB
1.1525915 _0.16307135 0 123.88423
   {.@{: ((734209+i.@(0150"_)){]) ((2^_44)qtsz]) pdDC
1.1475176 _0.16384217 0 123.88427


load 'plot'

pd 'reset'

pd (cy0"1;cy1"1) (S00yL{])"2 ((876411+i.@(0901"_)){]) pdDB    NB. ... blue  ...
pd (cy0"1;cy1"1) (S00yL{])"2 ((877311+i.@(0173"_)){]) pdDB    NB. ... red   ...
pd (cy0"1;cy1"1) (S00yL{])"2 ((877483+i.@(0800"_)){]) pdDB    NB. ... green ...

pd (cy0"1;cy1"1) (S00yL{])"2 ((733107+i.@(1103"_)){]) pdDC    NB. ... purple     ...
pd (cy0"1;cy1"1) (S00yL{])"2 ((734209+i.@(0150"_)){]) pdDC    NB. ... pink       ...
pd (cy0"1;cy1"1) (S00yL{])"2 ((734358+i.@(0300"_)){]) pdDC    NB. ... dark green ...

pd 'pdf'


... pdDB moves from blue -> red -> green ...
... pdDC moves from purple -> pink -> dark green ...


JX04P06B00E.jpg
... geodesics ...


load 'plot'

pd 'reset'

incy0=:(2-~/\])@:(cy0"1)
incy1=:(2-~/\])@:(cy1"1)
incy2=:(2-~/\])@:(cy2"1)
incy3=:(2-~/\])@:(cy3"1)
veloc=:(((incy0^2:)+incy1^2:)^0.5"_)%incy3

pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((876411+i.@(0901"_)){]) pdDB    NB. ... blue  ...
pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((877311+i.@(0173"_)){]) pdDB    NB. ... red   ...
pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((877483+i.@(0800"_)){]) pdDB    NB. ... green ...

pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((733107+i.@(1103"_)){]) pdDC    NB. ... purple     ...
pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((734209+i.@(0150"_)){]) pdDC    NB. ... pink       ...
pd (}:@:(cy3"1);veloc) (S00yL{])"2 ((734358+i.@(0300"_)){]) pdDC    NB. ... dark green ...

pd 'pdf'


JX04P06B01C.jpg
... velocity along geodesics as a multiple of the velocity of electromagnetic waves ...


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

uQ0=:,:@(1 1 2 8 1 1 1 _0.5 0"_)

x46BCarG=:,@(80000$1 16$(15$0:),1:)#}:@]

x46BDatA=:(uQ0(cy3"_ 1;[-@((   3){])"1@JEMcn   yRef@hkyX04A)]) (S00yL{])"2 (i.@(10100"_){]) x46BCarG pdDB
x46BDatB=:(uQ0(cy3"_ 1;[-@((<3 3){])"2@JEMcndn yRef@hkyX04A)]) (S00yL{])"2 (i.@(10100"_){]) x46BCarG pdDB


load 'plot'

pd 'reset'

pd (i.@(1240"_){])&.> x46BDatA
pd (i.@(1240"_){])&.> x46BDatB

pd 'pdf'


JX04P06B02F.jpg
... charge and rate of change of charge along geodesic (pdDB) ...


load 'plot'

pd 'reset'

pd (i.@(10020"_){])&.> x46BDatA
pd (i.@(10020"_){])&.> x46BDatB

pd 'pdf'


JX04P06B03G.jpg
... charge and rate of change of charge along geodesic (pdDB) ...


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

uQ0=:,:@(1 1 2 8 1 1 1 _0.5 0"_)

x46BCarG=:,@(80000$1 16$(15$0:),1:)#}:@]

x46BDatC=:(uQ0(cy3"_ 1;[-@((   3){])"1@JEMcn   yRef@hkyX04A)]) (S00yL{])"2 (i.@(10000"_){]) x46BCarG pdDC
x46BDatD=:(uQ0(cy3"_ 1;[-@((<3 3){])"2@JEMcndn yRef@hkyX04A)]) (S00yL{])"2 (i.@(10000"_){]) x46BCarG pdDC


load 'plot'

pd 'reset'

pd (i.@(1126"_){])&.> x46BDatC
pd (i.@(1126"_){])&.> x46BDatD

pd 'pdf'


JX04P06B04E.jpg
... charge and rate of change of charge along geodesic (pdDC) ...


load 'plot'

pd 'reset'

pd (i.@(9125"_){])&.> x46BDatC
pd (i.@(9125"_){])&.> x46BDatD

pd 'pdf'


JX04P06B05E.jpg
... charge and rate of change of charge along geodesic (pdDC) ...