Curtail of Corona Captivity

Programs for HP-41

Curtail of Corona Captivity

Postby mike-stgt » Wed Jun 09, 2021 4:30 pm

Just in case you have absolutely no idea what useful to do with V41 you could compute the perimeter of ellipses.
  • Enter semi-major axis
  • hit ENTER^
  • enter semi-minor axis (in same order of magnitude as major axis)
  • XEQ "PEL"
pel_new.png
perimeter of ellipse, 56 bytes
pel_new.png (1.24 KiB) Viewed 1096 times


Similar to project management, where at least one of the three dimensions budged, objective and dead-line is not exactly defined, also for routines like the a. m. applies the uncertainty principle regarding size, runtime and accuracy. In other words: approvement of one of them is only regarded as real improvement if none of the others worsen thereby.

Here the 11C version of it:
Code: Select all
  1-42.21.15  LBL E   |  12-   43 11  x^2     |  23-   45 25  RCL I   |  34-      20  *
  2-   42 20  x>y?    |  13-      34  x<>y    |  24-      20  *       |  35-      30  -
  3-      34  x<>y    |  14-   44  1  STO 1   |  25-      11  SQRT    |  36-   42 30  x#y?
  4-      26  EEX     |  15-   43 11  x^2     |  26-   42  4  x<>I    |  37-   22  6  GTO 6
  5-      16  CHS     |  16-      40  +       |  27-      30  -       |  38-   45 25  RCL I
  6-       9  9       |  17-      26  EEX     |  28-       2  2       |  39-      10  /
  7-       1  1       |  18-   44  0  STO 0   |  29-44.20. 0  STO* 0  |  40-   42 16  PI
  8-   42 20  x>y?    |  19-      34  x<>y    |  30-      10  /       |  41-      20  *
  9-      34  x<>y    |  20-42.21. 6  LBL 6   |  31-44.30. 1  STO- 1
 10-      33  RDN     |  21-   45  1  RCL 1   |  32-   43 11  x^2
 11-   44 25  STO I   |  22-   45  1  RCL 1   |  33-   45  0  RCL 0
Prepared using my Nut firmware interpreter (apart from the multy columns layout of the listing).

Edit: HP41 version is one byte longer than before, now either error free computation ends at END.
mike-stgt
.........
.........
 
Posts: 147
Joined: Tue Dec 24, 2019 12:12 pm

Re: Curtail of Corona Captivity

Postby mike-stgt » Tue Aug 31, 2021 10:31 pm

The pandemic still goes on, so I used my time for a HP-32Sii version of computing perimeters of ellipses. Yes, I know, this is a HP41 forum, if you don't want to see this look at that.
Code: Select all
U01 LBL U   V01 LBL V   V18 RCL/ i 
U02 x>y?    V02 RCL W   V19 Pi
U03 x<>y    V03 RCL W   V20 *       
U04 x<0?    V04 RCL i   
U05 LN      V05 *       
U06 -99     V06 SQRT   
U07 10^x    V07 x<> i   
U08 x>y?    V08 -       
U09 x<>y    V09 2       
U10 e^x     V10 STO* Z 
U11 STO Z   V11 /       
U12 RDN     V12 STO- W 
U13 STO i   V13 x²     
U14 x<>y    V14 RCL* Z 
U15 STO W   V15 -       
U16 R->P    V16 x<y?   
U17 x²      V17 GTO V   
As said above, this is for HP-32Sii, the HP-32S lacks the X<> var function. A stack T preserving replacement is left as an exercise for you.
mike-stgt
.........
.........
 
Posts: 147
Joined: Tue Dec 24, 2019 12:12 pm


Return to HP-41 Software

Who is online

Users browsing this forum: Ahrefs [Bot], Google [Bot] and 1 guest