wolfram-mathematica - 使用 Mathematica 的表函数创建点

Question

我正在尝试绘制我在mathematica表格中创建的点，但由于某种原因，我的点的一个组成部分似乎有双大括号，而另一个部分只有一个，如下所示:

{{x},y},{{x1},y1}....{{xn},yn}

和列表图不会将这些识别为点，也不会绘制它们。 这是我的数学代码:

Remove["Global`*"]
b = .1;
w = 1;
Period = 1;
tstep = 2 Pi/Period;
s = NDSolve[{x''[t] + b x'[t] - x[t] + x[t]^3 - .5 Cos[w t] == 0, 
 x'[0] == 0, x[0] == 0}, x[t], {t, 0, 1000}, MaxSteps -> Infinity];
x[t_] = x[t] /. s
data = Table[Evaluate[{x'[t], .5}], {t, 0, 1000, tstep}]
ListPlot[data]

我也尝试过使用该命令

ListPlot[Flatten[Table[Evaluate[{x'[t], .5}], {t, 0, 1000, tstep}]]]

也无济于事

ListPlot[Table[Evaluate[{Flatten[x'[t]], .5}], {t, 0, 1000, tstep}]]]

如何删除 {}？

Answer 1

您可以尝试以下方法:

Clear["Global`*"]
b = .1;
w = 1;
s = NDSolve[{x''[t] + b x'[t] - x[t] + x[t]^3 - .5 Cos[w t] == 0, 
    x'[0] == 0, x[0] == 0}, x[t], {t, 0, 1000}, MaxSteps -> Infinity];

xr[u_] := ((x[t] /. s[[1]]) /. t -> u)
Plot[(xr'[u]), {u, 0, 30}]  

但我不确定您想从 {x'[t], .5} 部分获取什么