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