Da das Thema von Batch-man verloren gegangen ist hier nochmal meine Implementierung des Newton-Verfahrens.
Beispiel:
MsgBox(0, "log(x) = 1", Newton("log(x) = 1"))
Func Newton($f, $x=1)
Local $0 = 10e-10, $i, $a, $b, $c, $d
$f = StringRegExpReplace($f, "\s+", "")
If (StringInStr($f, "=") > 0) Then
$f = StringRegExpReplace($f, "(.+)=(.+)", "\1-(\2)")
EndIf
For $i = 1 To 100
$a = Execute(StringRegExpReplace($f, "\bx\b", "(" & $x & ")"))
$b = $x - $0
$c = Execute(StringRegExpReplace($f, "\bx\b", "(" & $b & ")"))
$d = ($a - $c) / $0
If (Abs($d) > 10e10) Then Return "-1.#IND"
$x = $x - $a/$d
Next
Return $x
EndFunc