Essays/Tensor Experiments/TensorExperiments01
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ...
gXc =:(<0 0){[
gXw =:(<0 1){[
gXp0=:(<1 0){[
gXp1=:(<1 1){[
gXp2=:(<1 2){[
gXp3=:(<1 3){[
gXp4=:(<1 4){[
gXT=:gXcw,:gXpAll
cy0=:0{]
cy1=:1{]
cy2=:2{]
cy3=:3{]
cx0=:0{]
cx1=:1{]
cx2=:2{]
cx3=:3{]
sin=:1&o.
cos=:2&o.
arctant1=:(1p1+_3&o.@({:%{.))`((2p1+_3&o.@({:%{.))`(_3&o.@({:%{.))@.(>:&0@{:))@.(>&0@{.)
arctant0=:3r2p1"_`(1r2p1"_)@.(>&0@{:)`0:@.(=&0@{:)
arctan =:arctant1`arctant0@.(=&0@{.)"1
aVn2=:~.@(](([-:"1/:~"1@])#]),/^:1@(],"1"1 _~^:1])@:(,"0)@])
aVn3=:~.@(](([-:"1/:~"1@])#]),/^:2@(],"1"1 _~^:2])@:(,"0)@])
aVn4=:~.@(](([-:"1/:~"1@])#]),/^:3@(],"1"1 _~^:3])@:(,"0)@])
aVn5=:~.@(](([-:"1/:~"1@])#]),/^:4@(],"1"1 _~^:4])@:(,"0)@])
qtsz=:$@]$[0:`(I.@([>!.0|@]))`]},@]
qteq=:*./@,@([((>@(0{])|@:->@(1{]))<:!.0>@(1{[)*>@(0{])>.&:|>@(1{]))(>@(0{[)qtsz>@(0{]));>@(0{[)qtsz>@(1{]))
nzstats=:((<./;>./)@:|@((0<!.0|)#]),<@(+/)@(0<!.0|))@,
pTsteps =:(1{])+((2{])-1{])*(i.@>:%])@(3{])
pTgen =:(|.@:-,])@pTsteps`pTsteps@.((0{])=_"_)
pTtotal =:,/^:3@>@(,"1"1 _&.>/)@(<@:(,"0)@pTgen"1@])
NB. ... for checking verbs (avoid 0) ...
pTradian=:(sin@[<:|@sin@])*.cos@(0.5p1-[)<:|@cos@]
pTselect=:(>@(0{[)((([<:|@(0{]))*.([pTradian(1{]))*.([pTradian(2{]))*.[<:|@(3{]))"_ 1#])])`]@.(>@(0{[)=0:)
pTRandom=:[(?.@(>@(1{[)$0{$@]){])[pTselect pTtotal
smx=:+/@(*"1)"1 _"_
NB. ... script experimental.ijs ...
cfXX0=:>@(0{])
cfXX1=:>@(1{])
cfXX2=:>@(2{])
cfXX3=:>@(3{])
cfXX4=:>@(4{])
cfXX5=:>@(5{])
cfAL =:>@((<0 0){])
cfALdc =:>@((<0 1){])
cfALdcdc =:>@((<0 2){])
cfALdcdcdc =:>@((<0 3){])
cfALdcdcdcdc =:>@((<0 4){])
cfALdcdcdcdcdc=:>@((<0 5){])
cfAF =:>@((<0 0){])
cfAFdR =:>@((<0 1){])
cfAFdRdR =:>@((<0 2){])
cfAFdRdRdR =:>@((<0 3){])
cfAFdRdRdRdR =:>@((<0 4){])
cfAFdRdRdRdRdR=:>@((<0 5){])
cfAR =:>@((<1 0){])
cfARdc =:>@((<1 1){])
cfARdcdc =:>@((<1 2){])
cfARdcdcdc =:>@((<1 3){])
cfARdcdcdcdc =:>@((<1 4){])
cfARdcdcdcdcdc=:>@((<1 5){])
NB. ... script experimental.ijs ... cfFN=:cfAF cfFNdc=:cfAFdR*cfARdc cfFNdcdct0=:( ])@(cfAFdR *cfARdcdc ) cfFNdcdct1=:(0|:])@(cfAFdRdR*cfARdc */cfARdc) cfFNdcdc=:cfFNdcdct0+cfFNdcdct1 cfFNdcdcdct0=:( ])@(cfAFdR *cfARdcdcdc ) cfFNdcdcdct1=:( 0|:])@(cfAFdRdR *cfARdc */cfARdcdc ) cfFNdcdcdct2=:(0 2|:])@(cfAFdRdR *cfARdc */cfARdcdc ) cfFNdcdcdct3=:(0 1|:])@(cfAFdRdR *cfARdcdc */cfARdc ) cfFNdcdcdct4=:(1 0|:])@(cfAFdRdRdR*cfARdc */cfARdc */cfARdc) cfFNdcdcdc=:cfFNdcdcdct0+cfFNdcdcdct1+cfFNdcdcdct2+cfFNdcdcdct3+cfFNdcdcdct4 cfFNdcdcdcdct00=:( ])@(cfAFdR *cfARdcdcdcdc ) cfFNdcdcdcdct01=:( 0|:])@(cfAFdRdR *cfARdc */cfARdcdcdc ) cfFNdcdcdcdct10=:( 0 3|:])@(cfAFdRdR *cfARdc */cfARdcdcdc ) cfFNdcdcdcdct11=:( 0 1|:])@(cfAFdRdR *cfARdcdc */cfARdcdc ) cfFNdcdcdcdct12=:( 1 0|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdct20=:(0 2 3|:])@(cfAFdRdR *cfARdc */cfARdcdcdc ) cfFNdcdcdcdct21=:(0 3 1|:])@(cfAFdRdR *cfARdcdc */cfARdcdc ) cfFNdcdcdcdct22=:(1 3 0|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdct30=:(0 1 3|:])@(cfAFdRdR *cfARdcdc */cfARdcdc ) cfFNdcdcdcdct31=:(0 1 2|:])@(cfAFdRdR *cfARdcdcdc */cfARdc ) cfFNdcdcdcdct32=:(1 2 0|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdc ) cfFNdcdcdcdct40=:(1 0 3|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdct41=:(1 0 2|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdc ) cfFNdcdcdcdct42=:(2 0 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdc */cfARdc ) cfFNdcdcdcdct43=:(2 1 0|:])@(cfAFdRdRdRdR*cfARdc */cfARdc */cfARdc */cfARdc) cfFNdcdcdcdct0=:cfFNdcdcdcdct00+cfFNdcdcdcdct01 cfFNdcdcdcdct1=:cfFNdcdcdcdct10+cfFNdcdcdcdct11+cfFNdcdcdcdct12 cfFNdcdcdcdct2=:cfFNdcdcdcdct20+cfFNdcdcdcdct21+cfFNdcdcdcdct22 cfFNdcdcdcdct3=:cfFNdcdcdcdct30+cfFNdcdcdcdct31+cfFNdcdcdcdct32 cfFNdcdcdcdct4=:cfFNdcdcdcdct40+cfFNdcdcdcdct41+cfFNdcdcdcdct42+cfFNdcdcdcdct43 cfFNdcdcdcdc=:cfFNdcdcdcdct0+cfFNdcdcdcdct1+cfFNdcdcdcdct2+cfFNdcdcdcdct3+cfFNdcdcdcdct4 cfFNdcdcdcdcdct000=:( ])@(cfAFdR *cfARdcdcdcdcdc ) cfFNdcdcdcdcdct001=:( 0|:])@(cfAFdRdR *cfARdc */cfARdcdcdcdc ) cfFNdcdcdcdcdct010=:( 0 4|:])@(cfAFdRdR *cfARdc */cfARdcdcdcdc ) cfFNdcdcdcdcdct011=:( 0 1|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct012=:( 1 0|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct100=:( 0 3 4|:])@(cfAFdRdR *cfARdc */cfARdcdcdcdc ) cfFNdcdcdcdcdct101=:( 0 4 1|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct102=:( 1 4 0|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct110=:( 0 1 4|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct111=:( 0 1 2|:])@(cfAFdRdR *cfARdcdcdc */cfARdcdc ) cfFNdcdcdcdcdct112=:( 1 2 0|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct120=:( 1 0 4|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct121=:( 1 0 2|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct122=:( 2 0 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct123=:( 2 1 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct200=:(0 2 3 4|:])@(cfAFdRdR *cfARdc */cfARdcdcdcdc ) cfFNdcdcdcdcdct201=:(0 3 4 1|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct202=:(1 3 4 0|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct210=:(0 3 1 4|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct211=:(0 4 1 2|:])@(cfAFdRdR *cfARdcdcdc */cfARdcdc ) cfFNdcdcdcdcdct212=:(1 4 2 0|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct220=:(1 3 0 4|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct221=:(1 4 0 2|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct222=:(2 4 0 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct223=:(2 4 1 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct300=:(0 1 3 4|:])@(cfAFdRdR *cfARdcdc */cfARdcdcdc ) cfFNdcdcdcdcdct301=:(0 1 4 2|:])@(cfAFdRdR *cfARdcdcdc */cfARdcdc ) cfFNdcdcdcdcdct302=:(1 2 4 0|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct310=:(0 1 2 4|:])@(cfAFdRdR *cfARdcdcdc */cfARdcdc ) cfFNdcdcdcdcdct311=:(0 1 2 3|:])@(cfAFdRdR *cfARdcdcdcdc */cfARdc ) cfFNdcdcdcdcdct312=:(1 2 3 0|:])@(cfAFdRdRdR *cfARdc */cfARdcdcdc */cfARdc ) cfFNdcdcdcdcdct320=:(1 2 0 4|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct321=:(1 2 0 3|:])@(cfAFdRdRdR *cfARdc */cfARdcdcdc */cfARdc ) cfFNdcdcdcdcdct322=:(2 3 0 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct323=:(2 3 1 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct400=:(1 0 3 4|:])@(cfAFdRdRdR *cfARdc */cfARdc */cfARdcdcdc ) cfFNdcdcdcdcdct401=:(1 0 4 2|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct402=:(2 0 4 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct403=:(2 1 4 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct410=:(1 0 2 4|:])@(cfAFdRdRdR *cfARdc */cfARdcdc */cfARdcdc ) cfFNdcdcdcdcdct411=:(1 0 2 3|:])@(cfAFdRdRdR *cfARdc */cfARdcdcdc */cfARdc ) cfFNdcdcdcdcdct412=:(2 0 3 1|:])@(cfAFdRdRdR *cfARdcdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct413=:(2 1 3 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct420=:(2 0 1 4|:])@(cfAFdRdRdR *cfARdcdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct421=:(2 0 1 3|:])@(cfAFdRdRdR *cfARdcdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct422=:(3 0 1 2|:])@(cfAFdRdRdR *cfARdcdcdc */cfARdc */cfARdc ) cfFNdcdcdcdcdct423=:(3 1 2 0|:])@(cfAFdRdRdRdR *cfARdc */cfARdcdc */cfARdc */cfARdc ) cfFNdcdcdcdcdct430=:(2 1 0 4|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdc */cfARdcdc ) cfFNdcdcdcdcdct431=:(2 1 0 3|:])@(cfAFdRdRdRdR *cfARdc */cfARdc */cfARdcdc */cfARdc ) cfFNdcdcdcdcdct432=:(3 1 0 2|:])@(cfAFdRdRdRdR *cfARdc */cfARdcdc */cfARdc */cfARdc ) cfFNdcdcdcdcdct433=:(3 2 0 1|:])@(cfAFdRdRdRdR *cfARdcdc */cfARdc */cfARdc */cfARdc ) cfFNdcdcdcdcdct434=:(3 2 1 0|:])@(cfAFdRdRdRdRdR*cfARdc */cfARdc */cfARdc */cfARdc */cfARdc) cfFNdcdcdcdcdct00=:cfFNdcdcdcdcdct000+cfFNdcdcdcdcdct001 cfFNdcdcdcdcdct01=:cfFNdcdcdcdcdct010+cfFNdcdcdcdcdct011+cfFNdcdcdcdcdct012 cfFNdcdcdcdcdct10=:cfFNdcdcdcdcdct100+cfFNdcdcdcdcdct101+cfFNdcdcdcdcdct102 cfFNdcdcdcdcdct11=:cfFNdcdcdcdcdct110+cfFNdcdcdcdcdct111+cfFNdcdcdcdcdct112 cfFNdcdcdcdcdct12=:cfFNdcdcdcdcdct120+cfFNdcdcdcdcdct121+cfFNdcdcdcdcdct122+cfFNdcdcdcdcdct123 cfFNdcdcdcdcdct20=:cfFNdcdcdcdcdct200+cfFNdcdcdcdcdct201+cfFNdcdcdcdcdct202 cfFNdcdcdcdcdct21=:cfFNdcdcdcdcdct210+cfFNdcdcdcdcdct211+cfFNdcdcdcdcdct212 cfFNdcdcdcdcdct22=:cfFNdcdcdcdcdct220+cfFNdcdcdcdcdct221+cfFNdcdcdcdcdct222+cfFNdcdcdcdcdct223 cfFNdcdcdcdcdct30=:cfFNdcdcdcdcdct300+cfFNdcdcdcdcdct301+cfFNdcdcdcdcdct302 cfFNdcdcdcdcdct31=:cfFNdcdcdcdcdct310+cfFNdcdcdcdcdct311+cfFNdcdcdcdcdct312 cfFNdcdcdcdcdct32=:cfFNdcdcdcdcdct320+cfFNdcdcdcdcdct321+cfFNdcdcdcdcdct322+cfFNdcdcdcdcdct323 cfFNdcdcdcdcdct40=:cfFNdcdcdcdcdct400+cfFNdcdcdcdcdct401+cfFNdcdcdcdcdct402+cfFNdcdcdcdcdct403 cfFNdcdcdcdcdct41=:cfFNdcdcdcdcdct410+cfFNdcdcdcdcdct411+cfFNdcdcdcdcdct412+cfFNdcdcdcdcdct413 cfFNdcdcdcdcdct42=:cfFNdcdcdcdcdct420+cfFNdcdcdcdcdct421+cfFNdcdcdcdcdct422+cfFNdcdcdcdcdct423 cfFNdcdcdcdcdct43=:cfFNdcdcdcdcdct430+cfFNdcdcdcdcdct431+cfFNdcdcdcdcdct432+cfFNdcdcdcdcdct433+cfFNdcdcdcdcdct434 cfFNdcdcdcdcdct0=:cfFNdcdcdcdcdct00+cfFNdcdcdcdcdct01 cfFNdcdcdcdcdct1=:cfFNdcdcdcdcdct10+cfFNdcdcdcdcdct11+cfFNdcdcdcdcdct12 cfFNdcdcdcdcdct2=:cfFNdcdcdcdcdct20+cfFNdcdcdcdcdct21+cfFNdcdcdcdcdct22 cfFNdcdcdcdcdct3=:cfFNdcdcdcdcdct30+cfFNdcdcdcdcdct31+cfFNdcdcdcdcdct32 cfFNdcdcdcdcdct4=:cfFNdcdcdcdcdct40+cfFNdcdcdcdcdct41+cfFNdcdcdcdcdct42+cfFNdcdcdcdcdct43 cfFNdcdcdcdcdc=:cfFNdcdcdcdcdct0+cfFNdcdcdcdcdct1+cfFNdcdcdcdcdct2+cfFNdcdcdcdcdct3+cfFNdcdcdcdcdct4 cfFN0=:cfFN; _; _; _; _; _"_ cfFN1=:cfFN;cfFNdc; _; _; _; _"_ cfFN2=:cfFN;cfFNdc;cfFNdcdc; _; _; _"_ cfFN3=:cfFN;cfFNdc;cfFNdcdc;cfFNdcdcdc; _; _"_ cfFN4=:cfFN;cfFNdc;cfFNdcdc;cfFNdcdcdc;cfFNdcdcdcdc; _"_ cfFN5=:cfFN;cfFNdc;cfFNdcdc;cfFNdcdcdc;cfFNdcdcdcdc;cfFNdcdcdcdcdc
Download: File:LTE0100C.txt
Download MoinMoin source: File:TensorExperiments01.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments02
Prev Page: Essays/Tensor Experiments/TensorExperiments00