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

class ex24{

int byear,cho,car,stage,age;
double z1,z2,z3,z4,z5,z6,z7;
double v;
double fnew2[]=new double[200];
double mis[][]=new double[100][51];
double mos[][]=new double[100][51];
double f2by[][]=new double[200][100];
double alpha[]=new double[100];
double beta[]=new double[100];
double gamma[]=new double[100];
double theta[]=new double[100];
double minx[][]=new double[100][100];
double mout[][]=new double[100][100];

void makedata(String file){

ex20 sub19=new ex20();
sub19.makedata();
minx=sub19.mint;

ex22 sub21=new ex22();
sub21.makedata();
mout=sub21.mint;

ex16 sub16=new ex16();
sub16.makedata(file);
f2by=sub16.f2by;

data18 d151=new data18();
d151.makedata();
alpha=d151.alpha;
beta=d151.beta;
gamma=d151.gamma;

data152 d152=new data152();
d152.makedata();
theta=d152.ftheta;

cho=1900;

for(byear=1950; byear<1990; byear++){

cho=1900;

for(age=15;age<65;age++){
for(car=0;car<50;car++){
mis[age][car]=0;
mos[age][car]=0;
}
}

stage =2008-byear;

for(car=1;car<50;car++){
mis[stage][car] = minx[stage][car];
mos[stage][car] = mout[stage][car];
}

for(age=stage+1;age<65;age++){  
z1= (1 - gamma[age - 1])* f2by[byear-cho][age-1];
z2=f2by[byear-cho][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 = 1;
v=(double)z4/z5;
if(v > 1)v = 1;
for(car=2;car<50;car++){  
z6 =(1 - gamma[age - 1]) *mis[age-1][car-1];
mis[age][car]=z6+v * mos[age-1][car-1];
}
for(car=1;car<50;car++){
z7=(gamma[age - 1] - alpha[age - 1] - beta[age-1]) * mis[age-1][car];
mos[age][car] = z7+(1 - alpha[age - 1] - v) * mos[age-1][car];
}
}
z1=0;
for(car=25;car<50;car++){
z1 = z1 + mis[64][car] + mos[64][car];
}
fnew2[byear-cho] = z1;
}

}

}