User:Tom Allen/TensorExperimentsR01

From J Wiki
Jump to navigation Jump to search


NB. ... script experimentalR.ijs ...

rfAL          =:>@((<0 0){])
rfALdc        =:>@((<0 1){])
rfALdcdc      =:>@((<0 2){])
rfALdcdcdc    =:>@((<0 3){])
rfALdcdcdcdc  =:>@((<0 4){])
rfALdcdcdcdcdc=:>@((<0 5){])

rfAF          =:>@((<0 0){])
rfAFdR        =:>@((<0 1){])
rfAFdRdR      =:>@((<0 2){])
rfAFdRdRdR    =:>@((<0 3){])
rfAFdRdRdRdR  =:>@((<0 4){])
rfAFdRdRdRdRdR=:>@((<0 5){])

rfAR          =:>@((<1 0){])
rfARdc        =:>@((<1 1){])
rfARdcdc      =:>@((<1 2){])
rfARdcdcdc    =:>@((<1 3){])
rfARdcdcdcdc  =:>@((<1 4){])
rfARdcdcdcdcdc=:>@((<1 5){])


GTER0100E.jpg


NB. ... script experimentalR.ijs ...

rfFN=:rfAF


rfFNdc=:rfAFdR*rfARdc


rfFNdcdct0=:rfAFdR  *rfARdcdc       
rfFNdcdct1=:rfAFdRdR*rfARdc  *rfARdc

rfFNdcdc=:rfFNdcdct0+rfFNdcdct1


rfFNdcdcdct0=:rfAFdR    *rfARdcdcdc
rfFNdcdcdct1=:rfAFdRdR  *rfARdc    *rfARdcdc
rfFNdcdcdct2=:rfAFdRdR  *rfARdc    *rfARdcdc
rfFNdcdcdct3=:rfAFdRdR  *rfARdcdc  *rfARdc
rfFNdcdcdct4=:rfAFdRdRdR*rfARdc    *rfARdc  *rfARdc

rfFNdcdcdc=:rfFNdcdcdct0+rfFNdcdcdct1+rfFNdcdcdct2+rfFNdcdcdct3+rfFNdcdcdct4


rfFNdcdcdcdct00=:rfAFdR      *rfARdcdcdcdc
rfFNdcdcdcdct01=:rfAFdRdR    *rfARdc      *rfARdcdcdc
rfFNdcdcdcdct10=:rfAFdRdR    *rfARdc      *rfARdcdcdc
rfFNdcdcdcdct11=:rfAFdRdR    *rfARdcdc    *rfARdcdc
rfFNdcdcdcdct12=:rfAFdRdRdR  *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdct20=:rfAFdRdR    *rfARdc      *rfARdcdcdc
rfFNdcdcdcdct21=:rfAFdRdR    *rfARdcdc    *rfARdcdc
rfFNdcdcdcdct22=:rfAFdRdRdR  *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdct30=:rfAFdRdR    *rfARdcdc    *rfARdcdc
rfFNdcdcdcdct31=:rfAFdRdR    *rfARdcdcdc  *rfARdc
rfFNdcdcdcdct32=:rfAFdRdRdR  *rfARdc      *rfARdcdc  *rfARdc
rfFNdcdcdcdct40=:rfAFdRdRdR  *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdct41=:rfAFdRdRdR  *rfARdc      *rfARdcdc  *rfARdc
rfFNdcdcdcdct42=:rfAFdRdRdR  *rfARdcdc    *rfARdc    *rfARdc
rfFNdcdcdcdct43=:rfAFdRdRdRdR*rfARdc      *rfARdc    *rfARdc  *rfARdc

rfFNdcdcdcdct0=:rfFNdcdcdcdct00+rfFNdcdcdcdct01
rfFNdcdcdcdct1=:rfFNdcdcdcdct10+rfFNdcdcdcdct11+rfFNdcdcdcdct12
rfFNdcdcdcdct2=:rfFNdcdcdcdct20+rfFNdcdcdcdct21+rfFNdcdcdcdct22
rfFNdcdcdcdct3=:rfFNdcdcdcdct30+rfFNdcdcdcdct31+rfFNdcdcdcdct32
rfFNdcdcdcdct4=:rfFNdcdcdcdct40+rfFNdcdcdcdct41+rfFNdcdcdcdct42+rfFNdcdcdcdct43

rfFNdcdcdcdc=:rfFNdcdcdcdct0+rfFNdcdcdcdct1+rfFNdcdcdcdct2+rfFNdcdcdcdct3+rfFNdcdcdcdct4


rfFNdcdcdcdcdct000=:rfAFdR        *rfARdcdcdcdcdc
rfFNdcdcdcdcdct001=:rfAFdRdR      *rfARdc        *rfARdcdcdcdc
rfFNdcdcdcdcdct010=:rfAFdRdR      *rfARdc        *rfARdcdcdcdc
rfFNdcdcdcdcdct011=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct012=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct100=:rfAFdRdR      *rfARdc        *rfARdcdcdcdc
rfFNdcdcdcdcdct101=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct102=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct110=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct111=:rfAFdRdR      *rfARdcdcdc    *rfARdcdc
rfFNdcdcdcdcdct112=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct120=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct121=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct122=:rfAFdRdRdR    *rfARdcdc      *rfARdc      *rfARdcdc
rfFNdcdcdcdcdct123=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdcdct200=:rfAFdRdR      *rfARdc        *rfARdcdcdcdc
rfFNdcdcdcdcdct201=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct202=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct210=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct211=:rfAFdRdR      *rfARdcdcdc    *rfARdcdc
rfFNdcdcdcdcdct212=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct220=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct221=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct222=:rfAFdRdRdR    *rfARdcdc      *rfARdc      *rfARdcdc
rfFNdcdcdcdcdct223=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdcdct300=:rfAFdRdR      *rfARdcdc      *rfARdcdcdc
rfFNdcdcdcdcdct301=:rfAFdRdR      *rfARdcdcdc    *rfARdcdc
rfFNdcdcdcdcdct302=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct310=:rfAFdRdR      *rfARdcdcdc    *rfARdcdc
rfFNdcdcdcdcdct311=:rfAFdRdR      *rfARdcdcdcdc  *rfARdc
rfFNdcdcdcdcdct312=:rfAFdRdRdR    *rfARdc        *rfARdcdcdc  *rfARdc
rfFNdcdcdcdcdct320=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct321=:rfAFdRdRdR    *rfARdc        *rfARdcdcdc  *rfARdc
rfFNdcdcdcdcdct322=:rfAFdRdRdR    *rfARdcdc      *rfARdcdc    *rfARdc
rfFNdcdcdcdcdct323=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdcdc  *rfARdc
rfFNdcdcdcdcdct400=:rfAFdRdRdR    *rfARdc        *rfARdc      *rfARdcdcdc
rfFNdcdcdcdcdct401=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct402=:rfAFdRdRdR    *rfARdcdc      *rfARdc      *rfARdcdc
rfFNdcdcdcdcdct403=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdcdct410=:rfAFdRdRdR    *rfARdc        *rfARdcdc    *rfARdcdc
rfFNdcdcdcdcdct411=:rfAFdRdRdR    *rfARdc        *rfARdcdcdc  *rfARdc
rfFNdcdcdcdcdct412=:rfAFdRdRdR    *rfARdcdc      *rfARdcdc    *rfARdc
rfFNdcdcdcdcdct413=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdcdc  *rfARdc
rfFNdcdcdcdcdct420=:rfAFdRdRdR    *rfARdcdc      *rfARdc      *rfARdcdc
rfFNdcdcdcdcdct421=:rfAFdRdRdR    *rfARdcdc      *rfARdcdc    *rfARdc
rfFNdcdcdcdcdct422=:rfAFdRdRdR    *rfARdcdcdc    *rfARdc      *rfARdc
rfFNdcdcdcdcdct423=:rfAFdRdRdRdR  *rfARdc        *rfARdcdc    *rfARdc    *rfARdc
rfFNdcdcdcdcdct430=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdc    *rfARdcdc
rfFNdcdcdcdcdct431=:rfAFdRdRdRdR  *rfARdc        *rfARdc      *rfARdcdc  *rfARdc
rfFNdcdcdcdcdct432=:rfAFdRdRdRdR  *rfARdc        *rfARdcdc    *rfARdc    *rfARdc
rfFNdcdcdcdcdct433=:rfAFdRdRdRdR  *rfARdcdc      *rfARdc      *rfARdc    *rfARdc
rfFNdcdcdcdcdct434=:rfAFdRdRdRdRdR*rfARdc        *rfARdc      *rfARdc    *rfARdc  *rfARdc

rfFNdcdcdcdcdct00=:rfFNdcdcdcdcdct000+rfFNdcdcdcdcdct001
rfFNdcdcdcdcdct01=:rfFNdcdcdcdcdct010+rfFNdcdcdcdcdct011+rfFNdcdcdcdcdct012
rfFNdcdcdcdcdct10=:rfFNdcdcdcdcdct100+rfFNdcdcdcdcdct101+rfFNdcdcdcdcdct102
rfFNdcdcdcdcdct11=:rfFNdcdcdcdcdct110+rfFNdcdcdcdcdct111+rfFNdcdcdcdcdct112
rfFNdcdcdcdcdct12=:rfFNdcdcdcdcdct120+rfFNdcdcdcdcdct121+rfFNdcdcdcdcdct122+rfFNdcdcdcdcdct123
rfFNdcdcdcdcdct20=:rfFNdcdcdcdcdct200+rfFNdcdcdcdcdct201+rfFNdcdcdcdcdct202
rfFNdcdcdcdcdct21=:rfFNdcdcdcdcdct210+rfFNdcdcdcdcdct211+rfFNdcdcdcdcdct212
rfFNdcdcdcdcdct22=:rfFNdcdcdcdcdct220+rfFNdcdcdcdcdct221+rfFNdcdcdcdcdct222+rfFNdcdcdcdcdct223
rfFNdcdcdcdcdct30=:rfFNdcdcdcdcdct300+rfFNdcdcdcdcdct301+rfFNdcdcdcdcdct302
rfFNdcdcdcdcdct31=:rfFNdcdcdcdcdct310+rfFNdcdcdcdcdct311+rfFNdcdcdcdcdct312
rfFNdcdcdcdcdct32=:rfFNdcdcdcdcdct320+rfFNdcdcdcdcdct321+rfFNdcdcdcdcdct322+rfFNdcdcdcdcdct323
rfFNdcdcdcdcdct40=:rfFNdcdcdcdcdct400+rfFNdcdcdcdcdct401+rfFNdcdcdcdcdct402+rfFNdcdcdcdcdct403
rfFNdcdcdcdcdct41=:rfFNdcdcdcdcdct410+rfFNdcdcdcdcdct411+rfFNdcdcdcdcdct412+rfFNdcdcdcdcdct413
rfFNdcdcdcdcdct42=:rfFNdcdcdcdcdct420+rfFNdcdcdcdcdct421+rfFNdcdcdcdcdct422+rfFNdcdcdcdcdct423
rfFNdcdcdcdcdct43=:rfFNdcdcdcdcdct430+rfFNdcdcdcdcdct431+rfFNdcdcdcdcdct432+rfFNdcdcdcdcdct433+rfFNdcdcdcdcdct434

rfFNdcdcdcdcdct0=:rfFNdcdcdcdcdct00+rfFNdcdcdcdcdct01
rfFNdcdcdcdcdct1=:rfFNdcdcdcdcdct10+rfFNdcdcdcdcdct11+rfFNdcdcdcdcdct12
rfFNdcdcdcdcdct2=:rfFNdcdcdcdcdct20+rfFNdcdcdcdcdct21+rfFNdcdcdcdcdct22
rfFNdcdcdcdcdct3=:rfFNdcdcdcdcdct30+rfFNdcdcdcdcdct31+rfFNdcdcdcdcdct32
rfFNdcdcdcdcdct4=:rfFNdcdcdcdcdct40+rfFNdcdcdcdcdct41+rfFNdcdcdcdcdct42+rfFNdcdcdcdcdct43

rfFNdcdcdcdcdc=:rfFNdcdcdcdcdct0+rfFNdcdcdcdcdct1+rfFNdcdcdcdcdct2+rfFNdcdcdcdcdct3+rfFNdcdcdcdcdct4


rfFN0=:rfFN;     _;       _;         _;           _;             _"_
rfFN1=:rfFN;rfFNdc;       _;         _;           _;             _"_
rfFN2=:rfFN;rfFNdc;rfFNdcdc;         _;           _;             _"_
rfFN3=:rfFN;rfFNdc;rfFNdcdc;rfFNdcdcdc;           _;             _"_
rfFN4=:rfFN;rfFNdc;rfFNdcdc;rfFNdcdcdc;rfFNdcdcdcdc;             _"_
rfFN5=:rfFN;rfFNdc;rfFNdcdc;rfFNdcdcdc;rfFNdcdcdcdc;rfFNdcdcdcdcdc



Download: File:LTER0100E.txt