Threaded Mode | Linear Mode

Thomas Klemm · (This post was last modified: 02-17-2015 08:28 PM by Thomas Klemm.)

The suggestions in my previous post are flawed. Meanwhile I could fix it. This program works fine with my HP-32SII:

Code:

H01 LBL H

H02 INPUT A

H03 STO D

H04 INPUT B

H05 -2

H06 ÷

H07 STO F

H08 STO H

H09 INPUT C

H10 STO G

H11 STO I

H12 CF 0

H13 SCI 2

A01 LBL A

A02 CLΣ

A03 28

A04 STO i

A05 4

A06 STO(i)

A07 33

A08 STO i

A09 RCL H

A10 STO(i)

A11 RCL÷ D

A12 RND

A13 RCL D

A14 Σ-

A15 RCL I

A16 Σxy

A17 x<>y

A18 STO(i)

A19 R↓

A20 x<>y

A21 RCL H

A22 Σ-

A23 R↓

A24 Σ-

A25 Σxy

A26 ABS

A27 RCL I

A28 ABS

A29 x≤y?

A30 GTO B

A31 ENTER

A32 R↑

A33 STO H

A34 Σxy

A35 STO I

A36 ABS

A37 1E24

A38 ×

A39 RCL G

A40 ABS

A41 x≤y?

A42 GTO A

B01 LBL B

B02 FIX 9

B03 RCL H

B04 x²

B05 STO(i)

B06 RCL D

B07 RCL I

B08 Σ-

B09 Σxy

B10 x<0?

B11 GTO E

B12 SQRT

B13 x<> F

B14 x<0?

B15 RCL- F

B16 x≥0?

B17 RCL+ F

B18 x<> G

B19 x≠0?

B20 RCL÷ G

B21 RCL G

B22 RCL÷ D

B23 STOP

E01 LBL E

E02 SF 0

E03 +/-

E04 SQRT

E05 RCL÷ D

E06 x<>y

E07 RCL F

E08 x<>y

E09 ÷

E10 STOP

This post made me try to understand the algorithm that is used. I posted my findings in an article.

Cheers
Thomas