約 788,359 件
https://w.atwiki.jp/toho/pages/6685.html
オヴジェ サークル:monochrome-coat Number Track Name Arranger Lyrics Vocal Original Works Original Tune Length 01 ミステリートレインに乗って カミヤシロ めらみぽっぷ めらみぽっぷ 鳥船遺跡 衛星トリフネ [05 02] 02 Laninamivir NSY めらみぽっぷ めらみぽっぷ 伊弉諾物質 緑のサナトリウム [04 11] 03 cosmicromance シュリンプ めらみぽっぷ めらみぽっぷ 大空魔術 天空のグリニッジ [03 19] 04 Butterfly… カミヤシロ カミヤシロ IZNA 鳥船遺跡 天鳥船神社 [04 43] 05 finale ~月の花~ nice_s カミヤシロ 池田奨 鳥船遺跡 宇宙に浮かぶ幻想郷 [04 18] 06 ツキカゲ Sepia Minako Hagiyama 池田奨 伊弉諾物質 イザナギオブジェクト [04 51] 07 OVERCOME Relinquished Z Hotori* Hotori* 伊弉諾物質 アガルタの風 [03 37] 08 ワープタイムレター mono RI mono プラスもなか 卯酉東海道 ヒロシゲ36号 ~ Neo Super-Express [04 19] 09 星形 nice_s mono 珠梨 伊弉諾物質 日本中の不思議を集めて [04 48] 10 [Bonus Track] 魔術師メリー ~ Instrumental Sepia - - 蓮台野夜行 魔術師メリー [03 18] 11 ミステリートレインに乗って ~ off vocal ver. カミヤシロ - - 鳥船遺跡 衛星トリフネ [05 02] 12 Laninamivir ~ off vocal ver. NSY - - 伊弉諾物質 緑のサナトリウム [05 11] 13 cosmicromance ~ off vocal ver. シュリンプ - - 大空魔術 天空のグリニッジ [03 20] 詳細 博麗神社例大祭10(2013/05/26)にて初頒布 イベント価格:1000円 ショップ価格:1400円(税込:1470円) Arranger NSY: (サリー) シュリンプ: (サリーゲストメンバー) カミヤシロ: (AdamKadmon) レビュー 名前 コメント
https://w.atwiki.jp/kakis/pages/8316.html
dinsyai /// / 陣痛 dins\yai \ 17 seren klel \ [ ova ] \ dinsyai tin ひどい陣痛、激しい陣痛 \
https://w.atwiki.jp/ani3sisya/pages/68.html
95 :名無しさん:2009/11/21(土) 02 16 37 ID k7BH5nsY リリーナ「ヒイロー!はやく私を殺しにいらっしゃーい!」 96 :名無しさん:2009/11/21(土) 02 50 46 ID BwxRkl5s 池田「もう死んでるし!」 リリーナ「池田ァ!」
https://w.atwiki.jp/toho/pages/6030.html
Sally サークル:サリー Number Track Name Arranger Lyrics Vocal Original Works Original Tune Length 01 min ~眠~ NSY shuriken 茶太 東方神霊廟 門前の妖怪小娘 [04 40] 02 plaza desperado NSY shuriken ランコ 東方神霊廟 素敵な墓場で暮しましょ [04 16] 03 童歌 ワニ IZNA IZNA 東方神霊廟 ゴーストリード [04 08] 04 Out of control ワニ めらみぽっぷ めらみぽっぷ 東方神霊廟 欲深き霊魂 [05 04] 05 狂った果実。 NSY IZNA IZNA 東方神霊廟 妖怪寺へようこそ [04 28] 06 MIRROR ワニ ワニ ランコ 東方神霊廟 リジッドパラダイス [04 17] 07 Remind ワニ ワニ 茶太 東方神霊廟 死霊の夜桜 [05 25] 詳細 コミックマーケット80(2011/08/13)にて初頒布 イベント価格:1000円 ショップ価格:1300円(税込:1365円) レビュー このCDはヤバすw ホントに新星サークル? って思うような完成度w Tr.1は初めて聴いたときは 「私は東方を買ったよね??」 と思うようなアレンジでした これはかっこゆす! まさか早くもの神霊廟アレンジでここまでやってくれるとは・・・! ガチ曲目当ての人は買って損なし!! ジャンルなどにはあまり詳しくないので どう言えばいいのか分かりませんが、 なんだか映画中のワンシーンで 流れていそうなアレンジでした!! ガチで推します -- ∞Sorry (2011-09-25 01 27 29) 多分2011年でもっとも大化けする可能性が高い新サークル 今後のアレンジの方向性が非常に気になる -- 名無しさん (2011-09-25 15 11 12) いいねぇ~ -- www (2013-12-10 00 24 39) 名前 コメント
https://w.atwiki.jp/ce00582/pages/4040.html
class tax0107{ int s,t,j,n1,n2,q,qx,nx1,nx2,nsc,nsy,e; double th[]= new double[101]; double c[]= new double[101]; double y[]= new double[101]; double ux[][][]= new double[101][3][3]; double wx[][][]= new double[101][3][3]; double v[][][][]= new double[100][3][3][21]; int gotoc[][][][]= new int[100][3][3][21]; int gotoy[][][][]= new int[100][3][3][21]; int gotoq[][][][]= new int[100][3][3][21]; double endv[][]=new double[3][3]; int endc[][]=new int[3][3]; int endy[][]=new int[3][3]; int endq[][]=new int[3][3]; int opc[]= new int[101]; int opy[]= new int[101]; int opq[]= new int[101]; double tl,tr,w1,u1,c1,l1,vs,v1; double h,dc,dy; int pp; public static void main(String args[]){ tax0107 test=new tax0107(); } tax0107(){ for (s=1;s 101;s++){ th[s]=0.02*s; } tl=tls(th); tr=trs(tl,th); for (s=1;s 101;s++){ y[s]=th[s]*lx(s,tl,tr,th); c[s]=(1-tl)*y[s]+tr; } h=0.01; t=0; while(t 1000){ for (s=1;s 101;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s]; u1=u(c1,1-l1); ux[s][n1+1][n2+1]=u1; } } } for (s=1;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s+1]; u1=u(c1,1-l1); wx[s][n1+1][n2+1]=u1; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ v[1][n1+1][n2+1][q+10]=-999; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ q=n2-n1; v[1][n1+1][n2+1][q+10]=ux[1][n1+1][n2+1]; } } seekv(); seekendv(); seekop(); e=0; for (s=1;s 101;s++){ e=e+opc[s]*opc[s]+opy[s]*opy[s]; } for (s=1;s 101;s++){ c[s]=c[s]+opc[s]*h; y[s]=y[s]+opy[s]*h; } System.out.println(e); if (e 2)h=h/2; if (h 0.0001)t=10000; t=t+1; } for (s=1;s 100;s++){ dy=y[s+1]-y[s]; dc=c[s+1]-c[s]; if (dy 0)System.out.println(1-dc/dy); } } static double lx(int s,double tl,double tr,double th[]){ double w1,l1; w1=(1-tl)*th[s]; l1=(w1-tr)/(2*+w1); if (l1 0)l1=0; return l1; } static double bud(double tl,double tr,double th[]){ double c1,y1,b1; int s; b1=0; for (s=1;s 101;s++){ y1=th[s]*lx(s,tl,tr,th); c1=(1-tl)*y1+tr; b1=b1+y1-c1; } return b1; } static double trs(double tl,double th[]){ double tr1,tr2,tr3,b1,b2; int t; tr1=0.1; tr2=0.2; b1=bud(tl,tr1,th); t=0; while(t 100){ b2=bud(tl,tr2,th); tr3=tr2-b2*(tr2-tr1)/(b2-b1); tr1=tr2; tr2=tr3; b1=b2; if (b2*b2 0.0001)t=1000; t=t+1; } return tr2; } static double tls(double th[]){ int m; double tl,tr,w1,maxw,maxtl; maxw=-999; maxtl=0; for (m=10;m 50;m++){ tl=0.01*m; tr=trs(tl,th); w1=wel(tl,tr,th); if (w1 maxw)maxtl=tl; if (w1 maxw)maxw=w1; } return maxtl; } static double wel(double tl,double tr,double th[]){ double c1,l1,w1; int s; w1=0; for (s=1;s 101;s++){ l1=lx(s,tl,tr,th); c1=(1-tl)*th[s]*l1+tr; w1=w1+u(c1,1-l1);; } return w1; } static double u(double c1,double x1){ double u1,c2,x2; int pp; pp=0; c2=c1; x2=x1; if (c2 0)pp=100; if (x2 0)pp=100; if (x2 1)pp=100; if (x2==0)pp=100; if (pp 50)c2=0.5; if (pp 50)x2=0.5; u1=Math.log(c2)+Math.log(x2); if (pp 50)u1=-999; return u1; } void seekv(){ for (s=2;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ u1=ux[s][n1+1][n2+1]; qx=q-n1+n2; pp=0; if (qx 10)pp=100; if (qx -10)pp=100; if (pp 50)qx=0; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[s-1][nx1+1][nx2+1][qx+10]; if (wx[s-1][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } if (pp 50)vs=-999; gotoc[s][n1+1][n2+1][q+10]=nsc; gotoy[s][n1+1][n2+1][q+10]=nsy; gotoq[s][n1+1][n2+1][q+10]=qx; v[s][n1+1][n2+1][q+10]=vs; } } } } } void seekendv(){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ u1=ux[100][n1+1][n2+1]; qx=n2-n1; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[99][nx1+1][nx2+1][qx+10]; if (wx[99][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } endc[n1+1][n2+1]=nsc; endy[n1+1][n2+1]=nsy; endq[n1+1][n2+1]=qx; endv[n1+1][n2+1]=vs; } } } void seekop(){ vs=-999; nsc=0; nsy=0; for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ if (endv[n1+1][n2+1] vs)nsc=n1; if (endv[n1+1][n2+1] vs)nsy=n2; if (endv[n1+1][n2+1] vs)vs=endv[n1+1][n2+1]; } } opc[100]=nsc; opy[100]=nsy; opc[99]=endc[opc[100]+1][opy[100]+1]; opy[99]=endy[opc[100]+1][opy[100]+1]; opq[99]=endq[opc[100]+1][opy[100]+1]; for (j=1;j 99;j++){ s=99-j; opc[s]=gotoc[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opy[s]=gotoy[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opq[s]=gotoq[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; } } }
https://w.atwiki.jp/ce00582/pages/4170.html
class tax0313{ int s,t,j,n1,n2,q,qx,nx1,nx2,nsc,nsy,e; double th[]= new double[101]; double c[]= new double[101]; double y[]= new double[101]; double ux[][][]= new double[101][3][3]; double wx[][][]= new double[101][3][3]; double v[][][][]= new double[100][3][3][21]; int gotoc[][][][]= new int[100][3][3][21]; int gotoy[][][][]= new int[100][3][3][21]; int gotoq[][][][]= new int[100][3][3][21]; double endv[][]=new double[3][3]; int endc[][]=new int[3][3]; int endy[][]=new int[3][3]; int endq[][]=new int[3][3]; int opc[]= new int[101]; int opy[]= new int[101]; int opq[]= new int[101]; double tl,tr,w1,u1,c1,l1,vs,v1; double h,dc,dy; int pp; public static void main(String args[]){ new tax0313(); } tax0313(){ for (s=1;s 101;s++){ th[s]=0.02*s; } tl=tls(th); tr=trs(tl,th); for (s=1;s 101;s++){ y[s]=th[s]*lx(s,tl,tr,th); c[s]=(1-tl)*y[s]+tr; } h=0.01; t=0; while(t 1000){ for (s=1;s 101;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s]; u1=u(c1,1-l1); ux[s][n1+1][n2+1]=u1; } } } for (s=1;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s+1]; u1=u(c1,1-l1); wx[s][n1+1][n2+1]=u1; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ v[1][n1+1][n2+1][q+10]=-999; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ q=n2-n1; v[1][n1+1][n2+1][q+10]=ux[1][n1+1][n2+1]; } } for (s=2;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ u1=ux[s][n1+1][n2+1]; qx=q-n1+n2; pp=0; if (qx 10)pp=100; if (qx -10)pp=100; if (pp 50)qx=0; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[s-1][nx1+1][nx2+1][qx+10]; if (wx[s-1][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } if (pp 50)vs=-999; gotoc[s][n1+1][n2+1][q+10]=nsc; gotoy[s][n1+1][n2+1][q+10]=nsy; gotoq[s][n1+1][n2+1][q+10]=qx; v[s][n1+1][n2+1][q+10]=vs; } } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ u1=ux[100][n1+1][n2+1]; qx=n2-n1; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[99][nx1+1][nx2+1][qx+10]; if (wx[99][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } endc[n1+1][n2+1]=nsc; endy[n1+1][n2+1]=nsy; endq[n1+1][n2+1]=qx; endv[n1+1][n2+1]=vs; } } vs=-999; nsc=0; nsy=0; for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ if (endv[n1+1][n2+1] vs)nsc=n1; if (endv[n1+1][n2+1] vs)nsy=n2; if (endv[n1+1][n2+1] vs)vs=endv[n1+1][n2+1]; } } opc[100]=nsc; opy[100]=nsy; opc[99]=endc[opc[100]+1][opy[100]+1]; opy[99]=endy[opc[100]+1][opy[100]+1]; opq[99]=endq[opc[100]+1][opy[100]+1]; for (j=1;j 99;j++){ s=99-j; opc[s]=gotoc[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opy[s]=gotoy[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opq[s]=gotoq[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; } e=0; for (s=1;s 101;s++){ e=e+opc[s]*opc[s]+opy[s]*opy[s]; } for (s=1;s 101;s++){ c[s]=c[s]+opc[s]*h; y[s]=y[s]+opy[s]*h; } System.out.println(e); if (e 2)h=h/2; if (h 0.0001)t=10000; t=t+1; } for (s=1;s 100;s++){ dy=y[s+1]-y[s]; dc=c[s+1]-c[s]; if (dy 0)System.out.println(1-dc/dy); } } static double lx(int s,double tl,double tr,double th[]){ double w1,l1; w1=(1-tl)*th[s]; l1=(w1-tr)/(2*+w1); if (l1 0)l1=0; return l1; } static double bud(double tl,double tr,double th[]){ double c1,y1,b1; int s; b1=0; for (s=1;s 101;s++){ y1=th[s]*lx(s,tl,tr,th); c1=(1-tl)*y1+tr; b1=b1+y1-c1; } return b1; } static double trs(double tl,double th[]){ double tr1,tr2,tr3,b1,b2; int t; tr1=0.1; tr2=0.2; b1=bud(tl,tr1,th); t=0; while(t 100){ b2=bud(tl,tr2,th); tr3=tr2-b2*(tr2-tr1)/(b2-b1); tr1=tr2; tr2=tr3; b1=b2; if (b2*b2 0.0001)t=1000; t=t+1; } return tr2; } static double tls(double th[]){ int m; double tl,tr,w1,maxw,maxtl; maxw=-999; maxtl=0; for (m=10;m 50;m++){ tl=0.01*m; tr=trs(tl,th); w1=wel(tl,tr,th); if (w1 maxw)maxtl=tl; if (w1 maxw)maxw=w1; } return maxtl; } static double wel(double tl,double tr,double th[]){ double c1,l1,w1; int s; w1=0; for (s=1;s 101;s++){ l1=lx(s,tl,tr,th); c1=(1-tl)*th[s]*l1+tr; w1=w1+u(c1,1-l1);; } return w1; } static double u(double c1,double x1){ double u1,c2,x2; int pp; pp=0; c2=c1; x2=x1; if (c2 0)pp=100; if (x2 0)pp=100; if (x2 1)pp=100; if (x2==0)pp=100; if (pp 50)c2=0.5; if (pp 50)x2=0.5; u1=Math.log(c2)+Math.log(x2); if (pp 50)u1=-999; return u1; } }
https://w.atwiki.jp/ce00582/pages/4038.html
class tax0207{ public static void main(String args[]){ int s,t,j,n1,n2,q,qx,nx1,nx2,nsc,nsy,e; double th[]= new double[101]; double c[]= new double[101]; double y[]= new double[101]; double ux[][][]= new double[101][3][3]; double wx[][][]= new double[101][3][3]; double v[][][][]= new double[100][3][3][21]; int gotoc[][][][]= new int[100][3][3][21]; int gotoy[][][][]= new int[100][3][3][21]; int gotoq[][][][]= new int[100][3][3][21]; double endv[][]=new double[3][3]; int endc[][]=new int[3][3]; int endy[][]=new int[3][3]; int endq[][]=new int[3][3]; int opc[]= new int[101]; int opy[]= new int[101]; int opq[]= new int[101]; double tl,tr,w1,u1,c1,l1,vs,v1; double h,dc,dy; int pp; for (s=1;s 101;s++){ th[s]=0.02*s; } tl=tls(th); tr=trs(tl,th); for (s=1;s 101;s++){ y[s]=th[s]*lx(s,tl,tr,th); c[s]=(1-tl)*y[s]+tr; } h=0.01; t=0; while(t 1000){ for (s=1;s 101;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s]; u1=u(c1,1-l1); ux[s][n1+1][n2+1]=u1; } } } for (s=1;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s+1]; u1=u(c1,1-l1); wx[s][n1+1][n2+1]=u1; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ v[1][n1+1][n2+1][q+10]=-999; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ q=n2-n1; v[1][n1+1][n2+1][q+10]=ux[1][n1+1][n2+1]; } } for (s=2;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ u1=ux[s][n1+1][n2+1]; qx=q-n1+n2; pp=0; if (qx 10)pp=100; if (qx -10)pp=100; if (pp 50)qx=0; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[s-1][nx1+1][nx2+1][qx+10]; if (wx[s-1][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } if (pp 50)vs=-999; gotoc[s][n1+1][n2+1][q+10]=nsc; gotoy[s][n1+1][n2+1][q+10]=nsy; gotoq[s][n1+1][n2+1][q+10]=qx; v[s][n1+1][n2+1][q+10]=vs; } } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ u1=ux[100][n1+1][n2+1]; qx=n2-n1; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[99][nx1+1][nx2+1][qx+10]; if (wx[99][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } endc[n1+1][n2+1]=nsc; endy[n1+1][n2+1]=nsy; endq[n1+1][n2+1]=qx; endv[n1+1][n2+1]=vs; } } vs=-999; nsc=0; nsy=0; for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ if (endv[n1+1][n2+1] vs)nsc=n1; if (endv[n1+1][n2+1] vs)nsy=n2; if (endv[n1+1][n2+1] vs)vs=endv[n1+1][n2+1]; } } opc[100]=nsc; opy[100]=nsy; opc[99]=endc[opc[100]+1][opy[100]+1]; opy[99]=endy[opc[100]+1][opy[100]+1]; opq[99]=endq[opc[100]+1][opy[100]+1]; for (j=1;j 99;j++){ s=99-j; opc[s]=gotoc[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opy[s]=gotoy[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opq[s]=gotoq[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; } e=0; for (s=1;s 101;s++){ e=e+opc[s]*opc[s]+opy[s]*opy[s]; } for (s=1;s 101;s++){ c[s]=c[s]+opc[s]*h; y[s]=y[s]+opy[s]*h; } System.out.println(e); if (e 2)h=h/2; if (h 0.0001)t=10000; t=t+1; } for (s=1;s 100;s++){ dy=y[s+1]-y[s]; dc=c[s+1]-c[s]; if (dy 0)System.out.println(1-dc/dy); } } static double lx(int s,double tl,double tr,double th[]){ double w1,l1; w1=(1-tl)*th[s]; l1=(w1-tr)/(2*+w1); if (l1 0)l1=0; return l1; } static double bud(double tl,double tr,double th[]){ double c1,y1,b1; int s; b1=0; for (s=1;s 101;s++){ y1=th[s]*lx(s,tl,tr,th); c1=(1-tl)*y1+tr; b1=b1+y1-c1; } return b1; } static double trs(double tl,double th[]){ double tr1,tr2,tr3,b1,b2; int t; tr1=0.1; tr2=0.2; b1=bud(tl,tr1,th); t=0; while(t 100){ b2=bud(tl,tr2,th); tr3=tr2-b2*(tr2-tr1)/(b2-b1); tr1=tr2; tr2=tr3; b1=b2; if (b2*b2 0.0001)t=1000; t=t+1; } return tr2; } static double tls(double th[]){ int m; double tl,tr,w1,maxw,maxtl; maxw=-999; maxtl=0; for (m=10;m 50;m++){ tl=0.01*m; tr=trs(tl,th); w1=wel(tl,tr,th); if (w1 maxw)maxtl=tl; if (w1 maxw)maxw=w1; } return maxtl; } static double wel(double tl,double tr,double th[]){ double c1,l1,w1; int s; w1=0; for (s=1;s 101;s++){ l1=lx(s,tl,tr,th); c1=(1-tl)*th[s]*l1+tr; w1=w1+u(c1,1-l1);; } return w1; } static double u(double c1,double x1){ double u1,c2,x2; int pp; pp=0; c2=c1; x2=x1; if (c2 0)pp=100; if (x2 0)pp=100; if (x2 1)pp=100; if (x2==0)pp=100; if (pp 50)c2=0.5; if (pp 50)x2=0.5; u1=Math.log(c2)+Math.log(x2); if (pp 50)u1=-999; return u1; } }
https://w.atwiki.jp/ce00582/pages/4137.html
class tax0312{ public static void main(String args[]){ int s,t,j,n1,n2,q,qx,nx1,nx2,nsc,nsy,e; double th[]= new double[101]; double c[]= new double[101]; double y[]= new double[101]; double ux[][][]= new double[101][3][3]; double wx[][][]= new double[101][3][3]; double v[][][][]= new double[100][3][3][21]; int gotoc[][][][]= new int[100][3][3][21]; int gotoy[][][][]= new int[100][3][3][21]; int gotoq[][][][]= new int[100][3][3][21]; double endv[][]=new double[3][3]; int endc[][]=new int[3][3]; int endy[][]=new int[3][3]; int endq[][]=new int[3][3]; int opc[]= new int[101]; int opy[]= new int[101]; int opq[]= new int[101]; double tl,tr,w1,u1,c1,l1,vs,v1; double h,dc,dy; int pp; for (s=1;s 101;s++){ th[s]=0.02*s; } tl=tls(th); tr=trs(tl,th); for (s=1;s 101;s++){ y[s]=th[s]*lx(s,tl,tr,th); c[s]=(1-tl)*y[s]+tr; } h=0.01; t=0; while(t 1000){ for (s=1;s 101;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s]; u1=u(c1,1-l1); ux[s][n1+1][n2+1]=u1; } } } for (s=1;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s+1]; u1=u(c1,1-l1); wx[s][n1+1][n2+1]=u1; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ v[1][n1+1][n2+1][q+10]=-999; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ q=n2-n1; v[1][n1+1][n2+1][q+10]=ux[1][n1+1][n2+1]; } } for (s=2;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ u1=ux[s][n1+1][n2+1]; qx=q-n1+n2; pp=0; if (qx 10)pp=100; if (qx -10)pp=100; if (pp 50)qx=0; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[s-1][nx1+1][nx2+1][qx+10]; if (wx[s-1][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } if (pp 50)vs=-999; gotoc[s][n1+1][n2+1][q+10]=nsc; gotoy[s][n1+1][n2+1][q+10]=nsy; gotoq[s][n1+1][n2+1][q+10]=qx; v[s][n1+1][n2+1][q+10]=vs; } } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ u1=ux[100][n1+1][n2+1]; qx=n2-n1; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[99][nx1+1][nx2+1][qx+10]; if (wx[99][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } endc[n1+1][n2+1]=nsc; endy[n1+1][n2+1]=nsy; endq[n1+1][n2+1]=qx; endv[n1+1][n2+1]=vs; } } vs=-999; nsc=0; nsy=0; for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ if (endv[n1+1][n2+1] vs)nsc=n1; if (endv[n1+1][n2+1] vs)nsy=n2; if (endv[n1+1][n2+1] vs)vs=endv[n1+1][n2+1]; } } opc[100]=nsc; opy[100]=nsy; opc[99]=endc[opc[100]+1][opy[100]+1]; opy[99]=endy[opc[100]+1][opy[100]+1]; opq[99]=endq[opc[100]+1][opy[100]+1]; for (j=1;j 99;j++){ s=99-j; opc[s]=gotoc[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opy[s]=gotoy[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opq[s]=gotoq[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; } e=0; for (s=1;s 101;s++){ e=e+opc[s]*opc[s]+opy[s]*opy[s]; } for (s=1;s 101;s++){ c[s]=c[s]+opc[s]*h; y[s]=y[s]+opy[s]*h; } System.out.println(e); if (e 2)h=h/2; if (h 0.0001)t=10000; t=t+1; } for (s=1;s 100;s++){ dy=y[s+1]-y[s]; dc=c[s+1]-c[s]; if (dy 0)System.out.println(1-dc/dy); } } static double lx(int s,double tl,double tr,double th[]){ double w1,l1; w1=(1-tl)*th[s]; l1=(w1-tr)/(2*+w1); if (l1 0)l1=0; return l1; } static double bud(double tl,double tr,double th[]){ double c1,y1,b1; int s; b1=0; for (s=1;s 101;s++){ y1=th[s]*lx(s,tl,tr,th); c1=(1-tl)*y1+tr; b1=b1+y1-c1; } return b1; } static double trs(double tl,double th[]){ double tr1,tr2,tr3,b1,b2; int t; tr1=0.1; tr2=0.2; b1=bud(tl,tr1,th); t=0; while(t 100){ b2=bud(tl,tr2,th); tr3=tr2-b2*(tr2-tr1)/(b2-b1); tr1=tr2; tr2=tr3; b1=b2; if (b2*b2 0.0001)t=1000; t=t+1; } return tr2; } static double tls(double th[]){ int m; double tl,tr,w1,maxw,maxtl; maxw=-999; maxtl=0; for (m=10;m 50;m++){ tl=0.01*m; tr=trs(tl,th); w1=wel(tl,tr,th); if (w1 maxw)maxtl=tl; if (w1 maxw)maxw=w1; } return maxtl; } static double wel(double tl,double tr,double th[]){ double c1,l1,w1; int s; w1=0; for (s=1;s 101;s++){ l1=lx(s,tl,tr,th); c1=(1-tl)*th[s]*l1+tr; w1=w1+u(c1,1-l1);; } return w1; } static double u(double c1,double x1){ double u1,c2,x2; int pp; pp=0; c2=c1; x2=x1; if (c2 0)pp=100; if (x2 0)pp=100; if (x2 1)pp=100; if (x2==0)pp=100; if (pp 50)c2=0.5; if (pp 50)x2=0.5; u1=Math.log(c2)+Math.log(x2); if (pp 50)u1=-999; return u1; } }
https://w.atwiki.jp/ce00582/pages/5233.html
class tax{ int s,t,j,n1,n2,q,qx,nx1,nx2,nsc,nsy,e; double th[]= new double[101]; double c[]= new double[101]; double y[]= new double[101]; double ux[][][]= new double[101][3][3]; double wx[][][]= new double[101][3][3]; double v[][][][]= new double[100][3][3][21]; int gotoc[][][][]= new int[100][3][3][21]; int gotoy[][][][]= new int[100][3][3][21]; int gotoq[][][][]= new int[100][3][3][21]; double endv[][]=new double[3][3]; int endc[][]=new int[3][3]; int endy[][]=new int[3][3]; int endq[][]=new int[3][3]; int opc[]= new int[101]; int opy[]= new int[101]; int opq[]= new int[101]; double tl,tr,w1,u1,c1,l1,vs,v1; double h,dc,dy; int pp; public static void main(String args[]){ tax test=new tax(); } tax(){ for (s=1;s 101;s++){ th[s]=0.02*s; } tl=tls(th); tr=trs(tl,th); for (s=1;s 101;s++){ y[s]=th[s]*lx(s,tl,tr,th); c[s]=(1-tl)*y[s]+tr; } h=0.01; t=0; while(t 1000){ for (s=1;s 101;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s]; u1=u(c1,1-l1); ux[s][n1+1][n2+1]=u1; } } } for (s=1;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ c1=c[s]+n1*h; l1=(y[s]+n2*h)/th[s+1]; u1=u(c1,1-l1); wx[s][n1+1][n2+1]=u1; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ v[1][n1+1][n2+1][q+10]=-999; } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ q=n2-n1; v[1][n1+1][n2+1][q+10]=ux[1][n1+1][n2+1]; } } for (s=2;s 100;s++){ for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ for (q=-10;q 11;q++){ u1=ux[s][n1+1][n2+1]; qx=q-n1+n2; pp=0; if (qx 10)pp=100; if (qx -10)pp=100; if (pp 50)qx=0; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[s-1][nx1+1][nx2+1][qx+10]; if (wx[s-1][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } if (pp 50)vs=-999; gotoc[s][n1+1][n2+1][q+10]=nsc; gotoy[s][n1+1][n2+1][q+10]=nsy; gotoq[s][n1+1][n2+1][q+10]=qx; v[s][n1+1][n2+1][q+10]=vs; } } } } for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ u1=ux[100][n1+1][n2+1]; qx=n2-n1; vs=-999; nsc=0; nsy=0; for (nx1=-1;nx1 2;nx1++){ for (nx2=-1;nx2 2;nx2++){ v1=u1+v[99][nx1+1][nx2+1][qx+10]; if (wx[99][nx1+1][nx2+1] u1)v1=-999; if (v1 vs)nsc=nx1; if (v1 vs)nsy=nx2; if (v1 vs)vs=v1; } } endc[n1+1][n2+1]=nsc; endy[n1+1][n2+1]=nsy; endq[n1+1][n2+1]=qx; endv[n1+1][n2+1]=vs; } } vs=-999; nsc=0; nsy=0; for (n1=-1;n1 2;n1++){ for (n2=-1;n2 2;n2++){ if (endv[n1+1][n2+1] vs)nsc=n1; if (endv[n1+1][n2+1] vs)nsy=n2; if (endv[n1+1][n2+1] vs)vs=endv[n1+1][n2+1]; } } opc[100]=nsc; opy[100]=nsy; opc[99]=endc[opc[100]+1][opy[100]+1]; opy[99]=endy[opc[100]+1][opy[100]+1]; opq[99]=endq[opc[100]+1][opy[100]+1]; for (j=1;j 99;j++){ s=99-j; opc[s]=gotoc[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opy[s]=gotoy[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; opq[s]=gotoq[s+1][opc[s+1]+1][opy[s+1]+1][opq[s+1]+10]; } e=0; for (s=1;s 101;s++){ e=e+opc[s]*opc[s]+opy[s]*opy[s]; } for (s=1;s 101;s++){ c[s]=c[s]+opc[s]*h; y[s]=y[s]+opy[s]*h; } System.out.println(e); if (e 2)h=h/2; if (h 0.0001)t=10000; t=t+1; } for (s=1;s 100;s++){ dy=y[s+1]-y[s]; dc=c[s+1]-c[s]; if (dy 0)System.out.println(1-dc/dy); } } double lx(int s,double tl,double tr,double th[]){ double w1,l1; w1=(1-tl)*th[s]; l1=(w1-tr)/(2*+w1); if (l1 0)l1=0; return l1; } double bud(double tl,double tr,double th[]){ double c1,y1,b1; int s; b1=0; for (s=1;s 101;s++){ y1=th[s]*lx(s,tl,tr,th); c1=(1-tl)*y1+tr; b1=b1+y1-c1; } return b1; } double trs(double tl,double th[]){ double tr1,tr2,tr3,b1,b2; int t; tr1=0.1; tr2=0.2; b1=bud(tl,tr1,th); t=0; while(t 100){ b2=bud(tl,tr2,th); tr3=tr2-b2*(tr2-tr1)/(b2-b1); tr1=tr2; tr2=tr3; b1=b2; if (b2*b2 0.0001)t=1000; t=t+1; } return tr2; } double tls(double th[]){ int m; double tl,tr,w1,maxw,maxtl; maxw=-999; maxtl=0; for (m=10;m 50;m++){ tl=0.01*m; tr=trs(tl,th); w1=wel(tl,tr,th); if (w1 maxw)maxtl=tl; if (w1 maxw)maxw=w1; } return maxtl; } double wel(double tl,double tr,double th[]){ double c1,l1,w1; int s; w1=0; for (s=1;s 101;s++){ l1=lx(s,tl,tr,th); c1=(1-tl)*th[s]*l1+tr; w1=w1+u(c1,1-l1); } return w1; } double u(double c1,double x1){ double u1,c2,x2; int pp; pp=0; c2=c1; x2=x1; if (c2 0)pp=100; if (x2 0)pp=100; if (x2 1)pp=100; if (x2==0)pp=100; if (pp 50)c2=0.5; if (pp 50)x2=0.5; u1=Math.log(c2)+Math.log(x2); if (pp 50)u1=-999; return u1; } }
https://w.atwiki.jp/rensyuu921amatukaze/pages/12.html
幅 100% の表 セル1 セル2 セル3 幅 80% の表 セル1 セル2 セル3 幅 50% の表 セル1 セル2 セル3