Liebe Kollegen,
Warum funktioniert die folgende Funktion nicht; resp. warum schreibt diese
Funktion die Matrix nicht in FortranForm raus, obwohl der Outputstream doch
so eroeffnet wurde? Ich benutze MMA 3.0 auf einem Macintosh.
WriteFMatrix[file_String,matrix_List,
separator_String:"\t"] :=
With[{myfile = OpenWrite[file,FormatType->FortranForm]},
Scan[(WriteString[myfile,First[#]];
Scan[WriteString[myfile,separator,#]&, Rest[#]];
WriteString[myfile, "\n"])&,matrix];
Close[myfile]]
Kann mir jemand weiterhelfen?
Mit freundlichen Gruessen,
Martin Heimann
------------------------------------------------------------------
Max-Planck-Institut fuer Meteorologie
Bundesstrasse 55, D-20146 Hamburg, Germany
Tel.: +49-40-41173-240/293/0, Fax.: +49-40-41173-173/298
Http://www.mpimet.mpg.de/gbc, Email:martin.heimann@XXXXXXX.de
--> NEW ADDRESS after October 1st, 1998:
Max-Planck-Institut fuer Biogeochemie
Postfach 100164, D-07745 Jena, Germany
(Street Address: Tatzendpromenade 1a)
Tel.: +49-3641-64-3773/3701, Fax.: +49-3641-64-3710
Email: martin.heimann@XXXXXXX.de
|