約 1,128,236 件
https://w.atwiki.jp/magicman/pages/39487.html
D2MF(ディーツーエムエフ) ドグマカヅラ LEG 闇/火文明 (8) クリーチャー:デーモン・コマンド・ドラゴン/革命軍/アクミ団 11000 ■革命チェンジ:闇または火のコスト5以上のドラゴン(自分の闇または火のコスト5以上のドラゴンが攻撃する時、そのクリーチャーと手札にあるこのクリーチャーを入れ替えてもよい) ■自分のクリーチャーすべてに「ウルトラ・セイバー:多色クリーチャー」を与える。(自分の多色クリーチャーが離れる時、かわりに自分のクリーチャーを1体破壊してもよい) ■W・ブレイカー ■ファイナル革命:このクリーチャーが「革命チェンジ」によって出た時、そのターン中に他の「ファイナル革命」をまだ使っていなければ、クリーチャーを1体、自分の手札から捨ててもよい。その後、自分の墓地から進化ではない多色クリーチャーを、コストの合計が6以下になるように好きな数選び、出す。 作者:wha + 関連カード/2 《D2M2 ドグライーター》 《Dの妖艶 マッド・デッド・ウッド》 カードリスト:wha カードリスト2:wha 評価 名前 コメント
https://w.atwiki.jp/grasoturismo/pages/2864.html
グランツーリスモ 350Z Image Credit 画像を引用した場合、引用元を表記。 メーカー グランツーリスモ 英名 Granturismo 350Z 年式 --- エンジン VQ35DE タイプ コンプリートカーチューニングカー カテゴリー N300 PP(初期値) XXX 総排気量 3,498cc 最高出力 287PS/6,200rpm 最大トルク 37.9kgfm/5,200rpm 駆動形式 FR 吸気形式 NA 全長 ---mm 全幅 ---mm 全高 ---mm 車両重量 ---kg 重量バランス 53対47 トランスミッション 6速 登場 グランツーリスモ5 備考 山内一典氏が所有している愛車。 概要 グランツーリスモ 350Zは、日産のフェアレディZ(Z33型)をベースにしたグランツーリスモのチューニングカーで、オペラパフォーマンスZ以来となるPDIのZエアロデザインの2作目である。 解説 ゲーム内の解説や公式解説などを記入してください! 登場シリーズ グランツーリスモ5 コメント 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/www-iris/pages/558.html
【システム名】 マグマパネル 【読み方】 まぐまぱねる 【登場作品】 『2』~『5』 【詳細】 特殊パネルの1つ。赤々と輝くマグマが敷き詰められている。 特定の地域で戦闘開始時に展開されている状態で出現するほか、マグマラインやマグマステージで能動的にパネルを塗り替える事も出来る。 このパネルの上に乗ると、炎属性以外の者は50のダメージを受ける。 パネル自体が炎属性を持つので、木属性の者が乗れば弱点となり、2倍のダメージを受ける。 もちろん、『2』のハードモード「ダメージ1.5倍」にも対応している(単体75ダメージ、木属性で更に倍)。 また、このパネルの上に立つと、体力が回復する特殊なウイルスも存在する。 上に何かが乗るか水属性の攻撃がパネル上を通ると、マグマが消滅してノーマルパネルになる。 フィールド上のマグマパネルを吸収する特性のあるチップや変身もあるので、邪魔な場合はこれらを利用して除去しよう。 自身が木属性の場合は難しいが、最悪の場合はダメージ覚悟で踏んで処理することもできる。 なお、『3』までは自然消滅しなかったが『4』以降は16秒経過で消えるようになった。 自然消滅が追加されたものの(特に一部の属性に対して)強烈な立ち回りの制限をかけるパネルであったためか、『6』ではリストラされた。 代わりの炎属性特殊パネルとして、「火口パネル」が登場している。 マグマパネルを作る要素一覧 バトルチップマグマステージ マグマライン マグマシード ヒートブレス ヨウガンホウガン ファイアマン(チップ)(コマンド) ナビカスタマイザーセットマグマ ウイルスマグラボルズ フデロー2/フデロー3 ウェザース系(ヒートブレス) エレンプラ系(マグマパネル上にいるとき) ネットナビヒートマン(「2」ヒートプレス)
https://w.atwiki.jp/grasoturismo/pages/2710.html
懐かしいな それにしてもこんなクルマグランツーリスモに入ってたのかよ -- (名無しさん) 2024-02-28 19 28 46
https://w.atwiki.jp/kasojk/pages/13.html
ここでは過去に開催したグランプリを記載していきます 第一回過疎グランプリ この第一回グランプリは「一番の過疎実況者をきめる」というコンセプトの下行われたものです。 第一回の基本的なルール 初代過疎実況スレ611より 611 名前:名無しさん@お腹いっぱい。[sage] 投稿日:2008/10/12(日) 02 56 35 ID nzqhnnAS0 んじゃとりあえず568さんに主催やってもらいましょう。お願いします 568さんが来るまでこれまでのをまとめときますね ○正午より開始。19日正午に決着 ○優勝者にはキングおぶ過疎の名誉+なんか ○動画をうpしたらコメントを入れて、過疎実況グランプリのタグをロック(タイトルにも入れたほうがよいかも) 再生+コメント×2+マイリス×5の総数が一番少なかった人が優勝※1 正午より遅れてうpした動画にはそれまでの平均ポイント加算※2 10分以内くらいの動画 一応シンプルシリーズをやるってことになってるが・・流れによっては何をうpしても良いかと思う 祭り終了後は動画は速やかに削除(ということにしとく) ※1、※2 この辺のルールを変えて再生に対するコメ率、マイリス率を競うとかにすれば集計が楽だし、遅れてうpするほど不利になっていいと思うんだが? 結果 ルールに基づいてほとんどの動画が削除されてしまったため、結果だけを記述します 88 名前:名無しさん@お腹いっぱい。[sage] 投稿日:2008/10/20(月) 01 50 50 ID W3kBof/E0 ■下位4名 再生:506 コメント:73 マイリスト:6 合計:-682点 動画タイトル:魁!男塾! THE 怒馳暴流 を実況プレイであぁぁぁる!! 実況ゲーム:魁!!男塾 THE 怒馳暴流(ドッチボール) 主催コメント:点数は最下位。てかこれ過疎なのか? 再生:377 コメント:72 マイリスト:16 合計:-601点 動画タイトル:【過疎実況】 THE 特撮変身ヒーロー実況プレイ 【グランプリ】 実況ゲーム:THE特撮変身ヒーロー 主催コメント:敗因はゲーム選びだろう。爺が特撮と聞いて黙ってる男の子は居ないはず。 そしてマイリスの数がダントツで最下位です。 再生:322 コメント:90 マイリスト:7 合計:-537点 動画タイトル:【過疎実況】最強!白バイキング【グランプリ】 実況ゲーム:最強!白バイキング SECURITY POLICE 主催コメント:最初のモノマネで客層を掴んだのか、コメント数で最下位。 再生:290 コメント:73 マイリスト:8 合計:-476点 動画タイトル:【過疎実況】恐怖のジェットコースター【グランプリ】 実況ゲーム:THEジェットコースター 遊園地を作ろう! 主催コメント:全体的にバランスが良く下位グループに入ってしまった作品。 あと、声が良いのもマイナスポイントだな。 89 名前:名無しさん@お腹いっぱい。[sage] 投稿日:2008/10/20(月) 02 01 42 ID W3kBof/E0 ■上位4名 再生:196 コメント:44 マイリスト:5 合計:309点 タイトル:過疎実況グランプリ 実況ゲーム:THE地球防衛軍2 主催コメント:正直言うと、実況なのかMADなのか分からないです。 個人的には好き。タイトルのダメさが光った作品。 再生:142 コメント:32 マイリスト:3 合計:221点 のらりくらり THE英語 実況 実況ゲーム:THE 話そう英語の旅 主催コメント:マイリス数がナンバーワンだ。 やはり上位グループはゲーム選びが一味違うな。 再生:176 コメント:10 マイリスト:4 合計:216点 動画タイトル:過疎実況グランプリ THEルームシェアという生活 【実況】 その1 実況ゲーム:THE ルームシェアという生活。 主催コメント:なんと言ってもコメント数が光る作品。 気になって真っ先に見た作品なんですが、ここまで伸びないとは予想外。 そして栄えある、いや無いのか?まぁキングオブ過疎は 再生:129 コメント:26 マイリスト:4 合計:201点 動画タイトル:【ラブ・スマッシュ5】第1回過疎実況グランプリ【あらた】 実況ゲーム:ラブ★スマッシュ! 主催コメント:堂々の再生数で他の追随を許さなかった作品。 サムネによって見る気を失わせたのか2位を40再生も引き離し、見事優勝です。 やはり再生数を伸ばさない為にはサムネ選びも重要なんですね。
https://w.atwiki.jp/magurogunn/pages/36.html
グラスクエスト内でのマナー 最近グラスクエスト内のマナーが非常に悪いです。 グラスクエストをこれから始める方、既に始めた方もどうか一読下さい。 単発スレ、BBSの使い方について BBSについて BBSとはPTメンバー募集やアイテム交換などの取引に使う場所です。 従って、取引に関係のない会話で盛り上がる場所ではないのです。 ましてや喧嘩など言語道断!(BBSで喧嘩した事のある方は大いに反省しましょう) 何故かというと、当たり前ですがBBSに書き込んだ方は出来るだけ取引や勧誘などを成功させたいと思っています。 それなのに喧嘩や会話などでログを流されては当然取引や勧誘の成立が難しくなります。 自分がBBSに書き込んだことのある人は分かるでしょうが、はっきり言って非常に迷惑です。 絶対にやめましょう。 単発について 単発とは、グラスクエストの画面下部に表示されている話し合いの場所です。 しかしこちらもチャットとは少し違います。 単発は、BBSで取引をする予定の人と連絡を取ったり、調べてどうしても分からない事を質問したりする場所なのです。 とは言え、皆で共通の話題(ゲーム外の物でも可)で盛り上がったりするのはなんら問題ありません。 ダメなのは喧嘩、内輪ネタ等です。 まず喧嘩は言語道断です。内輪ネタというのは、例えば2人のリア友が単発で喋っていて、学校であった事を話すというように、特定の人にしか分からないネタで盛り上がることを言います。 これだと他の人が話に参加できません。なるべく控えるようにしましょう。 多重登録について これは私は管理人ではありませんので、明確な事は言えませんが、 ・一人での複数のキャラクターの使用は控えたほうがいいと思われます。 同一パソコンによる兄弟での使用等は基本的にOKだとは考えています。 しかし多くても2つが限界でしょう。 再度言いますが私は管理人ではありませんので、あくまで目安と考えて下さい。
https://w.atwiki.jp/aniwotawiki/pages/4749.html
登録日:2010/12/21 Tue 18 34 31 更新日:2023/09/02 Sat 19 48 20NEW! 所要時間:約 3 分で読めます ▽タグ一覧 お母さん泣かせ みんな大好きグラたん オーブン オーブントースター グラタン グランディスタンク チーズ バター パン粉 フランス料理 ベシャメルソース ホワイトソース マカロニ ミートソース 冷めるとしょっぱい 子供大喜び 小麦粉要塞 戦車じゃないほうのグラタン 料理 洋食 牛乳 猫舌涙目←だから田舎者に舐められる 生クリーム 田舎者の飯 腹が減る項目 至高にて究極 食べ物 グラタン。 それは、ホワイトソース(ベシャメルソース)をベースにマカロニ、エビ、ポテトなど好きな具を入れて煮込みつつ、グラタン皿にバターを塗りたくってホワイトソースを流し込み、 チーズを乗せてオーブンで焼き上げた料理。フランス料理の一種。 手間がかかるがオマイラ大好きロリショタが大好物の料理。 今でこそホワイトソースやグラタンの素等があるから手軽に作れるが、最大の難関はホワイトソースである。 なぜなら素人は焦がす確率が高いからである。 ■レシピ ホワイトソースの作り方 材料(一人分) バター=20g 小麦粉=20g 牛乳=250cc 1:バターを弱火にかけ、フライパンでよく延ばす。 2:小麦粉を投入し、混ぜながら焦げる寸前まで炒める。(ここで焦げると、ビーフシチューなどに使うブラウンルーになる) 3:牛乳を少しずつ投入。だまにならないようにゆっくり混ぜながらとろみがでるまで暖めて完成。 補足として、クリームシチューに使うなら牛乳の量を減らすと良い。 あと塩コショウを入れる場合もあるので、そこはお好みで。 ……話はそれたが、グラタンはお母さん泣かせの料理と理解していただけただろうか。 それでもお母さんは子供の笑顔の為に手間暇かけて作るのだ。 とろけるチーズと濃厚なホワイトソースが絡みパクリと一口。 至福の一時である。 大事なことだが、お母さんはこの一口の笑顔の為にグラタンを作るのだ。 最後まで残さず食えよ! ついでにあの骨川スネ夫の好物だったりもする。あれあいつ猫舌じゃなかったっけ?冷まして食べてるんだ。多分。 まあ、残ったグラタンが次の日にまた出てくるのも嬉しいことではあるが。 なおグラタン発祥の地であるフランスではグラタンとは「オーブンで表面を焦がすように仕上げた料理」の意味合いなので、ホワイトソースやチーズが別に必須というわけではない。 ■バリエーション マカロニグラタン グラタンで最も定番と断言できるもの。 フォークの先端にマカロニをいくつ装着できるかを試すのは当たり前だろう。 「でも、マカロニってパスタだよね」とか言わない。 ペンネ(両端が斜め切り)やフジッリ(らせん状)等ほかのショートパスタで作るのも良い。 パスタグラタン グラタンとパスタのコラボ。パリッと焼けたチーズの表層を破れば、そこにはホワイトソースとたっぷりのパスタが…… フォークでくるくると巻けば、チーズとホワイトソースが絡んで美味。 「でもマカロニもパスタだよね」とか言わない。ここではスパゲッティやスパゲッティーニなどのロングパスタを指す。 シーフードグラタン こちらも定番の一品。 冷凍のシーフードミックスを使うとお手軽。 頭つきのエビや殻つきの貝が入ってるとなんか贅沢。ただ、外すのが少し面倒。 ホタテ、牡蠣、ムール貝などの貝殻を器にした「コキールグラタン」は本格的で豪華な気分になれる。 ポテトグラタン こちらも定番の一品。 ジャガイモ料理の区分でもかなりの人気を誇る品。 ジャガイモの形は一口大、輪切り、スライス、千切り、マッシュなどお好みで。冷凍食品のポテトを使えばお手軽。 フランス料理の「グラタン・ドフィノア」は小麦粉を使わずともジャガイモのでんぷん質でとろみをつけるお手軽レシピ。 ミートグラタン ホワイトソースの代わりにミートソースを使用したグラタン。こちらもまた定番。 ひき肉のボリューム感とトマトの旨味が食欲をそそる。 ナスが入っているのはだいたいこっち。 とろろグラタン ホワイトソースの代わりにすりおろした山芋や長芋を使用したグラタン。ヘルシーでホワイトソース作りの手間が掛からないとして人気上昇中。 和風のみならず洋風でも合う。 居酒屋メニューでもたまに見かける。 豆腐グラタン 豆腐を具材にした、もしくはホワイトソースの代わりに豆腐ソースを使用したグラタン。ヘルシーでたんぱく質も摂れるとあって人気上昇中。 こちらも具材は和洋選ばない。 ヤンソンさんの誘惑 独特の名称で度々話題になるスウェーデン料理。本場では「ヤンソンフレステルセ」と呼ばれる。 ジャガイモ、タマネギ、アンチョビを重ねて生クリームをかけて焼くだけでめちゃ美味い。アンチョビの塩気と生クリームのまろやかさで食欲も酒も進む。 オニオングラタンスープ どちらかと言えばスープの分類。 フルーツグラタン 邪道?いえいえれっきとしたフランス料理です。 果物にカスタードクリームをかけてオーブンで焼いた温かいデザート。 ソースをクリームチーズやヨーグルトにしたり、洋酒を入れて大人の味にしたり、アイスクリームを添えたりしても美味しい。 ドリア グラタンの下にご飯が入っている不思議な料理。 ドリアンではない。 実は日本発祥。 ラザニア ラザニア(板状のパスタ)、ミートソース、ホワイトソースを何層にも重ねてチーズをのせてオーブンで焼いた料理。 餃子やワンタンの皮で代用してもよし。 「でもラザニアもパスt…パスタグラタンはグラタン料理だがラザニアはパスタ料理だからいいんだ! グラタン ふしぎの海のナディアに登場。 グランディス一味が使用する、6つの変形モードを持つ装輪式六輪万能戦車。 正式名称は『グランディス・タンク』だが、それを覚えている人はいるのだろうか…… いや、それ以前にグランディスはカトリーヌと呼んでいるのだが。 登場当初から時代に対してオーバーテクノロジーの塊だが、 ノーチラス号に乗船後は事実上の艦載機となりかつよりオーバーテクノロジー化が進んだ。 その艦載機という性質と一味の気質上、危険な任務に就くことが多かったが そのぶん活躍も多く、印象に残っている人も多いのではないだろうか。 とくに最終3話の記憶が残ってる人にとっては色んな意味で感慨深いものがあるだろう。 ■余談 「ちびまる子ちゃん」の作者・さくらももこのエッセイによると、 子供の頃に母にねだって作ってもらったグラタンをべた褒めしたところ、 その後も高頻度でグラタンが食卓にあがり、最初は嬉しかったが流石に飽きてしまい、やがてグラタンのことも「うどん粉を牛乳で溶いたもの」としか思えなくなってしまったそうな。 やはり何事も程々が一番である。 追記編集はホワイトソースを作ってからお願いします △メニュー 項目変更 この項目が面白かったなら……\ポチッと/ -アニヲタWiki- ▷ コメント欄 [部分編集] ハチ食品から、ドリアのもとが発売されておりますが。 値段のわりには美味しいですよね。 -- 閲覧者 (2014-02-23 15 11 30) グラタンの中に「むきえび」が多めに入っているとなんとなくうれしい。 -- 名無しさん (2014-02-23 17 43 06) ↑チキンも、マカロニも! -- 閲覧者 (2014-02-24 13 48 42) 子供の頃は喜んでたけど今食べるとくそ不味いな -- 名無しさん (2014-02-24 13 50 59) ↑味覚が老化したんだろ。俺は今でも美味しくいただけるわ。 -- 名無しさん (2014-02-24 17 28 30) 刻んだ餅を使う餅グラタンも美味しい -- 名無しさん (2014-02-24 17 37 52) 猫舌の俺としてはやはりフーフーは欠かせない? -- 名無しさん (2014-04-20 22 01 37) ↑ミス 欠かせない。 -- 名無しさん (2014-04-20 22 07 02) 美味いけど作る手間が掛かるからもっぱら冷凍食品で済ませてしまう。 -- 名無しさん (2014-11-18 16 13 03) グランディス一味のグラタンってグランドタンクの略かと思ってた… -- 名無しさん (2014-11-29 15 48 34) グラタンの素を使えばわりかし簡単に作れる上に具材をプラスすればなんか本格的な感じになって見栄えもいいので、友人の家呑みにいくときなんか重宝します -- 名無しさん (2014-12-20 16 26 18) グラタンといえばマカロニときのこ。特に秋に食うマッシュルームやぶなしめじ、エノキにまいたけなどきのこがふんだんに入ったグラタンは至高のひとときよ。 -- 名無しさん (2014-12-20 16 31 39) パンでグラタンが好きだった -- 名無しさん (2015-06-15 17 36 09) 冷めたグラタンはまずい -- 名無しさん (2017-02-14 01 40 30) ↑冷めたグラタンはそれはそれで旨いと感じるんだが……好みの別れる味だったのか -- 名無しさん (2017-02-14 01 52 12) ラザニアもこのカテゴリじゃないの? -- 名無しさん (2017-11-06 23 31 53) 自分の母が一度だけ、シャドークイーンという名前の芋を使って作ったらんだが見た目がゼル伝の魔物カレーに似てた -- 名無しさん (2018-10-17 03 35 52) ホワイトソースのせいで、兎角調理中は「こんなもん二度と作りたくねえ!」と思うこと必至なのに、試食すれば「また作ろうかな…」と思わされる不思議な料理。 -- 名無しさん (2018-12-30 17 54 05) 純粋な少年だったあの頃も今もグラタン好き。 -- 名無しさん (2020-03-13 19 20 59) 酒のアテにいいことに気づくと大人も楽しめる -- 名無しさん (2021-10-16 19 06 18) 缶詰のホワイトソースを使えば意外にお手軽。具材をしっかり調理して単体で食えるようにしてから仕込めば失敗も少ない。 -- 名無しさん (2022-12-07 03 43 48) 名前 コメント
https://w.atwiki.jp/ce00582/pages/788.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 Private Sub Command1_Click() Dim m As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim q As Single Dim qx As Single Dim pp As Single Dim h As Single Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(2 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 fastv(-1 To 1, -1 To 1, -50 To 50) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim endv(-1 To 1, -1 To 1) As Single Dim v(2 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim bx As Single Dim bs As Single Open "c /m3.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 n1 = a1 n2 = a2 fastu(n1, n2) = a3 fastb(n1, n2) = a4 Loop Close #1 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 fastv(n1, n2, q) = -999 Next Next Next h = 0.01 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) Debug.Print n1, n2, q Next Next End Sub
https://w.atwiki.jp/ce00582/pages/755.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(0 To 10, 1 To 100) As Single Dim tk(0 To 10, 1 To 100) As Single Dim cs(0 To 10, 1 To 100) As Single Dim k(1 To 100) As Single Dim b(0 To 10) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim g As Single g = 0.05 beta = 0.95 a = 0.33 ks = ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h For m = 0 To 10 cx(m, n) = k(n) ^ a - g tk(m, n) = 0.05 Next Next For m = 0 To 10 b(m) = 0.01 * m Next t1 = 0 Do Until t1 100 For m = 0 To 10 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(m, n) - g r1 = (1 - tk(m, n)) * a * k(n) ^ (a - 1) tax = tk(m, n) * a * k(n) ^ a m1 = (1 + r1) * b(m) + tax - g m2 = Int(m1) If m2 9 Then m2 = 9 If m2 0 Then m2 = 0 m3 = m2 + 1 n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (cx(m3, n2) - cx(m2, n2)) dn = (n1 - n2) * (cx(m2, n3) - cx(m2, n2)) c1 = cx(m2, n2) + dm + dn dm = (m1 - m2) * (tk(m3, n2) - tk(m2, n2)) dn = (n1 - n2) * (tk(m2, n3) - tk(m2, n2)) tk1 = tk(m, n2) + dm + dn r2 = (1 - tk1) * a * k1 ^ (a - 1) cs(m, n) = c1 / (beta * (1 + r2)) Next Next e = 0 For m = 0 To 10 For n = 10 To 90 e = e + (cx(m, n) - cs(m, n)) ^ 2 Next Next For m = 0 To 10 For n = 10 To 90 cx(m, n) = cs(m, n) Next Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/32.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim lx(1 To 100) As Single Dim lp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim ls As Single ls = 0.5 beta = 0.95 a = 0.33 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h lx(n) = ls cx(n) = k(n) ^ a * lx(n) ^ (1 - a) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) cp(n) = c1 / (beta * (1 + r1)) Next w1 = (1 - a) * k(n) ^ a * lx(n) ^ (-a) lp(n) = 1 - cx(n) / w1 e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 + (lx(n) - lp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) lx(n) = lp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Loop Dim ms As Single Dim px(1 To 100) As Single Dim ps(1 To 100) As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim pi As Single Dim pxs As Single ms = 50 For n = 1 To 100 px(n) = 1 Next t4 = 0 Do Until t4 100 For n = 10 To 90 p1 = 1.1 * px(n) p2 = 0.9 * px(n) k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 pxs = px(n2) + (n1 - n2) * (px(n3) - px(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) pi = pxs / p1 - 1 iss = (1 + pi) * (1 + r1) - 1 z1 = iss * ms / (cx(n) * (1 + iss)) - p1 t3 = 0 Do Until t3 100 pi = pxs / p2 - 1 iss = (1 + pi) * (1 + r1) - 1 z2 = iss * ms / (cx(n) * (1 + iss)) - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) If z2 ^ 2 10 ^ (-5) Then t3 = 1000 p1 = p2 p2 = p3 z1 = z2 t3 = t3 + 1 Loop ps(n) = p2 Next e = 0 For n = 10 To 90 e = e + (px(n) - ps(n)) ^ 2 Next For n = 10 To 90 px(n) = ps(n) Next If e 10 ^ (-5) Then t4 = 1000 t4 = t4 + 1 Loop For n = 10 To 90 Debug.Print px(n) Next End Sub