somaty - 経済統計練習帳

var con=new Array();
var con_shop=new Array();
var con_con=new Array();
var cap_shop;
var cap_con;
var sale_shop=new Array();
var sale_con=new Array();
var c=new Array();
var k_shop=new Array();
var k_con=new Array();
var c=new Array();
var rate_shop,rate_con;
 
 
function myFunction() {
 
  rate_shop=0.5;
  rate_con=0.1;
 
  k_shop[0]=0;
  k_con[0]=10;
  k_shop[1]=0;
  k_con[1]=10;
 
  c[0]=50;
  con[0]=0;
  sale_shop[0]=0;
  sale_con[0]=0;
 
  for(tr=1;tr<100;tr++){
 
  cap_shop=  rate_shop*k_shop[tr-1];
  cap_con=  rate_con*k_con[tr-1];
 
 con_shop[tr]=c[tr-1]-cap_shop;
 if(con_shop[tr]<0) con_shop[tr]=0;
 con_con[tr]=con[tr-1]-cap_con; 
 if(con_con[tr]<0)con_con[tr]=0;
 
  con[tr]=con_shop[tr]+con_con[tr];
 
 
 
  c[tr]=0.5*(50+sale_con[tr-1]+sale_shop[tr-1]);
  sale_shop[tr]=c[tr];
  if(sale_shop[tr]>cap_shop)sale_shop[tr]=cap_shop;
  sale_con[tr]=con[tr];
  if(sale_con[tr]>cap_con)sale_con[tr]=cap_con;
 
 rate=cap_con/con[tr];
  if(con[tr]<cap_con)k_con[tr+1]=k_con[tr]+con_con[tr];
  if(con[tr]<cap_con)k_shop[tr+1]=k_shop[tr]+con_shop[tr];
 if(con[tr]>cap_con)k_con[tr+1]=k_con[tr]+rate*con_con[tr];
 if(con[tr]>cap_con)k_shop[tr+1]=k_shop[tr]+rate*con_shop[tr];
 
 
 Logger.log(k_shop[tr]);   
 
  }
 
 
 
 
}