ｐｐｐ１００ - プログラム倉庫

class pro{
public static void main(String args[]){
double h;
double a[][]=new double[51][91];
double c[]=new double[11];
double y[]=new double[11];
double cs[]=new double[11];
double ys[]=new double[11];
double th[]=new double[11];
int s,m,n,j;
int maxn,maxm,px,num;
double maxv,minv,x1,x2,z;
double uc1,uc2,ux1,ux2,x3,u1,u2;
int t1,t2,t3,t4,t5,p1;
double tl,tr,d1,d2;
h=0.001;
for (s=1;s<11;s++){
th[s]=0.5+0.1*s;
}
tl=tls(th);
tr=trs(tl,th);
for(s=1;s<11;s++){
y[s]=th[s]*lx(s,tl,tr,th);
c[s]=(1-tl)*y[s]+tr;
}
t4=0;
while(t4<10){
h=h/2;
t3=0;
while(t3<100){
for (m=0;m<51;m++){
for (n=0;n<91;n++){
a[m][n]=0;
}
}
for (s=1;s<11;s++){
n=4*s-3;
a[0][n]=1/c[s];
a[0][n+1]=-1/c[s];
a[0][n+2]=-1/(th[s]-y[s]);
a[0][n+3]=1/(th[s]-y[s]);
}

for (m=1;m<41;m++){
a[m][m]=1;
}

for (m=1;m<51;m++){
a[m][m+40]=1;
}

for (s=1;s<11;s++){
n=4*s-3;
a[50][n]=1;
a[50][n+1]=-1;
a[50][n+2]=-1;
a[50][n+3]=1;
}

a[50][0]=0;
for (m=1;m<51;m++){
a[m][m+40]=1;
}

for (m=1;m<41;m++){
a[m][0]=h;
}

for (m=41;m<50;m++){
s=m-39;
uc1=1/c[s];
ux1=-1/(th[s]-y[s]);
uc2=1/c[s-1];
ux2=-1/(th[s]-y[s-1]);
u1=Math.log(c[s])+Math.log(1-y[s]/th[s]);
u2=Math.log(c[s-1])+Math.log(1-y[s-1]/th[s]);
a[m][4*s-3]=-uc1;
a[m][4*s-2]=uc1;
a[m][4*s-1]=-ux1;
a[m][4*s]=ux1;
a[m][4*s-7]=uc1;
a[m][4*s-6]=-uc1;
a[m][4*s-5]=ux2;
a[m][4*s-4]=-ux2;
a[m][0]=u1-u2;
}
maxv=0;
maxn=999;
for (n=1;n<91;n++){
if (a[0][n]>maxv)maxn=n;
if (a[0][n]>maxv)maxv=a[0][n];
}

t1=0;
while(t1<1000){
minv=999;
maxm=999;
for (m=1;m<51;m++){
x1=a[m][maxn];
px=0;
if (x1==0)px=100;
if (x1<0)px=100;
if (px>50)x1=1;
x2=a[m][0]/x1;
if (px>50)x2=1000;
if (x2<0)x2=1000;
if (x2<minv)maxm=m;
if (x2<minv)minv=x2;
}

for (m=0;m<51;m++){
z=a[m][maxn]/a[maxm][maxn];
if (maxm==m)z=0;
for (n=0;n<91;n++){
a[m][n]=a[m][n]-z*a[maxm][n];
}
}
maxv=0;
maxn=999;
for (n=1;n<91;n++){
if (a[0][n]>maxv)maxn=n;
if (a[0][n]>maxv)maxv=a[0][n];
}
if (maxn>900)t1=10000;
t1=t1+1;
}

for (s=1;s<11;s++){
cs[s]=c[s];
ys[s]=y[s];
}

for (s=1;s<11;s++){
p1=0;
n=4*s-3;
for (m=1;m<51;m++){
if (a[m][n]==0)p1=p1+1;
}

while(p1==49){
for (m=1;m<51;m++){
if (a[m][n]>0)cs[s]=c[s]+a[m][0]/a[m][n];
if (a[m][n]<0)cs[s]=c[s]+a[m][0]/a[m][n];
p1=0;
}
}

p1=0;
n=4*s-2;
for (m=1;m<51;m++){
if (a[m][n]==0)p1=p1+1;
}
while(p1==49){
for (m=1;m<51;m++){
if (a[m][n]>0)cs[s]=c[s]-a[m][0]/a[m][n];
if (a[m][n]<0)cs[s]=c[s]-a[m][0]/a[m][n];
p1=0;
}
}


p1=0;
n=4*s-1;
for (m=1;m<51;m++){
if (a[m][n]==0)p1=p1+1;
}
while(p1==49){
for (m=1;m<51;m++){
if (a[m][n]>0)ys[s]=y[s]+a[m][0]/a[m][n];
if (a[m][n]<0)ys[s]=y[s]+a[m][0]/a[m][n];
p1=0;
}
}

p1=0;
n=4*s;
for (m=1;m<51;m++){
if (a[m][n]==0)p1=p1+1;
}
while(p1==49){
for (m=1;m<51;m++){
if (a[m][n]>0)ys[s]=y[s]-a[m][0]/a[m][n];
if (a[m][n]<0)ys[s]=y[s]-a[m][0]/a[m][n];
p1=0;
}
}

}
num=0;
for (s=2;s<11;s++){
u1=Math.log(cs[s])+Math.log(1-ys[s]/th[s]);
u2=Math.log(cs[s-1])+Math.log(1-ys[s-1]/th[s]);
if (u1>u2)num=num+1;
if (u1==u2)num=num+1;
}
for (s=1;s<11;s++){
if (num>8)c[s]=cs[s];
if (num>8)y[s]=ys[s];
}
if (num<9)t3=1000;
System.out.println(t3);
t3=t3+1;
}
t4=t4+1;
}

for (s=2;s<11;s++){  
d1=y[s]-y[s-1];
d2=c[s]-c[s-1];
System.out.println(1-d2/d1);
}

}
static double lx(int s,double tl,double tr,double th[]){
double w1,l1;
w1=(1-tl)*th[s];
l1=(w1-tr)/(2*+w1);
if (l1<0)l1=0;
return l1;
}

static double bud(double tl,double tr,double th[]){
double c1,y1,b1;
int s;
b1=0;
for (s=1;s<11;s++){
y1=th[s]*lx(s,tl,tr,th);
c1=(1-tl)*y1+tr;
b1=b1+y1-c1;
}
return b1;
}

static double trs(double tl,double th[]){
double tr1,tr2,tr3,b1,b2;
int t;
tr1=0.1;
tr2=0.2;
b1=bud(tl,tr1,th);
t=0;
while(t<100){
b2=bud(tl,tr2,th);
tr3=tr2-b2*(tr2-tr1)/(b2-b1);
tr1=tr2;
tr2=tr3;
b1=b2;
if (b2*b2<0.0001)t=1000;
t=t+1;
}
return tr2;
}
static double tls(double th[]){
int m;
double tl,tr,w1,maxw,maxtl;
maxw=-999;
maxtl=0;
for (m=10;m<200;m++){
tl=0.001*m;
tr=trs(tl,th);
w1=wel(tl,tr,th);
if (w1>maxw)maxtl=tl;
if (w1>maxw)maxw=w1;
}
return maxtl;
}
static double wel(double tl,double tr,double th[]){
double c1,l1,w1;
int s;
w1=0;
for (s=1;s<11;s++){
l1=lx(s,tl,tr,th);
c1=(1-tl)*th[s]*l1+tr;
w1=w1+u(c1,1-l1);;
}
return w1;
}
static double u(double c1,double x1){
double u1,c2,x2;
int pp;
pp=0;
c2=c1;
x2=x1;
if (c2<0)pp=100;
if (x2<0)pp=100;
if (x2>1)pp=100;
if (x2==0)pp=100;
if (pp>50)c2=0.5;
if (pp>50)x2=0.5;
u1=Math.log(c2)+Math.log(x2);
if (pp>50)u1=-999;
return u1;
}
}