mesu000* - 経済統計練習帳

var con=new Array();
var con_shop=new Array();
var con_con=new Array();
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<101;tr++){
 
 con_shop[tr]=c[tr-1]-rate_shop*k_shop[tr-1];
 if(con_shop[tr]<0) con_shop[tr]=0;
 con_con[tr]=con[tr-1]-rate_con*k_con[tr-1]; 
 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]>rate_shop*k_shop[tr])sale_shop[tr]=rate_shop*k_shop[tr];
  sale_con[tr]=con[tr];
  if(sale_con[tr]>rate_con*k_con[tr])sale_con[tr]=rate_con*k_con[tr];
 
 
  rate=rate_con*k_con[tr]/con[tr];
  if(con[tr]<rate_con*k_con[tr])k_con[tr+1]=k_con[tr]+con_con[tr];
  if(con[tr]<rate_con*k_con[tr])k_shop[tr+1]=k_shop[tr]+con_shop[tr];
 if(con[tr]>rate_con*k_con[tr])k_con[tr+1]=k_con[tr]+rate*con_con[tr];
 if(con[tr]>rate_con*k_con[tr])k_shop[tr+1]=k_shop[tr]+rate*con_shop[tr];
 
 
  }
 
 
 
 
}