User:Tom Allen/ta/AddendumT00E01

From J Wiki
Jump to navigation Jump to search


NB. ... script experimental.ijs ...

sin=:1&o.
cos=:2&o.

arctant1=:(1p1+_3&o.@({:%{.))`((2p1+_3&o.@({:%{.))`(_3&o.@({:%{.))@.(>:&0@{:))@.(>&0@{.)
arctant0=:3r2p1"_`(1r2p1"_)@.(>&0@{:)`0:@.(=&0@{:)
arctan  =:arctant1`arctant0@.(=&0@{.)"1


qtsz=:$@]$[0:`(I.@([>!.0|@]))`]},@]
qteq=:*./@,@([((>@(0{])|@:->@(1{]))<:!.0>@(1{[)*>@(0{])>.&:|>@(1{]))(>@(0{[)qtsz>@(0{]));>@(0{[)qtsz>@(1{]))


pTsteps =:(1{])+((2{])-1{])*(i.@>:%])@(3{])
pTgen   =:(|.@:-,])@pTsteps`pTsteps@.((0{])=_"_)
pTtotal =:,/^:3@>@(,"1"1 _&.>/)@(<@:(,"0)@pTgen"1@])


pTradian=:(sin@[<:|@sin@])*.cos@(0.5p1-[)<:|@cos@]
pTselect=:(>@(0{[)((([<:|@(0{]))*.([pTradian(1{]))*.([pTradian(2{]))*.[<:|@(3{]))"_ 1#])])`]@.(>@(0{[)=0:)
pTRandom=:[(?.@(>@(1{[)$0{$@]){])[pTselect pTtotal


smx=:+/@(*"1)"1 _"_


NB. ... script experimental.ijs ...

cfAL          =:>@((<0 0){])
cfALdc        =:>@((<0 1){])
cfALdcdc      =:>@((<0 2){])
cfALdcdcdc    =:>@((<0 3){])
cfALdcdcdcdc  =:>@((<0 4){])

cfAF          =:>@((<0 0){])
cfAFdR        =:>@((<0 1){])
cfAFdRdR      =:>@((<0 2){])
cfAFdRdRdR    =:>@((<0 3){])
cfAFdRdRdRdR  =:>@((<0 4){])

cfAR          =:>@((<1 0){])
cfARdc        =:>@((<1 1){])
cfARdcdc      =:>@((<1 2){])
cfARdcdcdc    =:>@((<1 3){])
cfARdcdcdcdc  =:>@((<1 4){])


GTE0100D.jpg


NB. ... script experimental.ijs ...

cfFN=:cfAF


cfFNdc=:cfAFdR*cfARdc


cfFNdcdct0=:(   ])@(cfAFdR  *cfARdcdc        )
cfFNdcdct1=:(0|:])@(cfAFdRdR*cfARdc  */cfARdc)

cfFNdcdc=:cfFNdcdct0+cfFNdcdct1


cfFNdcdcdct0=:(     ])@(cfAFdR    *cfARdcdcdc                  )
cfFNdcdcdct1=:(  0|:])@(cfAFdRdR  *cfARdc    */cfARdcdc        )
cfFNdcdcdct2=:(0 2|:])@(cfAFdRdR  *cfARdc    */cfARdcdc        )
cfFNdcdcdct3=:(0 1|:])@(cfAFdRdR  *cfARdcdc  */cfARdc          )
cfFNdcdcdct4=:(1 0|:])@(cfAFdRdRdR*cfARdc    */cfARdc  */cfARdc)

cfFNdcdcdc=:cfFNdcdcdct0+cfFNdcdcdct1+cfFNdcdcdct2+cfFNdcdcdct3+cfFNdcdcdct4


cfFNdcdcdcdct00=:(       ])@(cfAFdR      *cfARdcdcdcdc                              )
cfFNdcdcdcdct01=:(    0|:])@(cfAFdRdR    *cfARdc      */cfARdcdcdc                  )
cfFNdcdcdcdct10=:(  0 3|:])@(cfAFdRdR    *cfARdc      */cfARdcdcdc                  )
cfFNdcdcdcdct11=:(  0 1|:])@(cfAFdRdR    *cfARdcdc    */cfARdcdc                    )
cfFNdcdcdcdct12=:(  1 0|:])@(cfAFdRdRdR  *cfARdc      */cfARdc    */cfARdcdc        )
cfFNdcdcdcdct20=:(0 2 3|:])@(cfAFdRdR    *cfARdc      */cfARdcdcdc                  )
cfFNdcdcdcdct21=:(0 3 1|:])@(cfAFdRdR    *cfARdcdc    */cfARdcdc                    )
cfFNdcdcdcdct22=:(1 3 0|:])@(cfAFdRdRdR  *cfARdc      */cfARdc    */cfARdcdc        )
cfFNdcdcdcdct30=:(0 1 3|:])@(cfAFdRdR    *cfARdcdc    */cfARdcdc                    )
cfFNdcdcdcdct31=:(0 1 2|:])@(cfAFdRdR    *cfARdcdcdc  */cfARdc                      )
cfFNdcdcdcdct32=:(1 2 0|:])@(cfAFdRdRdR  *cfARdc      */cfARdcdc  */cfARdc          )
cfFNdcdcdcdct40=:(1 0 3|:])@(cfAFdRdRdR  *cfARdc      */cfARdc    */cfARdcdc        )
cfFNdcdcdcdct41=:(1 0 2|:])@(cfAFdRdRdR  *cfARdc      */cfARdcdc  */cfARdc          )
cfFNdcdcdcdct42=:(2 0 1|:])@(cfAFdRdRdR  *cfARdcdc    */cfARdc    */cfARdc          )
cfFNdcdcdcdct43=:(2 1 0|:])@(cfAFdRdRdRdR*cfARdc      */cfARdc    */cfARdc  */cfARdc)

cfFNdcdcdcdct0=:cfFNdcdcdcdct00+cfFNdcdcdcdct01
cfFNdcdcdcdct1=:cfFNdcdcdcdct10+cfFNdcdcdcdct11+cfFNdcdcdcdct12
cfFNdcdcdcdct2=:cfFNdcdcdcdct20+cfFNdcdcdcdct21+cfFNdcdcdcdct22
cfFNdcdcdcdct3=:cfFNdcdcdcdct30+cfFNdcdcdcdct31+cfFNdcdcdcdct32
cfFNdcdcdcdct4=:cfFNdcdcdcdct40+cfFNdcdcdcdct41+cfFNdcdcdcdct42+cfFNdcdcdcdct43

cfFNdcdcdcdc=:cfFNdcdcdcdct0+cfFNdcdcdcdct1+cfFNdcdcdcdct2+cfFNdcdcdcdct3+cfFNdcdcdcdct4


cfFN0=:cfFN;     _;       _;         _;           _;_"_
cfFN1=:cfFN;cfFNdc;       _;         _;           _;_"_
cfFN2=:cfFN;cfFNdc;cfFNdcdc;         _;           _;_"_
cfFN3=:cfFN;cfFNdc;cfFNdcdc;cfFNdcdcdc;           _;_"_
cfFN4=:cfFN;cfFNdc;cfFNdcdc;cfFNdcdcdc;cfFNdcdcdcdc;_"_



Download: File:LTE0100D.txt