HP50g simplifing a root

[peacecalc]

Hello Albert,

thank you for critics. Of course I forgot to implement the testing procedure being shure that I found a correct solution! The checking is absolut necessary.

Code:


« \-> E
  « E 3 ^ DUP 'E' STO OBJ-> ->STR
    IF "+" ==
    THEN 1
    ELSE -1
    END SWAP DROP SWAP OBJ-> DROP2 DUP 2 ^ EVAL \-> A SG B RT K

    « A DIVIS SORT \-> L
      « A L 3 ^ -
        «  \-> B
          «
            IF B 0 >
            THEN B
            END
          »
        » DOLIST 

        \-> L3
        « L 1.0000 L3 SIZE SUB 'L' STO L3 L / 3 K * / \SQRT 'L3' STO 
          L3
          «  \-> B
            « B TYPE
              IF 28.0000 ==
              THEN B
              ELSE 0
              END
            »
          » DOLIST 

          'L3' STO { } 
          
          1.0000 L3 SIZE
          FOR I L3 I GET DUP
            IF 0 ‹
            THEN + I +
            ELSE DROP
            END
          NEXT 'L3' STO
          
          IF L3 { } <>
          THEN 
            1.0000 L3 SIZE
            FOR I 
             L3 I GET 
             L L3 I 1.0000 + GET GET 
             \-> a b
              «
                B b 2 ^ K * a  2 ^ 3 * + b *
                IF ==
                THEN a b SG RT * * + EVAL
                ELSE E 3 INV ^ EVAL 
                END
             »
          
          2.0000 STEP
          ELSE E 3 INV ^ EVAL
          END
        »
      »
    »
  »
»

Code is corrected, now the program tests if the found "a" leads to B as input.