PHP10 - プログラム倉庫

<?php
for ($year=8;$year<100;$year++){
for ($age=15;$age<70;$age++){
$mh[$year][$age] =100;
$fh[$year][$age] =100;
}
}

for ($year=8;$year<100;$year++){
for ($age=15;$age<70;$age++){
$m4[$year][$age] =50;
$f4[$year][$age] =50;
}
}

for ($year=8;$year<100;$year++){
for ($age=15;$age<70;$age++){
$m2[$year][$age] = $mh[$year][$age]-$m4[$year][$age];
$f2[$year][$age] = $fh[$year][$age]-$f4[$year][$age];
}
}
for ($year=8;$year<100;$year++){
$pop=0;
for ($age=15;$age<70;$age++){
$pop=$pop+$m2[$year][$age]+$f2[$year][$age];
}
print($year);
print(",");
print($pop);
print("<br/>");
}
$fp = fopen('gdata/gdata10.txt', 'w');
for ($year=8;$year<99;$year++){
for ($age=15;$age<70;$age++){
fwrite($fp,$year);
fwrite($fp, "\n");
fwrite($fp,$age);
fwrite($fp, "\n");
fwrite($fp,$m2[$year][$age]);
fwrite($fp, "\n");
fwrite($fp,$f2[$year][$age]);
fwrite($fp, "\n");
}
}
$year=99;
for ($age=15;$age<69;$age++){
fwrite($fp,$year);
fwrite($fp, "\n");
fwrite($fp,$age);
fwrite($fp, "\n");
fwrite($fp,$m2[$year][$age]);
fwrite($fp, "\n");
fwrite($fp,$f2[$year][$age]);
fwrite($fp, "\n");
}
$age=69;
fwrite($fp,$year);
fwrite($fp, "\n");
fwrite($fp,$age);
fwrite($fp, "\n");
fwrite($fp,$m2[$year][$age]);
fwrite($fp, "\n");
fwrite($fp,$f2[$year][$age]);
fclose($fp);
?>