(HP41) Iterated function with convergence to square root (Heron method)

[Thomas Klemm]

(04-25-2023 06:30 PM)floppy Wrote:  One more (…)

HP-41C:

Code:

STO 00
SIGN
LBL 00
RCL 00
RCL Y
/
LASTX
+
2
/
X#Y?
GTO 00
END

HP-42S:

Code:

00 { 16-Byte Prgm }
01 STO 00
02 SIGN
03▸LBL 00
04 RCL 00
05 RCL÷ ST Y
06 RCL+ ST Y
07 2
08 ÷
09 X≠Y?
10 GTO 00
11 END