User:Tom Allen/ta/AddendumT00E01
< User:Tom Allen | ta
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){])
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