(12C Platinum) Parabola - arc length

[Gamo]

Thanks Dominique

Here is another version without using any STO registers and only use the stacks.
This can be adapted to HP-11C as well.

Procedure is the same: H [ENTER] L [R/S] display Parabola Arc Length

Program for HP-12C Platinum on RPN mode

Code:


001  ÷
002 LSTx
003 X<>Y
004 ENTER
005 X^2
006  1
007  6
008 1/x
009  +
010 √x
------------
011 X<>Y
012  +
013 LSTx
014 X<>Y
015 LN
016  4
017 LN
018  +
019 X<>Y
020  1
-----------
021  6
022 X<>Y
023  x
024 LSTx
025 X<>Y
026 1/x
027 X<>Y
028 R↓
029  x
030 R↓
-----------
031 R↓
032 R↓
033 X^2
034  1
035  6
036 1/x
037  +
038 √x
039  +
040  x
----------
041  2
042  x

Gamo