> Auf Wunsch liefert allerdings
>
> Solve[(Sqrt[-Delta] - A)^2 == q*B^2, Delta] /. q -> 1
>
> beide L"osungen.
Ja, und es gibt sogar eine noch vertracktere Variante:
z.B. liefert
Solve[ Sin[fi/a] == Sin[(fi + Pi)/a], fi ]
zwei symmetrische Lösungen ({x, -x}), von denen aber eine *FALSCH*
sein muß (ein einfacher Plot zeigt's).
Wählt man für a eine reelle Zahl, kommt Solve auf zwei Lösungen
der Art {x, -Pi - x}, die wenigstens richtig sind (wenn auch nicht
erschöpfend, aber das weiß Solve selbst, da inverse trigonometrische
Funktionen benutzt werden).
Gruß,
Thomas Hahn
DMUG-Archiv, http://www.mathematica.ch/archiv.html