User:Tom Allen/TensorExperimentsR10

From J Wiki
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){])


GTER1000E.jpg


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