panda pro 33 - プログラム倉庫

<?php
require("calldata.php");
$sql = "SELECT * FROM pgdata05";
$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 < 5501; $n++) {
$year =$matrix[$n][1];
$age =$matrix[$n][2];
$m2[$year][$age] = $matrix[$n][3];
$f2[$year][$age] = $matrix[$n][4];
}
$sql = "SELECT * FROM pdata10";
$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 < 56; $n++) {
$age =$matrix[$n][1];
$gamma[$age] = $matrix[$n][2];
$alpha[$age] = $matrix[$n][3];
$beta[$age] = $matrix[$n][4];
}
$sql = "SELECT * FROM pdata11";
$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 < 46; $n++) {
$age =$matrix[$n][1];
$theta[$age] = $matrix[$n][2];
}
$sql = "SELECT * FROM pdata13";
$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 < 2201; $n++) {
$age =$matrix[$n][1];
$car = $matrix[$n][2];
$startmis[$age][$car]= $matrix[$n][3];
}
$sql = "SELECT * FROM pdata14";
$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 < 2201; $n++) {
$age =$matrix[$n][1];
$car = $matrix[$n][2];
$startmos[$age][$car]= $matrix[$n][3];
}

For ($year = 5;$year<100;$year++){
For ($age = 15;$age<69;$age++){
$byear=$year-$age+2000;
$m2by[$byear][$age]=$m2[$year][$age];
}
}
For ($byear = 1941;$byear<1990;$byear++){
$startage =2005-$byear;
For ($car=1;$car<50;$car++){  
$mis[$byear][$startage][$car] = $startmis[$startage][$car];
$mos[$byear][$startage][$car] = $startmos[$startage][$car];
}
For ($age = $startage+1;$age<65;$age++){
$z1 = (1-$gamma[$age-1]) * $m2by[$byear][$age-1];
$z2 = $m2by[$byear] [$age] - $z1;
If ($z2 < 0) {
$z2 = 0;
}
$z3=(1-$theta[$age])*$z2;
$z4 = $theta[$age]*$z2;
$mis[$byear][$age][1]=$z3;
$z5 = 0;
For ($car=1;$car<50;$car++){  
$z5 = $z5 + $mos[$byear][$age-1][$car];
}
If ($z5 == 0){
$z5 = 1;
}
$v = $z4 / $z5;
If ($v > 1){
$v = 1;
}
For ($car=2;$car<50;$car++){  
$mis[$byear][$age][$car] = (1-$gamma[$age-1]) * $mis[$byear][$age-1][$car-1] + $v * $mos[$byear][$age-1][$car-1];
}
For ($car=1;$car<50;$car++){  
$mos[$byear][$age][$car]  = ($gamma[$age-1] - $alpha[$age-1] - $beta[$age-1]) * $mis[$byear][$age-1][$car]  + (1- $v) * $mos[$byear][$age-1][$car];
}
}
$z1=0.00001;
$z2=0;
For ($car=1;$car<25;$car++){  
$z1 = $z1 + $mis[$byear][64][$car]+$mos[$byear][64][$car];
$z2 = $z2 +$car*($mis[$byear][64][$car]+$mos[$byear][64][$car]);
}
$mtime[$byear] = $z2/$z1;
}
$sql = "truncate pgdata33";
$exe= mysql_query($sql,$link);
for ($byear=1941;$byear<1990;$byear++){
$x=$mtime[$byear];
$sql = "insert into pgdata33 values($byear,$x)";
$exe= mysql_query($sql,$link);
}
$close_flag = mysql_close($link);
?>