約 2,105,533 件
https://w.atwiki.jp/ce00582/pages/213.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnewt(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /stream/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnewt(byear) = z1 Debug.Print byear Next Open "c /stream/gdata/男子通算新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/bemani2dp/pages/2399.html
GENRE TITLE ARTIST bpm notes CLEAR RATE DRUM STEP Empathetic Sota÷Des 180 n%(yyyy/mm/dd) 攻略・コメント 名前 コメント
https://w.atwiki.jp/gtav/pages/248.html
父と子 (Father/Son) 父と子 (Father/Son)概要 ミッション内容 ゴールドメダル取得条件 余談 ミッション終了後の任意の電話 動画 概要 フランクリンとの交流を深めるため、バーへ誘うマイケル。しかしその時、息子のジミーから助けを求める電話が。 かくして息子と船を取り戻すため、走りだす二人であった。 ミッション内容 マイケルかフランクリンでマイケルの自宅へ行くとミッション開始。 マイケルにスイッチされる。フランクリンと一緒に出かけようとするが、ジミーから船(Marquis)を盗まれたと電話が入り、アマンダの車(Sentinel)で奪い返す事になる。 ナビ通り進むと船を積んだ車に遭遇。高速道路で追跡しながら船を積んだ車に接近し、フランクリンを船に乗せる。 途中でフランクリンが強盗(マラブンタ・グランデ)に攻撃されるので、ドライブバイで強盗を倒す。 しばらくするとジミーが船の帆に振り出されて宙ぶらりんになる。ジミーの下に車を合わせてキャッチする。 船の後部に車を寄せてフランクリンをキャッチ。 車がエンジンブローし、追跡を諦める事になる。ロスサントスカスタムに向かい車を修理する(無料)。 マイケル自宅へ行くとミッション完了。 ゴールドメダル取得条件 スピード・レスキュー10秒以内にジミーを救出しろ クレーンに捕まっているジミーを救出するだけ、モタモタしなければすぐに救出できる。リプレイ時はアマンダの車を改造しておけばさらにやり易くなる。慌ててジミーな下に寄せようとするとトレーラーも逃げてしまう上に一般車と接触しやすいので、黄色のマーカーが出てからスピードを上げるのが好ましい。 傷ひとつなしアマンダの車をダメージなしで届けろ 修理して自宅まで安全運転でいけば達成可能。ちょっとコスる程度なら大丈夫。なお車の修理は最初の一回のみ無料で、修理以外だとしっかり金を取られる。 余談 このミッションでフラットベッドが車を載せて走っている。このミッション以外では、フラットベッドが車を載せて走っていないため、この一回でしかお目にかかれない。ちなみに、乗っている車は、ガントレッド。 マイケルが乗って帰るタクシーは、一応レア車両。ミッション終了直後にスイッチし、追いかければ奪える。レアと言っても上の行灯(飾り)がない程度だが。 追跡中にエンジンから煙を吹くが、ガラガラ音が鳴った瞬間に車両のHPは強制的に70に減少する。乗り物のHP最大値は1000。ロスサントス・カスタムで各種カスタムを選ぶとジミーがそれに応じたセリフを言ってくれる。 このミッションは「GTASA」の最終ミッション「end of the line」のオマージュと思われる。暇なときに見比べてみよう。 この時ファントムが引っ張っているトレーラーはこのミッションにしか出現しない。また、このファントムは一切の攻撃を受け付けない完全無敵となっている。また、トレーラーの付近には透明かつ無敵の2台のファントムがあり、透明でないファントムと一緒に動いている。透明ファントムは2台とも別視点用に使われる。船を積んだファントムと一緒にスポーンし、フランクリンを船からキャッチして衝撃の演出が始まった瞬間にゲーム内から消える。透明のファントムは人や車両や普通のオブジェクトに対する当たり判定はないが、銃弾と投射物オブジェクト(ロケットランチャーの弾や投擲物など)に対する当たり判定はあり、火炎瓶による発火(ダメージは受けない)や粘着爆弾の貼り付けが可能となっている。ただし、高速走行かつ透明状態を解除しないと予測できないような動きをしている関係で、狙って当てるのは通り道を覚えない限り難しい。ちなみに、MODで透明ファントムを破壊するとファントムが破壊された場所の視点に固定され、透明ファントムが消えると別視点が使えなくなる。参考として、PC版でScriptHookVDotNetのコンソールで以下のC#コードを入力すると透明ファントムの透明状態を解除できる。BashのようにCtrl+Pや上矢印キーで1つ前に入力したコマンドに戻れるので覚えておくといいかもしれない。 foreach (var veh in World.GetAllVehicles(VehicleHash.Phantom)) { veh.IsVisible = true; } ミッションスクリプト(family1.ysc)によると、ジミーのHPは1000に設定されている(100未満で死亡する仕様上(*1)、実質HPは900)。 + 透明ファントムについてのスクリーンショット。ほとんどは透明化解除したもの。 火炎瓶でファントムに火をつけると運転手が飛び降りる。しかしファントムは運転手がいなくなっても無人のままトレーラーごと走り続けるため、止めて船を取り戻すことはできない。 ミッション終了後の任意の電話 フランクリンはジミーに任意で電話をかけることができる。フランクリンはマイケルを「成果を手にしてきた男」と評価し、そこへの憧れをジミーに対し伝える。 動画
https://w.atwiki.jp/airy/pages/2.html
メニュー トップページ 動画 メモ リンク Skutterudite home lattice const→2theta nakao's bookmark ここを編集
https://w.atwiki.jp/heavymetaleye101/pages/100.html
METALLICA ヘヴィメタルバンドとしては最も成功したといえるモンスターバンド。 スラッシュメタルを基調にした荒々しいサウンド、ヘヴィネスを強調した90年代的ヘヴィメタルサウンド、モダンなグランジヘヴィロック等、アルバム毎に賛否両論を出しながらもメタル/ロックシーンに多大なる影響を与え続けているバンドだ。 KILL EM ALL MASTER OF PUPETS ...AND JUSTICE FOR ALL METALLICA(Black Album ST.ANGER
https://w.atwiki.jp/lotroquest/pages/273.html
THE STORM IS UPON US 依頼者:JON BRACKENBROOK 「急いでくれ!Caider CobがArchetに反逆するため動きだした」 「Angmarの邪悪な男たちが彼に手助けをして、Blackwoldが力をつけている」 「私たちはすぐに村を守りに行く!」 「用意ができたら、私の所に来てくれ」 目的1 ●Jon Brackenbrookと話す インスタンスクエスト THE ASSAULT ON ARCHET 開始 終了すると目的達成 Jon Brackenbrook 「父を失ってたいへん痛い思いだ」 「しかし、私の痛みはアーチェトのほかの人に比べればたいしたことはない」 「アーチェトのみんなは君を英雄とみなしたようだ、そして私も同感た」 「あなたの敏速な機転がなければ、私たちはより多くの命を失ったでしょう」 「あなたは、私たちの町を囲む森から不吉な男たちを退けて、Blackwoldsのヤツらの多くを追い払った人でした」 「私たちはあなたをとても高く評価してます」 「この大陸には不吉な闇が蠢いている、獰猛な敵が君の前に現れるだろう」 背景 差し迫っているBlackwoldのArchet村襲撃の準備への奮迅の働きは、実を結ぼうとしています。 準備は整った、戦いの時は来たれり。 クエスト・データ 適正レベル:5 クエスト・タイプ:ソロ 前提クエスト:A Slender Hope 派生クエスト:The Assault On Archet 次のクエスト:序章Burying The Dead
https://w.atwiki.jp/ce00582/pages/1450.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /kirakira/gdata/女子新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/214.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim avgftime(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /stream/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 finx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 fout(age, car) = a3 Loop Close #6 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = finx(age, car) a2 = fout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next z2 = 0 For car = 25 To 49 z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next avgftime(byear) = z2 / z1 Debug.Print byear, z2 / z1 Next Open "c /stream/gdata/女子平均加入年数2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, avgftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1468.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim avgtftime(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 finx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 fout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = finx(age, car) a2 = fout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next z2 = 0 For car = 1 To 24 z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next avgtftime(byear) = z2 / z1 Debug.Print byear, z2 / z1 Next Open "c /kirakira/gdata/女子通算平均加入年数2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, avgtftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/178.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim fnewt(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /stream/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 finx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 fout(age, car) = a3 Loop Close #6 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = finx(age, car) a2 = fout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next fnewt(byear) = z1 Debug.Print byear Next Open "c /stream/gdata/女子通算新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, fnewt(byear) Next Close #4 End Sub