Hallo,
nachdem Forum-Reset stelle ich hier wieder ein kleines Script vor.
Das Script wurzelt nach dem Heron-Verfahren und ermittelt somit die Quadratwurzel einer Zahl.
Das Prinzip geht zurück auf die Rechtecksanpassung.
[autoit]Func _SquareRoot($fValue, $iDelta = 1e-15)
Local $a = 1, $b = $fValue, $c
If $fValue < 0 Then Return 0
[/autoit][autoit][/autoit][autoit]While Abs($a - $b) > $iDelta And $b <> $c
$c = $b
$a = ($a + $b) / 2
$b = $fValue / $a
WEnd
Return $a
EndFunc
Das Script im Anhang wurzelt eine Zufallszahl zwischen 1 - 1000.