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

Added <frange>

cvs
Doug Coleman 2005-11-08 01:26:32 +00:00
parent 5dddb20f78
commit f574eb714b
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
contrib/math/utils.factor
View File

@ -1,5 +1,5 @@
IN: math-contrib
USING: errors kernel sequences math ;
USING: errors kernel sequences math sequences-internals ;
: deg>rad pi * 180 / ; inline
: rad>deg 180 * pi / ; inline
@ -31,3 +31,26 @@ USING: errors kernel sequences math ;
: c. ( v v -- x )
#! Complex inner product.
0 [ ** + ] 2reduce ;
TUPLE: frange from step length ;
C: frange ( from step to -- seq )
#! example: 0 .01 10 <frange> >array
>r pick - swap [ / ] keep -rot swapd >fixnum 1+ r>
[ set-frange-length ] keep
[ set-frange-step ] keep
[ set-frange-from ] keep ;
M: frange length ( frange -- n )
frange-length ;
: decrement-length ( frange -- )
[ frange-length 1- ] keep set-frange-length ;
: increment-start ( frange -- )
[ [ frange-from ] keep frange-step + ] keep set-frange-from ;
M: frange nth ( n frange -- obj ) [ frange-step * ] keep frange-from + ;
M: frange nth-unsafe ( n frange -- obj ) nth ;