wolfram-mathematica - 用数学插值

Question

我有一个 69 点 X= {x1,x2,....x69} 的列表。我如何对点进行插值并从曲线的插值中创建一个新的列表 X1 但有 2059 个点？我可以对点进行插值，而不是为获得的函数制作表格吗？

Answer 1

单程：

to = 10;
oldData = {#, RandomReal[]} & /@ Range[to];
f = Interpolation[oldData, InterpolationOrder -> 3];
newData = {#, f[#]} & /@ FindDivisions[{1, to}, 40];

ListPlot[{newData, oldData}, 
 PlotStyle -> {{Directive[PointSize[Medium]], Red}, Blue}, 
 Joined -> True, Mesh -> All, AxesOrigin -> {0, 0}, 
 PlotLegends -> {"new data", "old data"}]

给

(ps. 使用带有新PlotLegend选项的 V9)