So habs jetzt satt ständig das langweilige mitm Taschenrechner ausrechnen zu müssen 
$zahl = "4"
$zahl2 = "2"
$zahl3 = ($zahl / 2) ; 4/2
$zahl4 = ($zahl3 + Sqrt(($zahl / 2) * ($zahl / 2)) - $zahl2) ; 2 + Wurzel aus (4/2) * (4/2) - 2
$zahl5 = ($zahl3 - Sqrt(($zahl / 2) * ($zahl / 2)) - $zahl2) ; 2 - Wurzel aus (4/2) * (4/2) - 2
MsgBox (0,"",$zahl4 & " " & $zahl5)Funktionieren tuts ja nur rechnen tuts net richtig 
bitte um hilfe 
mfg DarkHunter
Achja, die gute alte PQ-Formel, da hab ich mal vor Ewigkeiten ein Skript geschrieben, ich grabs mal aus...
edit:
dim $p,$q,$z,$y,$a,$b,$c
$p=inputbox("P:","P ist:")
$q=inputbox("Q:","Q ist:")
$z=$p/2
$z=$z*$z
$z=$z-$q
if $z<0 then
msgbox(0,"Lösung","Es gibt keine Lösung!" & @CRLF & "Schreiben Sie L={Ø}.")
Exit
endif
if $z=0 then
$z=-$p/2
msgbox(0,"Lösung",$z)
Exit
endif
$c=$z
$z=Sqrt($c)
$y=-$p/2
$a=$y+$z
$b=$y-$z
msgbox(0,"Lösung",$a & " und " & $b)
geilo danke dir ... nur würde ich gerne die lösung von meinem wissen .... will net immer nur vorgescriptete nehmen
mfg DarkHunter
Hallo
[autoit]$P = 4
$Q = 2
;x1,2 = -p/2 +- sqrt((p/2)^2-q)
$pq1 = -$P/2 + Sqrt(($p/2)^2-$Q)
$pq2 = -$P/2 - Sqrt(($p/2)^2-$Q)
MsgBox (0,"",$pq1&" "&$pq2)
[/autoit]Gruß
Spider