パチンコ - 経済統計練習帳

var bx,by;
var dy,dx;
var g;
var delta;
 
function sample(){
 
var timer;
var delay = 100;
 
faststep();
 
var loop = function(){
 
move();
 
bomb();    
 
paint();
 
clearTimeout(timer);
timer = setTimeout(loop,delay);
}
 
loop();
 
}
 
function faststep(){
 
bx=250;
by=500;    
dx=30;
dy=0;    
 
g=9.8;
 
delta=0.9;    
 
}
 
 
function move(){
 
var dt;    
 
dt=0.1;    
 
dy=dy-g;    
 
h=0;    
if(dy<0)h=h+1;    
if(by<0)h=h+1;   
if(h==2)dy=-delta*dy;    
 
h=0;    
if(dx>0)h=h+1;    
if(bx>500)h=h+1;   
if(h==2)dx=-delta*dx;    
 
h=0;    
if(dx<0)h=h+1;    
if(bx<0)h=h+1;   
if(h==2)dx=-delta*dx;      
 
bx=bx+dx*dt;
by=by+dy*dt;      
 
}    
 
function bomb(){
 
var y2;
var ch;
 
y2=400-0.5*(bx-250);
d1=(by-y2)*(by-y2);
 
ch=0;    
h=0;
if(d1<100)h=h+1;
if(bx<350)h=h+1;    
if(bx>250)h=h+1;
if(h==3)ch=100;    
 
 
y2=400+0.5*(bx-250);
d1=(by-y2)*(by-y2);
 
h=0;
if(d1<100)h=h+1;
if(bx<250)h=h+1;    
if(bx>150)h=h+1;
if(h==3)ch=100;  
 
if(ch>50)dy=-delta*dy;    
 
 
}
 
function paint(){
 
var sub=new svgpaint();
 
str="<svg width=\"700\" height=\"700\">";        
str=str+sub.line(0,0,0,500,2,"black");
str=str+sub.line(0,500,500,500,2,"black");
str=str+sub.line(500,500,500,0,2,"black");   
str=str+sub.line(500,0,0,0,2,"black");    
str=str+sub.line(250,500-400,150,500-350,2,"black");
str=str+sub.line(250,500-400,350,500-350,2,"black");    
str=str+sub.circle(bx,500-by,5,"red");
str=str+"</svg>";
 
$("#memo").html(str);
 
 
}