Most impressive/complex/amazing C-series program?

[Gerson W. Barbosa]

(04-13-2018 12:27 AM)Valentin Albillo Wrote:        

      01-       35  CLx
      02-       36  ENTER
      03-        2   2
     *04-       34  X<>Y
      05-        2   2
      06-       40   +
      07-    43 21  SQR
      08-       10   /
      09-    43 36  LSTx
      10-       34  X<>Y
      11-        2   2
      12-       20   *
      13-       31  R/S
      14- 43,33 04  GTO 04

To run it in any HP-12C, set 9 decimals (f 9), go to the top of program memory (GTO 00), and use R/S to see the converging value after each new term, like this:

      f 9
      GTO 00
      R/S      -> 2.828427126
      R/S      -> 3.061467460
      R/S      -> 3.121445154
      R/S      -> 3.136548492
      R/S      -> 3.140331160
                  ---
      R/S      -> 3.141592648
      R/S      -> 3.141592652
      R/S      -> 3.141592654

      

On the HP-41C:

01 LBL "V"
02 2
03 STO Y
04 LBL 00
05 SQRT
06 ST/ Y
07 2
08 ST* Z
09 +
10 VIEW Y
11 STOP
12 GTO 00
13 END

Same usage (FIX 9, XEQ ALPHA V ALPHA, R/S, R/S...) and same results. Based on a 12-step program for the HP-12C by Katie Wassermann.

Gerson.