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

class make98{

int year,byear,stage,age,cho;
double mgen[][]=new double[200][100];
double fgen[][]=new double[200][100];
double fgnew2[][]=new double[200][100];
double mgnew2[][]=new double[200][100];
double fgnew1[][]=new double[200][100];
double mgnew1[][]=new double[200][100];
double mide[]=new double[200];
double fide[]=new double[200];

void makedata(){

make93 mk93=new make93();
mk93.makedata();
mgnew1=mk93.mgnew1;

make94 mk94=new make94();
mk94.makedata();
fgnew1=mk94.fgnew1;

make95 mk95=new make95();
mk95.makedata();
mgnew2=mk95.mgnew2;

make96 mk96=new make96();
mk96.makedata();
fgnew2=mk96.fgnew2;

datainput381 di381=new datainput381();
di381.makedata();
mide=di381.mide;

datainput382 di382=new datainput382();
di382.makedata();  
fide=di382.fide;

cho=1900;

for (byear = 1950;byear<1990;byear++){
for (year=8;year<100;year++){
age=year+2000-byear;
if (age>99)age=99;
mgen[byear-cho][age] = (1 - mide[age - 1]) * mgen[byear-cho][age-1];
mgen[byear-cho][age] = mgen[byear-cho][age]+mgnew2[byear-cho][age];
}
}

for (byear = 1950;byear<1990;byear++){
for (year=8;year<100;year++){
age=year+2000-byear;
if (age>99)age=99;
fgen[byear-cho][age] = (1 - fide[age - 1]) * fgen[byear-cho][age-1];
fgen[byear-cho][age] = fgen[byear-cho][age]+fgnew2[byear-cho][age];
}
}


for (byear = 1990;byear<2034;byear++){
for (age = 20;age<65;age++){
mgen[byear-cho][age] = (1 - mide[age - 1]) * mgen[byear-cho][age-1];
mgen[byear-cho][age] = mgen[byear-cho][age]+mgnew2[byear-cho][age];
}
}


for (byear = 1990;byear<2034;byear++){
for (age = 20;age<65;age++){
fgen[byear-cho][age] = (1 - fide[age - 1]) * fgen[byear-cho][age-1];
fgen[byear-cho][age] = fgen[byear-cho][age]+fgnew2[byear-cho][age];
}
}


}
}