php92 - プログラム倉庫

<?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 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<100;$year++){
$slide[$year]=0;
}

for ($year=12;$year<20;$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;
}

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

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

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