wolfram-mathematica - Mathematica による補間

Question

69 ポイント X= {x1,x2,....x69} のリストがあります。ポイントを補間して、曲線の補間から新しいリスト X1 を作成するにはどうすればよいですか? 得られた関数のテーブルを作成するよりも、ポイントを補間できますか?

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"}]

与える

PlotLegend(ps. 新しいオプションで V9 を使用)