約 2,241,724 件
https://w.atwiki.jp/himajin6/
himajin6 Download Download
https://w.atwiki.jp/grassan/pages/16.html
プログラミングとかいろいろ SlimDX Windowモードの遅延について検証 WindowモードとFullScreenの遅延について検証 3フレーム遅延のまとめ
https://w.atwiki.jp/ffdialog/pages/69.html
Shihu-Danhu あの……、ボク……、 今魔法の修行中なんですけど……。 Shihu-Danhu とおいとおーい中の国……、 ジュノ大公国ってところまで、 人を運ぶ魔法を練習してるんです……。 Shihu-Danhu ボクの……、 じっ、実験台になってくれませんか? Shihu-Danhu や、やった! ありがとうございます!! Shihu-Danhu それでは目をつぶって~っ!!! Shihu-Danhu あ!
https://w.atwiki.jp/paro777/pages/4.html
https://w.atwiki.jp/ce00582/pages/801.html
Function countb(bx As Single, bs As Single, h As Single) As Single Dim zs As Single Dim z1 As Single Dim z2 As Single Dim ct As Single zs = (bx - bs) / h z1 = Int(zs) z2 = z1 + 1 ct = z1 If (zs - z2) ^ 2 (zs - z1) ^ 2 Then ct = z2 countb = ct End Function Function eseekb(th1, th2, gr, c1 As Single, c2 As Single, y1 As Single, y2 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumb As Single sumb = 0 For s = 1 To 100 us = -999 If gr(s) = 10 Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) If gr(s) = 10 Then u2 = Log(c2 + th2(s)) + Log(1 - y2 / th1(s)) If u1 us Then bs = y1 - c1 If u1 us Then us = u1 If u2 us Then bs = y2 - c2 If u2 us Then us = u2 If gr(s) = 10 Then sumb = sumb + bs Next eseekb = sumb End Function Function eseeku(th1, th2, gr, c1 As Single, c2 As Single, y1 As Single, y2 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumu As Single sumu = 0 For s = 1 To 100 us = -999 If gr(s) = 10 Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) If gr(s) = 10 Then u2 = Log(c2 + th2(s)) + Log(1 - y2 / th1(s)) If u1 us Then us = u1 If u2 us Then us = u2 If gr(s) = 10 Then sumu = sumu + us Next eseeku = sumu End Function Function fseekb(th1, th2, gr, c1 As Single, c2 As Single, y1 As Single, y2 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumb As Single sumb = 0 For s = 1 To 100 us = -999 If gr(s) = 0 Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) pp = 0 l2 = y2 / th1(s) If l2 0.99 Then pp = 1 If l2 0.99 Then l2 = 0.5 If gr(s) = 0 Then u2 = Log(c2 + th2(s)) + Log(1 - l2) If pp = 1 Then u2 = -999 If u1 us Then bs = y1 - c1 If u1 us Then us = u1 If u2 us Then bs = y2 - c2 If u2 us Then us = u2 If gr(s) = 0 Then sumb = sumb + bs Next fseekb = sumb End Function Function fseeku(th1, th2, gr, c1 As Single, c2 As Single, y1 As Single, y2 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumu As Single sumu = 0 For s = 1 To 100 us = -999 If gr(s) = 0 Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) pp = 0 l2 = y2 / th1(s) If l2 0.99 Then pp = 1 If l2 0.99 Then l2 = 0.5 If gr(s) = 0 Then u2 = Log(c2 + th2(s)) + Log(1 - l2) If pp = 1 Then u2 = -999 If u1 us Then us = u1 If u2 us Then us = u2 If gr(s) = 0 Then sumu = sumu + us Next fseeku = sumu End Function Function seekb(m As Single, th1, th2, gr, c1 As Single, c2 As Single, c3 As Single, y1 As Single, y2 As Single, y3 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumb As Single sumb = 0 For s = 1 To 100 us = -999 If gr(s) = m Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) If gr(s) = m Then u2 = Log(c2 + th2(s)) + Log(1 - y2 / th1(s)) If gr(s) = m Then u3 = Log(c3 + th2(s)) + Log(1 - y3 / th1(s)) If u1 us Then bs = y1 - c1 If u1 us Then us = u1 If u2 us Then bs = y2 - c2 If u2 us Then us = u2 If u3 us Then bs = y3 - c3 If u3 us Then us = u3 If gr(s) = m Then sumb = sumb + bs Next seekb = sumb End Function Function seeku(m As Single, th1, th2, gr, c1 As Single, c2 As Single, c3 As Single, y1 As Single, y2 As Single, y3 As Single) As Single Dim s As Single Dim u1 As Single Dim u2 As Single Dim u3 As Single Dim us As Single Dim sumu As Single sumu = 0 For s = 1 To 100 us = -999 If gr(s) = m Then u1 = Log(c1 + th2(s)) + Log(1 - y1 / th1(s)) If gr(s) = m Then u2 = Log(c2 + th2(s)) + Log(1 - y2 / th1(s)) If gr(s) = m Then u3 = Log(c3 + th2(s)) + Log(1 - y3 / th1(s)) If u1 us Then us = u1 If u2 us Then us = u2 If u3 us Then us = u3 If gr(s) = m Then sumu = sumu + us Next seeku = sumu End Function Function prefer(s As Single, th1, th2, c, y) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim l1 As Single maxu = -999 For m = 0 To 10 c1 = c(m) + th2(s) l1 = y(m) / th1(s) pp = 0 If l1 0.99 Then pp = 1 If l1 0.99 Then l1 = 0.5 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.5 u1 = Log(c1) + Log(1 - l1) If pp = 1 Then u1 = -999 If u1 maxu Then maxm = m If u1 maxu Then maxu = u1 Next prefer = maxm End Function Private Sub Command1_Click() Dim s As Single Dim m As Single Dim th1(1 To 100) As Single Dim th2(1 To 100) As Single Dim gr(1 To 100) As Single Dim y(0 To 10) As Single Dim c(0 To 10) As Single Dim u(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim fastu(-1 To 1, -1 To 1) As Single Dim fastb(-1 To 1, -1 To 1) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim fastv(-1 To 1, -1 To 1, -100 To 100) As Single Dim endv(-1 To 1, -1 To 1) As Single Dim endn(-1 To 1, -1 To 1) As Single Dim endq(-1 To 1, -1 To 1) As Single Dim v(1 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim goton(1 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim gotoq(1 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim y1 As Single Dim y2 As Single Dim y3 As Single Dim bx As Single Dim bs As Single s1 = 1 s2 = 1 For s = 1 To 100 th1(s) = 0.2 * s1 th2(s) = 0.01 * s2 s1 = s1 + 1 If s1 = 11 Then s2 = s2 + 1 If s1 = 11 Then s1 = 1 Next Open "c /51.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3 m = a1 y(m) = a2 c(m) = a3 Loop Close #1 h = 0.002 t1 = 0 Do Until t1 100 For s = 1 To 100 m = prefer(s, th1, th2, c, y) gr(s) = m Next y1 = y(0) y2 = y(1) For n1 = -1 To 1 For n2 = -1 To 1 c1 = c(0) + n1 * h c2 = c(1) + n2 * h fastu(n1, n2) = fseeku(th1, th2, gr, c1, c2, y1, y2) fastb(n1, n2) = fseekb(th1, th2, gr, c1, c2, y1, y2) Next Next y1 = y(9) y2 = y(10) For n1 = -1 To 1 For n2 = -1 To 1 c1 = c(9) + n1 * h c2 = c(10) + n2 * h endu(n1, n2) = eseeku(th1, th2, gr, c1, c2, y1, y2) endb(n1, n2) = eseekb(th1, th2, gr, c1, c2, y1, y2) Next Next For m = 1 To 9 y1 = y(m - 1) y2 = y(m) y3 = y(m + 1) For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 c1 = c(m - 1) + n1 * h c2 = c(m) + n2 * h c3 = c(m + 1) + n3 * h u(m, n1, n2, n3) = seeku(m, th1, th2, gr, c1, c2, c3, y1, y2, y3) b(m, n1, n2, n3) = seekb(m, th1, th2, gr, c1, c2, c3, y1, y2, y3) Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -100 To 100 fastv(n1, n2, q) = -999 Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 bx = fastb(n1, n2) bs = fastb(0, 0) q = countb(bx, bs, h) fastv(n1, n2, q) = fastu(n1, n2) Next Next For m = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 v(m, n1, n2, n3, q) = -999 Next Next Next Next Next m = 1 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 u1 = u(m, n1, n2, n3) bx = b(m, n1, n2, n3) bs = b(m, 0, 0, 0) qx = q - countb(bx, bs, h) pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = u1 + fastv(n1, n2, qx) If pp = 1 Then vs = -999 v(m, n1, n2, n3, q) = vs Next Next Next Next For m = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 u1 = u(m, n1, n2, n3) bx = b(m, n1, n2, n3) bs = b(m, 0, 0, 0) qx = q - countb(bx, bs, h) pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = -999 For nx = -1 To 1 v1 = u1 + v(m - 1, nx, n1, n2, qx) If v1 vs Then qxs = qx If v1 vs Then nxs = nx If v1 vs Then vs = v1 Next If pp = 1 Then vs = -999 gotoq(m, n1, n2, n3, q) = qxs goton(m, n1, n2, n3, q) = nxs v(m, n1, n2, n3, q) = vs Next Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 endv(n1, n2) = -999 Next Next For n1 = -1 To 1 For n2 = -1 To 1 u1 = endu(n1, n2) bx = endb(n1, n2) bs = endb(0, 0) qx = -countb(bx, bs, h) pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = -999 For nx = -1 To 1 v1 = u1 + v(9, nx, n1, n2, qx) If v1 vs Then nxs = nx If v1 vs Then qxs = qx If v1 vs Then vs = v1 Next endq(n1, n2) = qxs endn(n1, n2) = nxs If pp = 1 Then vs = -999 endv(n1, n2) = vs Next Next Debug.Print endv(0, 0) Dim opc(0 To 10) As Single Dim opq(0 To 10) As Single vs = -999 For n1 = -1 To 1 For n2 = -1 To 1 If endv(n1, n2) vs Then nx1 = n1 If endv(n1, n2) vs Then nx2 = n2 If endv(n1, n2) vs Then vs = endv(n1, n2) Next Next opc(9) = nx1 opc(10) = nx2 opq(9) = endq(opc(9), opc(10)) opc(8) = endn(opc(9), opc(10)) For t = 1 To 8 m = 10 - t opc(m - 2) = goton(m, opc(m - 1), opc(m), opc(m + 1), opq(m)) opq(m - 1) = gotoq(m, opc(m - 1), opc(m), opc(m + 1), opq(m)) Next e = 0 For m = 1 To 10 e = e + opc(m) ^ 2 Next For m = 0 To 10 c(m) = c(m) + opc(m) * h Next Debug.Print e If e 2 Then h = h / 2 If h ^ 2 10 ^ (-12) Then t1 = 1000 t1 = t1 + 1 Loop For m = 0 To 9 y1 = y(m + 1) - y(m) c1 = c(m + 1) - c(m) h = 0 i = 0 For s = 1 To 100 m1 = prefer(s, th1, th2, c, y) If m1 = m Then h = 1 If m1 = m + 1 Then i = 1 Next If h + i = 2 Then Debug.Print y(m), 1 - c1 / y1 Next End Sub
https://w.atwiki.jp/as-palavras/pages/21.html
Belo Estranho Dia de Amanhã 明日という美しく奇妙な日 Composição Lula Queiroga Notícias perderão todo o controle dos fatos Celebridades cairão no anonimato Palavras deformadas Fotos desfocadas, vão atravessar o atlântico Jornais sairão em branco E as telas planas de plasma vão se dissolver O argumento ficou sem assunto. ニュースは全ての事実を扱いきれなくなるだろう。 セレブたちは無名の一般人になってしまうだろう。 デフォルメされた言葉、 ピンぼけ写真、 それらが、大西洋を横断するだろう。 新聞は白紙のまま出回るだろう。 プラズマの白いカンバスは解けてしまうだろう。 議論はテーマが無かった。 Vai ter mais tempo pra gente ficar junto Vai ter mais tempo pra enlouquecer com você Vai ter mais tempo pra gente ficar junto Vai ter mais tempo pra enlouquecer 私たちが一緒にいる時間がもっとあるでしょう。 あなたとおかしくなる時間がもっとあるでしょう。 私たちが一緒にいる時間がもっとあるでしょう。 あなたとおかしくなる時間がもっとあるでしょう。 Os políticos amanhecerão sem voz O outdoor com as letras trocadas Dentro do banco central o pessoal vai esquecer Como é que assina a própria assinatura E os taxistas já não sabem que rua pegar Que belo estranho dia pra se ter alegria 取り替えられた言葉で以て、 政治家たちは声もなく世界に次の日が来たというだろう。 中央銀行の中で、 人々は一体どうやってサインを書くのかも忘れてしまう。 そして、 タクシーの運転手はどの道を行くのかさえも知らない。 喜びを得るための、なんて奇妙なある一日。 E eu respondo e pergunto. 私は自問し答えが出る。 É só o tempo pra gente ficar junto É só o tempo de eu enlouquecer por você É só o tempo pra gente ficar junto É só o tempo de eu enlouquecer 私たちが一緒にいるための時間だけがある。 あなたとおかしくなる時間だけがあるの、と。 私たちが一緒にいるための時間だけがある。 あなたとおかしくなる時間だけがあるの、と。 Alarmes já pararam de apitar O telefone celular descarregou O aeroporto tá sem teto E a moça da tv prevê silêncios e nuvens A firma que eu trabalho faliu E o governo decretou feriado amanhã no Brasil アラームはもう鳴るのを止めた。 携帯電話は充電切れ。 空港には屋根がない。 テレビの女の子は沈黙と雲を予想する。 私が勤める会社が潰れた。 そして、政府は、ブラジルでは、明日が休日だと宣言した。 Será que é pedir muito? お願いしすぎかしら。 É só um jeito da gente ficar junto É só um jeito de eu enlouquecer com você É só um jeito da gente ficar junto É só um jeito de eu enlouquecer 私たちが一緒にいるための唯一の方法。 あなたとおかしくなるための唯一の方法。 私たちが一緒にいるための唯一の方法。 あなたとおかしくなるための唯一の方法。 É só um jeito da gente ficar junto É só um jeito de eu enlouquecer com você É só um jeito da gente ficar junto É só um jeito de eu enlouquecer 私たちが一緒にいるための唯一の方法。 あなたとおかしくなるための唯一の方法。 私たちが一緒にいるための唯一の方法。 あなたとおかしくなるための唯一の方法。
https://w.atwiki.jp/pacchimo/pages/11.html
pacchimo
https://w.atwiki.jp/kakis/pages/9219.html
kimdosp /// / 花壇の縁取り、植物で作った縁取りで、花壇を区切るためにある kim\dosp \ 16 seren klel \
https://w.atwiki.jp/shinmegamitensei1/pages/713.html
#ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (MDM2_logo.png) トップ|バグ
https://w.atwiki.jp/tyrant/pages/248.html
Piranha 種族:Xeno パック:Enclave レア度:Uncommon 待機:1 攻撃:2 体力:1 能力:Strike Bloodthirsty 1Siphon 2 Enclaveパックから、またはMission29達成時に獲得できるカード。 いくら何でも、体力1では全く活躍できそうにない。 Counter持ちを殴って自滅するか、Ajax等にストライクで撃墜されるのが関の山だろう。