From 43b2c43c53673bbaebc0cec57d32c4609c026cd9 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Thu, 13 Feb 2014 13:00:35 +0200
Subject: beta 2014.02.13 11:27

---
 metapost/context/base/mp-base.mpiv | 39 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

(limited to 'metapost')

diff --git a/metapost/context/base/mp-base.mpiv b/metapost/context/base/mp-base.mpiv
index 638be4628..0b655ef47 100644
--- a/metapost/context/base/mp-base.mpiv
+++ b/metapost/context/base/mp-base.mpiv
@@ -323,7 +323,7 @@ primarydef w dotprod z =
 enddef ;
 
 primarydef x**y =
-    if y=2 :
+    if y = 2 :
         x*x
     else :
         takepower y of x
@@ -348,11 +348,46 @@ def takepower expr y of x =
                 endfor
             fi
         else :
-            hide(errmessage "Undefined power: " & decimal x&"**"&decimal y)
+            hide(errmessage "Undefined power: " & decimal x & "**" & decimal y)
         fi
     fi
 enddef ;
 
+% for big number systems:
+%
+% primarydef x**y =
+%     if y = 1 :
+%         x
+%     elseif y = 2 :
+%         x*x
+%     elseif y = 3 :
+%         x*x*x
+%     else :
+%         takepower y of x
+%     fi
+% enddef ;
+%
+% vardef takepower expr y of x =
+%     if (x=0) and (y>0) :
+%         0
+%     else :
+%         1
+%         if y = floor y :
+%             if y >= 0 :
+%                 for n=1 upto y :
+%                     *x
+%                 endfor
+%             else :
+%                 for n=-1 downto y :
+%                     /x
+%                 endfor
+%             fi
+%         else :
+%             hide(errmessage "Undefined power: " & decimal x & "**" & decimal y)
+%         fi
+%     fi
+% enddef ;
+
 vardef direction expr t of p =
     postcontrol t of p - precontrol t of p
 enddef ;
-- 
cgit v1.2.3