Zu komplizierte Lösung < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
Status: |
(Frage) beantwortet | Datum: | 10:11 Fr 29.06.2007 | Autor: | PaRu |
ich möchte folgenden Code von mathematica lösen lassen:
[mm] \!\(\(c\_2 [/mm] = [mm] b\/c\_1;\)\[IndentingNewLine]
[/mm]
FullSimplify[Solve[\ [mm] \((c\_1 [/mm] + [mm] c\_2)\)\^2 [/mm] == a\ , [mm] c\_1]]\)
[/mm]
leider ist das ergebnis sehr kompliziert. wenn ich aber die reihenfolge ändere (1. gl. solven, 2. [mm] c\_2 [/mm] substituieren, 3. gl. erneut solven), erhalte ich eine wesentlich einfachere lösung.
[mm] \!\(\(Solve[\ \((c\_1 [/mm] + [mm] c\_2)\)\^2 [/mm] == a\ , [mm] c\_1];\)\[IndentingNewLine]
[/mm]
[mm] %[\([2]\)]\ [/mm] /. [mm] c\_2 [/mm] -> [mm] b\/c\_1\[IndentingNewLine]
[/mm]
t = [mm] c\_1 [/mm] /. [mm] %\[IndentingNewLine]
[/mm]
FullSimplify[Solve[\ [mm] c\_1 [/mm] == t, [mm] c\_1]]\)
[/mm]
dafür ist allerdings der quellcode auch häßlicher. wie bekomme ich mathematica dazu, mir direkt die einfache lösung zu geben?
Gruß Patrick
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Dateianhänge: Anhang Nr. 1 (Typ: nb) [nicht öffentlich]
|
|
|
|
Hallo Patrick,
vorweg ein Tipp zum Editor:
Wenn Du Mathematica Eingaben in einschließt, kann man es auch im Text entziffern. Du kannst das Notebook auch als TeX Datei speichern und die entsprechenden Textstückchen zwischen [m] und [/m] per Copy/Paste einfügen.
Da Du bei Deinem zweiten Ansatz nur eine der von Solve gelieferten Möglichkeiten verwendest, ist das Ergebnis zwar einfacher, aber auch unvollständig. Aber darum geht's Dir ja nicht...
Du meinst vermutlich etwas wie:
[m]\text{Solve}\left[\left\{\left(c_1+c_2\right)^2==\text{wa}^2,c_2==\frac{b}{c_1}\right\},c_1,c_2\right]\text{/.}\text{wa}\to \sqrt{a}[/m]
was die Ausgabe
[m]\left\{\left\{c_1\to \frac{1}{2} \left(-\sqrt{a}-\sqrt{a-4 b}\right)\right\},\left\{c_1\to \frac{1}{2} \left(\sqrt{a}-\sqrt{a-4 b}\right)\right\},\left\{c_1\to
\frac{1}{2} \left(\sqrt{a-4 b}-\sqrt{a}\right)\right\},\left\{c_1\to \frac{1}{2} \left(\sqrt{a}+\sqrt{a-4 b}\right)\right\}\right\}[/m]
liefert.
Ich hoffe, es hilft ein wenig,
Peter
|
|
|
|
|
Status: |
(Frage) beantwortet | Datum: | 17:04 Fr 29.06.2007 | Autor: | PaRu |
prima. aber woher weiß ich, dass ich den trick anwenden muß, damit ich von anfang an diese lösung bekomme und warum kommt mathematica mit dem anderen nicht klar?
|
|
|
|
|
> prima. aber woher weiß ich, dass ich den trick anwenden
> muß, damit ich von anfang an diese lösung bekomme und warum
> kommt mathematica mit dem anderen nicht klar?
Tja, ich merke das auch immer erst, nachdem der direkte Weg seltsam komplizierte Ergebnisse ausspuckt. Und für den zweiten Teil der Frage müßtest Du Dich an support@wolfram.com wenden (die haben Mma geschrieben; ich bin diesbezüglich frei von Schuld )
Ich weiß, das nicht gerade eine erhellende Antwort, aber besser kann ich's halt nicht.
Gruß,
Peter
|
|
|
|