From 15d472dd536c93891668070b75290e2e19e4c649 Mon Sep 17 00:00:00 2001
From: Rob Pike <r@golang.org>
Date: Sat, 19 Jul 2008 15:11:25 -0700
Subject: [PATCH] add an eval function (written by ken)

SVN=128122
---
 test/chan/powser1.go | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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()
 }
-- 
2.48.1