約 2,834,415 件
https://w.atwiki.jp/ninonana/pages/7.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/801.html#id_30dcdc73 また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/rcmuseum/pages/452.html
[95//07/10 20 03] ヨキタウ委員長 「[ヨキ杯] 準々決勝 第１試合」 ★ヨキタウ杯トーナメント★ ●準々決勝 第１試合● ●地形 森● アイシャドー(I-SHADOW) あだ名(かげまるこ) DODO CRAWLER MINE SPARK ＶＳ 2-LEGS CHAIN CANNON はた ｍｉｍ (BLACK RUSK) (臨時B.I.R.D.) ●解説● (BLACK RUSK)と(B.I.R.D.)の対決が始まりました どちらが準決勝に進むでしょう････････････････ 早速試合を観てみましょう(^^) ●戦闘開始● 【2 59】アイシャドーは後退 DODOはDASH 【2 57】会敵！ しかし間には森がある アイシャドーは地雷を設置して前進し 左にターンして地雷設置 DODOは左ターンした その後 アイシャドーは森を抜け たまにターンし移動する DODOはキャノン４発撃った後 DASHする行動を繰り返す 【2 28】ここで互いの距離は3HEXに！ 【2 21】会敵！ DODOの右前方3HEX！ アイシャドーは後退し回避した DODOは2HEX DASHして右ターン その後右に120ﾟターンした 【2 17】DODOはキャノン４発発射して 2HEX DASH！また会敵！ 【2 15】アイシャドーの左前方3HEX！ DODOの右後方3HEX！ アイシャドーは 後退して左ターン DODOはDASHして左ターン この後も 会敵するも 攻撃までには至らず････････ 【1 52】DODOはキャノン４発発射して2HEX DASH！ しかし そこはアイシャドーの 正面3HEXだった！ 【1 50】アイシャドーは第１スパーク発射！ DODOは敵の方へターンした！ やり合う気だ！ だが正面は池！ そこにさっきのスパークが飛んで来た！ 【1 49】DODOは回避のため 右ターンするがスパーク３発食らった！ アイシャドーは回避に移る DODOも回避行動に････ 【1 47】互いに回避し終わった時 そこで会敵した！ アイシャドーは右前方3HEXで 感知！ 地雷１個敷設して後退 DODOは正面3HEXで敵を発見するも 地雷のためか 左ターンして後退した 【1 46】DODOは2HEX DASHにはいった しかし2HEX先には 地雷の置き土産が･･！ ばあぁぁん！ DODOは地雷を踏んでしまった！ ダメージ40％！ しかし 出火はしてない 【1 29】再び会敵するも 互いに回避するのみ･････ 【1 09】両者5HEX以上離れてしまった･････････また出会えるのだろうか････ DODOは苦しい･･しかも残り燃料は10％････････････ 【0 12】ここで5HEXに入ったが 間には森がある････DODO ど どーする？ 【0 02】なんとDODO ここでまたもや地雷を踏んだ！ 万事休す！ 【0 00】タイムアップ！ ついにDODOは 大空で羽ばたく事はなかった･････ 勝者 アイシャドウー(I-SHADOW) はた (BLACK RUSK) アイシャドウーのコメントです ｢ えへっ。(^^) ｣ DODOのコメントです 「ぃにゅぅぃきぅ(T_T」 ●感想● DODOは アイシャドーの間合いに入っていけずに残念でした これで緒戦を制したのは(BLACK RUSK)です 続けて第２試合も 取りたいとこですが どうなる事でしょう？ ヨキタウ杯実況委員会 ヨキタウ委員長 1995.7.10 [95/07/10 20 05] ヨキタウ委員長 「[ヨキ杯] 準々決勝 第２試合」 ★ヨキタウ杯トーナメント★ ●準々決勝 第２試合● ●地形 砂漠● はと(HATO1) パンツァエルフ(PANZER11) 4-WHEELS CANNON MINE ＶＳ CRAWLER CANNON MINE KEIICHI 鯱王 (B.I.R.D.) (BLACK RUSK) ●解説● (B.I.R.D.)対(BLACK RUSK)の２試合目です (B.I.R.D.)は是非 勝ちたいとこですが 今回は砂漠です パンツァーエルフとしては はとが地雷の陣を作るまでに 敵を発見したいとこですが･･････ はとのコメントです ｢ マジで砂漠かよ.(-_-;) ｣ パンツァーエルフのコメントです ｢ てめえが相手じゃ勝負にならねえ。 俺が勝つ、それだけのことよ。｣ ●戦闘開始● 【2 59】はとは初期起動開始 はとはこれからが長い･･ パンツァーエルフは地雷を敷設して 2HEX進む行動を繰り返す 【2 49】ここではとは 荒れ地に入った･･パンツァーエルフははたして 初期起動中のはとを発見出来るのか！ 【2 45】両者は5HEX以上離れたが パンツァーエルフは近付きつつある 【2 38】はと 片面の地雷を撒き終えた･･ 【2 34】パンツァーエルフはこのまま進むと はとの正面に出れるが･･ しかし！ 正面の地雷をみてターンしてしまった！ 【2 26】ついに会敵！ パンツァーエルフの右後方だ！ これはチャンス！ パンツァーエルフは前進してターン！ だが正面の地雷を感知して 再び元の方向に向きなおってしまった････････････････････････ 【2 17】パンツァーエルフは再び離れつつある･･･････ 【2 08】ついにはとは 地雷を撒き終え 定位置についた･･･････････････ もうはとは動かない･･･････････････････････････････････････ 【1 25】パンツァーエルフは再び 接近して来た もう会敵しそう･････ 【1 27】会敵！ はとは敵の方へターンしてキャノン連発！ パンツァーエルフも ターンしてキャノン５連発！ 【1 25】お互いに被弾！ パンツァーエルフは左に120ﾟターンして回避した はとのダメージは25％ パンツァーエルフは30％ぐらい その後 パンツァーエルフは再び離れていった 【0 33】パンツァーエルフは一周してきて また会敵！ 互いに相手へターンして キャノン連発！ パンツァーエルフはまた回避して 離れていく･････ はとのダメージは50％ パンツァーエルフのダメージ55％ぐらい しかし はとのキャノン砲の弾数は あと３発のみ！ 再び会敵すれば はとは負ける！ 【0 10】パンツァーエルフは近付きつつあるが まだ遠い･･････････････････････ これは 間に合わないか･････ 【0 00】ここでタイムアップ！ ついに会敵せず！ 話題のコメントを残して パンツァーエルフは去っていった･･････････････････････････････ 勝者 はと(HATO1) KEIICHI (B.I.R.D.) はとのコメントです ｢ ぱとぽっぽーで,おならぷぅだ! ｣ パンツァーエルフのコメントです ｢ やるじゃねえか。だがな、てめえ程度の奴ぁ 世間にはゴロゴロいる。忘れんなよ。｣ ●感想● 今回砂漠でしたが 逆にアスファルトなら パンツァーエルフは 相手の弾切れを誘って 勝ってたかもしれません 結果 (B.I.R.D.)は勝ち残りました これで準決勝は(B.I.R.D.) 対(BLACK RUSK)になりました(^^) ★ 次回予告です ★ 準々決勝 第３試合 RAF-118D ＶＳ TYPE09 Ｒａｆａｌｅ 暁 準々決勝 第４試合 ESTHER-7 ＶＳ ROMIO5 めかヨリタ ヨキタウ ヨキタウ杯実況委員会 ヨキタウ委員長 1995.7.10 YKTU01 (19)「準々決勝 第３・４試合」へ移動 《Event：ヨキタウ杯》へ戻る
https://w.atwiki.jp/mamononomanga/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/nonnfuri/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/801.html#id_30dcdc73 また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/konken1236/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/801.html#id_30dcdc73 また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/tbcwiki/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/sukosukovtuber/pages/10.html
3/1 白桜みこの @micoVtuber 【Youtube ch】はくらみこのは名前がなかった 3/3 雛見沢くるみ @kurumi_pgm 【Youtube ch】雛見沢くるみ 因幡はねる @Haneru_Inaba 【Youtube ch】Haneru Channel ほのかかおり @honokakaori0427 【Youtube ch】かおりちゃんねる 安土桃 @momo_aduchi 【Youtube ch】安土桃 3/4 久遠千歳 @kudou_chitose 【Youtube ch】Kudou_chitose 3/5 堰代ミコ（ハニーストラップ） @Mico_HNST 【Youtube ch】詳細求む URL ヘル・スケア @hell_thcare 【Youtube ch】ヘル・スケア さくらみこ @sakuramiko35 【Youtube ch】3.5 Channel おめシス1周年 @omesis_ray 【Youtube ch】おめがシスターズ おめシス1周年 @omesis_rio 【Youtube ch】おめがシスターズ 3/7 名取さな @sana_natori 【Youtube ch】さなちゃんねる 幽世つむぐ @KakuriyoTsumugu 【Youtube ch】Tsumugu_Channel【幽世通信】 3/8 七篠田レイカ @dareka_nanasino 【Youtube ch】七篠田レイカのバカゲーナイトフィーバー 栗山やんみ @krym_vtuber 【Youtube ch】栗山やんみ 3/9 億里モナ @OkuriMona 【Youtube ch】モナちゃんねる 真宵さきゅ @Mayoi_Sakyu 【Youtube ch】魔宵さきゅ 3/10 アンジュお姉さん @VCafe_Ange 【Youtube ch】VCafe Ange天使のいる喫茶店 3/12 寧夢ねむる @Nemurunn 【Youtube ch】寧夢ねむる 3/15 泡沫メモリ @Memory_Utakata 【Youtube ch】泡沫メモリ 3/16 花京院ちえり @chieri_kakyoin 【Youtube ch】花京院ちえり 魔女っ子メメ @majo5meme 【Youtube ch】魔女っ子メメちゃんねる 3/17 六道冥 @rokudo_mei 【Youtube ch】地獄ちゃんねる 3/18 李稍（リーヤヤ） @lee_yayaya 【Youtube ch】Yaya Channel 李稍 3/22 星街すいせい @suisei_hosimati 【Youtube ch】Suisei Channel 3/23 もこ田めめめ @mokomeme_ch 【Youtube ch】もこめめ*channel 3/27 桜樹みりあ @Miria_gamebu 【Youtube ch】ゲーム部プロジェクト
https://w.atwiki.jp/makotonona/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/nonna-l/pages/7.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/801.html#id_30dcdc73 また動画のURLはYoutubeのURLをご利用ください。 ＝＞http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/ce00582/pages/915.html
Function prefer(s As Single, th, p) As Single Dim m As Single Dim maxm As Single Dim maxu As Single Dim u1 As Single Dim p1 As Single maxu = -999 For m = 0 To 10 p1 = p(m) u1 = u(s, th, m, p1) If u1 maxu Then maxm = m If u1 maxu Then maxu = u1 Next prefer = maxm End Function Function u(s As Single, th, q1 As Single, tr As Single) As Single Dim x1 As Single x1 = q1 pp = 0 If x1 0 Then pp = 1 If pp = 1 Then x1 = 0 u1 = th(s) * Log(x1 + 1) - tr If pp = 1 Then u1 = -999 u = u1 End Function Private Sub Command1_Click() Dim m As Single Dim s As Single Dim p(0 To 10) As Single Dim th(1 To 10) As Single Dim gr(1 To 10) As Single Dim rev(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim fast(-1 To 1) As Single Dim sec(-1 To 1, -1 To 1) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim v(1 To 9, -1 To 1, -1 To 1) As Single Dim endv(-1 To 1, -1 To 1) As Single Dim gotop(2 To 9, -1 To 1, -1 To 1) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim h As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim maxm As Single For s = 1 To 10 th(s) = s Next For m = 1 To 10 p(m) = 2 * m Next t1 = 0 h = 0.01 Do Until t1 100 For s = 1 To 10 m = prefer(s, th, p) gr(s) = m Next For m = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 p1 = p(m - 1) + n1 * h p2 = p(m) + n2 * h p3 = p(m + 1) + n3 * h r2 = 0 For s = 1 To 10 u1 = u(s, th, m - 1, p1) u2 = u(s, th, m, p2) u3 = u(s, th, m + 1, p3) maxu = u2 maxm = m If u1 maxu Then maxm = m - 1 If u1 maxu Then maxu = u1 If u3 maxu Then maxm = m + 1 If maxm = m - 1 Then r1 = p1 - cost * maxm If maxm = m Then r1 = p2 - cost * maxm If maxm = m + 1 Then r1 = p3 - cost * maxm If gr(s) = m Then r2 = r2 + r1 Next rev(m, n1, n2, n3) = r2 Next Next Next Next For n1 = -1 To 1 p1 = p(1) + n1 * h r2 = 0 For s = 1 To 10 u2 = u(s, th, 1, p1) maxu = 0 maxm = 0 If u2 maxu Then maxm = 1 r1 = 0 If maxm = 1 Then r1 = p1 - cost * maxm If gr(s) = 0 Then r2 = r2 + r1 Next fast(n1) = r2 Next For n1 = -1 To 1 For n2 = -1 To 1 p1 = p(1) + n1 * h p2 = p(2) + n2 * h r2 = 0 For s = 1 To 10 u1 = u(s, th, 0, 0) u2 = u(s, th, 1, p1) u3 = u(s, th, 2, p2) maxu = u1 maxm = 0 If u2 maxu Then maxm = 1 If u2 maxu Then maxu = u2 If u3 maxu Then maxm = 2 r1 = 0 If maxm = 1 Then r1 = p1 - cost * maxm If maxm = 2 Then r1 = p2 - cost * maxm If gr(s) = 1 Then r2 = r2 + r1 Next sec(n1, n2) = r2 Next Next For n1 = -1 To 1 For n2 = -1 To 1 p1 = p(9) + n1 * h p2 = p(10) + n2 * h r2 = 0 For s = 1 To 10 u1 = u(s, th, 9, p1) u2 = u(s, th, 10, p2) maxu = u1 maxm = 9 If u2 maxu Then maxm = 10 r1 = 0 If maxm = 9 Then r1 = p1 - cost * maxm If maxm = 10 Then r1 = p2 - cost * maxm If gr(s) = 10 Then r2 = r2 + r1 Next endu(n1, n2) = r2 Next Next For n1 = -1 To 1 For n2 = -1 To 1 v(1, n1, n2) = sec(n1, n2) + fast(n2) Next Next For m = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 vs = -999 For nx = -1 To 1 r1 = rev(m, nx, n1, n2) v1 = r1 + v(m - 1, nx, n1) If v1 vs Then nxs = nx If v1 vs Then vs = v1 Next gotop(m, n1, n2) = nxs v(m, n1, n2) = vs Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 r1 = endu(n1, n2) vs = -999 For nx = -1 To 1 v1 = r1 + v(9, nx, n1) If v1 vs Then vs = v1 Next endv(n1, n2) = vs Next Next 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 Dim op(1 To 10) As Single op(9) = nx1 op(10) = nx2 For j = 1 To 8 m = 9 - j op(m) = gotop(m + 1, op(m + 1), op(m + 2)) Next For m = 1 To 10 p(m) = p(m) + op(m) * h Next e = 0 Dim pre(1 To 10) As Single For s = 1 To 10 m = prefer(s, th, p) e = e + (p(m) - pre(s)) ^ 2 Next For s = 1 To 10 m = prefer(s, th, p) pre(s) = p(m) Next If e 10 ^ (-6) Then h = h / 2 If h 10 ^ (-6) Then t1 = 1000 Debug.Print t1, e, vs t1 = t1 + 1 Loop For s = 1 To 10 m = prefer(s, th, p) Debug.Print m, p(m) Next End Sub