|
> Ich habe als Zwischenschritt in einer Berechnung folgende Gleichung erhalten: > > x2 == (8a^2 x1 - b^2 x1 + 4*Sqrt[a^2 (4a^2 - b^2) x1^2] / b^2 > > Ziel der Berechnung war es den Quotienten x2/x1 zu erhalten. Dazu muss > die Variable x1 aus dem rechten Term "herausgezogen" und vor den Rest des > Terms gestellt werden. Dann kann man durch x1 dividieren und erhaelt den > Quotienten x2/x1. Das Ergebnis, welches ich gerne mit Mathematica > berechnet haette, sieht folgendermassen aus: > > x2 == x1 * (8a^2 - b^2 + 4a*Sqrt[4a^2-b^2]) / b^2 > > bzw. > > x1 * (8a^2 - b^2 + 4a*Sqrt[4a^2-b^2]) / b^2 > > wenn man den rechten Teil unberuecksichtigt laesst. > > Ich konnte jedoch keinen geeigneten Befehl in Mathematica finden. > "Factor" funktioniert nicht wie gewuenscht. In[1]:= $Version Out[1]= "Power Macintosh 3.0 (August 8, 1997)" In[2]:= eq = x2 == (8a^2 x1 - b^2 x1 + 4*Sqrt[a^2 (4a^2 - b^2) x1^2]) / b^2 In[3]:= Map[Cancel[#/x1]&, PowerExpand[eq]] ************************************************************************** ao. Prof. Dr. B. Schnizer Institut fuer Theoretische Physik Tel: +43 (316) 873-8173, -8171 (Secr.) Technische Universitaet Graz Fax: +43 (316) 873 8678 Petersgasse 16 e-mail: schnizer@XXXXXXX.at A-8010 Graz http://wwwitp.tu-graz.ac.at/schnizer Austria/Europe *************************************************************************** |