約 2,468,643 件
https://w.atwiki.jp/outpost_saga/pages/42.html
Sebastian 配下の grog たち (standard soldiersから) 1220年春現在 Name Jakob, Otto, Karl, Byrck Characteristics Int -1, Per +0, Pre +0, Com +0, Str +1, Sta +1, Dex +2, Qik +2 Size 0 Age 25(25) Decrepitude 0 Warping 0(0) Virtues Flaws Covenfolk, Warrior, Weakness（酒/賭け事/女） Personality Traits Brave +3, Loyal +2, Garrulous+1 Reputations none Combat Fist Init -1, Atk +7, Dfn +7, Dam +1 Axe heater shield Init +0, Atk +12, Dfn +11, Dam +7 Soak +8(full metal scale) Abilities [Native Language] 5 Area Lore 3(taverns) Athletics 3(running) Awareness 3(in combat) Bows 4(short bow) Brawl 4(punching) Carouse 3 (drinking) Charm 2 (opposite sex) Etiquette 2 (magi) Great Weapon 4(pole axe) Guile 2(avoiding duties) Single Weapon 5(heater shield) Survival 1(for a short period) Equipment Axe, Heater Shield, Full metal scale armor, pack containing gear to care for weapons and armor and establish camps when traveling. Encumbrance 3(4) 1220年春：Exposure 2pt Team combat訓練 Jakob, Otto, Karl Latin(combat) 2pt [0 2] Byrck Exposure High German 2pt [0 2]
https://w.atwiki.jp/blackberrybold/pages/30.html
公式系サイト レビュー・ファンサイト日本サイト 英字サイト メディア情報 2ch 公式系サイト Research In Motionhttp //www.rim.com/ BlackBerry Japanhttp //ap.blackberry.com/jpn/ NTTドコモ スマートフォンサイトhttp //smartphone.nttdocomo.co.jp/index.html レビュー・ファンサイト 日本サイト 価格.com - NTTドコモ docomo PRO series BlackBerry Boldhttp //kakaku.com/keitai/item/docomo_31101001116_docomoproseriesblackberrybold/ 塩田紳二の「BlackBerryを使いこなす」http //pc.nikkeibp.co.jp/article/trend/20081009/1008654/ 黒と苺の BlackBerryBold日記http //d.hatena.ne.jp/BlackBerryBold/ 英字サイト CrackBerryhttp //crackberry.com/ BlackBerry Forumshttp //www.blackberryforums.com/ BlackBerry WorldWidehttp //na.blackberry.com/eng/worldwide/ メディア情報 BlackBerry Boldをこってり触ってきた！http //ascii.jp/elem/000/000/175/175739/ BlackBerry Bold発売「端末購入サポート」でバリュー新規一括が4万円台前半にhttp //plusd.itmedia.co.jp/mobile/articles/0902/20/news087.html RIM、ドコモ向け「BlackBerry Bold」の発売記念レセプションを開催http //journal.mycom.co.jp/news/2009/02/14/010/ BlackBerryによる社内システムの作り方（BESの仕組み等）http //www.itmedia.co.jp/enterprise/articles/0810/17/news003.html BlackBerryサービス料金の値下げ及びBiz･ホーダイダブルへの対応についてhttp //www.nttdocomo.co.jp/info/news_release/page/090108_00.html 2ch 【9000】BlackbBerry Bold Part25【9700】http //toki.2ch.net/test/read.cgi/keitai/1283221947/ 名前 コメント
https://w.atwiki.jp/chaosdrama/pages/1601.html
New World 作詞：ファース Behind the world we live in There was another world けど something different 異なる生命 似ているfase ほとばしる世界 逆回りの時計 strangeで高なる興味心 世界地図にはない 楽園 動物図鑑にはない 生物 Would call the mystery of mysteries 閉ざされて 帰られない 欲深きボクら 哀れ 恐怖に急かされて そんなんじゃ 自由は掴めない 今開いた (What is the concatenated?) 禁断の扉 (What is the spun?) 飛びこめ (What is the truncated?) まだ見ぬ世界へ (What is brought in?) 新世界へ
https://w.atwiki.jp/centos-homeserver/pages/13.html
はじめに 2010.7.10現在、CentOS(x86 64bit版)の最新のバージョンである Ver5.5のCentOS-5.5-x86_64-netinstall.isoを用いてネットワークインストールを行う。 （※ネットワークインストール可能なNICのチップがこのマザーボードに搭載されていたため） もし、ネットワークインストールが不可能ならDVDをもちいてインストールする。 （CentOS-5.5-x86_64-bin-DVD-1of2.iso＆CentOS-5.5-x86_64-bin-DVD-2of2.iso） データ用HDDの一時的な取り外し 全てのHDDを接続していると、起動ディスク（のデバイス名）を正しく設定できないので、 一旦データ用HDDを全て取り外した状態でインストールを行う。 CentOSのCD-ROM(or DVD)でインストーラ起動 BIOSでCD-ROM起動を設定後、CentOSのCD-ROM(or DVD)でインストーラを起動 ※なお、インストール全般に関しては、RHEL-5のインストールマニュアルを参照にすると良い。 ネットワーク設定（DVDでも同様。） 後で設定するので、ひとまずデフォルトのDHCPのままにする。 （※DHCPサーバが無い環境であれば設定する。） ただし、IPv6のサポートのチェックだけは外す。 FTPサイトの設定（ネットワークインストールの場合） 例としては、 FTPサイト名："ftp.iij.ad.jp" FTPディレクトリ："pub/linux/centos/5.5/os/x86_64" あとはDVDでのインストールと同様。 パーティション設定 自分は起動ディスクを以下の通りにパーティションを設定した。 sda ※WD3200BEVT -------- sda1 swap 4 GiB 基本領域 sda2 /boot 136 MiB 基本領域 sda3 / 8 GiB 基本領域 sda5 /var 200 GiB 拡張領域(sda4)の中 sda6 /tmp 残り全て パーティション編集はREHL-5のインストールマニュアルの該当ページを参考のこと。 (注)インストーラーでパーティションを順番に新規作成していくと意図通りにパーティションを割当できない場合もある。（例えばsdaXが勝手に入れ替わるなど）そこで一旦全領域を削除して、新規作成ではなく編集でシリンダ単位でパーティションを作成していくと良い。また、ubuntuやParted MagicなどのLIVE-CDのGPartedを使用して、事前にパーティションを設定しておいてインストーラー上でマウントポイントの設定だけ行うようにしても良い。 ブートローダの設定 "/dev/sda2"にインストールされるのを確認。（起動パーティションは"/dev/sd3"） タイムゾーン デフォルトで「アジア／東京」が選択されているのを確認し、 忘れずに「システムクロックでUTCを使用」のチェックを外す。 インストールパッケージ 日本語のサポートパッケージ以外にチェックを入れて後は全てチェックを外す。 （最小限のパッケージしかインストールしない。） おわりに あとは、インストール処理が終了するまで待つ。 （ディスクのフォーマットからパッケージのインストールまで） インストール処理が正常に終了すればディスクが排出されるはずなので、 それを確認して再起動し、OSが起動することを確認する。 このページを編集
https://w.atwiki.jp/soldner/pages/12.html
ストーリー(パッケージ記載文) 近未来の我々の世界－それは迫りつつある。アメリカ合衆国もロシアももはや「世界の警察」 そしての活動を放棄した。両国は軍事的支援を一切引き揚げ、以後この地球上のあらゆる国家 は、存在紛争地帯に自ら戦いを挑むことになった。軍事的な意味での利益を確保しさらに増強 するため、ますます多くの国が傭兵軍、つまりゼルドナーの支援に頼るようになるのである。 これら特殊訓練を受けたエリート部隊は、確実に敵を排除するため、最新兵器を大量に蓄えた。 ゲームの特徴 1人称と3人称の視野選択が可能→基本は3人称だが、切り替えも重要。 マルチプレイは最大32名（現在128名だが、32名までが主流） シングルプレーヤーでは複雑な政治機構やミッション発生の事由をはじめ、ダイナミックに作 られた軍事作戦リアルな兵器や車両、そしてリアルな戦場を再現。 PCゲーム史上初。画面上のすべてを破壊することができる。家を破壊し、密林を全滅させるこ とができる。これにより、戦略上の可能性が無限に！ AGS（高度なジェスチャーシステム）数多くのジェスチャーにより、プレーヤー間での細かなコ ミュニケーションが可能。 TCM（戦術的コマンダーモード）全てのゲームのコマンダーは、自分の軍を独自に指揮しながら 指令を出す。 CS（部隊カスタマイズシステム）キャラクター設定によって、プレーヤーは独自の外観を作る ことができる。その数は60,000通り以上！（あくまで期待値） SWS（兵士用兵器システム）完全に本物どおり再現された、60を超える最新兵器 AFV（先進戦闘車両）70以上のリアルな陸海の機動部隊 ※別途記載のバージョンアップによりさらに多数の兵器が追加されている。 動作環境 日本語版Windows(R)XP/2000/Me/98（必要）※WindowsVISTAでも動作します。 Pentium(R)4 2.4GHz以上（推奨）Pentium(R)4 1.8GHz以上（必要） XP/2000-512MB以上 Me/98-384MB以上（必要） 1GB以上の空き容量（必要） ビデオメモリ64MB以上（推奨）32MB以上（必要） 16倍速以上（必要） 8.1b以降（必要） キーボード、マウス（必要） 2人以上のマルチプレイには、TCP/IP必須 その他 ゲーム自体は、トレーニング（シングルプレイ）、マルチプレイ２種類 兵士の外見設定が可能で、数万通りのカスタマイズが可能です。 体の各パーツ毎に設定ができます。 その他、基本カラーの設定とシンボルマークの設定が可能です。 カラーは服装の基本カラーとなる他、指揮官時に部隊全体が、指揮官のカラーに統一されま す。（戦車、戦闘機含む：ピンクにすれば部隊のすべての車両、航空機がピンクに・・） 備考 2004～5年くらいに発売されたゲームであるためにゲーム人口自体もすくなく、デモ版の不評も あって、日本人のプレイヤーの割合は全体の中でも非常に少ない。 しかし、それでも、このゲームにはそれを補って余りある要素がある。 パッケージ版のバージョンは、現在パッチのリリースにより過去仕様となっており、これで操 作に慣れた場合、マルチプレイでは活躍できない。よって最新パッチの導入が必要不可欠。 なお、最新パッチでのシングルプレイヤーはNPCのAIが崩壊しているためゲームにならず、ト レーニングのみの使用に留めるべき。 プレイ前のよくあるトラブル Ｑ：キーを入れたのに、アドオンキーってなんだよ！？ Ａ：インストールフォルダ内のどこかに(autorun.ini)があるので消せ。
https://w.atwiki.jp/thunderbolt/pages/14.html
Apple Thunderbolt GbE アダプタ(発売中)http //store.apple.com/jp/product/MD463ZM/A Apple Thunderbolt FW800 アダプタ (発売中)http //store.apple.com/jp/product/MD464 LaCie Thunderbolt eSATA hub(発売中)http //www.lacie.com/products/product.htm?id=10574 SONNET Echo ExpressCard/34 Thunderbolt Adapter/Echo Pro ExpressCard/34 Thunderbolt Adapter(発売中)http //www.sonnettech.com/product/echoexpresscard34thunderbolt.html SONNET Echo Express SE 10GbE (発売中)http //www.sonnettech.com/product/echoexpressse_10gbeadapter.html SONNET 10GbE Thunderbolt Connectionhttp //sonnettech.com/product/twin10g.html SONNET Echo Express SE eSATA Pro 4port (発売中)http //www.sonnettech.com/product/echoexpressse_esataadapter.html SONNET Qio Thunderbolt Interface Kit(発売中)http //www.sonnettech.com/product/qiothunderbolt.html PROMISE SANLink Fibre Channel Adapter using Thunderbolt Technology (発売中) http //www.promise.com/storage/raid_series.aspx?region=en-global m=192 rsn1=40 rsn3=49 PROMISE SANLink2 Fibre Channel Adapter with Thunderbolt 2 http //www.promise.com/promotion_page/promotion_page.aspx?region=en-global rsn=103 ATTO ThunderLink FC 1082 10Gb/s Thunderbolt (2-port) to 8Gb/s FC (2-Port) Desklink(発売中) http //www.attotech.com/products/product.php?cat=16 scat=29 sku=TLFC-1082-D00 ATTO ThunderLink FC 2082 20Gb/s Thunderbolt 2 to 8Gb/s FC (2-port)https //thunderbolttechnology.net/product/atto-thunderlink-fc-2082 ATTO ThunderLink NT 1102 10Gb/s Thunderbolt (2-port) to 10GbE (2-Port) Desklink(発売中) http //www.attotech.com/products/product.php?cat=16 scat=32 sku=TLNT-1102-D00 ATTO ThunderLink NS 1101 (SFP+) 10Gb/s Thunderbolt? (2-port) to 10GbE (1-Port) Desklink(発売中) http //www.attotech.com/products/product.php?cat=16 scat=32 sku=TLNS-1101-D00 ATTO ThunderLink SH 1068 10Gb/s Thunderbolt (2-port) to 6Gb/s SAS/SATA (8-Port) Desklink(発売中) http //www.attotech.com/products/product.php?cat=16 scat=31 sku=TLSH-1068-D00 ATTO ThunderStream SC 3808D 10Gb/s Thunderbolt (2-Port) to 6Gb/s SAS/SATA (8-Port) RAID Desklink(発売中)http //www.attotech.com/products/product.php?scat=28 sku=TSSC-3808-D00 ATTO ThunderLink FC 2162 http //www.attotech.com/products/product.php?cat=16 scat=39∏=128 sku=TLFC-2162-D00 ATTO ThunderLink NS 2102(SFP+) http //www.attotech.com/products/product.php?cat=16 scat=38∏=129 sku=TLNS-2102-D00 ATTO ThunderLink NT 2102(10GBASE-T) http //www.attotech.com/products/product.php?cat=16 scat=38∏=130 sku=TLNT-2102-D00 CalDigit ThunderExpress Thunderbolt to External PCI Express Adapterhttp //www.caldigit.com/Thunderbolt/ThunderExpress.html HighPoint RocketThunder RT7322L/RT7214P Thunderbolt to SATA 6Gb/s Controller Boardhttp //www.highpoint-tech.com/PDF/HighPoint_RocketThunder_PR_120412.pdf HighPoint RocketStor 6328 Dual Mini-SAS External Thunderbolt2 RAID Adapterhttp //highpoint-tech.com/USA_new/series_RS6328_overview.htm HighPoint RocketStor 6328L Dual Mini-SAS External Thunderbolt2 Adapterhttp //www.highpoint-tech.com/USA_new/series_rs6328l_overview.htm HighPoint RocketStor 6324U 4x USB3.0 Thunderbolt2 Adapterhttp //www.highpoint-tech.com/USA_new/series_rs6324u_overview.htm HighPoint RocketStor 6328L Dual Mini-SAS External Thunderbolt2 Adapterhttp //www.highpoint-tech.com/USA_new/series_rs6328l_overview.htm TRAGANT INTERNATIONAL/DeLOCK 61971 SATA Thunderbolt Adapterhttp //delock.tragant.com.tw/index.php?p=3 prono=61971 mlogic mLink 10GigE (発売中)http //www.mlogic.com/products/mlink-10gige-solution FirmTek ThunderTek/PX-Q6G 4port eSATA Adapterhttp //www.firmtek.com/seritek/thundertek/pxq6g/ FirmTek ThunderTek/PX2+2 2HDD/SDD+2eSATAhttp //www.firmtek.com/seritek/thundertek/px6g22/ Matrox Thunderbolt PCIe adapterhttp //www.jmgs.jp/video/thunderboltadapter/index.html Small Tree ThunderNET 2 GbE/10GbE Adapterhttps //www.small-tree.com/Thunderbolt_Products_for_Mac_OS_X_s/192.htm Accusys ExaSAN C1M Bridge Converter for ExaSANhttp //www.accusys.com.tw/products/2013-07-11-05-44-25/c1m-new/c1m-new.html Kanex Thunderbolt to Gigabit Ethernet+USB3.0 Adapterhttp //www.kanexlive.com/thunderbolt-gigabit-ethernet Kanex Thunderbolt to eSATA+USB3.0 Adapterhttp //www.kanexlive.com/thunderbolt-esata Lintes Thunderbolt Dual Port eSATA+USB3.0 Donglehttp //www.lintestech.com/productsDia.php?cls=N000001 id=20 Lintes Thunderbolt Dual Port Giganet+USB3.0 Donglehttp //www.lintestech.com/productsDia.php?cls=N000001 id=21 Lintes Thunderbolt Single Port USB3.0 Donglehttp //www.lintestech.com/productsDia.php?cls=N000001 id=22 DataTale Thunderbolt USB3.0+eSATA Adapter TG-UE11http //www.datawatchtech.com/product.asp?id=114 secid=4#.VJVrQcAiA DataTale Thunderbolt USB3.0+LAN Adapter TG-UL11 http //www.datawatchtech.com/product.asp?id=113 a=0 secid=263#.VJVsEMAiA Areca ARC-4320T2 Thunderbolt 2 to SAS 6Gbps Host Adapterhttp //www.areca.com.tw/products/4320T2.htm Areca ARC-4607T2 Thunderbolt 2 to 16G FibreChannel Adapterhttp //www.areca.com.tw/products/4607T2.htm Areca ARC-4883T2 Thunderbolt 2 to 12Gbps SAS RAID Controllerhttp //www.areca.com.tw/products/4883T2.htm
https://w.atwiki.jp/toshia/
ブログはじめました もうすぐ大学生のわたしです あとは新生活を待つばかりで若干暇してるので、 ココで暇つぶしですv(* -^*)-☆ カービュー車買取
https://w.atwiki.jp/bloodysnow/pages/21.html
バッテリー外す 電源ON PC名 railgun, user atsushi 無線LAN off Windows エクスペリエンスインデックス計算 USBマウス追加 背景変更 フォルダオプション タスクバー変更 Windowsの機能 システムの復元無効化 ネットワーク接続 Windows Update McAfee登録 ******@tcct.zaq.ne.jp regedit HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000411 にある Layout file を KBDJPN.DLL から KBDUS.DLL 無線LAN設定 caps2ctrl Firefox, claunch, googleIME Dell Datasafe backup 実行 Dexpot Pokerstars live messanger, PC one care safe, skype, flash player, chrome, mixi, twitter, igo FXTS postreSQL PokerTracker 3 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG\iycvsgqo, ujqeninj 削除 クリック証券FX, winrar, Hold em manager, TableNinja, Dexpot1 firefox, chrome, thunderbird, jane, igo, KGS, Dexpot2 fx Dexpot3 foobar2k, MangaMeeya Dexpot4 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG iycvsgqo must FX ヒロセ, MT4, Dropbox, 囲碁 KGS, UWSC utility Emacs(Meadow), Evernote, media foobar2k, MangaMeeya, MediaPlayerClassic want game civ4, daemonTools, うみねこ+東方, SCFH+ニコ生+棒読みちゃん 開発 Eclipse, log4net, NUnit, VisualStudio, putty, vmware, TortoiseSVN, freemind utility stirling, synergy, TeamViewer, ImgBurn iPod filezilla, iTunes communication Thunderbird chrome拡張 AdBlock, AutoPager, Chrome Gestures, ChromeMUSE, Cooliris, Google bookmarks, IE Tab, Webpage Screenshot, nicofox suspended Xkeymacs
https://w.atwiki.jp/vipisland2/pages/21.html
newVIP列島とは ２ちゃんねるのニュー速VIP板発祥のブラウザゲーム new VIP列島はBrassiereさん(ブラジャータウン)で配布されているCGIゲーム(TOWN)を色々と改造して独自の機能を盛り込んだタウンゲーム 登録するとあなたのキャラクタが作成されます 初期パラメータはランダム あなたのキャラクタが日本列島を模した世界の住人となりお腹が減って食べ物を食べたり、お金を得るために職業に就く、趣味に興じる、 恋人をつくってデート、家を建ててお店を経営、大金持ちになったり… ネット上のヴァーチャルタウン(仮想世界)では 住民とコミュニケーションを取ったり、キャラクターのパラメータを上げ、ランキング上位を目指したりといろいろな楽しみ方があります VIP列島の住民の方々には色々な人がいます 年齢性別様々、どこからVIP列島へ来たかなどは多岐に及びます 2ch(２ちゃんねる掲示板)の事を全く知らなくても気軽に楽しめるよう 趣向が凝らしてあります ブラウザゲームなのでネット環境さえあればいつでも好きな時間に遊べます 興味を持って頂けた方は VIP列島TOPからVIP列島の入り口へとジャンプしてキャラクターの登録を済ませてください 新規登録に必要なのはキャラクター名、性別(♂/♀)、パスワード、出身地(出発地点)の４点 完全無料。安心してご利用ください (ログイン時に必要なのはキャラクタ名とパスワード) 具体的な登録方法についてはメニューからキャラ登録の流れに記しています 上へ
https://w.atwiki.jp/ce00582/pages/936.html
Private Sub Command1_Click() Dim a As Single Dim beta As Single Dim phi As Single Dim sig As Single Dim barm As Single Dim t2 As Single Dim t1 As Single Dim t3 As Single Dim t4 As Single Dim t5 As Single Dim k(1 To 100) As Single Dim cx(-5 To 5, 1 To 10, 1 To 100) As Single Dim cp(-5 To 5, 1 To 10, 1 To 100) As Single Dim lx(-5 To 5, 1 To 10, 1 To 100) As Single Dim lp(-5 To 5, 1 To 10, 1 To 100) As Single Dim px(-5 To 5, 1 To 10, 1 To 100) As Single Dim ps(-5 To 5, 1 To 10, 1 To 100) As Single Dim gotos(-5 To 5, 1 To 10, 1 To 100, 1 To 10) As Single Dim maki(-5 To 5, 1 To 10, 1 To 100, 1 To 10) As Single Dim v(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim vs(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim wedge(-5 To 5) As Single Dim th(1 To 10) As Single Dim ls As Single Dim ks As Single Dim s As Single Dim m As Single Dim n As Single Dim q As Single Dim m1 As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim s1 As Single Dim s2 As Single Dim s3 As Single Dim q1 As Single Dim q2 As Single Dim q3 As Single Dim r1 As Single Dim c1 As Single Dim l1 As Single Dim y1 As Single Dim i1 As Single Dim ds As Single Dim dn As Single Dim dq As Single Dim e As Single Dim uc As Single Dim um As Single Dim mc As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim pxs As Single Dim pp As Single Dim pr1 As Single Dim pr2 As Single Dim pr3 As Single Dim ys As Single Dim vv1 As Single Dim vv2 As Single Dim vv0 As Single Dim price(-5 To 5, 1 To 10, 1 To 100) As Single Open "c /pro131.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4, a5, a6 s = a1 m = a2 n = a3 lx(s, m, n) = a4 cx(s, m, n) = a5 px(s, m, n) = a6 Loop Close #2 phi = 0.9 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 For m1 = 1 To 10 gotos(s, m, n, m1) = s Next Next Next Next For m = 1 To 10 th(m) = 1 + 0.01 * m Next For s = -5 To 5 sig = 1 / (1 - phi) px1 = 1 + 0.01 * s px2 = ((1 - 0.1 * px1 ^ (1 - sig)) / 0.9) ^ (1 / (1 - sig)) wedge(s) = phi * px2 Next beta = 0.95 a = 0.33 ls = ((1 - a) * phi) / ((1 - a) * phi + 1) ks = ls * ((1 / beta - 1) / (a * phi)) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h Next t5 = 0 Do Until t5 100 t1 = 0 Do Until t1 100 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 uc = 0 k1 = k(n) + th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) uc = uc + (beta * (1 + r1)) / c1 Next uc = uc / 10 cp(s, m, n) = 1 / uc w1 = wedge(s) * th(m) * (1 - a) * k(n) ^ a * lx(s, m, n) ^ (-a) lp(s, m, n) = 1 - cp(s, m, n) / w1 Next Next Next e = 0 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 e = e + (cx(s, m, n) - cp(s, m, n)) ^ 2 + (lx(s, m, n) - lp(s, m, n)) ^ 2 Next Next Next For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 cx(s, m, n) = cp(s, m, n) lx(s, m, n) = lp(s, m, n) Next Next Next If e 10 ^ (-5) Then t1 = 1000 Debug.Print 81, t1, e t1 = t1 + 1 Loop barm = 20 t2 = 0 Do Until t2 100 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 p1 = 0.9 * px(s, m, n) p2 = 1.1 * px(s, m, n) k1 = k(n) + th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 um = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p1 i1 = (1 + r1) * pp - 1 um = um + (beta * i1) / (c1 * pp) Next um = 0.1 * um z1 = um * barm - p1 t3 = 0 Do Until t3 100 k1 = k(n) + th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 um = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = th(m1) * mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p2 i1 = (1 + r1) * pp - 1 um = um + (beta * i1) / (c1 * pp) Next um = 0.1 * um z2 = um * barm - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) p1 = p2 p2 = p3 z1 = z2 If (z2) ^ 2 10 ^ (-5) Then t3 = 10000 t3 = t3 + 1 Loop ps(s, m, n) = p2 Next Next Next e = 0 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 e = e + (px(s, m, n) - ps(s, m, n)) ^ 2 Next Next Next If e 10 ^ (-5) Then t2 = 1000 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 px(s, m, n) = ps(s, m, n) Next Next Next Debug.Print 82, t2, e t2 = t2 + 1 Loop Dim pi As Single Dim pipi As Single Dim pipipi As Single Dim r(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim dv(0 To 2) As Single Dim dr(0 To 2) As Single Dim rank As Single For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 ys = th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) pi = px(s, m, n) * ys - wedge(s) * px(s, m, n) * ys pipi = (phi - wedge(s)) * (ys / (phi - 1)) pipipi = (mr + wedge(s) * ys) / (px(s, m, n) * (phi - 1)) r(2, s, m, n) = pipipi / 2 r(1, s, m, n) = pipi - 2 * px(s, m, n) * r(2, s, m, n) r(0, s, m, n) = pi - r(1, s, m, n) * px(s, m, n) - r(2, s, m, n) * px(s, m, n) ^ 2 Next Next Next t4 = 0 Do Until t4 100 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 k1 = k(n) + th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 vv0 = 0 vv1 = 0 vv2 = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = th(m1) * mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / px(s, m, n) i1 = (1 + r1) * pp - 1 For rank = 0 To 2 ds = (s1 - s2) * (v(rank, s3, m1, n2) - v(rank, s2, m1, n2)) dn = (n1 - n2) * (v(rank, s2, m1, n3) - v(rank, s2, m1, n2)) dv(rank) = v(rank, s2, m1, n2) + ds + dn Next For rank = 0 To 2 ds = (s1 - s2) * (r(rank, s3, m1, n2) - r(rank, s2, m1, n2)) dn = (n1 - n2) * (r(rank, s2, m1, n3) - r(rank, s2, m1, n2)) dr(rank) = r(rank, s2, m1, n2) + ds + dn Next vv0 = vv0 + (dr(0) + 0.8 * dv(0)) / (1 + i1) vv1 = vv1 + (dr(1) + 0.8 * dv(1)) / (1 + i1) vv2 = vv2 + (dr(2) + 0.8 * dv(2)) / (1 + i1) Next vs(0, s, m, n) = vv0 / 10 vs(1, s, m, n) = vv1 / 10 vs(2, s, m, n) = vv2 / 10 Next Next Next e = 0 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For q = 0 To 2 e = e + (v(q, s, m, n) - vs(q, s, m, n)) ^ 2 Next Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For q = 0 To 2 v(q, s, m, n) = vs(q, s, m, n) Next Next Next Next If e 10 ^ (-5) Then t4 = 1000 Debug.Print 83, t4, e t4 = t4 + 1 Loop For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 price(s, m, n) = -v(1, s, m, n) / (2 * v(2, s, m, n)) If price(s, m, n) 1.05 * px(s, m, n) Then price(s, m, n) = 1.05 * px(s, m, n) If price(s, m, n) 0.95 * px(s, m, n) Then price(s, m, n) = 0.95 * px(s, m, n) Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 p2 = price(s, m, n) p1 = (1 + 0.01 * s) * px(s, m, n) p3 = (0.8 * p1 ^ (1 - sig) + 0.2 * p2 ^ (1 - sig)) ^ (1 / (1 - sig)) k1 = k(n) + th(m) * k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn gt = 100 * (p3 / pxs - 1) If gt 5 Then gt = 5 If gt -5 Then gt = -5 maki(s, m, n, m1) = gt Next Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For m1 = 1 To 10 gotos(s, m, n, m1) = maki(s, m, n, m1) Next Next Next Next Dim checkc(-5 To 5, 1 To 10, 1 To 100) As Single Dim checkl(-5 To 5, 1 To 10, 1 To 100) As Single Dim checkp(-5 To 5, 1 To 10, 1 To 100) As Single e = 0 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 e = e + (checkc(s, m, n) - cx(s, m, n)) ^ 2 + (checkl(s, m, n) - lx(s, m, n)) ^ 2 + (checkp(s, m, n) - px(s, m, n)) ^ 2 Next Next Next For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 checkc(s, m, n) = cx(s, m, n) checkl(s, m, n) = lx(s, m, n) checkp(s, m, n) = px(s, m, n) Next Next Next If e 10 ^ (-4) Then t5 = 1000 Debug.Print t5, e t5 = t5 + 1 Loop Open "c /pro131.txt" For Output As #1 For s = -5 To 5 For m = 1 To 10 For n = 1 To 100 Write #1, s, m, n, lx(s, m, n), cx(s, m, n), px(s, m, n) Next Next Next Close #1 End Sub