math.extras: adding logspace.

diff --git a/extra/math/extras/extras-docs.factor b/extra/math/extras/extras-docs.factor
index f9cd705bcbd5909136168c7715cfa3a1bbb906a1..605cb76596e280144957712e430f77c1b5bc6336 100644 (file)
--- a/extra/math/extras/extras-docs.factor
+++ b/extra/math/extras/extras-docs.factor
@@ -61,3 +61,7 @@ HELP: sinc
 HELP: linspace
 { $values { "from" number } { "to" number } { "points" number } { "seq" sequence } }
 { $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]" } "." } ;

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index d65cd5ea1872fa33858ab43509b952f9f323349f..96312b3329c7942731ae3b98a687643e1eb4bb8e 100644 (file)
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -201,3 +201,6 @@ PRIVATE>
 
 : linspace ( from to points -- seq )
     1 - [ 2dup swap - ] dip / <range> ;
+
+: logspace ( from to points base -- seq )
+    [ linspace ] dip swap n^v ;