User:Tom Allen/TensorExperimentsZ17
Jump to navigation
Jump to search
...
... or (Cartesian) ...
...
NB. ... script experimentalZ.ijs ...
gXS=:_ _ _ _ _ _"_,:gXsAll
cu0=:0{]
cu1=:1{]
cu2=:2{]
cu3=:3{]
NB. ... script experimentalZ.ijs ...
hkMc=:<@:>"1@(0|:])@:(((1 0 0 0,0 1 0 0,0 0 1 0,:0 0 0 _1"_);((3$4:)$0:);((4$4:)$0:);((5$4:)$0:);((6$4:)$0:);1$_"_)"_ 1)
hkuR=:(6$a:"_),(6$a:"_),hkMc,(6$a:"_),OzCXX,:6$a:"_
uRef=:(0{]),(1{]),(2{]),:4{]
...
... in Cartesian coordinates ...
... in every inertial reference frame ...
... the covariant tensor used to lower indices ...
... is ...
...
NB. ... execute (ijx) ... gXsAll=: _1 1 1 1 1 0"_ (gXS([mcv uRef@hkuR)]) ,: 1 1 1 2 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1
...
... in Cartesian coordinates ...
... in every inertial reference frame ...
... the contravariant tensor used to raise indices ...
... is ...
...
NB. ... execute (ijx) ... gXsAll=: _1 1 1 1 1 0"_ (gXS([mcn uRef@hkuR)]) ,: 1 1 1 2 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1
NB. ... execute (ijx) ... gXsAll=: _1 1 1 1 1 0"_ (gXS((1 0 0 0.2,0 1 0 0 ,0 0 1 0,:0 0 0 1"_)"_ 1([smx"2 smx"2)[mcn uRef@hkuR)]) ,: 1 1 1 2 0.96 0 0 _0.2 0 1 0 0 0 0 1 0 _0.2 0 0 _1
NB. ... execute (ijx) ... gXsAll=: _1 1 1 1 1 0"_ uCpts=:_ 0.1 4 27,_ 0.1 4 27,_ 0.1 4 27,:_ 0 6 27"_ (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXS cfXX1@OzCXXS"_ 1]) ((0;50"_)pTRandom uCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
Download: File:LTEZ1703D.txt
Download: File:LTEZ1704C.txt
Download: File:LTEZ1705E.txt
Download MoinMoin source: File:TensorExperimentsZ17.ijs