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 ...
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'
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'
load 'plot' pd 'reset' pd (i.@(10020"_){])&.> x46BDatA pd (i.@(10020"_){])&.> x46BDatB pd 'pdf'
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'
load 'plot' pd 'reset' pd (i.@(9125"_){])&.> x46BDatC pd (i.@(9125"_){])&.> x46BDatD pd 'pdf'