「年寄り人口推移の予測」の計算プログラムを，以下に示す。
言語は PHP。
| <![CDATA[
/****** 2021年の年齢別人口と死亡率 *****************************************/
$i = 0;
$population[$i++] = array( "0～4歳", 4306705 );
$population[$i++] = array( "5～9歳", 4958811 );
$population[$i++] = array( "10～14歳", 5293924 );
$population[$i++] = array( "15～19歳", 5507326 );
$population[$i++] = array( "20～24歳", 5889685 );
$population[$i++] = array( "25～29歳", 5950058 );
$population[$i++] = array( "30～34歳", 6204880 );
$population[$i++] = array( "35～39歳", 7084813 );
$population[$i++] = array( "40～44歳", 7953106 );
$population[$i++] = array( "45～49歳", 9545851 );
$population[$i++] = array( "50～54歳", 9078679 );
$population[$i++] = array( "55～59歳", 7688412 );
$population[$i++] = array( "60～64歳", 7298775 );
$population[$i++] = array( "65～69歳", 7799913 );
$population[$i++] = array( "70～74歳", 9620147 );
$population[$i++] = array( "75～79歳", 6678728 );
$population[$i++] = array( "80～84歳", 5540046 );
$population[$i++] = array( "85～89歳", 3859852 );
$population[$i++] = array( "90～94歳", 1900000 );
$population[$i++] = array( "95～99歳", 536000 );
$population[$i++] = array( "100歳以上", 85000 );
$population_n = $i;
$i = 0;
$death[$i++] = array( "0～4歳", 1883 );
$death[$i++] = array( "5～9歳", 330 );
$death[$i++] = array( "10～14歳", 441 );
$death[$i++] = array( "15～19歳", 1204 );
$death[$i++] = array( "20～24歳", 2183 );
$death[$i++] = array( "25～29歳", 2322 );
$death[$i++] = array( "30～34歳", 2863 );
$death[$i++] = array( "35～39歳", 4293 );
$death[$i++] = array( "40～44歳", 7154 );
$death[$i++] = array( "45～49歳", 13677 );
$death[$i++] = array( "50～54歳", 20948 );
$death[$i++] = array( "55～59歳", 27795 );
$death[$i++] = array( "60～64歳", 40094 );
$death[$i++] = array( "65～69歳", 69526 );
$death[$i++] = array( "70～74歳", 135816 );
$death[$i++] = array( "75～79歳", 158871 );
$death[$i++] = array( "80～84歳", 225185 );
$death[$i++] = array( "85～89歳", 292364 );
$death[$i++] = array( "90～94歳", 264183 );
$death[$i++] = array( "95～99歳", 134035 );
$death[$i++] = array( "100歳以上", 34262 );
$death_n = $i;
/****** 2021年の年齢別人口と死亡率の表作成 *****************************************/
print "
<table border=1 cellspacing=0 cellpadding=2>
<tr>
<td></td>
<td align=center> 人口 </td>
<td align=center> 死亡率 </td>
</tr>";
$total = 0;
$old = 0;
for( $i = 0; $i < $death_n; $i++ ){
$class = $population[$i][0];
$population_str = number_format( $population[$i][1] );
$death_ratio[$i] = round( ( $death[$i][1] / $population[$i][1] ), 5 );
$ratio_str = sprintf( "%.5f", $death_ratio[$i] );
$total = $total + $population[$i][1];
if( $i > 13 ){
$old = $old + $population[$i][1];
}
print "
<tr>
<td align=center>".$class."</td>
<td align=center>".$population_str."</td>
<td align=center>".$ratio_str."</td>
</tr>";
}
$total = number_format( round( $total, -3) / 1000 );
$old = number_format( round( $old, -3) / 1000 );
$ratio = round( ( $old * 100 / $total ), 1 );
print "
</table>
<br>
<table><tr><td>
総数：".$total." 千人
<br>70歳以上：".$old." 千人
<br>比：".$ratio." ％
</td></tr></table>
<br>";
****** 2026～2041年の年齢別人口推計値の表作成 *****************************************/
$population[0] = array( "0～4歳", 4300000 );
$death_ratio[0] = 0.00044;
print "
<table><tr>
";
for( $k= 0; $k < 4; $k++ ){
for( $i = $population_n - 1; $i > 0; $i-- ){
$pop = $population[$i - 1][1];
$ratio = ( $death_ratio[$i - 1] + $death_ratio[$i ] ) / 2;
for( $j= 0; $j < 5; $j++ ){
$dead = $pop * $ratio;
$pop = $pop - $dead;
}
$population[$i][1] = $pop;
}
print "
<td>
<table border=1 cellspacing=0 cellpadding=2>
<tr>
<td></td>
<td align=center>人口<br>(千人)</td>
<td align=center> </td>
</tr>";
$total = 0;
$old = 0;
for( $i = 0; $i < $death_n; $i++ ){
$class = $population[$i][0];
$pop_str = number_format( round( $population[$i][1], -3) / 1000 );
$total = $total + $population[$i][1];
if( $i > 13 ){
$old = $old + $population[$i][1];
}
print "
<tr>
<td align=center>".$class."</td>
<td align=center>".$pop_str."</td>
</tr>";
}
$total = number_format( round( $total, -3) / 1000 );
$old = number_format( round( $old, -3) / 1000 );
$ratio = round( ( $old * 100 / $total ), 1 );
print "
</table>
<br>
<table><tr><td>
総数：".$total." 千人
<br>70歳以上：".$old." 千人
<br>比率：".$ratio." ％
</td></tr></table>
</td>";
}
print "
</tr></table>
</center><ul>
<br><br>
]]> |
|