*** empty log message ***

1984-11-29 14:22:02 +00:00
parent 0c0c3b7892
commit ae1e81adb1
36 changed files with 1740 additions and 0 deletions
--- a/lang/basic/lib/power.c
+++ b/lang/basic/lib/power.c
@@ -0,0 +1,32 @@
+/* $Header $ */
+
+/*
+	computes a^b.
+	uses log and exp
+*/
+
+double _log(), _exp();
+
+double
+_power(base,pownr)
+double pownr, base;
+{
+	double temp;
+	long l;
+
+	if(pownr <= 0.0) {
+		if(pownr == 0.0) {
+			if(base <= 0.0)
+				error(3);
+			return(0.0);
+		}
+		l = base;
+		if(l != base)
+			error(3);
+		temp = _exp(base * _log(-pownr));
+		if(l & 1)
+			temp = -temp;
+		return(temp);
+	}
+	return(_exp(base * _log(pownr)));
+}