人口统计预测程序.docVIP

人口统计预测程序 余时伟 人口统计预测程序1 t=1991:2009; y=[11.58,11.72,11.85,11.98,12.11,12.24,12.3626,12.4810,12.5909, 12.6743,... 12.7627,12.8453,12.9227,12.9988,13.0628,13.1448,13.2129,13.2802, 13.3474]; x=log(y); plot(t,x); A=[ones(length(t),1),t]; L=A\x; Yearandpeople1=[t;y] format short exp(L(2,1)*t+L(1,1)) for t=2003:2010 year=2003:2010; number=exp(L(2,1)*year+L(1,1)*ones(1,8)); end Yearandpeople2=[year/100;number] 2007年人口预测13.3363 亿人，实际13.2129亿人 人口统计预测程序2 clear format long T=1991:2009; N=[11.58,11.72,11.85,11.98,12.11,12.24,12.3626,12.4810,12.5909, 12.6743,... 12.7627,12.8453,12.9227,12.9988,13.0628,13.1448,13.2129,13.2802, 13.3474]; subplot(1,3,1),bar(T,N) L=polyfit(T,N,4); LT=polyval(L,T) subplot(1,3,2),plot(T,N,o,T,LT) r1=sum((N-LT).^2) out1=[N;LT] L2=polyfit(T,log(N),3); LT2=polyval(L2,T); subplot(1,3,3),plot(T,N,o,T,exp(LT2)) r2=sum((N-LT).^2) out2=[N;exp(LT2)] y2010=exp(polyval(L2,2010)) Year=2010:2030; y2030=exp(polyval(L2,Year)); [Year;y2030] 2007年人口预测值13.2159 亿人，实际值13.2129亿人 在不使用2008年人口数据情况下， 2008年人口预测值13.2583189亿人，实际值13.2802亿人，误差219万人； 在使用2008年人口数据情况下， 2008年人口预测值13.2714944亿人，实际值13.2802亿人，误差87万人. 2010年人口预测值13.399806236702204亿人，实际值13人，误差2.5577万人 中新网4月28日电 国家统计局今日发布第六次全国人口普查主要数据公报(第1号)，公报显示，普查登记的大陆31个省、自治区、直辖市和现役军人的人口共1339724852亿人。 13.43932074308395 2030年预测值为14.5275亿人， 人口统计模型的进一步分析 %Two ways are introduced and compared in following programs . clear erro1=zeros(1,7);erro2=zeros(1,7);T=1991:2009; format long N=[11.58,11.72,11.85,11.98,12.11,12.24,12.3626,12.4810,12.5909, 12.6743,... 12.7627,12.8453,12.9227,12.9988,13.0628,13.1448,13.2129,13.2802, 13.3474]; subplot(1,3,1),bar(T,N) for i=1:7 L=polyfit(T,N,i); LT=polyval(L,T); out1=[N;LT]; erro1(i)=sqrt(sum((out1(1,:)-out1(2,:)).^2)); L2=polyfit(T,log(N),i); LT2=polyval(L2,T); out2=[N;exp(LT2)]; erro2(i)=sqrt(sum((out2(1,:)-out2(2,:)).^2)); end [min_val,number1]=min(erro1); L=polyfit(T,N,number1); LT=polyval(L,T); subplot(1,3,2),plot(T,N,o,T,LT) number1,out1=[T;N;LT] [min_val,number2]