php01 - プログラム倉庫

<?php
require("calldata.php");
$sql = "SELECT * FROM pdata01";
$result = mysql_query($sql, $link);
$n=1;
while( $row = mysql_fetch_row( $result ) ){
$matrix[$n][1] = $row[0];
$matrix[$n][2] =$row[1];
$matrix[$n][3] =$row[2];
$n=$n+1;
}
for ($n=1; $n < 101; $n++) {
$age =$matrix[$n][1];
$startm[$age] = $matrix[$n][2];
$startf[$age] = $matrix[$n][3];
}
$sql = "SELECT * FROM pdata02";
$result = mysql_query($sql, $link);
$n=1;
while( $row = mysql_fetch_row( $result ) ){
$matrix[$n][1] = $row[0];
$matrix[$n][2] =$row[1];
$matrix[$n][3] =$row[2];
$n=$n+1;
}
for ($n=1; $n < 3501; $n++) {
$year =$matrix[$n][1];
$age =$matrix[$n][2];
$birth[$year][$age] = $matrix[$n][3];
}

$sql = "SELECT * FROM pdata03";
$result = mysql_query($sql, $link);
$n=1;
while( $row = mysql_fetch_row( $result ) ){
$matrix[$n][1] = $row[0];
$matrix[$n][2] =$row[1];
$matrix[$n][3] =$row[2];
$matrix[$n][4] =$row[3];
$n=$n+1;
}
for ($n=1; $n < 10001; $n++) {
$year =$matrix[$n][1];
$age =$matrix[$n][2];
$mde[$year][$age] = $matrix[$n][3];
$fde[$year][$age] = $matrix[$n][4];
}

$sql = "SELECT * FROM xdata01";
$result = mysql_query($sql, $link);
$n=1;
while( $row = mysql_fetch_row( $result ) ){
$matrix[$n][1] = $row[0];
$matrix[$n][2] =$row[1];
$n=$n+1;
}
for ($n=1; $n < 102; $n++) {
$year =$matrix[$n][1];
$checkpop[$year]=$matrix[$n][2]/10;
}
$year=0;
for ($age=0; $age < 100; $age++) {
$man[$year][$age]=$startm[$age];
$f[$year][$age]=$startf[$age];
}

for ($year=1; $year< 100; $year++) {
for ($age=1; $age < 100; $age++) {
$man[$year][$age]=(1-$mde[$year-1][$age-1])*$man[$year-1][$age-1];
$f[$year][$age]=(1-$fde[$year-1][$age-1])*$f[$year-1][$age-1];
}
$baby=0;
for ($age=15; $age < 50; $age++) {
$baby=$baby+$birth[$year][$age]*$f[$year][$age];
}
$man[$year][0]=1.05*$baby/2.05;
$f[$year][0]=$baby/2.05;
$p1=0;
for ($age=0; $age < 100; $age++) {
$p1=$p1+$man[$year][$age]+$f[$year][$age];
}
$pop[$year]=$p1;
$rate=$checkpop[$year]/$pop[$year];
for ($age=0; $age < 100; $age++) {
$man[$year][$age]=$rate*$man[$year][$age];
$f[$year][$age]=$rate*$f[$year][$age];
}
}
$sql = "truncate pgdata01";
$exe= mysql_query($sql,$link);

for ($year=0; $year < 100; $year++) {
for ($age=0; $age < 100; $age++) {
$x=$man[$year][$age];
$y=$f[$year][$age];
$sql = "insert into pgdata01 values($year,$age,$x,$y)";
$exe= mysql_query($sql,$link);
}
}
$today = date("H:i:s");
print($today);
print(",");
for ($year=1; $year < 99; $year++) {
print($pop[$year]);
print(",");
print($checkpop[$year]);
print(",");
}
$year=99;
print($pop[$year]);
print(",");
print($checkpop[$year]);
?>