php59 - プログラム倉庫

<?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];  
$matrix[$n][5]  =$row[4];  
$matrix[$n][6]  =$row[5];
$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];
$px4[$num]=$matrix[$n][5];
$px5[$num]=$matrix[$n][6];
}

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

$sql = "SELECT * FROM eli09";
$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];
$m4[$year][$age]=$matrix[$n][3];
$f4[$year][$age]=$matrix[$n][4];
}

$sql = "SELECT * FROM eli10";
$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];
$m2[$year][$age]=$matrix[$n][3];
$f2[$year][$age]=$matrix[$n][4];
}

$sql = "SELECT * FROM eli49";
$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];
$m3[$year][$age]=$matrix[$n][3];
$f3[$year][$age]=$matrix[$n][4];
}

$sql = "SELECT * FROM eli50";
$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];
$m5[$year][$age]=$matrix[$n][3];
$f5[$year][$age]=$matrix[$n][4];
}

$sql = "SELECT * FROM eli51";
$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];
$m1[$year][$age]=$matrix[$n][3];
$f1[$year][$age]=$matrix[$n][4];
}


for ($year=10;$year<200;$year++){
$slide[$year]=0;
}

for ($year=12;$year<$stopyear+1;$year++){
$p1=0;
for ($age=15;$age<70;$age++){
$p1=$p1+$m1[$year][$age]+$f1[$year][$age];
$p1=$p1+$m2[$year][$age]+$f2[$year][$age];
$p1=$p1+$m3[$year][$age]+$f3[$year][$age];
$p1=$p1+$m4[$year][$age]+$f4[$year][$age];
$p1=$p1+$m5[$year][$age]+$f5[$year][$age];
}
$p2=0;
for ($age=15;$age<70;$age++){
$p2=$p2+$m1[$year+1][$age]+$f1[$year+1][$age];
$p2=$p2+$m2[$year+1][$age]+$f2[$year+1][$age];
$p2=$p2+$m3[$year+1][$age]+$f3[$year+1][$age];
$p2=$p2+$m4[$year+1][$age]+$f4[$year+1][$age];
$p2=$p2+$m5[$year+1][$age]+$f5[$year+1][$age];
}
$slide[$year]=-($p2/$p1-1)+0.003;
}

$kg[10] = 1.08;
for ($year=11;$year<100;$year++){
$s1 = $slide[$year];
$kg[$year] = (1 + $g - $s1) * $kg[$year-1];
}

for ($byear=1911;$byear<1945;$byear++){
$startage = 2010 - $byear;
$pslide[$byear][$startage] = 1;
for ($age=$startage+1;$age<100;$age++){
$s1 = $slide[$year];
$year = $byear+$age - 2000;
$pslide[$byear][$age] = (1 + $p - $s1) * $pslide[$byear][$age-1];
}
}

for ($byear=1945;$byear<2035;$byear++){
$year = $byear + 65 - 2000;
$pslide[$byear][65] =$kg[$year];
for ($age=66;$age<100;$age++){
$year = $byear + $age - 2000;
$s1 = $slide[$year];
$pslide[$byear][$age] = (1 + $p - $s1) * $pslide[$byear][$age-1];
}
}

$sql = "truncate eli59";
$exe= mysql_query($sql,$link);
for ($byear=1911;$byear<2035;$byear++){
for ($age=65;$age<100;$age++){
$x=$pslide[$byear][$age];
$sql = "insert into eli59 values($byear,$age,$x)";
$exe= mysql_query($sql,$link);
}
}
$close_flag = mysql_close($link);
print("59 基礎スライド 計算終了");
?>