Danke
Reduce hatte ich ganz uebersehen, wobei das kleine Problemchen mit der
"Art" des
Ergebnisses bleibt.
Schueler sind es gewohnt die Ergebnisse in der Form x-> vorgesetzt zu bekommen
und damit auch weiter zu arbeiten. Jetzt gibts auf einmal eine (umgeformte)
Gleichung als Ergebnis. Aber das werd ich schon thematisieren.
Danke nochmals
Werner Cyrmon
Quoting Udo und Susanne Krause <su.krause@XXXXXXX.ch>:
Guten Abend Werner,
Mma ist schwa"cher unter der Bedingung, dass es dieselben Funktionsnamen
(!) wie Derive6.0 benutzen muss; man tippt man in Mma fu"r transzendente
Gleichungen jedoch
In[10]:= Reduce[2^((x + 1)/x) == 3^(x/(x + 1)), x, Reals]
oder Sie lassen Solve[] zweimal aktiv werden
In[12]:= ReplaceAll[Flatten[Solve[y == (x + 1)/x, x]], #]& /@
Flatten[Solve[(2^y)^y == 3, y]]
erhalten einen Verweis auf Reduce[] und kehren zum Anfang zuru"ck.
Solve[] wird in Mma. fu"r polynomiale Gleichungssysteme benutzt, deren
Lo"sungsmengen unter dem Namen Varieta"ten Gegenstand der algebraischen
Geometrie sind - dies als Hinweis, warum die Jungs bei Wolfram soviele
Seiten gebraucht haben, um an einer einfachen transzendenten Gleichung
zu "scheitern".
Gruss
Udo.
Mag. Cyrmon Werner wrote:
Sg Dmug
Ein Schueler hat mir heute folgende email gesendet:
(x + 1)/x x/(x + 1) =20
2 =3D 3 =20
Derive6.0 rechnet folgendes:
$B"e(B(LN(2)) $B"e(B(LN(2))
x = --------------------------- $B"K(B x = -------------------------------
$B"e(B(LN(3)) - $B"e(B(LN(2)) $B"e(B(LN(3)) + $B"e(B(LN(2))
x = -0.4426829718 $B"K(B x = 3.861705554
Mathematica verweigert die Loesung
Nachdem ich schon des oefteren den Mund ziemlich voll genommen habe von
wegen "Mma viel besser als DERIVE$B!H(B war ich natuerlich
schon ziemlich baff und habs auch gleich selbst ausprobiert. Solve und
NSolve verweigern tatsaechlich, mit FindRoot findet man natuerlich die
angegebenen Loesungen.
Warum kann das Derive und Mma nicht (wo doch der Code fuer Solve ueber
500 Seiten lang ist - so stehts in der Hilfe *g*)?
Mit freundlichen Gruessen
Werner Cyrmon
***************************************************************************
Prof. Mag. Werner CYRMON
HTBLuVA Wr. Neustadt Abt. EDVO http://cyx.htlwrn.ac.at
<http://cyx.htlwrn.ac.at/>
***************************************************************************
It could probably be shown by facts and figures that there is no
distinctivly native American criminal class except Congress. (M.Twain)
***************************************************************************
Want to learn math with fun or calculating some stuff online: Look at
http://Onlinemath.htlwrn.ac.at
*****************************************************************************
Mag. Werner Cyrmon
HTBLuVA Wr. Neustadt, Abt. EDVO
It could probably be shown by facts and figures that there is no
distinctivly native American criminal class except Congress. (M.Twain)
*****************************************************************************
----------------------------------------------------------------
This message was sent by Webmail@HTBLuVA Wr. Neustadt, Dep. EDVO.