预测问题（三次埃尔米特插值预测和三次样条插值预测）

预测2008-2015

代码：

 

clc;
clear;
y=[1017
1036.5
792
861
901.5
922.5
916.5
976.5
1024.5
1003.5
1069.5
1168.5
1228.5
1023
1144.5
1122
1276.5
1233
];
y=y';
x=[1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
];
x=x';

area=1990:2015;
p1=pchip(x,y,area);
p2=spline(x,y,area);
plot(x,y,"o",area,p1,"r*",area,p2,"bx");
legend("样本点","三次埃尔米特插值","三次样条插值","location",'SouthWest');