RE: Exportproblem

["Andre El-Ama" <Andre@XXXXXXX.de>]

Hallo Udo,

Vielen Dank für Deine Bemühungen!

Perfekte Lösung.

Mit freundlichen Grüßen

[André El-Ama]

-----Original Message-----
From: owner-demug@XXXXXXX.ch [mailto:owner-demug@XXXXXXX.ch]On
Behalf Of Udo und Susanne Krause
Sent: Sunday, January 25, 2004 10:48 AM
To: Andre El-Ama
Cc: DMUG; Winfried Bilgic
Subject: Re: Exportproblem

Guten Morgen André && Winfried,

Nix da mit C/C++ und Perl - man kann auch in Mathematica low level
prozedural hacken. In dem Fall habe ich nach 30 Minuten mit Export[]
aufgegeben: man will diese Matrix herausschreiben, und nicht unbedingt
Export[] benutzen. Man sollte die Berechnung der Statistik (Herstellen des
Ergebnisses) von der Formatierung und von der Ausgabe trennen und einfach
low level herausschreiben.
Das Ganze verpacken Sie in eine ExportProzedur (wie hier in der DMUG schon
öfter diskutiert) und machen Ihre verschiedenen Formate und den
Datenfilenamen zu Eingabeparametern. Mit anderen Worten:

In[23]:= Remove[matrix]
matrix = ReadList["test\Dat_10_15.txt", {Table[Real, {15}], {Real}}, \
RecordLists -> False];

In[48]:=
(* das Ergebnis matrixR herstellen *)
Remove[matrixR];
matrixR = {};
For[i=1,i=10,i++,
    FeatureDiff=FeatureInput[[i]]-Min[FeatureInput[[i]]];
    AppendTo[matrixR, Join[FeatureDiff-Mean[FeatureDiff],
Last[matrix[[i]]]]]
    ];

In[85]:=
(* Formatiere und Exportiere *)
DeleteFile[".\\test\\TabR.dat"];
streaM = OpenWrite[".\\test\\TabR.dat"];
For[z = 1, z = Length[matrixR], z++,
  aString = "";
  For[s = 1, s < Length[matrixR[[z]]], s++,
    aString = StringJoin[aString, ToString[NumberForm[matrixR[[z, s]], {4,
3}, ExponentFunction \[Rule] (Null &)]]," "];
    ];
  aString = StringJoin[aString, ToString[NumberForm[Last[matrixR[[z]]], {1,
0}, NumberPoint \[Rule] "\n"]]];
  WriteString[streaM, aString];
  ]
Close[streaM];

In[89]:=
!!.\\test\\TabR.dat

-0.014 -0.014 -0.014 0.01 -0.014 -0.014 -0.014 0.018 0.025 0.018
0.018 -0.021 0.01 0.002 0.01 1
0.027 0.02 -0.004 0.02 0.02 0.004 -0.004 0.004 0.012 -0.092 0.02
0.004 -0.004 0.004 -0.027 0
0.015 -0.017 0.007 -0.001 -0.009 0.007 -0.009 0.015 0.022
0.007 -0.009 -0.009 -0.017 -0.001 -0.001 1
0.045 0.029 0.006 -0.002 0.006 0.006 -0.033 0.006 -0.002 -0.026 -0.002
0.006 -0.018 -0.01 -0.018 0
0.041 -0.055 0.01 0.041 -0.055 0.01 0.002 0.01 0.002 0.01 0.002 -0.021 0.002
0.01 -0.014 1
-0.009 -0.001 -0.04 -0.017 -0.017 -0.009 -0.001 -0.001 0.007 0.022 0.014
0.014 0.022 0.014 0.007 0
-0.012 -0.004 0.02 0.012 0.012 -0.012 -0.004
0.012 -0.004 -0.004 -0.012 -0.004 -0.004 -0.012 0.012 1
-0.024 -0.031 -0.024 0.000 0.000 -0.024 0.031 0.000 0.000 0.031 0.015 0.000
0.031 0.000 -0.008 0
0.01 -0.029 -0.021 -0.029 -0.005 0.002 0.01 0.018 0.018 0.034 0.018 0.002
0.01 -0.005 -0.029 1
-0.267 -0.298 -0.275 -0.314 -0.267 -0.29 -0.282 -0.251 -0.323 0.565 0.565
0.572 -0.267 0.565 0.565 0

Schönen Sonntag wünscht
Udo.