一个简单的问题，怎么用mathematica数值求出微分方程的一系列点能用在origin上的

就是我有一个微分方程，要用mathematica求出它的一百个点的坐标，然后我才能把这些点用origin画出来

eg:
s = NDSolve[{y'[x] == y[x] Cos[x + y[x]], y[0] == 1}, y, {x, 0, 30}]
c = Transpose[{Table[b, {b, 0, 30}],
a = Table[y[x] /. s, {x, 0, 30}] // Flatten}]
Export["1.xls", %56] // SystemOpen
应该说MMA画图很不错，但是Origin上手速度更快，所以才进行这样复杂的导出操作。事实上，MMA导出的eps格式或者pdf格式配合开源的LaTeX，会取得很好的展示效果。