php28 - プログラム倉庫

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

$sql = "SELECT * FROM data151";
$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++) {
$age =$matrix[$n][1];
$gamma[$age] = $matrix[$n][2];
$alpha[$age] = $matrix[$n][3];
$beta[$age] = $matrix[$n][4];
}

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

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

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

For ($byear = 1949;$byear<1990;$byear++){

$stage =2008-$byear;
For ($car=1;$car<50;$car++){  
$mis[$stage][$car] = $mint[$stage][$car];
$mos[$stage][$car] = $mout[$stage][$car];
}

For ($age = $stage+1;$age<65;$age++){
$z1=(1-$gamma[$age-1]) * $m2by[$byear][$age-1];
$z2=$m2by[$byear][$age] - $z1;
If($z2<0)$z2 = 0;  
$z3=(1-$theta[$age])*$z2;
$z4=$theta[$age]*$z2;
$mis[$age][1]=$z3;
$z5=0;
For ($car=1;$car<50;$car++){  
$z5=$z5+$mos[$age-1][$car];
}
If($z5==0)$z5=100;  
$v[$age]=$z4/$z5;
If($v[$age] >1)$v[$age] = 1;  
For ($car=2;$car<50;$car++){  
$mis[$age][$car]=(1-$gamma[$age-1])*$mis[$age-1][$car-1]+$v[$age]*$mos[$age-1][$car-1];
}

For ($car=1;$car<50;$car++){  
$mos[$age][$car]  = ($gamma[$age-1] - $alpha[$age-1] - $beta[$age-1]) * $mis[$age-1][$car]  + (1- $v[$age]) * $mos[$age-1][$car];
}

}

$z6=0;
For ($car=1;$car<25;$car++){  
$z6=$z6+$mis[64][$car]+$mos[64][$car];
}
$mnew[$byear] = $z6;
}

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

for ($byear=1950;$byear<1990;$byear++){
$x=$mnew[$byear];
$sql = "insert into eli28 values($byear,$x)";
$exe= mysql_query($sql,$link);
}
$close_flag = mysql_close($link);
print("28 男子通算年金新規裁定者２ 計算終了");
?>