<html>
<head>
<title>労働供給弾力的</title>
<script type="text/javascript">
function sample() {
var a,beta,ks,h,ls;
var s,mode;
var k1,n1,n2,n3,c1,r1,l1,w1;
var ep;
var maxc,minc;
k = new Array(101);
cx = new Array(101);
lx = new Array(101);
lxs = new Array(101);
cxs = new Array(101);
cps = new Array(101);
cp = new Array(101);
lp = new Array(101);
a=0.33;
beta=0.95;
ls=(1-a)/(2-a);
ks=ls*Math.pow((1/ beta - 1)/a ,1/(a - 1));
h=2*ks/100;
for(s=1;s<101;s++){
k[s]=s*h;
}
for(s=1;s<101;s++){
lx[s]=ls;
cx[s]=Math.pow(k[s],a)*Math.pow(ls,1-a);
}
mode=0;
while(mode<10){
for(s=10;s<91;s++){
k1=k[s]+Math.pow(k[s],a)*Math.pow(lx[s],1-a)-cx[s];
n1=k1/h;
n2=Math.floor(n1);
n3=n2+1;
c1=cx[n2]+(n1-n2)*(cx[n3]-cx[n2]);
l1=lx[n2]+(n1-n2)*(lx[n3]-lx[n2]);
r1=a*Math.pow(k1,a-1)*Math.pow(l1,1-a);
cxs[s]=c1/(beta*(1+r1));
w1=(1-a)*Math.pow(k[s],a)*Math.pow(lx[s],-a);
lxs[s]=1-cx[s]/w1;
}
ep=0;
for(s=10;s<91;s++){
ep=ep+(cx[s]-cxs[s])*(cx[s]-cxs[s])+(lx[s]-lxs[s])*(lx[s]-lxs[s]);
}
for(s=10;s<91;s++){
cx[s]=cxs[s];
lx[s]=lxs[s];
}
if(ep<0.001)mode=1000;
mode=mode+1;
}
maxc=0;
for(s=10;s<91;s++){
if(lx[s]>maxc)maxc=lx[s];
}
minc=9999;
for(s=10;s<91;s++){
if(lx[s]<minc)minc=lx[s];
}
for(s=10;s<91;s++){
cps[s]=500*(lx[s]-minc)/(maxc-minc);
}
var canvas = document.getElementById('camp');
var ctx = canvas.getContext('2d');
ctx.beginPath();
ctx.fillRect(100,100,3,500);
ctx.fillRect(100,600,500,3);
ctx.stroke();
ctx.beginPath();
for(s=1;s<101;s++){
ctx.fillRect(100+5*s,600-cps[s],3,3);
}
ctx.stroke();
}
</script>
</head>
<body onLoad="sample()">
<canvas id="camp" width="700" height="700">
</canvas>
</body>
</html>
最終更新：2013年09月17日 21:30
