鉄道ｌ - 経済統計練習帳

var x=new Array();
var y=new Array();
var number;
var number_line;
var a_line=new Array();
var b_line=new Array();
var d_line=new Array();
 
function sample(){
 
tx=0;
for(s=1;s<11;s++){
for(sx=1;sx<11;sx++){
tx=tx+1;
x[tx]=sx;
y[tx]=s;
}}
 
number=tx;
 
number_line=0;    
 
for(s=1;s<number+1;s++){
 
x1=x[s]+1;
y1=y[s];
sp=0;    
for(sx=1;sx<number+1;sx++){
h=0;
if(x[sx]==x1)h=h+1;
if(y[sx]==y1)h=h+1;    
if(h==2)sp=sx;
}
 
ch=0;    
for(sx=1;sx<number_line+1;sx++){
h=0;
if(a_line[sx]==s)h=h+1;
if(b_line[sx]==sp)h=h+1;    
if(h==2)ch=100;
}    
 
for(sx=1;sx<number_line+1;sx++){
h=0;
if(b_line[sx]==s)h=h+1;
if(a_line[sx]==sp)h=h+1;    
if(h==2)ch=100;
}      
 
 
if(sp<1)ch=100;    
if(ch<50)number_line=number_line+1;
if(ch<50)a_line[number_line]=s;
if(ch<50)b_line[number_line]=sp;        
if(ch<50)d_line[number_line]=1; 
}
 
for(s=1;s<number+1;s++){
 
x1=x[s];
y1=y[s]+1;
sp=0;    
for(sx=1;sx<number+1;sx++){
h=0;
if(x[sx]==x1)h=h+1;
if(y[sx]==y1)h=h+1;    
if(h==2)sp=sx;
}
 
ch=0;    
for(sx=1;sx<number_line+1;sx++){
h=0;
if(a_line[sx]==s)h=h+1;
if(b_line[sx]==sp)h=h+1;    
if(h==2)ch=100;
}    
 
for(sx=1;sx<number_line+1;sx++){
h=0;
if(b_line[sx]==s)h=h+1;
if(a_line[sx]==sp)h=h+1;    
if(h==2)ch=100;
}      
 
 
if(sp<1)ch=100;    
if(ch<50)number_line=number_line+1;
if(ch<50)a_line[number_line]=s;
if(ch<50)b_line[number_line]=sp;        
if(ch<50)d_line[number_line]=1; 
}
 
$("#memo").html(number_line);
 
 
 
}