PHP100 - プログラム倉庫

<?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 eli40";
$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 eli35";
$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 eli90";
$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];  
$mwage[$byear] = $matrix[$n][2];
$fwage[$byear] = $matrix[$n][3];
}

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

$sql = "SELECT * FROM eli92";
$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 ($byear=1910;$byear<1945;$byear++){
$kg[$byear]=1;
}
for ($byear=1945;$byear<2035;$byear++){
$kg[$byear]=(1+$g)*$kg[$byear-1];
}

for ($year=10;$year<100;$year++){
for ($age=60;$age<100;$age++){
$byear=$year-$age+2000;
$syear=$byear;
if ($syear<1950)$syear=1950;
$e1=0;
$e1=$e1+0.75*260*$kg[$byear]*$pslide[$byear][$age]*$mwage[$syear]*$mtime[$byear]*$mj[$year][$age]*$jyo[$byear]/1000;
$e1=$e1+0.75*220*$kg[$byear]*$pslide[$byear][$age]*$fwage[$syear]*$ftime[$byear]*$fj[$year][$age]*$jyo[$byear]/1000;
$iz[$year][$age]=$e1/10000;
}
}

$sql = "truncate eli100";
$exe= mysql_query($sql,$link);

for ($year=10;$year<100;$year++){
for ($age=60;$age<100;$age++){
$x=$iz[$year][$age];
$sql = "insert into eli100 values($year,$age,$x)";
$exe= mysql_query($sql,$link);
}
}
$close_flag = mysql_close($link);
print("100 世代基礎遺族年金 計算終了");
?>