Rundgang in Mathematica 
 Tour en Mathematica

(Nach Ideen aus: Handbuch "Mathematica" von S. Wolfram)
 (Selon des idées  pris dans le manual "Mathematica" de S. Wolfram)
WIR94/98/99 // Copyright Rolf Wirz

Sollte mit Version 4.0, WIN etc. laufen 
 Devrait fonctionner avec version 4.0, WIN etc

4. Gleichungen lösen
  Résoudre des équations

Einfache Gleichung behandeln
 Traiter des équations simples

Gleichung eingeben
 Entrer une équation

x^3 - 7 x^2 + 3 a x == 0

Gleichung nach x auflösen
 Résoudre une équation d'après x

Solve[%,x]

Gleichungssystem lösen nach x und y
 Résoudre le système d'équations d'après x et y

Solve[{a x + b y == 0, x + y == c},{x,y}]

Numerische Lösung einer Gleichung höherer Ordnung
 Solution numérique d'une équation d'ordre supérieur

NSolve[x^5+2x+1==0,x]

Transzendentes Gleichungssystem numerisch lösen
 Résoudre numériquement un système d'équations 
   transcendant

FindRoot[{Sin[x]==x-y,Cos[y]==x+y},{x,1},{y,0}]

Differentialgleichung lösen
 Résoudre une équation différentielle

DSolve[y''[x]-k y[x]==1,y[x],x]

Differentialgleichung numerisch lösen und Graph ausgeben
 Résoudre numériquement une équation différentielle et 
   sortir le graphe

Gleichung lösen
 Résoudre équation

NDSolve[{y''[x] + Sin[x]^2 y'[x] + y[x] == Cos[x]^2,
         y[0]==1, y'[0]==0}, 
         y, {x,0,20}]

Graph ausgeben
 Sortir un graphe

Plot[Evaluate[y[x]/.%],{x,0,20}];

"Putzmaschine" einsetzen
 Employer la "machine de nettoyage"

(* Old Form: Remove["Global`@*"] *)

Remove["Global`*"]