ぱんだ プロ １７ - プログラム倉庫

<?php
require("calldata.php");
$sql = "SELECT * FROM pgdata15";
$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][2]  =$row[2];
$n=$n+1;
}
for ($n=1; $n < 95; $n++) {
$byear =$matrix[$n][1];
$mnew[$byear]=$matrix[$n][2];
$fnew[$byear]=$matrix[$n][3];
}
$sql = "SELECT * FROM pdata17";
$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 < 100; $n++) {
$age =$matrix[$n][1];
$startmj[$age]=$matrix[$n][2];
$startfj[$age]=$matrix[$n][3];
}
$sql = "SELECT * FROM pdata19";
$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 < 100; $n++) {
$age =$matrix[$n][1];
$mde[$age]=$matrix[$n][2];
}
$sql = "SELECT * FROM pdata20";
$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 < 100; $n++) {
$age =$matrix[$n][1];
$fde[$age]=$matrix[$n][2];
}
for ($age=0; $age < 100; $age++) {
$mj[5][$age]=$startmj[$age];
$fj[5][$age]=$startfj[$age];
}
for ($year=6; $year < 100; $year++) {
for ($age=1; $age < 100; $age++) {
$mj[$year][$age]=(1-$mde[$age])*$mj[$year-1][$age-1];
$fj[$year][$age]=(1-$fde[$age])*$fj[$year-1][$age-1];
}
$byear=$year+2000-65;
$mj[$year][$age]=$mj[$year][$age]+$mnew[$byear];
$fj[$year][$age]=$fj[$year][$age]+$fnew[$byear];
}
$sql = "truncate pgdata17";
$exe= mysql_query($sql,$link);
for ($year=5;$year<100;$year++){
for ($age=0; $age < 100; $age++) {
$x=$mj[$year][$age];
$y=$fj[$year][$age];
$sql = "insert into pgdata17 values($year,$age,$x,$y)";
$exe= mysql_query($sql,$link);
}
}
$close_flag = mysql_close($link);
?>