QB59 - プログラム倉庫

/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
package eli;

class make59{

int byear,year,age,cho,stage;
double z1,z2,s1;
double sl[]=new double[200];
double kg[]=new double[100];
double krate[][]=new double[200][100];
double m4[][]=new double[100][100];
double f4[][]=new double[100][100];
double m3[][]=new double[100][100];
double f3[][]=new double[100][100];
double m2[][]=new double[100][100];
double f2[][]=new double[100][100];
double m1[][]=new double[100][100];
double f1[][]=new double[100][100];
double m5[][]=new double[100][100];
double f5[][]=new double[100][100];

void makedata(double p,double g){

make09 mk09=new make09();
mk09.makedata();
m4=mk09.m4;
f4=mk09.f4;

make10 mk10=new make10();
mk10.makedata();
m2=mk10.m2;
f2=mk10.f2;

make49 mk49=new make49();
mk49.makedata();
m3=mk49.m3;
f3=mk49.f3;

make50 mk50=new make50();
mk50.makedata();
m5=mk50.m5;
f5=mk50.f5;

make51 mk51=new make51();
mk51.makedata();
m1=mk51.m1;
f1=mk51.f1;

cho=1900;

for(year = 12;year<39;year++){
z1 = 0;
for(age = 15;age<70;age++){
z1 = z1 + m1[year][age] + m2[year][age] + m3[year][age] + m4[year][age] + m5[year][age];
z1 = z1 + f1[year][age] + f2[year][age] + f3[year][age] + f4[year][age] + f5[year][age];
}
z2 = 0;
for(age = 15;age<70;age++){
z2 = z2 + m1[year+1][age] + m2[year+1][age] + m3[year+1][age] + m4[year+1][age] + m5[year+1][age];
z2 = z2 + f1[year+1][age] + f2[year+1][age] + f3[year+1][age] + f4[year+1][age] + f5[year+1][age];
}
sl[year] = -(z2 / z1 - 1) + 0.003;
}

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

for(byear = 1911;byear<1945;byear++){  
stage = 2010 - byear;
krate[byear-cho][stage] = 1 ;
for(age = stage+1;age<100;age++){
s1 = 0;
year=byear+ age - 2000;
krate[byear-cho][age] = (1 + p - s1) * krate[byear-cho][age - 1];
}
}

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

}

}