Riemann's Zeta Function - another approach (RPL)

[Gerson W. Barbosa]

(07-30-2017 04:17 PM)Gerson W. Barbosa Wrote:  

Code:


00 { 57-Byte Prgm }
01▸LBL "Z"
02 X<0?
03 GTO 01
04 XEQ "ZETA"
05 GTO 02
06▸LBL 01
07 1
08 -
09 PI
10 STO+ ST X
11 X<>Y
12 Y↑X
13 STO 05
14 LASTX
15 +/-
16 GAMMA
17 STO× 05
18 LASTX
19 XEQ "ZETA"
20 STO× 05
21 1
22 RCL 00
23 ABS
24 -
25 1
26 ASIN
27 ×
28 SIN
29 RCL× 05
30 STO+ ST X
31▸LBL 02
32 END

Or, slightly less inelegant,

Code:


00 { 55-Byte Prgm }
01▸LBL "Z"
02 X<0?
03 GTO 01
04 XEQ "ZETA"
05 GTO 02
06▸LBL 01
07 2
08 X<>Y
09 Y↑X
10 PI
11 LASTX
12 1
13 -
14 Y↑X
15 LASTX
16 +/-
17 GAMMA
18 LASTX
19 R↓
20 ×
21 ×
22 1
23 ASIN
24 RCL× ST Z
25 COS
26 ×
27 STO 05
28 R↑
29 XEQ "ZETA"
30 RCL× 05
31▸LBL 02
32 END

[/quote]