Re: how to export to Excel in Mathematica from a Parametricplot command
- To: mathgroup at smc.vnet.net
- Subject: [mg127189] Re: how to export to Excel in Mathematica from a Parametricplot command
- From: "Alexey Popkov" <lehin.p at gmail.com>
- Date: Wed, 4 Jul 2012 03:36:23 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jstl0d$k81$1@smc.vnet.net>
<mrafiee20 at gmail.com> wrote: news:jstl0d$k81$1 at smc.vnet.net... > Hi all, > > This example is from Mathematica: > http://reference.wolfram.com/mathematica/ref/ParametricPlot.html > > NDSolve[{y'[t] == y[t] (x[t] - 1), x'[t] == x[t] (2 - y[t]), > x[0] == 1, y[0] == 2.7}, {x, y}, {t, 0, 10}]; > ParametricPlot[Evaluate[{x[t], y[t]} /. First[%]], {t, 0, 10}] > > My question is: > How can I export the results (*.xls or *.dat) to plot it with other > programs like Origin pro, Excel, Tecplot, etc.? > > Try this: NDSolve[{y'[t] == y[t] (x[t] - 1), x'[t] == x[t] (2 - y[t]), x[0] == 1, y[0] == 2.7}, {x, y}, {t, 0, 10}]; f[t_] = {x[t], y[t]} /. First[%]; ParametricPlot[f[t], {t, 0, 10}] points = First@Cases[%, l_Line :> First@l, Infinity]; Export["points.dat", points, "Table"] HTH, Alexey