Post Reply 
Riemann's Zeta Function - another approach (RPL)
07-30-2017, 10:03 PM
Post: #66
RE: Riemann's Zeta Function - another approach (RPL)
(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]
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Riemann's Zeta Function - another approach (RPL) - Gerson W. Barbosa - 07-30-2017 10:03 PM



User(s) browsing this thread: 1 Guest(s)