Full logarithm algorithm code

diff --git a/dc/.dc b/dc/.dc
index 10611173040fb528c39ca1fad535748cc3d202de..d4893b3421e4ae1a7de853566120b669f813bfcc 100644 (file)
--- 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