New Sum of Powers Log Function
|
03-29-2021, 04:53 PM
Post: #1
|
|||
|
|||
New Sum of Powers Log Function
Hi All,
I just published a new function on my web site. The function is SopLog which is short for “Sum of Powers Logarithm”. The function is defined as SolLogN(S) = x where N is an integer base (number of integers to add), S is the sum of terms, and x is the power to which is integer is raised. This means that: S = sum i^x for i=1 to N The power x is calculated as the root of the following function: S – sum i^x for i=1 to N You can download the article here. The article contains listings for SopLog in Excel VBA, Matlab, Python, C++, HP-71B BASIC, Generic legacy Pocket Computer BASIC, HP-41C, HP-41CX (with and without the Advantage module), HP-67/97, and HP-15C. The article also shows an empirical relationship between x, S, and N. The SopLog function is good for bench-marking. I leave it to other math-oriented folks to find other uses for SopLog. Enjoy! Namir |
|||
03-29-2021, 08:39 PM
(This post was last modified: 03-29-2021 08:46 PM by C.Ret.)
Post: #2
|
|||
|
|||
RE: New Sum of Powers Log Function
Nice article Namir ! Thanks for sharing.
I don't know what will be a practical application of this new function, but meanwhile, here is my contribution for the SHARP PC-1211 inspired from the generic program you give for BASIC pocket machines. Since, it is a venerable and aged pocket, I add a way to get an estimation, for any user in a hurry, who may not have time or patience to wait for the several minutes needed to compute the exact x value by (numerus) iterations. Code: 1:Y=1:FOR I=2 TO N:Y=Y+I^Z:NEXT I:Y=S-Y:RETURN In DEF-mode, press shift+Z for the exact value obtained by the iterative process or press shift-A for an immediate estimation. Code:
Code: [shift][ A ] P.S.: ¥ is shift-Y (Yen) character that I use to indicate approximative egality. € is the standard bold |Exp key that indicates ten's exponentiation on this pocket. |
|||
03-29-2021, 10:47 PM
Post: #3
|
|||
|
|||
RE: New Sum of Powers Log Function
(03-29-2021 04:53 PM)Namir Wrote: S = sum i^x for i=1 to N We can solve for x, without actually summing N terms. As a rough approximation, s ≈ ∫(t^x, t=1/2 .. n+1/2) Since sum(k, k=1..n) = (n²+n)/2, a guess for x is log(s)/log(n) - 1 To get more accurate x, we can use Euler–Maclaurin formula, for f(t) = t^x: Operator shorthand, we have s = Σf = (D^-1 - 1/2 + D/12 - D^3/720 + D^5/30240 - ...) f Drop higher-order derivatives, we have: Code: RHS = lambda p,n: ((n+1)**(p+1)-1)/(p+1) - ((n+1)**p-1)/2 + p*((n+1)**(p-1)-1)/12 For comparision, I copied SopLog.pdf Table 1, for solved (s,x) >>> from mpmath import * >>> n=100 >>> SX = (100,0),(150,0.110121),(250,0.245589),(500,0.424944),(750,0.527995) >>> SX += (1000,0.600423),(1100,0.624305),(1200,0.646061),(1300,0.666037) >>> >>> for s,x in SX: print '%g\t%f\t%f\t%f' % (s,x, solvex(n,s), roughx(n,s)) ... 100 0.000000 0.000000 0.000000 150 0.110121 0.110121 0.110134 250 0.245589 0.245589 0.245605 500 0.424944 0.424944 0.424956 750 0.527995 0.527995 0.528004 1000 0.600423 0.600423 0.600430 1100 0.624305 0.624305 0.624311 1200 0.646061 0.646061 0.646067 1300 0.666037 0.666037 0.666042 |
|||
03-30-2021, 01:44 AM
Post: #4
|
|||
|
|||
RE: New Sum of Powers Log Function
(03-29-2021 10:47 PM)Albert Chan Wrote: Since sum(k, k=1..n) = (n²+n)/2, a guess for x is log(s)/log(n) - 1 If we have LambertW, we can get a much better guess, without solver. s ≈ ∫(t^x, t=1/2 .. n+1/2) = (n+1/2)^(x+1)/(x+1) - (1/2)^(x+1)/(x+1) If we drop the last term, and let N=n+1/2, X=x+1, we have s = N^X / X ln(s) = X*ln(N) - ln(X) We wanted to match W(a) = z → a = z * e^z → ln(a) = z + ln(z) ln(1/s) = X*ln(1/N) + ln(X) ln(1/s*ln(1/N)) = X*ln(1/N) + ln(X*ln(1/N)) → X = W(ln(1/N)/s) / ln(1/N) = -W(-ln(N)/s) / ln(N) Turns out, LambertW -1 branch is the one we need. Lets' try this out, for s = Σ(k, k=1 .. n) >>> guessx = lambda n,s: -lambertw(-ln(n+.5)/s,-1) / log(n+.5) - 1 >>> for n in range(1000,5001,1000): ... s = n*(n+1)/2 ... print n, log(s)/log(n)-1, guessx(n,s) ... 1000 0.899801360605113 0.999999961026799 2000 0.908873017486397 0.99999999120301 3000 0.913467137635656 0.999999996300753 4000 0.916458516421875 0.999999997995799 5000 0.918641366353455 0.999999998752945 |
|||
03-30-2021, 11:05 AM
(This post was last modified: 03-30-2021 11:06 AM by Namir.)
Post: #5
|
|||
|
|||
RE: New Sum of Powers Log Function
Thanks Albert!
Any implementation for the Lambertw function (the version with two parameters) on vintage calculators like the HP-41C, HP-67, and HP-15C? Namir PS: I am looking at your two threads. |
|||
03-30-2021, 11:41 AM
Post: #6
|
|||
|
|||
RE: New Sum of Powers Log Function
The WP 34S has an implementation of Lambert's W function -- it's in XROM so it's a keystroke program that ought to convert to other devices without too many issues.
Pauli |
|||
03-30-2021, 01:43 PM
Post: #7
|
|||
|
|||
RE: New Sum of Powers Log Function
Angel's Sandmath has Lambert mcoded.
|
|||
03-30-2021, 04:01 PM
(This post was last modified: 03-30-2021 04:41 PM by C.Ret.)
Post: #8
|
|||
|
|||
RE: New Sum of Powers Log Function
The french Silicium Forum have various implementations of Lambert W function for HP-Prime, SHARP PC-1211 and HP-15C
For example: Code: 001- LBL A CF 8 STO 0 1 + LN 1 ENTER e^x + LN ÷ GTO 0 Set desired precision with FIX 1~9. Enter argument x (or complex z) in first stack level X: and press: f- A for real value of \( W_0(x) \) in main positive branch f- B for real value of \(W_{-1}(x) \) in negative branch f- C for complex value of \( W(z) \) |
|||
03-30-2021, 04:35 PM
Post: #9
|
|||
|
|||
RE: New Sum of Powers Log Function
Hi, Namir
The algorithm for LambertW -1 branch is the same as W0, just different guess, see here y = W-1(a) is real only for a = [-1/e, 0] A simple way is just iterate for it: y = log(-a), then iterate y = log(a/y) ... If converged, y=log(a/y) ⇒ e^y = a/y ⇒ y*e^y = a >>> a = mpf(-0.005) # example >>> y = log(-a) >>> for i in range(5): y = log(a/y); print y ... -6.9657066586895 -7.23931642716726 -7.27784415235106 -7.28315205198181 -7.28388110922369 We could speed up convergence with Newton's method f(y) = y - log(a/y) f'(y) = 1 + 1/y y = y - (y-log(a/y))/(1+1/y) = y * (1+log(a/y))/(1+y) >>> y = log(-a) # same guess >>> for i in range(5): y *= (1+log(a/y))/(1+y); print y ... -7.3536234060935 -7.28404934413218 -7.28399713512886 -7.28399713509908 -7.28399713509908 >>> y*exp(y) # confirm y = W-1(a) -0.005 |
|||
03-30-2021, 05:56 PM
Post: #10
|
|||
|
|||
RE: New Sum of Powers Log Function
Thank you all for your feedback.
My preliminary testing using lambertw in Matlab and Python shows some interesting features. The decimal part is close to the results of SopLog but one has to manipulate the integer part. I will share more details after I look at the newer messages. Namir |
|||
03-30-2021, 08:35 PM
Post: #11
|
|||
|
|||
RE: New Sum of Powers Log Function
(03-30-2021 01:44 AM)Albert Chan Wrote: If we have LambertW, we can get a much better guess, without solver. We could estimate the dropped term, and add it back. Code: def guess2(n,s): Above estimated x has similar error as roughx(n,s), but twice as fast. (on my machine) (03-30-2021 01:44 AM)Albert Chan Wrote: Turns out, LambertW -1 branch is the one we need. Illustrate the reason, by example: >>> n, s = 100, 1000 >>> t = -log(n+.5) >>> p = lambertw(t/s,-1) / t # W1 resulted p >>> p, (n+.5)**p/p, .5**p/p (1.60037803179321, 1000.0, 0.2060704060225) >>> >>> p = lambertw(t/s, 0) / t # W0 resulted p >>> p, (n+.5)**p/p, .5**p/p (0.00100464230172027, 1000.0, 994.686243766351) Both solved p, for s = (n+.5)**p/p. But, the assumption that last term can be dropped is false for W0 |
|||
03-30-2021, 10:26 PM
(This post was last modified: 04-01-2021 11:59 AM by Albert Chan.)
Post: #12
|
|||
|
|||
RE: New Sum of Powers Log Function
Even faster version, eliminated second LambertW, by taylor series approximation.
W(x+h) ≈ W(x) + W'(x) * h w*e^w = x (w+1)*e^w dw = dx dw/dx = e^-w / (w+1) = w/(w*x+x) Code: def guess3(n,s): To speed up search, solvex use log scale. With secants method, and tolerance of 1e-5, we expected 5*1.6 = 8 "correct" decimals. ("correct" from solving root of formula point of view, not actual x) Code: RHS = lambda p,n: ((n+1)**(p+1)-1)/(p+1) - ((n+1)**p-1)/2 + p*((n+1)**(p-1)-1)/12 |
|||
03-31-2021, 01:27 PM
(This post was last modified: 03-31-2021 01:31 PM by Namir.)
Post: #13
|
|||
|
|||
RE: New Sum of Powers Log Function
Albert,
Your guess3() function provides good approximation to the SopLog function. Here is the SopLog implementation in Matlab: Code:
Here is my copy of your Python guiess3() + some test calls: Code: from mpmath import * Here is my Matlab version of your guess3() function which I call soplogw3: Code:
I do beleive we must use the solution path of -1 with the Lambert function. The W0(x) does not give the same answers. Here are three test values: Code: soplog(100,1500) -> 0.701661431056288 The soplog() is my original Matlab implementation. The guess3() is you latest implementation, and the soplogw3() is the Matlab equivalent of your guess3(). The results show that using the Lambert W function yields results that match to 5 or 6 decimals. Pretty good! |
|||
03-31-2021, 02:19 PM
Post: #14
|
|||
|
|||
RE: New Sum of Powers Log Function
Albert,
Going back to an earlier post in this thread. Here is my Python copy of your code that uses the findroot() function: Code: from mpmath import * The output is: Code: 100 0.000000 0.000000 0.000000 Here is a Matlab script that implements the Matlab version of the above three Python functions: Code: clc The output is: Code: SopLog(100,1500) = 0.70166112 The arbitrarily selected values of N and S show that the Solvex() and Roughx() give the same digits. While both functions use Matlab's fsolve the do not require loops to perform any summation. Of course the same is true for the Python version. The end of the study that I posted on my web site I discuss some variants of the SopLog function. These variants deal with scaling up/down the powers of the next integers, so the powers to which the integers are raise vary from term to term. Another variation of the SopLog function is to specify the number of integers AND the integer-increment for the next term. And of course you can combine this variant with the scaled up/down powers. Namir |
|||
03-31-2021, 04:06 PM
Post: #15
|
|||
|
|||
RE: New Sum of Powers Log Function
(03-31-2021 01:27 PM)Namir Wrote: I do beleive we must use the solution path of -1 with the Lambert function. The W0(x) does not give the same answers.Although not a proof, I had shown the reason for this here Here is another way. If x = 0, we have s = Σ(1, k=1..n) = n This is when both branches of LambertW gives the same value. p = -W(-ln(N)/s) / ln(N), where N = n+1/2 With s=n ⇒ p=x+1=1, we do not need the +1/2 correction: s = ∫(1, t=1/2 .. n+1/2) = ∫(1, t=0 .. n) p = -W(-ln(n)/n) / ln(n) = ln(n) / ln(n) = 1 // W both branches, see identities For n≠s, we have p≠1, but 2 solutions for p. Dropped term 0.5**p/p is a decreasing function, so we want the maximum p. In other words, we pick most negative value of W(-ln(N)/s), i.e. -1 branch. |
|||
03-31-2021, 09:25 PM
Post: #16
|
|||
|
|||
RE: New Sum of Powers Log Function
(03-31-2021 01:27 PM)Namir Wrote: Here is the SopLog implementation in Matlab ... Without function for the derivative, Newton's method is very inefficient. We should consider secant's method (or, improved secant) Also, curve is very close to LambertW, we should use log scale. Example: soplog(1000,5000), start with 2 guesses. >>> n, s = 1000, 5000 >>> x = log(s,n)-1 >>> x1, y1 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x1, y1 (mpf('0.23299000144533966'), mpf('-0.20890713759105706') >>> x = guess3(n,s) >>> x2, y2 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x2, y2 (mpf('0.26718816370743487'), mpf('3.3544082779438775e-6')) >>> x = x2 - y2 * (x2-x1)/(y2-y1) >>> x3, y3 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x3, y3 (mpf('0.26718761459859175'), mpf('-5.9153427886634265e-9')) >>> x = x3 - y3 * (x3-x2)/(y3-y2) >>> x4, y4 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x4, y4 (mpf('0.26718761556521503'), mpf('-2.2204460492503136e-16')) --- Turns out mpmath implemented Euler–Maclaurin Asymptotic expansion of sums Summation will continue, as long as additional term improve the sum, by at least 1 decimal. >>> x = solvex(n, s) # my version, without higher derivatives >>> x, fsum(k**x for k in range(1,n+1)) (mpf('0.26718762849802313'), mpf('5000.0003957177305')) >>> x = findroot(lambda x: log(sumem(lambda k: k**x, [1,n])/s), log(s,n)-1) >>> x, fsum(k**x for k in range(1,n+1)) (mpf('0.26718761309749891'), mpf('4999.9999244928886')) |
|||
04-01-2021, 02:56 PM
Post: #17
|
|||
|
|||
RE: New Sum of Powers Log Function
Revised guess3(n,s), with less code.
Code: def guess3(n,s): Note that guess3 had a weekness, when t/s < -1/e, LambertW returned complex values. Even if w is real, if n ≫ s > 1, we have p=x+1 ≈ 0. Two terms taylor series estimate is still bad. Code: from mpmath import * >>> n, s = 100, 13 # t/s ≈ -0.35463, slightly above -1/e ≈ -0.36788 >>> print exactx(n,s), solvex(n,s), guess3(n,s), log(s,n)-1 -0.622429308602986 -0.622506385172213 -0.544275714709962 -0.443028323846582 --- Thus, if we want fully converged x, we should start with solvex. We can use y = log(fsum(k**x for k in range(1,n+1))/s), to estimate next x. Note: x correction is opposite the sign of y >>> n, s = 1000, 5000 # previous post example >>> x = solvex(n,s) >>> x1, y1 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x1, y1 (mpf('0.26718762849802312'), mpf('7.9143542807225195e-8')) >>> x = x1 - abs(x1)*y1/2 >>> x2, y2 = x, log(fsum(k**x for k in range(1,n+1))/s) >>> x2, y2 (mpf('0.26718761792493534'), mpf('1.4440531777112248e-8')) >>> x = x2 - y2 * (x2-x1)/(y2-y1) >>> x mpf('0.26718761556521503') |
|||
04-01-2021, 06:05 PM
(This post was last modified: 04-01-2021 06:12 PM by Namir.)
Post: #18
|
|||
|
|||
RE: New Sum of Powers Log Function
Does any of your previous analysis and approximations work on the following variants of the SopLog summations?
Code: def sdSum(n,s,x,scale): The "scale" can be above or below 1. The "incr" is an integer >= 1. |
|||
04-01-2021, 11:05 PM
Post: #19
|
|||
|
|||
RE: New Sum of Powers Log Function
(04-01-2021 06:05 PM)Namir Wrote: Does any of your previous analysis and approximations work on the following variants of the SopLog summations? It depends on the function, and its argument. Euler–Maclaurin might not work. Example, on your sdSum (I think you meant range(n,1,-1), or range(2,n+1) in reverse) Code: exact = lambda x,n,scale: 1 + fsum(k**(x*scale**(n-k)) for k in xrange(2,n+1)) >>> x, n, scale = 0.5, 100000, 0.5 >>> exact(x,n,scale), guess(x,n,scale) (100337.09650943844, 100318.790872778) Try a big x, guess is so wrong, it "sumed" negative ! >>> x = 1.5 >>> exact(x,n,scale), guess(x,n,scale) (31728482.871558648, -38398120.2216635) |
|||
04-01-2021, 11:55 PM
(This post was last modified: 04-02-2021 01:24 AM by Namir.)
Post: #20
|
|||
|
|||
RE: New Sum of Powers Log Function
(04-01-2021 11:05 PM)Albert Chan Wrote:(04-01-2021 06:05 PM)Namir Wrote: Does any of your previous analysis and approximations work on the following variants of the SopLog summations? I am looking to solve for x given all other parameters--n, s, scale and leading to a zero value for s - sum_of_series. |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)