Function R(radikant#,factor#=2)
 Return ( radikant# ^ ( 1 / factor# ) )
End Function

 24|90|01 = 4
-16
   8
   89

 ; Zerteilung der Zahl in 2er Pärchen, von rechts beginnend. Dann die größte Quadratzahl unter dem ersten Pärchen abziehen und die Wuzel der Zahl als Ergebnis notieren.


89/8 = 9 + Rest (da Zahl min 0 max 9)

;Die nächste Ziffer herunterziehen und die sich ergebende Zahl durch das bisher doppelte Gesamtergebnis teilen. Der Rest interessiert keinen. 9, da das Ergebnis über -1 und unter 10 sein muss

9*89 = 801
;Nun das Ergebnis oben zum Gesamtergebnis hinzufügen, die nächste Zahl herunterziehen. Hier nun das Ergebnis des letzten Schrittes * (den Divisor der letzten Rechung * 10 + das Ergebnis der letzten Rechnung). Das hier entstehende Produkt abziehen.

 24|90|01 = 49
-16
   8
   890
  -801
     890

890/98 = 9 + Rest

;Wieder die nächste herunterziehen, durch das doppelte Ergebnis teilen und schon haben wir 3 Ziffern beim Ergebnis stehen.

9*989
  81
    72
      81
=8901

; noch einmal: Ergebnis(hier 9)*(Den Divisor (vorher 98)*10+Ergebnis( hier 9 )) rechnen und nun...

 24|90|01 = 499
-16
   8
   890
 -801
    890
    8901
  -8901

;nachdem man die nächste Zahl heruntergezogen hat, abziehen. Sollte 0 herauskommen, so hat man die endgültige Wurzel.