05-25-2021, 10:05 PM
Code:
001 { 42 21 15 } f LBL E
002 { 44 1 } STO 1
003 { 2 } 2
004 { 20 } ×
005 { 34 } x↔y
006 { 44 2 } STO 2
007 { 45 40 1 } RCL + 1
008 { 43 30 6 } g TEST x≠y
009 { 10 } ÷
010 { 1 } 1
011 { 30 } -
012 { 43 11 } g x²
013 { 3 } 3
014 { 2 } 2
015 { 34 } x↔y
016 { 10 } ÷
017 { 43 36 } g LSTx
018 { 48 } .
019 { 3 } 3
020 { 6 } 6
021 { 1 } 1
022 { 43 2 } g →H
023 { 20 } ×
024 { 30 } -
025 { 4 } 4
026 { 30 } -
027 { 15 } 1/x
028 { 1 } 1
029 { 48 } .
030 { 5 } 5
031 { 40 } +
032 { 42 4 1 } f Χ↔ 1
033 { 45 1 } RCL 1
034 { 14 } y^x
035 { 45 2 } RCL 2
036 { 43 36 } g LSTx
037 { 14 } y^x
038 { 40 } +
039 { 2 } 2
040 { 10 } ÷
041 { 45 1 } RCL 1
042 { 15 } 1/x
043 { 14 } y^x
044 { 2 } 2
045 { 20 } ×
046 { 43 26 } g π
047 { 20 } ×
048 { 43 32 } g RTN
# ------------------------------------------------------------------------------
# Perimeter of the Ellipse
# ------------------------------------------------------------------------------
# Usage:
#
# a ENTER b f E
# ------------------------------------------------------------------------------
# Formula:
#
# p ≈ 2π[(aˢ + bˢ)/2]¹ᐟˢ
#
# where
#
# s = 3/2 + 1/(32/h² - 217h²/360 - 4)
#
# and
#
# h = [(a - b)/(a + b)]
#
# See https://www.hpmuseum.org/forum/post-126478.html#pid126478
#
# ------------------------------------------------------------------------------
# ------------------------------------------------------------------------------
# Listing generated by
# HEWLETT·PACKARD 15C Simulator program
# Created with version 4.3.00
# ------------------------------------------------------------------------------
# © 2021 Torsten Manz
# http://hp-15c.homepage.t-online.de/download.htm
# ------------------------------------------------------------------------------
# --------
+-----+-----+-------+-------------+-------------+
| a | b | h | result | exact |
+-----+-----+-------+-------------+-------------+
| 20 | 20 | 0.000 | 125.6637062 | 125.6637061 |
| 20 | 19 | 0.026 | 122.5422527 | 122.5422527 |
| 20 | 18 | 0.053 | 119.4632087 | 119.4632087 |
| 20 | 17 | 0.081 | 116.4300496 | 116.4300496 |
| 20 | 16 | 0.111 | 113.4466716 | 113.4466716 |
| 20 | 15 | 0.143 | 110.5174609 | 110.5174608 |
| 20 | 14 | 0.176 | 107.6473797 | 107.6473796 |
| 20 | 13 | 0.212 | 104.8420720 | 104.8420720 |
| 20 | 12 | 0.250 | 102.1079954 | 102.1079955 |
| 20 | 11 | 0.290 | 99.45258805 | 99.45258801 |
| 20 | 10 | 0.333 | 96.88448221 | 96.88448221 |
| 20 | 9 | 0.379 | 94.41378489 | 94.41378488 |
| 20 | 8 | 0.429 | 92.05245051 | 92.05245038 |
| 20 | 7 | 0.481 | 89.81479201 | 89.81479146 |
| 20 | 6 | 0.538 | 87.71820372 | 87.71820139 |
| 20 | 5 | 0.600 | 85.78422747 | 85.78421775 |
| 20 | 4 | 0.667 | 84.04021830 | 84.04017816 |
| 20 | 3 | 0.739 | 82.52217428 | 82.52200588 |
| 20 | 2 | 0.818 | 81.28023133 | 81.27948360 |
| 20 | 1 | 0.905 | 80.39234813 | 80.38851238 |
| 20 | 0 | 1.000 | 80.03695848 | 80.00000000 |
+-----+-----+-------|-------------+-------------+
Edited to fix a silly mistake in usage.