Re: exporting numerical data
- To: mathgroup at smc.vnet.net
- Subject: [mg106673] Re: exporting numerical data
- From: shinytinkerbell <shinytinkerbell at googlemail.com>
- Date: Thu, 21 Jan 2010 04:49:29 -0500 (EST)
Ok, I've written my own function for doing this but I really strongly
believe that it would be very useful to introduce such function "by
default" in next version of Mathematica. It's so natural that people
would like/need store their data in such a way, isn't it?
I paste my function, maybe it will help somebody else.
Export3Darray[fname_String, lst_List, Ni_, Nj_] :=
Module[{f, ReducedArray}, f = OpenAppend[fname, FormatType ->
CForm];
For[i = 0, i < Ni, i += 1,
For[j = 0, j < Nj, j += 1,
ReducedArray = lst[[i + 1, j + 1]];
WriteString[f, ToString[ReducedArray[[1]]], "\t",
ToString[ReducedArray[[2]]], "\t", ToString[ReducedArray[[3]]],
"\n"];
Clear[ReducedArray];
]
]
Close[f];
];
You can easily extend/change this particular function to any dimension
of your array.
--
Regards,
tinkerbell