附件1:
clear
A=[566,632,745,755,769,789,985,1110,1313,1428,1782,1920,2150,2292,2601,3149,4338,5145,5809,6241,6854,7656,8772,10007,11374,12567,14332,16614,19228,22844,26404,29688,32074];
syms a b;
c=[a b]';
B=cumsum(A);
n=length(A);
for i=1:(n-1);
C(i)=(B(i)+B(i+1))/2;
end
D=A;D(1)=[];
D=D';
E=[-C;ones(1,n-1)];
c=inv(E*E')*E*D;
c=c';
a=c(1);b=c(2);
F=[];F(1)=A(1);
for i=2:(n+25)
F(i)=(A(1)-b/a)/exp(a*(i-1))+b/a;
end
G=[];G(1)=A(1);
for i=2:(n+25)
G(i)=F(i)-F(i-1);
end
t1=1978:2010;
t2=1978:2035;
plot(t1,A,'o',t2,G)