(35S) Perimeter of ellipse (Ramanujan 2nd Approximation)

[Gerson W. Barbosa]

HP-11C, HP-15C:

Code:


001- LBL D
002- ENTER
003- Rv
004- x<>y
005- -
006- LASTx
007- R^
008- +
009- /
010- LASTx
011- x<>y
012- x^2
013- 3
014- *
015- ABS
016- 4
017- LASTx
018- -
019- SQRT
020- 1
021- 0
022- +
023- +
024- LASTx
025- /
026- *
027- pi
028- *
029- RTN

wp34s:

Code:


0001 LBL A
0002 [<->] XYYZ
0003 STO+ Z
0004 -
0005 RCL/ Y
0006 x[^2]
0007 # 003
0008 [times]
0009 SDR 001
0010 # 004
0011 RCL- L
0012 [sqrt]
0013 SDR 001
0014 INC X
0015 /
0016 INC X
0017 [times]
0018 # [pi]
0019 [times] 
0020 END

or

…
0015 +
0016 RCL/ L
…