Re: saving a list.
- To: mathgroup at smc.vnet.net
- Subject: [mg18965] Re: saving a list.
- From: "David Keith" <dkeith at sarif.com>
- Date: Fri, 30 Jul 1999 01:33:52 -0400
- Organization: Hevanet Communications
- References: <7nlolp$bam@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Dave,
This is a function I for myself. Its complication comes from the fact that I
wanted it to handle arrays of dimension>2 as well.
In[1]:=
writeArray[filename_, arrayname_] := Module[{makeStringList, outfile},
outfile = OpenWrite[filename];
makeDepth3[lst_] :=
Module[{x}, x = lst; While[Depth[x] < 3, x = {x}];
While[Depth[x] > 3, x = Flatten[x, 1]]; x];
makeStringList[lst_] :=
Flatten[{Drop[
Flatten[Transpose[{Map[ToString, lst],
Table[" ", {Length[lst]}]}]], -1], {"\n"}}];
Scan[WriteString[outfile, Sequence @@ makeStringList[#]] &,
makeDepth3[arrayname], {1}]; Close[outfile]
]
In[2]:=
a = Table[i j, {i, 4}, {j, 2}]
Out[2]=
{{1, 2}, {2, 4}, {3, 6}, {4, 8}}
In[3]:=
writeArray["tmp.txt", a]
Out[3]=
"tmp.txt"
In[4]:=
!! tmp.txt
1 2
2 4
3 6
4 8
Dave Berube wrote in message <7nlolp$bam at smc.vnet.net>...
>I am writing a program that inputs 2 lists of numbers each with two
>columns, and creates a 3rd list also with two columns.
>
>For Example, lets say that the files file.txt and file2.txt look like this:
>
>file.txt file2.txt
>
>1 1.5 0 3.6
>2 4.6 2 1.9
>3 6.8 6 4.2
>
>I can read them into Mathematica with ReadList
> A = ReadList["file.txt", {Number, Number}]
> B = ReadList["file2.txt", {Number, Number}]
>
>then I do all my operations that I need to do on them and come up with a
>two column matrix C.
>
>In plain old Mathematica form it looks like, say,
>
>C = {{1, 2.7}, {2, 1.9}, {3, 3.0}}
>
>But I want to get a file, call it file3.txt, that contains just 2 columns,
>like file.txt and file2.txt.
>
>I've tried TableForm and MatrixForm, etc. to format the output and then
>used Save to save it, but when I open the text file, I get all this junk
>in there (Gridbox, TableForm, and all the braces and stuff actually in the
>text file).
>
>So is there a way for me to have Mathematica save the information as a
>plain old text file with two columns of numbers, no words, no braces, none
>of that junk.
>
>Thanks for any help.
>-Dave Berube
>
>