This program is by Tizedes Csaba and is used here by permission.
This program is supplied without representation or warranty of any kind. Tizedes Csaba and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
You want to use Steps of available R0 51 R0, R1 44 R0, R1, R2 37 R0, R1, R2, R3 30 R0...R4 23 R0...R5 16 R0...R6 9 R0...R7 2If you don't use closing 'R/S' instruction at the end of program, this steps are inceable by 1. The precision of iteration is can controlled by the marked 'EEX 3' steps in the program list. See the examples for more information!
[2:] STO 0 ###################### # # # STEPS OF ITERATION # # # calculated new value required ###################### in the stack_x ENTER ENTER ENTER RCL 0 − x2 #calculating √x #absolute-value x⇔y EEX 3 #use bigger number for more precision ÷ #'new/1000' as 0.1% precision x⇔y x≤y? #'abs(new-old)≤0.1% of new ?' GTO[1] R↓ R↓ GTO[2] [1]: R↓ R↓ R/S 21 steps
Go back to the software library
Go back to the main exhibit hall