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

11. Datenaustausch mit Mathematica, andere Ausgabeformen
Achtung: Einige Befehle sind für UNIX, andere für DOS, andere für Windows...
 Echange de données par Mathematica, autres formes de sorties
Attention: Quelques ordres sont pour UNIX, d'autres pour DOS, d'autres pour Windows...

Beispiel Ausgabeformen
 Exemple de formes de sorties

Beispiel eines betrachteten Ausdrucks, Standardausgabe
 Exemple d'une expression considérée, output standardisé

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

c=(a^2+b^2)/(x+y)^5

Ausgabe in der Eingabeform
 Output en forme d'entrée

InputForm[c]

Ausgabe in TeX-Form (Profi-Satzsystem)
 Output en forme TeX (système de composition professionnel)

TeXForm[c]

Ausgabe in Fortran-Form 
 Output en forme Fortran

FortranForm[c]

Ausgabe in C-Form 
 Output en forme C

CForm[c]

Beispiel: Kommunikation mit der Umgebung
 Exemple: Communication avec l'entourage

Externe Daten lesen. (Files kreiert mit "A_ReadMeFirst.nb")
   (file "C:\WORK\AAAdaten.txt")
 Lire de données externes (dossiers). (Fichiers crées avec "A_ReadMeFirst.nb")

$Path

$Path = Join[$Path, {"C:\Data (Local)\DATEN"}]

$Path = Join[$Path, {"C:\work\MathematicaData"}]

$Path

Versuche:• Essayer:

\(\(! cd\ \ \(C : \(\(\\)\(work\)\)\MathematicaData\)\)\)

Was klemmt? Versuche (Befehl generieren, Syntax beachten!):
• Pourquoi ça na va pas? Essayer (créer les ordres, tenir compte de la syntaxe):

Versuche:• Essayer:

! cd   "C:\work\MathematicaData";
ReadList["!dir", String]

ReadList["Daten.txt", String]

Was ist passiert? • Qu'est-ce qui c'est passé?

Aeltere Version oder andere Systeme • Vieille version ou autres systèmes

(* !cd C:\(\\  work\);
ReadList["\!\(\*
StyleBox[\"C\",\nEvaluatable->False,\nAspectRatioFixed->True]\)\!\(\*
StyleBox[\":\",\nEvaluatable->False,\nAspectRatioFixed->True,\n\
FontFamily->\"Courier\",\nFontSize->12]\)\!\(\*
StyleBox[\"...\",\nEvaluatable->False,\nAspectRatioFixed->True,\nFontFamily->\
\"Courier\",\nFontSize->12]\)\!\(\*
StyleBox[\"...\",\nEvaluatable->False,\nAspectRatioFixed->True,\nFontFamily->\
\"Courier\",\nFontSize->12]\)\!\(\*
StyleBox[\".\",\nEvaluatable->False,\nAspectRatioFixed->True,\n\
FontFamily->\"Courier\",\nFontSize->12]\)\!\(\*
StyleBox[\"AAAdaten\",\nEvaluatable->False,\nAspectRatioFixed->True]\)\!\(\*
StyleBox[\".\",\nEvaluatable->False,\nAspectRatioFixed->True]\)\!\(\*
StyleBox[\"txt\",\nEvaluatable->False,\nAspectRatioFixed->True]\)", 
          String] *)

Aeltere Version oder andere Systeme • Vieille version ou autres systèmes

Aeltere Version oder andere Systeme • Vieille version ou autres systèmes

Aeltere Version oder andere Systeme • Vieille version ou autres systèmes

(* !cd C:\(\(\\)\(work\)\);
ReadList["\!\(\*
StyleBox[\"C\",\nEvaluatable->False,\nAspectRatioFixed->True]\)\!\(\*
StyleBox[\":\",\nEvaluatable->False,\nAspectRatioFixed->True,\n\
FontFamily->\"Courier\",\nFontSize->12]\)......\!\(\*
StyleBox[\"Adaten\",\nEvaluatable->False,\nAspectRatioFixed->True]\)", 
          String] *)

!cd

data = "a b c d e f 1 2 3 4 5 6 1.1 1.2. 1.3 aa ab ac"

\(data\  >> C:\work\MathematicaData\ABdata\)

ReadList["C:\work\MathematicaData\ABdata", String]

data = {1, 2, 3, 4, 5, 6, 7, 8, 9}

\(data\  >> \ C:\work\MathematicaData\ACdata\)

ReadList["C:\work\MathematicaData\ACdata", String]

ReadList["C:\work\MathematicaData\ACdata", Number]

data = 123456789

\(data\  >> \ C:\work\MathematicaData\ADdata\)

ReadList["C:\work\MathematicaData\ADdata", Number]

Externer Befehl wie "square" etc. ausführen und dann Daten einlesen (Funktioniert nicht mit "square" , da Befehl nicht vorhanden)
 Exécuter un ordre externe tel que "square" etc. et lire les données ensuite (ne fonctionne pas avec "square", car l'ordre n'est pas disponible)

Die restlichen Befehle sind UNIX-Befehle. "cd": Directory-Wechsel, "ls": Directory lesen.
 Les autres ordres sont des ordres UNIX. "cd": Changer le directoire, "ls": Lire le directoire

(* ReadList["!square",Number] *)

(* ReadList["!ls",String] *)

(* ReadList["!cd C:/work;ls",String] *)

(* !cd work;
ReadList["!dir",String] *)

(* ReadList["!cd C:\work\AAAdaten.txt;dir",String] *)

(* !cd *)

Externer Befehl "iterat"  in Mathematica einbinden 
(Funktioniert nicht, da Befehl nicht vorhanden)
 Relire l'ordre externe "iterat" à Mathematica
(Ne fonctionne pas parce que l'ordre n'est pas présent)

Aeltere Version oder andere Systeme, Programm fehlt 
• Vieille version ou autres systèmes, programme manque

(* Install["iterat"] *)

(* getdata["C:\work\AAAdaten.txt",8] *)

Nach String "1" im File "AAAdaten" suchen
•  Chercher d'après String "l" lans le fichier "AAAdaten"

FindList["C:\work\MathematicaData\Daten.TXT","1"]

data =  "4 5 6 7 8 9 \n 1 2 3 "

\(data\  >> C:\work\MathematicaData\AEdata.txt\)

FindList["C:\work\MathematicaData\AEdata.txt", "1"]

String ersetzen
 Remplacer String

StringReplace[%,"7"->"a"]

Suchen in externen Verzeichnissen
 Cherger dans des listes externes

Directory[]

Das folgende Directory heisst: •  Le directoire suivant s'appelle:
"C:\PROGRAMME\WOLFRAM RESEARCH\MATHEMATICA\4.0\work"

CreateDirectory["C:\work\MathematicaData\Hallo"]

SetDirectory["C:\work\MathematicaData\Hallo"]

SetDirectory["C:\Programme\Wolfram Research\Mathematica\5.2"]

?*Directory*

?*File*

FileNames[]

(* Old: !cd C:\\work;
   ReadList["!dir",String]*)

! CD "C:\work\MathematicaData";
FileNames[  ]

!CD C:\work\MathematicaData;
FileNames[  ]

FileNames[ "*dd*" ]

SetDirectory["C:\\work\MathematicaData"];
FileNames[  ]

Aeltere Version oder andere Systeme • Vieille version ou autres systèmes

?FindList

\( (*\ 
      FindList["!cd C:\EigeneMathWorkData\Daten;!dir", "AAA.x"]\ *) \)

(* FindList["C:\work\*","AAA"] *)

Aeltere Version  resp. UNIX • Vieille version  resp. UNIX

(* FindList["!cd C:\work;ls","A"] *)

(* FindList["!cd C:\work;ls","AA"] *)

(* FindList["!cd C:\work;ls","AAA"] *)

(* FindList["!cd C:\work;ls","AAA_"] *)

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

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

Remove["Global`*"]