From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 28 Mar 2022 16:56:49 +0000 (+0300)
Subject: Full logarithm algorithm code
X-Git-Url: http://www.git.stargrave.org/?p=dotfiles.git;a=commitdiff_plain;h=98b810d9eeffdc705fb63a0427c6f47e1a4e1d43

Full logarithm algorithm code
---

diff --git a/dc/.dc b/dc/.dc
index 1061117..d4893b3 100644
--- a/dc/.dc
+++ b/dc/.dc
@@ -1,6 +1,18 @@
 5k
 10o
 
+# [ 1-d2+/
+#   d2*Sk              # Initialize multiplier
+#   d*Sy               # Initialize multiplier factor
+#   0Ss                # Initialize accumulator
+#   10K^Sp             # Initialize 10^k power
+#   [ d1r/lk*ls+lsrdss   # Update accumulator
+#     -lp*d*1 [s_q]s_>_  # Check precision
+#     lkly*sk 2+         # Update multiplier and counter
+#     lfx
+#   ]Sf
+#   1lfxLs
+# LkLyLpLfs_s_s_s_] sL
 # natural logarithm: 1000lLx 10lLx /p
 [1-d2+/d2*Skd*Sy0Ss10K^Sp[d1r/lk*ls+lsrdss-lp*d*1[s_q]s_>_lkly*sk2+lfx]Sf1lfxLsLkLyLpLfs_s_s_s_]sL