wolfram-mathematica - 如何从 2D Mathematica 插值函数中获取离散数据？

Question

我正在使用 NDSolve[] 来积分轨道轨迹(使用 ExplicitRungeKutta)。 Mathematica 给了我

{{x[t]->InterpolatingFunction[{{0.,2000.}},<>][t],
y[t]->InterpolatingFunction[{{0.,2000.}},<>][t]}}

我的问题是如何将其放入原始数据表中，其中 t=0,1,2...2000？我尝试过:

path = Table[Solved, {t, 0, tmax}];

但是我得到了一大堆这样的东西:

{{{x[0] -> -0.523998, y[0] -> 0.866025}}, {{x[1] -> -0.522714, 
y[1] -> 0.886848}}, {{x[2] -> -0.480023, 
y[2] -> 0.951249}}, {{x[3] -> -0.369611, y[3] -> 1.02642}}

我想要这样的东西:

{{{-0.523998, 0.866025}}, {{-0.522714, 0.886848}}, etc

我没有太多使用这些插值函数的经验，任何帮助将不胜感激。

Answer 1

您返回的是规则，而不是直接返回的函数。为了访问插值函数本身，您需要进行规则替换。

而不是

Table[Solved, {t, 0, tmax}]

你需要

Table[Evaluate[{x[t], y[t]} /. Solved], {t, 0, tmax}];

Solved (我假设是 NDSolve 的输出)只是一个允许表达式 x[t] 的规则列表> 和 y[t] 将被替换为相应的插值函数，然后您可以对其进行评估。

查看 NDSolve 的 F1 帮助以获取更多示例。