Threaded Mode | Linear Mode

Gerson W. Barbosa · (This post was last modified: 05-26-2021 12:19 AM by Gerson W. Barbosa.)

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.