Re: Speed of writing in Mathematica 3.01
- To: mathgroup@smc.vnet.net
- Subject: [mg11811] Re: Speed of writing in Mathematica 3.01
- From: bawolk@ucdavis.edu (Bruce Wolk)
- Date: Tue, 31 Mar 1998 02:28:30 -0500
- Organization: University of California, Davis
- References: <6fd5ag$6aq@smc.vnet.net>
On 26 Mar 1998 03:57:52 -0500, bridges@en.com (James Bridges) wrote:
>Am I doing something wrong or is it supposed to take orders of magnitude
>longer than is reasonable to write out a simple ASCII file from
>Mathematica? Consider this simple test:
>
>In[7]:=
>a=Table [i,{i,1,1001}];
>
>In[8]:=
>Timing[
>filename="Macintosh HD:test.ascii";
>output=OpenWrite[filename];
>Do[
> Write[output,a[[i]]];
>,{i,1,1001}];
>Close[output];
> ]
>
>Out[8]=
>{23.4 Second,Null}
>
>23 seconds to write 1001 integers?! On a 233MHz G3! Everything else is
>whiff-bam fast, but writing is glacial. Now this is a simplified
>example of what I need to do but it contains one of the factors, namely
>that I have to individually write out elements of a list, hence the Do
>loop. Any hints?
>
>James Bridges
>
>--
>James Bridges
>Cleveland, OH
>
I obtain an almost identically slow result on a Pentium 133MHz:
In[2]:=
a = Table[i,{i,1001}];
Timing[
filename="test.tmp";
output=OpenWrite[filename];
Do[Write[output,a[[i]]];,{i,1,1001}];
Close[output];]
Out[2]=
{23.07 Second,Null}
In[3]:=
$Version
Out[3]=
"Microsoft Windows 3.0 (October 6, 1996)"
Bruce