poipp - 経済統計練習帳

var number_ball;
var ball=new Array();
var bx=new Array();
var by=new Array();
class sample{
 
faststep():void{
 
number_ball=100;
 
var s:number;
 
for(s=1;s<101;s++){
ball[s]=0;
}
 
}
 
hit():void{
 
var sx:number;
var s:number;
 
sx=0;
for(s=1;s<101;s++){
if(ball[s]==0)sx=s;
}
 
if(sx>0)number_ball=number_ball-1;
if(sx>0)bx[sx]=100;
if(sx>0)by[sx]=0;
if(sx>0)ball[sx]=100;
 
}
 
mouse():void{
 
var s:number;
 
for(s=1;s<101;s++){
if(by[s]>100)ball[s]=0;
}
 
 
}
 
point():void{
 
var s:number;
var h:number;
 
for(s=1;s<101;s++){
h=0;
if(by[s]==50)h=h+1;
if(bx[s]>95)h=h+1;
if(bx[s]<105)h=h+1;
if(ball[s]>50)h=h+1;
if(h==4)number_ball=number_ball+10;
}
 
 
}
 
 
move(s:number):void{
 
var dx:number;
 
dx=-1;
if(Math.random()>0.5)dx=1;
bx[s]=bx[s]+dx;
by[s]=by[s]+1;
 
}
 
 
 
}
 
function samplex(){
 
var timer;
var delay = 100;
 
var s,tr;
 
var sub=new sample();
sub.faststep();  
 
 
 
var loop = function(){
 
if(Math.random()>0.6)sub.hit();
 
for(s=1;s<101;s++){
sub.move(s);
}
 
sub.point();
sub.mouse();
if(number_ball<1)sub.faststep();
 
var str;
str="<table>";
str=str+"<tr>";
str=str+"<td>";
str=str+"玉";
str=str+"</td>";
str=str+"<td>";
str=str+number_ball;
str=str+"</td>";
str=str+"</tr>";
str=str+"</table>";
 
$("#memo").html(str);
 
 
clearTimeout(timer);
timer = setTimeout(loop,delay);
}
 
loop();
 
}