９２じゃヴぁ - プログラム倉庫

class ex92{

int byear,year,age,cho,stage;
double z1,z2,s1;
double sl[]=new double[200];
double kg[]=new double[100];
double prate[][]=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 mk09=new ex09();
mk09.makedata(file);
m4=mk09.m4;
f4=mk09.f4;

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

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

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

ex51 mk51=new ex51();
mk51.makedata(file);
m1=mk51.m1;
f1=mk51.f1;

cho=1900;

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

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

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

}

}