User:Tom Allen/ta/AddendumU03P00

From J Wiki
Jump to navigation Jump to search




... see TensorExperiments/TensorExperiments24 (GTE2415D.jpg) ...




GU03P0000C.jpg


NB. ... script experimentalU03.ijs ...

S00yL       =:00 00;00 01;00 02;00 03"_
S01dyL      =:01 00;01 01;01 02;01 03"_
S02d1L      =:02 00;02 01;02 02;02 03"_
S03yH       =:03 00;03 01;03 02;03 03"_
S04dyH      =:04 00;04 01;04 02;04 03"_
S05d1H      =:05 00;05 01;05 02;05 03"_
S06ds       =:(<06 00)"_
S07count    =:07 00;07 01"_
   S0700nmbr=:(<07 00)"_
   S0701max =:(<07 01)"_

vS00=:''vS00yL   `S00yL   `]}]
vS01=:''vS01dyL  `S01dyL  `]}]
vS02=:''vS02d1L  `S02d1L  `]}]
vS06=:''vS06ds   `S06ds   `]}]
vS07=:''vS07count`S07count`]}]
vS  =:vS07@vS06@vS02@vS01@vS00@(8 4$_"_)

vSgDyH    =:''((S00yL{])+(S02d1L{])*S06ds{])`S03yH`]}]
vSgDdyH   =:''((S02d1L{])*S06ds{])`S04dyH`]}]
vSgDd1H   =:''((S02d1L{])+vSgDd2*S06ds{])`S05d1H`]}]
vSgDyHtoL =:''(S03yH{]) `S00yL `]}]
vSgDdyHtoL=:''(S04dyH{])`S01dyL`]}]
vSgDd1HtoL=:''(S05d1H{])`S02d1L`]}]
vSgDnmbr  =:''(1+S0700nmbr{])`S0700nmbr`]}]
vSgD      =:(vSgDnmbr@vSgDd1HtoL@vSgDdyHtoL@vSgDyHtoL@vSgDd1H@vSgDdyH@vSgDyH)`]@.((S0700nmbr{])=S0701max{])^:a:



Download: File:LU03P0000C.txt