pjp65 - プログラム倉庫

<?php
require("calldata.php");
$sql = "SELECT * FROM eli61";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$rou[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli62";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$tu[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli63";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$iz[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli99";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$gen[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli64";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$rev[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli66";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$krou[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli67";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$ktu[$year][$age]= $matrix[$n][3];  
}

$sql = "SELECT * FROM eli100";
$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++){
$year= $matrix[$n][1];
$age= $matrix[$n][2];
$kiz[$year][$age]= $matrix[$n][3];  
}

for ($year=-100;$year<200;$year++){
$wari[$year]=0;
}

$r=0.041;
$wari[10]=1;
for ($year=11;$year<100;$year++){
$wari[$year]=$wari[$year-1]/(1+$r);
}

for ($byear=1920;$byear<2031;$byear++){
$e1=0;
for ($age=20;$age<100;$age++){
$year=$byear+$age-2000;
$e1=$e1+$wari[$year]*($rou[$year][$age]+$tu[$year][$age]+$iz[$year][$age]+$gen[$year][$age]);
}
$exp1[$byear]=$e1;
}

for ($byear=1920;$byear<2031;$byear++){
$e2=0;
for ($age=20;$age<100;$age++){
$year=$byear+$age-2000;
$e2=$e2+$wari[$year]*($krou[$year][$age]+$ktu[$year][$age]+$kiz[$year][$age]);
}
$exp2[$byear]=$e2;
}

for ($byear=1920;$byear<2031;$byear++){
$e3=0;
for ($age=15;$age<70;$age++){
$year=$byear+$age-2000;
$e3=$e3+$wari[$year]*$rev[$year][$age];
}
$exp3[$byear]=$e3;
}


$sql = "truncate eli65";
$exe= mysql_query($sql,$link);
for ($byear=1920;$byear<2031;$byear++){
$x=$exp1[$byear];
$y=$exp2[$byear];
$z=$exp3[$byear];
$sql = "insert into eli65 values($byear,$x,$y,$z)";
$exe= mysql_query($sql,$link);
}
$close_flag = mysql_close($link);
print("65 世代会計 計算終了");
?>