User:Tom Allen/ta/AddendumV03P00

NB. ... script experimentalV03.ijs ...

jNAy          =:>@((<0 0){])
jNAydz        =:>@((<0 1){])
jNAydzdz      =:>@((<0 2){])
jNAydzdzdz    =:>@((<0 3){])
jNAydzdzdzdz  =:>@((<0 4){])
jNAydzdzdzdzdz=:>@((<0 5){])

jNAz          =:>@((<1 0){])
jNAzdw        =:>@((<1 1){])
jNAzdwdw      =:>@((<1 2){])
jNAzdwdwdw    =:>@((<1 3){])
jNAzdwdwdwdw  =:>@((<1 4){])
jNAzdwdwdwdwdw=:>@((<1 5){])

jNBy          =:jNAy
jNBydw        =:jNAydz([smx"2 2(0|:]))jNAzdw
jNBydwdw      =:jNAydz([smx"2 3(0|:]))jNAzdwdw
jNBydwdwdw    =:jNAydz([smx"2 4(0|:]))jNAzdwdwdw
jNBydwdwdwdw  =:jNAydz([smx"2 5(0|:]))jNAzdwdwdwdw
jNBydwdwdwdwdw=:jNAydz([smx"2 6(0|:]))jNAzdwdwdwdwdw

jNyXXS=:[(jNBy;jNBydw;jNBydwdw;jNBydwdwdw;jNBydwdwdwdw;jNBydwdwdwdwdw)([vZyXXS wXzc),:wXzXXS

jNyXX=:<@:>"1@(0|:])@:(jNyXXS"_ 1)

NB. ... script experimentalV03.ijs ...

jNCz          =:>@((<0 0){])
jNCzdy        =:>@((<0 1){])
jNCzdydy      =:>@((<0 2){])
jNCzdydydy    =:>@((<0 3){])
jNCzdydydydy  =:>@((<0 4){])
jNCzdydydydydy=:>@((<0 5){])

jNCw          =:>@((<1 0){])
jNCwdz        =:>@((<1 1){])
jNCwdzdz      =:>@((<1 2){])
jNCwdzdzdz    =:>@((<1 3){])
jNCwdzdzdzdz  =:>@((<1 4){])
jNCwdzdzdzdzdz=:>@((<1 5){])

jNDw          =:jNCw
jNDwdy        =:(        0|:])@((0|:])@jNCzdy(                                 smx"2 2)jNCwdz        )
jNDwdydy      =:(      0 1|:])@((0|:])@jNCzdy(                        [smx"2 3 smx"2 3)jNCwdzdz      )
jNDwdydydy    =:(    0 1 2|:])@((0|:])@jNCzdy(                [smx"2 4[smx"2 4 smx"2 4)jNCwdzdzdz    )
jNDwdydydydy  =:(  0 1 2 3|:])@((0|:])@jNCzdy(        [smx"2 5[smx"2 5[smx"2 5 smx"2 5)jNCwdzdzdzdz  )
jNDwdydydydydy=:(0 1 2 3 4|:])@((0|:])@jNCzdy([smx"2 6[smx"2 6[smx"2 6[smx"2 6 smx"2 6)jNCwdzdzdzdzdz)

jNwXXS=:[(jNDw;jNDwdy;jNDwdydy;jNDwdydydy;jNDwdydydydy;jNDwdydydydydy)vZzXXS,:[wXwXXS vZzc

jNwXX=:<@:>"1@(0|:])@:(jNwXXS"_ 1)

---

Download: File:LV03P0000E.txt
Download: File:LV03P0001E.txt

---