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

math.extras: adding logspace.

db4
John Benediktsson 2013-03-20 13:49:55 -07:00
parent a21fddc4dc
commit da0a123df3
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/math/extras/extras-docs.factor
View File

@ -61,3 +61,7 @@ HELP: sinc
HELP: linspace HELP: linspace
{ $values { "from" number } { "to" number } { "points" number } { "seq" sequence } } { $values { "from" number } { "to" number } { "points" number } { "seq" sequence } }
{ $description "Return evenly spaced numbers over a specified interval " { $snippet "[from,to]" } "." } ; { $description "Return evenly spaced numbers over a specified interval " { $snippet "[from,to]" } "." } ;
HELP: logspace
{ $values { "from" number } { "to" number } { "points" number } { "base" number } { "seq" sequence } }
{ $description "Return evenly spaced numbers on a log scaled interval " { $snippet "[base^from,base^to]" } "." } ;

3
extra/math/extras/extras.factor
View File

@ -201,3 +201,6 @@ PRIVATE>
: linspace ( from to points -- seq ) : linspace ( from to points -- seq )
1 - [ 2dup swap - ] dip / <range> ; 1 - [ 2dup swap - ] dip / <range> ;
: logspace ( from to points base -- seq )
[ linspace ] dip swap n^v ;