Re: Formatted Output (Exporting Data)
- To: mathgroup at smc.vnet.net
- Subject: [mg64429] Re: [mg64415] Formatted Output (Exporting Data)
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 17 Feb 2006 04:11:36 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
f[x_]:=x^2;
t=Table[{x,f[x]},{x,-1,1,1/5}]/.
x_Rational:>N[x,6];
Export["foo.d",t,"TSV"];
Bob Hanlon
>
> From: "tlhiv" <thenders at gmail.com>
To: mathgroup at smc.vnet.net
> Subject: [mg64429] [mg64415] Formatted Output (Exporting Data)
>
> I'm trying to export the data obtained by evaluating a function at
> certain points. The method that I'm currently using is:
>
> f[x_]:=x^2
> Export["foo.d",Table[{x, f[x]}, {x, -1, 1, 0.2}], "Table"]
>
> This generates a file "foo.d" that look like:
>
> -1 1
> -0.8 0.6400000000000001
> -0.6 0.36
> -0.39999999999999997 0.15999999999999998
> -0.19999999999999996 0.03999999999999998
> 5.551115123125783e-17 3.0814879110195774e-33
> 0.20000000000000007 0.04000000000000003
> 0.4000000000000001 0.16000000000000006
> 0.6000000000000001 0.3600000000000001
> 0.8 0.6400000000000001
> 1. 1.
>
> I would very much like to have "foo.d" look like:
>
> -1 1
> -0.8 0.64
> -0.6 0.36
> -0.4 0.16
> -0.2 0.04
> 0 0
> 0.2 0.04
> 0.4 0.16
> 0.6 0.36
> 0.8 0.64
> 1 1
>
> and with the delimeter being a TAB instead of a SPACE. In particular,
> the precision used above is not so good. I would like everything
> rounded off to, say, 6 significant digits. An analogous C style output
> would be something like
>
> fprintf(fid,"%6f\t%6f\n,x,f)
>
> and is performed for each "element" of x. Can this be accomplished
> easily with Mathematica?
>
> Thanks,
>
> Troy Henderson
> Assistant Professor
> Department of Mathematical Sciences
> 252 Thayer Hall
> United States Military Academy
> West Point, NY 10996
> (845) 938-5649
> http://www.tlhiv.org
>
>
Bob Hanlon
Chantilly, VA