用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）