MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

How to simplify this routine which is able to export data into TXT file?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31229] How to simplify this routine which is able to export data into TXT file?
  • From: liwen liwen <gzgear at yahoo.com>
  • Date: Sat, 20 Oct 2001 04:27:02 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,
This routine is able to export many points into a TXT
file, is it possible to simplfy it with the pure
function?

ExportAllPoints[pointset_, filename_] := Module[{stmp,
m, n},
      (stmp = OpenAppend[filename]; n =
Length[pointset]; m = 1;
        While[(m <= n),
          (Scan[WriteString[stmp, #, "    "] &,
Part[pointset, m]];
            WriteString[stmp, "\n"];
            m = m + 1;
            )];
        Close[stmp];
        )];


data = {{4, 5, 6}, {5, 4, 3}, {8, 9.7778, 0}, {78, 89,
90, 675}};
ExportAllPoints[data, "data.txt"]

Liwen

__________________________________________________
Do You Yahoo!?
Make a great connection at Yahoo! Personals.
http://personals.yahoo.com


  • Prev by Date: Re: Switching x and y axes in 2D plots
  • Next by Date: Re: webMathematica
  • Previous by thread: RE: FractionalPart
  • Next by thread: How to set font size?