User:Tom Allen/ta/AddendumX06P04
< User:Tom Allen | ta
Jump to navigation
Jump to search
load 'plot' pd 'reset' x6Rx2 =.(0{])+((1{])-0{])*(i.@>:%])@(2{]) x6spiral=.(x6m*^@(x6q*]-x6p))(([*cos@]);[*sin@])] x6m=.0.75"_ x6q=.0.00"_ x6p=.0.00p1"_ pd x6spiral x6Rx2 _150.00p1 20.10p1 15000 pd 'itemcolor green' pd ((0.9675*cos@]"0);0.9675*sin@]"0) pTsteps _ 0p1 2p1 160 pd 'itemcolor purple' pd ((1.2832*cos@]"0);1.2832*sin@]"0) pTsteps _ 0p1 2p1 160 pd 'aspect 1' pd 'canvas plot.html 666 500'
pU0=:,:@(0.05 1 2 8 1 1 1 0.1 0"_) vSgDd2=:pU0([([(0{])@E1cn yRef@hkyX06B),:@(S03yH{]))] Initx =: 0.7500 , 0.5p1 , 0.25p1 , 0p1"_ Initdx=: (0 , 0 , 0 , 0.1"_)*%@InitInt=:8"_ Inity =:zfyc@Initx Initdy=:zfyc@(Initx+Initdx)+-@zfyc@Initx Initds=:|@((((0{])^2:)+((1{])^2:)+((2{])^2:)+-@((3{])^2:))^0.5"_)@Initdy vS00yL =:Inity vS01dyL =:0,0,0,0: vS02d1L =:Initdy%Initds vS06ds =:Initds vS07count=:(0,32000"_)*InitInt pdDE =:vSgD@vS'' pdDE arrayPut 'pdDE' arrayClose 'pdDE'
NB. ... execute (ijx) ... arrayOpen 'pdDE' pdDE=:256001 8 4 arrayGet 'pdDE' NB. ... shape required ... arrayClose 'pdDE'
load 'plot' pd 'reset' pd <"1@(0|:])@:((cy0,cy1)@(S00yL{])"2) pdDE pd ((0.9675*cos@]"0);0.9675*sin@]"0) pTsteps _ 0p1 2p1 160 pd ((1.2832*cos@]"0);1.2832*sin@]"0) pTsteps _ 0p1 2p1 160 pd 'aspect 1' pd 'canvas plot.html 666 500'
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 (}:@((0.1%8"_)*i.@(256001"_));veloc)@:((S00yL{])"2) pdDE pd (}:@((0.1%8"_)*i.@(256001"_));incy2)@:((S00yL{])"2) pdDE pd 'canvas plot.html 666 500'
load 'plot' pd 'reset' NB. ... plotted against the length in 4-dimensional spacetime ... NB. ... (an equal length in 4-dimensional spacetime means the events are coincident) ... pd (((0.1%8"_)*i.@(256001"_));(0.1%8"_)*i.@(256001"_))'' NB. ... elapsed time at fixed point in empty space (blue) ... pd (((0.1%8"_)*i.@(256001"_));cy3"1)@:((S00yL{])"2) pdDE NB. ... elapsed time along the geodesic (red ) ... NB. ... (a 'fixed point' in the energy field) ... pd 'canvas plot.html 666 500'
Download: File:LX06P0400D.txt
Next Page: User:Tom Allen/ta/AddendumX06P04A
Prev Page: User:Tom Allen/ta/AddendumX06P03A