約 447,810 件
https://w.atwiki.jp/ce00582/pages/929.html
Function mprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxm = s1 c1 = c(s1, s2) my = y1(s1, s2) fy = y2(s1, s2) maxu = u(s1, s2, th1, th2, c1, my, fy) For m1 = 1 To 10 For m2 = 1 To 10 c1 = c(m1, m2) my = y1(m1, m2) fy = y2(m1, m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next Next mprefer = maxm End Function Function fprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxm = s2 c1 = c(s1, s2) my = y1(s1, s2) fy = y2(s1, s2) maxu = u(s1, s2, th1, th2, c1, my, fy) For m1 = 1 To 10 For m2 = 1 To 10 c1 = c(m1, m2) my = y1(m1, m2) fy = y2(m1, m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next Next fprefer = maxm End Function Function u(s1 As Single, s2 As Single, th1, th2, cp As Single, yp1 As Single, yp2 As Single) As Single Dim l1 As Single Dim l2 As Single Dim cx As Single Dim px As Single l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) cx = cp px = 0 If cx 0.01 Then px = 1 If l1 0.99 Then px = 1 If l2 0.99 Then px = 1 If l1 0 Then px = 1 If l2 0 Then px = 1 If px = 1 Then cx = 0.5 If px = 1 Then l1 = 0.5 If px = 1 Then l2 = 0.5 ux = Log(cx) + Log(1 - l1) + Log(1 - l2) If px = 1 Then ux = -999 u = ux End Function Private Sub Command1_Click() Dim s1 As Single Dim s2 As Single Dim c(1 To 10, 1 To 10) As Single Dim y1(1 To 10, 1 To 10) As Single Dim y2(1 To 10, 1 To 10) As Single Dim th1(1 To 10) As Single Dim th2(1 To 10) As Single Open "c /lupin2.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4, a5 s1 = a1 s2 = a2 c(s1, s2) = a3 y1(s1, s2) = a4 y2(s1, s2) = a5 Loop Close #1 For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next For s1 = 1 To 10 For s2 = 1 To 10 If y1(s1, s2) = 0 Then Debug.Print y2(s1, s2), c(s1, s2) Next Next End Sub
https://w.atwiki.jp/ce00582/pages/763.html
Function lx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 lx = ls End Function Function cx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 cx = (1 - tl) * th(s) * ls + tr End Function Function tls(th, bb As Single) As Single Dim maxw As Single Dim tl As Single Dim tr As Single Dim tp As Single Dim w1 As Single Dim n As Single maxw = -999 For n = 1 To 400 tl = 0.001 * n tr = trs(th, tl, bb) w1 = wel(th, tl, tr) If w1 maxw Then tp = tl If w1 maxw Then maxw = w1 Next tls = tp End Function Function trs(th, tl As Single, bb As Single) As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim t As Single tr1 = 0 tr2 = 0.1 t = 0 Do Until t 100 b1 = bud(th, tl, tr1) b2 = bud(th, tl, tr2) tr3 = tr2 + (bb - b2) * (tr2 - tr1) / (b2 - b1) tr1 = tr2 tr2 = tr3 If (tr1 - tr2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr2 End Function Function wel(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single w1 = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 cs = cx(s, th, tl, tr) w1 = w1 + Log(cs) + Log(1 - ls) Next wel = w1 End Function Function bud(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single Dim ys As Single ys = 0 cs = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 ys = ys + th(s) * ls cs = cs + cx(s, th, tl, tr) Next bud = ys - cs End Function Private Sub Command1_Click() Dim th(1 To 100) As Single Dim s As Single Dim tl As Single Dim tr As Single Dim cs(1 To 100, -1 To 1) As Single Dim ys(1 To 100, -1 To 1) As Single Dim w1 As Single Dim bb As Single Dim q As Single For s = 1 To 100 th(s) = 0.02 * s Next For q = -1 To 1 bb = 0.01 * q tl = tls(th, bb) tr = trs(th, tl, bb) For s = 1 To 100 ys(s, q) = th(s) * lx(s, th, tl, tr) cs(s, q) = cx(s, th, tl, tr) Next Next Open "c /701.txt" For Output As #1 For s = 1 To 100 For q = -1 To 1 Write #1, s, q, cs(s, q), ys(s, q) Next Next Close #1 End Sub
https://w.atwiki.jp/igarasy252/
@wikiへようこそ ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更(サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等)することができます まずはこちらをご覧ください。 @wikiの基本操作 用途別のオススメ機能紹介 @wikiの設定/管理 分からないことは? @wiki ご利用ガイド よくある質問 無料で会員登録できるSNS内の@wiki助け合いコミュニティ @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください @wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list その他お勧めサービスについて 大容量1G、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES 無料ブログ作成は@WORDをご利用ください 2ch型の無料掲示板は@chsをご利用ください フォーラム型の無料掲示板は@bbをご利用ください お絵かき掲示板は@paintをご利用ください その他の無料掲示板は@bbsをご利用ください 無料ソーシャルプロフィールサービス @flabo(アットフラボ) おすすめ機能 気になるニュースをチェック 関連するブログ一覧を表示 その他にもいろいろな機能満載!! @wikiプラグイン @wiki便利ツール @wiki構文 @wikiプラグイン一覧 まとめサイト作成支援ツール バグ・不具合を見つけたら? 要望がある場合は? お手数ですが、お問合せフォームからご連絡ください。
https://w.atwiki.jp/lotrmcmodjp/pages/58.html
銅 Copper データ スタック数 64 入手方法 Copper Ore(銅鉱石)の製錬 このままではほとんど用途がない。Tin(錫)とクラフトしてBronze(青銅)にすることで、各種ツールや装備が作れる。 Name Comment
https://w.atwiki.jp/vippervchaaaat/
@wikiへようこそ ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更(サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等)することができます まずはこちらをご覧ください。 @wikiの基本操作 用途別のオススメ機能紹介 @wikiの設定/管理 分からないことは? @wiki ご利用ガイド よくある質問 無料で会員登録できるSNS内の@wiki助け合いコミュニティ @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください @wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list その他お勧めサービスについて 大容量1G、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES 無料ブログ作成は@WORDをご利用ください 2ch型の無料掲示板は@chsをご利用ください フォーラム型の無料掲示板は@bbをご利用ください お絵かき掲示板は@paintをご利用ください その他の無料掲示板は@bbsをご利用ください 無料ソーシャルプロフィールサービス @flabo(アットフラボ) おすすめ機能 気になるニュースをチェック 関連するブログ一覧を表示 その他にもいろいろな機能満載!! @wikiプラグイン @wiki便利ツール @wiki構文 @wikiプラグイン一覧 まとめサイト作成支援ツール バグ・不具合を見つけたら? 要望がある場合は? お手数ですが、お問合せフォームからご連絡ください。
https://w.atwiki.jp/jubeat_memo/pages/525.html
掲載されている譜面を見る前にコチラへ→■ ripples APPEND収録曲リスト (※)ここに掲載されている全ての譜面は正確に作成しているつもりですが,必ずしも正しい配置,リズムとは限りません 曲名 BSC ADV EXT ALBIDA 5 7 10 AIR RAID FROM THA UNDAGROUND 5 9 10 コイノチカラ 3 6 8 少年リップルズ 4 7 9 スペースカーニバル 4 7 9 Lead Me 3 7 9 AC版削除済楽曲 曲名 BSC ADV EXT A Dance A Beer 3 6 8 a fact of life 3 6 7 歩いて帰ろう 2 5 7 アンビリーバボー feat.TAKUYA 1 6 8 Infinity 2 5 8 紅空 2 5 8 Secret Word 2 7 8 Share The World 3 6 7 Jump Pump 3 5 7 そらとぶひかり 2 5 8 MR.アンディ 2 7 8 夢 3 6 7 夢見る少女じゃいられない 2 5 8 Love You 1 4 6 理由なき反抗 4 5 8
https://w.atwiki.jp/starbreak/pages/346.html
Flappy Flappy ○irdです。 クリアにはとても時間がかかる。 ジャンプで高さを調節して壁の間を通り抜けていく 操作方法 Space:ジャンプ
https://w.atwiki.jp/anno2070jpn/pages/139.html
Copper 概要 銅 銅鉱石 Microchipsを作成するときに必要となる鉱石。鉱山さえあれば入手はそう難しくないだろう エコ陣営を選択時、tier3の頃にyanaのクエストで稀に最大20トン近くのCopperを要求する事がある。 在庫を作る程の余裕がない時は少々困るかもしれない。
https://w.atwiki.jp/javadsge/pages/4385.html
(1)表 (2)プログラム プログラム (3)グラフ グラフ (4)出所 とほほのBootstrap入門 (5)メモ 基本 (6)作業記録 2月26日 プログラム追加 imageプラグインエラー 画像を取得できませんでした。しばらく時間を置いてから再度お試しください。 -
https://w.atwiki.jp/lpoker/pages/128.html
基本情報 名前 flappy 居住地 都内 プレイスタイル 主力競技 Hold'em 主力テーブル 5NL6MAX 主力ルーム PokerStars ポーカーキャリア ルールを知ったのは2008年頃真面目に始めたのは2013年後半 好きなポーカープロ nkeyno 配信者ページ http //livetube.cc/flappy 主な配信時間帯 暇なとき(大体暇) ブログ等 twitter https //twitter.com/flappy2525 ポーカーを始めたきっかけ やる夫ポーカーを見て プレイヤーの特徴 バックギャモン勢 情弱勢 配信内容 リングゲームがメイン たまにSnG 主な戦績 一日の最大収支 $500くらい(フルチのラッシュリバイ) 最大バンクロール $600くらい 配信中の名言・迷言 プレイヤーが行ったネ申プレイ・m9プレイ プレイヤーステータス(性癖など) その他 コメント の、のぐちむ~ 早く筆おろしするにゃっぴー -- ふにゃっぴー 名前 コメント 合計人数: - 現在の閲覧者人数:-