Riemann's Zeta Function - another approach (RPL)

[Gerson W. Barbosa]

(06-19-2017 09:17 PM)Dieter Wrote:  

(06-17-2017 06:07 PM)Gerson W. Barbosa Wrote:  Here is a Q&D stack-only implementation:

For s very close to 1, maybe you can switch to a simple implemenation, just with 1/s and the Euler-Masceroni constant.

What about

Code:


C01 LBL C
C02 FP
C03 x!
C04 LASTx
C05 x<>y
C06 2
C07 x<>y
C08 -
C09 x<>y
C10 /
C11 LASTx
C12 +
C13 RTN

for 1 < x <= 1.00001 ?

This saves the eleven steps required by the constant on the HP-11C, for instance.

Gerson.

Edited to save four steps in the HP-32S II program.