約 1,714 件
https://w.atwiki.jp/ce00582/pages/1586.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/gdata/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1949 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next mnew(1948) = mnew(1949) Open "c /eli/gdata/女子平均加入年数2.txt " For Output As #4 For byear = 1948 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/javadsge/pages/2640.html
function sample(){ var x,y; x=150; y=140; str=" svg "; str=str+" rect x=\""+x+"\" y=\""+y+"\" width=\"300\" height=\"100\""; str=str+"style=\"fill red\"/ "; str=str+" /svg "; $("#memo").html(str); }
https://w.atwiki.jp/ce00582/pages/5614.html
package graph; import java.io.BufferedWriter; import java.io.FileWriter; import java.io.IOException; import java.io.PrintWriter; public class pro { double maxp,minp; int supp,infp; int number; int[] sline=new int[100]; int[] pline=new int[100]; int s; String[] data=new String[500]; int datanumber; double[] point=new double[101]; double[] cn=new double[101]; double[] ln=new double[101]; double[] cm=new double[101]; double[] lm=new double[101]; double[] pm=new double[101]; double[] pn=new double[101]; double[] k=new double[101]; double[] pc=new double[101]; double[] th=new double[101]; double a,beta,ms; double ks,h,ls; int n,m; int[] px=new int[101]; double[] p=new double[101]; public static void main(String[] args) { pro test=new pro(); } pro(){ a=0.33; beta=0.95; ms=20; for(m=1;m 101;m++){ th[m]=0.95+0.001*m; } simple sub3=new simple(); sub3.a=a; sub3.beta=beta; sub3.th=th; sub3.makedata(); cn=sub3.cn; cm=sub3.cm; ln=sub3.ln; lm=sub3.lm; k=sub3.k; h=sub3.h; double k1,l1,n1; int t; k1=k[50]; for(t=1;t 101;t++){ n1=k1/h; m=(int)(100*Math.random())+1; k1=k1+th[m]*f(k1,lab(m,n1))-con(m,n1); point[t]=con(m,n1); } graph sub=new graph(); sub.point=point; sub.makedata(); } double price(int m,double nx){ double c1; int n1,n2; n1=(int)nx; n2=n1+1; c1=pn[n1]+(nx-n1)*(pn[n2]-pn[n1])+pm[m]; return c1; } double f(double k1,double l1){ double c1; c1=Math.pow(k1,a)*Math.pow(l1,1-a); return c1; } double lab(int m,double n1){ int n2,n3; double c1; n2=(int)n1; n3=n2+1; c1=ln[n2]+(n1-n2)*(ln[n3]-ln[n2])+lm[m]; return c1; } double con(int m,double n1){ int n2,n3; double c1; n2=(int)n1; n3=n2+1; c1=cn[n2]+(n1-n2)*(cn[n3]-cn[n2])+cm[m]; return c1; } } package graph; import java.io.BufferedWriter; import java.io.FileWriter; import java.io.IOException; import java.io.PrintWriter; public class graph { double maxp,minp; int supp,infp; int number; int[] sline=new int[500]; int[] pline=new int[500]; int s; String[] data=new String[500]; int datanumber; double[] point=new double[101]; double[] p=new double[101]; int[] pp=new int[101]; double p1,avgp; void makedata(){ p1=0; for(s=1;s 101;s++){ p1=p1+point[s]; } avgp=p1/100; for(s=1;s 101;s++){ p[s]=100*(point[s]/avgp-1); } maxp=0; for(s=1;s 101;s++){ if(p[s] maxp)maxp=p[s]; } minp=999; for(s=1;s 101;s++){ if(p[s] minp)minp=p[s]; } infp=(int)minp-1; supp=(int)maxp+1; number=supp-infp; for(s=1;s number;s++){ sline[s]=infp+s; } for(s=1;s number;s++){ pline[s]=(500*(sline[s]-infp))/(supp-infp); } for(s=1;s 101;s++){ pp[s]=(int)(500*(p[s]-infp))/(supp-infp); } svg sub=new svg(); data[1]=sub.line(100,100,100,600,"BLACK",2); data[2]=sub.line(100,600,600,600,"BLACK",2); data[3]=sub.text(100,100,"消費","BLACK"); data[4]=sub.text(600,600,"期間","BLACK"); int z1,sx; sx=4; for(s=1;s number;s++){ sx=sx+1; z1=pline[s]; data[sx]=sub.line(100,600-z1,600,600-z1,"BLUE",1); } String str1; for(s=1;s number;s++){ sx=sx+1; z1=pline[s]; str1=""+sline[s]+"%"; data[sx]=sub.text(80,600-z1,str1,"BLUE"); } for(s=1;s 100;s++){ sx=sx+1; data[sx]=sub.line(100+5*s,600-pp[s],105+5*s,600-pp[s+1],"RED",2); } datanumber=sx; writefile("dsge.svg"); } void writefile(String file){ int s; try{ PrintWriter pw = new PrintWriter (new BufferedWriter(new FileWriter(file))); pw.println(" svg xmlns=\"http //www.w3.org/2000/svg\" version=\"1.1\" "); for(s=1;s datanumber+1;s++){ pw.println(data[s]); } pw.println(" /svg "); System.out.println("ABC"); pw.close(); } catch(IOException ep){ System.out.println("ABC"); } } } package graph; public class svg{ String text(int x,int y,String strx,String col){ String str; str=" text x=\""+x+"\" y=\""+y+"\" fill=\""+col+"\" "+strx+" /text "; return str; } String line(int x1,int y1,int x2,int y2,String col,int w){ String str; str=" line x1=\""+x1+"\" y1=\""+y1+"\" x2=\""+x2+"\" y2=\""+y2+"\" style=\"stroke "+col+";stroke-width "+w+"\"/ "; return str; } String circle(int x,int y,int r,String col){ String str; str=" circle cx=\""+x+"\" cy=\""+y+"\" r=\""+r+"\" fill=\""+col+"\"/ "; return str; } String rect(int x1,int y1,int w1,int h1,String col){ String str; str=" rect x=\""+x1+"\" y=\""+y1+"\"width=\""+w1+"\" height=\""+h1+"\" fill=\""+col+"\"/ "; return str; } } package graph; public class simple { double[] cn=new double[101]; double[] ln=new double[101]; double[] cm=new double[101]; double[] lm=new double[101]; double[] pm=new double[101]; double[] pn=new double[101]; double[] chcn=new double[101]; double[] chln=new double[101]; double[] chcm=new double[101]; double[] chlm=new double[101]; double[] k=new double[101]; double[] data=new double[101]; double[] th=new double[101]; double a,beta,ep; double ks,h,ls; int n,mode,time,m; void makedata(){ for(m=1;m 101;m++){ lm[m]=0; cm[m]=0; } ls=(1-a)/(2-a); ks=ls*Math.pow((1 / beta - 1) / a , 1 / (a - 1)); h=2*ks/100; m=50; for (n=1;n 101;n++){ k[n]=n*h; ln[n]=ls; cn[n]=th[m]*f(k[n],ln[n]); } int card; card=0; while(card 100){ capital(); techno(); check(); if(ep 0.001)card=1000; card=card+1; } } void techno(){ mode=0; while(mode 100){ sec(); if(ep 0.0001)mode=1000; mode=mode+1; } } void capital(){ int mode; mode=0; while(mode 100){ simple(); if(ep 0.0001)mode=1000; mode=mode+1; } } void check(){ ep=0; for (n=10;n 91;n++){ ep=ep+Math.pow(cn[n]-chcn[n],2)+Math.pow(ln[n]-chln[n],2); } for (m=1;m 101;m++){ ep=ep+Math.pow(cm[m]-chcm[m],2)+Math.pow(lm[m]-chlm[m],2); } for (m=1;m 101;m++){ chcm[m]=cm[m]; chlm[m]=lm[m]; } for (n=10;n 91;n++){ chcn[n]=cn[n]; chln[n]=ln[n]; } } double price(int m,double nx){ double c1; int n1,n2; n1=(int)nx; n2=n1+1; c1=pn[n1]+(nx-n1)*(pn[n2]-pn[n1])+pm[m]; return c1; } void simple(){ double k1,l1,n1,c1,r1,uc,w1; int mx; double cns[]=new double[101]; double lns[]=new double[101]; m=50; for (n=10;n 91;n++){ k1=k[n]+th[m]*f(k[n],lab(m,n))-con(m,n); n1=(double)k1/h; uc=0; for (mx=1;mx 101;mx++){ c1=con(mx,n1); l1=lab(mx,n1); r1=a*th[mx]*Math.pow(k1,a-1)*Math.pow(l1,1-a); uc=uc+(beta*(1+r1))/c1; } uc=0.01*uc; cns[n]=1/uc-cm[m]; w1=th[m]*(1-a)*Math.pow(k[n],a)*Math.pow(lab(m,n),-a); lns[n]=1-con(m,n)/w1-lm[m]; } ep=0; for (n=10;n 91;n++){ ep=ep+Math.pow(cn[n]-cns[n],2)+Math.pow(ln[n]-lns[n],2); } for (n=10;n 91;n++){ cn[n]=cns[n]; ln[n]=lns[n]; } } void sec(){ double k1,l1,n1,c1,r1,uc,w1; int mx; double cms[]=new double[101]; double lms[]=new double[101]; n=50; for (m=1;m 101;m++){ k1=k[n]+th[m]*f(k[n],lab(m,n))-con(m,n); n1=(double)k1/h; uc=0; for (mx=1;mx 101;mx++){ c1=con(mx,n1); l1=lab(mx,n1); r1=a*th[mx]*Math.pow(k1,a-1)*Math.pow(l1,1-a); uc=uc+(beta*(1+r1))/c1; } uc=0.01*uc; cms[m]=1/uc-cn[n]; w1=th[m]*(1-a)*Math.pow(k[n],a)*Math.pow(lab(m,n),-a); lms[m]=1-con(m,n)/w1-ln[n]; } ep=0; for (m=1;m 101;m++){ ep=ep+Math.pow(cm[m]-cms[m],2)+Math.pow(lm[m]-lms[m],2); } for (m=1;m 101;m++){ cm[m]=cms[m]; lm[m]=lms[m]; } } double f(double k1,double l1){ double c1; c1=Math.pow(k1,a)*Math.pow(l1,1-a); return c1; } double lab(int m,double n1){ int n2,n3; double c1; n2=(int)n1; n3=n2+1; c1=ln[n2]+(n1-n2)*(ln[n3]-ln[n2])+lm[m]; return c1; } double con(int m,double n1){ int n2,n3; double c1; n2=(int)n1; n3=n2+1; c1=cn[n2]+(n1-n2)*(cn[n3]-cn[n2])+cm[m]; return c1; } }
https://w.atwiki.jp/ce00582/pages/5661.html
html head meta charset="utf-8" title SVG /title script src="jquery.js" /script script type="text/javascript" src="ren.js" /script script type="text/javascript" src="svg5.js" /script /head body onload="ren()" p id="svg" ABC /p input type="button" value="p" onClick="paint()" / /body /html var count=new Array(); function path(){ var s; var maxc,ninc; maxc=0; for(s=1;s 101;s++){ if(point[s] maxc)maxc=point[s]; } minc=9999; for(s=1;s 101;s++){ if(point[s] minc)minc=point[s]; } for(s=1;s 101;s++){ count[s]=500*(point[s]-minc)/(maxc-minc); } } function paint(){ path(); var s; var str; str=" svg "; var x1,y1,x2,y2; str=" svg "; str=str+line(100,100,100,600,"black"); str=str+line(100,600,600,600,"black"); str=str+text(100,100,"black"); str=str+text(600,600,"black"); for(s=1;s 100;s++){ x1=100+5*s; y1=600-count[s]; x2=105+5*s; y2=600-count[s+1]; str=str+line(x1,y1,x2,y2,"red"); } str=str+" /svg "; $("#svg").html(str); } function text(x1,y1,str){ var strx; strx=" text x="+change(x1)+" y="+change(y1)+" "+str+" /text "; return strx; } function line(x1,y1,x2,y2,col){ var strx; strx=" line x1="+change(x1)+" y1="+change(y1)+" x2="+change(x2)+" y2="+change(y2)+" stroke="+change(col)+"/ "; return strx; } function change(str){ var strx; strx="\""+str+"\""; return strx; } var point=new Array(); function ren(){ var s; for(s=1;s 101;s++){ point[s]=10*s; } }
https://w.atwiki.jp/tsgvg/pages/4.html
利用方法・・・ ■募集を行うギルドは、各ギルド毎にページを作成して募集を行って下さい。 ※1ギルド内で、幾つかのパターンでgvg相手を募集する場合は、作成したページ内で更にもう一つ記入項目を設けるなどして、募集の告知を行って下さい。 ■募集しているギルドを探す時は、『対戦相手募集中のギルド・・・』のページにある各ギルドのページをご覧になって下さい。 使用方法・・・ ■ページの新規作成 ①ページの一番下にある【新規作成】をクリックし、新たにページを作成します。 ②ページに名前をつけます。ページの名前は原則ギルド名でお願いします。ページの名前がギルド名で入力が出来なければ、他の名前を付けて下さい。 ③ページの内容を作成します。ページの内容は下記に参考事例を上げてます(コピー&ペースト可)が、自由に作成して下さい。 ④作成後は、必ず【投稿】クリックして下さい。 ■『対戦相手募集中のギルド・・・』のページにリンクを張る ①『対戦相手募集中のギルド・・・』のページを開いて下さい。 ②ページの左上にある【このページを編集する】をクリックします。 ③その後『対戦相手募集中のギルド・・・ 』の下にカーソルを持って行き、 ④編集ページの上にある【リンク】を押して下さい。すると、リンクの為の書式が出ます。 ⑤「リンク名」と「URL」と表記されている部分がありますので、その表記を削除して下さい。 ⑥そこに、先ほど作ったページ名を記入して下さい。 ⑦作成後は、必ず【投稿】クリックして下さい。 ■募集を終了する ①上記で張ったリンクの書式を削除して下さい。 ※ページは削除されていませんので、再度募集を行う際は、そのページを利用して下さい。ページは一番下の【検索】より検索出来ます。その後、ページの内容を更新の上、再度リンクを張って下さい。 ②内容を更新後は、必ず【投稿】クリックして下さい。 使用上の注意・・・ ■このサイト本来の使用目的に適さないページの作成、又は使用はしないで下さい。 ※各ギルドのページに、そのギルドHPのリンクを張るのはOKです。 記入事項(参考事例)・・・ ◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ ギルド名 【 】 ギルドマスター名 【 】 参加人数(自g内容/対戦gに求む内容) 【 】【 】 平均LV(自g内容/対戦gに求む内容) 【 】【 】 最高LV(自g内容/対戦gに求む内容) 【 】【 】 ☆対戦時期(曜日や時間帯)☆ ☆ギルドマスターへの連絡方法☆ ☆ギルドPR☆ ▽▽▽このギルドと対戦する(下記にギルド名など記入して下さい)▽▽▽ ◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆ 対戦相手募集中のギルド・・・ ◆このページは編集を出来ないように設定してあります◆ TOPページに戻る
https://w.atwiki.jp/ce00582/pages/1588.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim mw(15 To 69) As Single Dim fw(15 To 69) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim avgmw(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Dim avg As Single Dim g(5 To 99) As Single Dim mwage(5 To 99, 15 To 69) As Single Dim fwage(5 To 99, 15 To 69) As Single Dim year As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 age = 15 Open "c /eli/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop Close #12 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 year = byear + age - 2000 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next year = byear + age - 2000 wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 year = byear + age - 2000 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgmw(byear) = z2 / z1 Next Open "c /eli/gdata/女子賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/5714.html
function sample(){ var x,y; x=0; y=0; var timer; var delay = 100; function svgdraw(x,y){ strx=" svg "+line(100,100,100+x,100+y,"black")+" /svg "; $("#svg").html(strx); } var loop = function(){ x=x+10; y=y+10; svgdraw(x,y); clearTimeout(timer); timer = setTimeout(loop,delay); } loop(); } 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; }
https://w.atwiki.jp/jingaimura/pages/182.html
住民 ぼーすとん アマーネ ジリオン バース アクセ フィロス トラトス 環境系 トライサークル 非住民 おわりさん かにさん テイスト博士 施設・名所 丘、ひとそと川などの基本地形 おかのした駅 暗闇の林 スター4番地公園 宵闇館 主なストーリー 野球編 凍結編 敵襲編 創始編 用語 三色石 人動線 トグロ その他 ディオニス
https://w.atwiki.jp/cloop/pages/4.html
6月19日ギルド攻防戦 6/19作戦書 6/19PT編成 6/19応援者一覧 6月12日ギルド攻防戦 6/12作戦書 6/12PT編成 6/12応援者一覧 6月5日ギルド攻防戦 6/5作戦書 6/5PT編成 6/5応援者一覧 ↑応援者が決まり次第、名前・職の記入をお願いします 5月29日ギルド攻防戦 5/29作戦書 5/29PT編成 5/29応援者一覧 ↑応援者が決まり次第、名前・職の記入をお願いします 5月22日ギルド攻防戦 5/22作戦書 5/22PT編成
https://w.atwiki.jp/ce00582/pages/5633.html
html head title SVG /title script src="jquery.js" /script script type="text/javascript" src="dsge.js" /script script type="text/javascript" src="svg.js" /script /head body onload="dsge()" p id="svg" メモ /p input type="button" value="テスト" onClick="paint()" / /body /html function path(){ var t,m1; k1=k[50]; for(t=1;t 101;t++){ n1=k1/h; m1=100*Math.random(); m=Math.floor(m1)+1; c1=con(m,n1); l1=lab(m,n1); k1=k1+th[m]*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; str=" svg "; for(s=1;s 101;s++){ x1=100+5*s; y1=600-cps[s]; str=str+" circle cx=\""+x1+"\" cy=\""+y1+"\" r=\"5\"/ " } str=str+" /svg "; $("#svg").html(str); } function chang(str){ var strx; strx="\""+str+"\""; return strx; } var a,beta,ks,h,ls; var ep; var maxc,minc; var card; k = new Array(101); cx = new Array(101); lx = new Array(101); cm = new Array(101); lm = new Array(101); cp = new Array(101); cps = new Array(101); th =new Array(101); chcx = new Array(101); chlx = new Array(101); chcm = new Array(101); chlm = new Array(101); function startpoint(){ for(m=1;m 101;m++){ th[m]=0.95+0.001*m; } for(m=1;m 101;m++){ cm[m]=0; lm[m]=0; } 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); } for(m=1;m 101;m++){ chcm[m]=0; chlm[m]=0; } for(s=10;s 91;s++){ chcx[s]=0; chlx[s]=0; } } function con(m1,n1){ var c1; var n2,n3; n2=Math.floor(n1); n3=n2+1; c1=cx[n2]+(n1-n2)*(cx[n3]-cx[n2])+cm[m1]; return c1; } function lab(m1,n1){ var c1; var n2,n3; n2=Math.floor(n1); n3=n2+1; c1=lx[n2]+(n1-n2)*(lx[n3]-lx[n2])+lm[m1]; return c1; } function check(){ var s,m; ep=0; for(m=1;m 101;m++){ ep=ep+(cm[m]-chcm[m])*(cm[m]-chcm[m])+(lm[m]-chlm[m])*(lm[m]-chlm[m]); } for(s=10;s 91;s++){ ep=ep+(cx[s]-chcx[s])*(cx[s]-chcx[s])+(lx[s]-chlx[s])*(lx[s]-chlx[s]); } for(m=1;m 101;m++){ chcm[m]=cx[m]; chlm[m]=lx[m]; } for(s=10;s 91;s++){ chcx[s]=cx[s]; chlx[s]=lx[s]; } } function fast(){ 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){ m=50; for(s=10;s 91;s++){ l1=lab(m,s); c1=con(m,s) k1=k[s]+th[m]*Math.pow(k[s],a)*Math.pow(l1,1-a)-c1; n1=k1/h; uc=0; for(mx=1;mx 101;mx++){ c1=con(mx,n1); l1=lab(mx,n1); r1=th[mx]*a*Math.pow(k1,a-1)*Math.pow(l1,1-a); uc=uc+(beta*(1+r1))/c1; } uc=uc/100; cxs[s]=1/uc-cm[m]; l1=lx[s]+lm[m]; w1=th[m]*(1-a)*Math.pow(k[s],a)*Math.pow(l1,-a); lxs[s]=1-cx[s]/w1-lm[m]; } 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 sec(){ lms = new Array(101); cms = 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){ s=50; for(m=1;m 101;m++){ l1=lab(m,s); c1=con(m,s) k1=k[s]+th[m]*Math.pow(k[s],a)*Math.pow(l1,1-a)-c1; n1=k1/h; uc=0; for(mx=1;mx 101;mx++){ c1=con(mx,n1); l1=lab(mx,n1); r1=th[mx]*a*Math.pow(k1,a-1)*Math.pow(l1,1-a); uc=uc+(beta*(1+r1))/c1; } uc=uc/100; cms[m]=1/uc-cx[s]; l1=lx[s]+lm[m]; w1=th[m]*(1-a)*Math.pow(k[s],a)*Math.pow(l1,-a); c1=cx[s]+cm[m]; lms[m]=1-c1/w1-lx[s]; } ep=0; for(m=1;m 101;m++){ ep=ep+(cm[m]-cms[m])*(cm[m]-cms[m])+(lm[m]-lms[m])*(lm[m]-lms[m]); } for(m=1;m 101;m++){ cm[m]=cms[m]; lm[m]=lms[m]; } if(ep 0.0001)mode=1000; mode=mode+1; } } function dsge(){ startpoint(); card=0; while(card 100){ fast(); sec(); check(); if(ep 0.0001)card=100; card=card+1; } }