p=0.4881;%女性比例
X0=[6325235 7082982 7109678 6978314 69738356743986 6770018 6136861 6243397 6522622 6623549 6413156 7110572 7064032 74298768499586 8995340 10014541 10010718 10464099 13825863 13198894 12193044 1281941311366731 9963699 9829885 9679225 11050548 9653457 9323642 9724876 95650418890254 10112568 10369084 11216336 11706855 12067901 12274679 13404096 1223260613249932 10499534 11759118 11710059 11488631 13168361 9850286 5600798 68918326213967 8047709 8929153 8307276 8637336 8756892 7994855 8014345 6826108 67011786339122 5557673 5298828 4936055 4509145 4249556 3938648 3836444 3831018 36648073149541 3443988 3194562 3116046 2941930 2721332 2662187 2271134 1976691 20207451558898 1545235 1272428 1058390 975341 813574 656292 534597 452314 359823244595 193519 142574 106924 81254 62225 46603 36334 25847 27082];
%各年龄段女性人口
C=eye(100);
b=[0.9960818 0.9989443 0.9994273 0.9996070.9996844 0.9997111 0.9997445 0.9997882 0.9997879 0.9997977 0.9997705 0.99977570.9997807 0.9997841 0.9997904 0.9997692 0.9997712 0.9997493 0.9997384 0.99974810.9997219 0.9997155 0.9996968 0.9996748 0.9996619 0.9996515 0.9996548 0.999630.9996396 0.9995869 0.9995608 0.9995246 0.9995144 0.999504 0.9994019 0.99938130.9993424 0.9993003 0.9992511 0.9991792 0.9990383 0.9990179 0.9988476 0.99881720.998676 0.9985085 0.9984929 0.9983584 0.9979886 0.9978723 0.9975907 0.99748080.9973588 0.9970323 0.9965928 0.9964576 0.9961242 0.9957695 0.9952694 0.99460260.9939155 0.993296 0.9924476 0.9918416 0.9903622 0.9893253 0.9889329 0.9869349 0.98580160.9831821 0.9801717 0.9788539 0.975437 0.9730998 0.9699595 0.9666939 0.96548760.9580139 0.9532837 0.9475289 0.9365998 0.9327475 0.9250689 0.9177134 0.908340.9014192 0.8937684 0.8820658 0.8677831 0.8566121 0.8374457 0.8256269 0.80847630.7998694 0.7970111 0.7824526 0.7790077 0.786807 0.7926623 0.7412324];
%各年龄生存率
X0=X0';
for i=1:100
C(i,:)=C(i,:)*b(1,i) ;
end
C;
a=[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.000110.00086 0.00321 0.00842 0.0144 0.03454 0.0573 0.07133 0.09251 0.09909 0.091580.08983 0.07979 0.08601 0.07297 0.05979 0.05379 0.04842 0.03623 0.03212 0.026470.02267 0.01866 0.01545 0.01188 0.01081 0.00766 0.00787 0.00573 0.0051 0.004830.00426 0.00493 0.00553 0.00372 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];%各年龄段生育率
%各年龄段生育率
d=zeros(101,1);
B=[a;C];
L=[B,d];%leslie矩阵
for i=0:1:50
X=L^i*X0;%第i年后,女性各年龄段人口数
z=X./p;%第i年,在各年龄段的人口总数预测
Z(1,i+1)=sum(z);
end
Z%2010-2060人口总数


雷达卡


京公网安备 11010802022788号







