Mercurial > hg > may

changeset 90:cf88733911fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add fromFloats
author Chris Cannam
date Tue, 19 Mar 2013 13:23:43 +0000
parents ef650ce77237
children 6d6627fbbb78
files block.yeti fvector.yeti
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/block.yeti	Mon Mar 18 21:24:04 2013 +0000
+++ b/block.yeti	Tue Mar 19 13:23:43 2013 +0000
@@ -13,6 +13,7 @@
 data b = b,
 vector b = vec.copyOf b,
 floats = vec.floats,
+fromFloats ff = vec.fromFloats ff,
 fromList l = vec.vector l,
 list = vec.list,
 length = vec.length,
@@ -29,6 +30,7 @@
 data is block -> ~double[],
 vector is block -> ~double[],
 floats is block -> ~float[],
+fromFloats is ~float[] -> block,
 fromList is list?<number> -> block,
 list is block -> list<number>,
 length is block -> number,
--- a/fvector.yeti	Mon Mar 18 21:24:04 2013 +0000
+++ b/fvector.yeti	Tue Mar 19 13:23:43 2013 +0000
@@ -37,6 +37,14 @@
     done;
     f);
 
+fromFloats ff is ~float[] -> ~double[] =
+   (len = length (list ff);
+    a = new double[len];
+    for [0..len-1] do i:
+        a[i] := ff[i];
+    done;
+    a);
+
 equal v1 v2 =
     list' v1 == list' v2;
 
@@ -65,7 +73,7 @@
 vector,
 length = length',
 list = list',
-floats,
+floats, fromFloats,
 equal,
 copyOf, rangeOf, resizedTo,
 concat,