Newton had a fun way to approximate general roots...

[Pete]

Cool, I think I figured it out. Just applied a couple of tweaks to the above, and...

Code: (Select All)

DIM AS DOUBLE a, n, root
DO
    a = 1
    INPUT "Number: "; n
    INPUT "Root:   "; root
    DO
        olda = a
        a = a - ((a) ^ root - n) / (root * a ^ (root - 1))
        PRINT a
    LOOP UNTIL olda = a
LOOP

Pete