<html>
<head>
<meta charset="utf-8">
<title>dsge</title>
<script src="jquery.js"></script>
<script type="text/javascript" src="dsge.js"></script>
</head>
<body onload="dsge()">
<p id="svg"></p>
<input type="button" value="push" onClick="paint()" />
</body>
</html>
var a,beta,h;
var ep;
k = new Array(101);
cx = new Array(101);
lx = new Array(101);
cp = new Array(101);
cps = new Array(101);
function path(){
var t,m1;
k1=k[40];
for(t=1;t<101;t++){
n1=k1/h;
c1=con(n1);
l1=lab(n1);
k1=k1+Math.pow(k1,a)*Math.pow(l1,1-a)-c1;
cp[t]=c1;
}
maxc=0;
for(s=1;s<101;s++){
if(cp[s]>maxc)maxc=cp[s];
}
minc=9999;
for(s=1;s<101;s++){
if(cp[s]<minc)minc=cp[s];
}
for(s=1;s<101;s++){
cps[s]=500*(cp[s]-minc)/(maxc-minc);
}
}
function paint(){
path();
var str;
str="<svg>";
var x1,y1,x2,y2;
str="<svg>";
for(s=1;s<100;s++){
x1=100+5*s;
x2=105+5*s;
y1=600-cps[s];
y2=600-cps[s+1];
str=str+line(x1,y1,x2,y2,"red");
}
str=str+line(100,100,100,600,"black");
str=str+line(100,600,600,600,"black");
str=str+"</svg>";
$("#svg").html(str);
}
function startpoint(){
var ks,ls;
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);
}
}
function con(n1){
var c1;
var n2,n3;
n2=Math.floor(n1);
n3=n2+1;
c1=cx[n2]+(n1-n2)*(cx[n3]-cx[n2]);
return c1;
}
function lab(n1){
var c1;
var n2,n3;
n2=Math.floor(n1);
n3=n2+1;
c1=lx[n2]+(n1-n2)*(lx[n3]-lx[n2]);
return c1;
}
function dsge(){
startpoint();
lxs = new Array(101);
cxs = new Array(101);
var mode;
var s,m,mx;
var n1,n2,n3;
var uc,c1,l1,k1,r1,w1;
mode=0;
while(mode<10){
for(s=10;s<91;s++){
l1=lab(s);
c1=con(s)
k1=k[s]+Math.pow(k[s],a)*Math.pow(l1,1-a)-c1;
n1=k1/h;
c1=con(n1);
l1=lab(n1);
r1=a*Math.pow(k1,a-1)*Math.pow(l1,1-a);
uc=(beta*(1+r1))/c1;
cxs[s]=1/uc;
l1=lx[s];
w1=(1-a)*Math.pow(k[s],a)*Math.pow(l1,-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.0001)mode=1000;
mode=mode+1;
}
}
function line(x1,y1,x2,y2,col){
var strx;
strx="<line x1="+change(x1)+" y1="+change(y1)+" x2="+change(x2)+" y2=";
strx=strx+change(y2)+" stroke="+change(col)+"/>";
return strx;
}
function change(str){
var strx;
strx="\""+str+"\"";
return strx;
}
最終更新：2013年10月07日 06:01
