User:Tom Allen/TensorExperimentsR10
Jump to navigation
Jump to search
NB. ... script experimentalR.ijs ...
rfTC =:>@((<0 0){])
rfTCdc =:>@((<0 1){])
rfTCdcdc =:>@((<0 2){])
rfTCdcdcdc =:>@((<0 3){])
rfTCdcdcdcdc =:>@((<0 4){])
rfTCdcdcdcdcdc=:>@((<0 5){])
rfTR =:>@((<1 0){])
rfTRdc =:>@((<1 1){])
rfTRdcdc =:>@((<1 2){])
rfTRdcdcdc =:>@((<1 3){])
rfTRdcdcdcdc =:>@((<1 4){])
rfTRdcdcdcdcdc=:>@((<1 5){])
NB. ... script experimentalR.ijs ... rfTL=:rfTR rfTLdc=:rfTCdc((0|:[)smx])"2 1 rfTRdc rfTLdcdct00=:rfTCdc ((0|:[)smx])"2 2 rfTCdc((0|:[)smx])"2 2 rfTRdcdc rfTLdcdct01=:rfTCdcdc((0|:[)smx])"3 1 rfTRdc rfTLdcdc=:rfTLdcdct00+rfTLdcdct01 rfTLdcdcdct00=:( ])@(rfTCdc ((0|:[)smx])"2 3 rfTCdc ((0|:[)smx])"2 3 rfTCdc((0|:[)smx])"2 3 rfTRdcdcdc) rfTLdcdcdct01=:( ])@(rfTCdc ((0|:[)smx])"2 3 rfTCdcdc((0|:[)smx])"3 2 rfTRdcdc ) rfTLdcdcdct02=:(1|:])@(rfTCdcdc ((0|:[)smx])"3 2 rfTCdc ((0|:[)smx])"2 2 rfTRdcdc ) rfTLdcdcdct10=:( ])@(rfTCdcdc ((0|:[)smx])"3 2 rfTCdc ((0|:[)smx])"2 2 rfTRdcdc ) rfTLdcdcdct11=:( ])@(rfTCdcdcdc((0|:[)smx])"4 1 rfTRdc ) rfTLdcdcdc=:rfTLdcdcdct00+rfTLdcdcdct01+rfTLdcdcdct02+rfTLdcdcdct10+rfTLdcdcdct11 rfTLdcdcdcdct00=:( ])@(rfTCdc ((0|:[)smx])"2 4 rfTCdc ((0|:[)smx])"2 4 rfTCdc ((0|:[)smx])"2 4 rfTCdc((0|:[)smx])"2 4 rfTRdcdcdcdc) rfTLdcdcdcdct01=:( ])@(rfTCdc ((0|:[)smx])"2 4 rfTCdc ((0|:[)smx])"2 4 rfTCdcdc((0|:[)smx])"3 3 rfTRdcdcdc ) rfTLdcdcdcdct02=:(2|:])@(rfTCdc ((0|:[)smx])"2 4 rfTCdcdc((0|:[)smx])"3 3 rfTCdc ((0|:[)smx])"2 3 rfTRdcdcdc ) rfTLdcdcdcdct03=:(1|:])@(rfTCdcdc((0|:[)smx])"3 3 rfTCdc ((0|:[)smx])"2 3 rfTCdc ((0|:[)smx])"2 3 rfTRdcdcdc ) rfTLdcdcdcdc0=:rfTLdcdcdcdct00+rfTLdcdcdcdct01+rfTLdcdcdcdct02+rfTLdcdcdcdct03 rfTLdcdcdcdct10=:( ])@(rfTCdc ((0|:[)smx])"2 4 rfTCdcdc ((0|:[)smx])"3 3 rfTCdc((0|:[)smx])"2 3 rfTRdcdcdc) rfTLdcdcdcdct11=:( ])@(rfTCdc ((0|:[)smx])"2 4 rfTCdcdcdc((0|:[)smx])"4 2 rfTRdcdc ) rfTLdcdcdcdct12=:(1|:])@(rfTCdcdc((0|:[)smx])"3 3 rfTCdcdc ((0|:[)smx])"3 2 rfTRdcdc ) rfTLdcdcdcdc1=:rfTLdcdcdcdct10+rfTLdcdcdcdct11+rfTLdcdcdcdct12 rfTLdcdcdcdct20=:(1 3|:])@(rfTCdcdc ((0|:[)smx])"3 3 rfTCdc ((0|:[)smx])"2 3 rfTCdc((0|:[)smx])"2 3 rfTRdcdcdc) rfTLdcdcdcdct21=:(1 3|:])@(rfTCdcdc ((0|:[)smx])"3 3 rfTCdcdc((0|:[)smx])"3 2 rfTRdcdc ) rfTLdcdcdcdct22=:(1 2|:])@(rfTCdcdcdc((0|:[)smx])"4 2 rfTCdc ((0|:[)smx])"2 2 rfTRdcdc ) rfTLdcdcdcdc2=:rfTLdcdcdcdct20+rfTLdcdcdcdct21+rfTLdcdcdcdct22 rfTLdcdcdcdct30=:( ])@(rfTCdcdc ((0|:[)smx])"3 3 rfTCdc ((0|:[)smx])"2 3 rfTCdc((0|:[)smx])"2 3 rfTRdcdcdc) rfTLdcdcdcdct31=:( ])@(rfTCdcdc ((0|:[)smx])"3 3 rfTCdcdc((0|:[)smx])"3 2 rfTRdcdc ) rfTLdcdcdcdct32=:(2|:])@(rfTCdcdcdc((0|:[)smx])"4 2 rfTCdc ((0|:[)smx])"2 2 rfTRdcdc ) rfTLdcdcdcdc3=:rfTLdcdcdcdct30+rfTLdcdcdcdct31+rfTLdcdcdcdct32 rfTLdcdcdcdct40=:rfTCdcdcdc ((0|:[)smx])"4 2 rfTCdc((0|:[)smx])"2 2 rfTRdcdc rfTLdcdcdcdct41=:rfTCdcdcdcdc((0|:[)smx])"5 1 rfTRdc rfTLdcdcdcdc4=:rfTLdcdcdcdct40+rfTLdcdcdcdct41 rfTLdcdcdcdc=:rfTLdcdcdcdc0+rfTLdcdcdcdc1+rfTLdcdcdcdc2+rfTLdcdcdcdc3+rfTLdcdcdcdc4 rfTT4=:rfTL;rfTLdc;rfTLdcdc;rfTLdcdcdc;rfTLdcdcdcdc;_"_
NB. ... execute (ijx) ... gXRAll=:,:@(0 1 2 9 0 0 0 0 0 0"_) xCpts=:_ 0.7 1.3 26,_ 0.4p1 0.6p1 26,_ 0 2p1 26,:_ 0 20 26"_ A=:(gXR(cfXX1@([rfTT4 rfxXXS,:[rfaV05XX rfxc)"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' B=:(gXR((0|:[:(gXR cfXX0@([rfTT4 rfxXXS,:[rfaV05XX rfxc)])D.1])"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' A (((2^_22);2^_17)qteq[;])"1 B 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 A=:(gXR(cfXX2@([rfTT4 rfxXXS,:[rfaV05XX rfxc)"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' B=:(gXR((0|:[:(gXR cfXX1@([rfTT4 rfxXXS,:[rfaV05XX rfxc)])D.1])"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' A (((2^_19);2^_13)qteq[;])"2 B 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 A=:(gXR(cfXX3@([rfTT4 rfxXXS,:[rfaV05XX rfxc)"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' B=:(gXR((0|:[:(gXR cfXX2@([rfTT4 rfxXXS,:[rfaV05XX rfxc)])D.1])"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' A (((2^_16);2^_12)qteq[;])"3 B 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 A=:(gXR(cfXX4@([rfTT4 rfxXXS,:[rfaV05XX rfxc)"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' B=:(gXR((0|:[:(gXR cfXX3@([rfTT4 rfxXXS,:[rfaV05XX rfxc)])D.1])"_ 1)]) ((0;50"_)rfyc"1@pTRandom xCpts)'' A (((2^_13);2^_12)qteq[;])"4 B 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:LTER1000E.txt