steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor stack shuffling changes

db4
Aaron Schaefer 2008-11-08 15:30:28 -05:00
parent 380cd2d3b0
commit 23ec6ef122
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/erato/erato.factor
View File

@ -15,7 +15,7 @@ TUPLE: erato limit bits latest ;
[ ind ] [ bits>> ] bi* nth ; inline [ ind ] [ bits>> ] bi* nth ; inline
: indices ( n erato -- range ) : indices ( n erato -- range )
limit>> ind over 3 * ind swap rot <range> ; limit>> ind over 3 * ind spin <range> ;
: mark-multiples ( n erato -- ) : mark-multiples ( n erato -- )
2dup [ sq ] [ limit>> ] bi* <= [ 2dup [ sq ] [ limit>> ] bi* <= [

4
extra/math/finance/finance.factor
View File

@ -7,7 +7,7 @@ IN: math.finance
<PRIVATE <PRIVATE
: weighted ( x y a -- z ) : weighted ( x y a -- z )
tuck [ * ] [ 1 swap - * ] 2bi* + ; tuck [ * ] [ 1- neg * ] 2bi* + ;
: a ( n -- a ) : a ( n -- a )
1+ 2 swap / ; 1+ 2 swap / ;
@ -15,7 +15,7 @@ IN: math.finance
PRIVATE> PRIVATE>
: ema ( seq n -- newseq ) : ema ( seq n -- newseq )
a swap unclip [ [ dup ] 2dip swap rot weighted ] accumulate 2nip ; a swap unclip [ [ dup ] 2dip spin weighted ] accumulate 2nip ;
: sma ( seq n -- newseq ) : sma ( seq n -- newseq )
clump [ mean ] map ; clump [ mean ] map ;