Uebungen  Exercices

5. Etwas Umgang mit Mathematica
 Savoir un peu manier Mathematica

Die Gliederung dieses Kurses folgt in groben Zügen dem Buch von Nancy Blachman: A Practical Approach.... 
Hinweis: Kapitel 5 lesen!
 L'articulation de ce cours correspond à peu près à celle du livre de Nancy Blachman: A Practical Approach.... 
Indication: Lire le chapitre 5.
WIR94/98/99 // Copyright Rolf Wirz

Aufgabe 1    Problème 1

Ein Vorspann
 Génériques

Sinus ohne " ; ", damit  Input-Lines erzeugt werden.
  Sinus sans " ; ", pour créer des Input-Lines.

Plot[Sin[x],{x,0,6 Pi},
	AspectRatio -> 1/2,
	PlotLabel -> "Sin[x]",
	AxesLabel -> {"x", "y"},
	AxesOrigin -> {2 Pi, 1/2} ];
Plot[2x^3-7x^2-17x+10,{x,-6,6}];
Solve[2x^3-7x^2-17x+10==0,x]

Input-Lines auflisten
 Faire une Liste des Input-Lines

Mit "??":    Avec "??":

??In

Aufgabe 2    Problème 2

Auffinden von Kommandos
 Trouver des commandements

Finde alle Kommandos mit den Worten "Matrix" und "Power" im Namen:
  Trouve tous les commandements qui ont les paroles "Matrix" et Power" dans leur nom:

?*Matrix* *Power*

Oder:    Ou:

??*Matrix* *Power*

Oder:    Ou:

Print[Names["*Matrix*"]];
Names["*Power*"]

Kurze Neugier:
  Petite curiosité:

??Names

Aufgabe 3    Problème 3

CPU-Zeit messen, 3 x 3-Matrix
 Mesurer le temps CPU, matrice 3 x 3

Invertierung einer 3 x 3-Matrix. Postfix-Notation verwenden.
Erst Matrix generieren:
  Invertir une matrice 3 x 3. User la notation postfixe. Générer d'abord la matrice:

m = Table[Random[ ], {3}, {3}]; MatrixForm[m]

Dann Inverse rechnen und Zeit messen (Postfix-Notation):
  Ensuite calculer l'inverse et mesurer le temps (notation postfixe):

m // Inverse // MatrixForm // Timing

CPU-Zeit messen, 10 x 10-Matrix
 Mesurer le temps CPU, matrice 10 x 10

Matrix generieren, Inverse rechnen und Zeit messen (Postfix-Notation):
  Générer une matrice, calculer l'inverse et mesurer le temps. (Notation postfixe):

Table[Random[ ], {10}, {10}] // Inverse; // Timing

Aufgabe 4    Problème 4

(a)  Fakultät berechnen:
     Calculer des factoriels

1 !  bis 5 !    1! à 5!

Do[Print[i!], {i, 5}]

(a)  Grössere Fakultät berechnen:
     Calculer des factoriels plus grands:

1 !  bis 250 !  Achtung!  Der Rechner kann damit unmöglich fertig werden. 
Die Zahlen sind zu gross! Daher musst Du den Vorgang unterbrechen!
Versuche in Action, Interrupt, Abort Calculation oder Interrupt Calculation.
   1 !  à 250 !  Attention! La calculatrice ne peut pas en venir à bout. Les nombres sont trop grands! Tu dois donc interrompre le processus! Essaie
dans (Action) Kernel, Interrupt, Abort Calculation ou Interrupt Calculation.

Do[Print[i!], {i, 42}]

Bitte nicht ausdrucken:
  S.v.p. ne pas imprimer:

(* Do[Print[i!], {i, 250}] *)

500!

Aufgabe 5    Problème 5

Einige Variablen:
 Quelques variables:

??$Line

??$Version

??$VersionNumber

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

Remove["Global`@*"]