User:Tom Allen/ta/AddendumT00R10

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

rfTC        =:>@((<0 0){])
rfTCdc      =:>@((<0 1){])
rfTCdcdc    =:>@((<0 2){])
rfTCdcdcdc  =:>@((<0 3){])
rfTCdcdcdcdc=:>@((<0 4){])

rfTR        =:>@((<1 0){])
rfTRdc      =:>@((<1 1){])
rfTRdcdc    =:>@((<1 2){])
rfTRdcdcdc  =:>@((<1 3){])
rfTRdcdcdcdc=:>@((<1 4){])

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;_"_

---

Download: File:LTER1000E.txt

---