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