User:Tom Allen/ta/AddendumX04P06B
< User:Tom Allen | ta
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 ...
... 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'
... 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'
... charge and rate of change of charge along geodesic (pdDB) ...
load 'plot'
pd 'reset'
pd (i.@(10020"_){])&.> x46BDatA
pd (i.@(10020"_){])&.> x46BDatB
pd 'pdf'
... 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'
... charge and rate of change of charge along geodesic (pdDC) ...
load 'plot'
pd 'reset'
pd (i.@(9125"_){])&.> x46BDatC
pd (i.@(9125"_){])&.> x46BDatD
pd 'pdf'
... charge and rate of change of charge along geodesic (pdDC) ...
