php67 - プログラム倉庫

<?php
require("calldata.php");

$sql = "SELECT * FROM plan";
$result = mysql_query($sql, $link);
while( $row = mysql_fetch_row( $result ) ){
$plan = $row[0];  
}  

$sql = "SELECT * FROM policy";
$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;
}
$maxn=$n;
for ($n=1;$n<$maxn;$n++){
$num=$matrix[$n][1];
$px1[$num]=$matrix[$n][2];
$px2[$num]=$matrix[$n][3];
$px3[$num]=$matrix[$n][4];
}

$p = $px1[$plan];
$g = $px2[$plan];  
$r=  $px3[$plan];

$sql = "SELECT * FROM eli39";
$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;
}
$maxn=$n;
for ($n=1; $n < $maxn; $n++) {
$year =$matrix[$n][1];
$age =$matrix[$n][2];
$mj[$year][$age] = $matrix[$n][3];
$fj[$year][$age] = $matrix[$n][4];
}

$sql = "SELECT * FROM eli56";
$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;
}
$maxn=$n;
for ($n=1; $n < $maxn; $n++) {
$byear =$matrix[$n][1];  
$mtime[$byear] = $matrix[$n][2];
$ftime[$byear] = $matrix[$n][3];
}

$sql = "SELECT * FROM eli59";
$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;
}
$maxn=$n;
for ($n=1; $n < $maxn; $n++) {
$byear =$matrix[$n][1];  
$age =$matrix[$n][2];  
$pslide[$byear][$age] = $matrix[$n][3];  
}



for ($year=10;$year<100;$year++){
for ($age=65;$age<100;$age++){
$byear=$year-$age+2000;
$e1=0;
$e1 =$e1+$pslide[$byear][$age]*80*$mtime[$byear]*$mj[$year][$age]/40;  
$e1 =$e1+$pslide[$byear][$age]*80*$ftime[$byear]*$fj[$year][$age]/40;  
$tu[$year][$age]=$e1/10000;
}
}

$sql = "truncate eli67";
$exe= mysql_query($sql,$link);
for ($year=10;$year<100;$year++){
for ($age=65;$age<100;$age++){
$x=$tu[$year][$age];
$sql = "insert into eli67 values($year,$age,$x)";
$exe= mysql_query($sql,$link);
}
}
$close_flag = mysql_close($link);
print("67 世代通算基礎年金 計算終了");
?>