Rundgang in Mathematica 
 Tour en Mathematica

(Nach Ideen aus: Handbuch "Mathematica" von S. Wolfram)
 (Selon les idées  prises dans le manuel "Mathematica" de S. Wolfram)

Run mit WIN+Mathematica Version 5.2  
 Testé avec Mathematica version 5.2+WIN

5. Listen
 Listes

Beispiel: Liste machen und manipulieren
 Exemple: Dresser une liste et la manipuler

Liste von Fakultäten
 Liste de factoriaux

Table[n!,{n,1,15}]

Logarithmus davon
 Logarithme

N[Log[%]]

Liste graphisch darstellen
 Faire un graphique de la liste

ListPlot[%];

Optimale Parabel durch letzten Graphen legen
 Poser une parabole optimale à travers la liste

Fit[%%,{1,x,x^2},x]

Plot[%,{x,0,14}];

Beispiel: 2-dimensionales Array manipulieren
 Exemple: manipuler un array bidimensionnel

Array kreieren: Teilerfremde Paare von andern unterscheiden, Zahlen nicht ausgeben (zu viele)
 Créer un array: Distinguer des paires sans facteur commun d'autres paires, ne pas sortir les nombres 
(il y en a trop)

arr = Table[If[GCD[i,j]==1,1,0],{i,30},{j,30}];

Dichte-Graph
 Graphique de la densité

ListDensityPlot[arr]

Grösster absoluter Wert in der Fourier-Transformierten von arr
 Plus grande valeur absolue dans la transformée de Fourier de arr

??Fourier

Fourier[{1, 1, 1, 1, -1, -1, -1, -1}]

Max[Abs[Fourier[{1, 1, 1, 1, -1, -1, -1, -1}]]]

Fourier[{1, 1, 1, 1, -1, -1, -1, -1}] // N

Max[Abs[N[Fourier[{1, 1, 1, 1, -1, -1, -1, -1}]]]]

Max[Abs[N[Fourier[arr]]]]

Frage: Was ist von der Ausgabe des Resultats zu halten?
 Question: Que faut-il penser de la sortie du résultat?

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

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

Remove["Global`*"]