Re: export plot data

*To*: mathgroup at smc.vnet.net*Subject*: [mg47924] Re: export plot data*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Fri, 30 Apr 2004 19:27:03 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <c6s3r6$pb8$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, plt = Plot[Sin[x], {x, 0, Pi}]; Export["tmp.txt", First[Cases[plt, _Line, Infinity] /. Line[pnts_] :> pnts], "Table"] Regards Jens grimal wrote: > > message to the list > > Dear list members, > > I have developed a Mathematica notebook with a Plot command at the end. > The evaluation of Plot[f,{x,xmin,xmax}] involves a function f that is > defined in the notebook; xmin and xmax are also functions defined in the > notebook and evaluated while doing the Plot. > I am satisfied with the result of the Plot command. > > Now, I would like to export in a txt file the data (list of points) > generated during the evaluation of the Plot. Then I could use the list > of points to plot the data with another software. > I have tried the Table command to generate a list but it does not seem > to work. > Can anybody help me? > > Thanks > > Quentin Grimal