From: Rob Pike <r@golang.org>
Date: Sat, 19 Jul 2008 22:11:25 +0000 (-0700)
Subject: add an eval function (written by ken)
X-Git-Tag: weekly.2009-11-06~3454
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=15d472dd536c93891668070b75290e2e19e4c649;p=gostls13.git

add an eval function (written by ken)

SVN=128122
---

diff --git a/test/chan/powser1.go b/test/chan/powser1.go
index 1b25d7eefb..abafc469ba 100644
--- a/test/chan/powser1.go
+++ b/test/chan/powser1.go
@@ -233,6 +233,24 @@ type PS2 *[2] PS; // pair of power series
 var Ones PS
 var Twos PS
 
+// print eval in floating point of PS at x=c to n terms
+func
+Evaln(c *rat, U PS, n int)
+{
+	xn := float64(1);
+	x := float64(c.num)/float64(c.den);
+	val := float64(0);
+	for i:=0; i<n; i++ {
+		u := get(U);
+		if end(u) != 0 {
+			break;
+		}
+		val = val + x * float64(u.num)/float64(u.den);
+		xn = xn*x;
+	}
+	print val, "\n";
+}
+
 func mkPS() *dch {
 	return mkdch()
 }