５９ぺｎ - プログラム倉庫

class ex59{

int byear,year,age,cho,stage;
double p,g;
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 gx,double px,String file){

ex09 sub09=new ex09();
sub09.makedata(file);
m4=sub09.m4;
f4=sub09.f4;

ex10 sub10=new ex10();
sub10.makedata(file);
m2=sub10.m2;
f2=sub10.f2;

ex49 sub49=new ex49();
sub49.makedata(file);  
f3=sub49.f3;

ex50 sub50=new ex50();
sub50.makedata(file);  
f5=sub50.f5;

ex51 sub51=new ex51();
sub51.makedata(file);
m1=sub51.m1;
f1=sub51.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]  + m4[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] + m4[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 + gx - 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 + px - 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 + px - s1) * krate[byear-cho][age - 1];
}
}

}

}