約 2,105,473 件
https://w.atwiki.jp/ddr_dp/pages/1466.html
Empathetic(踊) 曲名 アーティスト フォルダ 難易度 BPM NOTES/FREEZE その他 Empathetic Sota÷Des 2013 踊11 180 417 / 11 STREAM VOLTAGE AIR FREEZE CHAOS 70 60 14 24 26 楽譜面(7) / 踊譜面(11) / 激譜面(14) / 鬼譜面(-) 属性 渡り、ひねり、リズム難、縦連 譜面 http //eba502.web.fc2.com/fumen/ddr/ddr2013/empathet_8t.html プレイ動画 https //www.youtube.com/watch?v=c-Wum5GBSuI (x2.0, NOTE) 解説 前半から中盤に掛けては縦連とリズム難の要素が強く、フリーズ地帯の後はリズムが素直になるかわりに捻りと忙しめの渡りが多くなる。総じてバランスのいい良譜面なので、ステップアップのための練習としても使える。 -- 名無しさん (2015-05-20 17 16 27) 曲通してリズム難であるが、配置そのものは細かいので一つずつ処理していくのが重要。前半の縦連と後半の捻りに注意、物量も多め -- 名無しさん (2015-05-25 23 32 34) 名前 コメント コメント(私的なことや感想はこちら) 名前 コメント
https://w.atwiki.jp/ce00582/pages/3636.html
import java.awt.*; import java.awt.event.*; class game0502 extends Frame implements Runnable{ double x,y,z; double rx,ry; double x1,x2,x3,y1,y2,y3; int modelx[]=new int[1001]; int modely[]=new int[1001]; int modelz[]=new int[1001]; int sx,sy,sz; int n; public static void main(String [] args) { Frame f=new game0502(); f.setTitle("game0502"); f.setSize(700,700); f.setBackground(Color.blue); f.setVisible(true); } game0502(){ n=0; for (sx=1;sx 11;sx++){ for (sy=1;sy 11;sy++){ for (sz=1;sz 11;sz++){ n=n+1; modelx[n]=10*sx+100; modely[n]=10*sy+100; modelz[n]=10*sz+100; } } } x=500; y=0; z=0; rot(x,y,z); x1=rx; y1=ry; x=0; y=500; z=0; rot(x,y,z); x2=rx; y2=ry; x=0; y=0; z=500; rot(x,y,z); x3=rx; y3=ry; Thread th=new Thread(this); th.start(); addWindowListener(new stopwin()); } class stopwin extends WindowAdapter{ public void windowClosing(WindowEvent we){System.exit(0);} } public void run(){ int t; t=1; while(t 100){ repaint(); try{ Thread.sleep(1000); }catch(InterruptedException e){} t=t+1; } repaint(); } public void paint(Graphics g){ int gx,gy; gx=seekgx(x1); gy=seekgy(y1); g.drawLine(100,400,gx,gy); gx=seekgx(x2); gy=seekgy(y2); g.drawLine(100,400,gx,gy); gx=seekgx(x3); gy=seekgy(y3); g.drawLine(100,400,gx,gy); g.setColor(Color.red); for (n=1;n 1001;n++){ rot(modelx[n],modely[n],modelz[n]); gx=seekgx(rx); gy=seekgy(ry); g.fillRect(gx,gy,1,1); } } public int seekgx(double x){ return (int)(100+x); } public int seekgy(double y){ return (int)(400-y); } public void rot(double x,double y,double z){ double theta,phi; double a1,a2,a3,a4; theta = -40*Math.PI/180; phi=60*Math.PI/180; a1=Math.cos(theta); a2=Math.sin(theta); a3=Math.cos(phi); a4=Math.sin(phi); rx=-a2*x+a1*y; ry=-a1*a4*x-a2*a3*y+a4*z; } }
https://w.atwiki.jp/ce00582/pages/1510.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 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(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 fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/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 /nagoya/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 /nagoya/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 = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) 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 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next fnew(byear) = z2 / z1 Next Open "c /nagoya/gdata/女子平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1946.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(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 65) As Single Dim mnew(1980 To 2100, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Dim v As Single Open "c /dig/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 /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/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 Open "c /dig/data/男子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 For byear = 1990 To 2080 age = 15 mis(age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(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(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Next Open "c /dig/gdata/男子遺族新規裁定者1.txt " For Output As #4 For byear = 1990 To 2080 For age = 15 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ciez/pages/38.html
output float number of x functionsradian Output a formula as C language Read a matrix from a file Matrixset multiply transpose output float number of x float(x) functions radian radian(theta) =theta/180*%pi; Output a formula as C language Source http //f34.aaa.livedoor.jp/~kumadasu/pukiwiki/index.php?Maxima#z6176d06 Download LISP script from http //www.rbt.his.u-fukui.ac.jp/~naniwa/pub/maxima.html Load the script on Maxima. Example load("cform.lisp"); y(x) =a*x^2+b; cform(y(x)); Read a matrix from a file A read_matrix("ファイル名",’csv); Matrix set A matrix([1,2,3],[4,5,6],[7,8,9]); multiply A . B; transpose transpose(A);
https://w.atwiki.jp/ce00582/pages/1768.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(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 65) As Single Dim mnew(1980 To 2100, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) 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 #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 Open "c /eli/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 For byear = 1990 To 2080 age = 15 mis(age, 1) = f2by(byear, age) endtime = 2099 - byear If endtime 64 Then endtime = 64 For age = 16 To endtime 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(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(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(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 * m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /eli/gdata/女子遺族新規裁定者1.txt " For Output As #4 For byear = 1990 To 2080 For age = 15 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1947.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(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 65) As Single Dim mnew(1980 To 2100, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Dim v As Single Open "c /dig/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 /dig/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 /dig/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 Open "c /dig/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 For byear = 1990 To 2080 age = 15 mis(age, 1) = f2by(byear, age) endtime = 2099 - byear If endtime 64 Then endtime = 64 For age = 16 To endtime 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(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(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(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 * m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /dig/gdata/女子遺族新規裁定者1.txt " For Output As #4 For byear = 1990 To 2080 For age = 15 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1443.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 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(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 fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/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 /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/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 = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnew(byear) = z1 Next Open "c /kirakira/gdata/女子新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/heavymetaleye101/pages/38.html
CANNIBAL CORPSE - THE WRETCHED SPAWN CANNIBAL CORPSEの9枚目。 近作もブルータリティを撒き散らす王道デスメタルだが、近作ではデスラッシュ的なスラッシーな疾走感を表している。 そんな疾走曲はひたすら疾走、そしてミドルテンポの曲は邪悪かつ冷徹な空気が支配しながら巧みな展開を聴かせてくれるアルバムだ。 もちろんテクニカルである。 あと、ジャケットは国内盤では規制されちゃっているので気になる方は是非輸入盤を。 Severed Head Stoning Psychotic Precision Decency Defied Frantic Disembowelment The Wretched Spawn Cyanide Assassin Festering In The Crypt Nothing left To Mutilate Blunt Force Castration Rotted Body Landslide Slain Bent Backwards And Broken They Deserve To Die
https://w.atwiki.jp/ce00582/pages/1451.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 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(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 mnewt(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/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 /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/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 = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnewt(byear) = z1 Next Open "c /kirakira/gdata/男子通算新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, mnewt(byear) Next Close #4 End Sub