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

2. Graphiken
 Graphiques

Graph einer Funktion
 Graphe d'une fonction

Plot[Sin[Exp[x]],{x,0,Pi}]

Plot[Sin[Exp[x]],{x,0,Pi}];

Was war der Unterschied? 
 Quelle était la différence?

Optionen zum Manipulieren von Plot
 Options pour manipuler Plot

Show[%,Frame->True,FrameLabel->{"Zeit","Weg"},
GridLines->Automatic];

Höhenlinienkarte
 Carte des courbes à niveau

ContourPlot[Sin[x+Sin[y]],{x,-2,2},{y,-2,2}];

3-dimensionale Graphen
 Graphes à 3 dimensions

Plot3D[Sin[x+Sin[y]],{x,-3,3},{y,-3,3}];

3-dimensionale parametrisierte Flächen
 Surfaces paramétrisées à 3 dimensions

ParametricPlot3D[{u Sin[t], u Cos[t], t/3},
{t,0,15},{u,-1,1},Ticks->None];

Oder vielleicht so
 Ou peut-être ainsi

ParametricPlot3D[{Sin[t], Sin[2t] Sin[u], Sin[2t] Cos[u]},
{t,-Pi/2,Pi/2},{u,0,2 Pi},Ticks->None];

Die beiden letzten Graphen kombiniert
 Les deux derniers graphes combinés

Show[%,%%];

Arbeit mit eingebauten Graphik-Komponenten
 Travail avec des composantes de graphiques incorporées

Show[Graphics3D[
{Cuboid[{0,0,0}],Cuboid[{2,2,2}],
 Cuboid[{2,1,3}],Cuboid[{3,2,1}],
 Cuboid[{2,1,1}]} ]]

Musik      
 Musique

(Das hier dauert etwas lang, bitte warten) 
  (Cela dure peut-être longtemps, attendre s.v.p.)

Play[Sin[1000/t],{t,-4,16}]

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

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

Remove["Global`*"]